- VERSION 5.12.3

-Se agregaron las marcas por usuario.
This commit is contained in:
2025-12-04 16:37:51 -06:00
parent 0a4483d93c
commit e40988de1c
6 changed files with 48 additions and 20 deletions

View File

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