[Event Request] OnAfterUpdateJobTaskDimension table 167 Job

[jazadv]

Why do you need this change?

I would like you to add an OnAfterUpdateJobTaskDimension event to the UpdateJobTaskDimension procedure so that other related tables can be updated when the user confirms they want to update dimension on lines.

Describe the request

My suggestion is to create an event as below:

  local procedure UpdateJobTaskDimension(FieldNumber: Integer; ShortcutDimCode: Code[20])
    var
        JobTask: Record "Job Task";
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforeUpdateJobTaskDimension(Rec, FieldNumber, ShortcutDimCode, IsHandled);
        if IsHandled then
            exit;

        if GuiAllowed() and (not GetHideValidationDialog()) then
            if not Confirm(UpdateJobTaskDimQst, false) then
                exit;

        JobTask.SetRange("Job No.", "No.");
        if JobTask.FindSet(true) then
            repeat
                case FieldNumber of
                    1:
                        JobTask.Validate("Global Dimension 1 Code", ShortcutDimCode);
                    2:
                        JobTask.Validate("Global Dimension 2 Code", ShortcutDimCode);
                end;
                JobTask.Modify();
            until JobTask.Next() = 0;

	OnAfterUpdateJobTaskDimension(Rec, FieldNumber, ShortcutDimCode)  // Line added
    end;

    [IntegrationEvent(false, false)]
    local procedure OnAfterUpdateJobTaskDimension(var Job: Record Job; FieldNumber: Integer; ShortcutDimCode: Code[20])
    begin
    end;

Internal work item: AB#619651

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnAfterUpdateJobTaskDimension at the end of the UpdateJobTaskDimension procedure in Table 167 "Job" to allow extensions to update related tables after dimension updates are confirmed.

Location in UpdateJobTaskDimension procedure (around line 2101):

    JobTask.SetRange("Job No.", "No.");
    if JobTask.FindSet(true) then
        repeat
            case FieldNumber of
                1:
                    JobTask.Validate("Global Dimension 1 Code", ShortcutDimCode);
                2:
                    JobTask.Validate("Global Dimension 2 Code", ShortcutDimCode);
            end;
            JobTask.Modify();
        until JobTask.Next() = 0;

    OnAfterUpdateJobTaskDimension(Rec, FieldNumber, ShortcutDimCode);  // <-- New event
end;

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

[IntegrationEvent(false, false)]
local procedure OnAfterUpdateJobTaskDimension(var Job: Record Job; FieldNumber: Integer; ShortcutDimCode: Code[20])
begin
end;

---

File: Job.Table.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: 45983.