Skip to content
Closed
Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
15 commits
Select commit Hold shift + click to select a range
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -57,7 +57,7 @@ page 20405 "Qlty. In. Test Generat. Rules"

trigger OnAssistEdit()
begin
Rec.HandleOnLookupSourceTable();
Rec.HandleOnAssistEditSourceTable();
CurrPage.Update();
end;
}
Expand All @@ -72,7 +72,7 @@ page 20405 "Qlty. In. Test Generat. Rules"
if Rec.Insert(true) then;
Commit();
end;
Rec.HandleOnLookupSourceTable();
Rec.HandleOnAssistEditSourceTable();
if xRec."Entry No." = Rec."Entry No." then
CurrPage.Update(true);
end;
Expand Down Expand Up @@ -148,6 +148,19 @@ page 20405 "Qlty. In. Test Generat. Rules"
}
field("Schedule Group"; Rec."Schedule Group")
{
trigger OnDrillDown()
var
QltyJobQueueManagement: Codeunit "Qlty. Job Queue Management";
begin
QltyJobQueueManagement.TestIfGenerationRuleCanBeScheduled(Rec);
if GuiAllowed() then
if Rec."Schedule Group" = '' then begin
Rec."Schedule Group" := DefaultScheduleGroupLbl;
Rec.Modify(false);
QltyJobQueueManagement.PromptCreateJobQueueEntryIfMissing(Rec."Schedule Group");
end else
QltyJobQueueManagement.RunPageLookupJobQueueEntriesForScheduleGroup(Rec."Schedule Group")
end;
}
}
}
Expand Down Expand Up @@ -386,6 +399,7 @@ page 20405 "Qlty. In. Test Generat. Rules"
RowStyle: Option None,Standard,StandardAccent,Strong,StrongAccent,Attention,AttentionAccent,Favorable,Unfavorable,Ambiguous,Subordinate;
GenerationRulesCaptionLbl: Label 'Quality Inspection Test Generation Rules';
GenerationRulesCaptionForTemplateLbl: Label 'Quality Inspection Test Generation Rules for %1', Comment = '%1=the template';
DefaultScheduleGroupLbl: Label 'QM', Locked = true;

trigger OnInit()
begin
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -70,20 +70,6 @@ table 20404 "Qlty. In. Test Generation Rule"
end else
QltyJobQueueManagement.DeleteJobQueueIfNothingElseIsUsingThisGroup(Rec, xRec."Schedule Group");
end;

trigger OnLookup()
var
QltyJobQueueManagement: Codeunit "Qlty. Job Queue Management";
begin
QltyJobQueueManagement.TestIfGenerationRuleCanBeScheduled(Rec);
if GuiAllowed() then
if Rec."Schedule Group" = '' then begin
Rec."Schedule Group" := DefaultScheduleGroupLbl;
Rec.Modify(false);
QltyJobQueueManagement.PromptCreateJobQueueEntryIfMissing(Rec."Schedule Group");
end else
QltyJobQueueManagement.RunPageLookupJobQueueEntriesForScheduleGroup(Rec."Schedule Group")
end;
}
field(10; "Template Code"; Code[20])
{
Expand Down Expand Up @@ -286,7 +272,6 @@ table 20404 "Qlty. In. Test Generation Rule"
var
TriggerNotActiveConfirmQst: Label 'You have set an automatic trigger but the test generation rule activation is set to "%1". Do you want to update the activation trigger to "%2?"', Comment = '%1=current activation trigger,%2=proposed activation trigger';
RuleCurrentlyDisabledLbl: Label 'The generation rule Sort Order %1, Template Code %2 is currently disabled. It will need to have an activation trigger of "Automatic Only" or "Manual or Automatic" before it will be triggered by "%3"', Comment = '%1=generation rule sort order,%2=generation rule template code,%3=auto trigger';
DefaultScheduleGroupLbl: Label 'QM', Locked = true;
ChooseTemplateFirstErr: Label 'Please choose the template first.';
FilterLengthErr: Label 'This filter is too long and must be less than %1 characters.', Comment = '%1=filter string maximum length';

Expand Down Expand Up @@ -328,7 +313,7 @@ table 20404 "Qlty. In. Test Generation Rule"
end;
end;

internal procedure HandleOnLookupSourceTable()
internal procedure HandleOnAssistEditSourceTable()
var
QltyFilterHelpers: Codeunit "Qlty. Filter Helpers";
QltyGenerationRuleMgmt: Codeunit "Qlty. Generation Rule Mgmt.";
Expand Down
Loading