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

- VERSION 5.06.08

Browse Source 
- Se implementaron los globos dinamicos en el mapa.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-06-09 10:47:23 -06:00
parent 07bc4afb70
commit 3d462cbbd7
613 changed files with 79 additions and 650 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/MAPA_RUTAS.bas
View File

@@ -179,7 +179,8 @@ Sub MapFragment1_Ready
CODIGO=c.GetString("CAT_CL_CODIGO")
Tienda= c.GetString("CAT_CL_NOMBRE")
NumSerie=c.GetInt("CAT_CL_SECUENCIA")
MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, LoadBitmap(File.DirAssets, "marker-azul-" & NumSerie &".png"))
' MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, LoadBitmap(File.DirAssets, "marker-azul-" & NumSerie &".png"))
MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-azul.png"), NumSerie))
MARK_AZUL.Snippet = Tienda
Next
End If
@@ -202,7 +203,8 @@ Sub MapFragment1_Ready
CODIGO=c2.GetString("CAT_CL_CODIGO")
Tienda= c2.GetString("CAT_CL_NOMBRE")
NumSerie=c2.GetInt("CAT_CL_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, "marker-verde-"&NumSerie&".png"))
MARK_VERDE = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-verde.png"), NumSerie))
MARK_VERDE.Snippet = Tienda
End If
Next
@@ -229,7 +231,8 @@ Sub MapFragment1_Ready
CODIGO = c3.GetString("CAT_CL_CODIGO")
NumSerie=c3.GetInt("CAT_CL_SECUENCIA")
' Log($"${Tienda}|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, "marker-rojo-"&NumSerie&".png"))
' MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, "marker-rojo-"&NumSerie&".png"))
MARK_ROJO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-rojo.png"), NumSerie))
MARK_ROJO.Snippet = Tienda
Next
c3.Close
@@ -248,7 +251,8 @@ Sub MapFragment1_Ready
CODIGO = c3.GetString("CAT_CL_CODIGO")
NumSerie=c3.GetInt("CAT_CL_SECUENCIA")
' Log($"${Tienda}|${c3.GetString("CAT_CL_LONG")}|${c3.GetString("CAT_CL_LAT")}|"$)
MARK_NEGRO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, "marker-negro-"&NumSerie&".png"))
' MARK_NEGRO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, "marker-negro-"&NumSerie&".png"))
MARK_NEGRO = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO, Subs.CreateBitmapWithNumber(LoadBitmap(File.DirAssets, "marker-negro.png"), NumSerie))
' MARK_NEGRO = gmap.AddMarker2(LatitudRu,LongitudRU,CODIGO, gmap.HUE_ORANGE)
MARK_NEGRO.Snippet = Tienda
Next