\' Gambas class file
Inherits RecursoProxy
Public Function acceder() As String
Dim r As New RecursoContabilidad
\'muestra quien esta intentando acceder...
Print "Intento de acceso: ", Super.getusu().nombre, Now, Object.Class(r).Name,
Super.setNumeroAccesoIntentadosContador()
If Super.getusu().nivelAcceso < Super.getnivel() Then
Print "(no permitido el acceso)" & " [" & Str$(Super.getNumeroAccesoPermitidos()) & " / " & Str$(Super.getNumeroAccesoIntentados()) & "]"
Return "No tiene los permisos necesarios para acceder." & "<br>" & "Usuario: " & Super.getusu().nombre & "[" & Str$(Super.getNumeroAccesoPermitidos()) & " / " & Str$(Super.getNumeroAccesoIntentados()) & "]"
Else
Super.setNumeroAccesoPermitidosContador()
Print "(acceso ok)" & "[" & Str$(Super.getNumeroAccesoPermitidos()) & " / " & Str$(Super.getNumeroAccesoIntentados()) & "]"
Return r.acceder()
Endif
End