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