![]() |
#13 |
Участник
|
Только, что проверил - все работает. И из карточки, и из списка измерения попадают в журнал зарплаты.
Вызов заполнения идет из отчета по расчету 14801, а сам перенос в Codeunit 14812 Триггер PayrollJnlInsertDimension(VAR PayrollJnlLine : Record "Payroll Journal Line") //PayrollJnlInsertDimension IF (Employee.GET(PayrollJnlLine."Employee No.")) AND (PayrollJnlLine."Gen. Post Type" <> PayrollJnlLine."Gen. Post Type"::"Not Post") THEN BEGIN DefaultDimension.RESET; DefaultDimension.SETRANGE(DefaultDimension."Table ID",5200); DefaultDimension.SETRANGE(DefaultDimension."No.",Employee."No."); IF DefaultDimension.FIND('-') THEN REPEAT JournalDimension.INIT; JournalDimension."Table ID" := 14820; JournalDimension."Journal Template Name" := PayrollJnlLine.Template; JournalDimension."Journal Batch Name" := PayrollJnlLine."Batch Name"; JournalDimension."Journal Line No." := PayrollJnlLine."Line No."; JournalDimension."Dimension Code" := DefaultDimension."Dimension Code"; JournalDimension."Dimension Value Code" := DefaultDimension."Dimension Value Code"; IF JournalDimension.INSERT THEN; UNTIL DefaultDimension.NEXT = 0; END; IF PayrollElement.GET(PayrollJnlLine."Element Code") THEN BEGIN DefaultDimension.RESET; DefaultDimension.SETRANGE("Table ID",14800); DefaultDimension.SETRANGE("No.",PayrollElement.Code); IF DefaultDimension.FIND('-') THEN REPEAT JournalDimension.INIT; JournalDimension."Table ID" := 14820; JournalDimension."Journal Template Name" := PayrollJnlLine.Template; JournalDimension."Journal Batch Name" := PayrollJnlLine."Batch Name"; JournalDimension."Journal Line No." := PayrollJnlLine."Line No."; JournalDimension."Dimension Code" := DefaultDimension."Dimension Code"; JournalDimension."Dimension Value Code" := DefaultDimension."Dimension Value Code"; IF NOT JournalDimension.INSERT THEN BEGIN JournalDimension2.RESET; JournalDimension2.SETRANGE("Table ID", 14820); JournalDimension2.SETRANGE("Journal Template Name", PayrollJnlLine.Template); JournalDimension2.SETRANGE("Journal Batch Name", PayrollJnlLine."Batch Name"); JournalDimension2.SETRANGE("Journal Line No.", PayrollJnlLine."Line No."); JournalDimension2.SETRANGE("Dimension Code", DefaultDimension."Dimension Code"); IF JournalDimension2.FIND('-') THEN BEGIN JournalDimension2."Dimension Value Code" := DefaultDimension."Dimension Value Code"; JournalDimension2.MODIFY; END; END; UNTIL DefaultDimension.NEXT = 0; END; |
|