Commit inicial

Mods.bas

@@ -0,0 +1,35 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=StaticCode
+Version=11
+@EndOfDesignText@
+'Code module
+Sub process_globals
+End Sub
+'Ver 3.07.07
+'Se hicieron ajustes a la precision minima y a como y cuando manda los datos al servidor.
+
+'Ver 2.01.29
+'Se paso a "Starter.Service_Create" el código para al iniciar, copiar la base de datos a la tarjeta.
+
+'Ver 2.01.14
+'Se cambio codigo en "FirebaseMessaging.SendMessage" para que mande la version en cada mensaje "Application.VersionName"
+
+'Agregué en Tracker:
+'Sub formatoFecha(fecha As String) As String
+'	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
+'	Log(lastUpdate)
+'	Return lastUpdate
+'End Sub
+
+'Modifique Tracker/flp_LocationChanged usando la funcion formatofecha:
+
+'	Dim coords As String = Location1.Latitude&","&Location1.Longitude&","&formatoFecha(DateTime.Now)
+
+'Modifiqué Tracker/dameUltimaUbicacionConocida usando la funcion formatofecha:
+'	Dim coords As String = FLP.GetLastKnownLocation.Latitude&","&FLP.GetLastKnownLocation.Longitude&","&formatoFecha(FLP.GetLastKnownLocation.Time)