[Event Request] codeunit 7600 "Calendar Management"

[Simon110394]

Why do you need this change?

We need an event in ReverseSign procedure in order to be able to calculate NewDateFormulaExpr differently.
More in details, with the event OnAfterCalcNewDateFormulaExpr, we will be able to overwrite the already calculated NewDateFormulaExpr before exiting it.

Describe the request

In procedure ReverseSign of codeunit 7600 "Calendar Management" we need an event:

[IntegrationEvent(false, false)]
local procedure OnAfterCalcNewDateFormulaExpr(DateFormulaExpr: Text[30]; var NewDateFormulaExpr: Text[30])
begin
end;

Changes between **:

local procedure ReverseSign(DateFormulaExpr: Text[30]): Text[30]
    var
        Formula: DateFormula;
        NewDateFormulaExpr: Text[30];
    begin
			Evaluate(Formula, DateFormulaExpr);
			NewDateFormulaExpr := ConvertStr(Format(Formula), '+-', '-+');
			if not (DateFormulaExpr[1] in ['+', '-']) then
				if NewDateFormulaExpr <> '<0D>' then
					NewDateFormulaExpr := '-' + NewDateFormulaExpr;
		**OnAfterCalcNewDateFormulaExpr(IDateFormulaExpr, NewDateFormulaExpr);**
        exit(NewDateFormulaExpr);
    end;

Internal work item: AB#640583

[github-actions]

Hi @Simon110394,

Thank you for your extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Alternatives considered: Describe any existing events, extensibility points, or design patterns you evaluated and why they are insufficient for this scenario.
• Why an IsHandled pattern is required: Explain why a regular event or another design would not work, and why this needs to bypass the standard logic.
• Execution frequency / performance impact: Describe how often this logic is expected to run and any performance considerations.
• Sensitive data exposure: Confirm whether this change would expose any sensitive or private data.
• Multiple-subscriber conflict handling: Explain the expected behavior if multiple extensions subscribe to this IsHandled event and how conflicts should be avoided.

Please update the issue with the missing details. We'll automatically re-analyze once updated.

Note

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

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.

[Simon110394]

Hi, I've updated the request info.
Thanks

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event in ReverseSign() of Codeunit 7600 Calendar Management after the standard calculation of NewDateFormulaExpr and before the procedure exits, so subscribers can modify the result.

Location in ReverseSign() procedure:

local procedure ReverseSign(DateFormulaExpr: Text[30]): Text[30]
var
    Formula: DateFormula;
    NewDateFormulaExpr: Text[30];
begin
    Evaluate(Formula, DateFormulaExpr);
    NewDateFormulaExpr := ConvertStr(Format(Formula), '+-', '-+');
    if not (DateFormulaExpr[1] in ['+', '-']) then
        if NewDateFormulaExpr <> '<0D>' then
            NewDateFormulaExpr := '-' + NewDateFormulaExpr;
    OnAfterReverseSign(DateFormulaExpr, NewDateFormulaExpr); // NEW
    exit(NewDateFormulaExpr);
end;

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

[IntegrationEvent(false, false)]
local procedure OnAfterReverseSign(DateFormulaExpr: Text[30]; var NewDateFormulaExpr: Text[30])
begin
end;

---

File: CalendarManagement.Codeunit.al

Note

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

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.