Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas