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)