Cambios en como se envian los cambios de ubicacion y como se mantiene el servicio activo

Subs.bas

@@ -155,6 +155,16 @@ Sub fechaKMT(fecha As String) As String 'ignore
 	Return nuevaFecha
 End Sub
 
+'Convierte una fecha al formato yyMMddHHmmss
+Sub fechaNormal(fecha As String) As String 'ignore
+'	Log(fecha)
+	Dim OrigFormat As String = DateTime.DateFormat  'save orig date format
+	DateTime.DateFormat="MM/dd HH:mm:ss"
+	Dim nuevaFecha As String = DateTime.Date(fecha)
+	DateTime.DateFormat=OrigFormat  'return to orig date format
+	Return nuevaFecha
+End Sub
+
 'Sub dameUltimaUbicacionConocida(lastLocation As Location)
 '	Log(0)
 '	If Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Mandamos ultima ubicacion guardada
@@ -186,3 +196,16 @@ Sub ConvertMillisecondsToString(t As Long) As String 'ignore
 	seconds = (t Mod DateTime.TicksPerMinute) / DateTime.TicksPerSecond
 	Return $"$1.0{hours}:$2.0{minutes}:$2.0{seconds}"$
 End Sub
+
+Sub bitacora(texto As String) 'ignore
+'	Log(fechaNormal(DateTime.now))
+	gps_hist.ExecNonQuery($"insert into BITACORA (RUTA, TEXTO, FECHA) values ('${Starter.devModel}', '${texto}', '${fechaNormal(DateTime.now)}')"$)
+End Sub
+
+'Borramos renglones extra de la tabla de errores
+Sub borraArribaDe10000Bitacora 'ignore
+	If Starter.logger Then LogColor("Recortamos la tabla de bitacora, limite de 10,000", Colors.Magenta)
+	gps_hist.ExecNonQuery("DELETE FROM bitacora WHERE fecha NOT in (SELECT fecha FROM bitacora ORDER BY fecha desc LIMIT 9999 )")
+	gps_hist.ExecNonQuery("vacuum;")
+'	if starter.logger then Log("Borramos mas de 100 de errorLog")
+End Sub