DT PE JURA069

Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Jurídico
Módulo:	Pré Faturamento de Serviços - SIGAPFS
Função:	Controle de Adiantamentos - JURA069

02. PONTO DE ENTRADA

Descrição:

Este ponto de entrada permite validar a alteração da situação na Pré-Fatura

Localização:

Atualizações - Movimentações - Operações de Pré-Fatura

Programa Fonte:

JURA069

Função:

MENUDEF

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXB

array

Array com 3 posições ou mais se existir grid

Nome	Tipo	Descrição
PARAMIXB[1]	Objeto	Objeto do formulário ou do modelo, conforme o caso
PARAMIXB[2]	Caractere	ID do local de execução do ponto de entrada
PARAMIXB[3]	Caractere	ID do formulário
PARAMIXB[4]	Numérico	Número da Linha da FWFORMGRID
PARAMIXB[5]	Caractere	Ação da FWFORMGRID
PARAMIXB[6]	Caractere	Id do campo

Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetorno

Array

Array obrigatório com 5 posições

Nome	Tipo	Descrição
xRetorno[1]	Caractere	Título da rotina que será exibido no menu
xRetorno[2]	Caractere	Nome da função que será executada
xRetorno[3]	Numérico	Parâmetro reservado. Deve ser sempre 0 (zero)
xRetorno[4]	Numérico	Número da operação que a função executará. As alternativas são: 1=Pesquisa 2=Visualização 3=Inclusão 4=Alteração 5=Exclusão 6=Alteração sem a permissão para incluir novas linhas. É válido apenas para os objetos GetDados e GetDb.
xRetorno[5]		Parâmetro descontinuado

Sim

03. EXEMPLO

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "PARMTYPE.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} JURA069
Ponto de entrada MVC da rotina de Controle de Adiantamentos.

@param PARAMIXB, array   , Parâmetros do ponto de entrada MVC
    PARAMIXB[1], objeto  , Objeto do formulário ou do modelo, conforme o caso
    PARAMIXB[2], caracter, ID do local de execução do ponto de entrada
    PARAMIXB[3], caracter, ID do formulário
    PARAMIXB[4], numérico, Número da Linha da FWFORMGRID
    PARAMIXB[5], Ação da FWFORMGRID
    PARAMIXB[6], Id do campo

@author TOTVS
@since  16/03/2020
@obs    https://tdn.totvs.com/pages/viewpage.action?pageId=208345968
/*/
//-------------------------------------------------------------------
User Function JURA069()
    Local aParam   := PARAMIXB
    Local oObj     := Nil
    Local cIdPonto := ""
    Local cIdModel := ""
    Local lIsGrid  := .F.
    Local xRetorno := .T.

    If ValType(aParam) == "A"
        oObj     := aParam[1]
        cIdPonto := aParam[2]
        cIdModel := aParam[3]
        lIsGrid  := Len(aParam) > 3

        If cIdPonto == "MENUDEF"
            /*===============================================================================
            [n][1] --> Título da rotina que será exibido no menu
            [n][2] --> Nome da função que será executada
            [n][3] --> Parâmetro reservado. Deve ser sempre 0 (zero)
            [n][4] --> Número da operação que a função executará. As alternativas são:
                        1=Pesquisa
                        2=Visualização
                        3=Inclusão
                        4=Alteração
                        5=Exclusão
                        6=Alteração sem a permissão para incluir novas linhas. É válido apenas para os objetos GetDados e GetDb.
            [n][5] -->  Parâmetro descontinuado.
            ===============================================================================*/
            xRetorno := {{ "Minha Rotina", "MsgInfo('Clicado no novo menu!')", 0, 6, 0, Nil}}
        EndIf
    EndIf

Return (xRetorno)

Árvore de páginas

DT PE JURA069

02. PONTO DE ENTRADA

03. EXEMPLO