VERSION 6.03.18

- Agregamos vacuum al borrado de las coordenadas!
This commit is contained in:
2026-03-20 19:27:17 -06:00
parent 25ef7fedb8
commit 18bda794e6
2 changed files with 2 additions and 2 deletions

View File

@@ -129,7 +129,6 @@ Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
@@ -321,6 +320,7 @@ Sub B4XPage_Appear
Dim lastUpdate As String = DateTime.Date(fechaCorteLong)
' Borramos las coordenadas de mas de 60 dias de RUTA_GPS
Starter.skmt.ExecNonQuery2("DELETE FROM RUTA_GPS WHERE FECHA < ?", Array As String(lastUpdate))
Starter.skmt.ExecNonQuery("VACUUM")
Log("Borramos coords viejas: " & lastUpdate)
End Sub

View File

@@ -97,6 +97,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Tracker,formatoFecha,324,0,Tracker,Service_Destroy,314,0,Diseñador Visual,login.bal,-100,2,C_Principal,B4XPage_Created,210,0,C_NoVenta,GUARDA_Click,227,0,B4XMainPage,Class_Globals,24,0,Starter,Service_Create,40,0,C_Principal,B4XPage_Appear,225,0,C_Principal,e_ruta_EnterPressed,2029,6,B4XMainPage,B4XPage_Appear,310,2
NavigationStack=Tracker,Service_Destroy,314,0,Diseñador Visual,login.bal,-100,2,C_Principal,B4XPage_Created,210,0,C_NoVenta,GUARDA_Click,227,0,Starter,Service_Create,40,0,C_Principal,B4XPage_Appear,225,0,C_Principal,e_ruta_EnterPressed,2029,6,B4XMainPage,Class_Globals,120,0,B4XMainPage,Initialize,125,0,B4XMainPage,B4XPage_Appear,316,2
SelectedBuild=0
VisibleModules=30,2,17,7,8,14,31,23,32