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/C_Subs.bas

@@ -65,9 +65,9 @@ End Sub
 Sub fechaKMT(fecha As String) As String 'ignore
 '	Log(fecha)
 	Dim OrigFormat As String = DateTime.DateFormat  'save orig date format
-	DateTime.DateFormat="yyMMddHHmmss"
+	DateTime.DateFormat = "yyMMddHHmmss"
 	Dim nuevaFecha As String=DateTime.Date(fecha)
-	DateTime.DateFormat=OrigFormat  'return to orig date format
+	DateTime.DateFormat = OrigFormat  'return to orig date format
 '	Log(nuevaFecha)
 	Return nuevaFecha
 End Sub
@@ -75,10 +75,10 @@ End Sub
 'Escribimos las coordenadas y fecha a un archivo de texto 
 Sub guardaInfoEnArchivo(coords As String) 'ignore
 	'	Cambiamos el formato de la hora
-	Dim OrigFormat As String=DateTime.DateFormat  'save orig date format
+	Dim OrigFormat As String = DateTime.DateFormat  'save orig date format
 	DateTime.DateFormat="MMM-dd HH:mm:ss"
 	Dim lastUpdate As String=DateTime.Date(DateTime.Now)
-	DateTime.DateFormat=OrigFormat  'return to orig date format
+	DateTime.DateFormat = OrigFormat  'return to orig date format
 
 	Dim ubic As String = coords&","&lastUpdate
 	Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "gps.txt", True)
@@ -137,9 +137,9 @@ End Sub
 'Regresa la fecha y hora de hoy a las 00:00 en el formato "yyMMddHHMMSS"
 Sub fechaInicioHoy As String 'ignore
 	Dim OrigFormat As String = DateTime.DateFormat  'save orig date format
-	DateTime.DateFormat="yyMMdd"
+	DateTime.DateFormat = "yyMMdd"
 	Private h As String = DateTime.Date(DateTime.Now)&"000000"
-	DateTime.DateFormat=OrigFormat  'return to orig date format
+	DateTime.DateFormat = OrigFormat  'return to orig date format
 	Log("Hoy="&h)
 	Return h
 End Sub
@@ -210,10 +210,10 @@ Sub fechaKMT2Ticks(fKMT As String) As Long 'ignore
 			Private parteFecha As String = fKMT.SubString2(0,6)
 			Private parteHora As String = fKMT.SubString(6)
 			Private OrigFormat As String = DateTime.DateFormat  'save original date format
-			DateTime.DateFormat="yymmdd"
-			DateTime.TimeFormat="HHmmss"
+			DateTime.DateFormat = "yymmdd"
+			DateTime.TimeFormat = "HHmmss"
 			Private ticks As Long = DateTime.DateTimeParse(parteFecha,parteHora)
-			DateTime.DateFormat=OrigFormat  'return to original date format
+			DateTime.DateFormat = OrigFormat  'return to original date format
 			Return ticks
 		Else
 			Log("Formato de fecha incorrecto, debe de ser 'YYMMDDHHMMSS', no '"&fKMT&"' largo="&fKMT.Length)