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 of the Properties in the Purch.-Post codeunit (90) as follows:
...
PurchLine.CalcVATAmountLines(1,PurchHeader,CombinedPurchLineTemp,TempVATAmountLine);
IF PurchLine.FINDSET THEN
REPEAT
// Delete the following line.
JobPurchLine := PurchLine;
ItemJnlRollRndg := FALSE;
LineCount := LineCount + 1;
IF GUIALLOWED THEN
Window.UPDATE(2,LineCount);
...
...
PurchLine.CalcVATAmountLines(1,PurchHeader,CombinedPurchLineTemp,TempVATAmountLine);
IF PurchLine.FINDSET THEN
REPEAT
ItemJnlRollRndg := FALSE;
LineCount := LineCount + 1;
IF GUIALLOWED THEN
Window.UPDATE(2,LineCount);
...
...
TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
TempDocDim.SETRANGE("Line No.",PurchLine."Line No.");
TempJnlLineDim.DELETEALL;
DimMgt.CopyDocDimToJnlLineDim(TempDocDim,TempJnlLineDim);
JobPostLine.InsertPurchLine(
PurchHeader,PurchInvHeader,PurchCrMemoHeader,JobPurchLine,SrcCode,TempJnlLineDim);
END;
IF (PurchLine."IC Partner Code" <> '') AND Invoice THEN
...
...
TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
TempDocDim.SETRANGE("Line No.",PurchLine."Line No.");
TempJnlLineDim.DELETEALL;
DimMgt.CopyDocDimToJnlLineDim(TempDocDim,TempJnlLineDim);
// Add the following line.
JobPurchLine := PurchLine; // ALLE AG
JobPostLine.InsertPurchLine(
PurchHeader,PurchInvHeader,PurchCrMemoHeader,JobPurchLine,SrcCode,TempJnlLineDim);
END;
IF (PurchLine."IC Partner Code" <> '') AND Invoice THEN
...