[Event Request] Report 8051 "Contract Deferrals Release"

[Flokuonen]

Why do you need this change?

We would like to be able to set additional filters for Customer/Vendor Contract Deferrals in report 8051 "Contract Deferrals Release" before they are counted and released.

This was originally requested in microsoft/ALAppExtensions#29435 and received positively there.

Describe the request

Add an integration event raised after the standard filters are set, so subscribers can extend the filtering before the deferrals are counted.

Existing Source Code:

local procedure FilterAndCountContractDeferrals()
begin
    ContractDeferralIteration := 0;

    GlobalCustomerContractDeferral.SetRange("Posting Date", 0D, PostUntilDate);
    GlobalCustomerContractDeferral.SetRange("Document Posting Date", 0D, PostUntilDate);
    GlobalCustomerContractDeferral.SetRange(Released, false);
    GlobalVendorContractDeferral.SetRange("Posting Date", 0D, PostUntilDate);
    GlobalVendorContractDeferral.SetRange("Document Posting Date", 0D, PostUntilDate);
    GlobalVendorContractDeferral.SetRange(Released, false);
    TotalContractDeferralsCount := GlobalVendorContractDeferral.Count + GlobalCustomerContractDeferral.Count;
end;

New Source Code:

local procedure FilterAndCountContractDeferrals()
begin
    ContractDeferralIteration := 0;

    GlobalCustomerContractDeferral.SetRange("Posting Date", 0D, PostUntilDate);
    GlobalCustomerContractDeferral.SetRange("Document Posting Date", 0D, PostUntilDate);
    GlobalCustomerContractDeferral.SetRange(Released, false);
    GlobalVendorContractDeferral.SetRange("Posting Date", 0D, PostUntilDate);
    GlobalVendorContractDeferral.SetRange("Document Posting Date", 0D, PostUntilDate);
    GlobalVendorContractDeferral.SetRange(Released, false);
    OnFilterAndCountContractDeferralsOnAfterFilterGlobalContractDeferral(GlobalCustomerContractDeferral, GlobalVendorContractDeferral); //CHANGED (!)
    TotalContractDeferralsCount := GlobalVendorContractDeferral.Count + GlobalCustomerContractDeferral.Count;
end;

[IntegrationEvent(false, false)]
local procedure OnFilterAndCountContractDeferralsOnAfterFilterGlobalContractDeferral(var CustSubContractDeferral: Record "Cust. Sub. Contract Deferral"; var VendSubContractDeferral: Record "Vend. Sub. Contract Deferral")
begin
end;

Provide an implementation (optional)

• I will provide the implementation for this extensibility request

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event in FilterAndCountContractDeferrals() after the standard filters are applied to GlobalCustomerContractDeferral and GlobalVendorContractDeferral, and before TotalContractDeferralsCount is calculated.

Location in FilterAndCountContractDeferrals() procedure:

    local procedure FilterAndCountContractDeferrals()
begin
    ContractDeferralIteration := 0;

    GlobalCustomerContractDeferral.SetRange("Posting Date", 0D, PostUntilDate);
    GlobalCustomerContractDeferral.SetRange("Document Posting Date", 0D, PostUntilDate);
    GlobalCustomerContractDeferral.SetRange(Released, false);
    GlobalVendorContractDeferral.SetRange("Posting Date", 0D, PostUntilDate);
    GlobalVendorContractDeferral.SetRange("Document Posting Date", 0D, PostUntilDate);
    GlobalVendorContractDeferral.SetRange(Released, false);
    OnFilterAndCountContractDeferralsOnAfterFilterGlobalContractDeferral(GlobalCustomerContractDeferral, GlobalVendorContractDeferral); // NEW
    TotalContractDeferralsCount := GlobalVendorContractDeferral.Count + GlobalCustomerContractDeferral.Count;
end;

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

[IntegrationEvent(false, false)]
local procedure OnFilterAndCountContractDeferralsOnAfterFilterGlobalContractDeferral(var CustSubContractDeferral: Record "Cust. Sub. Contract Deferral"; var VendSubContractDeferral: Record "Vend. Sub. Contract Deferral")
begin
end;

---

File: ContractDeferralsRelease.Report.al

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Is the triage result incorrect? Reply with /not-accurate and briefly explain what was wrong. Your feedback improves future responses.