[Event Request] codeunit 5895 "Inventory Adjustment" OnPostAdjmtBufOnBeforePostNewCost

[AdeleStankeviciute]

Why do you need this change?

In 4PS Construct, we set values that are later used when posting item journal line in procedure PostAdjmtBuf in codeunit "Inventory Adjustment"

Describe the request

On behalf of 4PS, I would like to requesting creating new event OnPostAdjmtBufOnBeforePostNewCost in codeunit 5895 "Inventory Adjustment"

                end else
                    if HasNewCost(TempInvtAdjmtBuf."Cost Amount (Actual)", TempInvtAdjmtBuf."Cost Amount (Actual) (ACY)") then begin
                        if HasNewCost(TempInvtAdjmtBuf."Cost Amount (Expected)", TempInvtAdjmtBuf."Cost Amount (Expected) (ACY)") then begin
                            InitAdjmtJnlLine(ItemJnlLine, OrigValueEntry, TempInvtAdjmtBuf."Entry Type", TempInvtAdjmtBuf."Variance Type", 0);
                            PostItemJnlLine(ItemJnlLine, OrigValueEntry, TempInvtAdjmtBuf."Cost Amount (Expected)", TempInvtAdjmtBuf."Cost Amount (Expected) (ACY)");
                        end;
                        InitAdjmtJnlLine(ItemJnlLine, OrigValueEntry, TempInvtAdjmtBuf."Entry Type", TempInvtAdjmtBuf."Variance Type", OrigValueEntry."Invoiced Quantity");
                        OnPostAdjmtBufOnBeforePostNewCost(ItemJnlLine, OrigValueEntry, TempInvtAdjmtBuf);
                        PostItemJnlLine(ItemJnlLine, OrigValueEntry, TempInvtAdjmtBuf."Cost Amount (Actual)", TempInvtAdjmtBuf."Cost Amount (Actual) (ACY)");
                        OnPostAdjmtBufOnAfterPostNewCost(OrigValueEntry, TempInvtAdjmtBuf);
                    end;

    [IntegrationEvent(false, false)]
    local procedure OnPostAdjmtBufOnBeforePostNewCost(var ItemJnlLine: Record "Item Journal Line"; OrigValueEntry: Record "Value Entry"; TempInvtAdjmtBuf: Record "Inventory Adjustment Buffer" temporary)
    begin
    end;

Internal work item: AB#615867

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnPostAdjmtBufOnBeforePostNewCost in the PostAdjmtBuf procedure of Codeunit 5895 "Inventory Adjustment" before PostItemJnlLine is called for actual cost posting.

Location in PostAdjmtBuf procedure (around line 1973-1974):

                    end;
                    InitAdjmtJnlLine(ItemJnlLine, OrigValueEntry, TempInvtAdjmtBuf."Entry Type", TempInvtAdjmtBuf."Variance Type", OrigValueEntry."Invoiced Quantity");
                    OnPostAdjmtBufOnBeforePostNewCost(ItemJnlLine, OrigValueEntry, TempInvtAdjmtBuf);  // <-- New event
                    PostItemJnlLine(ItemJnlLine, OrigValueEntry, TempInvtAdjmtBuf."Cost Amount (Actual)", TempInvtAdjmtBuf."Cost Amount (Actual) (ACY)");

                    OnPostAdjmtBufOnAfterPostNewCost(OrigValueEntry, TempInvtAdjmtBuf);
                end;

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

[IntegrationEvent(false, false)]
local procedure OnPostAdjmtBufOnBeforePostNewCost(var ItemJnlLine: Record "Item Journal Line"; OrigValueEntry: Record "Value Entry"; TempInvtAdjmtBuf: Record "Inventory Adjustment Buffer" temporary)
begin
end;

---

File: InventoryAdjustment.Codeunit.al