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.
...
ReservationEntry3.INSERT;
UNTIL ReservationEntry2.NEXT = 0;
END;
IF QtyToBeReceivedBase <> 0 THEN BEGIN
IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
ReservePurchLine.TransferPurchLineToItemJnlLine(
PurchLine,ItemJnlLine,-QtyToBeReceivedBase,CheckApplToItemEntry)
...
...
ReservationEntry3.INSERT;
UNTIL ReservationEntry2.NEXT = 0;
END;
// Add the following lines.
IF PurchHeader."Cancellation Type" = PurchHeader."Cancellation Type"::Amount THEN BEGIN
IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
ReservePurchLine.TransferPurchLineToItemJnlLine(PurchLine,ItemJnlLine,-QtyToBeInvoicedBase,CheckApplToItemEntry)
ELSE
ReservePurchLine.TransferPurchLineToItemJnlLine(PurchLine,ItemJnlLine,QtyToBeInvoicedBase,CheckApplToItemEntry);
END;
// End of the lines.
IF QtyToBeReceivedBase <> 0 THEN BEGIN
IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
ReservePurchLine.TransferPurchLineToItemJnlLine(
PurchLine,ItemJnlLine,-QtyToBeReceivedBase,CheckApplToItemEntry)
...