[W1][Codeunit][22][Item Jnl.-Post Line] add OnSetRegisters integration event in procedure SetRegisters

[mavohra]

Why do you need this change?

Reference to #30008 and #30091

Once SetRegisters on CU 22 is public (see companion request-for-external issue), a subscriber calling it restores the Item Register and Warehouse Register state correctly. However, the G/L Register state, GLReg2, NextVATEntryNo2, NextTransactionNo2, is restored inside SetRegisters via an internal call to InventoryPostingToGL.SetGLRegister. There is no way for a subscriber to intercept or augment that G/L Register restore step from outside CU 22. The OnAfterPostItemJnlLineWhseLine subscriber in Purch.-Post needs to restore additional G/L Register fields added by a Food extension without modifying the internal call chain. No existing event in CU 22 fires at this point. An OnSetRegisters event placed at the end of SetRegisters exposes all register parameters to subscribers so each can perform their own restore step independently.

Describe the request

[W1][Codeunit][22][Item Jnl.-Post Line]
SetRegisters

---

Fires at the end of SetRegisters so subscribers can restore additional register state (such as extended G/L Register fields) after the standard restore logic runs.

---

[IntegrationEvent(false, false)]
local procedure OnSetRegisters(
var ItemReg2: Record "Item Register";
ItemApplnEntryNo2: Integer;
var WhseReg2: Record "Warehouse Register";
var GLReg2: Record "G/L Register";
NextVATEntryNo2: Integer;
NextTransactionNo2: Integer)
begin
end;
Internal work item: AB#635905

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnSetRegisters at the end of the SetRegisters procedure in Codeunit 22 "Item Jnl.-Post Line" to allow subscribers to restore additional register state after the standard restore logic runs.

Location in SetRegisters procedure (at the end, before end;):

procedure SetRegisters(
    var ItemReg2: Record "Item Register";
    ItemApplnEntryNo2: Integer;
    var WhseReg2: Record "Warehouse Register";
    var GLReg2: Record "G/L Register";
    NextVATEntryNo2: Integer;
    NextTransactionNo2: Integer)
begin
    if (ItemReg2."No." <> 0) then begin
        ItemReg := ItemReg2;
        ItemLedgEntryNo := ItemReg2."To Entry No.";
        PhysInvtEntryNo := ItemReg2."To Phys. Inventory Entry No.";
        ValueEntryNo := ItemReg2."To Value Entry No.";
        CapLedgEntryNo := ItemReg2."To Capacity Entry No.";
        ItemApplnEntryNo := ItemApplnEntryNo2;
    end;
    if (WhseReg2."No." <> 0) then
        WhseJnlRegisterLine.SetWhseRegister(WhseReg2);
    OnSetRegisters(ItemReg2, ItemApplnEntryNo2, WhseReg2, GLReg2, NextVATEntryNo2, NextTransactionNo2);  // <-- New event
end;

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

[IntegrationEvent(false, false)]
local procedure OnSetRegisters(
    var ItemReg2: Record "Item Register";
    ItemApplnEntryNo2: Integer;
    var WhseReg2: Record "Warehouse Register";
    var GLReg2: Record "G/L Register";
    NextVATEntryNo2: Integer;
    NextTransactionNo2: Integer)
begin
end;

---

File: ItemJnlPostLine.Codeunit.al

[AleksandricMarko]

as #30008 closed as not planed, same for this one