From 9010bc9b3313aa6bcf50c4b6f9c561e716573ace Mon Sep 17 00:00:00 2001 From: jalarakmt Date: Mon, 13 Apr 2026 18:16:01 -0600 Subject: [PATCH] =?UTF-8?q?Se=20agrega=20el=20llamado=20de=20la=20funcion?= =?UTF-8?q?=20FN=5FFECHA=5FREPARTO=20Envio=20de=20versi=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 45 ++++++++++++++++++++---------------- B4A/Mariana_Reparto.b4a | 2 +- B4A/Mariana_Reparto.b4a.meta | 2 +- 3 files changed, 27 insertions(+), 22 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index ce3d816..4b98fa0 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -802,7 +802,7 @@ Sub Subir_Click 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") + 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) @@ -1151,8 +1151,8 @@ Sub cargar____Click usuario = c.GetString("USUARIO") cmd.Initialize - cmd.Name = "select_punteo_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN) + cmd.Name = "select_punteo_mards_re_REPG2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "punteo") Log($"Pedimos Punteo"$) reqs.Add("punteo") @@ -1168,15 +1168,15 @@ Sub cargar____Click cmd.Initialize - cmd.Name = "select_cliente_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN) + cmd.Name = "select_cliente_mards_re_REPG2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "kmt_datos") Log($"Pedimos kmt_datos"$) reqs.Add("kmt_datos") cmd.Initialize - cmd.Name = "select_ventad_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + cmd.Name = "select_ventad_mards_re_REPG2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_datos") Log($"Pedimos hist_datos"$) reqs.Add("hist_datos") @@ -1200,14 +1200,14 @@ Sub cargar____Click ALMACEN = "33" cargo = 2 cmd.Initialize - cmd.Name = "select_punteo_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN) + cmd.Name = "select_punteo_mards_re_REPG2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "punteo") reqs.Add("punteo") cmd.Initialize - cmd.Name = "select_almacen_mards_re_REPG" - cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN) + cmd.Name = "select_almacen_mards_re_REPG4" + cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "gunaprod") reqs.Add("gunaprod") @@ -1218,8 +1218,8 @@ Sub cargar____Click reqs.Add("kmt_datos") cmd.Initialize - cmd.Name = "select_ventad_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + cmd.Name = "select_ventad_mards_re_REPG2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_datos") reqs.Add("hist_datos") ' reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT @@ -1788,7 +1788,7 @@ Sub JobDone(Job As HttpJob) 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, "CARGA") + cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA", Application.VersionName) reqManager.ExecuteCommand(cmd , "inst_drop") ' reqs.Add("inst_noventa") @@ -1821,8 +1821,8 @@ Sub JobDone(Job As HttpJob) usuario = c.GetString("USUARIO") cmd.Initialize - cmd.Name = "select_punteo_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN) + cmd.Name = "select_punteo_mards_re_REPG2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "punteo") Log($"Pedimos Punteo"$) reqs.Add("punteo") @@ -1838,15 +1838,15 @@ Sub JobDone(Job As HttpJob) cmd.Initialize - cmd.Name = "select_cliente_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN) + cmd.Name = "select_cliente_mards_re_REPG2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "kmt_datos") Log($"Pedimos kmt_datos"$) reqs.Add("kmt_datos") cmd.Initialize - cmd.Name = "select_ventad_mards_re_REPG" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) + cmd.Name = "select_ventad_mards_re_REPG2" + cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_datos") Log($"Pedimos hist_datos"$) reqs.Add("hist_datos") @@ -2038,6 +2038,11 @@ Sub e_ruta_EnterPressed If e_ruta.Text = "FIN DIA" Then RES = Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If RES = DialogResponse.POSITIVE Then + 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, "FIN DIA", Application.VersionName) + reqManager.ExecuteCommand(cmd , "inst_drop") e_ruta.Text = "" Starter.skmt.ExecNonQuery("delete from PICK_CIEGO") Starter.skmt.ExecNonQuery("delete from REPARTO_GEO") diff --git a/B4A/Mariana_Reparto.b4a b/B4A/Mariana_Reparto.b4a index 317fa6b..0ebb552 100644 --- a/B4A/Mariana_Reparto.b4a +++ b/B4A/Mariana_Reparto.b4a @@ -218,7 +218,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: MARIANA Reparto #VersionCode: 1 - #VersionName: 6.03.06 + #VersionName: 6.04.01 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Mariana_Reparto.b4a.meta b/B4A/Mariana_Reparto.b4a.meta index 2ca27c5..382938b 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_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,1980,2 +NavigationStack=B4XMainPage,enviarmonto,653,0,B4XMainPage,b_envioBD_Click,561,0,C_Principal,cargar_Click,1027,0,C_Principal,connecta_LongClick,2011,0,C_Principal,Class_Globals,0,0,C_Principal,Linker_Response,2449,0,C_Principal,connecta_Click,1989,2,C_Principal,JobDone,1784,5,C_Principal,cargar____Click,1119,6,C_Principal,Subir_Click,795,2,C_Principal,e_ruta_EnterPressed,2037,2 SelectedBuild=0 VisibleModules=29,2,3,4,5,6,7,8,9,11,17