Histórico da Página

#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} User Function FA630EST
    (Ponto de entrada para permitir ou nao que determinado usuario efetue esta operacao (estorno))
    @type  Logical
    @author Cassio S. Dias
    @since 13/11/2023
    @version 12.1.2310
    @return lRet, LOGICAL
    @see (links_or_referenceshttps://tdn.totvs.com/x/sFL4Lw)
    /*/
User Function FA630EST() as logical
	Local lRet :=.T.

	aIdBlock:={"000006","000013","000041"}//id dos usuárioS sem permissão

	if __cUserId $ aIdBlock
		MSGALERT( "Usário não autorizado para esta operação", "Sem Permissão" )
		lRet:=.F.
	EndIf

Return lRet