codeunit 1720 "Deferral Utilities" - GetPeriodStartingDate

[Henriquantos]

Why do you need this change?

Can you please add the event OnBeforeGetPeriodStartingDate to the procedure GetPeriodStartingDate of Codeunit "Deferral Utilities" (1720)? This will be used to control the returned Date.

Describe the request

Actual Code

local procedure GetPeriodStartingDate(PostingDate: Date): Date
var
    AccountingPeriod: Record "Accounting Period";
begin
    if AccountingPeriod.IsEmpty() then
        exit(CalcDate('<-CM>', PostingDate));

    AccountingPeriod.SetFilter("Starting Date", '<%1', PostingDate);
    if AccountingPeriod.FindLast() then
        exit(AccountingPeriod."Starting Date");

    Error(DeferSchedOutOfBoundsErr);
end;

Suggestion

local procedure GetPeriodStartingDate(PostingDate: Date): Date
var
    AccountingPeriod: Record "Accounting Period";
    Result: Date;
begin
    OnBeforeGetPeriodStartingDate(PostingDate, Result);
    if Result <> 0D then
        exit(Result)

    if AccountingPeriod.IsEmpty() then
        exit(CalcDate('<-CM>', PostingDate));

    AccountingPeriod.SetFilter("Starting Date", '<%1', PostingDate);
    if AccountingPeriod.FindLast() then
        exit(AccountingPeriod."Starting Date");

    Error(DeferSchedOutOfBoundsErr);
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeGetPeriodStartingDate(PostingDate: Date; var Result: Date)
begin
end;

Internal work item: AB#622428

[attilatoury]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event in the GetPeriodStartingDate procedure of Codeunit 1720 "Deferral Utilities" before the existing logic.

Location in GetPeriodStartingDate procedure:

local procedure GetPeriodStartingDate(PostingDate: Date): Date
var
    AccountingPeriod: Record "Accounting Period";
    Result: Date;
begin
    OnBeforeGetPeriodStartingDate(PostingDate, Result);  // <-- New event
    if Result <> 0D then
        exit(Result);

    if AccountingPeriod.IsEmpty() then
        exit(CalcDate('<-CM>', PostingDate));

    AccountingPeriod.SetFilter("Starting Date", '<%1', PostingDate);
    if AccountingPeriod.FindLast() then
        exit(AccountingPeriod."Starting Date");

    Error(DeferSchedOutOfBoundsErr);
end;

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

/// <summary>
/// Raised before calculating the period starting date.
/// Set Result to a non-zero date to override the standard calculation.
/// </summary>
/// <param name="PostingDate">Posting date used to determine the period starting date.</param>
/// <param name="Result">Set this to a non-zero date to override the standard period starting date calculation.</param>
/// <remarks>
/// Note: GetPeriodStartingDate is called from multiple deferral calculation methods (CalculateStraightline,
/// CalculateEqualPerPeriod, CalculateDaysPerPeriod). If your subscriber should only run in a specific
/// calculation scenario, consider using Manual Event Subscription Binding:
/// https://learn.microsoft.com/en-us/dynamics365/business-central/dev-itpro/developer/properties/devenv-eventsubscriberinstance-property#manual-binding
/// </remarks>
[IntegrationEvent(false, false)]
local procedure OnBeforeGetPeriodStartingDate(PostingDate: Date; var Result: Date)
begin
end;

---

File: DeferralUtilities.Codeunit.al

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 47936.