作業指示のジョブを作成します。

ProdQ​​ty数量= 100。

アイテムID項目=「ItemCode」。

ProdTable prodtable;

InventTable inventTable;

InventDim inventDim;

;

inventTable = inventTable ::（アイテム）を見つけます。

inventDim.initFromInventTable（inventTable）。

prodtable.initValue（）;

prodtable.initFromInventTable（inventTable）。

prodtable.ItemId = inventTable.ItemId。

prodtable.DlvDate =今日（）;

prodtable.QtySched =数量;

prodtable.RemainInventPhysical =数量;

prodtable.BOMId = BOMVersion :: findActive（prodtable.ItemId、

prodtable.BOMDate、

prodtable.QtySched、

inventDim）.BOMId。

prodtable.RouteId = RouteVersion :: findActive（prodtable.ItemId、

prodtable.BOMDate、

prodtable.QtySched、

inventDim）.RouteId。

prodtable.initBOMVersion（）;

prodtable.initRouteVersion（）;

。prodtable.type（））（挿入します。