From 08fcb23eb83af2d0dbfd6f5608e6d1ad71fad918 Mon Sep 17 00:00:00 2001 From: IsR0d Date: Tue, 6 Aug 2024 11:30:04 -0600 Subject: [PATCH] Se agrego validacion de Ruta y que no te dejara hacer reversa en el panel de monto, en caso de hacer reversa, quita el panel. --- B4A/B4XMainPage.bas | 16 +++++++++------- B4A/MARQUEZ.b4a.meta | 2 +- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index ff6cd76..c96680f 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -744,7 +744,10 @@ Private Sub B4XPage_CloseRequest As ResumableSub Log("closreq") Sleep(0) - If p_validacion.IsInitialized And p_validacion.Visible Then + If p_add_monto.IsInitialized And p_add_monto.Visible Then + p_add_monto.Visible = False + Return False + Else If p_validacion.IsInitialized And p_validacion.Visible Then p_validacion.Visible = False Return False Else If P_CIEGO.IsInitialized And P_CIEGO.Visible Then @@ -1259,14 +1262,13 @@ Private Sub b_recarga_Click c.Close End Sub - - Private Sub b_CargarMonto_Click - c = skmt.ExecQuery("SELECT COUNT (DISTINCT CAT_CL_RUTA) FROM kmt_info") - If c.RowCount > 0 Then - Subs.panelVisible(p_add_monto,0,0) - Else + c = skmt.ExecQuery("SELECT * FROM kmt_info") + c.Position = 0 + If c.RowCount < 0 Or c.RowCount = 0 Then MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención") + Else + Subs.panelVisible(p_add_monto,0,0) End If c.Close End Sub diff --git a/B4A/MARQUEZ.b4a.meta b/B4A/MARQUEZ.b4a.meta index e982ee8..9da1f22 100644 --- a/B4A/MARQUEZ.b4a.meta +++ b/B4A/MARQUEZ.b4a.meta @@ -88,6 +88,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Subs,traeCliente,724,0,Subs,traePromo,917,0,B4XMainPage,B4XPage_Created,201,0,B4XMainPage,b_CargarMonto_Click,1219,6,Subs,agregaColumna,1482,0,Subs,hayPedido,1462,0,B4XMainPage,b_aceptar_Click,1146,0,C_Principal,e_ruta_EnterPressed,2107,0,B4XMainPage,B_Aceptar_Monto_Click,1191,6,B4XMainPage,JobDone,549,6 +NavigationStack=B4XMainPage,B_Can_Monto_Click,1222,0,B4XMainPage,b_recarga_Click,1244,0,B4XMainPage,b_envioBD_Click,1226,0,B4XMainPage,b_CargarMonto_Click,1259,4,B4XMainPage,b_arqueocieego_Click,917,0,B4XMainPage,Class_Globals,115,0,B4XMainPage,B4XPage_Created,293,0,B4XMainPage,JobDone,661,6,Diseñador Visual,login.bal,-100,6,B4XMainPage,B4XPage_CloseRequest,738,0 SelectedBuild=0 VisibleModules=1,2,13,4,7,8,9,10,14,28