cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-22 07:00:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.05.27

Browse Source 
- Prueba release
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-06-03 11:04:12 -06:00
parent 0263421175
commit 4bacb20c6a
6 changed files with 20 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -21,6 +21,8 @@ Version=9.85
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip 'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
Sub Class_Globals Sub Class_Globals
Private Root As B4XView Private Root As B4XView
' Dim rp As RuntimePermissions ' Dim rp As RuntimePermissions

2
B4A/C_Principal.bas
View File

@@ -588,7 +588,7 @@ Sub JobDone(Job As HttpJob)
B4XPages.ShowPage("B4XMainPage") B4XPages.ShowPage("B4XMainPage")
End If End If
Log("***************** "&n) Log("***************** "&n)
End If End If
If RESULT.Tag = "kmt_datos" Then 'query tag If RESULT.Tag = "kmt_datos" Then 'query tag
' Subs.logJobDoneResultados(RESULT) ' Subs.logJobDoneResultados(RESULT)

2
B4A/Mariana Censos.b4a
View File

File diff suppressed because one or more lines are too long

2
B4A/Mariana Censos.b4a.meta
View File

@@ -49,6 +49,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=1 ModuleClosedNodes8=1
ModuleClosedNodes9=1 ModuleClosedNodes9=1
NavigationStack=C_Principal,cargar_Click,507,0,Diseñador Visual,login.bal,-100,1,Starter,JobDone,133,6,Starter,Service_Destroy,71,0,B4XMainPage,JobDone,383,0,Starter,Service_Start,52,0,B4XMainPage,Entrar_Click,382,0,B4XMainPage,b_guardar_Click,642,0,Starter,ENVIA_ULTIMA_GPS,75,0,B4XMainPage,i_engrane_Click,639,0 NavigationStack=Subs,traeAlmacen,657,0,B4XMainPage,B4XPage_Created,190,0,Subs,traeUsarIntentBDWA,1332,4,B4XMainPage,B4XPage_Appear,225,0,Subs,importaBDDesdeWhatsApp,1341,6,Starter,JobDone,133,6,Starter,Process_Globals,20,0,Starter,Service_Create,35,0,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Created,240,0,C_Principal,JobDone,584,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=14,2,9,4,8,15,7,16,13,5 VisibleModules=14,2,9,4,8,15,7,16,13,5

19
B4A/Starter.bas
View File

@@ -24,7 +24,7 @@ Sub Process_Globals
' Dim server As String = "http://10.0.0.205:1782" ' Dim server As String = "http://10.0.0.205:1782"
' Dim server As String = "http://11.0.0.231:1782" ' Dim server As String = "http://11.0.0.231:1782"
Dim Timer1 As Timer Dim Timer1 As Timer
Dim Interval As Int = 10 Dim Interval As Int = 300
Dim ruta As String = File.DirInternal Dim ruta As String = File.DirInternal
'Para los Logs 'Para los Logs
Private logs As StringBuilder Private logs As StringBuilder
@@ -137,16 +137,17 @@ Sub JobDone(Job As HttpJob)
If resultado.Tag = "delCatRutas" Then If resultado.Tag = "delCatRutas" Then
Log(123) Log(123)
Subs.logJobDoneResultados(resultado) Subs.logJobDoneResultados(resultado)
Dim cmd As DBCommand If B4XPages.MainPage.principal.l_dia.IsInitialized Then
cmd.Initialize Dim cmd As DBCommand
cmd.Name = "insert_UTR_MARDS_C" cmd.Initialize
If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0" cmd.Name = "insert_UTR_MARDS_C"
cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.batt, B4XPages.MainPage.principal.l_dia.tag, B4XPages.MainPage.principal.l_nuevos_c.text, B4XPages.MainPage.principal.l_nuevos_p.text, Subs.traeRuta, B4XPages.MainPage.principal.l_total.text, Subs.traeUsuarioDeBD, B4XPages.MainPage.principal.l_visitados.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps) If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
If logger Then Log($"${Subs.traeAlmacen}, ${B4XPages.MainPage.batt}, ${B4XPages.MainPage.principal.l_dia.tag}, ${B4XPages.MainPage.principal.l_nuevos_c.text}, ${B4XPages.MainPage.principal.l_nuevos_p.text}, ${Subs.traeRuta}, ${B4XPages.MainPage.principal.l_total.text}, ${Subs.traeUsuarioDeBD}, ${B4XPages.MainPage.principal.l_visitados.text}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}"$) cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.batt, B4XPages.MainPage.principal.l_dia.tag, B4XPages.MainPage.principal.l_nuevos_c.text, B4XPages.MainPage.principal.l_nuevos_p.text, Subs.traeRuta, B4XPages.MainPage.principal.l_total.text, Subs.traeUsuarioDeBD, B4XPages.MainPage.principal.l_visitados.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
reqManager.ExecuteCommand(cmd, "ins_UTR") If logger Then Log($"${Subs.traeAlmacen}, ${B4XPages.MainPage.batt}, ${B4XPages.MainPage.principal.l_dia.tag}, ${B4XPages.MainPage.principal.l_nuevos_c.text}, ${B4XPages.MainPage.principal.l_nuevos_p.text}, ${Subs.traeRuta}, ${B4XPages.MainPage.principal.l_total.text}, ${Subs.traeUsuarioDeBD}, ${B4XPages.MainPage.principal.l_visitados.text}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}"$)
reqManager.ExecuteCommand(cmd, "ins_UTR")
End If
End If End If
End If End If
Job.Release Job.Release
End If End If
End Sub End Sub

9
B4A/Subs.bas
View File

@@ -1337,20 +1337,21 @@ Sub traeUsarIntentBDWA As Boolean 'ignore
x.Position = 0 x.Position = 0
If x.GetString("CAT_VA_VALOR") = "true" Then BDWA = True If x.GetString("CAT_VA_VALOR") = "true" Then BDWA = True
End If End If
' Log($"cb_importarBDWA = ${BDWA}"$)
Return BDWA Return BDWA
End Sub End Sub
' Se revisa si hay una intención (intent) de abrir una base de datos y si es así, entonces se importa esa base de datos. ' Se revisa si hay una intención (intent) de abrir una base de datos y si es así, entonces se importa esa base de datos.
Sub importaBDDesdeWhatsApp Sub importaBDDesdeWhatsApp
Log($"IMPORTAMOS BD DESDE WA"$)
Private tmpBDWA As Boolean = traeUsarIntentBDWA Private tmpBDWA As Boolean = traeUsarIntentBDWA
Log("IN: " & in.As(String))
Log("INTRNT USADO: " & intentUsado)
If Not(in.IsInitialized) Then in = B4XPages.GetNativeParent(B4XPages.MainPage).GetStartingIntent ' Si se usa esta funcion en Mainpage, se pone "Me" en lugar de B4XPages.MainPage. If Not(in.IsInitialized) Then in = B4XPages.GetNativeParent(B4XPages.MainPage).GetStartingIntent ' Si se usa esta funcion en Mainpage, se pone "Me" en lugar de B4XPages.MainPage.
If Not(intentUsado) And in <> Null Then If Not(intentUsado) And in <> Null Then
' Log(in)
intentUsado = True intentUsado = True
' Log(in.As(String)) Log(in.As(String))
If in.GetData <> Null Then If in.GetData <> Null Then
' Log(333) Log(333)
Dim XmlData As String Dim XmlData As String
XmlData = in.GetData XmlData = in.GetData
Try Try