VERSION 6.03.18

- Agregamos vacuum al borrado de las coordenadas!

B4A/B4XMainPage.bas

@@ -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