Hi everyone,
Can anyone please help me in below code. I am using below code to create a PO. So my PO is getting created, but by default its PurchOrderStatus is Cancelled due to which i am not able to Receive PO.
AxPurchTable axPurchTable;
PurchTable purchTab;
PurchLine purchLn;
numseq = NumberSeq::newGetNum(PurchParameters::numRefPurchId());
numseq.used();
purchtab.clear();
purchTab.initValue();
purchTab.PurchId = numSeq.num();
PurchTab.initFromVendTable(VendTable::find('XX1200'));
axPurchTable = axPurchTable::newPurchTable(purchTab);
axPurchTable.parmPurchaseType(PurchaseType::Purch);
axPurchTable.parmDocumentStatus(DocumentStatus::PurchaseOrder);
axPurchTable.parmAccountingDate(systemDateGet());
axPurchTable.parmPurchStatus(PurchStatus::None);
axPurchTable.parmInventSiteId(salesTab.InventSiteId);
axPurchTable.parmInventLocationId(salesTab.InventLocationId);
purchTab.insert();
PurchLn.clear();
PurchLn.initValue();
PurchLn.PurchId = purchTab.PurchId;
PurchLn.ItemId = cusPckngSlpTrns.ItemId;
PurchLn.LineNumber = lastlinecount + 1;
PurchLn.PurchQty = cusPckngSlpTrns.Qty;
PurchLn.PurchUnit = 'LTR'
PurchLn.VendAccount = 'V-001';
PurchLn.VendGroup = VendTable::find('V-001').VendGroup;
PurchLn.PurchPrice = invntItmPrc.Price;
PurchLn.InventDimId = invDimLoc.inventDimId;
PurchLn.CurrencyCode = 'INR';
PurchLn.PurchStatus = 1;
PurchLn.insert();