DynamicsAX 2012에서 재고이동분개장 (Invent Transfer Journal)을 생성 > 포스팅 > 분개장 화면 오픈 하는 소스입니다.

ItemId나 Qty 등 적절히 수정하여 사용하세요.

// 선언부

InventJournalTable      journalTable;
InventJournalTableData  journalTableData;
InventJournalTrans inventJournalTrans;
InventDim          toInventDim;
    
Args args = new Args();    
JournalCheckPost        journalCheckPost;

// 분개장 헤더 생성
journalTable.clear();
journalTable.JournalNameId  = InventParameters::find().TransferJournalNameId;
journalTableData            = JournalTableData::newTable(journalTable);
journalTable.JournalId      = journalTableData.nextJournalId();
journalTable.Reservation    = ItemReservation::Automatic;
journalTable.JournalType    = InventJournalType::Transfer;

journalTableData.initFromJournalName(journalTableData.JournalStatic().findJournalName(journalTable.jourNameId));
journalTable.Description    = "분개장 생성";
journalTable.insert();
    
// 분개장 라인 생성
inventJournalTrans.JournalId      = journalTable.JournalId;
inventJournalTrans.JournalType    = InventJournalType::Transfer;
inventJournalTrans.TransDate      = systemdateget();
inventJournalTrans.ItemId         = ItemId;
inventJournalTrans.Qty            = Qty;

inventJournalTrans.InventDimId    = FromInventDimId;
inventJournalTrans.initFromInventTable(InventTable::find(ItemId), False, False);

toInventDim.inventSiteId         = toInventDim.InventSiteId;
toInventDim.InventLocationId     = toInventDim.InventLocationId;
inventJournalTrans.ToInventDimId = InventDim::findOrCreate(toInventDim).inventDimId;
inventJournalTrans.insert();
    
// 분개장 Posting
journalCheckPost = InventJournalCheckPost::newPostJournal(journalTable);

if(journalCheckPost.validate())
{
    try
    {
        journalCheckPost.run();
    }
    catch
    {
        journalTable.delete();
    }
}
    
// 분개장 화면 Open
args.record(inventJournalTable);
new MenuFunction(MenuItemDisplayStr(InventJournalTableTransfer),MenuItemType::Display).run(Args);