23.01.2007, 10:52 | #4 |
Участник
|
Спасибо.
Вроде работает: Цитата:
reqPO.clear();
reqTrans.clear(); ttsbegin; reqPlanId = reqPlanSched::defaultStaticId(); reqPlan = reqPlan::find(reqPlanId); if (!reqPlan.RecId) this.addError("@SYS28502",KRBErrorLevel::E2_Warning); reqPO.ReqPlanId = reqPlanId; reqPO.RefType = ReqRefType::ItemPlannedOrder; reqPO.initFromItemId(ItemId); reqPO.Qty = str2num(ReqQuantity); reqPO.PurchQty = str2num(ReqQuantity); inventDim.InventLocationId = Warehouse; reqPO.CovInventDimId = InventDim::findOrCreate(inventDim).inventDimId; reqPO.PurchUnit = inventTableModule::find(ItemId,moduleInventPurchSales::Invent).UnitId; reqPO.insert(); reqTrans.insertFromReqPo(reqPO); ttscommit; |
|
Теги |
сводное планирование |
|
|