Histórico da Página

#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} User Function F666VLDAP
    (Ponto de entrada para permitir outra regra de definicao do usuario que pode realizar a aprovacao)
    @type  Logical
    @author Cassio S. Dias
    @since 21/11/2023
    @return lRet, LOGICAL
    @see (https://tdn.totvs.com/x/ESgWM)
    /*/
User Function F666VLDAP() as logical

	Local lRet  :=.T.
	Local aUser := PARAMIXB
    Local cMsg  := "Usuário não autorizado para esta operação", "Sem Permisão"

	if __cUserId $ aUser
		lRet:=.T.
	else
        Help(,,"VLDPARTIC",,OemToANSI(cMsg), 1, 0 ) 
		lRet:=.F.
	EndIf

Return lRet