Histórico da Página

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function FA271TOK
    (Exemplo do Ponto de entrada que permite a criação de um Bloco de código com a validação do usuário)
    @type  Function
    @author Cassio S Dias
    @since 14/12/2023
    @version 12
    @return xRet, logical
    @see (links_or_referenceshttps://tdn.totvs.com/x/rNthM)
    /*/
User Function FA271TOK() 
    // Posicionado na tabela 
    // FJ2 - Estrutura da Visão            

	Local cCodUser := __cUserId
	Local bValUser := {|x| u_ValUser(x)}
	Local xRet     := Nil

	xRet := bValUser

	EVAL(bValUser, cCodUser)

Return xRet



/*Exemplo de Função para validar se usuario possui permissão*/
User Function ValUser(cCodUser) as logical

	Local aCods := Paramixb //Array com codigos de usuarios com permissão Ex: Paramixb := {"000000,000001,000002"}
	local lRet  := .T.

	if (cCodUser $ aCods[1])
		MSGINFO( "Passou no P.E FA271TOK", "P.E FA271TOK" )
		lRet := .T.
	else
		MSGINFO( "Usuário não autorizado", "P.E FA271TOK" )
		lRet := .F.
	endIf

Return lRet