mirror of
https://github.com/cheveguerra/FLP_2.0.git
synced 2026-04-17 19:36:42 +00:00
36 lines
1.2 KiB
QBasic
36 lines
1.2 KiB
QBasic
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)
|