[Event change Request] Modify event OnReadPostedBillGroupOnAfterSetDelay on Report 7000086 "Batch Settl. Posted Bill Grs."

[jrodaLaberit]

Describe the request

Hi,

We need to modify the event OnReadPostedBillGroupOnAfterSetDelay, we need add the dataitem "PostedBillGr"

Original:

dataitem(PostedBillGr; "Posted Bill Group")
        {
            DataItemTableView = sorting("No.") order(ascending);
            dataitem(PostedDoc; "Posted Cartera Doc.")
            {
                DataItemLink = "Bill Gr./Pmt. Order No." = field("No.");
                DataItemTableView = sorting("Bill Gr./Pmt. Order No.", Status, "Category Code", Redrawn, "Due Date") where(Status = const(Open), Type = const(Receivable));

                trigger OnAfterGetRecord()
                var
                    FromJnl: Boolean;
                begin
                    IsRedrawn := CarteraManagement.CheckFromRedrawnDoc("No.");
                    BankAcc.Get(PostedBillGr."Bank Account No.");
                    OnReadPostedBillGroupOnAfterGetBankAcc(BankAcc);
                    Delay := BankAcc."Delay for Notices";
                    OnReadPostedBillGroupOnAfterSetDelay(BankAcc, Delay);

                    if DueOnly and (PostingDate < "Due Date" + Delay) then
                        CurrReport.Skip();

                    [. . .]

Modified:

dataitem(PostedBillGr; "Posted Bill Group")
        {
            DataItemTableView = sorting("No.") order(ascending);
            dataitem(PostedDoc; "Posted Cartera Doc.")
            {
                DataItemLink = "Bill Gr./Pmt. Order No." = field("No.");
                DataItemTableView = sorting("Bill Gr./Pmt. Order No.", Status, "Category Code", Redrawn, "Due Date") where(Status = const(Open), Type = const(Receivable));

                trigger OnAfterGetRecord()
                var
                    FromJnl: Boolean;
                begin
                    IsRedrawn := CarteraManagement.CheckFromRedrawnDoc("No.");
                    BankAcc.Get(PostedBillGr."Bank Account No.");
                    OnReadPostedBillGroupOnAfterGetBankAcc(BankAcc);
                    Delay := BankAcc."Delay for Notices";
                    >>>>>>>>>>>>>>>>>>>
                    OnReadPostedBillGroupOnAfterSetDelay(BankAcc, Delay,PostedBillGr);
                    <<<<<<<<<<<<<<<<<<<

                    if DueOnly and (PostingDate < "Due Date" + Delay) then
                        CurrReport.Skip();

                    [. . .]

Event modified:

[IntegrationEvent(false, false)]
    local procedure OnReadPostedBillGroupOnAfterSetDelay(var BankAccount: Record "Bank Account"; var Delay: Decimal; PostedBillGr: Record "Posted Bill Group")
    begin
    end;

Additional context

we need it to add a condition.