если для разовой переброски - датапорт.
на одной таблице, с активным использованием onAfterImportRecord
код сюда можно срисовать с триггеров таблицы Item.
в триггер onBeforeImportRecord модно вставить item.Init;
У нас вот такой код в датапорте.
больше половины - наша внутреняя специфика.
но как видно - кода немного.
--------------
Item - OnBeforeImportRecord()
INIT;
Item - OnAfterImportRecord()
NoSeriesMgt.InitSeries(InvtSetup."Item Nos.","No. Series",0D,"No.","No. Series");
"Costing Method" := "Costing Method"::Average;
VALIDATE(Description);
VALIDATE("Inventory Posting Group");
VALIDATE("VAT Prod. Posting Group");
VALIDATE("Gen. Prod. Posting Group", "GP Posting Group");
INSERT(TRUE);
ItemUnit.INIT;
ItemUnit."Item No." := "No.";
ItemUnit.Code := "Base Unit of Measure";
ItemUnit."Qty. per Unit of Measure" := 1;
ItemUnit.INSERT(TRUE);
VALIDATE("Base Unit of Measure");
IF ("BSO Dimension Code" <> '') AND ("BSO Dimension Value Code" <> '') THEN BEGIN
DefaultDim.INIT;
DefaultDim."Table ID" := DATABASE::Item;
DefaultDim."No." := Item."No.";
DefaultDim.VALIDATE("Dimension Code", "BSO Dimension Code");
DefaultDim.VALIDATE("Dimension Value Code", "BSO Dimension Value Code");
DefaultDim.INSERT(TRUE);
END;
MODIFY(TRUE);
|