diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTest.Table.al b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTest.Table.al index e569b82c46..9f4cbf3006 100644 --- a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTest.Table.al +++ b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTest.Table.al @@ -366,7 +366,7 @@ table 20401 "Qlty. Test" trigger OnDelete() begin - CheckDeleteConstraints(false); + CheckDeleteConstraints(true); end; procedure CheckDeleteConstraints(AskQuestion: Boolean) diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestCard.Page.al b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestCard.Page.al index 3ed7f135f5..54fce534eb 100644 --- a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestCard.Page.al +++ b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestCard.Page.al @@ -16,7 +16,6 @@ page 20479 "Qlty. Test Card" Caption = 'Quality Test'; AboutTitle = 'About Quality Test details'; AboutText = 'Use this page to define questions, measurements, allowed values, and default passing conditions. Add tests to templates to use them in quality inspections.'; - DeleteAllowed = false; PageType = Card; SourceTable = "Qlty. Test"; SourceTableView = sorting(Code); @@ -545,32 +544,7 @@ page 20479 "Qlty. Test Card" } } - actions - { - area(Processing) - { - action(DeleteRecordSafe) - { - Caption = 'Delete'; - Image = Delete; - ToolTip = 'Deletes this test. A test can only be deleted if it is not being used on an existing inspection.'; - trigger OnAction() - begin - Rec.CheckDeleteConstraints(true); - Rec.Delete(true); - CurrPage.Update(false); - end; - } - } - - area(Promoted) - { - actionref(DeleteRecordSafe_Promoted; DeleteRecordSafe) - { - } - } - } var QltyResultConditionMgmt: Codeunit "Qlty. Result Condition Mgmt."; diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTests.Page.al b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTests.Page.al index 125107abc7..7af656af6d 100644 --- a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTests.Page.al +++ b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTests.Page.al @@ -20,7 +20,6 @@ page 20401 "Qlty. Tests" CardPageId = "Qlty. Test Card"; Editable = false; InsertAllowed = false; - DeleteAllowed = false; RefreshOnActivate = true; PageType = List; SourceTable = "Qlty. Test"; @@ -219,32 +218,7 @@ page 20401 "Qlty. Tests" } } - actions - { - area(Processing) - { - action(DeleteRecordSafe) - { - Caption = 'Delete'; - Image = Delete; - Scope = Repeater; - ToolTip = 'Deletes this test. A test can only be deleted if it is not being used on an existing inspection.'; - trigger OnAction() - begin - Rec.CheckDeleteConstraints(true); - Rec.Delete(true); - CurrPage.Update(false); - end; - } - } - area(Promoted) - { - actionref(DeleteRecordSafe_Promoted; DeleteRecordSafe) - { - } - } - } var QltyResultConditionMgmt: Codeunit "Qlty. Result Condition Mgmt."; @@ -270,10 +244,7 @@ page 20401 "Qlty. Tests" begin end; - trigger OnDeleteRecord(): Boolean - begin - Rec.CheckDeleteConstraints(true); - end; + trigger OnAfterGetRecord() begin