...
Descrição: | Possibilita que o desenvolvedor cancele a operação de exclusão do usuário. | ||||||
Eventos: | Executado antes da exclusão do usuário na rotina de acesso do contrato. | ||||||
Fonte do Programa: | CNTA240.PRW | ||||||
Função: | CN240Acesso | ||||||
Parâmetros: | Não há. | ||||||
Retorno: |
|
Exemplo
Situação 1: Podemos customizar a rotina deixando com acesso para excluir o usuário, apenas para o administrador.
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH" |
...
/*/{Protheus.doc} CN240EXC |
...
Ponto de entrada executado antes da exclusão do usuário na rotina de acesso do contrato. |
...
@type function |
...
@version |
...
@since 08/03/2024 |
...
@return Nil |
...
/*/ |
...
User Function CN240EXC() |
...
// FALSO - NAO PERMITE A EXCLUSAO DO USUARIO |
...
// TRUE - PERMITE A EXCLUSAO DO USUARIO |
...
Local lRetorno := .F. |
...
Local cUserLog := RetCodUsr() |
...
If cUserLog == "000000" // ADMINISTRADOR |
...
lRetorno := .T. |
...
EndIf |
...
If !lRetorno |
...
FWAlertError("Você não tem acesso para exclusão de usuários.", "Acesso Negado") |
...
EndIf |
...
Return(lRetorno) |
...
