[Event Request] Table 5080 "To-do" - OnBeforeCheckStatus

[KlaasKleermaker]

Why do you need this change?

In 4PS Construct we need to do some extra checks before finishing the wizard. In this case we want to check if all Team Salespersons have Salesperson Code.

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request integration event 'OnBeforeCheckStatus' to be added to procedure CheckStatus in table 5080 "To-do".

    procedure CheckStatus()
    var
        Salesperson: Record "Salesperson/Purchaser";
    begin
        OnBeforeCheckStatus(Rec); //new

        if Date = 0D then
            ErrorMessage(FieldCaption(Date));

        if Description = '' then
            ErrorMessage(FieldCaption(Description));

    [IntegrationEvent(false, false)]
    local procedure OnBeforeCheckStatus(var Todo: Record "To-do")
    begin
        //new
    end;

Internal work item: AB#621588

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event in the CheckStatus() procedure of Table 5080 "To-do" at the beginning, before any validation checks.

Location in CheckStatus() procedure (around line 2404):

procedure CheckStatus()
var
    Salesperson: Record "Salesperson/Purchaser";
begin
    OnBeforeCheckStatus(Rec);  // <-- New event

    if Date = 0D then
        ErrorMessage(FieldCaption(Date));

    if Description = '' then
        ErrorMessage(FieldCaption(Description));

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

[IntegrationEvent(false, false)]
local procedure OnBeforeCheckStatus(var Todo: Record "To-do")
begin
end;

---

File: Todo.Table.al