[rkorchagin]

Спасибо.

Вроде работает:

Цитата:

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;