17.05.2010, 11:28 | #1 |
Участник
|
Создание производственного заказа программно
Коллеги, есть задача по формированию производственного заказа автоматически по данным измерительных счетчиков.
В аксапте нужно сделать: 1. создать производственный Заказ 2. Перевести его в статус Начато 3. Создать Отгрузочную накладную С первым пунктом вроде справился. Примерно так: X++: qty = 20; _transDate = systemDateGet(); inventTable = InventTable::find("ItemID"); if (! inventTable.RecId) throw error(strfmt(InventTable::txtNotExist(),inventTable.ItemId)); if (! inventTable.inventItemType().canBeProduced()) throw error(strfmt("@SYS78161",inventTable.ItemType)); inventTableModuleInvent = InventTableModule::find(inventTable.ItemId,ModuleInventPurchSales::Invent); if (! inventTableModuleInvent.RecId) throw error(strfmt("@SYS5700",inventTable.ItemId,ModuleInventPurchSales::Invent)); if (inventTableModuleInvent.Blocked) throw error(strfmt("@SYS13295",inventTable.ItemId,ModuleInventPurchSales::Invent)); prodTable.initValue(); prodTable.initFromInventTable(inventTable); prodTable.ItemId = inventTable.ItemId; prodTable.QtySched = qty; prodTable.RemainInventPhysical = qty; prodTable.DlvDate = _transDate; prodTable.insert(); |
|