[Event Request] Codeunit 99000843 "Undo Prod. Posting Mgmt." OnReverseProdItemLedgerEntryOnAfterProcessItemLedgerEntries

[Rambabu-Billuri]

Why do you need this change?

Hi Team,

We are unable to implement an integration process that requires all reversal entries to be sent at once, and we cannot achieve this through the existing event OnReverseProdItemLedgerEntryOnAfterProcessItemLedgerEntry() because it loops through individual entries. So, we request you to provide an event in codeunit 99000843 "Undo Prod. Posting Mgmt." on ReverseProdItemLedgerEntry() procedure.

Describe the request
Event
OnReverseProdItemLedgerEntryOnAfterProcessItemLedgerEntries(ItemLedgerEntry);

Event Publisher
[IntegrationEvent(false, false)]
local procedure OnReverseProdItemLedgerEntryOnAfterProcessItemLedgerEntries(var ItemLedgerEntry: Record "Item Ledger Entry")
begin
end;

Note: Please provide the ItemLedgerEntry parameter with reference so we can loop and see the other entries that come into this function.

Describe the request

Request for event publisher.
Internal work item: AB#617043

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event in the ReverseProdItemLedgerEntry() procedure of Codeunit 99000843 "Undo Prod. Posting Mgmt." after the loop completes processing all item ledger entries.

Location in ReverseProdItemLedgerEntry() procedure (around line 46):

procedure ReverseProdItemLedgerEntry(var ItemLedgerEntry: Record "Item Ledger Entry")
var
    Processed: Boolean;
begin
    if not CanPostReversal() then
        Error('');

    ItemLedgerEntry.SetBaseLoadFields();
    if ItemLedgerEntry.FindSet() then
        repeat
            ProcessItemLedgEntry(ItemLedgerEntry);
            OnReverseProdItemLedgerEntryOnAfterProcessItemLedgerEntry(ItemLedgerEntry);
            Processed := true;
        until ItemLedgerEntry.Next() = 0;

    OnReverseProdItemLedgerEntryOnAfterProcessItemLedgerEntries(ItemLedgerEntry);  // <-- New event

    if Processed then
        Message(PostedSuccessfullyMsg);
end;

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

[IntegrationEvent(false, false)]
local procedure OnReverseProdItemLedgerEntryOnAfterProcessItemLedgerEntries(var ItemLedgerEntry: Record "Item Ledger Entry")
begin
end;

---

File: UndoProdPostingMgmt.Codeunit.al