[Event Request] Table 11000000 "Proposal Line" - OnInitRecordOnBeforeFindProposalLine

[KateDovgalova]

Why do you need this change?

In 4PS Construct we need to set additional filter on ProposalLine in procedure 'InitRecord' in table 11000000 "Proposal Line" before assigning "Header Dimension Set ID".

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnInitRecordOnBeforeFindProposalLine' to be added to procedure 'InitRecord' in table 11000000 "Proposal Line".

    procedure InitRecord()
    var
        ProposalLine: Record "Proposal Line";
    begin
        TestField("Our Bank No.");
        BankAcc.Get("Our Bank No.");
        "Currency Code" := BankAcc."Currency Code";
        if "Transaction Date" = 0D then
            "Transaction Date" := WorkDate() + 1;
        OnInitRecordOnBeforeFindProposalLine(Rec, ProposalLine); //new
        if ProposalLine.FindFirst() then
            "Header Dimension Set ID" := ProposalLine."Header Dimension Set ID";
    end;

    [IntegrationEvent(false, false)]
    local procedure OnInitRecordOnBeforeFindProposalLine(CurrentProposalLine: Record "Proposal Line"; var ProposalLine: Record "Proposal Line")
    begin
        //new
    end;

[tomasevicst]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event in the InitRecord() procedure of Table 11000000 "Proposal Line" before if ProposalLine.FindFirst() to allow subscribers to set additional filters on the ProposalLine variable.

Location in InitRecord() procedure (around line 708):

[Scope('OnPrem')]
procedure InitRecord()
var
    ProposalLine: Record "Proposal Line";
begin
    TestField("Our Bank No.");
    BankAcc.Get("Our Bank No.");
    "Currency Code" := BankAcc."Currency Code";
    if "Transaction Date" = 0D then
        "Transaction Date" := WorkDate() + 1;
    
    OnInitRecordOnBeforeFindProposalLine(Rec, ProposalLine);  // <-- New event
    if ProposalLine.FindFirst() then
        "Header Dimension Set ID" := ProposalLine."Header Dimension Set ID";
end;

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

[IntegrationEvent(false, false)]
local procedure OnInitRecordOnBeforeFindProposalLine(CurrentProposalLine: Record "Proposal Line"; var ProposalLine: Record "Proposal Line")
begin
end;

---

File: ProposalLine.Table.al