From a615964c97528106389deb7d884aa7d1f5dda4e2 Mon Sep 17 00:00:00 2001 From: cheveguerra Date: Tue, 3 Oct 2023 13:39:59 -0600 Subject: [PATCH] =?UTF-8?q?3/10/23=20-=20Cambios=20en=20UTR=20-=20Se=20cam?= =?UTF-8?q?bi=C3=B3=20"ubicacion=20en=20tiempo=20real"=20para=20que=20actu?= =?UTF-8?q?alize=20por=20ruta=20y=20usuario.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/Mariana Censos.b4a.meta | 2 +- B4A/Starter.bas | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index 827b58a..78d4ef3 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -46,6 +46,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=5,6,9,11,12,13,14,16,17,18 ModuleClosedNodes8=3 ModuleClosedNodes9= -NavigationStack=C_Clientes,p_clientes_Click,250,0,C_Clientes,CreateListItem,112,6,C_Principal,cargar_Click,509,2,Visual Designer,cliente.bal,-100,5,C_Clientes,B4XPage_Appear,97,6,C_Clientes,clv_clientes_ItemClick,140,5,C_Clientes,BUSCA_TextChanged,219,2,Visual Designer,clientesItem.bal,-100,6,Visual Designer,clientes.bal,-100,6,C_Clientes,Class_Globals,13,0 +NavigationStack=C_Clientes,B4XPage_Appear,97,6,C_Clientes,clv_clientes_ItemClick,140,5,C_Clientes,BUSCA_TextChanged,219,2,Visual Designer,clientesItem.bal,-100,6,Visual Designer,clientes.bal,-100,6,C_Clientes,Class_Globals,18,0,Starter,Service_Create,44,0,Starter,JobDone,115,0,C_Principal,B4XPage_Appear,394,0,Starter,ENVIA_ULTIMA_GPS,81,2 SelectedBuild=0 VisibleModules=2,13,8,4,5,14,7,11,6,10 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 1838833..8c1a53b 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -85,8 +85,8 @@ Sub ENVIA_ULTIMA_GPS 'y LUEGO lo insertamos en JobDone Dim cmd As DBCommand cmd.Initialize - cmd.Name = "deleteRutaCensos" - cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.principal.l_ruta.text) + cmd.Name = "deleteRutaCensos2" + cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.principal.l_ruta.text, Subs.traeUsuarioDeBD) reqManager.ExecuteCommand(cmd , "delCatRutas") End If