ExecAuto da Mata250

Ao executar a ExecAuto da MATA250, não dá erro mas também não grava, alguém por gentileza sabe o que poderia ser?

SC2->(dbSetorder(1))

SC2->(dbSeek(xFilial("SC2") + TRS->C2_NUM))

AADD(aCabec, {"D3_FILIAL" , xFilial('SD3') , Nil })

AADD(aCabec, {"D3_OP" , TRS->C2_NUM + TRS->C2_ITEM + TRS->C2_SEQUEN, Nil })

AADD(aCabec, {"D3_TM" , '110' , Nil })

AADD(aCabec, {"D3_COD" , cNumProd , Nil })

AADD(aCabec, {"D3_QUANT" , nQtdPro , Nil })

AADD(aCabec, {"D3_LOCAL" , "01" , NIL })

AADD(aCabec, {"D3_EMISSAO" , date() , Nil })

AADD(aCabec, {"D3_PERDA" , nQtdPer , Nil })

AADD(aCabec, {"D3_PARCTOT" , IIF(nQtdFal = 0,'T','P') , Nil })

if alltrim(cLote) <> ''

AADD(aCabec, {"D3_LOTECTL" , cLote , Nil })

endif

AADD(aCabec, {"D3_OBSERVA" , "APONTAMENTO VIA PLC_PINTURA" , Nil })

MsExecAuto({|x, y| MATA250(x, y)} , aCabec , 3 ) //Inclusao

compartilhar
  • Por favor ignorem, já resolvi, era um ponto de entrada da rotina que estava com problema.

    Luciano   31 de Mar de 2022
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags mata250 ou faça a sua própria pergunta.