- VERSION 5.07.07

- Se hicieron cambios en el codigo de la geocerca en cliente.

B4A/C_Cliente.bas

@@ -150,6 +150,7 @@ Sub Class_Globals
 	Private p_passGeocerca As Panel
 	Private b_passGeocerca As Button
 	Private et_passGeocerca As EditText
+	dim l_geoAlmacen As Label
 End Sub
 
 'You can add more parameters here.
@@ -212,6 +213,8 @@ End Sub
 
 Sub B4XPage_Appear
 	distance = 500000000000
+	B4XPages.MainPage.lon_gps = 0
+	B4XPages.MainPage.lat_gps = 0
 	B4XPages.mainpage.pantallaActual = Root
 	b_noVenta.Enabled = True
 	b_venta.Enabled = True
@@ -381,6 +384,7 @@ Sub B4XPage_Appear
 		b_venta.Visible = False
 		b_noVenta.Visible = False
 	End If
+	Subs.estamosEnAlmacen(50)
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -1080,7 +1084,7 @@ End Sub
 
 Private Sub b_passGeocerca_Click
 	Log("b_passGeocerca clicked")
-	ToastMessageShow("¡Un momento por favor!", false)
+	ToastMessageShow("¡Un momento por favor!", False)
 	b_passGeocerca.Enabled = False
 	If et_passGeocerca.Text.Trim = "KMTS1" Then
 		ToastMessageShow("¡¡Listo!!", False)