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

5.08.29

Browse Source
This commit is contained in:
Javier
2025-09-01 13:37:04 -06:00
parent cb8c745939
commit d5b75b249a
16 changed files with 3360 additions and 531 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
B4A/MAPA_RUTAS.bas
View File

@@ -161,11 +161,37 @@ Sub MapFragment1_Ready
' If esteAzul = 4 Then esteAzul2= NumSerie&"marker-azul3.png"
' If esteAzul = 5 Then esteAzul2= NumSerie&"marker-azul4.png"
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"
Dim pedidos As Cursor = Starter.skmt.ExecQuery2("select * from HIST_VENTAS WHERE HVD_CLIENTE = ?", Array As String(c.GetString("CAT_CL_CODIGO")))
Log(c.GetString("CAT_CL_CODIGO")&" "& pedidos.RowCount)
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"
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"
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"
End If
End If
' MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-verde.png"), i+350))
' Log(ruta & "|" & esteAzul & "|" & esteAzul2)