ExecAuto MATA241

Ao fazer um movimento chamando ExecAuto da MATA241 o sistema apresenta erro referente TM invalido:/----------------------------------------------------------------------------AJUDA:REGBLOQEste registro está bloqueado para uso. SB1-Descrição Genérica do Produto

Tabela SD3 03/02/22 14:46:14 - cDocumento :=TRANSXCHS - cTM :=501 < -- Invalido - cCC := - dA241Data :=03/02/22/--------------------------------------------------------------------

Porém se eu faço o mesmo movimento de forma manual, ai dá certo.

segue o fonte

_aCab1 := {{"D3_DOC" ,GetSxeNum("SD3","D3_DOC"), NIL},; {"D3_TM" ,cCodigoTM , NIL},; {"D3_CC" ," ", NIL},; {"D3_EMISSAO" ,ddatabase, NIL}}

Do While !(cQrySB2)->(eof()) .and. (cQrySB2)->B2_LOCAL = cArm93

IncProc((cQrySB2)->B2_COD)

If SB1->(dbSeek(xFilial("SB1")+(cQrySB2)->B2_COD)) .and. (cQrySB2)->B2_QATU > 0 If ( nQtdTot + (cQrySB2)->B2_QATU ) <= nSomaTot .and. RegistroOk("SB1")

If (cQrySB2)->Z5_PESOATU < (cQrySB2)->B2_QATU nQuant := (cQrySB2)->B2_QATU - (cQrySB2)->Z5_PESOATU Elseif (cQrySB2)->Z5_PESOATU == (cQrySB2)->B2_QATU .or. (cQrySB2)->Z5_PESOATU > (cQrySB2)->B2_QATU (cQrySB2)->(dbSkip()) Loop Endif AADD(_atotitem,{{"D3_COD" ,(cQrySB2)->B2_COD ,NIL},; {"D3_QUANT" ,nQuant ,NIL},; {"D3_LOCAL" ,cArm93 ,NIL},; {"D3_UM" ,"KG" ,NIL},; {"D3_GRUPO" ,SB1->B1_GRUPO,NIL},; {"D3_CONTA" ,"114010003" ,NIL},; {"D3_OBSERV" ,"BAIXA REF.RETALHOS" ,NIL}}) nQtdTot += nQuant nQuant := 0 Else (cQrySB2)->(dbSkip()) Loop ENDIF Endif (cQrySB2)->(dbSkip()) Enddo

If !Empty(_atotitem) MSExecAuto({|x,y,z| MATA241(x,y,z)},_aCab1,_atotitem,3) If lMsErroAuto Mostraerro() lOk := .F. Else ConfirmSx8() lOk := .T. EndIf Endif (cQrySB2)->(dbCloseArea()) RestArea(Aarea)

compartilhar
  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!

2 respostas

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