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.
...
VAR
WhseItemTrackingLine@1000 : Record 6550;
BEGIN
WITH WhseItemTrackingLine DO BEGIN
...
...
VAR
WhseItemTrackingLine@1000 : Record 6550;
// Add the following lines.
WhseActivityLine@1004 : Record 5767;
AvailableQtyToHandle@1005 : Decimal;
// End of the lines.
BEGIN
WITH WhseItemTrackingLine DO BEGIN
...
...
SETRANGE("Source Ref. No.",PostedWhseRcptLine."Line No.");
IF FIND('-') THEN BEGIN
// Delete the following lines.
IF QtyToHandleBase < "Qty. to Handle (Base)" THEN
PostedWhseRcptLine."Qty. (Base)" := QtyToHandleBase
ELSE
PostedWhseRcptLine."Qty. (Base)" := "Qty. to Handle (Base)";
// End of the lines.
QtyToHandleBase -= PostedWhseRcptLine."Qty. (Base)";
PostedWhseRcptLine.Quantity :=
...
...
SETRANGE("Source Ref. No.",PostedWhseRcptLine."Line No.");
IF FIND('-') THEN BEGIN
// Add the following lines.
AvailableQtyToHandle := "Qty. to Handle (Base)";
WhseActivityLine.SETCURRENTKEY(
"Item No.","Bin Code","Location Code","Action Type",
"Variant Code","Unit of Measure Code","Breakbulk No.",
"Activity Type","Lot No.","Serial No.","Original Breakbulk");
WhseActivityLine.SETRANGE("Item No.",PostedWhseRcptLine."Item No.");
WhseActivityLine.SETRANGE("Bin Code",PostedWhseRcptLine."Bin Code");
WhseActivityLine.SETRANGE("Location Code",PostedWhseRcptLine."Location Code");
WhseActivityLine.SETRANGE("Action Type", WhseActivityLine."Action Type"::Take);
WhseActivityLine.SETRANGE("Variant Code",PostedWhseRcptLine."Variant Code");
WhseActivityLine.SETRANGE("Unit of Measure Code",PostedWhseRcptLine."Unit of Measure Code");
WhseActivityLine.SETRANGE("Serial No.",PostedWhseRcptLine."Serial No.");
WhseActivityLine.SETRANGE("Lot No.",PostedWhseRcptLine."Lot No.");
WhseActivityLine.CALCSUMS("Qty. Outstanding (Base)");
AvailableQtyToHandle -= WhseActivityLine."Qty. Outstanding (Base)";
IF QtyToHandleBase < AvailableQtyToHandle THEN
PostedWhseRcptLine."Qty. (Base)" := QtyToHandleBase
ELSE
PostedWhseRcptLine."Qty. (Base)" := AvailableQtyToHandle;
// End of the lines.
QtyToHandleBase -= PostedWhseRcptLine."Qty. (Base)";
PostedWhseRcptLine.Quantity :=
...