cheveguerra/Guna_Reparto_Imp
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_Imp.git synced 2026-04-20 14:19:34 +00:00
Code Issues Packages Projects Releases Wiki Activity

6.02.09_01

Browse Source
This commit is contained in:
cvaldes1201
2026-03-10 10:38:27 -06:00
parent 3cda52a8a3
commit 3a13a989f3
17 changed files with 10072 additions and 3645 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
B4A/MAPA_RUTAS.bas
View File

@@ -166,29 +166,29 @@ Sub MapFragment1_Ready
If pedidos.RowCount > 1 Then
If esteAzul = 1 Then esteAzul2= "marker-azul.png"
If esteAzul = 2 Then esteAzul2= "marker-azul1.png"
If esteAzul = 3 Then esteAzul2= "marker-azul2.png"
If esteAzul = 4 Then esteAzul2= "marker-azul3.png"
If esteAzul = 5 Then esteAzul2= "marker-azul4.png"
If esteAzul = 6 Then esteAzul2= "marker-azul1.png"
If esteAzul = 2 Then esteAzul2= "marker-azul.png"
If esteAzul = 3 Then esteAzul2= "marker-azul.png"
If esteAzul = 4 Then esteAzul2= "marker-azul.png"
If esteAzul = 5 Then esteAzul2= "marker-azul.png"
If esteAzul = 6 Then esteAzul2= "marker-azul.png"
Else If pedidos.RowCount = 1 Then
pedidos.Position = 0
If pedidos.GetString("HVD_PRONOMBRE") = "Cobranza Pendiente" Then
If esteAzul = 1 Then esteAzul2= "marker-amarillo.png"
If esteAzul = 2 Then esteAzul2= "marker-amarillo.png"
If esteAzul = 3 Then esteAzul2= "marker-amarillo.png"
If esteAzul = 4 Then esteAzul2= "marker-amarillo.png"
If esteAzul = 5 Then esteAzul2= "marker-amarillo.png"
If esteAzul = 6 Then esteAzul2= "marker-amarillo.png"
If esteAzul = 1 Then esteAzul2= "marker-azul.png"
If esteAzul = 2 Then esteAzul2= "marker-azul.png"
If esteAzul = 3 Then esteAzul2= "marker-azul.png"
If esteAzul = 4 Then esteAzul2= "marker-azul.png"
If esteAzul = 5 Then esteAzul2= "marker-azul.png"
If esteAzul = 6 Then esteAzul2= "marker-azul.png"
Else
If esteAzul = 1 Then esteAzul2= "marker-azul.png"
If esteAzul = 2 Then esteAzul2= "marker-azul1.png"
If esteAzul = 3 Then esteAzul2= "marker-azul2.png"
If esteAzul = 4 Then esteAzul2= "marker-azul3.png"
If esteAzul = 5 Then esteAzul2= "marker-azul4.png"
If esteAzul = 6 Then esteAzul2= "marker-azul1.png"
If esteAzul = 2 Then esteAzul2= "marker-azul.png"
If esteAzul = 3 Then esteAzul2= "marker-azul.png"
If esteAzul = 4 Then esteAzul2= "marker-azul.png"
If esteAzul = 5 Then esteAzul2= "marker-azul.png"
If esteAzul = 6 Then esteAzul2= "marker-azul.png"
End If
End If