Encode job queue conflict in fixtures

This commit is contained in:
demiliani 2026-09-14 11:56:31 +02:00
parent 9ccf8759f5
commit e302b12a6b
2 changed files with 10 additions and 6 deletions

View file

@ -1,9 +1,11 @@
codeunit 50113 "Job Queue Category Bad"
{
procedure ConfigurePostingJobs(var PostSales: Record "Job Queue Entry"; var PostPurchases: Record "Job Queue Entry")
procedure ConfigureJobsForSharedExclusiveResource(var SalesPostingJob: Record "Job Queue Entry"; var PurchasePostingJob: Record "Job Queue Entry"; ExclusiveResourceId: Text[250])
begin
// Both jobs update the same posting resources, but nothing prevents overlap.
PostSales.Validate("Job Queue Category Code", '');
PostPurchases.Validate("Job Queue Category Code", '');
SalesPostingJob.Validate("Parameter String", ExclusiveResourceId);
PurchasePostingJob.Validate("Parameter String", ExclusiveResourceId);
SalesPostingJob.Validate("Job Queue Category Code", '');
PurchasePostingJob.Validate("Job Queue Category Code", '');
end;
}

View file

@ -1,6 +1,6 @@
codeunit 50113 "Job Queue Category Good"
{
procedure ConfigurePostingJobs(var PostSales: Record "Job Queue Entry"; var PostPurchases: Record "Job Queue Entry")
procedure ConfigureJobsForSharedExclusiveResource(var SalesPostingJob: Record "Job Queue Entry"; var PurchasePostingJob: Record "Job Queue Entry"; ExclusiveResourceId: Text[250])
var
JobQueueCategory: Record "Job Queue Category";
begin
@ -10,7 +10,9 @@ codeunit 50113 "Job Queue Category Good"
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');
SalesPostingJob.Validate("Parameter String", ExclusiveResourceId);
PurchasePostingJob.Validate("Parameter String", ExclusiveResourceId);
SalesPostingJob.Validate("Job Queue Category Code", 'POSTING');
PurchasePostingJob.Validate("Job Queue Category Code", 'POSTING');
end;
}