document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits RecursoProxy
  4.  
  5. Public Function acceder() As String
  6.  
  7.   Dim r As New RecursoContabilidad
  8.   \'muestra quien esta intentando acceder...
  9.   Print "Intento de acceso: ", Super.getusu().nombre, Now, Object.Class(r).Name,
  10.   Super.setNumeroAccesoIntentadosContador()
  11.   If Super.getusu().nivelAcceso < Super.getnivel() Then
  12.     Print "(no permitido el acceso)" & " [" & Str$(Super.getNumeroAccesoPermitidos()) & " / " & Str$(Super.getNumeroAccesoIntentados()) & "]"
  13.     Return "No tiene los permisos necesarios para acceder." & "<br>" & "Usuario: " & Super.getusu().nombre & "[" & Str$(Super.getNumeroAccesoPermitidos()) & " / " & Str$(Super.getNumeroAccesoIntentados()) & "]"
  14.   Else
  15.     Super.setNumeroAccesoPermitidosContador()
  16.     Print "(acceso ok)" & "[" & Str$(Super.getNumeroAccesoPermitidos()) & " / " & Str$(Super.getNumeroAccesoIntentados()) & "]"
  17.     Return r.acceder()
  18.   Endif
  19.  
  20. End
');