Árvore de páginas

Versões comparadas

Chave

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


01. DADOS GERAIS

Produto:

Solucoes_totvs_cross
SolucaoCrossTOTVS Backoffice

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoBackoffice

Módulo:

Modulos_cross_segmentos
ModulosCrossSegmentosTOTVS Backoffice (Linha Protheus) - Financeiro (SIGAFIN)

Função:F666VLDAP 


02. DESCRIÇÃO

Ponto de entrada F666VLDAP que permite ao cliente criar regras para definicao do(s) usuario(s) que ira(ão) realizar a(s) aprovção(ões)de validações específicas para definir se o usuário poderá ou não realizar a aprovação da solicitação da viagem.


Tabelas posicionadas:

No momento da chamada do ponto de entrada será o sistema está posicionado na (s) tabela(s).

    • FW3 - Cabeçalho Solicitação Viagem            FW5 - Participantes


03.

...

PARAMIXB

...

Nome

...

Tipo

...

Descrição

...

PARAMIXB[1]

...

aArray

...

Caracter

...

PARÂMETROS

O ponto de entrada F666VLDAP não recebe nenhuma informação por parâmetro.


04. RETORNO 

Obrigatoriamente, deve retornar verdadeiro (.T.) ou falso (.F.), indicando assim a continuidade (se retorno verdadeiro) ou não (se retorno falso) da execução do processo.


04. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagejava
themeMidnight
firstline1
titleF716BLQR
linenumberstrue
#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 ()
    /*/

 User Function F666VLDAP() as logical
 
	    Local lRet  :=.T.
	Local aUser := PARAMIXB
    Local cMsg  := "UsuárioEste usuário nãoesta autorizado a pararealizar esta operação", "Sem Permisão"

	if __cUserId $ aUser
		aprovação?"
    If  MsgYesNo(cMsg)
        lRet:=.T.
	else    Else
        Help(" ",1,"VLDPARTICVLDAPROV",,OemToANSI(cMsg), 1, 0 ) 
		"Aprovação não foi autorizada",1,0)
        lRet:=.F.
	    EndIf
 
Return lRet





Templatedocumentos

...