MNTA6603 - Gravação no reprocessamento

Descrição

Ponto de entrada para gravações no reprocessamento de abastecimentos importados.

Observações

O ponto de entrada é executado durante o reprocessamento após carregar os dados da tabela TQN, que podem ser usados para gravar uma baixa de estoque por exemplo.

Exemplos

User Function MNTA6603()

DbSelectArea("TQI")

DbSetOrder(1)

DbSeek(xFilial("TQI")+TQN->TQN_POSTO+TQN->TQN_LOJA+TQN->TQN_TANQUE+TQN->TQN_CODCOM)

cNumDocSD3 := NextNumero("SD3", 2, "D3_DOC", .T.)

cNumSeOrig := MntMovEst("RE0", TQN->TQN_TANQUE, TQI->TQI_PRODUT, TQN->TQN_QUANT,TQN->TQN_DTABAS, cNumDocSD3, Nil, Nil, .F., )

Return