cheveguerra/Marquez
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez.git synced 2026-04-17 21:06:15 +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