Item reception or arrival Journal

The code to create the journal is as follows:
void clicked()
{
    WMSJournalTable         wmsJournalTable;
    WMSJournalTrans         wmsJournalTrans;
    WMSJournalName          wmsJournalName;
    JournalTableData        journalTableData;
    JournalCheckPost        journalCheckPost;
    InventTrans             inventTrans;
    NumberSeq               numberSeq;
    str                     journalNum;
    str                     journalName;
    int                     lineNum = 1;
    int                     logPointerLast;
    int                     lineBeforeCLRError;
    boolean                 errors;
    ;
    journalName = WMSParameters::find().receptionJournalNameId;
    numberSeq = NumberSeq::newGetNumFromCode(NumberSequenceReference::find(1523).NumberSequence);
    journalNum = numberSeq.num();
    wmsJournalName = WMSJournalName::find(journalName);
    ttsbegin;
    wmsJournalTable.initFromWMSJournalName(wmsJournalName);
    wmsJournalTable.JournalNameId        =   journalName;
    wmsJournalTable.JournalId            =   journalNum;
    wmsJournalTable.journalType          =   WMSJournalType::Reception;
    wmsJournalTable.insert();
    journalTableData = JournalTableData::newTable(wmsJournalTable);
    inventTrans = InventTrans::findTransId(inventQuarantineOrder.InventTransId);
    wmsJournalTrans.clear();
    wmsJournalTrans.initFromWMSJournalTable(wmsJournalTable);
    wmsJournalTrans.JournalId                =   journalNum;
    wmsJournalTrans.LineNum                  =   lineNum;
    wmsJournalTrans.TransDate                =   today();
    wmsJournalTrans.ItemId                   =   inventQuarantineOrder.ItemId;
    wmsJournalTrans.Qty                      =   inventQuarantineOrder.Qty * -1;
    wmsJournalTrans.InventDimId              =   inventQuarantineOrder.InventDimId;
    wmsJournalTrans.vendAccount              =   PurchTable::find(inventQuarantineOrder.TransRefId).InvoiceAccount;
    wmsJournalTrans.inventTransType          =   inventQuarantineOrder.TransType;
    wmsJournalTrans.inventTransRefId         =   inventQuarantineOrder.TransRefId;
    wmsJournalTrans.inventTransId            =   inventQuarantineOrder.InventTransIdRef;
    wmsJournalTrans.checkPickingLocation     =   NoYes::No;
    wmsJournalTrans.createQuarantineOrder    =   NoYes::No;
    wmsJournalTrans.inventDimId              =   inventQuarantineOrder.InventDimId;
    wmsJournalTrans.insert();

    journalCheckPost = WMSJournalCheckPostReception::newTypeJournalTable(JournalCheckPostType::Post,wmsJournalTable);
    journalCheckPost.parmAutoBlock(true);
    journalCheckPost.run();
    errors = journalTableData.hasErrors();
    if(errors)
            error(infolog.text(logPointerLast+1));
    ttscommit;
    info(strfmt("Journal # %1 created",journalNum));
}

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.