From 3cf7c079682e4da6cd9f30cb4229ac4fcd60913e Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 20 Feb 2025 16:21:59 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.02.18=20-=20Se=20quito=20el=20q?= =?UTF-8?q?uery=20del=20env=C3=ADo=20de=20abarrotes.=20-=20Se=20puso=20que?= =?UTF-8?q?=20cuando=20se=20hace=20"FIN=20DIA",=20el=20texto=20de=20la=20r?= =?UTF-8?q?uta=20se=20ponga=20en=20blanco.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 38 +++++++++++++++++------------------ B4A/Guna Vistas V3.1.b4a.meta | 4 ++-- 2 files changed, 21 insertions(+), 21 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index c5470fe..3e6fa23 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -2266,6 +2266,7 @@ Sub t2_tick ' End If ' img2.Visible=False t2.Enabled = False + e_ruta.Text = "" B4XPage_Appear End Sub @@ -2337,27 +2338,27 @@ End Sub Sub t1_tick ' If CARGA = "SUBIR" Then - cmd.Initialize - cmd.Name = "select_cuantos_pedido_GV2" - cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) - B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedido") + cmd.Initialize + cmd.Name = "select_cuantos_pedido_GV2" + cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedido") - cmd.Initialize - cmd.Name = "select_cuantos_noventa_GV2" - cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) - B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_noventa") + cmd.Initialize + cmd.Name = "select_cuantos_noventa_GV2" + cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_noventa") - cmd.Initialize - cmd.Name = "select_cuantos_pedidoc_GV2" - cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) - B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc") + cmd.Initialize + cmd.Name = "select_cuantos_pedidoc_GV2" + cmd.Parameters = Array As Object(ALMACEN,l_ruta.text) + B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc") - If PB2.Progress = 0 Then - S_CP.Text = "ENVIAR DATOS (K-1)" - End If - Log("TIMER DISABLED") - img2.Visible=False - t1.Enabled = False + If PB2.Progress = 0 Then + S_CP.Text = "ENVIAR DATOS (K-1)" + End If + Log("TIMER DISABLED") + img2.Visible=False + t1.Enabled = False ' CARGA = "" ' End If End Sub @@ -2486,7 +2487,6 @@ Sub P_RESUMEN_click End Sub - Sub CARGA_Click B4XPages.ShowPage("Productos") End Sub diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index 397cc04..4cdda13 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -60,7 +60,7 @@ ModuleClosedNodes10= ModuleClosedNodes11= ModuleClosedNodes12= ModuleClosedNodes13= -ModuleClosedNodes14= +ModuleClosedNodes14=14,15,16,17,18,22,28,29,30 ModuleClosedNodes15=3,17 ModuleClosedNodes16= ModuleClosedNodes17= @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=5,6,8,9,10,11 ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Diseñador Visual,cliente.bal,-100,2,C_Cliente,B4XPage_Appear,1032,6,C_Principal,JobDone,1222,0,C_Principal,Subir_Click,736,0,Subs,TraeMontoProd,1236,0,Subs,TraeMontoProd2,1244,0,B4XMainPage,B4XPage_Created,131,0,DBRequestManager,HandleJob,237,0,Diseñador Visual,principal.bal,-100,2,C_Principal,B4XPage_Created,293,0 +NavigationStack=C_Principal,Subir_Click,736,0,Subs,TraeMontoProd,1236,0,Subs,TraeMontoProd2,1244,0,B4XMainPage,B4XPage_Created,131,0,DBRequestManager,HandleJob,237,0,Diseñador Visual,principal.bal,-100,2,C_Principal,B4XPage_Created,293,0,C_Principal,e_ruta_EnterPressed,2266,0,C_Principal,t1_tick,2331,5,C_Principal,P_RESUMEN_click,2481,0,C_Principal,t2_tick,2262,0 SelectedBuild=0 VisibleModules=25,2,14,26,5,10,15,20,4,21