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.
...
WITH ItemLedgEntry DO BEGIN
IF Positive THEN BEGIN
ItemApplnEntry.RESET;
ItemApplnEntry.SETCURRENTKEY("Inbound Item Entry No.","Outbound Item Entry No.","Cost Application");
ItemApplnEntry.SETRANGE("Inbound Item Entry No.","Entry No.");
// Delete the following line.
ItemApplnEntry.SETRANGE("Item Ledger Entry No.","Entry No.");
ItemApplnEntry.SETFILTER("Outbound Item Entry No.",'<>%1',0);
ItemApplnEntry.SETRANGE("Cost Application",TRUE); // we want to show even average cost application
IF ItemApplnEntry.FIND('-') THEN
REPEAT
InsertTempEntry(ItemApplnEntry."Outbound Item Entry No.",ItemApplnEntry.Quantity,FALSE);
...
...
WITH ItemLedgEntry DO BEGIN
IF Positive THEN BEGIN
ItemApplnEntry.RESET;
ItemApplnEntry.SETCURRENTKEY("Inbound Item Entry No.","Outbound Item Entry No.","Cost Application");
ItemApplnEntry.SETRANGE("Inbound Item Entry No.","Entry No.");
// Add the following line.
ItemApplnEntry.SETFILTER("Item Ledger Entry No.",'<>%1',"Entry No.");
ItemApplnEntry.SETFILTER("Outbound Item Entry No.",'<>%1',0);
ItemApplnEntry.SETRANGE("Cost Application",TRUE); // we want to show even average cost application
IF ItemApplnEntry.FIND('-') THEN
REPEAT
InsertTempEntry(ItemApplnEntry."Outbound Item Entry No.",ItemApplnEntry.Quantity,FALSE);
...