[W1][Codeunit][99000835][Item Jnl. Line-Reserve] Add var ReturnQty: Decimal to OnAfterGetSourceValue

[mavohra]

Why do you need this change?

We need to return a custom ReturnOption quantity related to Alternate quantities/Catch weight and current event is at the correct position but lack the ability to handle the custom ReturnOption to return the value other than "Qty. (Base)" and "Gross Qty. (Base)".

Describe the request

Requested signature:

[IntegrationEvent(false, false)]
local procedure OnAfterGetSourceValue(var ReservationEntry: Record "Reservation Entry"; var SourceRecRef: RecordRef; ReturnOption: Option "Net Qty. (Base)","Gross Qty. (Base)"; var ReturnQty: Decimal)
begin
end;

  local procedure GetSourceValue(ReservationEntry: Record "Reservation Entry"; var SourceRecRef: RecordRef; ReturnOption: Option "Net Qty. (Base)","Gross Qty. (Base)"): Decimal
    var
        ItemJournalLine: Record "Item Journal Line";
    begin
        ItemJournalLine.Get(ReservationEntry."Source ID", ReservationEntry."Source Batch Name", ReservationEntry."Source Ref. No.");
        SourceRecRef.GetTable(ItemJournalLine);
        case ReturnOption of
            ReturnOption::"Net Qty. (Base)":
                exit(ItemJournalLine."Quantity (Base)");
            ReturnOption::"Gross Qty. (Base)":
                exit(ItemJournalLine."Quantity (Base)");
        end;
       OnAfterGetSourceValue(ReservationEntry, SourceRecRef, ReturnOption, ReturnQty); <--- added parameter
    end;

Internal work item: AB#635590

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Update the existing OnAfterGetSourceValue event so subscribers can override the quantity returned from GetSourceValue() for item journal reservation sources.

Location in GetSourceValue() procedure (around line 568):

local procedure GetSourceValue(ReservationEntry: Record "Reservation Entry"; var SourceRecRef: RecordRef; ReturnOption: Option "Net Qty. (Base)","Gross Qty. (Base)"): Decimal
var
    ItemJournalLine: Record "Item Journal Line";
    ReturnQty: Decimal;
begin
    ItemJournalLine.Get(ReservationEntry."Source ID", ReservationEntry."Source Batch Name", ReservationEntry."Source Ref. No.");
    SourceRecRef.GetTable(ItemJournalLine);

    case ReturnOption of
        ReturnOption::"Net Qty. (Base)":
            ReturnQty := ItemJournalLine."Quantity (Base)";
        ReturnOption::"Gross Qty. (Base)":
            ReturnQty := ItemJournalLine."Quantity (Base)";
    end;

    OnAfterGetSourceValue(ReservationEntry, SourceRecRef, ReturnOption, ReturnQty);
    exit(ReturnQty);
end;

Event Publisher (add at the end of the codeunit with other events):

[IntegrationEvent(false, false)]
local procedure OnAfterGetSourceValue(var ReservationEntry: Record "Reservation Entry"; var SourceRecRef: RecordRef; ReturnOption: Option "Net Qty. (Base)","Gross Qty. (Base)"; var ReturnQty: Decimal)
begin
end;

---

File: ItemJnlLineReserve.Codeunit.al

[AleksandricMarko]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.