se ajusta el proceso para mostrar los clientes aunque no tengan coordenadas

B4A/C_Clientes.bas

@@ -176,13 +176,13 @@ 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
+'				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
 
 

B4A/Intmex_Reparto.b4a.meta

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Cliente,Guardado,462,0,C_NoVenta,GUARDA_Click,63,0,C_Principal,B4XPage_Appear,371,0,Starter,IsConnectedToInternet,139,0,Starter,ENVIA_ULTIMA_GPS,115,0,Starter,Service_Destroy,86,0,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,1060,0,C_Clientes,Class_Globals,27,6,C_Clientes,ListView1_ItemClick,177,6
+NavigationStack=C_Cliente,Guardado,462,0,C_NoVenta,GUARDA_Click,63,0,C_Principal,B4XPage_Appear,371,0,Starter,IsConnectedToInternet,139,0,Starter,ENVIA_ULTIMA_GPS,115,0,Starter,Service_Destroy,86,0,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,1060,0,C_Clientes,Class_Globals,27,6,C_Clientes,ListView1_ItemClick,173,6
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,28,16
+VisibleModules=1,2,3,4,5,6,7,8,9,10