VERSION 5.12.16

- Se agregó el codigo para los recordatorios a las 13:00 y a las 14:00.
- Se cambio el timer para la ubicacion en tiempo real a 5 minutos (estaba en 10 seg)

B4A/C_Clientes.bas

@@ -70,6 +70,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	B4XPages.mainpage.pantallaActual = Root
 	l_baseodia.Text = "Clientes del día de visita"
 	CHECK = 0
 	busca.Text = ""
@@ -87,7 +88,7 @@ Sub B4XPage_Appear
 '		Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
 		GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
 	End If
-	
+
 	CustomListView1.Clear
 	For i = 0 To c.RowCount - 1
 		c.Position = i