创建采购订单和销售订单

创建采购订单

经常要用代码创建采购和销售订单，需要弄清楚哪些字段是必输的，这段代码经常需要拷贝，放在这里做个备份。

                        static void CreatePurchDirectly(Args _args)
{
PurchTable purchTable;
PurchLine purchLine;
InventDim inventDim;
;
ttsbegin;
//PurchTable
//PurchId
purchTable.PurchId = NumberSeq::newGetNum(PurchParameters::numRefPurchId()).num();
purchTble.PurchaseType = PurchaseType::Purch;
purchTable.initValue();
//Vend Account
purchTable.initFromVendTable(VendTable::find('3000'));
purchTable.insert();
//PurchLine
purchLine.initFromPurchTable(purchTable);
//ItemId
purchLine.ItemId = 'B-pack1';
purchLine.initFromInventTable(InventTable::find('B-pack1'));
//Qty
purchLine.PurchQty = 100;
purchLine.QtyOrdered = 100;
purchLine.RemainInventPhysical = 100;
purchLine.RemainPurchPhysical = 100;
//InventDim Maybe should add some other dimensions.
inventDim.InventLocationId = 'GW';
purchLine.InventDimId = InventDim::findOrCreate(inventDim).inventDimId;
purchLine.insert();
ttscommit;



}

 

static void CreatePurchTableThroughAxPurch(Args _args)
{
AxPurchTable axPurchTable = new AxPurchTable();
AxPurchLine axPurchLine = new AxPurchLine();
AxInventDim_PurchLine axInventDim = new AxInventDim_PurchLine();
;
//PurchTable
//Order Account
axPurchTable.parmOrderAccount("3000");
axPurchTable.save();

//PurchLine
//PurchId
axPurchLine.axPurchTable(axPurchTable);
//ItemId
axPurchLine.parmItemId("B-pack1");
//Qty
axPurchLine.parmPurchQty(100);

//InventDim Maybe should add some other dimensions
axInventDim.axPurchLine(axPurchLine);
axInventDim.parmInventLocationId('MW');
axPurchLine.axInventDim(axInventDim);

axPurchLine.save();

}

 

转载于:https://www.cnblogs.com/yuankang/archive/2012/04/10/2440306.html