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

Correccion en el envío de la ubicacion en tiempo real, porque mandaba mal el dia de la ruta!

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-12 12:15:41 -06:00
parent 62f1609c4b
commit a6823eea4c
4 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/C_Principal.bas
View File

@@ -386,6 +386,7 @@ Sub B4XPage_Appear
l_ruta.Text = cs.Append("RUTA ").Color(Colors.RGB(165, 42, 42)).Append(f.GetString("CAT_CL_RUTA")).pop.Append(" CARGADA").popall
cs.Initialize
l_dia.Text = cs.Append("DÍA CARGADO: ").Bold.Append(f.GetString("CAT_CL_DIASEMANA")).PopAll
l_dia.Tag = f.GetString("CAT_CL_DIASEMANA")
End If
f.Close
c.Close

4
B4A/Mariana Censos.b4a
View File

@@ -748,12 +748,12 @@ Module9=C_Principal
NumberOfFiles=349
NumberOfLibraries=30
NumberOfModules=16
Version=12.5
Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Mariana Censos
#VersionCode: 1
#VersionName: 4.02.01
#VersionName: 4.02.10
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Mariana Censos.b4a.meta
View File

@@ -49,6 +49,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=9,13,14,17
ModuleClosedNodes9=1
NavigationStack=C_Cliente,cb_diaSemana_SelectedIndexChanged,706,0,C_Cliente,q_preguntaContestada,765,0,C_Cliente,Class_Globals,141,0,C_NuevoCliente,Class_Globals,5,0,C_NuevoCliente,B4XPage_CloseRequest,399,0,C_Cliente,B4XPage_Appear,202,0,C_Cuestionario,Class_Globals,0,0,C_Cuestionario,pSombra_Click,109,0,C_Cuestionario,preguntaContestada,108,0,C_Cuestionario,agregaPregunta,100,1
NavigationStack=C_Principal,B4XPage_Appear,382,2,C_NuevoCliente,B4XPage_CloseRequest,399,0,C_Cliente,B4XPage_Appear,202,0,C_Cuestionario,Class_Globals,0,0,C_Cuestionario,pSombra_Click,109,0,C_Cuestionario,preguntaContestada,108,0,C_Cuestionario,agregaPregunta,102,1,Starter,ENVIA_ULTIMA_GPS,84,6,Starter,JobDone,131,2,Main,Activity_Create,27,0
SelectedBuild=0
VisibleModules=2,14,6,9,4,8,5,15,7,16

7
B4A/Starter.bas
View File

@@ -86,7 +86,8 @@ Sub ENVIA_ULTIMA_GPS
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "deleteRutaCensos2"
cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.principal.l_ruta.text, Subs.traeUsuarioDeBD)
cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta, Subs.traeUsuarioDeBD)
Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${Subs.traeUsuarioDeBD}"$)
reqManager.ExecuteCommand(cmd , "delCatRutas")
End If
@@ -137,8 +138,8 @@ Sub JobDone(Job As HttpJob)
cmd.Initialize
cmd.Name = "insert_UTR_MARDS_C"
If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.batt, B4XPages.MainPage.principal.l_dia.text, 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 logger Then Log($"${Subs.traeAlmacen}, ${B4XPages.MainPage.batt}, ${B4XPages.MainPage.principal.l_dia.text}, ${B4XPages.MainPage.principal.l_nuevos_c.text}, ${B4XPages.MainPage.principal.l_nuevos_p.text}, ${B4XPages.MainPage.principal.l_ruta.Text}, ${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)
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