PE M650IPPI Permite realizar customizações após a integração da ordem de produção com o TOTVS MES

User function M650IPPI()

Local lRetIntPPI  := PARAMIXB[1] 
//Obrigatório
//Indica o retorno da integração 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      := 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 := 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