From 1b7b3bf665c37e2b5ea6aadbba1d4a51ff3c61f0 Mon Sep 17 00:00:00 2001 From: jalarakmt Date: Wed, 8 Apr 2026 12:44:50 -0600 Subject: [PATCH] =?UTF-8?q?Se=20agrega=20el=20envio=20de=20versi=C3=B3n=20?= =?UTF-8?q?al=20tmp=5Fdrop=5Freparto=20y=20lo=20agrega=20al=20campo=20tmp?= =?UTF-8?q?=5Fdpr=5Fversion?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 12 ++++++++++++ B4A/Mariana_Reparto.b4a.meta | 4 ++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 2de8aeb..700e1a6 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -811,8 +811,13 @@ Sub Subir_Click ' cmd.Name = "select_estatus_MAZAPA" ' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text) ' reqManager.ExecuteQuery(cmd , 0, "estatus") + + End Sub + + + 'Sub envioinfo ' ' @@ -1986,6 +1991,13 @@ Sub connecta_Click reqManager.ExecuteQuery(cmd , 0, "ruta") ToastMessageShow("Validando Conexión." , True) + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_drop_rep_mards" + cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO",Application.VersionName) + reqManager.ExecuteCommand(cmd , "inst_drop") + ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) + B4XPages.MainPage.rutaPreventa = e_ruta.TEXT End If End Sub diff --git a/B4A/Mariana_Reparto.b4a.meta b/B4A/Mariana_Reparto.b4a.meta index 1b55a7d..6bb2151 100644 --- a/B4A/Mariana_Reparto.b4a.meta +++ b/B4A/Mariana_Reparto.b4a.meta @@ -94,6 +94,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9=8,9 -NavigationStack=C_Principal,connecta_Click,1976,0,C_Principal,B4XPage_CloseRequest,1958,0,C_Principal,b_venta_emp_Click,2406,0,C_deviceLinker,GetDeviceGUID,165,0,C_deviceLinker,JobDone,223,0,C_Principal,cargar_Click,1066,0,C_Principal,JobDone,1772,0,C_Principal,e_ruta_EnterPressed,2046,0,C_deviceLinker,verifyDevice,118,0,C_Principal,Linker_Response,2455,6 +NavigationStack=C_deviceLinker,verifyDevice,118,0,B4XMainPage,B4XPage_Created,208,0,appUpdater,Service_Start,134,0,C_Principal,Linker_Response,2407,6,Starter,ENVIA_ULTIMA_GPS,95,0,B4XMainPage,B_PC_ENV_Click,776,0,B4XMainPage,enviarmonto,653,0,B4XMainPage,b_envioBD_Click,561,0,C_Principal,Subir_Click,809,0,C_Principal,connecta_Click,1984,0 SelectedBuild=0 -VisibleModules=29,2,3,4,5,6,7,8,9,11,17,10 +VisibleModules=29,2,3,4,5,6,7,8,9,11,17,1