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:
Isaac
2025-01-29 11:49:22 -06:00
parent 6804aad801
commit 876cf97e6b
404 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/MAPA_RUTAS.bas
View File

@@ -155,7 +155,7 @@ Sub MapFragment1_Ready
If esteAzul = 5 Then esteAzul2= NumSerie&"marker-azul4.png"
Log(NumSerie&" "& Tienda&" --------"& esteAzul2&" --------"&esteAzul)
' Log(ruta & "|" & esteAzul & "|" & esteAzul2)
MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, esteAzul2))
MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmapResize(File.DirAssets, esteAzul2 ,72, 115, True))
MARK_AZUL.Snippet = "R: " & ruta & " - " & Tienda
rutaAnt = ruta
Next
@@ -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, NumSerie&"marker-verde.png"))
MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmapResize(File.DirAssets, NumSerie&"marker-verde.png" ,72, 115, True))
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, NumSerie&"marker-rojo.png"))
MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmapResize(File.DirAssets, NumSerie&"marker-rojo.png" ,72, 115, True))
MARK_ROJO.Snippet= "R:" & ruta & ", " & Tienda
Next
Else