VERSION 6.03.18

- Se agrego query oara borrar coordendas viejas de RUTA_GPS

B4A/B4XMainPage.bas

@@ -302,7 +302,7 @@ Sub B4XPage_Appear
 		usuario = c.GetString("USUARIO")
 	End If
 	c.Close
-	
+
 	cb_importarBDWA.Checked = Subs.traeUsarIntentBDWA
 	If user.Text.Trim = "KMTS1" Then
 		p_importarBDWA.Visible = True
@@ -314,6 +314,14 @@ Sub B4XPage_Appear
 '	If Result Then
 '		Log("Con permisos de escritura externa")
 '	End If
+
+	DateTime.DateFormat = "yyMMddHHmmss"
+	' Calculamos la fecha de hace 60 días
+	Dim fechaCorteLong As Long = DateTime.Add(DateTime.Now, 0, 0, -60)
+	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))
+	Log("Borramos coords viejas: " & lastUpdate)
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.