mirror of
https://github.com/KeymonSoft/Izca_Reparto_Creditos.git
synced 2026-04-19 21:59:18 +00:00
...
This commit is contained in:
@@ -415,7 +415,7 @@ Sub B4XPage_Appear
|
||||
|
||||
|
||||
|
||||
If Subs.traeCliente = "63403" Then
|
||||
If (Subs.traeCliente = "63403" OR Subs.traeCliente = "100000") Then
|
||||
gest.Visible = False
|
||||
b_noEntrega.Visible = False
|
||||
Tar.Visible = True
|
||||
@@ -581,7 +581,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
Else if p_abono.Visible Then
|
||||
p_abono.Visible = False
|
||||
Return False
|
||||
Else If la_cuenta.Text = "63403" Then
|
||||
Else If (la_cuenta.Text = "63403" Or la_cuenta.Text = "100000") Then
|
||||
B4XPages.ShowPage("Principal")
|
||||
Return False
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user