mirror of
https://github.com/KeymonSoft/Intmex_Multiventa.git
synced 2026-04-17 21:06:08 +00:00
- VERSION 5.12.3
-Se agregaron las marcas por usuario.
This commit is contained in:
@@ -162,6 +162,7 @@ Sub Class_Globals
|
||||
Private p_transparenteCN As Panel
|
||||
Private p_clientesNuevos As Panel
|
||||
Private b_clienteNuevo As Button
|
||||
Private l_textoCN As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -260,14 +261,16 @@ Sub B4XPage_Appear
|
||||
c.Close
|
||||
Log($"Permitidos: ${permitidos}, Actuales: ${cuantosNuevos}"$)
|
||||
Log((permitidos > 0) & "|" & (permitidos > cuantosNuevos))
|
||||
If permitidos <> 0 Then ' Si permitidos es CERO entonces SIN LIMITE de clientes nuevos.
|
||||
' If permitidos <> 0 Then ' Si permitidos es CERO entonces SIN LIMITE de clientes nuevos.
|
||||
l_textoCN.Text = "Llegó al límite de clientes nuevos, ya no es posible agregar mas clientes."
|
||||
If permitidos = 0 Then l_textoCN.Text = "No tienes permitido dar de alta clientes nuevos."
|
||||
If permitidos > cuantosNuevos Then
|
||||
p_transparenteCN.Visible = False
|
||||
Else
|
||||
p_transparenteCN.BringToFront
|
||||
p_transparenteCN.Visible = True
|
||||
End If
|
||||
End If
|
||||
' End If
|
||||
|
||||
CallSubDelayed(Tracker, "Track")
|
||||
CallSubDelayed(Tracker, "StartFLPSmall")
|
||||
|
||||
Reference in New Issue
Block a user