|
![]() |
#1 |
Участник
|
если для разовой переброски - датапорт.
на одной таблице, с активным использованием 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); |
|
![]() |
#2 |
Участник
|
|
|