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

16/12/23 - Se agregó validacion para que si las coordenadas estan en blanco no mande error.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-16 17:21:54 -06:00
parent 21d8efa7dd
commit 6bd9ccb1d6
3 changed files with 17 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
MAPA_RUTAS.bas
View File

@@ -141,8 +141,12 @@ Sub MapFragment1_Ready
rutaAnt = ""
For i = 0 To c.RowCount -1
c.Position = i
LatitudRu = c.GetString("CAT_CL_LAT")
LongitudRU = c.GetString("CAT_CL_LONG")
' If c.GetString("CAT_CL_LAT") <> "" Then Log("full") Else Log("empty")
' Log($"|${c.GetString("CAT_CL_LAT")}|"$)
LatitudRu = 0
If c.GetString("CAT_CL_LAT").Length > 3 Then LatitudRu = c.GetString("CAT_CL_LAT")
Longitud = 0
If c.GetString("CAT_CL_LONG").Length > 3 Then LongitudRU = c.GetString("CAT_CL_LONG")
CODIGO=c.GetString("CAT_CL_CODIGO")
Tienda= c.GetString("CAT_CL_NOMBRE")
ruta = c.GetString("CAT_CL_RUTA")