DT PE JURA070

01. DADOS GERAIS

02. PONTO DE ENTRADA

03. EXEMPLO

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "PARMTYPE.CH"
//-------------------------------------------------------------------
/*/{Protheus.doc} JURA070
Ponto de entrada MVC da rotina de Casos para inclusão de opção no MenuDef

@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  26/01/2021
@obs    https://tdn.totvs.com/pages/viewpage.action?pageId=208345968
/*/
//-------------------------------------------------------------------
User Function JURA070()
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 := {{"PE-J070Menu", "MsgInfo('Ponto de entrada do menu JURA070 ok!')", 0, 6, 0 , Nil}}
        EndIf
    EndIf

Return xRetorno