-VERSION 5.06.26

- Cambio de 50 segundos a 10 segundos en la revision de la hora para los recordatorios.
- Cambio en el envio de la ruta para la contraseña de la geocerca, si no habia cliente seleccionado, no regresaba la ruta correcta.

B4A/B4XMainPage.bas

@@ -898,7 +898,15 @@ Private Sub b_passGeocerca_Click
 	cmd.Initialize
 	cmd.Name = "traePassGeocerca"
 	cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta, et_passGeocerca.text)
-	Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${et_passGeocerca.text}"$)
+	
+	c=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
+	Private r As String = "0"
+	If c.RowCount > 0 Then
+		c.Position=0
+		r = c.GetString("CAT_CL_RUTA")
+	End If
+	
+	Log($"${Subs.traeAlmacen}, ${r}, ${et_passGeocerca.text}"$)
 	reqManager.ExecuteQuery(cmd , 0, "traePassGeocerca")
 	
 '	If et_passGeocerca.Text = "12345" Then
@@ -914,7 +922,7 @@ End Sub
 Private Sub p_geocerca_Click
 	Log("CLICKED")
 	Dim activa As Int = 1
-	If Subs.estamosEnAlmacen(50) Then
+	If Subs.estamosEnAlmacen(500) Then
 		If l_geocerca.Text <> "Buscando ubicación ..." Then
 			If passSupervisor = "" Then
 				p_transparente.Visible = True