...
GenJnlLine."Source Code" := SourceCodeSetup."Depr. Difference";
GenJnlLine."Bal. Account Type" := GenJnlLine."Bal. Account Type"::"G/L Account";
GenJnlLine."Bal. Account No." := DeprDiffBuffer."Depr. Difference Bal. Acc.";
// Delete the following line.
GenJnlPostLine.RUN(GenJnlLine);
// End of the deleted line.
...
...
GenJnlLine."Source Code" := SourceCodeSetup."Depr. Difference";
GenJnlLine."Bal. Account Type" := GenJnlLine."Bal. Account Type"::"G/L Account";
GenJnlLine."Bal. Account No." := DeprDiffBuffer."Depr. Difference Bal. Acc.";
// Add the following lines.
DefaultDimension.RESET;
DefaultDimension.SETRANGE("Table ID",DATABASE::"Fixed Asset");
DefaultDimension.SETRANGE("No.",DeprDiffBuffer."FA No.");
IF DefaultDimension.FINDSET THEN REPEAT
IF DefaultDimension."Dimension Value Code" <> '' THEN BEGIN
JnlLineDimension.INIT;
JnlLineDimension."Table ID" := DATABASE::"Gen. Journal Line";
JnlLineDimension."Journal Template Name" := GenJnlLine."Journal Template Name";
JnlLineDimension."Journal Batch Name" := GenJnlLine."Journal Batch Name";
JnlLineDimension."Journal Line No." := GenJnlLine."Line No.";
JnlLineDimension.VALIDATE("Dimension Code",DefaultDimension."Dimension Code");
JnlLineDimension.VALIDATE("Dimension Value Code",DefaultDimension."Dimension Value Code");
JnlLineDimension.INSERT(TRUE);
END;
UNTIL DefaultDimension.NEXT = 0;
JnlLineDimension.RESET;
JnlLineDimension.SETRANGE("Table ID",DATABASE::"Gen. Journal Line");
JnlLineDimension.SETRANGE("Journal Template Name",GenJnlLine."Journal Template Name");
JnlLineDimension.SETRANGE("Journal Batch Name",GenJnlLine."Journal Batch Name");
IF JnlLineDimension.FINDFIRST THEN;
GenJnlPostLine.RunWithCheck(GenJnlLine,JnlLineDimension);
// End of the added lines.
...