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;
}
{
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
Post a Comment