Verifica se um usuário pertence ao grupo de administradores.
Sintaxe
PswAdmin( cUsuario, cSenha ) -> numérico
| Argumento | Obrigat. | Tipo | Descrição |
| cUsuario | Sim | C | Nome do usuário. |
| cSenha | Sim | C | Senha do usuário. |
Descrição
A função PswAdmin() retorna 0 (zero) se o usuário for do grupo de administradores, 1 (um) para usuário não administrador e 2 (dois) se for senha inválida.
Exemplo
User Function <nome-da-função>( cUsuario, cSenha )
Local lAdminst := .F.
Local nRet
nRet := PswAdmin( cUsuario, cSenha )
If nRet == 0
lAdminst := .T.
ElseIf nRet == 1
APMsgInfo( “Usuário não é Administrador !” )
ElseIf nRet == 2
APMsgInfo( “Senha invalida !” )
EndIf
Return lAdminst