Table 472 - Job Queue Entry - Procedure [ShowStatusMsg] - (SoftwareOne - Company Details)

Why do you need this change?

Required to execute additional notification/logging after standard Job Queue status message is shown.

Describe the request

Current Code
procedure ShowStatusMsg(JQID: Guid)
var
JobQueueEntry: Record "Job Queue Entry";
begin
if JobQueueEntry.Get(JQID) then
case JobQueueEntry.Status of
JobQueueEntry.Status::Error:
Message(JobQueueEntry."Error Message");
JobQueueEntry.Status::"In Process":
Message(Format(JobQueueEntry.Status::"In Process"));
else
Message(ScheduledForPostingMsg, JobQueueEntry."User Session Started", JobQueueEntry."User ID");
end;
end;

Requested Change
procedure ShowStatusMsg(JQID: Guid)
var
JobQueueEntry: Record "Job Queue Entry";
begin
if JobQueueEntry.Get(JQID) then
case JobQueueEntry.Status of
JobQueueEntry.Status::Error:
Message(JobQueueEntry."Error Message");
JobQueueEntry.Status::"In Process":
Message(Format(JobQueueEntry.Status::"In Process"));
else
Message(ScheduledForPostingMsg, JobQueueEntry."User Session Started", JobQueueEntry."User ID");
end;

    **OnAfterShowStatusMsg(Rec, JQID);**
end;

Requested Event Publisher
[IntegrationEvent(false, false)]
local procedure (var JobQueueEntry: Record "Job Queue Entry"; var JQID: Guid)
begin
end;
Internal work item: AB#641298

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event in table 472 "Job Queue Entry" at the end of ShowStatusMsg(JQID: Guid) after the standard status message is displayed.

Location in ShowStatusMsg() procedure:

procedure ShowStatusMsg(JQID: Guid)
var
    JobQueueEntry: Record "Job Queue Entry";
begin
    if JobQueueEntry.Get(JQID) then begin
        case JobQueueEntry.Status of
            JobQueueEntry.Status::Error:
                Message(JobQueueEntry."Error Message");
            JobQueueEntry.Status::"In Process":
                Message(Format(JobQueueEntry.Status::"In Process"));
            else
                Message(ScheduledForPostingMsg, JobQueueEntry."User Session Started", JobQueueEntry."User ID");
        end;

        OnAfterShowStatusMsg(JobQueueEntry, JQID);
    end;
end;

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

[IntegrationEvent(false, false)]
local procedure OnAfterShowStatusMsg(var JobQueueEntry: Record "Job Queue Entry"; var JQID: Guid)
begin
end;

---

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

[Groenbech96]

Please open an issue and create pr yourself on BCApps.
We wont accept by var parameters in this part of the code, as suggested.