cheveguerra/Marquez
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez.git synced 2026-04-17 12:56:29 +00:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source
This commit is contained in:
IsR0d
2024-08-06 11:30:04 -06:00
parent edcd568e93
commit 08fcb23eb8
2 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/B4XMainPage.bas
View File

@@ -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

2
B4A/MARQUEZ.b4a.meta
View File

@@ -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