cheveguerra/Mariana_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Reparto.git synced 2026-04-17 21:06:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
cvaldes1201
2024-02-26 11:10:17 -06:00
parent bc66ad5dbd
commit b001dcaa7d
1413 changed files with 3122 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/MAPA_RUTAS.bas
View File

@@ -147,13 +147,13 @@ Sub MapFragment1_Ready
Tienda= c.GetString("CAT_CL_NOMBRE")
ruta = c.GetString("CAT_CL_RUTA")
NumSerie = c.GetString("SECUENCIA")
If rutaAnt <> ruta Then esteAzul = esteAzul + 1
If esteAzul = 1 Then esteAzul2= "marker-azul-"&NumSerie&".png"
If esteAzul = 2 Then esteAzul2= "marker-azul1-"&NumSerie&".png"
If esteAzul = 3 Then esteAzul2= "marker-azul2-"&NumSerie&".png"
If esteAzul = 4 Then esteAzul2=gmap.HUE_AZURE+50
If esteAzul = 5 Then esteAzul2=gmap.HUE_AZURE+75
If esteAzul = 1 Then esteAzul2= NumSerie&"maker-azul.png"
If esteAzul = 2 Then esteAzul2= NumSerie&"maker-azul1.png"
If esteAzul = 3 Then esteAzul2= NumSerie&"maker-azul2.png"
If esteAzul = 4 Then esteAzul2= NumSerie&"maker-azul3.png"
If esteAzul = 5 Then esteAzul2= NumSerie&"maker-azul4.png"
Log(NumSerie&" "& Tienda&" --------"& esteAzul2&" --------"&esteAzul)
' Log(ruta & "|" & esteAzul & "|" & esteAzul2)
MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, esteAzul2))
MARK_AZUL.Snippet = "R: " & ruta & " - " & Tienda
@@ -177,7 +177,7 @@ Sub MapFragment1_Ready
Tienda= c2.GetString("CAT_CL_NOMBRE")
ruta = c2.GetString("CAT_CL_RUTA")
NumSerie = c2.GetString("SECUENCIA")
MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, "marker-verde-"&NumSerie&".png"))
MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, NumSerie&"marker-verde.png"))
MARK_VERDE.Snippet = "R:" & ruta & ", " & Tienda
Next
Else
@@ -215,7 +215,7 @@ Sub MapFragment1_Ready
ruta = c3.GetString("CAT_CL_RUTA")
CODIGO=c3.GetString("CAT_CL_CODIGO")
NumSerie = c3.GetString("SECUENCIA")
MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, "marker-rojo-"&NumSerie&".png"))
MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, NumSerie&"marker-rojo.png"))
MARK_ROJO.Snippet= "R:" & ruta & ", " & Tienda
Next
Else