Árvore de páginas

 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

PARAMIXBarray

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

NomeTipoDescriçã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

NomeTipoDescriçã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!')"060Nil}}
        EndIf
    EndIf

Return (xRetorno)