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.
...
ActualAmount@1130002 : Decimal;
BEGIN
ValueEntry2.COPYFILTERS(ValueEntry);
ValueEntry2.SETRANGE("Invoiced Quantity",0);
ValueEntry2.SETRANGE("Item Ledger Entry Type",ValueEntry."Item Ledger Entry Type");
// Delete the following line.
ValueEntry2.SETRANGE("Item Ledger Entry No.");
ValueEntry2.SETFILTER("Item Charge No.",'<>%1','');
ValueEntry2.SETRANGE("Document No.",ValueEntry."Document No.");
IF ValueEntry2.FINDSET THEN BEGIN
REPEAT
ActualAmount := GetActualAmount(ValueEntry2);
...
...
ActualAmount@1130002 : Decimal;
BEGIN
ValueEntry2.COPYFILTERS(ValueEntry);
ValueEntry2.SETRANGE("Invoiced Quantity",0);
ValueEntry2.SETRANGE("Item Ledger Entry Type",ValueEntry."Item Ledger Entry Type");
// Add the following line.
ValueEntry2.SETRANGE("Item Ledger Entry No.",ValueEntry."Item Ledger Entry No.");
ValueEntry2.SETFILTER("Item Charge No.",'<>%1','');
ValueEntry2.SETRANGE("Document No.",ValueEntry."Document No.");
IF ValueEntry2.FINDSET THEN BEGIN
REPEAT
ActualAmount := GetActualAmount(ValueEntry2);
...