Linha Microsiga Protheus

Árvore de páginas

01. CN240EXC  - Ponto de entrada executado antes da exclusão do usuário na rotina de acesso do contrato.

Produto:

Backoffice TOTVS

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

Gestão de Contratos

Programa:

CNTA240.PRW

Ponto de entrada:

CN240EXC

02. DETALHES

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:

ValorTipoDescrição
lRetornológico

Deve retornar falso para não permitir a exclusão do usuário. Caso não exista o ponto de entrada ou retorne true, a rotina prosseguirá com a exclusão.


Situação 1: Podemos customizar a rotina deixando com acesso para excluir o usuário, apenas para o administrador. 

Exemplo
#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)


03. ASSUNTOS RELACIONADOS