[Event Request] codeunit 99000823 "Mfg. Item Jnl.-Post Batch" - OnAfterHandleWhsePutAwayForProdOutput

[makuhn]

Why do you need this change?

Event ist required to integrate our enhanced warehouse functionality for load carrier management (create put-away per load carrier).

Describe the request

    local procedure HandleWhsePutAwayForProdOutput(ItemJournalLine: Record "Item Journal Line")
    begin
        if ItemJournalLine.OutputValuePosting() then
            exit;

        if ItemJournalLine."Entry Type" <> ItemJournalLine."Entry Type"::Output then
            exit;

        if (ItemJournalLine."Order No." = '') or (ItemJournalLine."Order Line No." = 0) then
            exit;

        MfgCreatePutaway.IncludeIntoWhsePutAwayForProdOrder(ItemJournalLine);
+       OnAfterHandleWhsePutAwayForProdOutput(ItemJournalLine);
    end;

...

+   [IntegrationEvent(false, false)]
+   local procedure OnAfterHandleWhsePutAwayForProdOutput(ItemJournalLine: Record "Item Journal Line")
+   begin
+   end;

Internal work item: AB#619014

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event in the HandleWhsePutAwayForProdOutput procedure of Codeunit 99000823 "Mfg. Item Jnl.-Post Batch" after MfgCreatePutaway.IncludeIntoWhsePutAwayForProdOrder(ItemJournalLine); at line 46.

Location in HandleWhsePutAwayForProdOutput procedure (around line 46):

local procedure HandleWhsePutAwayForProdOutput(ItemJournalLine: Record "Item Journal Line")
begin
    if ItemJournalLine.OutputValuePosting() then
        exit;

    if ItemJournalLine."Entry Type" <> ItemJournalLine."Entry Type"::Output then
        exit;

    if (ItemJournalLine."Order No." = '') or (ItemJournalLine."Order Line No." = 0) then
        exit;

    MfgCreatePutaway.IncludeIntoWhsePutAwayForProdOrder(ItemJournalLine);
    OnAfterHandleWhsePutAwayForProdOutput(ItemJournalLine);
end;

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

[IntegrationEvent(false, false)]
local procedure OnAfterHandleWhsePutAwayForProdOutput(ItemJournalLine: Record "Item Journal Line")
begin
end;

---

File: MfgItemJnlPostBatch.Codeunit.al