Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Alexandre Takaki

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Alexandre Takaki

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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.


Exemplo


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


#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 - DESABILITA A EXCLUSAO DO USUARIO
    // TRUE - HABILITA 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

...