X++ 코드를 이용한 Purchase Order 생성 및 Posting

아래 코드를 이용해서 Purchase Order를 생성 할 수 있습니다.

static void PurchOrderCreate(Args _args) { NumberSeq numberSeq; PurchTable purchTable; PurchLine purchLine; ttsBegin; numberSeq = NumberSeq::newGetNum( PurchParameters::numRefPurchId()); numberSeq.used(); purchTable.PurchId = numberSeq.num(); purchTable.initValue(); purchTable.initFromVendTable(VendTable::find('V01054')); if (!purchTable.validateWrite()) { throw Exception::Error; } purchTable.insert(); purchLine.PurchId = purchTable.PurchId; purchLine.ItemId = '002770'; purchLine.createLine(true, true, true, true, true, true); ttsCommit; info(strFmt("Purchase order '%1' has been created", purchTable.PurchId)); }

[Purchase Order Posting]

static void PurchOrderPost(Args _args) { PurchFormLetter purchFormLetter; PurchTable purchTable; purchTable = PurchTable::find('PO-000005090'); /* Purch Order Confirming*/ /* purchFormLetter = PurchFormLetter::construct( DocumentStatus::PurchaseOrder); purchFormLetter.update( purchTable, '', systemDateGet(), PurchUpdate::All, AccountOrder::None, NoYes::No, NoYes::Yes); */ /* Purch Order Invoicing */ purchFormLetter = purchFormLetter::construct( DocumentStatus::Invoice); purchFormLetter.update( purchTable, '8001', systemDateGet(), PurchUpdate::All, AccountOrder::None, NoYes::No, NoYes::Yes); }