Create Transfer Journal through X++

static void CreateTransferJournal(Args _args)
{
    InventJournalTable      inventJournalTable;
    InventJournalTrans      inventJournalTrans;
    InventJournalCheckPost  inventJournalCheckPost;
    JournalCheckPost        journalCheckPost;
    NumberSeq num;
    boolean _throwserror=true;
    boolean _showinforesult=true;
    InventDim frominventDim,ToinventDim;
    ;
    ttsbegin;
        inventJournalTable.clear();
        num = new NumberSeq();
        num = NumberSeq::newGetNum
        (InventParameters::numRefTransferId());
        inventJournalTable.initFromInventJournalName(InventJournalName::find(InventParameters::find().TransferJournalNameId));
        inventJournalTable.Description = 'Inventory Transfer Journal';
        inventJournalTable.SystemBlocked = true;
        inventJournalTable.insert();
        inventJournalTrans.clear();
        inventJournalTrans.initFromInventJournalTable(inventJournalTable);
        inventJournalTrans.ItemId = 'CEBA000001';
        frominventDim.InventLocationId='Sy41-store';
        frominventDim.inventSiteId ='Survey-41';
        ToinventDim.InventLocationId = 'Sy41-Site';
        ToinventDim.InventSiteId = 'Survey-41';
        ToinventDim = InventDim::findOrCreate(ToinventDim);
        frominventDim = InventDim::findOrCreate(frominventDim);
        inventJournalTrans.InventDimId = frominventDim.inventDimId;
        inventJournalTrans.initFromInventTable(InventTable::find('CEBA000001'));
        inventJournalTrans.Qty = 1;
        inventJournalTrans.ToInventDimId = ToinventDim.inventDimId;
        inventJournalTrans.TransDate = SystemDateget();
        inventJournalTrans.insert();
            //info(strFmt('%1', inventJournalTrans.InventTransId));
            //info(strFmt('%1', inventJournalTable.JournalId));
        journalCheckPost = inventJournalCheckPost::construct(inventJournalTable);
        journalCheckPost = inventJournalCheckPost::newJournalCheckPost(JournalCheckPostType::Post,inventJournalTable);
        journalCheckPost.parmThrowCheckFailed(_throwserror);
        journalCheckPost.parmShowInfoResult(_showinforesult);
        journalCheckPost.run();
        //inventJournalCheckPost = inventJournalCheckPost::construct(inventJournalTable);
        //inventJournalCheckPost = InventJournalCheckPost::newJournalCheckPost(JournalCheckPostType::Post,inventJournalTable);
        //inventJournalCheckPost = InventJournalCheckPost::newPostJournal(inventJournalTable);
        //inventJournalCheckPost.parmThrowCheckFailed(_throwserror);
        //inventJournalCheckPost.parmShowInfoResult(_showinforesult);
        //inventJournalCheckPost.run();
        inventJournalTable.SystemBlocked = false;
        //inventJournalTable.update();
    ttscommit;
}

Comments

Popular posts from this blog

Create RFQ through X++

Base enum values in Dynamics 365

Project Id through X++ code