Skip to content

5638, AB#614485, changed setup page so that assembly is not in the production group. #5692

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
insightworks007 wants to merge 4 commits into from
Closed

5638, AB#614485, changed setup page so that assembly is not in the production group. #5692

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
6ddc4bf
5638, AB#614485, changed setup page so that assembly is not in the pr…
insightworks007 Dec 2, 2025
92ed824
Merge branch 'microsoft:main' into qualitymanagement-dec
insightworks007 Dec 16, 2025
b31ab48
Added new wizard for assembly.
insightworks007 Dec 17, 2025
e42589a
Merge branch 'qualitymanagement-dec' of https://github.com/Insight-Wo…
insightworks007 Dec 17, 2025
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
58 changes: 55 additions & 3 deletions ...W1/Quality Management/app/src/Configuration/GenerationRule/QltyInTestGeneratRules.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -179,9 +179,29 @@ page 20405 "Qlty. In. Test Generat. Rules"
actionref(CreateNewGenerationRuleForProdWizard_Promoted; CreateNewGenerationRuleForProdWizard)
{
}
actionref(CreateNewGenerationRuleForAsmWizard_Promoted; CreateNewGenerationRuleForAsmWizard)
{
}
}
area(Processing)
{
action(CreateNewGenerationRuleForAsmWizard)
{
Caption = 'Create Assembly Rule';
ToolTip = 'Specifies to create a rule for assembly.';
Image = Receipt;
ApplicationArea = Assembly;

trigger OnAction()
var
NewQltyInTestGenerationRule: Record "Qlty. In. Test Generation Rule";
RecQltyAsmGenRuleWizard: Page "Qlty. Asm. Gen. Rule Wizard";
begin
NewQltyInTestGenerationRule.CopyFilters(Rec);
RecQltyAsmGenRuleWizard.RunModalWithGenerationRule(NewQltyInTestGenerationRule);
CurrPage.Update(false);
end;
}
action(CreateNewGenerationRuleForProdWizard)
{
Caption = 'Create Production Rule';
Expand All @@ -191,9 +211,11 @@ page 20405 "Qlty. In. Test Generat. Rules"

trigger OnAction()
var
NewQltyInTestGenerationRule: Record "Qlty. In. Test Generation Rule";
RecQltyProdGenRuleWizard: Page "Qlty. Prod. Gen. Rule Wizard";
begin
RecQltyProdGenRuleWizard.RunModalWithGenerationRule(Rec);
NewQltyInTestGenerationRule.CopyFilters(Rec);
RecQltyProdGenRuleWizard.RunModalWithGenerationRule(NewQltyInTestGenerationRule);
CurrPage.Update(false);
end;
}
Expand Down Expand Up @@ -221,6 +243,30 @@ page 20405 "Qlty. In. Test Generat. Rules"
Rec.SetRange("Entry No.");
end;
}
action(EditGenerationRuleForAsmWizard)
{
ApplicationArea = Assembly;
Caption = 'Edit Assembly Rule';
ToolTip = 'Edit a Rule for assembly.';
Image = Receipt;
Scope = Repeater;
Visible = ShowEditWizardAssemblyRule;

trigger OnAction()
var
QltyAsmGenRuleWizard: Page "Qlty. Asm. Gen. Rule Wizard";
PreviousEntryNo: Integer;
begin
PreviousEntryNo := Rec."Entry No.";
QltyAsmGenRuleWizard.RunModalWithGenerationRule(Rec);

CurrPage.Update(false);
Rec.Reset();
Rec.SetRange("Entry No.", PreviousEntryNo);
if Rec.FindSet() then;
Rec.SetRange("Entry No.");
end;
}
action(CreateNewGenerationRuleForRecWizard)
{
Caption = 'Create Receiving Rule';
Expand All @@ -230,9 +276,11 @@ page 20405 "Qlty. In. Test Generat. Rules"

trigger OnAction()
var
NewQltyInTestGenerationRule: Record "Qlty. In. Test Generation Rule";
QltyRecGenRuleWizard: Page "Qlty. Rec. Gen. Rule Wizard";
begin
QltyRecGenRuleWizard.RunModalWithGenerationRule(Rec);
NewQltyInTestGenerationRule.CopyFilters(Rec);
QltyRecGenRuleWizard.RunModalWithGenerationRule(NewQltyInTestGenerationRule);
CurrPage.Update(false);
end;
}
Expand Down Expand Up @@ -271,6 +319,7 @@ page 20405 "Qlty. In. Test Generat. Rules"
var
RecQltyWhseGenRuleWizard: Page "Qlty. Whse. Gen. Rule Wizard";
begin
Rec.Init();
RecQltyWhseGenRuleWizard.RunModalWithGenerationRule(Rec);
CurrPage.Update(false);
end;
Expand Down Expand Up @@ -360,6 +409,7 @@ page 20405 "Qlty. In. Test Generat. Rules"
ShowEditWizardMovementRule: Boolean;
ShowEditWizardReceivingRule: Boolean;
ShowEditWizardProductionRule: Boolean;
ShowEditWizardAssemblyRule: Boolean;
TemplateCode: Code[20];
ShowAssemblyTrigger: Boolean;
ShowProductionTrigger: Boolean;
Expand Down Expand Up @@ -453,6 +503,7 @@ page 20405 "Qlty. In. Test Generat. Rules"
ShowEditWizardProductionRule := true;
ShowEditWizardReceivingRule := true;
ShowEditWizardMovementRule := true;
ShowEditWizardAssemblyRule := true;
EditAssemblyTrigger := true;
EditProductionTrigger := true;
EditPurchaseTrigger := true;
Expand All @@ -474,7 +525,7 @@ page 20405 "Qlty. In. Test Generat. Rules"
case KnownOrInferredIntent of
Rec.Intent::Assembly:
begin
ShowEditWizardProductionRule := true;
ShowEditWizardAssemblyRule := true;
EditAssemblyTrigger := true;
AssemblyStyle := Format(RowStyle::Standard);
end;
Expand Down Expand Up @@ -521,6 +572,7 @@ page 20405 "Qlty. In. Test Generat. Rules"
begin
ShowEditWizardReceivingRule := false;
ShowEditWizardProductionRule := false;
ShowEditWizardAssemblyRule := false;
ShowEditWizardMovementRule := false;
EditProductionTrigger := false;
EditAssemblyTrigger := false;
Expand Down
1 change: 1 addition & 0 deletions src/Apps/W1/Quality Management/app/src/Document/QltyInspectionTestCreate.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -366,6 +366,7 @@ codeunit 20404 "Qlty. Inspection Test - Create"

if GuiAllowed() then
if (not PreventShowingGeneratedTestEvenIfConfigured) and
(QltyInspectionTestHeader."No." <> '') and
((QltyManagementSetup."Show Test Behavior" = QltyManagementSetup."Show Test Behavior"::"Automatic and manually created tests") or
(IsManualCreation and (QltyManagementSetup."Show Test Behavior" = QltyManagementSetup."Show Test Behavior"::"Only manually created tests")))
then
Expand Down
Loading