static void RegisterBatchOrderPickList(Args _args)
{
    ProdJournalCheckPostProd _prodJournalCheckPostProd;
    ProdJournalCheckPostBOM _prodJournalCheckPostBOM;
    prodJournalTable     _prodJournalTable;
    ProdJournalBom       _prodJournalBom;
    ;
    SELECT _prodJournalTable WHERE _prodJournalTable.JournalId == "00000168";
    ttsbegin;
    WHILE SELECT FORUPDATE _prodJournalBom WHERE _prodJournalBom.JournalId == "00000168"
    {
        if(_prodJournalBom.InventTransId == "000003069")
        {
            _prodJournalBom.InventConsump = 21;
            _prodJournalBom.update();
        }
    }
    ttscommit;
    _prodJournalCheckPostBOM  = ProdJournalCheckPostBOM::newPostJournal("00000168", FALSE);
    _prodJournalCheckPostBOM.postProdJournalTableBOM();
    _prodJournalCheckPostBOM.run();
}
 
No comments:
Post a Comment