Árvore de páginas

Versões comparadas

Chave

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

...


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


Image Added



03. ASSUNTOS RELACIONADOS

...