经常要用代码创建采购和销售订单,需要弄清楚哪些字段是必输的,这段代码经常需要拷贝,放在这里做个备份。 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/Farseer1215/archive/2008/04/08/1141923.html