From 0b4e74c823413c2251742facd001d26acc6a1e2c Mon Sep 17 00:00:00 2001 From: jalarakmt Date: Mon, 13 Apr 2026 10:03:40 -0600 Subject: [PATCH] =?UTF-8?q?Se=20agrega=20el=20envi=C3=B3=20de=20versi?= =?UTF-8?q?=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 14 ++++++++++---- B4A/Profina_reparto.b4a.meta | 2 +- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 32896db..3e9a2ce 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1088,8 +1088,8 @@ Sub envioinfo ' c.Close Dim cmd As DBCommand cmd.Initialize - cmd.Name = "insert_drop_rep_PROFINA_VN" - cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO") + cmd.Name = "insert_drop_rep_PROFINA_VN2" + 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) End Sub @@ -1132,7 +1132,7 @@ Sub cargar_Click Dim cmd As DBCommand cmd.Initialize - cmd.Name = "insert_drop_rep_PROFINA_VN" + cmd.Name = "insert_drop_rep_PROFINA_VN2" cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA") reqManager.ExecuteCommand(cmd , "inst_drop") ' reqs.Add("inst_noventa") @@ -1194,7 +1194,13 @@ Sub cargar_Click ' Next ' End If ' c.Close - + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_drop_rep_PROFINA_VN2" + cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGAR",Application.VersionName) + reqManager.ExecuteCommand(cmd , "inst_drop") + ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) + ' NOVENTA ' c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") ' If c.RowCount > 0 Then diff --git a/B4A/Profina_reparto.b4a.meta b/B4A/Profina_reparto.b4a.meta index f756791..596baf1 100644 --- a/B4A/Profina_reparto.b4a.meta +++ b/B4A/Profina_reparto.b4a.meta @@ -94,6 +94,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,B4XPage_Created,1395,3,C_Principal,StartPrinter,2835,0,C_Principal,Subir_Click,812,0,C_Cliente,Guardado,810,6,B4XMainPage,Class_Globals,1208,0,Starter,Process_Globals,40,0,Starter,ENVIA_ULTIMA_GPS,123,0,C_Principal,e_ruta_EnterPressed,2012,0,C_Principal,cargar_Click,1130,0,C_Principal,envioinfo,864,2 +NavigationStack=C_Principal,StartPrinter,2835,0,C_Cliente,Guardado,810,6,B4XMainPage,Class_Globals,1208,0,Starter,Process_Globals,40,0,Starter,ENVIA_ULTIMA_GPS,123,0,appUpdater,Service_Start,126,0,C_Principal,cargar_Click,1194,0,C_Principal,e_ruta_EnterPressed,2018,0,C_Principal,Subir_Click,812,0,C_Principal,envioinfo,1085,2 SelectedBuild=0 VisibleModules=1,2,3,4,5,6,7,8,9,10,16