VERSION 6.01.06

- Se cambio el query para as rutas espejo

B4A/C_Cliente.bas

@@ -531,29 +531,27 @@ Sub GPS_LocationChanged (Location1 As Location)
 	If m_lat.Length < 5 Then
 		
 	Else
-			
+		Dim l1, l2 As Location
+		l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
+		Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
+		l2.Initialize2(m_lat, m_lon)
 	
-	Dim l1, l2 As Location
-	l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
-	Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
-	l2.Initialize2(m_lat, m_lon)
-	
-	BT_QR.Enabled = True
-	LA_GPS.TextColor = Colors.Blue
-	LA_GPS.Text = "CON UBICACION GPS"
-'	B_GPS.Enabled = True
-	'now we need the distance between our location and the target location
-	distance =    l1.DistanceTo(l2)  'the result is in meter
-	gest.Visible = True
-	If distance < 500000000000000000000000000000000000000000000000000 Then
-		LA_GEO.TextColor = Colors.Blue
-		Tels.Visible = True
+		BT_QR.Enabled = True
+		LA_GPS.TextColor = Colors.Blue
+		LA_GPS.Text = "CON UBICACION GPS"
+'		B_GPS.Enabled = True
+		'now we need the distance between our location and the target location
+		distance =    l1.DistanceTo(l2)  'the result is in meter
 		gest.Visible = True
-		bitacora.inicioFin
+		If distance < 50 Then
+			LA_GEO.TextColor = Colors.Blue
+			Tels.Visible = True
+			gest.Visible = True
+			bitacora.inicioFin
 '		bitacora.p_transparenteInicioFin2.Visible = True
 '		bitacora.b_Inicio_Fin_venta2.Visible = True
-		b_ventaabordo.Visible = True
-	Else
+			b_ventaabordo.Visible = True
+		Else
 		Tels.Visible = False
 		gest.Visible = False
 		bitacora.p_transparenteInicioFin2.Visible = False