diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 8e69495..df5dff7 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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 diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index 25f4712..d91a942 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -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 diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index 0e73e4c..dfd4146 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -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 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index bf975fa..6132396 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -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