X++ code for creating and invoicing Purchase order in AX 2012

static void POAutoConfirmAndInvoice(Args _args)

{

PurchTable purchTable;

PurchLine purchLine;

VendTable vendTable = VendTable::find("US-101");

AxPurchTable axPurchTable;

AxPurchLine axPurchLine;

PurchFormLetter purchFormLetter;

;

//Create Purchase order

purchTable.initFromVendTable(vendTable);

axPurchTable = axPurchTable::newPurchTable(purchTable);

axPurchTable.parmPurchaseType(PurchaseType::Purch);

axPurchTable.parmDocumentStatus(DocumentStatus::PurchaseOrder); 

axPurchTable.parmDeliveryDate(str2date("03/18/2015",213)); 

axPurchTable.parmAccountingDate(str2date("03/18/2015",213));

axPurchTable.parmPurchStatus(PurchStatus::Backorder);

axPurchTable.doSave();

purchLine.initFromPurchTable(purchTable);

axPurchLine = AxPurchLine::newPurchLine(purchLine);

axpurchLine.parmItemId("T0001"); 

axpurchLine.parmInventDimId('000458');

axPurchLine.parmPurchQty(10);

axPurchLine.parmPurchPrice(100);

axPurchLine.doSave();

//PO confirmation 

purchTable = axPurchTable.purchTable();

purchFormLetter = PurchFormLetter::construct(DocumentStatus::PurchaseOrder);

purchFormLetter.update(purchTable, strFmt("Inv_%1", purchTable.PurchId));

// PO invoicing

purchFormLetter = PurchFormLetter::construct(DocumentStatus::Invoice);

purchFormLetter.update(purchTable, strFmt("Inv_%1", purchTable.PurchId));

info(strFmt("purchase order %1 invoiced",purchTable.PurchId));

}