[W1][Codeunit][7301][Whse. Jnl.-Register Line] add public GetRegisters procedure

[mavohra]

Why do you need this change?

Request 3 of 4 in the getter/setter series.

At OnAfterPostItemJnlLineWhseLine in Purch.-Post we need to read register state back from the active WhseJnlPostLine instance:

OnAfterPostItemJnlLineWhseLine:
  → WhseJnlPostLine.GetRegisters(ItemReg2, ItemApplnEntryNo2, WhseReg2, GLReg2,
            NextVATEntryNo2, NextTransactionNo2)                    // Read back from Whse. Jnl.-Register Line
    → ItemJnlPostLine.SetRegisters(...)                         // Restore into Item Jnl.-Post Line

Whse. Jnl.-Register Line has no GetRegisters.

Describe the request

Please add this procedure in Whse. Jnl.-Register Line.

public procedure GetRegisters(
    var ItemReg2: Record "Item Register";
    var ItemApplnEntryNo2: Integer;
    var WhseReg2: Record "Warehouse Register";
    var GLReg2: Record "G/L Register";
    var NextVATEntryNo2: Integer;
    var NextTransactionNo2: Integer)
begin
    GetWhseRegister(WhseReg2);
    OnGetRegisters(ItemReg2, ItemApplnEntryNo2, WhseReg2, GLReg2,
        NextVATEntryNo2, NextTransactionNo2);
end;

[IntegrationEvent(false, false)]
local procedure OnGetRegisters(
    var ItemReg2: Record "Item Register";
    var ItemApplnEntryNo2: Integer;
    var WhseReg2: Record "Warehouse Register";
    var GLReg2: Record "G/L Register";
    var NextVATEntryNo2: Integer;
    var NextTransactionNo2: Integer)
begin
end;
Internal work item: [AB#633958](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/633958)

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new public GetRegisters procedure in codeunit 7301 "Whse. Jnl.-Register Line" next to the existing SetWhseRegister/GetWhseRegister pair, and add a new OnGetRegisters integration event in the codeunit event section.

Current code:

procedure SetWhseRegister(WhseRegDef: Record "Warehouse Register")
begin
    WhseReg := WhseRegDef;
    OnAfterSetWhseRegister(WhseReg);
end;

procedure GetWhseRegister(var WhseRegDef: Record "Warehouse Register")
begin
    WhseRegDef := WhseReg;
end;

Proposed change:

procedure SetWhseRegister(WhseRegDef: Record "Warehouse Register")
begin
    WhseReg := WhseRegDef;
    OnAfterSetWhseRegister(WhseReg);
end;

procedure GetWhseRegister(var WhseRegDef: Record "Warehouse Register")
begin
    WhseRegDef := WhseReg;
end;

procedure GetRegisters(
    var ItemReg2: Record "Item Register";
    var ItemApplnEntryNo2: Integer;
    var WhseReg2: Record "Warehouse Register";
    var GLReg2: Record "G/L Register";
    var NextVATEntryNo2: Integer;
    var NextTransactionNo2: Integer)
begin
    GetWhseRegister(WhseReg2);
    OnGetRegisters(
        ItemReg2,
        ItemApplnEntryNo2,
        WhseReg2,
        GLReg2,
        NextVATEntryNo2,
        NextTransactionNo2);
end;

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

---

File: WhseJnlRegisterLine.Codeunit.al

[AleksandricMarko]

As we agreed in some moment, we will not go with these setter/getter procedures