Histórico da Página

#INCLUDE "Protheus.ch"
 
User Functionfunction MTA780MNUM650IPPI()

Local lRetIntPPI  := PARAMIXB[1] 
//Obrigatório
//Indica o retorno da integração /*Estrutura do array aRotina:
        1. Nome da opção no menu
 com a PPI. 
//- T: Integrou com a PPI | F: Não integrou com a PPI

Local cOp         := PARAMIXB[2]
//Não obrigatório. 
//Indica o número da OP. 
//Caso não esteja preenchido o número da OP pode ser obtido pelo posicionamento da tabela 
//SC2->(C2_NUM+C2_ITEM+C2_SEQUEN+C2_ITEMGRD) ou
//M->(C2_NUM+C2_ITEM+C2_SEQUEN+C2_ITEMGRD)

Local lTable       2. Função executada pela opção
        3. Reservado
        4. Tipo de Transação a ser efetuada
        5. Nível de acesso
:= PARAMIXB[3]
//Não obrigatório. 
//Indica se será utilizado variáveis de memória ou do registro posicionado para recuperar os valores. 
// .T. -> (SC2->C2_NUM)
// .F. ou nulo -> (M->C2_NUM)

Local lExclusao   := PARAMIXB[4]
//Não obrigatório. 
//Indica se está chamando para rotina de exclusão. 
// .T. -> exclusão
// .F. ou nulo -> inclusão/alteração

If Empty(lTable)
    lTable := .F.
EndIf

If Empty(lExclusao)
    lExclusao := .F.
EndIf

If lRetIntPPI
    If Empty(cOp)
        If lTable
            cOp  6. Habilita Menu Funcional*/
    AADD(aRotina, {"Nome da opção", "Alert('Menu acionado')", 0, 3, 0, NIL})
 
Return Nil

:= SC2->(C2_NUM+C2_ITEM+C2_SEQUEN+C2_ITEMGRD)
        Else
            cOp := M->(C2_NUM+C2_ITEM+C2_SEQUEN+C2_ITEMGRD)
        EndIf
    EndIf

    If lExclusao
        //Realiza processo customizado para exclusão da OP
    Else
        //Realiza processo customizado para inclusão/modificação da OP
    EndIf
EndIF

Return