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)