To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
To resolve this problem, change the code in the Data Item Number 2 in the Close Income Statement report (94) as follows:
...
GenJnlLine."System-Created Entry" := TRUE;
GenJnlLine."Source Currency Amount" := -EntryNoAmountBuf.Amount2;
GenJnlLine."Business Unit Code" := EntryNoAmountBuf."Business Unit Code";
TempDimBuf2.DELETEALL;
DimBufMgt.RetrieveDimensions(EntryNoAmountBuf."Entry No.",TempDimBuf2);
DimMgt.MoveDimBufToJnlLineDim(
TempDimBuf2,TempJnlLineDim,DATABASE::"Gen. Journal Line",
GenJnlLine."Journal Template Name",GenJnlLine."Journal Batch Name",GenJnlLine."Line No.");
GenJnlLine."Shortcut Dimension 1 Code" := '';
...
...
GenJnlLine."System-Created Entry" := TRUE;
GenJnlLine."Source Currency Amount" := -EntryNoAmountBuf.Amount2;
GenJnlLine."Business Unit Code" := EntryNoAmountBuf."Business Unit Code";
TempDimBuf2.DELETEALL;
// Add the following line.
TempJnlLineDim.DELETEALL;
// End of the line.
DimBufMgt.RetrieveDimensions(EntryNoAmountBuf."Entry No.",TempDimBuf2);
DimMgt.MoveDimBufToJnlLineDim(
TempDimBuf2,TempJnlLineDim,DATABASE::"Gen. Journal Line",
GenJnlLine."Journal Template Name",GenJnlLine."Journal Batch Name",GenJnlLine."Line No.");
GenJnlLine."Shortcut Dimension 1 Code" := '';