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

Para que se muestre los clientes si tiene coordenadas en 0

Browse Source
This commit is contained in:
cvaldes1201
2024-04-26 09:25:01 -06:00
parent 6bd9ccb1d6
commit 5f700af26c
3 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
colonia.bas
View File

@@ -197,6 +197,9 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
If c2.GetString("CAT_CL_LONG").Length > 3 Then thisLoc.Longitude = c2.GetString("CAT_CL_LONG")
Private distancia As Int = Tracker.UUGCoords.DistanceTo(thisLoc) 'Calculamos la distancia de la posicion ACTUAL a la tienda.
Private esteCliente As Map = CreateMap("distancia": distancia, "ubicacion": thisLoc.Longitude&","&thisLoc.Latitude, "codigo": c2.GetString("CAT_CL_CODIGO"), "nomDirDist": $"${c2.GetString("CAT_CL_NOMBRE")} CALLE: ${c2.GetString("CAT_CL_CALLE")} ${CRLF}Distancia: $1.1{(distancia/1000)} kms"$)
If c2.GetString("CAT_CL_LAT").Length < 3 Then
distancia = i
End If
distOrderedMap.Put(distancia, esteCliente)
Next
distOrderedMap.Keys.Sort(True) 'Ordenamos la mapa de clientes por distancia.

2
intmex_reparto.b4a
View File

@@ -131,7 +131,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: Intmex-Reparto
#VersionCode: 1
#VersionName: 3.11.05
#VersionName: 4.04.20
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
intmex_reparto.b4a.meta
View File

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=2,7,11
ModuleClosedNodes9=
NavigationStack=seleccion,Globals,83,0,Starter,ENVIA_ULTIMA_GPS,110,0,Main,Process_Globals,28,0,seleccion,Activity_Resume,185,3,seleccion,Subir_Click,464,6,seleccion,cargar_Click,483,0,Subs,revisaBD,191,0,Main,Activity_Create,77,0,MAPA_RUTAS,MapFragment1_Ready,140,6,colonia,ListView1_ItemClick,189,1,colonia,traeTodosAVisitar,565,4
NavigationStack=Starter,ENVIA_ULTIMA_GPS,110,0,Main,Process_Globals,28,0,seleccion,Activity_Resume,185,3,seleccion,Subir_Click,464,6,seleccion,cargar_Click,483,0,Subs,revisaBD,191,0,Main,Activity_Create,77,0,MAPA_RUTAS,MapFragment1_Ready,140,6,colonia,traeTodosAVisitar,556,4,colonia,ListView1_ItemClick,194,6
SelectedBuild=0
VisibleModules=19,23,20,18,4,5,8,15,6,9,13
VisibleModules=19,23,20,18,4,5,8,15,6,9