mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
16 lines
No EOL
626 B
AL
16 lines
No EOL
626 B
AL
codeunit 50113 "Job Queue Category Good"
|
|
{
|
|
procedure ConfigurePostingJobs(var PostSales: Record "Job Queue Entry"; var PostPurchases: Record "Job Queue Entry")
|
|
var
|
|
JobQueueCategory: Record "Job Queue Category";
|
|
begin
|
|
if not JobQueueCategory.Get('POSTING') then begin
|
|
JobQueueCategory.Code := 'POSTING';
|
|
JobQueueCategory.Insert();
|
|
end;
|
|
|
|
// The shared category lets only one conflicting posting job run at a time.
|
|
PostSales.Validate("Job Queue Category Code", 'POSTING');
|
|
PostPurchases.Validate("Job Queue Category Code", 'POSTING');
|
|
end;
|
|
} |