5.09.01

Se cambia querie para descargar clientes nuevos
Se cambia proceso para que si hay coordenadas en 0 de multiples clientes si los muestre

B4A/C_Clientes.bas

@@ -29,8 +29,9 @@ Sub Class_Globals
 	Dim listaWayPoints As List
 	Dim lv1Top As String
 	Private b_limpiarRuta As Button
-	Dim rutaGenerada As Boolean = False
+	Dim rutaGenerada As Boolean = False 
 	Dim rutaacambiar As String
+	Dim distanciacero as Int = 0
 End Sub
 
 'You can add more parameters here.
@@ -167,6 +168,7 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 		If entro = 2 Then ListView1.TwoLinesLayout.ItemHeight = 90dip
 		lfila.text = "Nombre y Calle"
 		distOrderedMap.Initialize
+		
 		If c2.RowCount > 0 Then
 			For i = 0 To c2.RowCount -1 'Generamos mapa de clientes
 				c2.Position = i
@@ -174,10 +176,23 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 				thisLoc.Longitude = c2.GetString("CAT_CL_LONG")
 '				Log(Tracker.UUGCoords)
 				Private distancia As Int = Tracker.UUGCoords.DistanceTo(thisLoc) 'Calculamos la distancia de la posicion ACTUAL a la tienda.
+				If distancia = 0 And distanciacero = 0 Then
+					distancia = distancia + i
+					distanciacero = distancia
+				Else If distanciacero <> 0 And distancia = 0 Then
+					distancia = distanciacero + i
+					distanciacero = distancia
+				End If
+'				distancia = distancia + i  'comentar la linea despues de tener las coordenadas correctas
+
+
 				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"$)
+				
 				distOrderedMap.Put(distancia, esteCliente)
+				
 			Next
 			distOrderedMap.Keys.Sort(True) 'Ordenamos la mapa de clientes por distancia.
+			Log(distOrderedMap)
 			ListView1.Clear
 			Private m1 As Map
 			For Each k As Object In distOrderedMap.Keys  'Generamos el listView con el mapa ordenada.