From 1337efd1f85c38f79e0c1e68e49cb5d626a6afc9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Miljan=20Milosavljevi=C4=87?= Date: Mon, 11 May 2026 16:35:55 +0200 Subject: [PATCH] Add PostingDate param to OnBeforeRelease deferral events --- .../Deferrals/Reports/ContractDeferralsRelease.Report.al | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Apps/W1/Subscription Billing/App/Deferrals/Reports/ContractDeferralsRelease.Report.al b/src/Apps/W1/Subscription Billing/App/Deferrals/Reports/ContractDeferralsRelease.Report.al index e14fd1c541..25e2252d5e 100644 --- a/src/Apps/W1/Subscription Billing/App/Deferrals/Reports/ContractDeferralsRelease.Report.al +++ b/src/Apps/W1/Subscription Billing/App/Deferrals/Reports/ContractDeferralsRelease.Report.al @@ -144,7 +144,7 @@ report 8051 "Contract Deferrals Release" PostingAmount: Decimal; begin ShouldRelease := true; - OnBeforeReleaseCustomerContractDeferral(CustomerContractDeferral, ShouldRelease); + OnBeforeReleaseCustomerContractDeferral(CustomerContractDeferral, ShouldRelease, PostingDate); if not ShouldRelease then begin UpdateWindow(CustomerContractDeferral."Subscription Contract No."); exit; @@ -199,7 +199,7 @@ report 8051 "Contract Deferrals Release" PostingAmount: Decimal; begin ShouldRelease := true; - OnBeforeReleaseVendorContractDeferral(VendorContractDeferral, ShouldRelease); + OnBeforeReleaseVendorContractDeferral(VendorContractDeferral, ShouldRelease, PostingDate); if not ShouldRelease then begin UpdateWindow(VendorContractDeferral."Subscription Contract No."); exit; @@ -413,12 +413,12 @@ report 8051 "Contract Deferrals Release" end; [IntegrationEvent(false, false)] - local procedure OnBeforeReleaseCustomerContractDeferral(var CustomerContractDeferral: Record "Cust. Sub. Contract Deferral"; var ShouldReleaseDeferral: Boolean) + local procedure OnBeforeReleaseCustomerContractDeferral(var CustomerContractDeferral: Record "Cust. Sub. Contract Deferral"; var ShouldReleaseDeferral: Boolean; PostingDate: Date) begin end; [IntegrationEvent(false, false)] - local procedure OnBeforeReleaseVendorContractDeferral(var VendorContractDeferral: Record "Vend. Sub. Contract Deferral"; var ShouldReleaseDeferral: Boolean) + local procedure OnBeforeReleaseVendorContractDeferral(var VendorContractDeferral: Record "Vend. Sub. Contract Deferral"; var ShouldReleaseDeferral: Boolean; PostingDate: Date) begin end; }