...
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: |
|
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) |
