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

Version: 5.03.31

Browse Source 
Se le agrego una vista al enviar informacion.
This commit is contained in:
IsR0d
2025-04-01 16:41:11 -06:00
parent c400659e06
commit c1df998ed6
489 changed files with 6317 additions and 4628 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/MAPA_RUTAS.bas
View File

@@ -58,6 +58,8 @@ Sub Globals
Dim CODIGO As String
Private SEMANA As String
' Dim ruta As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
@@ -152,9 +154,17 @@ Sub MapFragment1_Ready
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"
If esteAzul = 6 Then esteAzul2= NumSerie&"maker-azul5.png"
If esteAzul = 7 Then esteAzul2= NumSerie&"maker-azul7.png"
If esteAzul = 8 Then esteAzul2= NumSerie&"maker-azul8.png"
If esteAzul = 6 Then esteAzul2= NumSerie&"maker-azul.png"
If esteAzul = 7 Then esteAzul2= NumSerie&"maker-azul1.png"
If esteAzul = 8 Then esteAzul2= NumSerie&"maker-azul2.png"
If esteAzul = 9 Then esteAzul2= NumSerie&"maker-azul3.png"
If esteAzul = 10 Then esteAzul2= NumSerie&"maker-azul4.png"
If esteAzul = 11 Then esteAzul2= NumSerie&"maker-azul.png"
If esteAzul = 12 Then esteAzul2= NumSerie&"maker-azul1.png"
If esteAzul = 13 Then esteAzul2= NumSerie&"maker-azul2.png"
If esteAzul = 14 Then esteAzul2= NumSerie&"maker-azul3.png"
If esteAzul = 15 Then esteAzul2= NumSerie&"maker-azul4.png"
'
' Log(ruta & "|" & esteAzul & "|" & esteAzul2)
' Log(NumSerie&" "& Tienda&" --------"& esteAzul2&" --------"&esteAzul)
MARK_AZUL = gmap.AddMarker3(LatitudRu,LongitudRU,CODIGO,LoadBitmap(File.DirAssets, esteAzul2))