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

9/11/23 - Código para Respaldo Diario en Android 10.

Browse Source 
- En Android 10, el código para ManageExternalStorage no funciona, asi que si se detecta que el directorio (skmt) no se creo, se manda la BD al directorio seguro en la sdcard (sdcard/Android/data/kelloggs ...)
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-09 20:56:15 -06:00
parent db6cf8d7ab
commit ea1bb8d292
10 changed files with 292 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
B4A/C_Principal.bas
View File

@@ -15,7 +15,7 @@ Sub Class_Globals
Dim t1 As Timer
Dim t2 As Timer
Private t3 As Timer
Dim inicioContador As String
Dim inicioContador As Double
'//Globals
Dim trabajar As Button
@@ -626,6 +626,7 @@ Sub cargar_Click
DateTime.TimeFormat = "HHmmss"
inicioContador = DateTime.Now
reqManager.trackInit
cmd.Initialize
cmd.Name = "SELECT_HIST_ENCUESTA_KELL"
@@ -635,7 +636,6 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "SELECT_EXHIBIDOR_RUTA_KELL"
cmd.Parameters = Array As Object( e_ruta.text )
If logger Then Log(e_ruta.TEXT)
reqManager.ExecuteQuery(cmd , 0, "exhibidores")
cmd.Initialize 'Para traer la contraseña del candado de "FIN DIA"
@@ -856,13 +856,7 @@ End Sub
Sub JobDone(Job As HttpJob)
Log("JOBDONE PRINCIPAL")
If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
' LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
End If
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
End If
reqManager.trackNext(Job)
If Not(Job.Success) Then
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
If Job.ErrorMessage = "STREAM" Then
@@ -879,7 +873,7 @@ Sub JobDone(Job As HttpJob)
End If
End If
Else
If logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211110
' If logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211110
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "kmt_datos" Then 'query tag
@@ -1564,7 +1558,7 @@ Sub JobDone(Job As HttpJob)
If RESULT.Rows.Size = 0 Then ToastMessageShow("No hay ruta para ese usuario", True)
For Each records() As Object In RESULT.Rows
Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO"))
if starter.Logger then Log("|"&VALIDO&"|")
If Starter.Logger Then Log("|"&VALIDO&"|")
' If Logger Then Log(records(RESULT.Columns.Get("CAT_RU_CATEGORIA")))
Starter.rutaTipo = records(RESULT.Columns.Get("CAT_RU_CATEGORIA")) 'Traemos el tipo de ruta para que cuando sean foraneas no carguen la carta porte todos los dias.
If Starter.Logger Then Log($"========= TIPO RUTA = ${Starter.rutaTipo}"$)
@@ -1761,7 +1755,7 @@ Sub JobDone(Job As HttpJob)
' ToastMessageShow("LISTA DE PRECIOS OK LISTA DE PRECIOS OK", True)
End If
End If
'Candado Fin Dia
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
@@ -1915,6 +1909,14 @@ Sub JobDone(Job As HttpJob)
If PB2.Progress = 100 Then S_CP.Text = "LISTO"
Job.Release
Log($"tiempo Request "${Job.Tag}": ${((reqManager.inicioJobDone - reqManager.inicioRequest)/1000)}"$)
Log($"tiempo JobDone "${Job.Tag}": ${((DateTime.Now - reqManager.inicioJobDone)/1000)}"$)
Log($"tiempo Total "${Job.Tag}": ${((DateTime.Now - inicioContador)/1000)}"$)
Log(reqManager.requestTimes(Job.Tag))
' Log($"tiempo Total "${Job.Tag}": ${((DateTime.Now - inicioContador)/1000)}"$)
' reqManager.PrintTable(RESULT)
End Sub
Private Sub B4XPage_CloseRequest As ResumableSub
@@ -1964,7 +1966,7 @@ Sub connecta_Click
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then Log("Tenemos permisos de bluetooth.")
Log($"Resultado del CheckAndRequest: ${Result}"$)
Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
' Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
' c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("RUTA"))
' c.Position =0
@@ -1978,7 +1980,7 @@ Sub connecta_Click
Dim m As Matcher = Regex.Matcher("\d+", e_ruta.Text) 'Buscamos numeros en el campo de la ruta
If m.Find Then e_ruta.Text = m.Match ' Si tiene numeros, solo nos quedamos con ellos.
If e_ruta.Text.Length > 6 Then e_ruta.Text = e_ruta.Text.SubString2(0,6) ' Si tiene mas de 6 numeros solo tomamos los primeros 6
If logger Then Log(e_ruta.Text)
' If logger Then Log(e_ruta.Text)
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
@@ -1993,6 +1995,9 @@ Sub connecta_Click
' End If
' Log("Terminamos permisos")
conn = "1"
reqManager.trackInit
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_KELL"