[Event Request] codeunit 5895 "Inventory Adjustment" OnAfterInitRndgResidualItemJnlLine

[AdeleStankeviciute]

Why do you need this change?

In 4PS Construct we need to assign additional field values after initializing Item Journal Line.

Describe the request

On behalf of 4PS, I would like to request adding new event OnAfterInitRndgResidualItemJnlLine to codeunit "Inventory Adjustment"

    local procedure InitRndgResidualItemJnlLine(var ItemJnlLine: Record "Item Journal Line"; OrigValueEntry: Record "Value Entry")
    begin
        ItemJnlLine.Init();
        ItemJnlLine."Value Entry Type" := ItemJnlLine."Value Entry Type"::Rounding;
        ItemJnlLine."Quantity (Base)" := 1;
        ItemJnlLine."Invoiced Qty. (Base)" := 1;
        ItemJnlLine."Source No." := OrigValueEntry."Source No.";

        OnAfterInitRndgResidualItemJnlLine(ItemJnlLine, OrigValueEntry);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnAfterInitRndgResidualItemJnlLine(var ItemJnlLine: Record "Item Journal Line"; OrigValueEntry: Record "Value Entry")
    begin
    end;

Internal work item: AB#616766

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event at the end of the InitRndgResidualItemJnlLine() procedure in Codeunit 5895 "Inventory Adjustment".

Procedure: InitRndgResidualItemJnlLine() (around line 1173)

Code change:

local procedure InitRndgResidualItemJnlLine(var ItemJnlLine: Record "Item Journal Line"; OrigValueEntry: Record "Value Entry")
begin
    ItemJnlLine.Init();
    ItemJnlLine."Value Entry Type" := ItemJnlLine."Value Entry Type"::Rounding;
    ItemJnlLine."Quantity (Base)" := 1;
    ItemJnlLine."Invoiced Qty. (Base)" := 1;
    ItemJnlLine."Source No." := OrigValueEntry."Source No.";
    OnAfterInitRndgResidualItemJnlLine(ItemJnlLine, OrigValueEntry);  // <-- Add this event call
end;

Event Publisher:

Add this at the end of the codeunit with other integration events:

[IntegrationEvent(false, false)]
local procedure OnAfterInitRndgResidualItemJnlLine(var ItemJnlLine: Record "Item Journal Line"; OrigValueEntry: Record "Value Entry")
begin
end;

---

File: InventoryAdjustment.Codeunit.al

[JesperSchulz]

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.

Build ID: 43889.