28/10/23 - Se agrega còdigo para indicar la fecha del respaldo a restaurar.

- Si se agrega un numero negativo despues de la contraseña de la carga local, se toma el respaldo de "hoy menos x dias" para restaurar.

B4A/Tracker.bas

@@ -98,7 +98,7 @@ Public Sub StartFLP
 	If logger Then Log("StartFLP - flpStarted="&flpStarted)
 	Do While FLP.IsConnected = False
 		Sleep(500)
-		If logger Then Log("sleeping")
+		If logger Then Log("kll - sleeping")
 	Loop
 '	If flpStarted = False Then
 '	If logger Then Log("RequestLocationUpdates")
@@ -113,7 +113,7 @@ Public Sub StartFLP2
 	If logger Then Log("StartFLP2 - flpStarted="&flpStarted)
 	Do While FLP.IsConnected = False
 		Sleep(500)
-		If logger Then Log("sleeping")
+		If logger Then Log("kll - sleeping")
 	Loop
 	dameUltimaUbicacionConocida 'Regresamos ultima ubicacion conocida
 	FLP.RequestLocationUpdates(CreateLocationRequest2) 'Buscamos ubicacion 2 peticiones
@@ -125,7 +125,7 @@ Public Sub StartFLPSmall
 '	Log("StartFLPSmall - flpStarted="&flpStarted)
 	Do While FLP.IsConnected = False
 		Sleep(500)
-		Log("sleeping")
+		If logger Then Log("kll - sleeping")
 	Loop
 	dameUltimaUbicacionConocida 'Regresamos ultima ubicacion conocida
 	FLP.RequestLocationUpdates(CreateLocationRequestSmallD) 'Buscamos ubicacion 2 peticiones
@@ -255,9 +255,9 @@ End Sub
 Sub formatoFecha(fecha As String) As String 'ignore 'Convierte una fecha al formato yyMMddHHmmss
 '	Log(fecha)
 	Dim OrigFormat As String = DateTime.DateFormat  'save orig date format
-	DateTime.DateFormat="yyMMddHHmmss"
-	Dim lastUpdate As String=DateTime.Date(fecha)
-	DateTime.DateFormat=OrigFormat  'return to orig date format
+	DateTime.DateFormat = "yyMMddHHmmss"
+	Dim lastUpdate As String = DateTime.Date(fecha)
+	DateTime.DateFormat = OrigFormat  'return to orig date format
 '	Log(lastUpdate)
 	Return lastUpdate
 End Sub