From a6823eea4c4071bdbd435373b51a391fbcb0c61d Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Mon, 12 Feb 2024 12:15:41 -0600
Subject: [PATCH] =?UTF-8?q?Correccion=20en=20el=20env=C3=ADo=20de=20la=20u?=
 =?UTF-8?q?bicacion=20en=20tiempo=20real,=20porque=20mandaba=20mal=20el=20?=
 =?UTF-8?q?dia=20de=20la=20ruta!?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 B4A/C_Principal.bas         | 1 +
 B4A/Mariana Censos.b4a      | 4 ++--
 B4A/Mariana Censos.b4a.meta | 2 +-
 B4A/Starter.bas             | 7 ++++---
 4 files changed, 8 insertions(+), 6 deletions(-)

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