cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

3/10/23 - Se agregó el respaldo diario y intercepción de notificaciones.

Browse Source 
- Se agregó el código para el respaldo diario de 4 tablas.
- Se agregóel codigo para interceptar notificacines y cambiar el servidor de DBRequest.
This commit is contained in:
cheveguerra
2023-10-03 16:01:28 -06:00
parent cb5e599542
commit 52bb35dbdc
10 changed files with 984 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
B4A/Starter.bas
View File

@@ -26,7 +26,7 @@ Sub Process_Globals
'Para ENVIA_ULTIMA_GPS
Dim Timer1 As Timer
Dim Interval As Int = 300
Dim server As String
Dim DBReqServer As String
Dim pe As PhoneEvents
Dim ph As Phone
Dim marcaCel As String = ph.manufacturer
@@ -66,15 +66,15 @@ Sub Service_Create
ubicacionActual.Initialize
pe.Initialize("pe") 'Para obtener la bateria
db = s.dbInit 'Inicializamos BD.
server = "http://keymon.lat:1782"
DBReqServer = "http://keymon.lat:1782"
Private c As Cursor = db.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'SERVER'"$)
If c.RowCount > 0 Then
c.Position = 0
server = c.GetString("CAT_VA_VALOR")
DBReqServer = c.GetString("CAT_VA_VALOR")
End If
c.Close
reqManager.Initialize(Me, server) 'Inicializamos reqManager.
If Logger Then Log($"Starter reqManager server: ${server}"$)
reqManager.Initialize(Me, DBReqServer) 'Inicializamos reqManager.
If Logger Then Log($"Starter reqManager server: ${DBReqServer}"$)
'Para los Logs
#if RELEASE
logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
@@ -133,10 +133,10 @@ Private Sub Timer1_Tick
ENVIA_ULTIMA_GPS 'Comentado para que no estorbe hasta que no esten los queries correctos en el config.properties
End Sub
Sub reinicializaReqManager
reqManager.Initialize(Me, server)
If Logger Then Log(server)
End Sub
'Sub reinicializaReqManager
' reqManager.Initialize(Me, server)
' If Logger Then Log(server)
'End Sub
Sub ENVIA_ULTIMA_GPS
If Logger Then Log("Iniciamos ENVIA_ULTIMA_GPS")
@@ -227,3 +227,12 @@ Sub revisaBD 'ignore
If Not(File.Exists(ruta, "kmt.db")) Then File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
If Not(db.IsInitialized) Then db.Initialize(ruta, "kmt.db", True)
End Sub
'Inicializa el reqServer con la dirección dada y lo guarda en CAT_VARIABLES.
Sub reinicializaReqManager(srv As String)
db.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
db.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER", srv))
DBReqServer = srv
reqManager.Initialize(Me, srv)
' LogColor(srv, Colors.red)
End Sub