diff --git a/src/Apps/W1/Quality Management/Test Library/src/QltyInspectionUtility.Codeunit.al b/src/Apps/W1/Quality Management/Test Library/src/QltyInspectionUtility.Codeunit.al
index 0969949bbb..607ddbc715 100644
--- a/src/Apps/W1/Quality Management/Test Library/src/QltyInspectionUtility.Codeunit.al
+++ b/src/Apps/W1/Quality Management/Test Library/src/QltyInspectionUtility.Codeunit.al
@@ -182,30 +182,35 @@ codeunit 139940 "Qlty. Inspection Utility"
internal procedure CreatePrioritizedRule(InExistingQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; SourceTableNo: Integer)
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty.Inspect.Creation Rule";
begin
- CreatePrioritizedRule(InExistingQltyInspectionTemplateHdr, SourceTableNo, QltyInspectionGenRule);
+ CreatePrioritizedRule(InExistingQltyInspectionTemplateHdr, SourceTableNo, QltyInspectCreationRule);
end;
- internal procedure CreatePrioritizedRule(var InExistingQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; SourceTableNo: Integer; var OutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+ internal procedure CreatePrioritizedRule(var InExistingQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; SourceTableNo: Integer; var OutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule")
var
- FindLowestQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- begin
+ FindLowestQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ beginInspect.Inspect.Creation Rulenternal procedure CreatePrioritizedRule(var
+ InExistingQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
+ SourceTableNo: Integer;
+
+ var
+
if InExistingQltyInspectionTemplateHdr.Code = '' then
CreateTemplate(InExistingQltyInspectionTemplateHdr, 0);
- FindLowestQltyInspectionGenRule.ModifyAll("Activation Trigger", FindLowestQltyInspectionGenRule."Activation Trigger"::Disabled);
+ FindLowestQltyInspectCreationRule.ModifyAll("Activation Trigger", FindLowestQltyInspectCreationRule."Activation Trigger"::Disabled);
- FindLowestQltyInspectionGenRule.Reset();
- FindLowestQltyInspectionGenRule.SetCurrentKey("Sort Order");
+ FindLowestQltyInspectCreationRule.Reset();
+ FindLowestQltyInspectCreationRule.SetCurrentKey("Sort Order");
- OutQltyInspectionGenRule.Init();
- if FindLowestQltyInspectionGenRule.FindFirst() then
- OutQltyInspectionGenRule."Sort Order" := FindLowestQltyInspectionGenRule."Sort Order" - 1;
+ OutQltyInspectCreationRule.Init();
+ if FindLowestQltyInspectCreationRule.FindFirst() then
+ OutQltyInspectCreationRule."Sort Order" := FindLowestQltyInspectCreationRule."Sort Order" - 1;
- OutQltyInspectionGenRule."Template Code" := InExistingQltyInspectionTemplateHdr.Code;
- OutQltyInspectionGenRule."Source Table No." := SourceTableNo;
- OutQltyInspectionGenRule.Insert(true);
+ OutQltyInspectCreationRule."Template Code" := InExistingQltyInspectionTemplateHdr.Code;
+ OutQltyInspectCreationRule."Source Table No." := SourceTableNo;
+ OutQltyInspectCreationRule.Insert(true);
end;
internal procedure CreateItemJournalTemplateAndBatch(TemplateType: Enum "Item Journal Entry Type"; var OutItemJournalBatch: Record "Item Journal Batch")
@@ -753,12 +758,12 @@ codeunit 139940 "Qlty. Inspection Utility"
Out := Out.PadLeft(PadSize, '0');
end;
- internal procedure CreateWarehouseReceiptSetup(var CreatedQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"; var OutPurchaseLine: Record "Purchase Line"; var OutReservationEntry: Record "Reservation Entry")
+ internal procedure CreateWarehouseReceiptSetup(var CreatedQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule"; var OutPurchaseLine: Record "Purchase Line"; var OutReservationEntry: Record "Reservation Entry")
begin
- CreateWarehouseReceiptSetup(CreatedQltyInspectionGenRule, OutPurchaseLine, OutReservationEntry, 123);
+ CreateWarehouseReceiptSetup(CreatedQltyInspectCreationRule, OutPurchaseLine, OutReservationEntry, 123);
end;
- internal procedure CreateWarehouseReceiptSetup(var CreatedQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"; var OutPurchaseLine: Record "Purchase Line"; var OutReservationEntry: Record "Reservation Entry"; Quantity: Decimal)
+ internal procedure CreateWarehouseReceiptSetup(var CreatedQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule"; var OutPurchaseLine: Record "Purchase Line"; var OutReservationEntry: Record "Reservation Entry"; Quantity: Decimal)
var
Item: Record Item;
Location: Record Location;
@@ -770,18 +775,18 @@ codeunit 139940 "Qlty. Inspection Utility"
EnsureSetupExists();
LibraryWarehouse.CreateFullWMSLocation(Location, 1);
CreateTemplate(QltyInspectionTemplateHdr, 1);
- CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", CreatedQltyInspectionGenRule);
+ CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", CreatedQltyInspectCreationRule);
- CreatedQltyInspectionGenRule."Purchase Order Trigger" := CreatedQltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
- CreatedQltyInspectionGenRule.Modify();
+ CreatedQltyInspectCreationRule."Purchase Order Trigger" := CreatedQltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
+ CreatedQltyInspectCreationRule.Modify();
CreateLotTrackedItem(Item);
Item.SetRecFilter();
- CreatedQltyInspectionGenRule."Item Filter" := CopyStr(Item.GetView(), 1, MaxStrLen(CreatedQltyInspectionGenRule."Item Filter"));
- CreatedQltyInspectionGenRule."Activation Trigger" := CreatedQltyInspectionGenRule."Activation Trigger"::"Manual or Automatic";
- CreatedQltyInspectionGenRule."Purchase Order Trigger" := CreatedQltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
- CreatedQltyInspectionGenRule.Modify();
+ CreatedQltyInspectCreationRule."Item Filter" := CopyStr(Item.GetView(), 1, MaxStrLen(CreatedQltyInspectCreationRule."Item Filter"));
+ CreatedQltyInspectCreationRule."Activation Trigger" := CreatedQltyInspectCreationRule."Activation Trigger"::"Manual or Automatic";
+ CreatedQltyInspectCreationRule."Purchase Order Trigger" := CreatedQltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
+ CreatedQltyInspectCreationRule.Modify();
OrdQltyPurOrderGenerator.CreatePurchaseOrder(Quantity, Location, Item, PurchaseHeader, OutPurchaseLine, OutReservationEntry);
end;
@@ -1112,7 +1117,7 @@ codeunit 139940 "Qlty. Inspection Utility"
internal procedure CreateSourceFieldConfig(SourceConfigCode: Code[20]; FromTableNo: Integer; FromFieldNo: Integer; ToType: Enum "Qlty. Target Type"; ToTableNo: Integer;
ToFieldNo: Integer)
var
- QltyInspectSrcFldConf: Record "Qlty. Inspect. Src. Fld. Conf.";
+ QltyInspectSrcFldConf: Record "Qlty. Inspect. Src. Fld. Conf.";
begin
Clear(QltyInspectSrcFldConf);
QltyInspectSrcFldConf.Init();
@@ -1268,10 +1273,10 @@ codeunit 139940 "Qlty. Inspection Utility"
/// Wrapper for internal QltyDispNegAdjustInv.PerformDisposition (7-argument version).
///
internal procedure PerformNegAdjustInvDisposition(var QltyInspectionHeader: Record "Qlty. Inspection Header"; OptionalSpecificQuantity: Decimal; QltyQuantityBehavior: Enum "Qlty. Quantity Behavior"; OptionalSourceLocationFilter: Text;
- OptionalSourceBinFilter: Text;
- PostingBehavior: Enum "Qlty. Item Adj. Post Behavior";
- Reason: Code[10]): Boolean
- var
+ OptionalSourceBinFilter: Text;
+ PostingBehavior: Enum "Qlty. Item Adj. Post Behavior";
+ Reason: Code[10]): Boolean
+ var
QltyDispNegAdjustInv: Codeunit "Qlty. Disp. Neg. Adjust Inv.";
begin
exit(QltyDispNegAdjustInv.PerformDisposition(QltyInspectionHeader, OptionalSpecificQuantity, QltyQuantityBehavior, OptionalSourceLocationFilter, OptionalSourceBinFilter, PostingBehavior, Reason));
@@ -1285,9 +1290,9 @@ codeunit 139940 "Qlty. Inspection Utility"
DestinationLocationCode: Code[10];
OptionalInTransitLocationCode: Code[10]): Boolean
var
- QltyDispTransfer: Codeunit "Qlty. Disp. Transfer";
- begin
- exit(QltyDispTransfer.PerformDisposition(QltyInspectionHeader, OptionalSpecificQuantity, QltyQuantityBehavior, OptionalSourceLocationFilter, OptionalSourceBinFilter, DestinationLocationCode, OptionalInTransitLocationCode));
+ QltyDispTransfer: Codeunit "Qlty. Disp. Transfer";
+ begin
+ exit(QltyDispTransfer.PerformDisposition(QltyInspectionHeader, OptionalSpecificQuantity, QltyQuantityBehavior, OptionalSourceLocationFilter, OptionalSourceBin Filter, DestinationLocationCode, OptionalInTransitLocationCode));
end;
///
@@ -1298,9 +1303,9 @@ codeunit 139940 "Qlty. Inspection Utility"
QltyDispMoveAutoChoose: Codeunit "Qlty. Disp. Move Auto Choose";
begin
exit(QltyDispMoveAutoChoose.MoveInventory(QltyInspectionHeader, TempInstructionQltyDispositionBuffer, UseMovement));
- end;
-
- ///
+ end;
+
+ ///
/// Wrapper for internal QltyDispInternalPutAway.PerformDisposition (6-argument version).
///
internal procedure PerformInternalPutAwayDisposition(QltyInspectionHeader: Record "Qlty. Inspection Header"; OptionalSpecificQuantity: Decimal; OptionalSourceLocationFilter: Text; OptionalSourceBinFilter: Text; ReleaseImmediately: Boolean; QltyQuantityBehavior: Enum "Qlty. Quantity Behavior"): Boolean
@@ -1389,12 +1394,12 @@ codeunit 139940 "Qlty. Inspection Utility"
end;
///
- /// Wrapper for internal QltyInspectionGenRule.SetEntryNo.
+ /// Wrapper for internal QltyInspectCreationRule.SetEntryNo.
/// Sets the entry number for the generation rule record.
///
- internal procedure SetEntryNo(var QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+ internal procedure SetEntryNo(var QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule")
begin
- QltyInspectionGenRule.SetEntryNo();
+ QltyInspectCreationRule.SetEntryNo();
end;
#endregion Qlty. Inspec. Gen. Rule Mgmt. Wrappers
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyJobQueueManagement.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyJobQueueManagement.Codeunit.al
index 145374413a..325e0ceb1a 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyJobQueueManagement.Codeunit.al
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyJobQueueManagement.Codeunit.al
@@ -102,7 +102,7 @@ codeunit 20455 "Qlty. Job Queue Management"
/// Performs safety checks to prevent orphaned job queue entries while protecting entries still in use.
///
/// Logic flow:
- /// 1. Check if other inspection generation rules use this schedule group (excluding ToExcludeQltyInspectionGenRule)
+ /// 1. Check if other inspection generation rules use this schedule group (excluding ToExcludeQltyInspectCreationRule)
/// 2. If other rules exist → exit without deletion
/// 3. Find all job queue entries for this schedule group
/// 4. If exactly one entry found and interactive → confirm deletion with user
@@ -111,18 +111,18 @@ codeunit 20455 "Qlty. Job Queue Management"
///
/// Common usage: Called when deleting or modifying inspection generation rules to clean up unused job queue entries.
///
- /// The rule to exclude from the check (typically the rule being deleted or modified)
+ /// The rule to exclude from the check (typically the rule being deleted or modified)
/// The schedule group code whose job queue entries should be considered for removal
- internal procedure DeleteJobQueueIfNothingElseIsUsingThisGroup(ToExcludeQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"; ScheduleGroupToConsiderRemoving: Code[20])
+ internal procedure DeleteJobQueueIfNothingElseIsUsingThisGroup(ToExcludeQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule"; ScheduleGroupToConsiderRemoving: Code[20])
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
JobQueueEntry: Record "Job Queue Entry";
begin
- QltyInspectionGenRule.SetRange("Schedule Group", ScheduleGroupToConsiderRemoving);
- if ToExcludeQltyInspectionGenRule."Entry No." <> 0 then
- QltyInspectionGenRule.SetFilter("Entry No.", '<>%1', ToExcludeQltyInspectionGenRule."Entry No.");
+ QltyInspectCreationRule.SetRange("Schedule Group", ScheduleGroupToConsiderRemoving);
+ if ToExcludeQltyInspectCreationRule."Entry No." <> 0 then
+ QltyInspectCreationRule.SetFilter("Entry No.", '<>%1', ToExcludeQltyInspectCreationRule."Entry No.");
- if not QltyInspectionGenRule.IsEmpty() then
+ if not QltyInspectCreationRule.IsEmpty() then
exit;
if not FindJobQueueEntriesForScheduleGroup(ScheduleGroupToConsiderRemoving, JobQueueEntry) then
@@ -178,16 +178,16 @@ codeunit 20455 "Qlty. Job Queue Management"
local procedure CreateJobQueueEntry(ScheduleGroup: Code[20])
var
JobQueueEntry: Record "Job Queue Entry";
- FilterOnScheduleGroupQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ FilterOnScheduleGroupQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReportParameterData: Text;
begin
JobQueueEntry.Init();
JobQueueEntry.Insert(true);
JobQueueEntry.Validate("Object Type to Run", JobQueueEntry."Object Type to Run"::Report);
JobQueueEntry.Validate("Object ID to Run", Report::"Qlty. Schedule Inspection");
- FilterOnScheduleGroupQltyInspectionGenRule.SetRange("Schedule Group", ScheduleGroup);
+ FilterOnScheduleGroupQltyInspectCreationRule.SetRange("Schedule Group", ScheduleGroup);
- ReportParameterData := GetXmlFilterContents(FilterOnScheduleGroupQltyInspectionGenRule);
+ ReportParameterData := GetXmlFilterContents(FilterOnScheduleGroupQltyInspectCreationRule);
JobQueueEntry.SetReportParameters(ReportParameterData);
JobQueueEntry.SetStatus(JobQueueEntry.Status::"On Hold");
JobQueueEntry.Modify(true);
@@ -218,9 +218,9 @@ codeunit 20455 "Qlty. Job Queue Management"
/// - InspectionGenerationRuleDataItemTok: XPath to the DataItem node
/// - DataItemOfInspectionGenerationRuleTok: The name attribute value of the DataItem
///
- /// The inspection generation rule record with filters applied (only filter view is used, not data)
+ /// The inspection generation rule record with filters applied (only filter view is used, not data)
/// XML string containing the report parameters suitable for job queue entry storage
- local procedure GetXmlFilterContents(var FilterOfQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule") XmlOfReportParameters: Text
+ local procedure GetXmlFilterContents(var FilterOfQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule") XmlOfReportParameters: Text
var
ReportParamsXmlDocument: XmlDocument;
NodeReportParametersXmlNode: XmlElement;
@@ -239,7 +239,7 @@ codeunit 20455 "Qlty. Job Queue Management"
NodeDataItemOfXmlNode := XmlElement.Create('DataItem');
NodeDataItemOfXmlNode.SetAttribute('name', DataItemOfInspectionGenerationRuleTok);
- TextOfFilterString := XmlText.Create(FilterOfQltyInspectionGenRule.GetView(false));
+ TextOfFilterString := XmlText.Create(FilterOfQltyInspectCreationRule.GetView(false));
NodeDataItemOfXmlNode.Add(TextOfFilterString);
NodeDataItemsXmlNode.Add(NodeDataItemOfXmlNode);
ReportParamsXmlDocument.WriteTo(XmlOfReportParameters);
@@ -260,11 +260,11 @@ codeunit 20455 "Qlty. Job Queue Management"
///
/// Error thrown: FilterMandatoryErr with schedule group in message
///
- /// The inspection generation rule to validate for scheduling
- internal procedure CheckIfGenerationRuleCanBeScheduled(var ThisQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+ /// The inspection generation rule to validate for scheduling
+ internal procedure CheckIfGenerationRuleCanBeScheduled(var ThisQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule")
begin
- if (ThisQltyInspectionGenRule."Condition Filter" = '') and (ThisQltyInspectionGenRule."Item Filter" = '') and (ThisQltyInspectionGenRule."Item Attribute Filter" = '') then
- Error(FilterMandatoryErr, ThisQltyInspectionGenRule."Schedule Group");
+ if (ThisQltyInspectCreationRule."Condition Filter" = '') and (ThisQltyInspectCreationRule."Item Filter" = '') and (ThisQltyInspectCreationRule."Item Attribute Filter" = '') then
+ Error(FilterMandatoryErr, ThisQltyInspectCreationRule."Schedule Group");
end;
///
@@ -288,7 +288,7 @@ codeunit 20455 "Qlty. Job Queue Management"
/// True if at least one matching job queue entry was found; False otherwise
local procedure FindJobQueueEntriesForScheduleGroup(ScheduleGroup: Code[20]; var MarkedJobQueueEntry: Record "Job Queue Entry") AtLeastOne: Boolean
var
- SearchForQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ SearchForQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyFilterHelpers: Codeunit "Qlty. Filter Helpers";
XmlOfReportParameters: Text;
TestFilter: Text;
@@ -314,15 +314,15 @@ codeunit 20455 "Qlty. Job Queue Management"
TestFilter := ElementOfTest.InnerText();
TestFilter := QltyFilterHelpers.CleanUpWhereClause(TestFilter);
if TestFilter <> '' then begin
- Clear(SearchForQltyInspectionGenRule);
- SearchForQltyInspectionGenRule.Reset();
- SearchForQltyInspectionGenRule.FilterGroup(0);
- SearchForQltyInspectionGenRule.SetView(TestFilter);
- if SearchForQltyInspectionGenRule.GetFilter("Schedule Group") <> '' then begin
- SearchForQltyInspectionGenRule.FilterGroup(10);
- SearchForQltyInspectionGenRule.SetFilter("Schedule Group", ScheduleGroup);
- SearchForQltyInspectionGenRule.FilterGroup(0);
- if not SearchForQltyInspectionGenRule.IsEmpty() then begin
+ Clear(SearchForQltyInspectCreationRule);
+ SearchForQltyInspectCreationRule.Reset();
+ SearchForQltyInspectCreationRule.FilterGroup(0);
+ SearchForQltyInspectCreationRule.SetView(TestFilter);
+ if SearchForQltyInspectCreationRule.GetFilter("Schedule Group") <> '' then begin
+ SearchForQltyInspectCreationRule.FilterGroup(10);
+ SearchForQltyInspectCreationRule.SetFilter("Schedule Group", ScheduleGroup);
+ SearchForQltyInspectCreationRule.FilterGroup(0);
+ if not SearchForQltyInspectCreationRule.IsEmpty() then begin
MarkedJobQueueEntry.Mark();
if StrLen(IDFilter) > 0 then
IDFilter += '|';
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyScheduleInspection.Report.al b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyScheduleInspection.Report.al
index c983be683a..457b0a8bf2 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyScheduleInspection.Report.al
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyScheduleInspection.Report.al
@@ -20,7 +20,7 @@ report 20412 "Qlty. Schedule Inspection"
dataset
{
- dataitem(CurrentInspectionGenerationRule; "Qlty. Inspection Gen. Rule")
+ dataitem(CurrentInspectionGenerationRule; "Qlty. Inspect. Creation Rule")
{
RequestFilterFields = "Schedule Group", "Template Code", Description;
DataItemTableView = where("Activation Trigger" = filter(<> Disabled), "Schedule Group" = filter(<> ''));
@@ -99,30 +99,30 @@ report 20412 "Qlty. Schedule Inspection"
end;
///
- /// This will use the generation rule, and create inspections that match the records found with that rule.
+ /// This will use the creation rule, and create inspections that match the records found with that rule.
///
- ///
- procedure CreateInspectionsThatMatchRule(QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+ ///
+ procedure CreateInspectionsThatMatchRule(QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule")
var
QltyJobQueueManagement: Codeunit "Qlty. Job Queue Management";
SourceRecordRef: RecordRef;
begin
- if QltyInspectionGenRule."Activation Trigger" = QltyInspectionGenRule."Activation Trigger"::Disabled then
+ if QltyInspectCreationRule."Activation Trigger" = QltyInspectCreationRule."Activation Trigger"::Disabled then
exit;
- if QltyInspectionGenRule."Schedule Group" = '' then
+ if QltyInspectCreationRule."Schedule Group" = '' then
exit;
- QltyJobQueueManagement.CheckIfGenerationRuleCanBeScheduled(QltyInspectionGenRule);
+ QltyJobQueueManagement.CheckIfGenerationRuleCanBeScheduled(QltyInspectCreationRule);
- SourceRecordRef.Open(QltyInspectionGenRule."Source Table No.");
- if QltyInspectionGenRule."Condition Filter" <> '' then
- SourceRecordRef.SetView(QltyInspectionGenRule."Condition Filter");
+ SourceRecordRef.Open(QltyInspectCreationRule."Source Table No.");
+ if QltyInspectCreationRule."Condition Filter" <> '' then
+ SourceRecordRef.SetView(QltyInspectCreationRule."Condition Filter");
- QltyInspectionGenRule.SetRecFilter();
- QltyInspectionGenRule.SetRange("Schedule Group", QltyInspectionGenRule."Schedule Group");
- QltyInspectionGenRule.SetRange("Template Code", QltyInspectionGenRule."Template Code");
+ QltyInspectCreationRule.SetRecFilter();
+ QltyInspectCreationRule.SetRange("Schedule Group", QltyInspectCreationRule."Schedule Group");
+ QltyInspectCreationRule.SetRange("Template Code", QltyInspectCreationRule."Template Code");
if SourceRecordRef.FindSet() then
- QltyInspectionCreate.CreateMultipleInspectionsWithoutDisplaying(SourceRecordRef, GuiAllowed(), QltyInspectionGenRule, CreatedQltyInspectionIds);
+ QltyInspectionCreate.CreateMultipleInspectionsWithoutDisplaying(SourceRecordRef, GuiAllowed(), QltyInspectCreationRule, CreatedQltyInspectionIds);
end;
}
\ No newline at end of file
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyGenRuleActTrigger.Enum.al b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyCreatRuleActTrigger.Enum.al
similarity index 83%
rename from src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyGenRuleActTrigger.Enum.al
rename to src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyCreatRuleActTrigger.Enum.al
index fcc4eea454..038339351f 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyGenRuleActTrigger.Enum.al
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyCreatRuleActTrigger.Enum.al
@@ -5,11 +5,11 @@
namespace Microsoft.QualityManagement.Configuration.GenerationRule;
///
-/// Generation Rule Activation Trigger.
+/// Creation Rule Activation Trigger.
///
-enum 20459 "Qlty. Gen. Rule Act. Trigger"
+enum 20459 "Qlty. Creat. Rule Act. Trigger"
{
- Caption = 'Quality Inspection Generation Rule Activation Trigger';
+ Caption = 'Quality Inspection Creation Rule Activation Trigger';
Extensible = false;
value(0; "Manual or Automatic")
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspecGenRuleMgmt.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspecGenRuleMgmt.Codeunit.al
index ca62054e1b..78264319e9 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspecGenRuleMgmt.Codeunit.al
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspecGenRuleMgmt.Codeunit.al
@@ -33,7 +33,7 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
///
internal procedure SetFilterToApplicableTemplates(TemplateCode: Code[20]; var QltyInspectSourceConfig: Record "Qlty. Inspect. Source Config.")
var
- TempSearchQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempSearchQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
TempAvailableQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary;
Filter: Text;
KnownTableIds: List of [Integer];
@@ -41,22 +41,22 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
CanCreateInspectionDirectly: Boolean;
TablesToConfigure: Text;
begin
- if not FindAllCompatibleGenerationRules(TemplateCode, TempSearchQltyInspectionGenRule) then
+ if not FindAllCompatibleGenerationRules(TemplateCode, TempSearchQltyInspectCreationRule) then
Error(CouldNotFindGenerationRuleErr, TemplateCode);
- TempSearchQltyInspectionGenRule.Reset();
- if TempSearchQltyInspectionGenRule.FindSet() then begin
+ TempSearchQltyInspectCreationRule.Reset();
+ if TempSearchQltyInspectCreationRule.FindSet() then begin
Filter := '0';
repeat
TempAvailableQltyInspectSourceConfig.Reset();
TempAvailableQltyInspectSourceConfig.DeleteAll(false);
- CanLoopDoTargets := QltyTraversal.FindPossibleTargetsBasedOnConfigRecursive(TempSearchQltyInspectionGenRule."Source Table No.", TempAvailableQltyInspectSourceConfig);
+ CanLoopDoTargets := QltyTraversal.FindPossibleTargetsBasedOnConfigRecursive(TempSearchQltyInspectCreationRule."Source Table No.", TempAvailableQltyInspectSourceConfig);
if not CanLoopDoTargets then begin
if StrLen(TablesToConfigure) > 0 then
- TablesToConfigure += ', ' + Format(TempSearchQltyInspectionGenRule."Source Table No.")
+ TablesToConfigure += ', ' + Format(TempSearchQltyInspectCreationRule."Source Table No.")
else
- TablesToConfigure := Format(TempSearchQltyInspectionGenRule."Source Table No.");
+ TablesToConfigure := Format(TempSearchQltyInspectCreationRule."Source Table No.");
end else begin
TempAvailableQltyInspectSourceConfig.Reset();
if TempAvailableQltyInspectSourceConfig.FindSet() then
@@ -69,7 +69,7 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
end;
until TempAvailableQltyInspectSourceConfig.Next() = 0;
end;
- until TempSearchQltyInspectionGenRule.Next() = 0;
+ until TempSearchQltyInspectCreationRule.Next() = 0;
QltyInspectSourceConfig.SetFilter("From Table No.", Filter);
end;
if not CanCreateInspectionDirectly then
@@ -114,9 +114,9 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
/// target recordref for rules search
/// optional item to filter rules search
/// Optional template to filter rules search
- /// Returned Generation Rule
+ /// Returned Generation Rule
/// true if a matching Generation Rule was found
- procedure FindMatchingGenerationRule(RaiseErrorIfNoRuleIsFound: Boolean; var TargetRecordRef: RecordRef; var OptionalItem: Record Item; OptionalSpecificTemplate: Code[20]; var TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary) Found: Boolean
+ procedure FindMatchingGenerationRule(RaiseErrorIfNoRuleIsFound: Boolean; var TargetRecordRef: RecordRef; var OptionalItem: Record Item; OptionalSpecificTemplate: Code[20]; var TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary) Found: Boolean
var
TempAvailableQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary;
TempAlreadyConsideredsWhileSearchingQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary;
@@ -134,7 +134,7 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
TempAvailableQltyInspectSourceConfig,
TempAlreadyConsideredsWhileSearchingQltyInspectSourceConfig,
OptionalSpecificTemplate,
- TempQltyInspectionGenRule);
+ TempQltyInspectCreationRule);
end;
///
@@ -145,9 +145,9 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
/// target recordref for rules search
/// optional item to filter rules search
/// Optional template to filter rules search
- /// Returned Generation Rule
+ /// Returned Generation Rule
/// true if a matching Generation Rule was found
- procedure FindMatchingGenerationRule(RaiseErrorIfNoRuleIsFound: Boolean; IsManualCreation: Boolean; var TargetRecordRef: RecordRef; var OptionalItem: Record Item; OptionalSpecificTemplate: Code[20]; var TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary) Found: Boolean
+ procedure FindMatchingGenerationRule(RaiseErrorIfNoRuleIsFound: Boolean; IsManualCreation: Boolean; var TargetRecordRef: RecordRef; var OptionalItem: Record Item; OptionalSpecificTemplate: Code[20]; var TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary) Found: Boolean
var
TempAvailableQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary;
TempAlreadyConsideredsWhileSearchingQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary;
@@ -165,12 +165,12 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
TempAvailableQltyInspectSourceConfig,
TempAlreadyConsideredsWhileSearchingQltyInspectSourceConfig,
OptionalSpecificTemplate,
- TempQltyInspectionGenRule);
+ TempQltyInspectCreationRule);
end;
///
/// Finds the first matching generation rule and record.
- /// Note that TempQltyInspectionGenRule can be used to supply optional input filters, however it will be replaced upon output.
+ /// Note that TempQltyInspectCreationRule can be used to supply optional input filters, however it will be replaced upon output.
///
///
///
@@ -180,11 +180,11 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
///
///
///
- /// Filters are copied from the input, but will be replaced on output.
+ /// Filters are copied from the input, but will be replaced on output.
///
- local procedure FindFirstGenerationRuleAndRecordBasedOnRecursive(CurrentRecursionDepth: Integer; UseActivationFilter: Boolean; IsManualCreation: Boolean; var TargetRecordRef: RecordRef; var OptionalItem: Record Item; var TempAvailableQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary; var TempAlreadySearchedsQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary; OptionalSpecificTemplate: Code[20]; var TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary) Found: Boolean
+ local procedure FindFirstGenerationRuleAndRecordBasedOnRecursive(CurrentRecursionDepth: Integer; UseActivationFilter: Boolean; IsManualCreation: Boolean; var TargetRecordRef: RecordRef; var OptionalItem: Record Item; var TempAvailableQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary; var TempAlreadySearchedsQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary; OptionalSpecificTemplate: Code[20]; var TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary) Found: Boolean
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
SearchItem: Record Item;
FoundLinkRecordRef: RecordRef;
TemporaryInspectionMatchRecordRef: RecordRef;
@@ -193,53 +193,53 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
if CurrentRecursionDepth <= 0 then
Error(UnexpectedAndNoDetailsErr);
- QltyInspectionGenRule.CopyFilters(TempQltyInspectionGenRule);
- QltyInspectionGenRule.SetRange("Source Table No.", TargetRecordRef.Number());
+ QltyInspectCreationRule.CopyFilters(TempQltyInspectCreationRule);
+ QltyInspectCreationRule.SetRange("Source Table No.", TargetRecordRef.Number());
if OptionalSpecificTemplate <> '' then
- QltyInspectionGenRule.SetRange("Template Code", OptionalSpecificTemplate);
+ QltyInspectCreationRule.SetRange("Template Code", OptionalSpecificTemplate);
if UseActivationFilter then
if IsManualCreation then
- QltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", QltyInspectionGenRule."Activation Trigger"::"Manual only")
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", QltyInspectCreationRule."Activation Trigger"::"Manual only")
else
- QltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", QltyInspectionGenRule."Activation Trigger"::"Automatic only");
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", QltyInspectCreationRule."Activation Trigger"::"Automatic only");
- QltyInspectionGenRule.SetCurrentKey("Sort Order");
- QltyInspectionGenRule.Ascending(true);
- if QltyInspectionGenRule.FindSet() then
+ QltyInspectCreationRule.SetCurrentKey("Sort Order");
+ QltyInspectCreationRule.Ascending(true);
+ if QltyInspectCreationRule.FindSet() then
repeat
Clear(TemporaryInspectionMatchRecordRef);
TemporaryInspectionMatchRecordRef.Open(TargetRecordRef.Number(), true);
TemporaryInspectionMatchRecordRef.Copy(TargetRecordRef);
TemporaryInspectionMatchRecordRef.Insert(false);
TemporaryInspectionMatchRecordRef.Reset();
- TemporaryInspectionMatchRecordRef.SetView(QltyInspectionGenRule."Condition Filter");
+ TemporaryInspectionMatchRecordRef.SetView(QltyInspectCreationRule."Condition Filter");
if TemporaryInspectionMatchRecordRef.FindFirst() then
- if (QltyInspectionGenRule."Item Filter" <> '') and (OptionalItem."No." <> '') then begin
+ if (QltyInspectCreationRule."Item Filter" <> '') and (OptionalItem."No." <> '') then begin
Clear(SearchItem);
SearchItem := OptionalItem;
SearchItem.SetRecFilter();
SearchItem.FilterGroup(20);
- SearchItem.SetView(QltyInspectionGenRule."Item Filter");
+ SearchItem.SetView(QltyInspectCreationRule."Item Filter");
if SearchItem.Count() > 0 then
- if DoesMatchItemAttributeFiltersOrNoFilter(QltyInspectionGenRule, OptionalItem) then begin
- TempQltyInspectionGenRule := QltyInspectionGenRule;
- Found := TempQltyInspectionGenRule.Insert();
+ if DoesMatchItemAttributeFiltersOrNoFilter(QltyInspectCreationRule, OptionalItem) then begin
+ TempQltyInspectCreationRule := QltyInspectCreationRule;
+ Found := TempQltyInspectCreationRule.Insert();
end;
OptionalItem.FilterGroup(0);
SearchItem.FilterGroup(0);
end else
- if (OptionalItem."No." <> '') and (QltyInspectionGenRule."Item Attribute Filter" <> '') then begin
- if DoesMatchItemAttributeFiltersOrNoFilter(QltyInspectionGenRule, OptionalItem) then begin
- TempQltyInspectionGenRule := QltyInspectionGenRule;
- Found := TempQltyInspectionGenRule.Insert();
+ if (OptionalItem."No." <> '') and (QltyInspectCreationRule."Item Attribute Filter" <> '') then begin
+ if DoesMatchItemAttributeFiltersOrNoFilter(QltyInspectCreationRule, OptionalItem) then begin
+ TempQltyInspectCreationRule := QltyInspectCreationRule;
+ Found := TempQltyInspectCreationRule.Insert();
end;
end else begin
- TempQltyInspectionGenRule := QltyInspectionGenRule;
- Found := TempQltyInspectionGenRule.Insert();
+ TempQltyInspectCreationRule := QltyInspectCreationRule;
+ Found := TempQltyInspectCreationRule.Insert();
end;
- until (QltyInspectionGenRule.Next() = 0) or (Found);
+ until (QltyInspectCreationRule.Next() = 0) or (Found);
if not Found then begin
TempAvailableQltyInspectSourceConfig.Reset();
@@ -251,7 +251,7 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
TempAlreadySearchedsQltyInspectSourceConfig := TempAvailableQltyInspectSourceConfig;
TempAlreadySearchedsQltyInspectSourceConfig.Insert();
if QltyTraversal.FindFromTableLinkedRecordWithToTable(true, false, TempAvailableQltyInspectSourceConfig, TargetRecordRef, FoundLinkRecordRef) then
- if FindFirstGenerationRuleAndRecordBasedOnRecursive(CurrentRecursionDepth, UseActivationFilter, IsManualCreation, FoundLinkRecordRef, OptionalItem, TempAvailableQltyInspectSourceConfig, TempAlreadySearchedsQltyInspectSourceConfig, OptionalSpecificTemplate, TempQltyInspectionGenRule) then begin
+ if FindFirstGenerationRuleAndRecordBasedOnRecursive(CurrentRecursionDepth, UseActivationFilter, IsManualCreation, FoundLinkRecordRef, OptionalItem, TempAvailableQltyInspectSourceConfig, TempAlreadySearchedsQltyInspectSourceConfig, OptionalSpecificTemplate, TempQltyInspectCreationRule) then begin
Found := true;
TargetRecordRef := FoundLinkRecordRef;
end;
@@ -265,7 +265,7 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
/// If there is an item attribute filter, then it must match.
///
///
- internal procedure DoesMatchItemAttributeFiltersOrNoFilter(var QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"; var Item: Record Item): Boolean
+ internal procedure DoesMatchItemAttributeFiltersOrNoFilter(var QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule"; var Item: Record Item): Boolean
var
TempFilterItemAttributesBuffer: Record "Filter Item Attributes Buffer" temporary;
TempsItem: Record Item temporary;
@@ -275,10 +275,10 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
if Item."No." = '' then
exit(false);
- if QltyInspectionGenRule."Item Attribute Filter" = '' then
+ if QltyInspectCreationRule."Item Attribute Filter" = '' then
exit(true);
- QltyFilterHelpers.DeserializeFilterIntoItemAttributesBuffer(QltyInspectionGenRule."Item Attribute Filter", TempFilterItemAttributesBuffer);
+ QltyFilterHelpers.DeserializeFilterIntoItemAttributesBuffer(QltyInspectCreationRule."Item Attribute Filter", TempFilterItemAttributesBuffer);
QltyFilterHelpers.SetItemFilterForItemAttributeFilterSearching(Item."No.");
BindSubscription(QltyFilterHelpers);
ItemAttributeManagement.FindItemsByAttributes(TempFilterItemAttributesBuffer, TempsItem);
@@ -288,19 +288,19 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
exit(not TempsItem.IsEmpty());
end;
- internal procedure FindAllCompatibleGenerationRules(TemplateCode: Code[20]; var TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary) Found: Boolean
+ internal procedure FindAllCompatibleGenerationRules(TemplateCode: Code[20]; var TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary) Found: Boolean
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
- QltyInspectionGenRule.SetRange("Template Code", TemplateCode);
- QltyInspectionGenRule.SetFilter("Activation Trigger", '<>%1', QltyInspectionGenRule."Activation Trigger"::Disabled);
- QltyInspectionGenRule.SetCurrentKey("Sort Order");
- QltyInspectionGenRule.Ascending(true);
- if QltyInspectionGenRule.FindSet() then
+ QltyInspectCreationRule.SetRange("Template Code", TemplateCode);
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '<>%1', QltyInspectCreationRule."Activation Trigger"::Disabled);
+ QltyInspectCreationRule.SetCurrentKey("Sort Order");
+ QltyInspectCreationRule.Ascending(true);
+ if QltyInspectCreationRule.FindSet() then
repeat
- TempQltyInspectionGenRule := QltyInspectionGenRule;
- if TempQltyInspectionGenRule.Insert() then;
+ TempQltyInspectCreationRule := QltyInspectCreationRule;
+ if TempQltyInspectCreationRule.Insert() then;
Found := true;
- until QltyInspectionGenRule.Next() = 0;
+ until QltyInspectCreationRule.Next() = 0;
end;
}
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRule.Table.al b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectCreationRule.Table.al
similarity index 96%
rename from src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRule.Table.al
rename to src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectCreationRule.Table.al
index 3d920abd90..49df73e316 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRule.Table.al
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectCreationRule.Table.al
@@ -27,13 +27,13 @@ using Microsoft.Warehouse.Ledger;
using System.Reflection;
///
-/// A Quality Inspection generation rule defines when you want to ask a set of questions or other data that you want to collect that is defined in a template. You connect a template to a source table, and set the criteria to use that template with the table filter. When these filter criteria is met, then it will choose that template. When there are multiple matches, it will use the first template that it finds, based on the sort order.
+/// A Quality Inspection creation rule defines when you want to ask a set of questions or other data that you want to collect that is defined in a template. You connect a template to a source table, and set the criteria to use that template with the table filter. When these filter criteria is met, then it will choose that template. When there are multiple matches, it will use the first template that it finds, based on the sort order.
///
-table 20404 "Qlty. Inspection Gen. Rule"
+table 20404 "Qlty. Inspect. Creation Rule"
{
- Caption = 'Quality Inspection Generation Rule';
- DrillDownPageId = "Qlty. Inspection Gen. Rules";
- LookupPageId = "Qlty. Inspection Gen. Rules";
+ Caption = 'Quality Inspection Creation Rule';
+ DrillDownPageId = "Qlty. Inspect. Creation Rules";
+ LookupPageId = "Qlty. Inspect. Creation Rules";
DataClassification = CustomerContent;
fields
@@ -135,7 +135,7 @@ table 20404 "Qlty. Inspection Gen. Rule"
Caption = 'Attribute Filter';
ToolTip = 'Specifies the item attribute specific criteria for defining when to use this template.';
}
- field(21; "Activation Trigger"; Enum "Qlty. Gen. Rule Act. Trigger")
+ field(21; "Activation Trigger"; Enum "Qlty. Creat. Rule Act. Trigger")
{
Caption = 'Activation Trigger';
InitValue = "Manual or Automatic";
@@ -289,25 +289,25 @@ table 20404 "Qlty. Inspection Gen. Rule"
internal procedure SetEntryNo()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if Rec."Entry No." = 0 then begin
- QltyInspectionGenRule.SetCurrentKey("Entry No.");
- QltyInspectionGenRule.SetLoadFields("Entry No.");
- if QltyInspectionGenRule.FindLast() then;
- Rec."Entry No." := QltyInspectionGenRule."Entry No." + 1;
+ QltyInspectCreationRule.SetCurrentKey("Entry No.");
+ QltyInspectCreationRule.SetLoadFields("Entry No.");
+ if QltyInspectCreationRule.FindLast() then;
+ Rec."Entry No." := QltyInspectCreationRule."Entry No." + 1;
end;
end;
internal procedure UpdateSortOrder()
var
- FindHighestQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ FindHighestQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if (Rec."Sort Order" = 0) or (Rec."Sort Order" = 1) then begin
- FindHighestQltyInspectionGenRule.SetCurrentKey("Sort Order");
- FindHighestQltyInspectionGenRule.Ascending(false);
- if FindHighestQltyInspectionGenRule.FindFirst() then;
- Rec."Sort Order" := FindHighestQltyInspectionGenRule."Sort Order" + 10;
+ FindHighestQltyInspectCreationRule.SetCurrentKey("Sort Order");
+ FindHighestQltyInspectCreationRule.Ascending(false);
+ if FindHighestQltyInspectCreationRule.FindFirst() then;
+ Rec."Sort Order" := FindHighestQltyInspectCreationRule."Sort Order" + 10;
end;
end;
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRules.Page.al b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectCreationRules.Page.al
similarity index 89%
rename from src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRules.Page.al
rename to src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectCreationRules.Page.al
index a1977f9eaa..b7488e14c7 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRules.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectCreationRules.Page.al
@@ -10,12 +10,12 @@ using Microsoft.QualityManagement.Integration.Receiving;
using Microsoft.QualityManagement.Integration.Warehouse;
using Microsoft.QualityManagement.Setup;
-page 20405 "Qlty. Inspection Gen. Rules"
+page 20405 "Qlty. Inspect. Creation Rules"
{
- Caption = 'Quality Inspection Generation Rules';
+ Caption = 'Quality Inspection Creation Rules';
DataCaptionExpression = GetDataCaptionExpression();
PageType = List;
- SourceTable = "Qlty. Inspection Gen. Rule";
+ SourceTable = "Qlty. Inspect. Creation Rule";
PopulateAllFields = true;
SourceTableView = sorting("Sort Order", Intent);
UsageCategory = Lists;
@@ -206,11 +206,11 @@ page 20405 "Qlty. Inspection Gen. Rules"
trigger OnAction()
var
- NewQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ NewQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
RecQltyAsmGenRuleWizard: Page "Qlty. Asm. Gen. Rule Wizard";
begin
- NewQltyInspectionGenRule.CopyFilters(Rec);
- RecQltyAsmGenRuleWizard.RunModalWithGenerationRule(NewQltyInspectionGenRule);
+ NewQltyInspectCreationRule.CopyFilters(Rec);
+ RecQltyAsmGenRuleWizard.RunModalWithGenerationRule(NewQltyInspectCreationRule);
CurrPage.Update(false);
end;
}
@@ -247,11 +247,11 @@ page 20405 "Qlty. Inspection Gen. Rules"
trigger OnAction()
var
- NewQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ NewQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
RecQltyProdGenRuleWizard: Page "Qlty. Prod. Gen. Rule Wizard";
begin
- NewQltyInspectionGenRule.CopyFilters(Rec);
- RecQltyProdGenRuleWizard.RunModalWithGenerationRule(NewQltyInspectionGenRule);
+ NewQltyInspectCreationRule.CopyFilters(Rec);
+ RecQltyProdGenRuleWizard.RunModalWithGenerationRule(NewQltyInspectCreationRule);
CurrPage.Update(false);
end;
}
@@ -288,11 +288,11 @@ page 20405 "Qlty. Inspection Gen. Rules"
trigger OnAction()
var
- NewQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ NewQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyRecGenRuleWizard: Page "Qlty. Rec. Gen. Rule Wizard";
begin
- NewQltyInspectionGenRule.CopyFilters(Rec);
- QltyRecGenRuleWizard.RunModalWithGenerationRule(NewQltyInspectionGenRule);
+ NewQltyInspectCreationRule.CopyFilters(Rec);
+ QltyRecGenRuleWizard.RunModalWithGenerationRule(NewQltyInspectCreationRule);
CurrPage.Update(false);
end;
}
@@ -329,11 +329,11 @@ page 20405 "Qlty. Inspection Gen. Rules"
trigger OnAction()
var
- NewQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ NewQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyWhseGenRuleWizard: Page "Qlty. Whse. Gen. Rule Wizard";
begin
- NewQltyInspectionGenRule.CopyFilters(Rec);
- QltyWhseGenRuleWizard.RunModalWithGenerationRule(NewQltyInspectionGenRule);
+ NewQltyInspectCreationRule.CopyFilters(Rec);
+ QltyWhseGenRuleWizard.RunModalWithGenerationRule(NewQltyInspectCreationRule);
CurrPage.Update(false);
end;
}
@@ -440,8 +440,8 @@ page 20405 "Qlty. Inspection Gen. Rules"
WhseMovementStyle: Text;
TransferStyle: Text;
RowStyle: Option None,Standard,StandardAccent,Strong,StrongAccent,Attention,AttentionAccent,Favorable,Unfavorable,Ambiguous,Subordinate;
- GenerationRulesCaptionLbl: Label 'Quality Inspection Generation Rules';
- GenerationRulesCaptionForTemplateLbl: Label 'Quality Inspection Generation Rules for %1', Comment = '%1=the template';
+ GenerationRulesCaptionLbl: Label 'Quality Inspection Creation Rules';
+ GenerationRulesCaptionForTemplateLbl: Label 'Quality Inspection Creation Rules for %1', Comment = '%1=the template';
DefaultScheduleGroupLbl: Label 'QM', Locked = true;
trigger OnInit()
@@ -612,7 +612,7 @@ page 20405 "Qlty. Inspection Gen. Rules"
local procedure SetTriggerColumnVisibleState()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
ShowAssemblyTrigger := false;
ShowProductionTrigger := false;
@@ -622,38 +622,38 @@ page 20405 "Qlty. Inspection Gen. Rules"
ShowWarehouseReceiveTrigger := false;
ShowWarehouseMovementTrigger := false;
- QltyInspectionGenRule.CopyFilters(Rec);
- QltyInspectionGenRule.SetLoadFields(Intent);
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Assembly);
- if not QltyInspectionGenRule.IsEmpty() then
+ QltyInspectCreationRule.CopyFilters(Rec);
+ QltyInspectCreationRule.SetLoadFields(Intent);
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Assembly);
+ if not QltyInspectCreationRule.IsEmpty() then
ShowAssemblyTrigger := true;
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Production);
- if not QltyInspectionGenRule.IsEmpty() then
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Production);
+ if not QltyInspectCreationRule.IsEmpty() then
ShowProductionTrigger := true;
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Purchase);
- if not QltyInspectionGenRule.IsEmpty() then
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Purchase);
+ if not QltyInspectCreationRule.IsEmpty() then
ShowPurchaseTrigger := true;
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::"Sales Return");
- if not QltyInspectionGenRule.IsEmpty() then
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::"Sales Return");
+ if not QltyInspectCreationRule.IsEmpty() then
ShowSalesReturnTrigger := true;
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Transfer);
- if not QltyInspectionGenRule.IsEmpty() then
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Transfer);
+ if not QltyInspectCreationRule.IsEmpty() then
ShowTransferTrigger := true;
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::"Warehouse Receipt");
- if not QltyInspectionGenRule.IsEmpty() then
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::"Warehouse Receipt");
+ if not QltyInspectCreationRule.IsEmpty() then
ShowWarehouseReceiveTrigger := true;
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::"Warehouse Movement");
- if not QltyInspectionGenRule.IsEmpty() then
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::"Warehouse Movement");
+ if not QltyInspectCreationRule.IsEmpty() then
ShowWarehouseMovementTrigger := true;
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Unknown);
- if not QltyInspectionGenRule.IsEmpty() then begin
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Unknown);
+ if not QltyInspectCreationRule.IsEmpty() then begin
ShowAssemblyTrigger := true;
ShowProductionTrigger := true;
ShowPurchaseTrigger := true;
@@ -683,17 +683,17 @@ page 20405 "Qlty. Inspection Gen. Rules"
local procedure AttemptUpdateUnknownIntents()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
- if not QltyInspectionGenRule.WritePermission() then
+ if not QltyInspectCreationRule.WritePermission() then
exit;
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Unknown);
- if not QltyInspectionGenRule.IsEmpty() then
- if QltyInspectionGenRule.FindSet() then
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Unknown);
+ if not QltyInspectCreationRule.IsEmpty() then
+ if QltyInspectCreationRule.FindSet() then
repeat
- QltyInspectionGenRule.SetIntentAndDefaultTriggerValuesFromSetup();
- QltyInspectionGenRule.Modify();
- until QltyInspectionGenRule.Next() = 0;
+ QltyInspectCreationRule.SetIntentAndDefaultTriggerValuesFromSetup();
+ QltyInspectCreationRule.Modify();
+ until QltyInspectCreationRule.Next() = 0;
end;
}
\ No newline at end of file
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplate.Page.al b/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplate.Page.al
index bdd035dc9a..0df391f886 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplate.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplate.Page.al
@@ -159,7 +159,7 @@ page 20402 "Qlty. Inspection Template"
Promoted = true;
PromotedCategory = Process;
PromotedIsBig = true;
- RunObject = Page "Qlty. Inspection Gen. Rules";
+ RunObject = Page "Qlty. Inspect. Creation Rules";
RunPageLink = "Template Code" = field(Code);
RunPageMode = Edit;
PromotedOnly = true;
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplateHdr.Table.al b/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplateHdr.Table.al
index 6fb0799f66..69b1332261 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplateHdr.Table.al
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplateHdr.Table.al
@@ -75,13 +75,13 @@ table 20402 "Qlty. Inspection Template Hdr."
trigger OnDelete()
var
QltyInspectionTemplateLine: Record "Qlty. Inspection Template Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
QltyInspectionTemplateLine.SetRange("Template Code", Code);
QltyInspectionTemplateLine.DeleteAll(true);
- QltyInspectionGenRule.SetRange("Template Code", Code);
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.SetRange("Template Code", Code);
+ QltyInspectCreationRule.DeleteAll();
end;
trigger OnRename()
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplateList.Page.al b/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplateList.Page.al
index 0dc37ee33b..c7e2ae6cb0 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplateList.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplateList.Page.al
@@ -78,7 +78,7 @@ page 20404 "Qlty. Inspection Template List"
Promoted = true;
PromotedCategory = Process;
PromotedIsBig = true;
- RunObject = Page "Qlty. Inspection Gen. Rules";
+ RunObject = Page "Qlty. Inspect. Creation Rules";
RunPageLink = "Template Code" = field(Code);
RunPageMode = Edit;
}
diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyCreateInspection.Report.al b/src/Apps/W1/Quality Management/app/src/Document/QltyCreateInspection.Report.al
index 51a1151719..b9af836491 100644
--- a/src/Apps/W1/Quality Management/app/src/Document/QltyCreateInspection.Report.al
+++ b/src/Apps/W1/Quality Management/app/src/Document/QltyCreateInspection.Report.al
@@ -247,22 +247,22 @@ report 20400 "Qlty. Create Inspection"
/// Code[20]. The quality inspection template code to default to.
procedure InitializeReportParameters(QltyInspectionTemplateCode: Code[20])
var
- TempCompatibleQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempCompatibleQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
begin
QltInspectionTemplateToCreate := QltyInspectionTemplateCode;
OnAfterInitializeCreateInspectionReportParameters(QltInspectionTemplateToCreate, SourceTable, CustomFilter, Target, TargetRecordRef, TempQltyInspectionHeader);
if (QltyInspectionTemplateCode <> '') and (SourceTable = '') then begin
QltyInspectSourceConfig.Reset();
- if QltyInspecGenRuleMgmt.FindAllCompatibleGenerationRules(QltInspectionTemplateToCreate, TempCompatibleQltyInspectionGenRule) then begin
+ if QltyInspecGenRuleMgmt.FindAllCompatibleGenerationRules(QltInspectionTemplateToCreate, TempCompatibleQltyInspectCreationRule) then begin
QltyInspectSourceConfig.SetRange("To Type", QltyInspectSourceConfig."To Type"::Inspection);
QltyInspectSourceConfig.SetRange(Enabled, true);
- if TempCompatibleQltyInspectionGenRule.FindSet() then
+ if TempCompatibleQltyInspectCreationRule.FindSet() then
repeat
- QltyInspectSourceConfig.SetRange("From Table No.", TempCompatibleQltyInspectionGenRule."Source Table No.");
+ QltyInspectSourceConfig.SetRange("From Table No.", TempCompatibleQltyInspectCreationRule."Source Table No.");
if QltyInspectSourceConfig.FindFirst() then
SourceTable := QltyInspectSourceConfig.Code;
- until (TempCompatibleQltyInspectionGenRule.Next() = 0) or (SourceTable <> '');
+ until (TempCompatibleQltyInspectCreationRule.Next() = 0) or (SourceTable <> '');
if SourceTable = '' then begin
QltyInspectSourceConfig.Reset();
diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionCreate.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionCreate.Codeunit.al
index af02b9981c..c088fb9b73 100644
--- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionCreate.Codeunit.al
+++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionCreate.Codeunit.al
@@ -96,7 +96,7 @@ codeunit 20404 "Qlty. Inspection - Create"
local procedure InternalCreateInspectionWithVariantAndTemplate(ReferenceVariant: Variant; IsManualCreation: Boolean; OptionalSpecificTemplate: Code[20]; OptionalRec2Variant: Variant; OptionalRec3Variant: Variant; OptionalRec4Variant: Variant) QltyInspectionCreateStatus: Enum "Qlty. Inspection Create Status"
var
- TempDummyQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempDummyQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
TargetRecordRef: RecordRef;
begin
@@ -106,10 +106,10 @@ codeunit 20404 "Qlty. Inspection - Create"
if not QltyMiscHelpers.GetRecordRefFromVariant(ReferenceVariant, TargetRecordRef) then
exit(QltyInspectionCreateStatus::"Unable to Create");
- exit(InternalCreateInspectionWithSpecificTemplate(TargetRecordRef, IsManualCreation, OptionalSpecificTemplate, OptionalRec2Variant, OptionalRec3Variant, OptionalRec4Variant, TempDummyQltyInspectionGenRule));
+ exit(InternalCreateInspectionWithSpecificTemplate(TargetRecordRef, IsManualCreation, OptionalSpecificTemplate, OptionalRec2Variant, OptionalRec3Variant, OptionalRec4Variant, TempDummyQltyInspectCreationRule));
end;
- local procedure InternalCreateInspectionWithGenerationRule(ReferenceVariant: Variant; OptionalRec2Variant: Variant; OptionalRec3Variant: Variant; OptionalRec4Variant: Variant; IsManualCreation: Boolean; var TempFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary) QltyInspectionCreateStatus: Enum "Qlty. Inspection Create Status"
+ local procedure InternalCreateInspectionWithGenerationRule(ReferenceVariant: Variant; OptionalRec2Variant: Variant; OptionalRec3Variant: Variant; OptionalRec4Variant: Variant; IsManualCreation: Boolean; var TempFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary) QltyInspectionCreateStatus: Enum "Qlty. Inspection Create Status"
var
QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
TargetRecordRef: RecordRef;
@@ -120,7 +120,7 @@ codeunit 20404 "Qlty. Inspection - Create"
if not QltyMiscHelpers.GetRecordRefFromVariant(ReferenceVariant, TargetRecordRef) then
exit(QltyInspectionCreateStatus::"Unable to Create");
- exit(InternalCreateInspectionWithSpecificTemplate(TargetRecordRef, IsManualCreation, NoSpecificTemplateTok, OptionalRec2Variant, OptionalRec3Variant, OptionalRec4Variant, TempFiltersQltyInspectionGenRule));
+ exit(InternalCreateInspectionWithSpecificTemplate(TargetRecordRef, IsManualCreation, NoSpecificTemplateTok, OptionalRec2Variant, OptionalRec3Variant, OptionalRec4Variant, TempFiltersQltyInspectCreationRule));
end;
///
@@ -134,7 +134,7 @@ codeunit 20404 "Qlty. Inspection - Create"
/// 4. If fails, try OptionalRec4Variant with others as context
/// 5. Return success if any attempt succeeds
///
- /// The TempFiltersQltyInspectionGenRule parameter allows filtering by auto inspection creation trigger
+ /// The TempFiltersQltyInspectCreationRule parameter allows filtering by auto inspection creation trigger
/// (e.g., only create inspections configured for "On Post" or "On Ship" triggers).
///
/// Common usage: Complex scenarios with multiple related records (e.g., Header + Line + Item + Vendor).
@@ -144,9 +144,9 @@ codeunit 20404 "Qlty. Inspection - Create"
/// Third record variant; used as source context or attempted as primary
/// Fourth record variant; used as source context or attempted as primary
/// True for manual creation; False for automatic/triggered creation
- /// Temporary record with filters to limit which generation rules apply (e.g., filter by Auto Inspection Creation Trigger)
+ /// Temporary record with filters to limit which generation rules apply (e.g., filter by Auto Inspection Creation Trigger)
/// True if inspection was successfully created from any variant; False if all attempts failed
- procedure CreateInspectionWithMultiVariants(OptionalRec1Variant: Variant; OptionalRec2Variant: Variant; OptionalRec3Variant: Variant; OptionalRec4Variant: Variant; IsManualCreation: Boolean; var TempFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary) HasInspection: Boolean
+ procedure CreateInspectionWithMultiVariants(OptionalRec1Variant: Variant; OptionalRec2Variant: Variant; OptionalRec3Variant: Variant; OptionalRec4Variant: Variant; IsManualCreation: Boolean; var TempFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary) HasInspection: Boolean
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
PreviousAvoidErrorState: Boolean;
@@ -159,15 +159,15 @@ codeunit 20404 "Qlty. Inspection - Create"
LastQltyInspectionCreateStatus := LastQltyInspectionCreateStatus::Unknown;
case ScenarioIterator of
1:
- LastQltyInspectionCreateStatus := InternalCreateInspectionWithGenerationRule(OptionalRec1Variant, OptionalRec2Variant, OptionalRec3Variant, OptionalRec4Variant, IsManualCreation, TempFiltersQltyInspectionGenRule);
+ LastQltyInspectionCreateStatus := InternalCreateInspectionWithGenerationRule(OptionalRec1Variant, OptionalRec2Variant, OptionalRec3Variant, OptionalRec4Variant, IsManualCreation, TempFiltersQltyInspectCreationRule);
2:
- LastQltyInspectionCreateStatus := InternalCreateInspectionWithGenerationRule(OptionalRec2Variant, OptionalRec1Variant, OptionalRec3Variant, OptionalRec4Variant, IsManualCreation, TempFiltersQltyInspectionGenRule);
+ LastQltyInspectionCreateStatus := InternalCreateInspectionWithGenerationRule(OptionalRec2Variant, OptionalRec1Variant, OptionalRec3Variant, OptionalRec4Variant, IsManualCreation, TempFiltersQltyInspectCreationRule);
3:
- LastQltyInspectionCreateStatus := InternalCreateInspectionWithGenerationRule(OptionalRec3Variant, OptionalRec1Variant, OptionalRec2Variant, OptionalRec4Variant, IsManualCreation, TempFiltersQltyInspectionGenRule);
+ LastQltyInspectionCreateStatus := InternalCreateInspectionWithGenerationRule(OptionalRec3Variant, OptionalRec1Variant, OptionalRec2Variant, OptionalRec4Variant, IsManualCreation, TempFiltersQltyInspectCreationRule);
4:
begin
AvoidThrowingErrorWhenPossible := PreviousAvoidErrorState;
- LastQltyInspectionCreateStatus := InternalCreateInspectionWithGenerationRule(OptionalRec4Variant, OptionalRec1Variant, OptionalRec2Variant, OptionalRec3Variant, IsManualCreation, TempFiltersQltyInspectionGenRule);
+ LastQltyInspectionCreateStatus := InternalCreateInspectionWithGenerationRule(OptionalRec4Variant, OptionalRec1Variant, OptionalRec2Variant, OptionalRec3Variant, IsManualCreation, TempFiltersQltyInspectCreationRule);
end;
end;
if LastQltyInspectionCreateStatus = LastQltyInspectionCreateStatus::Created then
@@ -251,21 +251,21 @@ codeunit 20404 "Qlty. Inspection - Create"
local procedure InternalCreateInspectionWithSpecificTemplate(TargetRecordRef: RecordRef; IsManualCreation: Boolean; OptionalSpecificTemplate: Code[20]; OptionalRec2Variant: Variant; OptionalRec3Variant: Variant): Enum "Qlty. Inspection Create Status"
var
- TempDummyQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempDummyQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
DummyRec4Variant: Variant;
begin
- exit(InternalCreateInspectionWithSpecificTemplate(TargetRecordRef, IsManualCreation, OptionalSpecificTemplate, OptionalRec2Variant, OptionalRec3Variant, DummyRec4Variant, TempDummyQltyInspectionGenRule));
+ exit(InternalCreateInspectionWithSpecificTemplate(TargetRecordRef, IsManualCreation, OptionalSpecificTemplate, OptionalRec2Variant, OptionalRec3Variant, DummyRec4Variant, TempDummyQltyInspectCreationRule));
end;
- [InherentPermissions(PermissionObjectType::TableData, Database::"Qlty. Inspection Gen. Rule", 'R', InherentPermissionsScope::Both)]
+ [InherentPermissions(PermissionObjectType::TableData, Database::"Qlty. Inspect. Creation Rule", 'R', InherentPermissionsScope::Both)]
[InherentPermissions(PermissionObjectType::TableData, Database::"Qlty. Inspection Header", 'RIM', InherentPermissionsScope::Both)]
[InherentPermissions(PermissionObjectType::TableData, Database::"Qlty. Inspection Line", 'RIM', InherentPermissionsScope::Both)]
[InherentPermissions(PermissionObjectType::TableData, Database::"Qlty. I. Result Condit. Conf.", 'RIM', InherentPermissionsScope::Both)]
[InherentPermissions(PermissionObjectType::Codeunit, Codeunit::"Qlty. Permission Mgmt.", 'X', InherentPermissionsScope::Both)]
[InherentPermissions(PermissionObjectType::Codeunit, Codeunit::"Qlty. Start Workflow", 'X', InherentPermissionsScope::Both)]
- local procedure InternalCreateInspectionWithSpecificTemplate(TargetRecordRef: RecordRef; IsManualCreation: Boolean; OptionalSpecificTemplate: Code[20]; OptionalRec2Variant: Variant; OptionalRec3Variant: Variant; OptionalRec4Variant: Variant; var TempFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary) QltyInspectionCreateStatus: Enum "Qlty. Inspection Create Status"
+ local procedure InternalCreateInspectionWithSpecificTemplate(TargetRecordRef: RecordRef; IsManualCreation: Boolean; OptionalSpecificTemplate: Code[20]; OptionalRec2Variant: Variant; OptionalRec3Variant: Variant; OptionalRec4Variant: Variant; var TempFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary) QltyInspectionCreateStatus: Enum "Qlty. Inspection Create Status"
var
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionLine: Record "Qlty. Inspection Line";
TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader: Record "Qlty. Inspection Header" temporary;
@@ -289,7 +289,7 @@ codeunit 20404 "Qlty. Inspection - Create"
Clear(LastCreatedQltyInspectionHeader);
- TempQltyInspectionGenRule.CopyFilters(TempFiltersQltyInspectionGenRule);
+ TempQltyInspectCreationRule.CopyFilters(TempFiltersQltyInspectCreationRule);
if IsManualCreation then
QltyPermissionMgmt.VerifyCanCreateManualInspection()
@@ -306,24 +306,24 @@ codeunit 20404 "Qlty. Inspection - Create"
if Handled then
exit(QltyInspectionCreateStatus::"Unable to Create");
- if TempFiltersQltyInspectionGenRule."Item Filter" <> '' then
- RelatedItem.SetView(TempFiltersQltyInspectionGenRule."Item Filter");
+ if TempFiltersQltyInspectCreationRule."Item Filter" <> '' then
+ RelatedItem.SetView(TempFiltersQltyInspectCreationRule."Item Filter");
QltyTraversal.FindRelatedItem(RelatedItem, TargetRecordRef, OptionalRec2Variant, OptionalRec3Variant, OptionalRec4Variant);
- if not QltyInspecGenRuleMgmt.FindMatchingGenerationRule(IsManualCreation and (not AvoidThrowingErrorWhenPossible), IsManualCreation, TargetRecordRef, RelatedItem, OptionalSpecificTemplate, TempQltyInspectionGenRule) then
+ if not QltyInspecGenRuleMgmt.FindMatchingGenerationRule(IsManualCreation and (not AvoidThrowingErrorWhenPossible), IsManualCreation, TargetRecordRef, RelatedItem, OptionalSpecificTemplate, TempQltyInspectCreationRule) then
if OptionalSpecificTemplate = '' then begin
if IsManualCreation and (not AvoidThrowingErrorWhenPossible) then
Error(CannotFindTemplateErr, Format(OriginalRecordId));
exit(QltyInspectionCreateStatus::"Unable to Create");
end else begin
- TempQltyInspectionGenRule."Template Code" := OptionalSpecificTemplate;
- TempQltyInspectionGenRule."Source Table No." := TargetRecordRef.Number();
+ TempQltyInspectCreationRule."Template Code" := OptionalSpecificTemplate;
+ TempQltyInspectCreationRule."Source Table No." := TargetRecordRef.Number();
end;
- if (TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader."Template Code" = '') and (TempQltyInspectionGenRule."Template Code" <> '') then
- TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader."Template Code" := TempQltyInspectionGenRule."Template Code";
+ if (TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader."Template Code" = '') and (TempQltyInspectCreationRule."Template Code" <> '') then
+ TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader."Template Code" := TempQltyInspectCreationRule."Template Code";
if TargetRecordRef.Number() <> 0 then begin
if RecordRefToBufferTriggeringRecord.RecordId() <> TargetRecordRef.RecordId() then
@@ -332,10 +332,10 @@ codeunit 20404 "Qlty. Inspection - Create"
end else
ApplyAllSourceFieldsToStub(TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader, RecordRefToBufferTriggeringRecord, OptionalRec2Variant, OptionalRec3Variant, OptionalRec4Variant);
- if GetExistingOrCreateNewInspectionFor(TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader, TargetRecordRef, RecordRefToBufferTriggeringRecord, TempQltyInspectionGenRule, QltyInspectionHeader, IsNewlyCreatedInspection) then begin
+ if GetExistingOrCreateNewInspectionFor(TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader, TargetRecordRef, RecordRefToBufferTriggeringRecord, TempQltyInspectCreationRule, QltyInspectionHeader, IsNewlyCreatedInspection) then begin
QltyInspectionHeader.SetIsCreating(true);
LastCreatedQltyInspectionHeader := QltyInspectionHeader;
- OnAfterCreateInspectionBeforeDialog(TargetRecordRef, RecordRefToBufferTriggeringRecord, IsManualCreation, OptionalSpecificTemplate, TempQltyInspectionGenRule, QltyInspectionHeader, Handled, OptionalRec2Variant, OptionalRec3Variant);
+ OnAfterCreateInspectionBeforeDialog(TargetRecordRef, RecordRefToBufferTriggeringRecord, IsManualCreation, OptionalSpecificTemplate, TempQltyInspectCreationRule, QltyInspectionHeader, Handled, OptionalRec2Variant, OptionalRec3Variant);
if Handled then
exit;
@@ -376,7 +376,7 @@ codeunit 20404 "Qlty. Inspection - Create"
Error(UnableToCreateInspectionForErr, Format(OriginalRecordId));
end;
- OnAfterCreateInspectionAfterDialog(TargetRecordRef, RecordRefToBufferTriggeringRecord, IsManualCreation, OptionalSpecificTemplate, TempQltyInspectionGenRule, QltyInspectionHeader, OptionalRec2Variant, OptionalRec3Variant);
+ OnAfterCreateInspectionAfterDialog(TargetRecordRef, RecordRefToBufferTriggeringRecord, IsManualCreation, OptionalSpecificTemplate, TempQltyInspectCreationRule, QltyInspectionHeader, OptionalRec2Variant, OptionalRec3Variant);
end;
///
@@ -428,7 +428,7 @@ codeunit 20404 "Qlty. Inspection - Create"
///
internal procedure FindExistingInspection(RaiseErrorIfNoRuleIsFound: Boolean; TargetRecordRef: RecordRef; Optional2RecordRef: RecordRef; Optional3RecordRef: RecordRef; Optional4RecordRef: RecordRef; var QltyInspectionHeader: Record "Qlty. Inspection Header") Result: Boolean;
var
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
RelatedItem: Record Item;
PotentialMatchQltyInspectionHeader: Record "Qlty. Inspection Header";
Handled: Boolean;
@@ -438,17 +438,17 @@ codeunit 20404 "Qlty. Inspection - Create"
exit;
QltyTraversal.FindRelatedItem(RelatedItem, TargetRecordRef, Optional2RecordRef, Optional3RecordRef, Optional4RecordRef);
- if not QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, TargetRecordRef, RelatedItem, NoSpecificTemplateTok, TempQltyInspectionGenRule) then begin
+ if not QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, TargetRecordRef, RelatedItem, NoSpecificTemplateTok, TempQltyInspectCreationRule) then begin
LogCreateInspectionProblem(TargetRecordRef, CannotFindTemplateErr, Format(TargetRecordRef.RecordId()));
if RaiseErrorIfNoRuleIsFound and (not AvoidThrowingErrorWhenPossible) then
Error(CannotFindTemplateErr, Format(TargetRecordRef.RecordId()));
end;
QltyInspectionHeader.Reset();
- TempQltyInspectionGenRule.Reset();
- if TempQltyInspectionGenRule.FindSet() then
+ TempQltyInspectCreationRule.Reset();
+ if TempQltyInspectCreationRule.FindSet() then
repeat
- if FindExistingInspection(TargetRecordRef, Optional2RecordRef, Optional3RecordRef, Optional4RecordRef, TempQltyInspectionGenRule, PotentialMatchQltyInspectionHeader, true) then begin
+ if FindExistingInspection(TargetRecordRef, Optional2RecordRef, Optional3RecordRef, Optional4RecordRef, TempQltyInspectCreationRule, PotentialMatchQltyInspectionHeader, true) then begin
Result := true;
repeat
QltyInspectionHeader.SetRange("No.", PotentialMatchQltyInspectionHeader."No.");
@@ -457,10 +457,10 @@ codeunit 20404 "Qlty. Inspection - Create"
QltyInspectionHeader.Mark(true);
until PotentialMatchQltyInspectionHeader.Next() = 0;
end;
- until TempQltyInspectionGenRule.Next() = 0
+ until TempQltyInspectCreationRule.Next() = 0
else begin
- Clear(TempQltyInspectionGenRule);
- if FindExistingInspection(TargetRecordRef, Optional2RecordRef, Optional3RecordRef, Optional4RecordRef, TempQltyInspectionGenRule, PotentialMatchQltyInspectionHeader, true) then begin
+ Clear(TempQltyInspectCreationRule);
+ if FindExistingInspection(TargetRecordRef, Optional2RecordRef, Optional3RecordRef, Optional4RecordRef, TempQltyInspectCreationRule, PotentialMatchQltyInspectionHeader, true) then begin
Result := true;
repeat
QltyInspectionHeader.SetRange("No.", PotentialMatchQltyInspectionHeader."No.");
@@ -481,10 +481,10 @@ codeunit 20404 "Qlty. Inspection - Create"
/// Will either find an existing open inspection, or create a new inspection.
///
/// The main target record that the inspection will be created against
- /// The generation rule that helped determine which template to use.
+ /// The generation rule that helped determine which template to use.
/// The created inspection
///
- local procedure GetExistingOrCreateNewInspectionFor(var TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader: Record "Qlty. Inspection Header" temporary; TargetRecordRef: RecordRef; OriginalTriggeringRecordRef: RecordRef; TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary; var QltyInspectionHeader: Record "Qlty. Inspection Header"; var InspectionIsNew: Boolean) HasInspection: Boolean
+ local procedure GetExistingOrCreateNewInspectionFor(var TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader: Record "Qlty. Inspection Header" temporary; TargetRecordRef: RecordRef; OriginalTriggeringRecordRef: RecordRef; TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary; var QltyInspectionHeader: Record "Qlty. Inspection Header"; var InspectionIsNew: Boolean) HasInspection: Boolean
var
PrecedingQltyInspectionHeader: Record "Qlty. Inspection Header";
NeedNewInspection: Boolean;
@@ -499,7 +499,7 @@ codeunit 20404 "Qlty. Inspection - Create"
NeedNewInspection := true;
HasExistingInspection := false;
end else begin
- HasExistingInspection := FindExistingInspectionWithStub(TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader, TempQltyInspectionGenRule, PrecedingQltyInspectionHeader, false);
+ HasExistingInspection := FindExistingInspectionWithStub(TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader, TempQltyInspectCreationRule, PrecedingQltyInspectionHeader, false);
case QltyManagementSetup."Inspection Creation Option" of
QltyManagementSetup."Inspection Creation Option"::"Always create new inspection":
@@ -536,7 +536,7 @@ codeunit 20404 "Qlty. Inspection - Create"
ShouldCreateReinspection := false;
end;
else
- OnCustomCreateInspectionBehavior(TargetRecordRef, OriginalTriggeringRecordRef, TempQltyInspectionGenRule, HasExistingInspection, PrecedingQltyInspectionHeader, NeedNewInspection, ShouldCreateReinspection);
+ OnCustomCreateInspectionBehavior(TargetRecordRef, OriginalTriggeringRecordRef, TempQltyInspectCreationRule, HasExistingInspection, PrecedingQltyInspectionHeader, NeedNewInspection, ShouldCreateReinspection);
end;
end;
if NeedNewInspection then begin
@@ -546,7 +546,7 @@ codeunit 20404 "Qlty. Inspection - Create"
InitReinspectionHeader(PrecedingQltyInspectionHeader, QltyInspectionHeader);
QltyInspectionHeader.TransferFields(TempSourceFieldsFilledStubInspectionBufferQltyInspectionHeader, false);
- QltyInspectionHeader.Validate("Template Code", TempQltyInspectionGenRule."Template Code");
+ QltyInspectionHeader.Validate("Template Code", TempQltyInspectCreationRule."Template Code");
QltyInspectionHeader."Source RecordId" := TargetRecordRef.RecordId();
QltyInspectionHeader."Source Record Table No." := TargetRecordRef.Number();
@@ -628,11 +628,11 @@ codeunit 20404 "Qlty. Inspection - Create"
/// Must be a recordid,recordref,or record
/// Must be a recordid,recordref,or record
/// Must be a recordid,recordref,or record
- /// Must be a recordid,recordref,or record
+ /// Must be a recordid,recordref,or record
///
///
///
- procedure FindExistingInspectionWithVariant(TargetRecordRef: RecordRef; OptionalVariant2: Variant; OptionalVariant3: Variant; OptionalVariant4: Variant; TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary; var PrecedingQltyInspectionHeader: Record "Qlty. Inspection Header"; FindAll: Boolean): Boolean
+ procedure FindExistingInspectionWithVariant(TargetRecordRef: RecordRef; OptionalVariant2: Variant; OptionalVariant3: Variant; OptionalVariant4: Variant; TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary; var PrecedingQltyInspectionHeader: Record "Qlty. Inspection Header"; FindAll: Boolean): Boolean
var
DataTypeManagement: Codeunit "Data Type Management";
Optional2RecordRef: RecordRef;
@@ -642,7 +642,7 @@ codeunit 20404 "Qlty. Inspection - Create"
if not DataTypeManagement.GetRecordRef(OptionalVariant2, Optional2RecordRef) then;
if not DataTypeManagement.GetRecordRef(OptionalVariant3, Optional3RecordRef) then;
if not DataTypeManagement.GetRecordRef(OptionalVariant4, Optional4RecordRef) then;
- exit(FindExistingInspection(TargetRecordRef, Optional2RecordRef, Optional3RecordRef, Optional4RecordRef, TempQltyInspectionGenRule, PrecedingQltyInspectionHeader, FindAll));
+ exit(FindExistingInspection(TargetRecordRef, Optional2RecordRef, Optional3RecordRef, Optional4RecordRef, TempQltyInspectCreationRule, PrecedingQltyInspectionHeader, FindAll));
end;
///
@@ -650,10 +650,10 @@ codeunit 20404 "Qlty. Inspection - Create"
/// If there are multiple inspections finds the re-inspection.
///
/// The main target record that the inspection will be created against
- /// The generation rule that helped determine which template to use.
+ /// The generation rule that helped determine which template to use.
///
///
- procedure FindExistingInspection(TargetRecordRef: RecordRef; Optional2RecordRef: RecordRef; Optional3RecordRef: RecordRef; Optional4RecordRef: RecordRef; TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary; var PrecedingQltyInspectionHeader: Record "Qlty. Inspection Header"; FindAll: Boolean): Boolean
+ procedure FindExistingInspection(TargetRecordRef: RecordRef; Optional2RecordRef: RecordRef; Optional3RecordRef: RecordRef; Optional4RecordRef: RecordRef; TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary; var PrecedingQltyInspectionHeader: Record "Qlty. Inspection Header"; FindAll: Boolean): Boolean
var
TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader: Record "Qlty. Inspection Header" temporary;
begin
@@ -663,16 +663,16 @@ codeunit 20404 "Qlty. Inspection - Create"
PrecedingQltyInspectionHeader.Reset();
ApplyAllSourceFieldsToStub(TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader, TargetRecordRef, Optional2RecordRef, Optional3RecordRef, Optional4RecordRef);
- exit(FindExistingInspectionWithStub(TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader, TempQltyInspectionGenRule, PrecedingQltyInspectionHeader, FindAll));
+ exit(FindExistingInspectionWithStub(TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader, TempQltyInspectCreationRule, PrecedingQltyInspectionHeader, FindAll));
end;
- local procedure FindExistingInspectionWithStub(var TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader: Record "Qlty. Inspection Header" temporary; var TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary; var PrecedingQltyInspectionHeader: Record "Qlty. Inspection Header"; FindAll: Boolean): Boolean
+ local procedure FindExistingInspectionWithStub(var TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader: Record "Qlty. Inspection Header" temporary; var TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary; var PrecedingQltyInspectionHeader: Record "Qlty. Inspection Header"; FindAll: Boolean): Boolean
begin
if not QltyManagementSetup.Get() then
exit(false);
- if (TempQltyInspectionGenRule."Template Code" <> '') and (TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader."Template Code" = '') then
- TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader."Template Code" := TempQltyInspectionGenRule."Template Code";
+ if (TempQltyInspectCreationRule."Template Code" <> '') and (TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader."Template Code" = '') then
+ TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader."Template Code" := TempQltyInspectCreationRule."Template Code";
PrecedingQltyInspectionHeader.TransferFields(TempInStubSearchForSimilarInspectionBufferQltyInspectionHeader, false);
case QltyManagementSetup."Inspection Search Criteria" of
@@ -819,7 +819,7 @@ codeunit 20404 "Qlty. Inspection - Create"
/// Whether this is a manual test creation or automated.
internal procedure CreateMultipleInspectionsForMarkedTrackingSpecification(var TempTrackingSpecification: Record "Tracking Specification" temporary; IsManualCreation: Boolean)
var
- TempNotUsedOptionalFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempNotUsedOptionalFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
TempRecCopyOfTrackingSpecificationRecordRef: RecordRef;
begin
Clear(TempRecCopyOfTrackingSpecificationRecordRef);
@@ -833,21 +833,21 @@ codeunit 20404 "Qlty. Inspection - Create"
TempRecCopyOfTrackingSpecificationRecordRef.Insert();
until TempTrackingSpecification.Next() = 0;
- CreateMultipleInspectionsForMultipleRecords(TempRecCopyOfTrackingSpecificationRecordRef, IsManualCreation, TempNotUsedOptionalFiltersQltyInspectionGenRule);
+ CreateMultipleInspectionsForMultipleRecords(TempRecCopyOfTrackingSpecificationRecordRef, IsManualCreation, TempNotUsedOptionalFiltersQltyInspectCreationRule);
end;
internal procedure CreateMultipleInspectionsForMultipleRecords(var SetOfRecordsRecordRef: RecordRef; IsManualCreation: Boolean)
var
- TempDummyFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempDummyFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
begin
- CreateMultipleInspectionsForMultipleRecords(SetOfRecordsRecordRef, IsManualCreation, TempDummyFiltersQltyInspectionGenRule);
+ CreateMultipleInspectionsForMultipleRecords(SetOfRecordsRecordRef, IsManualCreation, TempDummyFiltersQltyInspectCreationRule);
end;
- internal procedure CreateMultipleInspectionsForMultipleRecords(var SetOfRecordsRecordRef: RecordRef; IsManualCreation: Boolean; var TempFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary)
+ internal procedure CreateMultipleInspectionsForMultipleRecords(var SetOfRecordsRecordRef: RecordRef; IsManualCreation: Boolean; var TempFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary)
var
CreatedQltyInspectionIds: List of [Code[20]];
begin
- CreateMultipleInspectionsWithoutDisplaying(SetOfRecordsRecordRef, IsManualCreation, TempFiltersQltyInspectionGenRule, CreatedQltyInspectionIds);
+ CreateMultipleInspectionsWithoutDisplaying(SetOfRecordsRecordRef, IsManualCreation, TempFiltersQltyInspectCreationRule, CreatedQltyInspectionIds);
if IsManualCreation and GuiAllowed() then
DisplayInspectionsIfConfigured(IsManualCreation, CreatedQltyInspectionIds);
@@ -895,7 +895,7 @@ codeunit 20404 "Qlty. Inspection - Create"
///
///
///
- internal procedure CreateMultipleInspectionsWithoutDisplaying(var SetOfRecordsRecordRef: RecordRef; IsManualCreation: Boolean; var TempFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary; var CreatedQltyInspectionIds: List of [Code[20]])
+ internal procedure CreateMultipleInspectionsWithoutDisplaying(var SetOfRecordsRecordRef: RecordRef; IsManualCreation: Boolean; var TempFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary; var CreatedQltyInspectionIds: List of [Code[20]])
var
TempCopyOfSingleRecordRecordRef: RecordRef;
ParentRecordRef: RecordRef;
@@ -915,7 +915,7 @@ codeunit 20404 "Qlty. Inspection - Create"
TempCopyOfSingleRecordRecordRef.Insert(false);
CountOfInspectionsCreatedForLine := CreateInspectionForSelfOrDirectParent(
TempCopyOfSingleRecordRecordRef,
- TempFiltersQltyInspectionGenRule,
+ TempFiltersQltyInspectCreationRule,
ParentRecordRef,
CreatedQltyInspectionIds,
true,
@@ -935,7 +935,7 @@ codeunit 20404 "Qlty. Inspection - Create"
end;
end;
- local procedure CreateInspectionForSelfOrDirectParent(var TempSelfRecordRef: RecordRef; var TempFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary; var FoundParentRecordRef: RecordRef; var CreatedQltyInspectionIds: List of [Code[20]]; PreventInspectionFromDisplayingEvenIfConfigured: Boolean; IsManualCreation: Boolean) InspectionCreatedCount: Integer
+ local procedure CreateInspectionForSelfOrDirectParent(var TempSelfRecordRef: RecordRef; var TempFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary; var FoundParentRecordRef: RecordRef; var CreatedQltyInspectionIds: List of [Code[20]]; PreventInspectionFromDisplayingEvenIfConfigured: Boolean; IsManualCreation: Boolean) InspectionCreatedCount: Integer
var
LastCreatedQltyInspectionHeader2: Record "Qlty. Inspection Header";
Item: Record Item;
@@ -961,15 +961,15 @@ codeunit 20404 "Qlty. Inspection - Create"
Clear(VariantEmptyOrTrackingSpecification);
RelatedReservFilterReservationEntry.SetRange("Entry No.", -1);
- if TempFiltersQltyInspectionGenRule."Item Filter" <> '' then begin
+ if TempFiltersQltyInspectCreationRule."Item Filter" <> '' then begin
Item.FilterGroup(20);
- Item.SetView(TempFiltersQltyInspectionGenRule."Item Filter");
+ Item.SetView(TempFiltersQltyInspectCreationRule."Item Filter");
Item.FilterGroup(0);
end;
if QltyTraversal.FindRelatedItem(Item, ParentRecordRef, TempSelfRecordRef, VariantEmptyOrTrackingSpecification, Dummy4Variant) then begin
- if (Item."No." <> '') and (TempFiltersQltyInspectionGenRule."Item Attribute Filter" <> '') then
- if not QltyInspecGenRuleMgmt.DoesMatchItemAttributeFiltersOrNoFilter(TempFiltersQltyInspectionGenRule, Item) then
+ if (Item."No." <> '') and (TempFiltersQltyInspectCreationRule."Item Attribute Filter" <> '') then
+ if not QltyInspecGenRuleMgmt.DoesMatchItemAttributeFiltersOrNoFilter(TempFiltersQltyInspectCreationRule, Item) then
exit;
if QltyItemTracking.IsItemTrackingUsed(Item."No.") then begin
@@ -1010,7 +1010,7 @@ codeunit 20404 "Qlty. Inspection - Create"
VariantEmptyOrTrackingSpecification := TempTrackingSpecification;
end;
- if LocalQltyInspectionCreate.CreateInspectionWithMultiVariants(ParentRecordRef, TempSelfRecordRef, VariantEmptyOrTrackingSpecification, Dummy4Variant, IsManualCreation, TempFiltersQltyInspectionGenRule) then
+ if LocalQltyInspectionCreate.CreateInspectionWithMultiVariants(ParentRecordRef, TempSelfRecordRef, VariantEmptyOrTrackingSpecification, Dummy4Variant, IsManualCreation, TempFiltersQltyInspectCreationRule) then
if LocalQltyInspectionCreate.GetCreatedInspection(LastCreatedQltyInspectionHeader2) then begin
InspectionCreatedCount += 1;
if not CreatedQltyInspectionIds.Contains(LastCreatedQltyInspectionHeader2."No.") then
@@ -1018,13 +1018,13 @@ codeunit 20404 "Qlty. Inspection - Create"
end;
until RelatedReservFilterReservationEntry.Next() = 0;
end else begin
- if TempFiltersQltyInspectionGenRule."Item Filter" <> '' then begin
+ if TempFiltersQltyInspectCreationRule."Item Filter" <> '' then begin
Clear(Item);
if QltyTraversal.FindRelatedItem(Item, ParentRecordRef, TempSelfRecordRef, VariantEmptyOrTrackingSpecification, Dummy4Variant) then
exit;
end;
- if LocalQltyInspectionCreate.CreateInspectionWithMultiVariants(TempSelfRecordRef, ParentRecordRef, Dummy4Variant, Dummy4Variant, IsManualCreation, TempFiltersQltyInspectionGenRule) then
+ if LocalQltyInspectionCreate.CreateInspectionWithMultiVariants(TempSelfRecordRef, ParentRecordRef, Dummy4Variant, Dummy4Variant, IsManualCreation, TempFiltersQltyInspectCreationRule) then
if LocalQltyInspectionCreate.GetCreatedInspection(LastCreatedQltyInspectionHeader2) then begin
InspectionCreatedCount += 1;
if not CreatedQltyInspectionIds.Contains(LastCreatedQltyInspectionHeader2."No.") then
@@ -1120,13 +1120,13 @@ codeunit 20404 "Qlty. Inspection - Create"
/// Typically the same as the target record ref. Used in complex customizations.
/// True when the inspection is being manually created and not automatically triggered
/// When supplied refers to a specific desired template
- /// The generation rule that helped determine which template to use.
+ /// The generation rule that helped determine which template to use.
/// The quality inspection
/// Set to true to replace the default behavior, set to false to extend it and continue
/// For complex automation can be additional source records
/// For complex automation can be additional source records
[IntegrationEvent(false, false)]
- local procedure OnAfterCreateInspectionBeforeDialog(var TargetRecordRef: RecordRef; var TriggeringRecordRef: RecordRef; var IsManualCreation: Boolean; var OptionalSpecificTemplate: Code[20]; var TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary; var QltyInspectionHeader: Record "Qlty. Inspection Header"; var IsHandled: Boolean; var OptionalRec2Variant: Variant; var OptionalRec3Variant: Variant)
+ local procedure OnAfterCreateInspectionBeforeDialog(var TargetRecordRef: RecordRef; var TriggeringRecordRef: RecordRef; var IsManualCreation: Boolean; var OptionalSpecificTemplate: Code[20]; var TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary; var QltyInspectionHeader: Record "Qlty. Inspection Header"; var IsHandled: Boolean; var OptionalRec2Variant: Variant; var OptionalRec3Variant: Variant)
begin
end;
@@ -1137,12 +1137,12 @@ codeunit 20404 "Qlty. Inspection - Create"
/// Typically the same as the target record ref. Used in complex customizations.
/// True when the inspection is being manually created and not automatically triggered
/// When supplied refers to a specific desired template
- /// The generation rule that helped determine which template to use.
+ /// The generation rule that helped determine which template to use.
/// The quality inspection
/// For complex automation can be additional source records
/// For complex automation can be additional source records
[IntegrationEvent(false, false)]
- local procedure OnAfterCreateInspectionAfterDialog(var TargetRecordRef: RecordRef; var TriggeringRecordRef: RecordRef; var IsManualCreation: Boolean; var OptionalSpecificTemplate: Code[20]; var TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary; var QltyInspectionHeader: Record "Qlty. Inspection Header"; var OptionalRec2Variant: Variant; var OptionalRec3Variant: Variant)
+ local procedure OnAfterCreateInspectionAfterDialog(var TargetRecordRef: RecordRef; var TriggeringRecordRef: RecordRef; var IsManualCreation: Boolean; var OptionalSpecificTemplate: Code[20]; var TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary; var QltyInspectionHeader: Record "Qlty. Inspection Header"; var OptionalRec2Variant: Variant; var OptionalRec3Variant: Variant)
begin
end;
@@ -1153,13 +1153,13 @@ codeunit 20404 "Qlty. Inspection - Create"
///
/// The record the inspection is being created against
/// The record that triggered the inspection
- /// The generation rule
+ /// The generation rule
/// Whether it has an existing inspection
/// Optionally an existing inspection that matches
/// Choose whether it should need a new inspection
/// Choose whether it should create a Reinspection
[IntegrationEvent(false, false)]
- local procedure OnCustomCreateInspectionBehavior(var TargetRecordRef: RecordRef; var OriginalTriggeringRecordRef: RecordRef; var TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary; var HasExistingInspection: Boolean; var PrecedingQltyInspectionHeader: Record "Qlty. Inspection Header"; var NeedNewInspection: Boolean; var ShouldCreateReinspection: Boolean)
+ local procedure OnCustomCreateInspectionBehavior(var TargetRecordRef: RecordRef; var OriginalTriggeringRecordRef: RecordRef; var TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary; var HasExistingInspection: Boolean; var PrecedingQltyInspectionHeader: Record "Qlty. Inspection Header"; var NeedNewInspection: Boolean; var ShouldCreateReinspection: Boolean)
begin
end;
diff --git a/src/Apps/W1/Quality Management/app/src/Integration/Assembly/QltyAsmGenRuleWizard.Page.al b/src/Apps/W1/Quality Management/app/src/Integration/Assembly/QltyAsmGenRuleWizard.Page.al
index 66ae1c7a2a..98e7336cad 100644
--- a/src/Apps/W1/Quality Management/app/src/Integration/Assembly/QltyAsmGenRuleWizard.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Integration/Assembly/QltyAsmGenRuleWizard.Page.al
@@ -308,7 +308,7 @@ page 20464 "Qlty. Asm. Gen. Rule Wizard"
var
QltyManagementSetup: Record "Qlty. Management Setup";
TempItem: Record "Item" temporary;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
TempPostedAssemblyHeader: Record "Posted Assembly Header" temporary;
QltyFilterHelpers: Codeunit "Qlty. Filter Helpers";
CurrentStepCounter: Integer;
@@ -439,9 +439,9 @@ page 20464 "Qlty. Asm. Gen. Rule Wizard"
local procedure AssistEditFullItemFilter()
begin
- TempQltyInspectionGenRule."Item Filter" := ItemRuleFilter;
- if TempQltyInspectionGenRule.AssistEditConditionItemFilter() then begin
- ItemRuleFilter := TempQltyInspectionGenRule."Item Filter";
+ TempQltyInspectCreationRule."Item Filter" := ItemRuleFilter;
+ if TempQltyInspectCreationRule.AssistEditConditionItemFilter() then begin
+ ItemRuleFilter := TempQltyInspectCreationRule."Item Filter";
TempItem.SetView(ItemRuleFilter);
UpdateTableVariablesFromRecordFilters();
@@ -451,11 +451,11 @@ page 20464 "Qlty. Asm. Gen. Rule Wizard"
local procedure AssistEditFullPostedAssemblyHeaderFilter()
begin
- TempQltyInspectionGenRule."Source Table No." := Database::"Posted Assembly Header";
- TempQltyInspectionGenRule."Condition Filter" := PostedAssemblyOrderRuleFilter;
+ TempQltyInspectCreationRule."Source Table No." := Database::"Posted Assembly Header";
+ TempQltyInspectCreationRule."Condition Filter" := PostedAssemblyOrderRuleFilter;
- if TempQltyInspectionGenRule.AssistEditConditionTableFilter() then begin
- PostedAssemblyOrderRuleFilter := TempQltyInspectionGenRule."Condition Filter";
+ if TempQltyInspectCreationRule.AssistEditConditionTableFilter() then begin
+ PostedAssemblyOrderRuleFilter := TempQltyInspectCreationRule."Condition Filter";
TempPostedAssemblyHeader.SetView(PostedAssemblyOrderRuleFilter);
UpdateTableVariablesFromRecordFilters();
@@ -484,32 +484,32 @@ page 20464 "Qlty. Asm. Gen. Rule Wizard"
local procedure FinishAction();
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- ExistingQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ ExistingQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
- if not QltyInspectionGenRule.Get(TempQltyInspectionGenRule.RecordId()) then begin
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule.SetEntryNo();
- QltyInspectionGenRule.UpdateSortOrder();
- QltyInspectionGenRule.Insert();
+ if not QltyInspectCreationRule.Get(TempQltyInspectCreationRule.RecordId()) then begin
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule.SetEntryNo();
+ QltyInspectCreationRule.UpdateSortOrder();
+ QltyInspectCreationRule.Insert();
end;
- QltyInspectionGenRule.Validate("Template Code", TemplateCode);
+ QltyInspectCreationRule.Validate("Template Code", TemplateCode);
QltyManagementSetup.Get();
- QltyInspectionGenRule."Source Table No." := Database::"Posted Assembly Header";
- QltyInspectionGenRule.Intent := QltyInspectionGenRule.Intent::Assembly;
- QltyInspectionGenRule."Condition Filter" := PostedAssemblyOrderRuleFilter;
- QltyInspectionGenRule.SetIntentAndDefaultTriggerValuesFromSetup();
- QltyInspectionGenRule."Assembly Trigger" := QltyAssemblyTrigger;
+ QltyInspectCreationRule."Source Table No." := Database::"Posted Assembly Header";
+ QltyInspectCreationRule.Intent := QltyInspectCreationRule.Intent::Assembly;
+ QltyInspectCreationRule."Condition Filter" := PostedAssemblyOrderRuleFilter;
+ QltyInspectCreationRule.SetIntentAndDefaultTriggerValuesFromSetup();
+ QltyInspectCreationRule."Assembly Trigger" := QltyAssemblyTrigger;
QltyManagementSetup."Assembly Trigger" := QltyAssemblyTrigger;
if QltyManagementSetup.Modify(false) then;
- QltyInspectionGenRule."Item Filter" := ItemRuleFilter;
- QltyInspectionGenRule.Modify();
-
- ExistingQltyInspectionGenRule.SetRange("Template Code", QltyInspectionGenRule."Template Code");
- ExistingQltyInspectionGenRule.SetRange("Source Table No.", QltyInspectionGenRule."Source Table No.");
- ExistingQltyInspectionGenRule.SetRange("Condition Filter", QltyInspectionGenRule."Condition Filter");
- ExistingQltyInspectionGenRule.SetRange("Item Filter", QltyInspectionGenRule."Item Filter");
- if ExistingQltyInspectionGenRule.Count() > 1 then
+ QltyInspectCreationRule."Item Filter" := ItemRuleFilter;
+ QltyInspectCreationRule.Modify();
+
+ ExistingQltyInspectCreationRule.SetRange("Template Code", QltyInspectCreationRule."Template Code");
+ ExistingQltyInspectCreationRule.SetRange("Source Table No.", QltyInspectCreationRule."Source Table No.");
+ ExistingQltyInspectCreationRule.SetRange("Condition Filter", QltyInspectCreationRule."Condition Filter");
+ ExistingQltyInspectCreationRule.SetRange("Item Filter", QltyInspectCreationRule."Item Filter");
+ if ExistingQltyInspectCreationRule.Count() > 1 then
if not Confirm(RuleAlreadyThereQst) then
Error('');
@@ -521,21 +521,21 @@ page 20464 "Qlty. Asm. Gen. Rule Wizard"
/// Use this to edit an existing rule.
/// You can also use it to start a new rule with a default template by supplying a template filter.
///
- ///
+ ///
///
- procedure RunModalWithGenerationRule(var QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"): Action
+ procedure RunModalWithGenerationRule(var QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule"): Action
begin
- TempQltyInspectionGenRule := QltyInspectionGenRule;
+ TempQltyInspectCreationRule := QltyInspectCreationRule;
Clear(TempPostedAssemblyHeader);
Clear(TempItem);
- if QltyInspectionGenRule."Source Table No." = Database::"Posted Assembly Header" then
- TempPostedAssemblyHeader.SetView(TempQltyInspectionGenRule."Condition Filter");
+ if QltyInspectCreationRule."Source Table No." = Database::"Posted Assembly Header" then
+ TempPostedAssemblyHeader.SetView(TempQltyInspectCreationRule."Condition Filter");
- TempItem.SetView(TempQltyInspectionGenRule."Item Filter");
+ TempItem.SetView(TempQltyInspectCreationRule."Item Filter");
UpdateTableVariablesFromRecordFilters();
- TemplateCode := QltyInspectionGenRule.GetTemplateCodeFromRecordOrFilter(false);
+ TemplateCode := QltyInspectCreationRule.GetTemplateCodeFromRecordOrFilter(false);
UpdateFullTextRuleStringsFromFilters();
exit(CurrPage.RunModal());
@@ -546,20 +546,20 @@ page 20464 "Qlty. Asm. Gen. Rule Wizard"
begin
TempPostedAssemblyHeader.SetFilter("Location Code", LocationCodeFilter);
TempPostedAssemblyHeader.SetFilter(Description, DescriptionPattern);
- PostedAssemblyOrderRuleFilter := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempPostedAssemblyHeader.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ PostedAssemblyOrderRuleFilter := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempPostedAssemblyHeader.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
TempItem.SetFilter("No.", ItemNoFilter);
TempItem.SetFilter("Item Category Code", CategoryCodeFilter);
TempItem.SetFilter("Inventory Posting Group", InventoryPostingGroupCode);
- ItemRuleFilter := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Item Filter"));
+ ItemRuleFilter := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Item Filter"));
CleanUpWhereClause();
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempPostedAssemblyHeader.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Condition Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempPostedAssemblyHeader.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Condition Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Item Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Item Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Item Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Item Filter"));
end;
local procedure UpdateTableVariablesFromRecordFilters()
diff --git a/src/Apps/W1/Quality Management/app/src/Integration/Assembly/QltyAssemblyIntegration.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Integration/Assembly/QltyAssemblyIntegration.Codeunit.al
index c2a0ca54d1..e3d30b31d4 100644
--- a/src/Apps/W1/Quality Management/app/src/Integration/Assembly/QltyAssemblyIntegration.Codeunit.al
+++ b/src/Apps/W1/Quality Management/app/src/Integration/Assembly/QltyAssemblyIntegration.Codeunit.al
@@ -23,9 +23,9 @@ codeunit 20412 "Qlty. Assembly Integration"
local procedure HandleOnAfterPost(var AssemblyHeader: Record "Assembly Header"; var AssemblyLine: Record "Assembly Line"; PostedAssemblyHeader: Record "Posted Assembly Header"; var ItemJnlPostLine: Codeunit "Item Jnl.-Post Line"; var ResJnlPostLine: Codeunit "Res. Jnl.-Post Line"; var WhseJnlRegisterLine: Codeunit "Whse. Jnl.-Register Line")
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
TempSpecTrackingSpecification: Record "Tracking Specification" temporary;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionCreate: Codeunit "Qlty. Inspection - Create";
MgtItemTrackingDocManagement: Codeunit "Item Tracking Doc. Management";
UnusedVariant1: Variant;
@@ -33,9 +33,9 @@ codeunit 20412 "Qlty. Assembly Integration"
HasInspection: Boolean;
Handled: Boolean;
begin
- QltyInspectionGenRule.SetRange("Assembly Trigger", QltyInspectionGenRule."Assembly Trigger"::OnAssemblyOutputPost);
- QltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", QltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if QltyInspectionGenRule.IsEmpty() then
+ QltyInspectCreationRule.SetRange("Assembly Trigger", QltyInspectCreationRule."Assembly Trigger"::OnAssemblyOutputPost);
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", QltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if QltyInspectCreationRule.IsEmpty() then
exit;
MgtItemTrackingDocManagement.FindShptRcptEntries(TempSpecTrackingSpecification, Database::"Posted Assembly Header", 0, PostedAssemblyHeader."No.", '', 0, 0, '');
@@ -45,7 +45,7 @@ codeunit 20412 "Qlty. Assembly Integration"
if not TempSpecTrackingSpecification.IsEmpty() then
repeat
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(PostedAssemblyHeader, TempSpecTrackingSpecification, AssemblyHeader, UnusedVariant1, false, QltyInspectionGenRule);
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(PostedAssemblyHeader, TempSpecTrackingSpecification, AssemblyHeader, UnusedVariant1, false, QltyInspectCreationRule);
if HasInspection then begin
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
QltyInspectionHeader."Source Quantity (Base)" := TempSpecTrackingSpecification."Quantity (Base)";
@@ -54,11 +54,11 @@ codeunit 20412 "Qlty. Assembly Integration"
OnAfterAttemptCreateInspectionFromPostedAssembly(AssemblyHeader, PostedAssemblyHeader, TempSpecTrackingSpecification, QltyInspectionHeader);
until TempSpecTrackingSpecification.Next(-1) = 0
else begin
- TempQltyInspectionGenRule.CopyFilters(QltyInspectionGenRule);
+ TempQltyInspectCreationRule.CopyFilters(QltyInspectCreationRule);
OnBeforeAttemptCreateInspectionFromPostedAssembly(AssemblyHeader, PostedAssemblyHeader, TempSpecTrackingSpecification, QltyInspectionHeader, Handled);
if Handled then
exit;
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(PostedAssemblyHeader, AssemblyHeader, UnusedVariant1, UnusedVariant2, false, TempQltyInspectionGenRule);
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(PostedAssemblyHeader, AssemblyHeader, UnusedVariant1, UnusedVariant2, false, TempQltyInspectCreationRule);
if HasInspection then
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
OnAfterAttemptCreateInspectionFromPostedAssembly(AssemblyHeader, PostedAssemblyHeader, TempSpecTrackingSpecification, QltyInspectionHeader);
diff --git a/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/QltyManufacturIntegration.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/QltyManufacturIntegration.Codeunit.al
index b442dc2c83..b9ee605fbe 100644
--- a/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/QltyManufacturIntegration.Codeunit.al
+++ b/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/QltyManufacturIntegration.Codeunit.al
@@ -41,7 +41,7 @@ codeunit 20407 "Qlty. Manufactur. Integration"
local procedure HandleOnAfterPostOutput(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record "Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line")
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
VerifiedItemLedgerEntry: Record "Item Ledger Entry";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
Handled: Boolean;
@@ -84,10 +84,10 @@ codeunit 20407 "Qlty. Manufactur. Integration"
if ProdOrderRoutingLine."Next Operation No." <> '' then
Clear(VerifiedItemLedgerEntry);
- QltyInspectionGenRule.SetRange("Production Order Trigger", QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost);
- QltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", QltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if not QltyInspectionGenRule.IsEmpty() then
- AttemptCreateInspectionPosting(ProdOrderRoutingLine, VerifiedItemLedgerEntry, ProdOrderLine, ItemJournalLine, QltyInspectionGenRule);
+ QltyInspectCreationRule.SetRange("Production Order Trigger", QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost);
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", QltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if not QltyInspectCreationRule.IsEmpty() then
+ AttemptCreateInspectionPosting(ProdOrderRoutingLine, VerifiedItemLedgerEntry, ProdOrderLine, ItemJournalLine, QltyInspectCreationRule);
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Prod. Order Status Management", 'OnBeforeChangeStatusOnProdOrder', '', true, true)]
@@ -106,7 +106,7 @@ codeunit 20407 "Qlty. Manufactur. Integration"
var
QltyManagementSetup: Record "Qlty. Management Setup";
OldProductionOrder: Record "Production Order";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Handled: Boolean;
begin
if not QltyManagementSetup.GetSetupRecord() then
@@ -124,10 +124,10 @@ codeunit 20407 "Qlty. Manufactur. Integration"
if ToProdOrder.Status <> ToProdOrder.Status::Released then
exit;
- QltyInspectionGenRule.SetRange("Production Order Trigger", QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease);
- QltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", QltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if not QltyInspectionGenRule.IsEmpty() then
- AttemptCreateInspectionReleased(ToProdOrder, QltyInspectionGenRule);
+ QltyInspectCreationRule.SetRange("Production Order Trigger", QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease);
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", QltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if not QltyInspectCreationRule.IsEmpty() then
+ AttemptCreateInspectionReleased(ToProdOrder, QltyInspectCreationRule);
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Prod. Order Status Management", 'OnAfterToProdOrderLineModify', '', true, true)]
@@ -162,7 +162,7 @@ codeunit 20407 "Qlty. Manufactur. Integration"
local procedure HandleOnAfterRefreshProdOrder(var ProductionOrder: Record "Production Order"; ErrorOccured: Boolean)
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if ErrorOccured then
exit;
@@ -173,10 +173,10 @@ codeunit 20407 "Qlty. Manufactur. Integration"
if not QltyManagementSetup.GetSetupRecord() then
exit;
- QltyInspectionGenRule.SetRange("Production Order Trigger", QltyInspectionGenRule."Production Order Trigger"::OnReleasedProductionOrderRefresh);
- QltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", QltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if not QltyInspectionGenRule.IsEmpty() then
- AttemptCreateInspectionReleased(ProductionOrder, QltyInspectionGenRule);
+ QltyInspectCreationRule.SetRange("Production Order Trigger", QltyInspectCreationRule."Production Order Trigger"::OnReleasedProductionOrderRefresh);
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", QltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if not QltyInspectCreationRule.IsEmpty() then
+ AttemptCreateInspectionReleased(ProductionOrder, QltyInspectCreationRule);
end;
///
@@ -396,8 +396,8 @@ codeunit 20407 "Qlty. Manufactur. Integration"
/// What we can do is automatically apply them.
///
/// The production order
- /// Optional generation rule filters.
- local procedure AttemptCreateInspectionReleased(var ProductionOrder: Record "Production Order"; var OptionalFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+ /// Optional generation rule filters.
+ local procedure AttemptCreateInspectionReleased(var ProductionOrder: Record "Production Order"; var OptionalFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule")
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
ProdOrderLine: Record "Prod. Order Line";
@@ -440,7 +440,7 @@ codeunit 20407 "Qlty. Manufactur. Integration"
TempTrackingSpecification.CopyTrackingFromReservEntry(ReservationEntry);
TempTrackingSpecification.Insert();
- MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProdOrderRoutingLine, TempTrackingSpecification, ProdOrderLine, ProductionOrder, false, OptionalFiltersQltyInspectionGenRule);
+ MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProdOrderRoutingLine, TempTrackingSpecification, ProdOrderLine, ProductionOrder, false, OptionalFiltersQltyInspectCreationRule);
if MadeInspection then begin
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
@@ -449,7 +449,7 @@ codeunit 20407 "Qlty. Manufactur. Integration"
end;
until ReservationEntry.Next() = 0;
end else begin
- MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProdOrderRoutingLine, ProdOrderLine, ProductionOrder, DummyVariant, false, OptionalFiltersQltyInspectionGenRule);
+ MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProdOrderRoutingLine, ProdOrderLine, ProductionOrder, DummyVariant, false, OptionalFiltersQltyInspectCreationRule);
if MadeInspection then begin
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
@@ -469,7 +469,7 @@ codeunit 20407 "Qlty. Manufactur. Integration"
TempTrackingSpecification.CopyTrackingFromReservEntry(ReservationEntry);
TempTrackingSpecification.Insert();
- MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TempTrackingSpecification, ProdOrderLine, ProductionOrder, DummyVariant, false, OptionalFiltersQltyInspectionGenRule);
+ MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TempTrackingSpecification, ProdOrderLine, ProductionOrder, DummyVariant, false, OptionalFiltersQltyInspectCreationRule);
if MadeInspection then begin
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
@@ -479,7 +479,7 @@ codeunit 20407 "Qlty. Manufactur. Integration"
until ReservationEntry.Next() = 0;
end else begin
- MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProdOrderLine, ProductionOrder, DummyVariant, DummyVariant, false, OptionalFiltersQltyInspectionGenRule);
+ MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProdOrderLine, ProductionOrder, DummyVariant, DummyVariant, false, OptionalFiltersQltyInspectCreationRule);
if MadeInspection then begin
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
ListOfInspectionIds.Add(QltyInspectionHeader.RecordId());
@@ -489,7 +489,7 @@ codeunit 20407 "Qlty. Manufactur. Integration"
until ProdOrderLine.Next() = 0;
end;
if (not CreatedAtLeastOneInspectionForOrderLine) and (not CreatedAtLeastOneInspectionForRoutingLine) then begin
- MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProductionOrder, DummyVariant, DummyVariant, DummyVariant, false, OptionalFiltersQltyInspectionGenRule);
+ MadeInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProductionOrder, DummyVariant, DummyVariant, DummyVariant, false, OptionalFiltersQltyInspectCreationRule);
if MadeInspection then begin
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
ListOfInspectionIds.Add(QltyInspectionHeader.RecordId());
@@ -508,7 +508,7 @@ codeunit 20407 "Qlty. Manufactur. Integration"
/// The item ledger entry related to this sequence of events
///
///
- local procedure AttemptCreateInspectionPosting(var ProdOrderRoutingLine: Record "Prod. Order Routing Line"; var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record "Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; var OptionalFiltersQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+ local procedure AttemptCreateInspectionPosting(var ProdOrderRoutingLine: Record "Prod. Order Routing Line"; var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record "Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; var OptionalFiltersQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule")
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionCreate: Codeunit "Qlty. Inspection - Create";
@@ -521,13 +521,13 @@ codeunit 20407 "Qlty. Manufactur. Integration"
exit;
if (ItemLedgerEntry."Entry Type" <> ItemLedgerEntry."Entry Type"::Output) or (ItemLedgerEntry."Item No." = '') then
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProdOrderRoutingLine, ItemJournalLine, ProdOrderLine, DummyVariant, false, OptionalFiltersQltyInspectionGenRule)
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ProdOrderRoutingLine, ItemJournalLine, ProdOrderLine, DummyVariant, false, OptionalFiltersQltyInspectCreationRule)
else
if ProdOrderRoutingLine."Operation No." <> '' then
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ItemLedgerEntry, ProdOrderRoutingLine, ItemJournalLine, ProdOrderLine, false, OptionalFiltersQltyInspectionGenRule)
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ItemLedgerEntry, ProdOrderRoutingLine, ItemJournalLine, ProdOrderLine, false, OptionalFiltersQltyInspectCreationRule)
else
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ItemLedgerEntry, ItemJournalLine, ProdOrderLine, DummyVariant, false, OptionalFiltersQltyInspectionGenRule);
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(ItemLedgerEntry, ItemJournalLine, ProdOrderLine, DummyVariant, false, OptionalFiltersQltyInspectCreationRule);
if HasInspection then
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
diff --git a/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/QltyProdGenRuleWizard.Page.al b/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/QltyProdGenRuleWizard.Page.al
index 6cf41ddf41..5af1c110ed 100644
--- a/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/QltyProdGenRuleWizard.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Integration/Manufacturing/QltyProdGenRuleWizard.Page.al
@@ -405,7 +405,7 @@ page 20462 "Qlty. Prod. Gen. Rule Wizard"
QltyManagementSetup: Record "Qlty. Management Setup";
TempProdOrderRoutingLine: Record "Prod. Order Routing Line" temporary;
TempItem: Record "Item" temporary;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyFilterHelpers: Codeunit "Qlty. Filter Helpers";
CurrentStepCounter: Integer;
LocationCodeFilter: Code[20];
@@ -550,11 +550,11 @@ page 20462 "Qlty. Prod. Gen. Rule Wizard"
local procedure AssistEditFullProdOrderRoutingLineFilter()
begin
- TempQltyInspectionGenRule."Source Table No." := Database::"Prod. Order Routing Line";
- TempQltyInspectionGenRule."Condition Filter" := ProdOrderRoutingLineRuleFilter;
+ TempQltyInspectCreationRule."Source Table No." := Database::"Prod. Order Routing Line";
+ TempQltyInspectCreationRule."Condition Filter" := ProdOrderRoutingLineRuleFilter;
- if TempQltyInspectionGenRule.AssistEditConditionTableFilter() then begin
- ProdOrderRoutingLineRuleFilter := TempQltyInspectionGenRule."Condition Filter";
+ if TempQltyInspectCreationRule.AssistEditConditionTableFilter() then begin
+ ProdOrderRoutingLineRuleFilter := TempQltyInspectCreationRule."Condition Filter";
TempProdOrderRoutingLine.SetView(ProdOrderRoutingLineRuleFilter);
UpdateTableVariablesFromRecordFilters();
@@ -564,9 +564,9 @@ page 20462 "Qlty. Prod. Gen. Rule Wizard"
local procedure AssistEditFullItemFilter()
begin
- TempQltyInspectionGenRule."Item Filter" := ItemRuleFilter;
- if TempQltyInspectionGenRule.AssistEditConditionItemFilter() then begin
- ItemRuleFilter := TempQltyInspectionGenRule."Item Filter";
+ TempQltyInspectCreationRule."Item Filter" := ItemRuleFilter;
+ if TempQltyInspectCreationRule.AssistEditConditionItemFilter() then begin
+ ItemRuleFilter := TempQltyInspectCreationRule."Item Filter";
TempItem.SetView(ItemRuleFilter);
UpdateTableVariablesFromRecordFilters();
@@ -595,33 +595,33 @@ page 20462 "Qlty. Prod. Gen. Rule Wizard"
local procedure FinishAction();
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- ExistingQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ ExistingQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
- if not QltyInspectionGenRule.Get(TempQltyInspectionGenRule.RecordId()) then begin
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule.SetEntryNo();
- QltyInspectionGenRule.UpdateSortOrder();
- QltyInspectionGenRule.Insert();
+ if not QltyInspectCreationRule.Get(TempQltyInspectCreationRule.RecordId()) then begin
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule.SetEntryNo();
+ QltyInspectCreationRule.UpdateSortOrder();
+ QltyInspectCreationRule.Insert();
end;
- QltyInspectionGenRule.Validate("Template Code", TemplateCode);
+ QltyInspectCreationRule.Validate("Template Code", TemplateCode);
QltyManagementSetup.Get();
- QltyInspectionGenRule."Source Table No." := Database::"Prod. Order Routing Line";
- QltyInspectionGenRule.Intent := QltyInspectionGenRule.Intent::Production;
- QltyInspectionGenRule."Condition Filter" := ProdOrderRoutingLineRuleFilter;
- QltyInspectionGenRule.SetIntentAndDefaultTriggerValuesFromSetup();
- QltyInspectionGenRule."Production Order Trigger" := QltyProductionTrigger;
+ QltyInspectCreationRule."Source Table No." := Database::"Prod. Order Routing Line";
+ QltyInspectCreationRule.Intent := QltyInspectCreationRule.Intent::Production;
+ QltyInspectCreationRule."Condition Filter" := ProdOrderRoutingLineRuleFilter;
+ QltyInspectCreationRule.SetIntentAndDefaultTriggerValuesFromSetup();
+ QltyInspectCreationRule."Production Order Trigger" := QltyProductionTrigger;
QltyManagementSetup."Production Order Trigger" := QltyProductionTrigger;
QltyManagementSetup.Modify(false);
- QltyInspectionGenRule."Item Filter" := ItemRuleFilter;
- QltyInspectionGenRule.Modify();
-
- ExistingQltyInspectionGenRule.SetRange("Template Code", QltyInspectionGenRule."Template Code");
- ExistingQltyInspectionGenRule.SetRange("Source Table No.", QltyInspectionGenRule."Source Table No.");
- ExistingQltyInspectionGenRule.SetRange("Condition Filter", QltyInspectionGenRule."Condition Filter");
- ExistingQltyInspectionGenRule.SetRange("Item Filter", QltyInspectionGenRule."Item Filter");
- if ExistingQltyInspectionGenRule.Count() > 1 then
+ QltyInspectCreationRule."Item Filter" := ItemRuleFilter;
+ QltyInspectCreationRule.Modify();
+
+ ExistingQltyInspectCreationRule.SetRange("Template Code", QltyInspectCreationRule."Template Code");
+ ExistingQltyInspectCreationRule.SetRange("Source Table No.", QltyInspectCreationRule."Source Table No.");
+ ExistingQltyInspectCreationRule.SetRange("Condition Filter", QltyInspectCreationRule."Condition Filter");
+ ExistingQltyInspectCreationRule.SetRange("Item Filter", QltyInspectCreationRule."Item Filter");
+ if ExistingQltyInspectCreationRule.Count() > 1 then
if not Confirm(RuleAlreadyThereQst) then
Error('');
@@ -633,21 +633,21 @@ page 20462 "Qlty. Prod. Gen. Rule Wizard"
/// Use this to edit an existing rule.
/// You can also use it to start a new rule with a default template by supplying a template filter.
///
- ///
+ ///
///
- internal procedure RunModalWithGenerationRule(var QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"): Action
+ internal procedure RunModalWithGenerationRule(var QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule"): Action
begin
- TempQltyInspectionGenRule := QltyInspectionGenRule;
+ TempQltyInspectCreationRule := QltyInspectCreationRule;
Clear(TempProdOrderRoutingLine);
Clear(TempItem);
- if QltyInspectionGenRule."Source Table No." = Database::"Prod. Order Routing Line" then
- TempProdOrderRoutingLine.SetView(TempQltyInspectionGenRule."Condition Filter");
+ if QltyInspectCreationRule."Source Table No." = Database::"Prod. Order Routing Line" then
+ TempProdOrderRoutingLine.SetView(TempQltyInspectCreationRule."Condition Filter");
- TempItem.SetView(TempQltyInspectionGenRule."Item Filter");
+ TempItem.SetView(TempQltyInspectCreationRule."Item Filter");
UpdateTableVariablesFromRecordFilters();
- TemplateCode := QltyInspectionGenRule.GetTemplateCodeFromRecordOrFilter(false);
+ TemplateCode := QltyInspectCreationRule.GetTemplateCodeFromRecordOrFilter(false);
UpdateFullTextRuleStringsFromFilters();
exit(CurrPage.RunModal());
@@ -664,20 +664,20 @@ page 20462 "Qlty. Prod. Gen. Rule Wizard"
TempProdOrderRoutingLine.SetFilter("To-Production Bin Code", ToBinCodeFilter);
TempProdOrderRoutingLine.SetFilter("Operation No.", OperationNo);
TempProdOrderRoutingLine.SetFilter("Description", DescriptionPattern);
- ProdOrderRoutingLineRuleFilter := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempProdOrderRoutingLine.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ ProdOrderRoutingLineRuleFilter := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempProdOrderRoutingLine.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
TempItem.SetFilter("No.", ItemNoFilter);
TempItem.SetFilter("Item Category Code", CategoryCodeFilter);
TempItem.SetFilter("Inventory Posting Group", InventoryPostingGroupCode);
- ItemRuleFilter := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Item Filter"));
+ ItemRuleFilter := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Item Filter"));
CleanUpWhereClause();
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempProdOrderRoutingLine.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Condition Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempProdOrderRoutingLine.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Condition Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Item Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Item Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Item Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Item Filter"));
end;
local procedure UpdateTableVariablesFromRecordFilters()
diff --git a/src/Apps/W1/Quality Management/app/src/Integration/Receiving/QltyRecGenRuleWizard.Page.al b/src/Apps/W1/Quality Management/app/src/Integration/Receiving/QltyRecGenRuleWizard.Page.al
index 1f87347f88..4a1181c3b7 100644
--- a/src/Apps/W1/Quality Management/app/src/Integration/Receiving/QltyRecGenRuleWizard.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Integration/Receiving/QltyRecGenRuleWizard.Page.al
@@ -614,7 +614,7 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
TempWarehouseJournalLine: Record "Warehouse Journal Line" temporary;
TempTransferLine: Record "Transfer Line" temporary;
TempItem: Record "Item" temporary;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyFilterHelpers: Codeunit "Qlty. Filter Helpers";
CurrentStepCounter: Integer;
LocationCodeFilter: Code[20];
@@ -774,11 +774,11 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
local procedure AssistEditFullPurchaseLineFilter()
begin
- TempQltyInspectionGenRule."Source Table No." := Database::"Purchase Line";
- TempQltyInspectionGenRule."Condition Filter" := PurchaseLineRule;
+ TempQltyInspectCreationRule."Source Table No." := Database::"Purchase Line";
+ TempQltyInspectCreationRule."Condition Filter" := PurchaseLineRule;
- if TempQltyInspectionGenRule.AssistEditConditionTableFilter() then begin
- PurchaseLineRule := TempQltyInspectionGenRule."Condition Filter";
+ if TempQltyInspectCreationRule.AssistEditConditionTableFilter() then begin
+ PurchaseLineRule := TempQltyInspectCreationRule."Condition Filter";
TempPurchaseLine.SetView(PurchaseLineRule);
UpdateTableVariablesFromRecordFilters();
@@ -788,11 +788,11 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
local procedure AssistEditFullSalesReturnLineFilter()
begin
- TempQltyInspectionGenRule."Source Table No." := Database::"Sales Line";
- TempQltyInspectionGenRule."Condition Filter" := SalesReturnLineRule;
+ TempQltyInspectCreationRule."Source Table No." := Database::"Sales Line";
+ TempQltyInspectCreationRule."Condition Filter" := SalesReturnLineRule;
- if TempQltyInspectionGenRule.AssistEditConditionTableFilter() then begin
- SalesReturnLineRule := TempQltyInspectionGenRule."Condition Filter";
+ if TempQltyInspectCreationRule.AssistEditConditionTableFilter() then begin
+ SalesReturnLineRule := TempQltyInspectCreationRule."Condition Filter";
TempReturnSalesLine.SetView(SalesReturnLineRule);
UpdateTableVariablesFromRecordFilters();
@@ -802,11 +802,11 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
local procedure AssistEditFullTransferLineFilter()
begin
- TempQltyInspectionGenRule."Source Table No." := Database::"Transfer Line";
- TempQltyInspectionGenRule."Condition Filter" := TransferLineRule;
+ TempQltyInspectCreationRule."Source Table No." := Database::"Transfer Line";
+ TempQltyInspectCreationRule."Condition Filter" := TransferLineRule;
- if TempQltyInspectionGenRule.AssistEditConditionTableFilter() then begin
- TransferLineRule := TempQltyInspectionGenRule."Condition Filter";
+ if TempQltyInspectCreationRule.AssistEditConditionTableFilter() then begin
+ TransferLineRule := TempQltyInspectCreationRule."Condition Filter";
TempTransferLine.SetView(TransferLineRule);
UpdateTableVariablesFromRecordFilters();
@@ -816,11 +816,11 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
local procedure AssistEditFullWarehouseJournalLineFilter()
begin
- TempQltyInspectionGenRule."Source Table No." := Database::"Warehouse Journal Line";
- TempQltyInspectionGenRule."Condition Filter" := WarehouseJournalLineRule;
+ TempQltyInspectCreationRule."Source Table No." := Database::"Warehouse Journal Line";
+ TempQltyInspectCreationRule."Condition Filter" := WarehouseJournalLineRule;
- if TempQltyInspectionGenRule.AssistEditConditionTableFilter() then begin
- WarehouseJournalLineRule := TempQltyInspectionGenRule."Condition Filter";
+ if TempQltyInspectCreationRule.AssistEditConditionTableFilter() then begin
+ WarehouseJournalLineRule := TempQltyInspectCreationRule."Condition Filter";
TempWarehouseJournalLine.SetView(WarehouseJournalLineRule);
UpdateTableVariablesFromRecordFilters();
@@ -830,9 +830,9 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
local procedure AssistEditFullItemFilter()
begin
- TempQltyInspectionGenRule."Item Filter" := ItemRule;
- if TempQltyInspectionGenRule.AssistEditConditionItemFilter() then begin
- ItemRule := TempQltyInspectionGenRule."Item Filter";
+ TempQltyInspectCreationRule."Item Filter" := ItemRule;
+ if TempQltyInspectCreationRule.AssistEditConditionItemFilter() then begin
+ ItemRule := TempQltyInspectCreationRule."Item Filter";
TempItem.SetView(ItemRule);
UpdateTableVariablesFromRecordFilters();
@@ -871,68 +871,68 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
local procedure FinishAction();
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- ExistingQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ ExistingQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
- if not QltyInspectionGenRule.Get(TempQltyInspectionGenRule.RecordId()) then begin
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule.SetEntryNo();
- QltyInspectionGenRule.UpdateSortOrder();
- QltyInspectionGenRule."Source Table No." := 0;
- QltyInspectionGenRule.Insert(true);
+ if not QltyInspectCreationRule.Get(TempQltyInspectCreationRule.RecordId()) then begin
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule.SetEntryNo();
+ QltyInspectCreationRule.UpdateSortOrder();
+ QltyInspectCreationRule."Source Table No." := 0;
+ QltyInspectCreationRule.Insert(true);
end;
- QltyInspectionGenRule.Validate("Template Code", TemplateCode);
+ QltyInspectCreationRule.Validate("Template Code", TemplateCode);
QltyManagementSetup.Get();
case true of
IsPurchaseLine:
begin
- QltyInspectionGenRule."Source Table No." := Database::"Purchase Line";
- QltyInspectionGenRule.Intent := QltyInspectionGenRule.Intent::Purchase;
- QltyInspectionGenRule."Condition Filter" := PurchaseLineRule;
- QltyInspectionGenRule.SetIntentAndDefaultTriggerValuesFromSetup();
- QltyInspectionGenRule."Purchase Order Trigger" := QltyPurchaseTrigger;
+ QltyInspectCreationRule."Source Table No." := Database::"Purchase Line";
+ QltyInspectCreationRule.Intent := QltyInspectCreationRule.Intent::Purchase;
+ QltyInspectCreationRule."Condition Filter" := PurchaseLineRule;
+ QltyInspectCreationRule.SetIntentAndDefaultTriggerValuesFromSetup();
+ QltyInspectCreationRule."Purchase Order Trigger" := QltyPurchaseTrigger;
QltyManagementSetup."Purchase Order Trigger" := QltyPurchaseTrigger;
end;
IsReturnReceipt:
begin
- QltyInspectionGenRule."Source Table No." := Database::"Sales Line";
- QltyInspectionGenRule.Intent := QltyInspectionGenRule.Intent::"Sales Return";
- QltyInspectionGenRule."Condition Filter" := SalesReturnLineRule;
- QltyInspectionGenRule.SetIntentAndDefaultTriggerValuesFromSetup();
- QltyInspectionGenRule."Sales Return Trigger" := QltySalesReturnTrigger;
+ QltyInspectCreationRule."Source Table No." := Database::"Sales Line";
+ QltyInspectCreationRule.Intent := QltyInspectCreationRule.Intent::"Sales Return";
+ QltyInspectCreationRule."Condition Filter" := SalesReturnLineRule;
+ QltyInspectCreationRule.SetIntentAndDefaultTriggerValuesFromSetup();
+ QltyInspectCreationRule."Sales Return Trigger" := QltySalesReturnTrigger;
QltyManagementSetup."Sales Return Trigger" := QltySalesReturnTrigger;
end;
IsTransferLine:
begin
- QltyInspectionGenRule."Source Table No." := Database::"Transfer Line";
- QltyInspectionGenRule.Intent := QltyInspectionGenRule.Intent::Transfer;
- QltyInspectionGenRule."Condition Filter" := TransferLineRule;
- QltyInspectionGenRule.SetIntentAndDefaultTriggerValuesFromSetup();
- QltyInspectionGenRule."Transfer Order Trigger" := QltyTransferTrigger;
+ QltyInspectCreationRule."Source Table No." := Database::"Transfer Line";
+ QltyInspectCreationRule.Intent := QltyInspectCreationRule.Intent::Transfer;
+ QltyInspectCreationRule."Condition Filter" := TransferLineRule;
+ QltyInspectCreationRule.SetIntentAndDefaultTriggerValuesFromSetup();
+ QltyInspectCreationRule."Transfer Order Trigger" := QltyTransferTrigger;
QltyManagementSetup."Transfer Order Trigger" := QltyTransferTrigger;
end;
IsWarehouseReceipt:
begin
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Journal Line";
- QltyInspectionGenRule.Intent := QltyInspectionGenRule.Intent::"Warehouse Receipt";
- QltyInspectionGenRule."Condition Filter" := WarehouseJournalLineRule;
- QltyInspectionGenRule.SetIntentAndDefaultTriggerValuesFromSetup();
- QltyInspectionGenRule."Warehouse Receipt Trigger" := QltyWhseReceiveTrigger;
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Journal Line";
+ QltyInspectCreationRule.Intent := QltyInspectCreationRule.Intent::"Warehouse Receipt";
+ QltyInspectCreationRule."Condition Filter" := WarehouseJournalLineRule;
+ QltyInspectCreationRule.SetIntentAndDefaultTriggerValuesFromSetup();
+ QltyInspectCreationRule."Warehouse Receipt Trigger" := QltyWhseReceiveTrigger;
QltyManagementSetup."Warehouse Receipt Trigger" := QltyWhseReceiveTrigger;
end;
end;
QltyManagementSetup.Modify(false);
- QltyInspectionGenRule."Item Filter" := ItemRule;
- QltyInspectionGenRule.Modify();
-
- ExistingQltyInspectionGenRule.SetRange("Template Code", QltyInspectionGenRule."Template Code");
- ExistingQltyInspectionGenRule.SetRange("Source Table No.", QltyInspectionGenRule."Source Table No.");
- ExistingQltyInspectionGenRule.SetRange("Condition Filter", QltyInspectionGenRule."Condition Filter");
- ExistingQltyInspectionGenRule.SetRange("Item Filter", QltyInspectionGenRule."Item Filter");
- if ExistingQltyInspectionGenRule.Count() > 1 then
+ QltyInspectCreationRule."Item Filter" := ItemRule;
+ QltyInspectCreationRule.Modify();
+
+ ExistingQltyInspectCreationRule.SetRange("Template Code", QltyInspectCreationRule."Template Code");
+ ExistingQltyInspectCreationRule.SetRange("Source Table No.", QltyInspectCreationRule."Source Table No.");
+ ExistingQltyInspectCreationRule.SetRange("Condition Filter", QltyInspectCreationRule."Condition Filter");
+ ExistingQltyInspectCreationRule.SetRange("Item Filter", QltyInspectCreationRule."Item Filter");
+ if ExistingQltyInspectCreationRule.Count() > 1 then
if not Confirm(AlreadyThereQst) then
Error('');
@@ -944,46 +944,46 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
/// Use this to edit an existing rule.
/// You can also use it to start a new rule with a default template by supplying a template filter.
///
- ///
+ ///
///
- internal procedure RunModalWithGenerationRule(var QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"): Action
+ internal procedure RunModalWithGenerationRule(var QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule"): Action
begin
- TempQltyInspectionGenRule := QltyInspectionGenRule;
+ TempQltyInspectCreationRule := QltyInspectCreationRule;
Clear(TempPurchaseLine);
Clear(TempItem);
- if QltyInspectionGenRule."Source Table No." = Database::"Purchase Line" then begin
- TempPurchaseLine.SetView(TempQltyInspectionGenRule."Condition Filter");
+ if QltyInspectCreationRule."Source Table No." = Database::"Purchase Line" then begin
+ TempPurchaseLine.SetView(TempQltyInspectCreationRule."Condition Filter");
IsPurchaseLine := true;
IsReturnReceipt := false;
IsTransferLine := false;
IsWarehouseReceipt := false;
end;
- if QltyInspectionGenRule."Source Table No." = Database::"Sales Line" then begin
- TempReturnSalesLine.SetView(TempQltyInspectionGenRule."Condition Filter");
+ if QltyInspectCreationRule."Source Table No." = Database::"Sales Line" then begin
+ TempReturnSalesLine.SetView(TempQltyInspectCreationRule."Condition Filter");
IsPurchaseLine := false;
IsReturnReceipt := true;
IsTransferLine := false;
IsWarehouseReceipt := false;
end;
- if QltyInspectionGenRule."Source Table No." = Database::"Transfer Line" then begin
- TempTransferLine.SetView(TempQltyInspectionGenRule."Condition Filter");
+ if QltyInspectCreationRule."Source Table No." = Database::"Transfer Line" then begin
+ TempTransferLine.SetView(TempQltyInspectCreationRule."Condition Filter");
IsTransferLine := true;
IsPurchaseLine := false;
IsReturnReceipt := false;
IsWarehouseReceipt := false;
end;
- if QltyInspectionGenRule."Source Table No." = Database::"Warehouse Journal Line" then begin
- TempWarehouseJournalLine.SetView(TempQltyInspectionGenRule."Condition Filter");
+ if QltyInspectCreationRule."Source Table No." = Database::"Warehouse Journal Line" then begin
+ TempWarehouseJournalLine.SetView(TempQltyInspectCreationRule."Condition Filter");
IsWarehouseReceipt := true;
IsPurchaseLine := false;
IsReturnReceipt := false;
IsTransferLine := false;
end;
- TempItem.SetView(TempQltyInspectionGenRule."Item Filter");
+ TempItem.SetView(TempQltyInspectCreationRule."Item Filter");
UpdateTableVariablesFromRecordFilters();
- TemplateCode := QltyInspectionGenRule.GetTemplateCodeFromRecordOrFilter(false);
+ TemplateCode := QltyInspectCreationRule.GetTemplateCodeFromRecordOrFilter(false);
UpdateFullTextRuleStringsFromFilters();
exit(CurrPage.RunModal());
@@ -996,20 +996,20 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
TempPurchaseLine.SetFilter("Location Code", LocationCodeFilter);
TempPurchaseLine.SetFilter("Buy-from Vendor No.", VendorNoFilter);
TempPurchaseLine.SetFilter("Purchasing Code", PurchasingCode);
- PurchaseLineRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempPurchaseLine.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ PurchaseLineRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempPurchaseLine.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
end;
if IsReturnReceipt then begin
TempReturnSalesLine.SetFilter("Location Code", LocationCodeFilter);
TempReturnSalesLine.SetFilter("Return Reason Code", ReturnReasonCode);
TempReturnSalesLine.SetFilter("Sell-to Customer No.", CustomerNoFilter);
- SalesReturnLineRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempReturnSalesLine.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ SalesReturnLineRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempReturnSalesLine.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
end;
if IsTransferLine then begin
TempTransferLine.SetFilter("Transfer-to Code", TransferToCode);
TempTransferLine.SetFilter("Transfer-from Code", TransferFromCode);
- TransferLineRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempTransferLine.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ TransferLineRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempTransferLine.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
end;
if IsWarehouseReceipt then begin
@@ -1017,28 +1017,28 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
TempWarehouseJournalLine.SetFilter("Location Code", LocationCodeFilter);
TempWarehouseJournalLine.SetFilter("To Zone Code", ToZoneCodeFilter);
TempWarehouseJournalLine.SetFilter("To Bin Code", ToBinCodeFilter);
- WarehouseJournalLineRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempWarehouseJournalLine.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ WarehouseJournalLineRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempWarehouseJournalLine.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
end;
TempItem.SetFilter("No.", ItemNoFilter);
TempItem.SetFilter("Item Category Code", CategoryCodeFilter);
TempItem.SetFilter("Inventory Posting Group", InventoryPostingGroupCode);
- ItemRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Item Filter"));
+ ItemRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Item Filter"));
CleanUpWhereClause();
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempReturnSalesLine.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Condition Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempReturnSalesLine.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Condition Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempTransferLine.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Condition Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempTransferLine.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Condition Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempWarehouseJournalLine.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Condition Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempWarehouseJournalLine.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Condition Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Item Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Item Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Item Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Item Filter"));
end;
local procedure UpdateTableVariablesFromRecordFilters()
@@ -1070,4 +1070,4 @@ page 20461 "Qlty. Rec. Gen. Rule Wizard"
CategoryCodeFilter := CopyStr(TempItem.GetFilter("Item Category Code"), 1, MaxStrLen(CategoryCodeFilter));
InventoryPostingGroupCode := CopyStr(TempItem.GetFilter("Inventory Posting Group"), 1, MaxStrLen(InventoryPostingGroupCode));
end;
-}
\ No newline at end of file
+}
diff --git a/src/Apps/W1/Quality Management/app/src/Integration/Receiving/QltyReceivingIntegration.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Integration/Receiving/QltyReceivingIntegration.Codeunit.al
index dd9a662b59..789409c352 100644
--- a/src/Apps/W1/Quality Management/app/src/Integration/Receiving/QltyReceivingIntegration.Codeunit.al
+++ b/src/Apps/W1/Quality Management/app/src/Integration/Receiving/QltyReceivingIntegration.Codeunit.al
@@ -27,7 +27,7 @@ codeunit 20411 "Qlty. Receiving Integration"
{
var
QltyManagementSetup: Record "Qlty. Management Setup";
- ApplicableReceivingQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ ApplicableReceivingQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Purch.-Post", 'OnAfterPurchRcptLineInsert', '', true, true)]
local procedure HandleOnAfterPurchRcptLineInsert(PurchaseLine: Record "Purchase Line"; var PurchRcptLine: Record "Purch. Rcpt. Line"; ItemLedgShptEntryNo: Integer; WhseShip: Boolean; WhseReceive: Boolean; CommitIsSupressed: Boolean; PurchInvHeader: Record "Purch. Inv. Header"; var TempTrackingSpecification: Record "Tracking Specification" temporary; PurchRcptHeader: Record "Purch. Rcpt. Header"; TempWhseRcptHeader: Record "Warehouse Receipt Header"; xPurchLine: Record "Purchase Line"; var TempPurchLineGlobal: Record "Purchase Line" temporary)
@@ -45,10 +45,10 @@ codeunit 20411 "Qlty. Receiving Integration"
if not QltyManagementSetup.GetSetupRecord() then
exit;
- ApplicableReceivingQltyInspectionGenRule.Reset();
- ApplicableReceivingQltyInspectionGenRule.SetRange("Purchase Order Trigger", ApplicableReceivingQltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive);
- ApplicableReceivingQltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if ApplicableReceivingQltyInspectionGenRule.IsEmpty() then
+ ApplicableReceivingQltyInspectCreationRule.Reset();
+ ApplicableReceivingQltyInspectCreationRule.SetRange("Purchase Order Trigger", ApplicableReceivingQltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive);
+ ApplicableReceivingQltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if ApplicableReceivingQltyInspectCreationRule.IsEmpty() then
exit;
if PurchaseHeader.Get(PurchaseLine."Document Type", PurchaseLine."Document No.") then;
@@ -62,13 +62,13 @@ codeunit 20411 "Qlty. Receiving Integration"
ExpectedCountOfInspections := TempTrackingSpecification.Count();
if ExpectedCountOfInspections = 0 then begin
ExpectedCountOfInspections := 1;
- if not ApplicableReceivingQltyInspectionGenRule.IsEmpty() then begin
+ if not ApplicableReceivingQltyInspectCreationRule.IsEmpty() then begin
TempSingleBufferTrackingSpecification.Init();
TempSingleBufferTrackingSpecification.Insert(false);
AttemptCreateInspectionWithPurchaseLineAndTracking(PurchaseLine, PurchaseHeader, TempSingleBufferTrackingSpecification);
end
end else
- if not ApplicableReceivingQltyInspectionGenRule.IsEmpty() then
+ if not ApplicableReceivingQltyInspectCreationRule.IsEmpty() then
if TempTrackingSpecification.FindSet() then
repeat
Clear(TempSingleBufferTrackingSpecification);
@@ -95,10 +95,10 @@ codeunit 20411 "Qlty. Receiving Integration"
if not QltyManagementSetup.GetSetupRecord() then
exit;
- ApplicableReceivingQltyInspectionGenRule.Reset();
- ApplicableReceivingQltyInspectionGenRule.SetRange("Warehouse Receipt Trigger", ApplicableReceivingQltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost);
- ApplicableReceivingQltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if not ApplicableReceivingQltyInspectionGenRule.IsEmpty() then
+ ApplicableReceivingQltyInspectCreationRule.Reset();
+ ApplicableReceivingQltyInspectCreationRule.SetRange("Warehouse Receipt Trigger", ApplicableReceivingQltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost);
+ ApplicableReceivingQltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if not ApplicableReceivingQltyInspectCreationRule.IsEmpty() then
AttemptCreateInspectionWithWhseJournalLine(WarehouseJournalLine, PostedWhseReceiptHeader);
end;
@@ -113,10 +113,10 @@ codeunit 20411 "Qlty. Receiving Integration"
if not QltyManagementSetup.GetSetupRecord() then
exit;
- ApplicableReceivingQltyInspectionGenRule.Reset();
- ApplicableReceivingQltyInspectionGenRule.SetRange("Warehouse Receipt Trigger", ApplicableReceivingQltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate);
- ApplicableReceivingQltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if not ApplicableReceivingQltyInspectionGenRule.IsEmpty() then begin
+ ApplicableReceivingQltyInspectCreationRule.Reset();
+ ApplicableReceivingQltyInspectCreationRule.SetRange("Warehouse Receipt Trigger", ApplicableReceivingQltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate);
+ ApplicableReceivingQltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if not ApplicableReceivingQltyInspectCreationRule.IsEmpty() then begin
OptionalSource := PurchaseLine;
AttemptCreateInspectionWithReceiptLine(WarehouseReceiptLine, WarehouseReceiptHeader, OptionalSource);
end;
@@ -127,7 +127,7 @@ codeunit 20411 "Qlty. Receiving Integration"
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
TempTrackingSpecification: Record "Tracking Specification" temporary;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyWarehouseIntegration: Codeunit "Qlty. - Warehouse Integration";
QltyInspectionCreate: Codeunit "Qlty. Inspection - Create";
Handled: Boolean;
@@ -144,9 +144,9 @@ codeunit 20411 "Qlty. Receiving Integration"
if not QltyManagementSetup.GetSetupRecord() then
exit;
- QltyInspectionGenRule.SetRange("Sales Return Trigger", QltyInspectionGenRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive);
- QltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", QltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if not QltyInspectionGenRule.IsEmpty() then begin
+ QltyInspectCreationRule.SetRange("Sales Return Trigger", QltyInspectCreationRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive);
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", QltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if not QltyInspectCreationRule.IsEmpty() then begin
SourceVariant := SalesLine;
QltyWarehouseIntegration.CollectSourceItemTracking(SourceVariant, TempTrackingSpecification);
OnBeforeSalesReturnCreateInspectionWithSalesLine(SalesHeader, SalesLine, TempItemLedgEntryNotInvoiced, TempTrackingSpecification, Handled);
@@ -156,13 +156,13 @@ codeunit 20411 "Qlty. Receiving Integration"
TempTrackingSpecification.Reset();
if TempTrackingSpecification.FindSet() then
repeat
- if QltyInspectionCreate.CreateInspectionWithMultiVariants(SalesLine, TempTrackingSpecification, DummyVariant, DummyVariant, false, QltyInspectionGenRule) then begin
+ if QltyInspectionCreate.CreateInspectionWithMultiVariants(SalesLine, TempTrackingSpecification, DummyVariant, DummyVariant, false, QltyInspectCreationRule) then begin
HasInspection := true;
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
end;
until TempTrackingSpecification.Next() = 0
else
- if QltyInspectionCreate.CreateInspectionWithMultiVariants(SalesLine, DummyVariant, DummyVariant, DummyVariant, false, QltyInspectionGenRule) then begin
+ if QltyInspectionCreate.CreateInspectionWithMultiVariants(SalesLine, DummyVariant, DummyVariant, DummyVariant, false, QltyInspectCreationRule) then begin
HasInspection := true;
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
end;
@@ -182,10 +182,10 @@ codeunit 20411 "Qlty. Receiving Integration"
if not QltyManagementSetup.GetSetupRecord() then
exit;
- ApplicableReceivingQltyInspectionGenRule.Reset();
- ApplicableReceivingQltyInspectionGenRule.SetRange("Transfer Order Trigger", ApplicableReceivingQltyInspectionGenRule."Transfer Order Trigger"::OnTransferOrderPostReceive);
- ApplicableReceivingQltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if not ApplicableReceivingQltyInspectionGenRule.IsEmpty() then
+ ApplicableReceivingQltyInspectCreationRule.Reset();
+ ApplicableReceivingQltyInspectCreationRule.SetRange("Transfer Order Trigger", ApplicableReceivingQltyInspectCreationRule."Transfer Order Trigger"::OnTransferOrderPostReceive);
+ ApplicableReceivingQltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if not ApplicableReceivingQltyInspectCreationRule.IsEmpty() then
AttemptCreateInspectionWithReceiveTransferLine(TransLine, UnusedTransTransferReceiptHeader, DirectTransHeader);
end;
@@ -200,10 +200,10 @@ codeunit 20411 "Qlty. Receiving Integration"
if not QltyManagementSetup.GetSetupRecord() then
exit;
- ApplicableReceivingQltyInspectionGenRule.Reset();
- ApplicableReceivingQltyInspectionGenRule.SetRange("Transfer Order Trigger", ApplicableReceivingQltyInspectionGenRule."Transfer Order Trigger"::OnTransferOrderPostReceive);
- ApplicableReceivingQltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if not ApplicableReceivingQltyInspectionGenRule.IsEmpty() then
+ ApplicableReceivingQltyInspectCreationRule.Reset();
+ ApplicableReceivingQltyInspectCreationRule.SetRange("Transfer Order Trigger", ApplicableReceivingQltyInspectCreationRule."Transfer Order Trigger"::OnTransferOrderPostReceive);
+ ApplicableReceivingQltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if not ApplicableReceivingQltyInspectCreationRule.IsEmpty() then
AttemptCreateInspectionWithReceiveTransferLine(TransLine, TransferReceiptHeader, UnusedDirectTransHeader);
end;
@@ -221,10 +221,10 @@ codeunit 20411 "Qlty. Receiving Integration"
if not QltyManagementSetup.GetSetupRecord() then
exit;
- ApplicableReceivingQltyInspectionGenRule.Reset();
- ApplicableReceivingQltyInspectionGenRule.SetRange("Purchase Order Trigger", ApplicableReceivingQltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderRelease);
- ApplicableReceivingQltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if ApplicableReceivingQltyInspectionGenRule.IsEmpty() then
+ ApplicableReceivingQltyInspectCreationRule.Reset();
+ ApplicableReceivingQltyInspectCreationRule.SetRange("Purchase Order Trigger", ApplicableReceivingQltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderRelease);
+ ApplicableReceivingQltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", ApplicableReceivingQltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if ApplicableReceivingQltyInspectCreationRule.IsEmpty() then
exit;
PurchaseLine.SetRange("Document Type", PurchaseHeader."Document Type");
@@ -262,7 +262,7 @@ codeunit 20411 "Qlty. Receiving Integration"
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
TempTrackingSpecification: Record "Tracking Specification" temporary;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionCreate: Codeunit "Qlty. Inspection - Create";
QltyWarehouseIntegration: Codeunit "Qlty. - Warehouse Integration";
Handled: Boolean;
@@ -278,16 +278,16 @@ codeunit 20411 "Qlty. Receiving Integration"
TempTrackingSpecification.Reset();
if TempTrackingSpecification.FindSet() then
repeat
- TempQltyInspectionGenRule.DeleteAll();
- TempQltyInspectionGenRule.CopyFilters(ApplicableReceivingQltyInspectionGenRule);
- if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseReceiptLine, OptionalSourceLineVariant, WarehouseReceiptHeader, TempTrackingSpecification, false, TempQltyInspectionGenRule) then begin
+ TempQltyInspectCreationRule.DeleteAll();
+ TempQltyInspectCreationRule.CopyFilters(ApplicableReceivingQltyInspectCreationRule);
+ if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseReceiptLine, OptionalSourceLineVariant, WarehouseReceiptHeader, TempTrackingSpecification, false, TempQltyInspectCreationRule) then begin
HasInspection := true;
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
end;
until TempTrackingSpecification.Next() = 0
else begin
- TempQltyInspectionGenRule.CopyFilters(ApplicableReceivingQltyInspectionGenRule);
- if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseReceiptLine, OptionalSourceLineVariant, WarehouseReceiptHeader, DummyVariant, false, TempQltyInspectionGenRule) then begin
+ TempQltyInspectCreationRule.CopyFilters(ApplicableReceivingQltyInspectCreationRule);
+ if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseReceiptLine, OptionalSourceLineVariant, WarehouseReceiptHeader, DummyVariant, false, TempQltyInspectCreationRule) then begin
HasInspection := true;
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
end;
@@ -300,7 +300,7 @@ codeunit 20411 "Qlty. Receiving Integration"
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
TempTrackingSpecification: Record "Tracking Specification" temporary;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionCreate: Codeunit "Qlty. Inspection - Create";
QltyWarehouseIntegration: Codeunit "Qlty. - Warehouse Integration";
OptionalSourceRecordVariant: Variant;
@@ -318,16 +318,16 @@ codeunit 20411 "Qlty. Receiving Integration"
TempTrackingSpecification.Reset();
if TempTrackingSpecification.FindSet() then
repeat
- TempQltyInspectionGenRule.DeleteAll();
- TempQltyInspectionGenRule.CopyFilters(ApplicableReceivingQltyInspectionGenRule);
- if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseJournalLine, OptionalSourceRecordVariant, PostedWhseReceiptHeader, TempTrackingSpecification, false, TempQltyInspectionGenRule) then begin
+ TempQltyInspectCreationRule.DeleteAll();
+ TempQltyInspectCreationRule.CopyFilters(ApplicableReceivingQltyInspectCreationRule);
+ if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseJournalLine, OptionalSourceRecordVariant, PostedWhseReceiptHeader, TempTrackingSpecification, false, TempQltyInspectCreationRule) then begin
HasInspection := true;
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
end;
until TempTrackingSpecification.Next() = 0
else begin
- TempQltyInspectionGenRule.CopyFilters(ApplicableReceivingQltyInspectionGenRule);
- if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseJournalLine, OptionalSourceRecordVariant, PostedWhseReceiptHeader, DummyVariant, false, TempQltyInspectionGenRule) then begin
+ TempQltyInspectCreationRule.CopyFilters(ApplicableReceivingQltyInspectCreationRule);
+ if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseJournalLine, OptionalSourceRecordVariant, PostedWhseReceiptHeader, DummyVariant, false, TempQltyInspectCreationRule) then begin
HasInspection := true;
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
end;
@@ -339,7 +339,7 @@ codeunit 20411 "Qlty. Receiving Integration"
local procedure AttemptCreateInspectionWithPurchaseLineAndTracking(var PurchaseLine: Record "Purchase Line"; var PurchaseHeader: Record "Purchase Header"; var TempTrackingSpecification: Record "Tracking Specification" temporary)
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionCreate: Codeunit "Qlty. Inspection - Create";
Handled: Boolean;
HasInspection: Boolean;
@@ -349,8 +349,8 @@ codeunit 20411 "Qlty. Receiving Integration"
if Handled then
exit;
- TempQltyInspectionGenRule.CopyFilters(ApplicableReceivingQltyInspectionGenRule);
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(PurchaseLine, PurchaseHeader, TempTrackingSpecification, DummyVariant, false, TempQltyInspectionGenRule);
+ TempQltyInspectCreationRule.CopyFilters(ApplicableReceivingQltyInspectCreationRule);
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(PurchaseLine, PurchaseHeader, TempTrackingSpecification, DummyVariant, false, TempQltyInspectCreationRule);
if HasInspection then
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
@@ -361,7 +361,7 @@ codeunit 20411 "Qlty. Receiving Integration"
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
TempTrackingSpecification: Record "Tracking Specification" temporary;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyWarehouseIntegration: Codeunit "Qlty. - Warehouse Integration";
QltyInspectionCreate: Codeunit "Qlty. Inspection - Create";
Handled: Boolean;
@@ -377,24 +377,24 @@ codeunit 20411 "Qlty. Receiving Integration"
TempTrackingSpecification.Reset();
if TempTrackingSpecification.FindSet() then
repeat
- TempQltyInspectionGenRule.DeleteAll();
- TempQltyInspectionGenRule.CopyFilters(ApplicableReceivingQltyInspectionGenRule);
+ TempQltyInspectCreationRule.DeleteAll();
+ TempQltyInspectCreationRule.CopyFilters(ApplicableReceivingQltyInspectCreationRule);
if OptionalTransferReceiptHeader."No." <> '' then
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TransTransferLine, OptionalTransferReceiptHeader, TempTrackingSpecification, OptionalDirectTransHeader, false, TempQltyInspectionGenRule);
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TransTransferLine, OptionalTransferReceiptHeader, TempTrackingSpecification, OptionalDirectTransHeader, false, TempQltyInspectCreationRule);
if OptionalDirectTransHeader."No." <> '' then
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TransTransferLine, OptionalDirectTransHeader, TempTrackingSpecification, OptionalTransferReceiptHeader, false, TempQltyInspectionGenRule);
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TransTransferLine, OptionalDirectTransHeader, TempTrackingSpecification, OptionalTransferReceiptHeader, false, TempQltyInspectCreationRule);
if HasInspection then
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
until TempTrackingSpecification.Next() = 0
else begin
- TempQltyInspectionGenRule.CopyFilters(ApplicableReceivingQltyInspectionGenRule);
+ TempQltyInspectCreationRule.CopyFilters(ApplicableReceivingQltyInspectCreationRule);
if OptionalTransferReceiptHeader."No." <> '' then
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TransTransferLine, OptionalTransferReceiptHeader, OptionalDirectTransHeader, TempTrackingSpecification, false, TempQltyInspectionGenRule);
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TransTransferLine, OptionalTransferReceiptHeader, OptionalDirectTransHeader, TempTrackingSpecification, false, TempQltyInspectCreationRule);
if OptionalDirectTransHeader."No." <> '' then
- HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TransTransferLine, OptionalDirectTransHeader, OptionalTransferReceiptHeader, TempTrackingSpecification, false, TempQltyInspectionGenRule);
+ HasInspection := QltyInspectionCreate.CreateInspectionWithMultiVariants(TransTransferLine, OptionalDirectTransHeader, OptionalTransferReceiptHeader, TempTrackingSpecification, false, TempQltyInspectCreationRule);
if HasInspection then
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
@@ -541,4 +541,4 @@ codeunit 20411 "Qlty. Receiving Integration"
local procedure OnAfterTransferAttemptCreateInspectionWithInboundTransferLine(var TransTransferLine: Record "Transfer Line"; var TransferReceiptHeader: Record "Transfer Receipt Header"; var DirectTransHeader: Record "Direct Trans. Header"; var TempSpecTrackingSpecification: Record "Tracking Specification" temporary; var QltyInspectionHeader: Record "Qlty. Inspection Header"; var HasInspection: Boolean)
begin
end;
-}
\ No newline at end of file
+}
diff --git a/src/Apps/W1/Quality Management/app/src/Integration/Warehouse/QltyWarehouseIntegration.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Integration/Warehouse/QltyWarehouseIntegration.Codeunit.al
index 86ef79f393..6b1dbc069f 100644
--- a/src/Apps/W1/Quality Management/app/src/Integration/Warehouse/QltyWarehouseIntegration.Codeunit.al
+++ b/src/Apps/W1/Quality Management/app/src/Integration/Warehouse/QltyWarehouseIntegration.Codeunit.al
@@ -21,7 +21,7 @@ codeunit 20438 "Qlty. - Warehouse Integration"
local procedure HandleOnAfterInsertWhseEntry(var WarehouseEntry: Record "Warehouse Entry"; var WarehouseJournalLine: Record "Warehouse Journal Line")
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if (WarehouseEntry."Entry Type" <> WarehouseEntry."Entry Type"::Movement) or (WarehouseEntry.Quantity <= 0) then
exit;
@@ -29,13 +29,13 @@ codeunit 20438 "Qlty. - Warehouse Integration"
if not QltyManagementSetup.GetSetupRecord() then
exit;
- QltyInspectionGenRule.SetRange("Warehouse Movement Trigger", QltyInspectionGenRule."Warehouse Movement Trigger"::OnWhseMovementRegister);
- QltyInspectionGenRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", QltyInspectionGenRule."Activation Trigger"::"Automatic only");
- if not QltyInspectionGenRule.IsEmpty() then
- AttemptCreateInspectionWithWhseJournalLine(WarehouseEntry, WarehouseJournalLine, QltyInspectionGenRule);
+ QltyInspectCreationRule.SetRange("Warehouse Movement Trigger", QltyInspectCreationRule."Warehouse Movement Trigger"::OnWhseMovementRegister);
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '%1|%2', QltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", QltyInspectCreationRule."Activation Trigger"::"Automatic only");
+ if not QltyInspectCreationRule.IsEmpty() then
+ AttemptCreateInspectionWithWhseJournalLine(WarehouseEntry, WarehouseJournalLine, QltyInspectCreationRule);
end;
- local procedure AttemptCreateInspectionWithWhseJournalLine(var WarehouseEntry: Record "Warehouse Entry"; var WarehouseJournalLine: Record "Warehouse Journal Line"; var QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+ local procedure AttemptCreateInspectionWithWhseJournalLine(var WarehouseEntry: Record "Warehouse Entry"; var WarehouseJournalLine: Record "Warehouse Journal Line"; var QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule")
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
TempTrackingSpecification: Record "Tracking Specification" temporary;
@@ -63,13 +63,13 @@ codeunit 20438 "Qlty. - Warehouse Integration"
TempTrackingSpecification.Reset();
if TempTrackingSpecification.FindSet() then
repeat
- if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseEntry, WarehouseJournalLine, TempTrackingSpecification, DummyVariant, false, QltyInspectionGenRule) then begin
+ if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseEntry, WarehouseJournalLine, TempTrackingSpecification, DummyVariant, false, QltyInspectCreationRule) then begin
HasInspection := true;
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
end;
until TempTrackingSpecification.Next() = 0
else
- if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseEntry, WarehouseJournalLine, DummyVariant, DummyVariant, false, QltyInspectionGenRule) then begin
+ if QltyInspectionCreate.CreateInspectionWithMultiVariants(WarehouseEntry, WarehouseJournalLine, DummyVariant, DummyVariant, false, QltyInspectCreationRule) then begin
HasInspection := true;
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
end;
diff --git a/src/Apps/W1/Quality Management/app/src/Integration/Warehouse/QltyWhseGenRuleWizard.Page.al b/src/Apps/W1/Quality Management/app/src/Integration/Warehouse/QltyWhseGenRuleWizard.Page.al
index 09e0317470..577ba5cf61 100644
--- a/src/Apps/W1/Quality Management/app/src/Integration/Warehouse/QltyWhseGenRuleWizard.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Integration/Warehouse/QltyWhseGenRuleWizard.Page.al
@@ -331,7 +331,7 @@ page 20460 "Qlty. Whse. Gen. Rule Wizard"
WarehouseEmployee: Record "Warehouse Employee";
TempWarehouseJournalLine: Record "Warehouse Journal Line" temporary;
TempItem: Record "Item" temporary;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
Zone: Record Zone;
Bin: Record Bin;
QltyFilterHelpers: Codeunit "Qlty. Filter Helpers";
@@ -579,11 +579,11 @@ page 20460 "Qlty. Whse. Gen. Rule Wizard"
local procedure AssistEditFullWhseFilter()
begin
- TempQltyInspectionGenRule."Source Table No." := Database::"Warehouse Journal Line";
- TempQltyInspectionGenRule."Condition Filter" := WhseRule;
+ TempQltyInspectCreationRule."Source Table No." := Database::"Warehouse Journal Line";
+ TempQltyInspectCreationRule."Condition Filter" := WhseRule;
- if TempQltyInspectionGenRule.AssistEditConditionTableFilter() then begin
- WhseRule := TempQltyInspectionGenRule."Condition Filter";
+ if TempQltyInspectCreationRule.AssistEditConditionTableFilter() then begin
+ WhseRule := TempQltyInspectCreationRule."Condition Filter";
TempWarehouseJournalLine.SetView(WhseRule);
UpdateTableVariablesFromRecordFilters();
@@ -593,9 +593,9 @@ page 20460 "Qlty. Whse. Gen. Rule Wizard"
local procedure AssistEditFullItemFilter()
begin
- TempQltyInspectionGenRule."Item Filter" := ItemRule;
- if TempQltyInspectionGenRule.AssistEditConditionItemFilter() then begin
- ItemRule := TempQltyInspectionGenRule."Item Filter";
+ TempQltyInspectCreationRule."Item Filter" := ItemRule;
+ if TempQltyInspectCreationRule.AssistEditConditionItemFilter() then begin
+ ItemRule := TempQltyInspectCreationRule."Item Filter";
TempItem.SetView(ItemRule);
UpdateTableVariablesFromRecordFilters();
@@ -616,21 +616,21 @@ page 20460 "Qlty. Whse. Gen. Rule Wizard"
TempWarehouseJournalLine.SetFilter("Location Code", LocationCodeFilter);
TempWarehouseJournalLine.SetFilter("To Zone Code", ToZoneCodeFilter);
TempWarehouseJournalLine.SetFilter("To Bin Code", ToBinCodeFilter);
- WhseRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempWarehouseJournalLine.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ WhseRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempWarehouseJournalLine.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
TempItem.SetFilter("No.", ItemNoFilter);
TempItem.SetFilter("Item Category Code", CategoryCodeFilter);
TempItem.SetFilter("Inventory Posting Group", InventoryPostingGroupCode);
TempItem.SetFilter("Vendor No.", VendorNoFilter);
- ItemRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true)), 1, MaxStrLen(TempQltyInspectionGenRule."Item Filter"));
+ ItemRule := CopyStr(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true)), 1, MaxStrLen(TempQltyInspectCreationRule."Item Filter"));
CleanUpWhereClause();
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempWarehouseJournalLine.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Condition Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Condition Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempWarehouseJournalLine.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Condition Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Condition Filter"));
- if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true))) > MaxStrLen(TempQltyInspectionGenRule."Item Filter") then
- Error(FilterLengthErr, MaxStrLen(TempQltyInspectionGenRule."Item Filter"));
+ if StrLen(QltyFilterHelpers.CleanUpWhereClause2048(TempItem.GetView(true))) > MaxStrLen(TempQltyInspectCreationRule."Item Filter") then
+ Error(FilterLengthErr, MaxStrLen(TempQltyInspectCreationRule."Item Filter"));
end;
local procedure CleanUpWhereClause()
@@ -653,33 +653,33 @@ page 20460 "Qlty. Whse. Gen. Rule Wizard"
local procedure FinishAction();
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- ExistingQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ ExistingQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
- if not QltyInspectionGenRule.Get(TempQltyInspectionGenRule.RecordId()) then begin
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule.SetEntryNo();
- QltyInspectionGenRule.UpdateSortOrder();
- QltyInspectionGenRule."Source Table No." := 0;
- QltyInspectionGenRule.Insert();
+ if not QltyInspectCreationRule.Get(TempQltyInspectCreationRule.RecordId()) then begin
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule.SetEntryNo();
+ QltyInspectCreationRule.UpdateSortOrder();
+ QltyInspectCreationRule."Source Table No." := 0;
+ QltyInspectCreationRule.Insert();
end;
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Journal Line";
- QltyInspectionGenRule.Intent := QltyInspectionGenRule.Intent::"Warehouse Movement";
- QltyInspectionGenRule.Validate("Template Code", TemplateCode);
- QltyInspectionGenRule."Condition Filter" := WhseRule;
- QltyInspectionGenRule."Item Filter" := ItemRule;
- QltyInspectionGenRule.SetIntentAndDefaultTriggerValuesFromSetup();
- QltyInspectionGenRule."Warehouse Movement Trigger" := QltyWarehouseTrigger;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Journal Line";
+ QltyInspectCreationRule.Intent := QltyInspectCreationRule.Intent::"Warehouse Movement";
+ QltyInspectCreationRule.Validate("Template Code", TemplateCode);
+ QltyInspectCreationRule."Condition Filter" := WhseRule;
+ QltyInspectCreationRule."Item Filter" := ItemRule;
+ QltyInspectCreationRule.SetIntentAndDefaultTriggerValuesFromSetup();
+ QltyInspectCreationRule."Warehouse Movement Trigger" := QltyWarehouseTrigger;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup.Get();
QltyManagementSetup."Warehouse Trigger" := QltyWarehouseTrigger;
QltyManagementSetup.Modify(false);
- ExistingQltyInspectionGenRule.SetRange("Template Code", QltyInspectionGenRule."Template Code");
- ExistingQltyInspectionGenRule.SetRange("Source Table No.", QltyInspectionGenRule."Source Table No.");
- ExistingQltyInspectionGenRule.SetRange("Condition Filter", QltyInspectionGenRule."Condition Filter");
- ExistingQltyInspectionGenRule.SetRange("Item Filter", QltyInspectionGenRule."Item Filter");
- if ExistingQltyInspectionGenRule.Count() > 1 then
+ ExistingQltyInspectCreationRule.SetRange("Template Code", QltyInspectCreationRule."Template Code");
+ ExistingQltyInspectCreationRule.SetRange("Source Table No.", QltyInspectCreationRule."Source Table No.");
+ ExistingQltyInspectCreationRule.SetRange("Condition Filter", QltyInspectCreationRule."Condition Filter");
+ ExistingQltyInspectCreationRule.SetRange("Item Filter", QltyInspectCreationRule."Item Filter");
+ if ExistingQltyInspectCreationRule.Count() > 1 then
if not Confirm(AlreadyThereQst) then
Error('');
@@ -691,18 +691,18 @@ page 20460 "Qlty. Whse. Gen. Rule Wizard"
/// Use this to edit an existing rule.
/// You can also use it to start a new rule with a default template by supplying a template filter.
///
- ///
+ ///
///
- internal procedure RunModalWithGenerationRule(var QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"): Action
+ internal procedure RunModalWithGenerationRule(var QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule"): Action
begin
- TempQltyInspectionGenRule := QltyInspectionGenRule;
+ TempQltyInspectCreationRule := QltyInspectCreationRule;
Clear(TempWarehouseJournalLine);
Clear(TempItem);
- TempWarehouseJournalLine.SetView(TempQltyInspectionGenRule."Condition Filter");
- TempItem.SetView(TempQltyInspectionGenRule."Item Filter");
+ TempWarehouseJournalLine.SetView(TempQltyInspectCreationRule."Condition Filter");
+ TempItem.SetView(TempQltyInspectCreationRule."Item Filter");
UpdateTableVariablesFromRecordFilters();
- TemplateCode := QltyInspectionGenRule.GetTemplateCodeFromRecordOrFilter(false);
+ TemplateCode := QltyInspectCreationRule.GetTemplateCodeFromRecordOrFilter(false);
UpdateFullTextRuleStringsFromFilters();
exit(CurrPage.RunModal());
diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/QltyEntryInspector.PermissionSet.al b/src/Apps/W1/Quality Management/app/src/Permissions/QltyEntryInspector.PermissionSet.al
index 2bc47bcef0..081ff2b361 100644
--- a/src/Apps/W1/Quality Management/app/src/Permissions/QltyEntryInspector.PermissionSet.al
+++ b/src/Apps/W1/Quality Management/app/src/Permissions/QltyEntryInspector.PermissionSet.al
@@ -97,7 +97,7 @@ permissionset 20404 QltyEntryInspector
page "Qlty. Test Number Card Part" = X,
page "Qlty. Test Wizard" = X,
page "Qlty. Tests" = X,
- page "Qlty. Inspection Gen. Rules" = X,
+ page "Qlty. Inspect. Creation Rules" = X,
page "Qlty. Inspection Result List" = X,
page "Qlty. Inspection Template" = X,
page "Qlty. Inspection Template Edit" = X,
@@ -141,7 +141,7 @@ permissionset 20404 QltyEntryInspector
// tables
table "Qlty. Express Config. Value" = X,
table "Qlty. Test" = X,
- table "Qlty. Inspection Gen. Rule" = X,
+ table "Qlty. Inspect. Creation Rule" = X,
table "Qlty. I. Result Condit. Conf." = X,
table "Qlty. Inspection Result" = X,
table "Qlty. Inspection Template Hdr." = X,
@@ -157,7 +157,7 @@ permissionset 20404 QltyEntryInspector
// table data
tabledata "Qlty. Express Config. Value" = RIMD,
tabledata "Qlty. Test" = RIMd,
- tabledata "Qlty. Inspection Gen. Rule" = RIMd,
+ tabledata "Qlty. Inspect. Creation Rule" = RIMd,
tabledata "Qlty. I. Result Condit. Conf." = RIMd,
tabledata "Qlty. Inspection Result" = RIMd,
tabledata "Qlty. Inspection Template Hdr." = RIMd,
diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/QltyGeneral.PermissionSet.al b/src/Apps/W1/Quality Management/app/src/Permissions/QltyGeneral.PermissionSet.al
index cdeb3e342b..f82df5ca42 100644
--- a/src/Apps/W1/Quality Management/app/src/Permissions/QltyGeneral.PermissionSet.al
+++ b/src/Apps/W1/Quality Management/app/src/Permissions/QltyGeneral.PermissionSet.al
@@ -96,7 +96,7 @@ permissionset 20403 QltyGeneral
page "Qlty. Test Number Card Part" = X,
page "Qlty. Test Wizard" = X,
page "Qlty. Tests" = X,
- page "Qlty. Inspection Gen. Rules" = X,
+ page "Qlty. Inspect. Creation Rules" = X,
page "Qlty. Inspection Result List" = X,
page "Qlty. Inspection Template" = X,
page "Qlty. Inspection Template Edit" = X,
@@ -136,7 +136,7 @@ permissionset 20403 QltyGeneral
// tables
table "Qlty. Express Config. Value" = X,
table "Qlty. Test" = X,
- table "Qlty. Inspection Gen. Rule" = X,
+ table "Qlty. Inspect. Creation Rule" = X,
table "Qlty. I. Result Condit. Conf." = X,
table "Qlty. Inspection Result" = X,
table "Qlty. Inspection Template Hdr." = X,
@@ -151,7 +151,7 @@ permissionset 20403 QltyGeneral
table "Qlty. Inspection Header" = X,
// table data
tabledata "Qlty. Express Config. Value" = RIMD,
- tabledata "Qlty. Inspection Gen. Rule" = RIMD,
+ tabledata "Qlty. Inspect. Creation Rule" = RIMD,
tabledata "Qlty. I. Result Condit. Conf." = RIMD,
tabledata "Qlty. Inspection Result" = RIMD,
tabledata "Qlty. Inspection Template Hdr." = RIMD,
diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntEdit.PermissionSet.al b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntEdit.PermissionSet.al
index 8aa135a06d..78606a1518 100644
--- a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntEdit.PermissionSet.al
+++ b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntEdit.PermissionSet.al
@@ -23,7 +23,7 @@ permissionset 20405 "QltyMngmnt - Edit"
IncludedPermissionSets = "QltyMngmnt - Read";
Permissions =
- tabledata "Qlty. Inspection Gen. Rule" = IMD,
+ tabledata "Qlty. Inspect. Creation Rule" = IMD,
tabledata "Qlty. I. Result Condit. Conf." = IMD,
tabledata "Qlty. Inspection Result" = IMD,
tabledata "Qlty. Lookup Code" = IMD,
diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al
index 294ec224e3..33da04fde0 100644
--- a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al
+++ b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al
@@ -97,7 +97,7 @@ permissionset 20406 "QltyMngmnt - Objects"
page "Qlty. Test Number Card Part" = X,
page "Qlty. Test Wizard" = X,
page "Qlty. Tests" = X,
- page "Qlty. Inspection Gen. Rules" = X,
+ page "Qlty. Inspect. Creation Rules" = X,
page "Qlty. Inspection Result List" = X,
page "Qlty. Lookup Code List" = X,
page "Qlty. Lookup Code Part" = X,
@@ -140,7 +140,7 @@ permissionset 20406 "QltyMngmnt - Objects"
// Tables
table "Qlty. Express Config. Value" = X,
- table "Qlty. Inspection Gen. Rule" = X,
+ table "Qlty. Inspect. Creation Rule" = X,
table "Qlty. I. Result Condit. Conf." = X,
table "Qlty. Inspection Result" = X,
table "Qlty. Lookup Code" = X,
diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntRead.PermissionSet.al b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntRead.PermissionSet.al
index 43003b9853..2b7c2624c4 100644
--- a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntRead.PermissionSet.al
+++ b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntRead.PermissionSet.al
@@ -23,7 +23,7 @@ permissionset 20401 "QltyMngmnt - Read"
IncludedPermissionSets = "QltyMngmnt - Objects";
Permissions =
- tabledata "Qlty. Inspection Gen. Rule" = R,
+ tabledata "Qlty. Inspect. Creation Rule" = R,
tabledata "Qlty. I. Result Condit. Conf." = R,
tabledata "Qlty. Inspection Result" = R,
tabledata "Qlty. Lookup Code" = R,
diff --git a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyBusinessManagerRC.PageExt.al b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyBusinessManagerRC.PageExt.al
index 0f37948d6f..075f052b78 100644
--- a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyBusinessManagerRC.PageExt.al
+++ b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyBusinessManagerRC.PageExt.al
@@ -73,7 +73,7 @@ pageextension 20404 "Qlty. Business Manager RC" extends "Business Manager Role C
ApplicationArea = QualityManagement;
Caption = 'Inspection Generation Rules';
Image = MapDimensions;
- RunObject = Page "Qlty. Inspection Gen. Rules";
+ RunObject = Page "Qlty. Inspect. Creation Rules";
RunPageMode = Edit;
ToolTip = 'Specifies a Quality Inspection generation rule defines when you want to ask a set of questions or other data that you want to collect that is defined in a template. You connect a template to a source table, and set the criteria to use that template with the table filter. When these filter criteria is met, then it will choose that template. When there are multiple matches, it will use the first template that it finds, based on the sort order.';
}
diff --git a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyMachineOperatorRC.PageExt.al b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyMachineOperatorRC.PageExt.al
index ba1fa17052..38500f12f5 100644
--- a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyMachineOperatorRC.PageExt.al
+++ b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyMachineOperatorRC.PageExt.al
@@ -71,7 +71,7 @@ pageextension 20417 "Qlty. Machine Operator RC" extends "Machine Operator Role C
ApplicationArea = QualityManagement;
Caption = 'Inspection Generation Rules';
Image = MapDimensions;
- RunObject = Page "Qlty. Inspection Gen. Rules";
+ RunObject = Page "Qlty. Inspect. Creation Rules";
RunPageMode = Edit;
ToolTip = 'Specifies a Quality Inspection generation rule defines when you want to ask a set of questions or other data that you want to collect that is defined in a template. You connect a template to a source table, and set the criteria to use that template with the table filter. When these filter criteria is met, then it will choose that template. When there are multiple matches, it will use the first template that it finds, based on the sort order.';
}
diff --git a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyManagerRC.Page.al b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyManagerRC.Page.al
index cd55cc275b..49b48e7d24 100644
--- a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyManagerRC.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyManagerRC.Page.al
@@ -69,7 +69,7 @@ page 20421 "Qlty. Manager RC"
{
Caption = 'Quality Inspection Generation Rules';
Image = MapDimensions;
- RunObject = Page "Qlty. Inspection Gen. Rules";
+ RunObject = Page "Qlty. Inspect. Creation Rules";
RunPageMode = Edit;
ToolTip = 'Specifies a Quality Inspection generation rule defines when you want to ask a set of questions or other data that you want to collect that is defined in a template. You connect a template to a source table, and set the criteria to use that template with the table filter. When these filter criteria is met, then it will choose that template. When there are multiple matches, it will use the first template that it finds, based on the sort order.';
}
diff --git a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyManagerRoleCenter.Page.al b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyManagerRoleCenter.Page.al
index 4afe07fa92..5b97d52bfa 100644
--- a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyManagerRoleCenter.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyManagerRoleCenter.Page.al
@@ -117,7 +117,7 @@ page 20426 "Qlty. Manager Role Center"
{
Caption = 'Inspection Generation Rules';
Image = MapDimensions;
- RunObject = Page "Qlty. Inspection Gen. Rules";
+ RunObject = Page "Qlty. Inspect. Creation Rules";
RunPageMode = Edit;
ToolTip = 'Specifies a Quality Inspection generation rule defines when you want to ask a set of questions or other data that you want to collect that is defined in a template. You connect a template to a source table, and set the criteria to use that template with the table filter. When these filter criteria is met, then it will choose that template. When there are multiple matches, it will use the first template that it finds, based on the sort order.';
}
diff --git a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyPurchasingAgentRC.PageExt.al b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyPurchasingAgentRC.PageExt.al
index f8a1ccb905..e5b9cbd435 100644
--- a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyPurchasingAgentRC.PageExt.al
+++ b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyPurchasingAgentRC.PageExt.al
@@ -71,7 +71,7 @@ pageextension 20415 "Qlty. Purchasing Agent RC" extends "Purchasing Agent Role C
ApplicationArea = QualityManagement;
Caption = 'Inspection Generation Rules';
Image = MapDimensions;
- RunObject = Page "Qlty. Inspection Gen. Rules";
+ RunObject = Page "Qlty. Inspect. Creation Rules";
RunPageMode = Edit;
ToolTip = 'Specifies a Quality Inspection generation rule defines when you want to ask a set of questions or other data that you want to collect that is defined in a template. You connect a template to a source table, and set the criteria to use that template with the table filter. When these filter criteria is met, then it will choose that template. When there are multiple matches, it will use the first template that it finds, based on the sort order.';
}
diff --git a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyShopSupervisorRC.PageExt.al b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyShopSupervisorRC.PageExt.al
index 0927a6c3ae..94b0edee6c 100644
--- a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyShopSupervisorRC.PageExt.al
+++ b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyShopSupervisorRC.PageExt.al
@@ -71,7 +71,7 @@ pageextension 20416 "Qlty. Shop Supervisor RC" extends "Shop Supervisor Role Cen
ApplicationArea = QualityManagement;
Caption = 'Inspection Generation Rules';
Image = MapDimensions;
- RunObject = Page "Qlty. Inspection Gen. Rules";
+ RunObject = Page "Qlty. Inspect. Creation Rules";
RunPageMode = Edit;
ToolTip = 'Specifies a Quality Inspection generation rule defines when you want to ask a set of questions or other data that you want to collect that is defined in a template. You connect a template to a source table, and set the criteria to use that template with the table filter. When these filter criteria is met, then it will choose that template. When there are multiple matches, it will use the first template that it finds, based on the sort order.';
}
diff --git a/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Page.al b/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Page.al
index e497bc77d9..aa9668a466 100644
--- a/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Page.al
@@ -273,7 +273,7 @@ page 20400 "Qlty. Management Setup"
Image = EditFilter;
AboutTitle = 'Quality Inspection Generation Rule';
AboutText = 'A Quality Inspection generation rule defines when you want to ask a set of questions defined in a template. You connect it to a source table, and set the criteria to use that template with the table filter. When these filter criteria is met, then it will choose that template. When there are multiple matches, it will use the first template it finds, based on the sort order.';
- RunObject = Page "Qlty. Inspection Gen. Rules";
+ RunObject = Page "Qlty. Inspect. Creation Rules";
RunPageMode = Edit;
}
action(Results)
diff --git a/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Table.al b/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Table.al
index 4ad2beebc5..087171dee1 100644
--- a/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Table.al
+++ b/src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Table.al
@@ -64,14 +64,14 @@ table 20400 "Qlty. Management Setup"
trigger OnValidate()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if (Rec."Production Order Trigger" <> xRec."Production Order Trigger") and (xRec."Production Order Trigger" <> xRec."Production Order Trigger"::NoTrigger) then begin
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Production);
- QltyInspectionGenRule.SetRange("Production Order Trigger", xRec."Production Order Trigger");
- if (not QltyInspectionGenRule.IsEmpty()) and GuiAllowed() then
- if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectionGenRule.Count(), xRec."Production Order Trigger", Rec."Production Order Trigger")) then
- QltyInspectionGenRule.ModifyAll("Production Order Trigger", Rec."Production Order Trigger", false);
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Production);
+ QltyInspectCreationRule.SetRange("Production Order Trigger", xRec."Production Order Trigger");
+ if (not QltyInspectCreationRule.IsEmpty()) and GuiAllowed() then
+ if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectCreationRule.Count(), xRec."Production Order Trigger", Rec."Production Order Trigger")) then
+ QltyInspectCreationRule.ModifyAll("Production Order Trigger", Rec."Production Order Trigger", false);
end;
end;
}
@@ -114,18 +114,18 @@ table 20400 "Qlty. Management Setup"
trigger OnValidate()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyAutoConfigure: Codeunit "Qlty. Auto Configure";
begin
if Rec."Warehouse Trigger" <> Rec."Warehouse Trigger"::NoTrigger then
QltyAutoConfigure.CreateDefaultWarehousingConfiguration();
if (Rec."Warehouse Trigger" <> xRec."Warehouse Trigger") and (xRec."Warehouse Trigger" <> xRec."Warehouse Trigger"::NoTrigger) then begin
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::"Warehouse Movement");
- QltyInspectionGenRule.SetRange("Warehouse Movement Trigger", xRec."Warehouse Trigger");
- if (not QltyInspectionGenRule.IsEmpty()) and GuiAllowed() then
- if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectionGenRule.Count(), xRec."Warehouse Trigger", Rec."Warehouse Trigger")) then
- QltyInspectionGenRule.ModifyAll("Warehouse Movement Trigger", Rec."Warehouse Trigger", false);
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::"Warehouse Movement");
+ QltyInspectCreationRule.SetRange("Warehouse Movement Trigger", xRec."Warehouse Trigger");
+ if (not QltyInspectCreationRule.IsEmpty()) and GuiAllowed() then
+ if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectCreationRule.Count(), xRec."Warehouse Trigger", Rec."Warehouse Trigger")) then
+ QltyInspectCreationRule.ModifyAll("Warehouse Movement Trigger", Rec."Warehouse Trigger", false);
end;
end;
}
@@ -137,20 +137,20 @@ table 20400 "Qlty. Management Setup"
trigger OnValidate()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if Rec.Visibility <> Rec.Visibility::Hide then
exit;
- QltyInspectionGenRule.SetFilter("Activation Trigger", '<>%1', QltyInspectionGenRule."Activation Trigger"::Disabled);
- if QltyInspectionGenRule.IsEmpty() then
+ QltyInspectCreationRule.SetFilter("Activation Trigger", '<>%1', QltyInspectCreationRule."Activation Trigger"::Disabled);
+ if QltyInspectCreationRule.IsEmpty() then
exit;
if not GuiAllowed() then
exit;
if Confirm(ShouldDisableInspectionGenerationRulesQst) then begin
- QltyInspectionGenRule.ModifyAll("Activation Trigger", QltyInspectionGenRule."Activation Trigger"::Disabled);
+ QltyInspectCreationRule.ModifyAll("Activation Trigger", QltyInspectCreationRule."Activation Trigger"::Disabled);
Message(InspectionGenerationRulesHaveBeenDisabledMsg);
end;
end;
@@ -326,16 +326,16 @@ table 20400 "Qlty. Management Setup"
trigger OnValidate()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
SanityCheckReceiveSettings();
if (Rec."Warehouse Receipt Trigger" <> xRec."Warehouse Receipt Trigger") and (xRec."Warehouse Receipt Trigger" <> xRec."Warehouse Receipt Trigger"::NoTrigger) then begin
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::"Warehouse Receipt");
- QltyInspectionGenRule.SetRange("Warehouse Receipt Trigger", xRec."Warehouse Receipt Trigger");
- if (not QltyInspectionGenRule.IsEmpty()) and GuiAllowed() then
- if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectionGenRule.Count(), xRec."Warehouse Receipt Trigger", Rec."Warehouse Receipt Trigger")) then
- QltyInspectionGenRule.ModifyAll("Warehouse Receipt Trigger", Rec."Warehouse Receipt Trigger", false);
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::"Warehouse Receipt");
+ QltyInspectCreationRule.SetRange("Warehouse Receipt Trigger", xRec."Warehouse Receipt Trigger");
+ if (not QltyInspectCreationRule.IsEmpty()) and GuiAllowed() then
+ if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectCreationRule.Count(), xRec."Warehouse Receipt Trigger", Rec."Warehouse Receipt Trigger")) then
+ QltyInspectCreationRule.ModifyAll("Warehouse Receipt Trigger", Rec."Warehouse Receipt Trigger", false);
end;
end;
}
@@ -345,14 +345,14 @@ table 20400 "Qlty. Management Setup"
ToolTip = 'Specifies a default purchase order trigger value for Inspection Generation Rules to create an inspection.';
trigger OnValidate()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if (Rec."Purchase Order Trigger" <> xRec."Purchase Order Trigger") and (xRec."Purchase Order Trigger" <> xRec."Purchase Order Trigger"::NoTrigger) then begin
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Purchase);
- QltyInspectionGenRule.SetRange("Purchase Order Trigger", xRec."Purchase Order Trigger");
- if (not QltyInspectionGenRule.IsEmpty()) and GuiAllowed() then
- if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectionGenRule.Count(), xRec."Purchase Order Trigger", Rec."Purchase Order Trigger")) then
- QltyInspectionGenRule.ModifyAll("Purchase Order Trigger", Rec."Purchase Order Trigger", false);
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Purchase);
+ QltyInspectCreationRule.SetRange("Purchase Order Trigger", xRec."Purchase Order Trigger");
+ if (not QltyInspectCreationRule.IsEmpty()) and GuiAllowed() then
+ if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectCreationRule.Count(), xRec."Purchase Order Trigger", Rec."Purchase Order Trigger")) then
+ QltyInspectCreationRule.ModifyAll("Purchase Order Trigger", Rec."Purchase Order Trigger", false);
end;
end;
}
@@ -363,14 +363,14 @@ table 20400 "Qlty. Management Setup"
trigger OnValidate()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if (Rec."Sales Return Trigger" <> xRec."Sales Return Trigger") and (xRec."Sales Return Trigger" <> xRec."Sales Return Trigger"::NoTrigger) then begin
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::"Sales Return");
- QltyInspectionGenRule.SetRange("Sales Return Trigger", xRec."Sales Return Trigger");
- if (not QltyInspectionGenRule.IsEmpty()) and GuiAllowed() then
- if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectionGenRule.Count(), xRec."Sales Return Trigger", Rec."Sales Return Trigger")) then
- QltyInspectionGenRule.ModifyAll("Sales Return Trigger", Rec."Sales Return Trigger", false);
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::"Sales Return");
+ QltyInspectCreationRule.SetRange("Sales Return Trigger", xRec."Sales Return Trigger");
+ if (not QltyInspectCreationRule.IsEmpty()) and GuiAllowed() then
+ if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectCreationRule.Count(), xRec."Sales Return Trigger", Rec."Sales Return Trigger")) then
+ QltyInspectCreationRule.ModifyAll("Sales Return Trigger", Rec."Sales Return Trigger", false);
end;
end;
}
@@ -381,14 +381,14 @@ table 20400 "Qlty. Management Setup"
trigger OnValidate()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if (Rec."Transfer Order Trigger" <> xRec."Transfer Order Trigger") and (xRec."Transfer Order Trigger" <> xRec."Transfer Order Trigger"::NoTrigger) then begin
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Transfer);
- QltyInspectionGenRule.SetRange("Transfer Order Trigger", xRec."Transfer Order Trigger");
- if (not QltyInspectionGenRule.IsEmpty()) and GuiAllowed() then
- if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectionGenRule.Count(), xRec."Transfer Order Trigger", Rec."Transfer Order Trigger")) then
- QltyInspectionGenRule.ModifyAll("Transfer Order Trigger", Rec."Transfer Order Trigger", false);
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Transfer);
+ QltyInspectCreationRule.SetRange("Transfer Order Trigger", xRec."Transfer Order Trigger");
+ if (not QltyInspectCreationRule.IsEmpty()) and GuiAllowed() then
+ if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectCreationRule.Count(), xRec."Transfer Order Trigger", Rec."Transfer Order Trigger")) then
+ QltyInspectCreationRule.ModifyAll("Transfer Order Trigger", Rec."Transfer Order Trigger", false);
end;
end;
}
@@ -399,14 +399,14 @@ table 20400 "Qlty. Management Setup"
trigger OnValidate()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
if (Rec."Assembly Trigger" <> xRec."Assembly Trigger") and (xRec."Assembly Trigger" <> xRec."Assembly Trigger"::NoTrigger) then begin
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Assembly);
- QltyInspectionGenRule.SetRange("Assembly Trigger", xRec."Assembly Trigger");
- if (not QltyInspectionGenRule.IsEmpty()) and GuiAllowed() then
- if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectionGenRule.Count(), xRec."Assembly Trigger", Rec."Assembly Trigger")) then
- QltyInspectionGenRule.ModifyAll("Assembly Trigger", Rec."Assembly Trigger", false);
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Assembly);
+ QltyInspectCreationRule.SetRange("Assembly Trigger", xRec."Assembly Trigger");
+ if (not QltyInspectCreationRule.IsEmpty()) and GuiAllowed() then
+ if Confirm(StrSubstNo(ConfirmExistingRulesQst, QltyInspectCreationRule.Count(), xRec."Assembly Trigger", Rec."Assembly Trigger")) then
+ QltyInspectCreationRule.ModifyAll("Assembly Trigger", Rec."Assembly Trigger", false);
end;
end;
}
diff --git a/src/Apps/W1/Quality Management/app/src/Setup/SetupWizard/QltyManagementSetupWizard.Page.al b/src/Apps/W1/Quality Management/app/src/Setup/SetupWizard/QltyManagementSetupWizard.Page.al
index b7e8b3da26..2b5986ca9e 100644
--- a/src/Apps/W1/Quality Management/app/src/Setup/SetupWizard/QltyManagementSetupWizard.Page.al
+++ b/src/Apps/W1/Quality Management/app/src/Setup/SetupWizard/QltyManagementSetupWizard.Page.al
@@ -269,7 +269,7 @@ page 20438 "Qlty. Management Setup Wizard"
trigger OnDrillDown()
begin
- Page.RunModal(Page::"Qlty. Inspection Gen. Rules");
+ Page.RunModal(Page::"Qlty. Inspect. Creation Rules");
end;
}
}
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsCreateInspect.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsCreateInspect.Codeunit.al
index d5279bed30..55a184d597 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsCreateInspect.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsCreateInspect.Codeunit.al
@@ -47,7 +47,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
ClaimedInspectionWasFoundOrCreated: Boolean;
BeforeCount: Integer;
@@ -58,7 +58,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
QltyInspectionHeader.Reset();
BeforeCount := QltyInspectionHeader.Count();
@@ -68,7 +68,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [WHEN] CreateInspection is called with AlwaysCreate set to true
ClaimedInspectionWasFoundOrCreated := QltyInspectionCreate.CreateInspection(ProdOrderRoutingLineRecordRefRecordRef, false);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] The function claims an inspection was found or created
LibraryAssert.IsTrue(ClaimedInspectionWasFoundOrCreated, 'Should claim an inspection has been found/created');
@@ -106,7 +106,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
QltyCreateInspectBehavior: Enum "Qlty. Inspect. Creation Option";
ClaimedInspectionWasFoundOrCreated: Boolean;
@@ -118,7 +118,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] A first inspection is created
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -143,7 +143,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Inspection Creation Option" := QltyCreateInspectBehavior;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionHeader.Reset();
AfterCount := QltyInspectionHeader.Count();
@@ -166,7 +166,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
QltyCreateInspectBehavior: Enum "Qlty. Inspect. Creation Option";
ClaimedInspectionWasFoundOrCreated: Boolean;
@@ -178,7 +178,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] A first inspection is created
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -201,7 +201,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Inspection Creation Option" := QltyCreateInspectBehavior;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionHeader.Reset();
AfterCount := QltyInspectionHeader.Count();
@@ -224,7 +224,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
QltyCreateInspectBehavior: Enum "Qlty. Inspect. Creation Option";
BeforeCount: Integer;
@@ -236,7 +236,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] A first inspection is created
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -258,7 +258,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Inspection Creation Option" := QltyCreateInspectBehavior;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionHeader.Reset();
AfterCount := QltyInspectionHeader.Count();
@@ -281,7 +281,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
QltyCreateInspectBehavior: Enum "Qlty. Inspect. Creation Option";
BeforeCount: Integer;
@@ -293,7 +293,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] A first inspection is created
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -319,7 +319,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Inspection Creation Option" := QltyCreateInspectBehavior;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionHeader.Reset();
AfterCount := QltyInspectionHeader.Count();
@@ -342,7 +342,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
QltyCreateInspectBehavior: Enum "Qlty. Inspect. Creation Option";
BeforeCount: Integer;
@@ -354,7 +354,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] A first inspection is created
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -380,7 +380,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Inspection Creation Option" := QltyCreateInspectBehavior;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionHeader.Reset();
AfterCount := QltyInspectionHeader.Count();
@@ -402,7 +402,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
QltyCreateInspectBehavior: Enum "Qlty. Inspect. Creation Option";
BeforeCount: Integer;
@@ -414,7 +414,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] A first inspection is created and left open
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -436,7 +436,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Inspection Creation Option" := QltyCreateInspectBehavior;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionHeader.Reset();
AfterCount := QltyInspectionHeader.Count();
@@ -458,7 +458,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
PreviousQltyCreateInspectBehavior: Enum "Qlty. Inspect. Creation Option";
BeforeCount: Integer;
@@ -470,7 +470,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] A first inspection is created
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -496,7 +496,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Inspection Creation Option" := PreviousQltyCreateInspectBehavior;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionHeader.Reset();
AfterCount := QltyInspectionHeader.Count();
@@ -515,7 +515,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
QltyCreateInspectBehavior: Enum "Qlty. Inspect. Creation Option";
BeforeCount: Integer;
@@ -527,7 +527,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] The Inspection Creation Option is set to "Use any existing inspection if available"
QltyManagementSetup.Get();
@@ -545,7 +545,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Inspection Creation Option" := QltyCreateInspectBehavior;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionHeader.Reset();
AfterCount := QltyInspectionHeader.Count();
@@ -564,7 +564,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
ClaimedInspectionWasFoundOrCreated: Boolean;
BeforeCount: Integer;
@@ -575,7 +575,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
QltyInspectionHeader.Reset();
BeforeCount := QltyInspectionHeader.Count();
@@ -600,7 +600,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [THEN] The created inspection has the correct template code
QltyInspectionCreate.GetCreatedInspection(CreatedQltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
LibraryAssert.AreEqual(
QltyInspectionTemplateHdr.Code,
@@ -623,7 +623,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
ClaimedInspectionWasFoundOrCreated: Boolean;
BeforeCount: Integer;
@@ -634,7 +634,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
QltyInspectionHeader.Reset();
BeforeCount := QltyInspectionHeader.Count();
@@ -659,7 +659,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [THEN] The created inspection uses the specified template code
QltyInspectionCreate.GetCreatedInspection(QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
LibraryAssert.AreEqual(
QltyInspectionTemplateHdr.Code,
@@ -687,7 +687,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ItemJournalLine: Record "Item Journal Line";
OutputItemLedgerEntry: Record "Item Ledger Entry";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProductionTrigger: Enum "Qlty. Production Order Trigger";
ClaimedInspectionWasFoundOrCreated: Boolean;
BeforeCount: Integer;
@@ -698,7 +698,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] production order trigger is disabled temporarily
QltyManagementSetup.Get();
@@ -724,7 +724,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionCreate.GetCreatedInspection(CreatedQltyInspectionHeader);
QltyManagementSetup."Production Order Trigger" := ProductionTrigger;
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyManagementSetup.Modify();
// [THEN] An inspection is claimed to be created
@@ -764,7 +764,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ProdOrderLine: Record "Prod. Order Line";
ItemJournalLine: Record "Item Journal Line";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
UnusedVariant1: Variant;
ProductionTrigger: Enum "Qlty. Production Order Trigger";
ClaimedInspectionWasFoundOrCreated: Boolean;
@@ -776,7 +776,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] production order trigger is disabled temporarily
QltyManagementSetup.Get();
@@ -796,7 +796,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionCreate.GetCreatedInspection(CreatedQltyInspectionHeader);
QltyManagementSetup."Production Order Trigger" := ProductionTrigger;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] An inspection is claimed to be created
LibraryAssert.IsTrue(ClaimedInspectionWasFoundOrCreated, 'An inspection should have been claimed to be created.');
@@ -834,7 +834,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ProdOrderLine: Record "Prod. Order Line";
ItemJournalLine: Record "Item Journal Line";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
UnusedVariant1: Variant;
UnusedVariant2: Variant;
QltyProductionTrigger: Enum "Qlty. Production Order Trigger";
@@ -847,7 +847,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] production order trigger is disabled temporarily
QltyManagementSetup.Get();
@@ -868,7 +868,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Production Order Trigger" := QltyProductionTrigger;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] An inspection is claimed to be created
LibraryAssert.IsTrue(ClaimedInspectionWasFoundOrCreated, 'An inspection should have been claimed to be created.');
@@ -908,7 +908,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ProdOrderLine: Record "Prod. Order Line";
ItemJournalLine: Record "Item Journal Line";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
UnusedVariant1: Variant;
UnusedVariant2: Variant;
UnusedVariant3: Variant;
@@ -922,7 +922,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] production order trigger is disabled temporarily
QltyManagementSetup.Get();
@@ -943,7 +943,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Production Order Trigger" := ProductionTrigger;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] An inspection is claimed to be created
LibraryAssert.IsTrue(ClaimedInspectionWasFoundOrCreated, 'An inspection should have been created');
@@ -981,7 +981,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ItemJournalLine: Record "Item Journal Line";
OutputItemLedgerEntry: Record "Item Ledger Entry";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProductionTrigger: Enum "Qlty. Production Order Trigger";
ClaimedInspectionWasFoundOrCreated: Boolean;
BeforeCount: Integer;
@@ -992,7 +992,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] production order trigger is disabled temporarily
QltyManagementSetup.Get();
@@ -1019,7 +1019,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Production Order Trigger" := ProductionTrigger;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] An inspection is claimed to be created
LibraryAssert.IsTrue(ClaimedInspectionWasFoundOrCreated, 'An inspection should have been claimed to be created');
@@ -1137,7 +1137,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
ClaimedInspectionWasFoundOrCreated: Boolean;
BeforeCount: Integer;
@@ -1147,7 +1147,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Initialize();
// [GIVEN] A production order with routing line is set up with an inspection template and generation rule
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] The initial inspection count is captured
QltyInspectionHeader.Reset();
@@ -1160,7 +1160,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [WHEN] CreateInspectionWithSpecificTemplate is called with the template code
ClaimedInspectionWasFoundOrCreated := QltyInspectionCreate.CreateInspectionWithSpecificTemplate(ProdOrderRoutingLineRecordRefRecordRef, false, QltyInspectionTemplateHdr.Code);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] The inspection creation is confirmed successful
LibraryAssert.IsTrue(ClaimedInspectionWasFoundOrCreated, 'An inspection should have been claimed to be created.');
@@ -1197,7 +1197,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
BlankTemplateTok: Label '', Locked = true;
begin
@@ -1205,11 +1205,11 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] All generation rules are deleted
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.DeleteAll(false);
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.DeleteAll(false);
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
// [WHEN] CreateInspectionWithSpecificTemplate is called with a non-existent template code
@@ -1227,9 +1227,9 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
UnusedVariant1: Variant;
UnusedVariant2: Variant;
@@ -1240,7 +1240,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
QltyInspectionHeader.Reset();
ClearLastError();
@@ -1248,9 +1248,9 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
// [WHEN] FindExistingInspectionWithVariant is called with FindAll=true when no inspections exist
- FoundInspection := QltyInspectionCreate.FindExistingInspectionWithVariant(ProdOrderRoutingLineRecordRefRecordRef, UnusedVariant1, UnusedVariant2, UnusedVariant3, TempQltyInspectionGenRule, FoundQltyInspectionHeader, true);
+ FoundInspection := QltyInspectionCreate.FindExistingInspectionWithVariant(ProdOrderRoutingLineRecordRefRecordRef, UnusedVariant1, UnusedVariant2, UnusedVariant3, TempQltyInspectCreationRule, FoundQltyInspectionHeader, true);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] No inspection is found and the count is zero
LibraryAssert.IsFalse(FoundInspection, 'Should not find any inspections.');
@@ -1266,9 +1266,9 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
UnusedVariant1: Variant;
UnusedVariant2: Variant;
@@ -1279,7 +1279,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] An inspection is created with a re-inspection
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -1291,8 +1291,8 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
Clear(FoundQltyInspectionHeader);
// [WHEN] FindExistingInspectionWithVariant is called with FindAll=true
- FoundInspection := QltyInspectionCreate.FindExistingInspectionWithVariant(ProdOrderRoutingLineRecordRefRecordRef, UnusedVariant1, UnusedVariant2, UnusedVariant3, TempQltyInspectionGenRule, FoundQltyInspectionHeader, true);
- QltyInspectionGenRule.Delete();
+ FoundInspection := QltyInspectionCreate.FindExistingInspectionWithVariant(ProdOrderRoutingLineRecordRefRecordRef, UnusedVariant1, UnusedVariant2, UnusedVariant3, TempQltyInspectCreationRule, FoundQltyInspectionHeader, true);
+ QltyInspectCreationRule.Delete();
// [THEN] Both inspections are found
LibraryAssert.IsTrue(FoundInspection, 'Should claim inspection found.');
@@ -1306,9 +1306,9 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
UnusedVariant1: Variant;
UnusedVariant2: Variant;
@@ -1319,13 +1319,13 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
// [WHEN] FindExistingInspectionWithVariant is called with FindAll=false when no inspection exist
- FoundInspection := QltyInspectionCreate.FindExistingInspectionWithVariant(ProdOrderRoutingLineRecordRefRecordRef, UnusedVariant1, UnusedVariant2, UnusedVariant3, TempQltyInspectionGenRule, FoundQltyInspectionHeader, false);
- QltyInspectionGenRule.Delete();
+ FoundInspection := QltyInspectionCreate.FindExistingInspectionWithVariant(ProdOrderRoutingLineRecordRefRecordRef, UnusedVariant1, UnusedVariant2, UnusedVariant3, TempQltyInspectCreationRule, FoundQltyInspectionHeader, false);
+ QltyInspectCreationRule.Delete();
// [THEN] No inspection is found and the count is zero
LibraryAssert.IsFalse(FoundInspection, 'Should not find any inspections.');
@@ -1341,9 +1341,9 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
- TempQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
UnusedVariant1: Variant;
UnusedVariant2: Variant;
@@ -1354,7 +1354,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] An inspection is created with a re-inspection
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -1364,8 +1364,8 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionCreate.CreateReinspection(QltyInspectionHeader, ReQltyInspectionHeader);
// [WHEN] FindExistingInspectionWithVariant is called with FindAll=false
- FoundInspection := QltyInspectionCreate.FindExistingInspectionWithVariant(ProdOrderRoutingLineRecordRefRecordRef, UnusedVariant1, UnusedVariant2, UnusedVariant3, TempQltyInspectionGenRule, FoundQltyInspectionHeader, false);
- QltyInspectionGenRule.Delete();
+ FoundInspection := QltyInspectionCreate.FindExistingInspectionWithVariant(ProdOrderRoutingLineRecordRefRecordRef, UnusedVariant1, UnusedVariant2, UnusedVariant3, TempQltyInspectCreationRule, FoundQltyInspectionHeader, false);
+ QltyInspectCreationRule.Delete();
// [THEN] Only the last created inspection (the re-inspection) is found
LibraryAssert.IsTrue(FoundInspection, 'Should claim found inspection.');
@@ -1381,18 +1381,18 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
FoundInspection: Boolean;
begin
// [SCENARIO] Verify no inspections are found when searching for nonexistent inspections
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [WHEN] FindExistingInspectionWithVariant is called when no inspections exist
FoundInspection := QltyInspectionCreate.FindExistingInspectionWithVariant(false, ProdOrderRoutingLine, FoundQltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] No inspection is found and the count matches the total inspection count
LibraryAssert.IsFalse(FoundInspection, 'Should not find any inspections.');
@@ -1408,14 +1408,14 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdProductionOrder: Record "Production Order";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
begin
// [SCENARIO] Retrieve an existing inspection when one exists for the production order routing line
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] An inspection is created for the production order routing line
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -1424,7 +1424,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [WHEN] FindExistingInspectionWithVariant is called with the routing line
QltyInspectionCreate.FindExistingInspectionWithVariant(false, ProdOrderRoutingLine, FoundQltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] Exactly one inspection is found with the correct inspection number
LibraryAssert.AreEqual(1, FoundQltyInspectionHeader.Count(), 'There should be exactly one inspection found.');
@@ -1436,7 +1436,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
var
FoundQltyInspectionHeader: Record "Qlty. Inspection Header";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
begin
// [SCENARIO] Verify error when no generation rule exists and ThrowError is true
@@ -1447,7 +1447,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
// [GIVEN] All generation rules are deleted
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [WHEN] FindExistingInspectionWithVariant is called with ThrowError=true
asserterror QltyInspectionCreate.FindExistingInspectionWithVariant(true, ProdOrderRoutingLine, FoundQltyInspectionHeader);
@@ -1485,7 +1485,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
FoundQltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ProdOrderLine: Record "Prod. Order Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
ItemJournalLine: Record "Item Journal Line";
OutputItemLedgerEntry: Record "Item Ledger Entry";
@@ -1498,7 +1498,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
// [GIVEN] All generation rules are deleted
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [WHEN] FindExistingInspectionWithMultipleVariants is called with ThrowError=true
asserterror QltyInspectionUtility.FindExistingInspectionWithMultipleVariants(true, ProdOrderRoutingLine, OutputItemLedgerEntry, ItemJournalLine, ProdOrderLine, FoundQltyInspectionHeader);
@@ -1521,7 +1521,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ItemJournalLine: Record "Item Journal Line";
OutputItemLedgerEntry: Record "Item Ledger Entry";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyProdOrderGenerator: Codeunit "Qlty. Prod. Order Generator";
ProductionTrigger: Enum "Qlty. Production Order Trigger";
FoundInspection: Boolean;
@@ -1530,7 +1530,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] production order trigger is disabled temporarily
QltyManagementSetup.Get();
@@ -1560,7 +1560,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup."Production Order Trigger" := ProductionTrigger;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] The inspection is found with the correct inspection number
LibraryAssert.IsTrue(FoundInspection, 'Should have found inspections.');
@@ -1580,7 +1580,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ItemJournalLine: Record "Item Journal Line";
OutputItemLedgerEntry: Record "Item Ledger Entry";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
BeforeCount: Integer;
FoundInspection: Boolean;
begin
@@ -1588,7 +1588,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template, generation rule, item, and production order are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] A production order line is created and output is posted
CreateProdOrderLineAndPostOutput(Item, ProdProductionOrder, ProdOrderLine, 1, ItemJournalLine);
@@ -1605,7 +1605,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [WHEN] FindExistingInspectionWithMultipleVariants is called when no inspections have been created
QltyInspectionUtility.FindExistingInspectionWithMultipleVariants(false, ProdOrderRoutingLine, OutputItemLedgerEntry, ItemJournalLine, ProdOrderLine, FoundQltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] No inspection is found and the count matches the initial count
LibraryAssert.IsFalse(FoundInspection, 'There should not be any inspections found.');
@@ -1710,7 +1710,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
[Test]
procedure FindExistingInspection_BySourceRecord_NoGenRule()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
FoundQltyInspectionHeader: Record "Qlty. Inspection Header";
QltyManagementSetup: Record "Qlty. Management Setup";
@@ -1739,8 +1739,8 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
CreateInspectionWithTracking(PurOrdPurchaseLine, TempSpecTrackingSpecification, QltyInspectionHeader);
// [GIVEN] All generation rules are deleted
- if not QltyInspectionGenRule.IsEmpty() then
- QltyInspectionGenRule.DeleteAll();
+ if not QltyInspectCreationRule.IsEmpty() then
+ QltyInspectCreationRule.DeleteAll();
PurchaseLineRecordRef.GetTable(PurOrdPurchaseLine);
TrackingSpecificationRecordRef.GetTable(TempSpecTrackingSpecification);
@@ -2041,7 +2041,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
ReQltyInspectionHeader: Record "Qlty. Inspection Header";
ProdProductionOrder: Record "Production Order";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
ClaimedInspectionWasFoundOrCreated: Boolean;
begin
@@ -2049,7 +2049,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] An inspection is created from the production order routing line
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -2062,7 +2062,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [WHEN] CreateReinspection is called with the existing inspection
QltyInspectionCreate.CreateReinspection(QltyInspectionHeader, ReQltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] The re-inspection has the same template code as the original inspection
LibraryAssert.AreEqual(QltyInspectionHeader."Template Code", ReQltyInspectionHeader."Template Code", 'Template does not match.');
@@ -2081,7 +2081,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionHeader: Record "Qlty. Inspection Header";
ProdProductionOrder: Record "Production Order";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderRoutingLineRecordRefRecordRef: RecordRef;
ClaimedInspectionWasFoundOrCreated: Boolean;
InspectionStillExists: Boolean;
@@ -2090,7 +2090,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template, generation rule, item, and production order with routing line are set up
Initialize();
- SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectionGenRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
+ SetupCreateInspectionProductionOrder(QltyInspectionTemplateHdr, QltyInspectCreationRule, Item, ProdProductionOrder, ProdOrderRoutingLine);
// [GIVEN] An inspection is created from the production order routing line
ProdOrderRoutingLineRecordRefRecordRef.GetTable(ProdOrderRoutingLine);
@@ -2103,7 +2103,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [WHEN] GetCreatedInspection is called to retrieve the most recently created inspection
InspectionStillExists := QltyInspectionCreate.GetCreatedInspection(CreatedQltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] The inspection is confirmed to exist
LibraryAssert.IsTrue(InspectionStillExists, 'Inspection should be said to exist.');
@@ -2124,7 +2124,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
PurchaseLine: Record "Purchase Line";
ReservationEntry: Record "Reservation Entry";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
TempSpecTrackingSpecification: Record "Tracking Specification" temporary;
PurchLineReserve: Codeunit "Purch. Line-Reserve";
LibraryWarehouse: Codeunit "Library - Warehouse";
@@ -2141,7 +2141,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template is created
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
// [GIVEN] A generation rule is created for purchase lines
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location, lot tracked item, and vendor are created
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -2177,7 +2177,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionUtility.CreateMultipleInspectionsForMarkedTrackingSpecification(TempSpecTrackingSpecification);
CountAfter := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] Two inspections are created (one for each marked tracking specification)
LibraryAssert.AreEqual((CountBefore + 2), CountAfter, 'The inspections should have been created.');
@@ -2205,7 +2205,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
LotNoSeriesLine: Record "No. Series Line";
LotAndSerialItemTrackingCode: Record "Item Tracking Code";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
TempSpecTrackingSpecification: Record "Tracking Specification" temporary;
PurchLineReserve: Codeunit "Purch. Line-Reserve";
LibraryWarehouse: Codeunit "Library - Warehouse";
@@ -2224,7 +2224,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A quality inspection template with 3 inspections and a prioritized generation rule for Purchase Line are created
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A WMS location, number series, item tracking code, and lot-tracked item are set up
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
LibraryUtility.CreateNoSeries(LotAndSerialNoSeries, true, true, false);
@@ -2259,7 +2259,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [WHEN] CreateMultipleInspectionsForMarkedTrackingSpecification is called with the marked tracking specification
QltyInspectionUtility.CreateMultipleInspectionsForMarkedTrackingSpecification(TempSpecTrackingSpecification);
CountAfter := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] Only 1 inspection is created
LibraryAssert.AreEqual((CountBefore + 1), CountAfter, 'Only 1 inspection should have been created.');
@@ -2272,7 +2272,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
procedure CreateMultipleInspectionsForMultipleRecords()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
CreatedQltyInspectionHeader: Record "Qlty. Inspection Header";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
@@ -2290,7 +2290,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A quality inspection template with 3 inspections and a prioritized generation rule for Prod. Order Routing Line are created
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] A production order generator is initialized with Item source type only
QltyProdOrderGenerator.Init(100);
@@ -2314,7 +2314,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionUtility.CreateMultipleInspectionsForMultipleRecords(ProdOrderRoutingLineRecordRef, false);
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] 3 inspections are created (one for each production order)
LibraryAssert.AreEqual((BeforeCount + 3), AfterCount, 'Did not create the correct number of inspections.');
@@ -2331,7 +2331,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
CreatedQltyInspectionHeader: Record "Qlty. Inspection Header";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
@@ -2353,7 +2353,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup.Modify();
// [GIVEN] A quality inspection template with 3 inspections and a prioritized generation rule for Prod. Order Routing Line are created
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] A production order generator is initialized with Item source type only
QltyProdOrderGenerator.Init(100);
@@ -2377,7 +2377,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionUtility.CreateMultipleInspectionsForMultipleRecords(ProdOrderRoutingLineRecordRef, false);
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyManagementSetup.Modify();
// [THEN] 3 inspections are created (one for each production order)
@@ -2395,7 +2395,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
CreatedQltyInspectionHeader: Record "Qlty. Inspection Header";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
@@ -2415,7 +2415,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyManagementSetup.Get();
// [GIVEN] A quality inspection template with 3 inspections and a prioritized generation rule for Prod. Order Routing Line are created
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] A production order generator is initialized with Item source type only
QltyProdOrderGenerator.Init(100);
@@ -2438,7 +2438,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
QltyInspectionUtility.CreateMultipleInspectionsForMultipleRecords(ProdOrderRoutingLineRecordRef, false);
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] 1 inspection is created
LibraryAssert.AreEqual((BeforeCount + 1), AfterCount, 'Did not create the correct number of inspections.');
@@ -2477,7 +2477,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
procedure CreateMultipleInspectionsForMultipleRecords_NoGenRule_ShouldError()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ProdOrderLine: Record "Prod. Order Line";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
QltyProdOrderGenerator: Codeunit "Qlty. Prod. Order Generator";
@@ -2493,8 +2493,8 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
// [GIVEN] A quality inspection template with 3 inspections is created
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
// [GIVEN] All generation rules are deleted to simulate missing rule scenario
- if not QltyInspectionGenRule.IsEmpty() then
- QltyInspectionGenRule.DeleteAll();
+ if not QltyInspectCreationRule.IsEmpty() then
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] A production order generator is initialized with Item source type only
QltyProdOrderGenerator.Init(100);
@@ -2555,7 +2555,7 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
LibraryUtility.CreateNoSeries(LotNoSeries, true, true, false);
LibraryUtility.CreateNoSeriesLine(LotNoSeriesLine, LotNoSeries.Code, '', '');
- LibraryItemTracking.CreateItemTrackingCode(LotItemTrackingCode, false, true, false);
+ LibraryItemTracking.CreateItemTrackingCode(LotItemTrackingCode, true, false);
LibraryInventory.CreateTrackedItem(Item, LotNoSeries.Code, '', LotItemTrackingCode.Code);
LibraryPurchase.CreateVendor(Vendor);
QltyPurOrderGenerator.CreatePurchaseOrder(100, Location, Item, Vendor, '', PurOrderPurchaseHeader, OutPurchaseLine, ReservationEntry);
@@ -2565,13 +2565,13 @@ codeunit 139959 "Qlty. Tests - Create Inspect."
TempOutSpecTrackingSpecification.CopyTrackingFromReservEntry(ReservationEntry);
end;
- local procedure SetupCreateInspectionProductionOrder(var QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; var QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"; var Item: Record Item; var ProdProductionOrder: Record "Production Order"; var ProdOrderRoutingLine: Record "Prod. Order Routing Line")
+ local procedure SetupCreateInspectionProductionOrder(var QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; var QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule"; var Item: Record Item; var ProdProductionOrder: Record "Production Order"; var ProdOrderRoutingLine: Record "Prod. Order Routing Line")
var
GenQltyProdOrderGenerator: Codeunit "Qlty. Prod. Order Generator";
begin
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
end;
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsDispositions.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsDispositions.Codeunit.al
index 2b745d2ade..c5ba3f59bc 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsDispositions.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsDispositions.Codeunit.al
@@ -73,7 +73,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure PurchaseReturnFullLotAdvLocation()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
AdvWhseLocation: Record Location;
Item: Record Item;
Vendor: Record Vendor;
@@ -108,7 +108,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
LibraryAssert.AreEqual(PurOrdPurchaseLine."Quantity (Base)", PurOrdPurchaseLine."Qty. Received (Base)", 'Purchase Order was not fully received.');
// [GIVEN] A quality inspection template and generation rule are created for the purchase line
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with purchase line and tracking
QltyInspectionUtility.CreateInspectionWithPurchaseLineAndTracking(PurOrdPurchaseLine, PurOrdReservationEntry, QltyInspectionHeader);
@@ -123,7 +123,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [WHEN] Purchase return disposition is performed with item tracked quantity behavior
QltyInspectionUtility.PerformPurchaseReturnDisposition(QltyInspectionHeader, Enum::"Qlty. Quantity Behavior"::"Item Tracked Quantity", SpecificQty, '', '', Reason, CreditMemo, TempTrackedPurRtnBufferPurchaseHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [THEN] The inspection assertions verify the purchase return order was created correctly
VerifyInspectionAssertions(100, QltyInspectionHeader, TempTrackedPurRtnBufferPurchaseHeader, PurOrderPurchaseHeader, PurOrdPurchaseLine, CreditMemo, Item."No.", AdvWhseLocation.Code, Reason);
@@ -133,7 +133,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure PurchaseReturnLotTrackedAdvLocation()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
AdvWhseLocation: Record Location;
Item: Record Item;
Vendor: Record Vendor;
@@ -172,7 +172,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
LibraryAssert.AreEqual(PurOrdPurchaseLine."Qty. Received (Base)", PurOrdPurchaseLine."Quantity (Base)", 'Purchase Order was not fully received.');
// [GIVEN] A quality inspection template and generation rule are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with sample, pass, and fail quantities
QltyInspectionUtility.CreateInspectionWithPurchaseLineAndTracking(PurOrdPurchaseLine, PurOrdReservationEntry, QltyInspectionHeader);
QltyInspectionHeader."Sample Size" := 5;
@@ -188,7 +188,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A specific quantity is set for testing
SpecificQty := 9;
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Purchase return disposition is performed with sample quantity behavior
QltyInspectionUtility.PerformPurchaseReturnDisposition(QltyInspectionHeader, Enum::"Qlty. Quantity Behavior"::"Sample Quantity", SpecificQty, '', '', Reason, CreditMemo, TempSamplePurRtnBufferPurchaseHeader);
@@ -215,7 +215,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure PurchaseReturnLotTrackedAdvLocation_MultipleBins()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
AdvWhseLocation: Record Location;
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
@@ -258,7 +258,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
LibraryAssert.AreEqual(PurOrdPurchaseLine."Qty. Received (Base)", PurOrdPurchaseLine."Quantity (Base)", 'Purchase Order was not fully received.');
// [GIVEN] A quality inspection template and generation rule are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with sample, pass, and fail quantities
QltyInspectionUtility.CreateInspectionWithPurchaseLineAndTracking(PurOrdPurchaseLine, PurOrdReservationEntry, QltyInspectionHeader);
QltyInspectionHeader."Sample Size" := 5;
@@ -319,7 +319,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
BinContent.SetRange("Item No.", Item."No.");
LibraryAssert.AreEqual(2, BinContent.Count(), 'Test setup failed. Two bins should have a quantity of 50 each of the item.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Purchase return disposition is performed with item tracked quantity behavior
QltyInspectionUtility.PerformPurchaseReturnDisposition(QltyInspectionHeader, Enum::"Qlty. Quantity Behavior"::"Item Tracked Quantity", SpecificQty, '', '', Reason, CreditMemo, TempSamplePurRtnBufferPurchaseHeader);
@@ -334,7 +334,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure PurchaseReturnFullPackageAdvLocation()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
AdvWhseLocation: Record Location;
Item: Record Item;
PackageNoSeries: Record "No. Series";
@@ -376,7 +376,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
LibraryAssert.AreEqual(PurOrdPurchaseLine."Quantity (Base)", PurOrdPurchaseLine."Qty. Received (Base)", 'Purchase Order was not fully received.');
// [GIVEN] A quality inspection template and generation rule are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with purchase line and tracking
QltyInspectionUtility.CreateInspectionWithPurchaseLineAndTracking(PurOrdPurchaseLine, PurOrdReservationEntry, QltyInspectionHeader);
@@ -388,7 +388,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A specific quantity is set for return
SpecificQty := 9;
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Purchase return disposition is performed with item tracked quantity behavior
QltyInspectionUtility.PerformPurchaseReturnDisposition(QltyInspectionHeader, Enum::"Qlty. Quantity Behavior"::"Item Tracked Quantity", SpecificQty, '', '', Reason, CreditMemo, TempTrackedPurRtnBufferPurchaseHeader);
@@ -400,7 +400,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure PurchaseReturnPackageTrackedAdvLocation()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
AdvWhseLocation: Record Location;
Item: Record Item;
PackageNoSeries: Record "No. Series";
@@ -445,7 +445,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
LibraryAssert.AreEqual(PurOrdPurchaseLine."Qty. Received (Base)", PurOrdPurchaseLine."Quantity (Base)", 'Purchase Order was not fully received.');
// [GIVEN] A quality inspection template and generation rule are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with sample, pass, and fail quantities
QltyInspectionUtility.CreateInspectionWithPurchaseLineAndTracking(PurOrdPurchaseLine, PurOrdReservationEntry, QltyInspectionHeader);
QltyInspectionHeader."Sample Size" := 5;
@@ -461,7 +461,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A specific quantity is set for testing
SpecificQty := 9;
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Purchase return disposition is performed with sample quantity behavior
QltyInspectionUtility.PerformPurchaseReturnDisposition(QltyInspectionHeader, Enum::"Qlty. Quantity Behavior"::"Sample Quantity", SpecificQty, '', '', Reason, CreditMemo, TempSamplePurRtnBufferPurchaseHeader);
@@ -488,7 +488,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure PurchaseReturnUntrackedBasicLocation()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
BasicLocation: Record Location;
Item: Record Item;
Vendor: Record Vendor;
@@ -529,7 +529,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
LibraryAssert.AreEqual(PurOrdPurchaseLine."Qty. Received (Base)", PurOrdPurchaseLine."Quantity (Base)", 'Purchase Order was not fully received.');
// [GIVEN] A quality inspection template and generation rule are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with sample, pass, and fail quantities
QltyInspectionUtility.CreateInspectionWithPurchaseLine(PurOrdPurchaseLine, QltyInspectionTemplateHdr.Code, QltyInspectionHeader);
QltyInspectionHeader."Sample Size" := 5;
@@ -545,7 +545,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A specific quantity is set for testing
SpecificQty := 9;
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Purchase return disposition is performed with sample quantity behavior
QltyInspectionUtility.PerformPurchaseReturnDisposition(QltyInspectionHeader, Enum::"Qlty. Quantity Behavior"::"Sample Quantity", SpecificQty, '', '', Reason, CreditMemo, TempSamplePurRtnBufferPurchaseHeader);
@@ -572,7 +572,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure PurchaseReturn_Unreceived_ShouldErr()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
BasicLocation: Record Location;
Item: Record Item;
Vendor: Record Vendor;
@@ -605,7 +605,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyPurOrderGenerator.CreatePurchaseOrder(100, BasicLocation, Item, Vendor, '', PurOrderPurchaseHeader, PurOrdPurchaseLine, DummyReservationEntry);
// [GIVEN] A quality inspection template and generation rule are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with sample, pass, and fail quantities
QltyInspectionUtility.CreateInspectionWithPurchaseLine(PurOrdPurchaseLine, QltyInspectionTemplateHdr.Code, QltyInspectionHeader);
QltyInspectionHeader."Sample Size" := 5;
@@ -621,7 +621,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A specific quantity is set for testing
SpecificQty := 9;
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Purchase return disposition is attempted on an unreceived purchase order
asserterror QltyInspectionUtility.PerformPurchaseReturnDisposition(QltyInspectionHeader, Enum::"Qlty. Quantity Behavior"::"Sample Quantity", SpecificQty, '', '', Reason, CreditMemo, TempDummyPurchaseHeader);
@@ -633,7 +633,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure PurchaseReturn_NoInventoryFound_ShouldExit()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
BasicLocation: Record Location;
FilterLocation: Record Location;
Item: Record Item;
@@ -670,7 +670,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyPurOrderGenerator.CreatePurchaseOrder(100, BasicLocation, Item, Vendor, '', PurOrderPurchaseHeader, PurOrdPurchaseLine, DummyReservationEntry);
// [GIVEN] A quality inspection template and generation rule are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with sample, pass, and fail quantities
QltyInspectionUtility.CreateInspectionWithPurchaseLine(PurOrdPurchaseLine, QltyInspectionTemplateHdr.Code, QltyInspectionHeader);
QltyInspectionHeader."Sample Size" := 5;
@@ -686,7 +686,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Specific quantity is set to 0
SpecificQty := 0;
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] The initial count of purchase return orders is recorded
ReturnOrderPurchaseHeader.SetRange("Document Type", ReturnOrderPurchaseHeader."Document Type"::"Return Order");
@@ -991,7 +991,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyManagementSetup: Record "Qlty. Management Setup";
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -1011,7 +1011,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup is initialized and an inspection template and rule are created
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A warehouse location with bins but without directed put-away is created
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -1048,7 +1048,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyManagementSetup."Item Journal Batch Name" := ItemJournalBatch.Name;
QltyManagementSetup.Modify();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Negative adjustment disposition is performed with specific quantity
LibraryAssert.IsTrue(QltyInspectionUtility.PerformNegAdjustInvDisposition(QltyInspectionHeader, 50, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity", '', '', QltyItemAdjPostBehavior::"Prepare only", ReasonCode.Code), 'Should have created negative adjustment');
@@ -1073,7 +1073,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
WarehouseEntry: Record "Warehouse Entry";
@@ -1132,7 +1132,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [WHEN] Negative adjustment disposition is performed with specific quantity
LibraryAssert.IsTrue(QltyInspectionUtility.PerformNegAdjustInvDisposition(QltyInspectionHeader, 50, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity", '', '', QltyItemAdjPostBehavior::"Prepare only", ReasonCode.Code), 'Should have created negative adjustment');
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
WarehouseJournalBatch.Delete();
WarehouseJournalTemplate.Delete();
@@ -1153,7 +1153,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
PurOrdReservationEntry: Record "Reservation Entry";
@@ -1250,7 +1250,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [WHEN] Negative adjustment disposition is performed for item tracked quantity
LibraryAssert.IsTrue(QltyInspectionUtility.PerformNegAdjustInvDisposition(QltyInspectionHeader, 0, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Item Tracked Quantity", '', '', QltyItemAdjPostBehavior::"Prepare only", ReasonCode.Code), 'Should have created negative adjustment');
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
ReclassWarehouseJournalBatch.Delete();
ReclassWarehouseJournalTemplate.Delete();
WarehouseJournalBatch.Delete();
@@ -1274,7 +1274,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
PurOrdReservationEntry: Record "Reservation Entry";
@@ -1294,7 +1294,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup is initialized and an inspection template is created for purchase lines
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A warehouse location with bins is created (non-directed)
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -1334,7 +1334,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [WHEN] Negative adjustment disposition is performed and posted with specific quantity
LibraryAssert.IsTrue(QltyInspectionUtility.PerformNegAdjustInvDisposition(QltyInspectionHeader, 50, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity", '', '', QltyItemAdjPostBehavior::Post, ReasonCode.Code), 'Should have posted negative adjustment');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
ItemJournalBatch.Delete();
ItemJournalTemplate.Delete();
@@ -1355,7 +1355,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
PurOrdReservationEntry: Record "Reservation Entry";
@@ -1414,7 +1414,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [WHEN] Negative adjustment disposition is performed and registered with specific quantity
LibraryAssert.IsTrue(QltyInspectionUtility.PerformNegAdjustInvDisposition(QltyInspectionHeader, 50, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity", '', '', QltyItemAdjPostBehavior::Post, ReasonCode.Code), 'Should have registered negative adjustment');
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
WarehouseJournalBatch.Delete();
WarehouseJournalTemplate.Delete();
@@ -1432,7 +1432,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure CreateNegativeAdjustmentWithTrackedQty_Untracked_ShouldErr()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -1448,7 +1448,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup is initialized and an inspection template is created for warehouse entries
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A full warehouse management location with directed put-away is created
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -1469,7 +1469,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
WarehouseEntry.FindFirst();
QltyInspectionUtility.CreateInspectionWithWarehouseEntry(WarehouseEntry, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Negative adjustment disposition is performed with Item Tracked Quantity behavior on untracked item
asserterror QltyInspectionUtility.PerformNegAdjustInvDisposition(QltyInspectionHeader, 50, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Item Tracked Quantity", '', '', QltyItemAdjPostBehavior::Post, '');
@@ -1482,7 +1482,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure CreateNegativeAdjustment_NoInventoryFound_ShouldExit()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Location: Record Location;
FilterLocation: Record Location;
@@ -1502,7 +1502,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup is initialized and an inspection template is created for purchase lines
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A full warehouse management location and a separate filter location are created
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -1536,7 +1536,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [THEN] No adjustment journal line is created
LibraryAssert.IsTrue(WarehouseJournalLine.IsEmpty(), 'No adjustment line should have been created');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
WarehouseJournalBatch.Delete();
WarehouseJournalTemplate.Delete();
end;
@@ -1546,7 +1546,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
Location: Record Location;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -1562,7 +1562,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup is initialized and an inspection template is created for purchase lines
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A warehouse location with bins is created (non-directed)
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -1584,7 +1584,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A quality inspection is created with the purchase line
QltyInspectionUtility.CreateInspectionWithPurchaseLine(PurchaseLine, QltyInspectionTemplateHdr.Code, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] The Item Journal Batch Name is cleared from quality management setup
QltyManagementSetup.Get();
@@ -1603,7 +1603,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -1619,7 +1619,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup is initialized and an inspection template is created for warehouse entries
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A full warehouse management location with directed put-away is created
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -1640,7 +1640,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
WarehouseEntry.FindFirst();
QltyInspectionUtility.CreateInspectionWithWarehouseEntry(WarehouseEntry, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] The warehouse Item Journal Batch Name is cleared from quality management setup
QltyManagementSetup.Get();
@@ -1659,7 +1659,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
Location: Record Location;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -1677,7 +1677,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] An inspection template and generation rule for purchase lines are created
// [GIVEN] An inspection template and generation rule for purchase lines are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A location with bins is created
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -1710,7 +1710,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyManagementSetup.Modify();
// [GIVEN] The inspection generation rule and journal batch are then deleted to trigger the error condition
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
ItemJournalBatch.Delete();
// [WHEN] Negative adjustment disposition is attempted
@@ -1723,7 +1723,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure CreateNegativeAdjustment_Directed_CantFindBatch_ShouldErr()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Location: Record Location;
Item: Record Item;
@@ -1741,7 +1741,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] An inspection template and generation rule for purchase lines
// [GIVEN] An inspection template and generation rule for purchase lines
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A full WMS location is created
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -1768,7 +1768,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyManagementSetup.Modify();
// [GIVEN] The inspection generation rule and journal batch are then deleted to trigger the error condition
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
WarehouseJournalBatch.Delete();
// [WHEN] Negative adjustment disposition is performed
@@ -3315,7 +3315,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalWhseItemTrackingLine: Record "Whse. Item Tracking Line";
WarehouseEntry: Record "Warehouse Entry";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
LotNoSeries: Record "No. Series";
@@ -3343,7 +3343,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyManagementSetup."Warehouse Trigger" := QltyManagementSetup."Warehouse Trigger"::NoTrigger;
// [GIVEN] Inspection template and rule for purchase lines are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] Reclassification warehouse journal template and batch are created
LibraryWarehouse.CreateWhseJournalTemplate(ReclassWhseItemWarehouseJournalTemplate, ReclassWhseItemWarehouseJournalTemplate.Type::Reclassification);
@@ -3622,7 +3622,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
ReservationEntry: Record "Reservation Entry";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
WarehouseEntry: Record "Warehouse Entry";
@@ -3639,7 +3639,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A prioritized quality inspection rule is created for warehouse entries
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A full WMS location with directed pick and put is created
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -3693,14 +3693,14 @@ codeunit 139960 "Qlty. Tests - Dispositions"
WarehouseJournalTemplate.Delete();
WarehouseJournalBatch.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
procedure ChangeLotDisposition_NoInventoryFound_ShouldExit()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Location: Record Location;
FilterLocation: Record Location;
@@ -3720,7 +3720,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup and inspection generation rule are initialized
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A full WMS location and a filter location are created
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -3760,7 +3760,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
WarehouseJournalLine.SetRange("Journal Batch Name", WarehouseJournalBatch.Name);
LibraryAssert.IsTrue(WarehouseJournalLine.IsEmpty(), 'No adjustment line should have been created');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
WarehouseJournalBatch.Delete();
WarehouseJournalTemplate.Delete();
end;
@@ -3768,7 +3768,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
[Test]
procedure ChangeLotDisposition_NoTracking_ShouldErr()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Location: Record Location;
Item: Record Item;
@@ -3783,7 +3783,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup and inspection generation rule are initialized
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A full WMS location is created
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -3802,7 +3802,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
TempInstructionQltyDispositionBuffer."Qty. To Handle (Base)" := 6;
TempInstructionQltyDispositionBuffer."Quantity Behavior" := TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity";
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Disposition is attempted without new tracking information
asserterror QltyDispChangeTracking.PerformDisposition(QltyInspectionHeader, TempInstructionQltyDispositionBuffer);
@@ -3814,7 +3814,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure ChangeLotDisposition_NoBatch_Directed_ShouldErr()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Location: Record Location;
Item: Record Item;
@@ -3830,7 +3830,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup is initialized with empty bin warehouse move batch name
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
QltyManagementSetup.Get();
QltyManagementSetup."Whse. Reclass. Batch Name" := '';
QltyManagementSetup.Modify();
@@ -3855,7 +3855,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
TempInstructionQltyDispositionBuffer."Quantity Behavior" := TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity";
TempInstructionQltyDispositionBuffer."New Lot No." := NoSeries.GetNextNo(Item."Lot Nos.");
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Lot disposition is attempted without configured reclassification batch
asserterror QltyDispChangeTracking.PerformDisposition(QltyInspectionHeader, TempInstructionQltyDispositionBuffer);
@@ -3867,7 +3867,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure ChangeLotDisposition_NoBatch_NonDirected_ShouldErr()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Location: Record Location;
Bin: Record Bin;
@@ -3884,7 +3884,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup is initialized with empty Item Reclass. Batch Name
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
QltyManagementSetup.Get();
QltyManagementSetup."Item Reclass. Batch Name" := '';
QltyManagementSetup.Modify();
@@ -3916,7 +3916,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
TempInstructionQltyDispositionBuffer."Quantity Behavior" := TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity";
TempInstructionQltyDispositionBuffer."New Lot No." := NoSeries.GetNextNo(Item."Lot Nos.");
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Lot disposition is attempted without configured bin move batch
asserterror QltyDispChangeTracking.PerformDisposition(QltyInspectionHeader, TempInstructionQltyDispositionBuffer);
@@ -3930,7 +3930,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
Location: Record Location;
DestinationLocation: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -3944,7 +3944,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup and inspection generation rule are initialized
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A non-directed location with bins is created
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -3970,7 +3970,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A quality inspection is created with the purchase line
QltyInspectionUtility.CreateInspectionWithPurchaseLine(PurchaseLine, QltyInspectionTemplateHdr.Code, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Transfer disposition is performed for 50 units to the destination location
LibraryAssert.IsTrue(QltyInspectionUtility.PerformTransferDisposition(QltyInspectionHeader, 50, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity", '', '', DestinationLocation.Code, ''), 'Should have created transfer.');
@@ -4000,7 +4000,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
Location: Record Location;
DestinationLocation: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -4015,7 +4015,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup and inspection generation rule are initialized
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A non-directed source location with bins is created
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -4041,7 +4041,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A quality inspection is created with the purchase line
QltyInspectionUtility.CreateInspectionWithPurchaseLine(PurchaseLine, QltyInspectionTemplateHdr.Code, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Transfer disposition is performed for 50 units to create a direct transfer
LibraryAssert.IsTrue(QltyInspectionUtility.PerformTransferDisposition(QltyInspectionHeader, 50, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity", '', '', DestinationLocation.Code, ''), 'Should have created transfer.');
@@ -4078,7 +4078,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
InTransitLocation: Record Location;
TransferRoute: Record "Transfer Route";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Vendor: Record Vendor;
Item: Record Item;
ItemVariant: Record "Item Variant";
@@ -4095,7 +4095,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup and inspection generation rule are initialized
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A non-directed location with bins, destination location, and in-transit location are created
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -4130,7 +4130,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A quality inspection is created with purchase line and tracking
QltyInspectionUtility.CreateInspectionWithPurchaseLineAndTracking(PurchaseLine, ReservationEntry, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Transfer disposition is performed for 50 units to destination location with in-transit route
LibraryAssert.IsTrue(QltyInspectionUtility.PerformTransferDisposition(QltyInspectionHeader, 50, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity", '', '', DestinationLocation.Code, ''), 'Should have created transfer.');
@@ -4173,7 +4173,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
InTransitLocation: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
ReservationEntry: Record "Reservation Entry";
@@ -4187,7 +4187,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup and inspection generation rule for warehouse entry are initialized
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A full WMS location with directed pick and put-away is created
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -4213,7 +4213,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
WarehouseEntry.FindFirst();
QltyInspectionUtility.CreateInspectionWithWarehouseEntryAndTracking(WarehouseEntry, ReservationEntry, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Transfer disposition is performed for 50 units to destination location with in-transit location
LibraryAssert.IsTrue(QltyInspectionUtility.PerformTransferDisposition(QltyInspectionHeader, 50, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity", '', '', DestinationLocation.Code, InTransitLocation.Code), 'Should have created transfer.');
@@ -4254,7 +4254,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
InTransitLocation: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
ReservationEntry: Record "Reservation Entry";
@@ -4274,7 +4274,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location, destination location, and in-transit location are created
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] Directed, destination, and in-transit locations are configured
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -4341,7 +4341,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
BinContent.SetRange("Location Code", Location.Code);
BinContent.SetRange("Item No.", Item."No.");
LibraryAssert.AreEqual(2, BinContent.Count(), 'Test setup failed. Two bins should have a quantity of 50 each of the item.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Perform disposition to create transfer order with item tracked quantity
LibraryAssert.IsTrue(QltyInspectionUtility.PerformTransferDisposition(QltyInspectionHeader, 0, TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Item Tracked Quantity", '', '', DestinationLocation.Code, InTransitLocation.Code), 'Should have created transfer.');
@@ -4382,7 +4382,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
FilterLocation: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
WarehouseEntry: Record "Warehouse Entry";
@@ -4395,7 +4395,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location, destination location, and filter location are created
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] Directed warehouse location is created with bins
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -4420,7 +4420,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
WarehouseEntry.FindFirst();
QltyInspectionUtility.CreateInspectionWithWarehouseEntry(WarehouseEntry, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Perform disposition is called with a location filter that does not match the inventory location
LibraryAssert.IsFalse(QltyInspectionUtility.PerformTransferDisposition(QltyInspectionHeader, 50,
@@ -4448,7 +4448,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -4466,7 +4466,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A full WMS location with warehouse reclassification batch configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
QltyManagementSetup.Get();
LibraryWarehouse.CreateWhseJournalTemplate(ReclassWhseItemWarehouseJournalTemplate, ReclassWhseItemWarehouseJournalTemplate.Type::Reclassification);
@@ -4519,7 +4519,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalLine.Delete();
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -4527,7 +4527,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -4545,7 +4545,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A full WMS location with warehouse reclassification batch configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -4608,7 +4608,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalLine.Delete();
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -4616,7 +4616,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -4634,7 +4634,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A full WMS location with warehouse reclassification batch configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -4697,7 +4697,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalLine.Delete();
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -4705,7 +4705,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -4723,7 +4723,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A full WMS location with warehouse reclassification batch configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -4786,7 +4786,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalLine.Delete();
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -4794,7 +4794,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
Location: Record Location;
@@ -4812,7 +4812,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location with warehouse reclassification batch configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] Directed warehouse location is created with bins
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -4868,7 +4868,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -4876,7 +4876,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -4898,7 +4898,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A full WMS location with warehouse reclassification batch configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -4987,7 +4987,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -4995,7 +4995,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -5015,7 +5015,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A full WMS location with warehouse reclassification batch configured
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -5073,7 +5073,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5081,7 +5081,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -5098,7 +5098,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with item reclassification batch configured and bins created
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
QltyManagementSetup.Get();
LibraryInventory.CreateItemJournalTemplateByType(ReclassItemJournalTemplate, ReclassItemJournalTemplate.Type::Transfer);
@@ -5153,7 +5153,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalLine.Delete();
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5161,7 +5161,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -5178,7 +5178,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with item reclassification batch configured and bins created
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
QltyManagementSetup.Get();
LibraryInventory.CreateItemJournalTemplateByType(ReclassItemJournalTemplate, ReclassItemJournalTemplate.Type::Transfer);
@@ -5238,7 +5238,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalLine.Delete();
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5246,7 +5246,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -5263,7 +5263,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with item reclassification batch configured and bins created
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
QltyManagementSetup.Get();
LibraryInventory.CreateItemJournalTemplateByType(ReclassItemJournalTemplate, ReclassItemJournalTemplate.Type::Transfer);
@@ -5324,7 +5324,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalLine.Delete();
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5332,7 +5332,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -5349,7 +5349,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with item reclassification batch configured and bins created
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
QltyManagementSetup.Get();
LibraryInventory.CreateItemJournalTemplateByType(ReclassItemJournalTemplate, ReclassItemJournalTemplate.Type::Transfer);
@@ -5410,7 +5410,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalLine.Delete();
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5418,7 +5418,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
Location: Record Location;
@@ -5435,7 +5435,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with item reclassification batch configured and bins created
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] Item reclassification journal template and batch are configured in setup
QltyManagementSetup.Get();
@@ -5492,7 +5492,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5500,7 +5500,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -5521,7 +5521,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with item reclassification batch configured and bins created
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
QltyManagementSetup.Get();
LibraryInventory.CreateItemJournalTemplateByType(ReclassItemJournalTemplate, ReclassItemJournalTemplate.Type::Transfer);
@@ -5605,7 +5605,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5613,7 +5613,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -5632,7 +5632,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with item reclassification batch configured and bins created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
QltyManagementSetup.Get();
LibraryInventory.CreateItemJournalTemplateByType(ReclassItemJournalTemplate, ReclassItemJournalTemplate.Type::Transfer);
@@ -5688,7 +5688,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5742,7 +5742,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -5761,7 +5761,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location is configured with warehouse reclassification batch
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -5815,7 +5815,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5823,7 +5823,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -5841,7 +5841,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location is configured with item reclassification batch
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
QltyManagementSetup.Get();
LibraryInventory.CreateItemJournalTemplateByType(ReclassItemJournalTemplate, ReclassItemJournalTemplate.Type::Transfer);
@@ -5896,7 +5896,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -5904,7 +5904,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
WhseWorksheetTemplate: Record "Whse. Worksheet Template";
WhseWorksheetName: Record "Whse. Worksheet Name";
WhseWorksheetLine: Record "Whse. Worksheet Line";
@@ -5923,7 +5923,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location is configured with movement worksheet template and name
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -5994,7 +5994,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
WhseWorksheetLine.Delete();
WhseWorksheetName.Delete();
WhseWorksheetTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -6002,7 +6002,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -6029,7 +6029,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location is configured with movement worksheet template and name
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -6141,7 +6141,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
WhseWorksheetTemplate.Delete();
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -6149,7 +6149,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
WhseWorksheetTemplate: Record "Whse. Worksheet Template";
WhseWorksheetName: Record "Whse. Worksheet Name";
WhseWorksheetLine: Record "Whse. Worksheet Line";
@@ -6167,7 +6167,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location is configured with movement worksheet template and name
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -6211,7 +6211,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
TempInstructionQltyDispositionBuffer."Quantity Behavior" := TempInstructionQltyDispositionBuffer."Quantity Behavior"::"Specific Quantity";
TempInstructionQltyDispositionBuffer."Entry Behavior" := TempInstructionQltyDispositionBuffer."Entry Behavior"::"Prepare only";
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Disposition action is performed
asserterror QltyDispMoveWorksheet.PerformDisposition(QltyInspectionHeader, TempInstructionQltyDispositionBuffer);
@@ -6227,7 +6227,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
IntMovementNoSeries: Record "No. Series";
IntMovementNoSeriesLine: Record "No. Series Line";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -6242,7 +6242,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with bins is configured and internal movement number series is set up
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -6296,7 +6296,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
LibraryAssert.AreEqual(Bin.Code, InternalMovementLine."To Bin Code", 'Should have correct requested to bin code');
LibraryAssert.AreEqual(50, InternalMovementLine.Quantity, 'Should have correct requested quantity.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -6306,7 +6306,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
IntMovementNoSeries: Record "No. Series";
IntMovementNoSeriesLine: Record "No. Series Line";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -6328,7 +6328,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with bins is configured and internal movement number series is set up
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -6421,7 +6421,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -6429,7 +6429,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -6446,7 +6446,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location with warehouse reclassification batch configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -6503,7 +6503,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassWarehouseJournalLine.Delete();
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -6511,7 +6511,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
WhseWorksheetTemplate: Record "Whse. Worksheet Template";
WhseWorksheetName: Record "Whse. Worksheet Name";
WhseWorksheetLine: Record "Whse. Worksheet Line";
@@ -6529,7 +6529,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location with movement worksheet template and name configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -6600,7 +6600,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
WhseWorksheetLine.Delete();
WhseWorksheetName.Delete();
WhseWorksheetTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -6608,7 +6608,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -6624,7 +6624,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with item reclassification batch configured and bins created
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
QltyManagementSetup.Get();
LibraryInventory.CreateItemJournalTemplateByType(ReclassItemJournalTemplate, ReclassItemJournalTemplate.Type::Transfer);
@@ -6679,7 +6679,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalLine.Delete();
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -6689,7 +6689,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
IntMovementNoSeries: Record "No. Series";
IntMovementNoSeriesLine: Record "No. Series Line";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -6703,7 +6703,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with bins and internal movement number series configured
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -6757,14 +6757,14 @@ codeunit 139960 "Qlty. Tests - Dispositions"
LibraryAssert.AreEqual(Bin.Code, InternalMovementLine."To Bin Code", 'Should have correct requested to bin code');
LibraryAssert.AreEqual(50, InternalMovementLine.Quantity, 'Should have correct requested quantity.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
procedure AutoChooseMoveInventory_NoNewLocationOrBin_ShouldError()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -6777,7 +6777,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location with a quality inspection
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A directed warehouse location is created with bins
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -6809,14 +6809,14 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [THEN] An error is raised indicating there is nothing to move to
LibraryAssert.ExpectedError(StrSubstNo(ThereIsNothingToMoveToErr, QltyInspectionHeader.GetFriendlyIdentifier()));
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
procedure AutoChooseMoveInventory_Directed_NewLocation_ShouldError()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
SecondLocation: Record Location;
Item: Record Item;
@@ -6830,7 +6830,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location with a quality inspection
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A directed warehouse location is created with bins
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -6866,7 +6866,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [THEN] An error is raised indicating that bins cannot be changed between locations for directed pick and put
LibraryAssert.ExpectedError(StrSubstNo(UnableToChangeBinsBetweenLocationsBecauseDirectedPickAndPutErr, QltyInspectionHeader."No.", Location.Code, SecondLocation.Code));
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -6874,7 +6874,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -6891,7 +6891,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A non-directed location with item reclassification batch configured and bins created
QltyInspectionUtility.EnsureSetupExists();
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] Item reclassification journal template and batch are configured
QltyManagementSetup.Get();
@@ -6950,14 +6950,14 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
procedure InternalPutaway_PerformDisposition()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -6973,7 +6973,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location with warehouse number series configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] Warehouse setup has number series configured
LibraryWarehouse.NoSeriesSetup(WarehouseSetup);
@@ -7015,7 +7015,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
procedure WarehousePutaway_PerformDisposition()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -7031,7 +7031,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A directed warehouse location with warehouse number series configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] Warehouse setup has number series configured
LibraryWarehouse.NoSeriesSetup(WarehouseSetup);
@@ -7078,7 +7078,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
Vendor: Record Vendor;
PurchaseHeader: Record "Purchase Header";
@@ -7095,7 +7095,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] Quality management setup with template and generation rule for purchase lines are configured
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location, item, vendor, and purchase order with purchase line are created
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
@@ -7128,7 +7128,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [WHEN] The quantity buffer is populated using inventory availability logic
QltyInventoryAvailability.PopulateQuantityBuffer(QltyInspectionHeader, TempInstructionQltyDispositionBuffer, TempQuantityQltyDispositionBuffer);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
TempQuantityQltyDispositionBuffer.Reset();
@@ -7142,7 +7142,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
[Test]
procedure PostItemJournalForNegativeAdjustmentCreatedFromTest()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Location: Record Location;
Item: Record Item;
@@ -7165,12 +7165,12 @@ codeunit 139960 "Qlty. Tests - Dispositions"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] The generation rule is set to trigger on purchase order receive and automatic only
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::"Automatic only";
- QltyInspectionGenRule."Purchase Order Trigger" := QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::"Automatic only";
+ QltyInspectCreationRule."Purchase Order Trigger" := QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
+ QltyInspectCreationRule.Modify();
// [GIVEN] An item journal template and batch are created for adjustments
LibraryInventory.CreateItemJournalTemplateByType(ItemJournalTemplate, ItemJournalTemplate.Type::Item);
@@ -7212,14 +7212,14 @@ codeunit 139960 "Qlty. Tests - Dispositions"
ItemJournalBatch.Delete();
ItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
procedure PurchaseReturnSerialTrackedAdvLocation()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
AdvWhseLocation: Record Location;
Item: Record Item;
Vendor: Record Vendor;
@@ -7255,7 +7255,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
LibraryAssert.AreEqual(PurOrdPurchaseLine."Qty. Received (Base)", PurOrdPurchaseLine."Quantity (Base)", 'Purchase Order was not fully received.');
// [GIVEN] A quality inspection template and generation rule are created
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with purchase line and tracking
QltyInspectionUtility.CreateInspectionWithPurchaseLineAndTracking(PurOrdPurchaseLine, PurOrdReservationEntry, QltyInspectionHeader);
@@ -7267,7 +7267,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
// [GIVEN] A specific quantity is set for return
SpecificQty := 3;
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Purchase return disposition is performed with item tracked quantity behavior
QltyInspectionUtility.PerformPurchaseReturnDisposition(QltyInspectionHeader, Enum::"Qlty. Quantity Behavior"::"Item Tracked Quantity", SpecificQty, '', '', Reason, CreditMemo, TempTrackedPurRtnBufferPurchaseHeader);
@@ -7305,12 +7305,12 @@ codeunit 139960 "Qlty. Tests - Dispositions"
local procedure EnsureInspectionTemplateAndRuleForPurchaseLineExist(var OutQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.")
var
- PrioritizedQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ PrioritizedQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
- EnsureInspectionTemplateAndRuleForPurchaseLineExist(OutQltyInspectionTemplateHdr, PrioritizedQltyInspectionGenRule);
+ EnsureInspectionTemplateAndRuleForPurchaseLineExist(OutQltyInspectionTemplateHdr, PrioritizedQltyInspectCreationRule);
end;
- local procedure EnsureInspectionTemplateAndRuleForPurchaseLineExist(var OutQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; var PrioritizedQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+ local procedure EnsureInspectionTemplateAndRuleForPurchaseLineExist(var OutQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; var PrioritizedQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule")
var
SpecificQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config.";
QltyInspectionUtility2: Codeunit "Qlty. Inspection Utility";
@@ -7322,7 +7322,7 @@ codeunit 139960 "Qlty. Tests - Dispositions"
if OutQltyInspectionTemplateHdr.Code = '' then
QltyInspectionUtility2.CreateTemplate(OutQltyInspectionTemplateHdr, 3);
- QltyInspectionUtility2.CreatePrioritizedRule(OutQltyInspectionTemplateHdr, Database::"Purchase Line", PrioritizedQltyInspectionGenRule);
+ QltyInspectionUtility2.CreatePrioritizedRule(OutQltyInspectionTemplateHdr, Database::"Purchase Line", PrioritizedQltyInspectCreationRule);
end;
local procedure VerifyInspectionAssertions(BaseQty: Decimal; QltyInspectionHeader: Record "Qlty. Inspection Header"; PurReturnPurchaseHeader: Record "Purchase Header"; PurOrderPurchaseHeader: Record "Purchase Header"; PurPurchaseLine: Record "Purchase Line"; CreditMemo: Code[35]; ItemNo: Code[20]; Location: Code[10]; Reason: Code[35])
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsExpressions.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsExpressions.Codeunit.al
index bea2f704e9..f0f098eaf7 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsExpressions.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsExpressions.Codeunit.al
@@ -259,7 +259,7 @@ codeunit 139961 "Qlty. Tests - Expressions"
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionUtility: Codeunit "Qlty. Inspection Utility";
QltyExpressionMgmt: Codeunit "Qlty. Expression Mgmt.";
begin
@@ -283,7 +283,7 @@ codeunit 139961 "Qlty. Tests - Expressions"
// [THEN] The template code is correctly retrieved (case-insensitive)
LibraryAssert.AreEqual(QltyInspectionHeader."Template Code", QltyExpressionMgmt.EvaluateExpressionForRecord(TemplateUppercaseTok, QltyInspectionHeader, true), 'Should find template code');
- QltyInspectionGenRule.SetRange("Template Code", QltyInspectionTemplateHdr."Code");
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.SetRange("Template Code", QltyInspectionTemplateHdr."Code");
+ QltyInspectCreationRule.DeleteAll();
end;
}
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsGenerationRule.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsGenerationRule.Codeunit.al
index cfbdad993e..9141d66297 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsGenerationRule.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsGenerationRule.Codeunit.al
@@ -33,7 +33,7 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
[Test]
procedure ActivationTriggerFindGenerationRule_ManualOnly_ManualRuleSearch()
var
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
PurchaseLineRecordRef: RecordRef;
@@ -44,19 +44,19 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A generation rule with Manual only activation trigger is created
- DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Gen. Rule Act. Trigger"::"Manual only");
+ DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Creat. Rule Act. Trigger"::"Manual only");
// [WHEN] A manual rule search is performed for Purchase Line
PurchaseLineRecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is found
- LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, PurchaseLineRecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should find generation rule');
+ LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, PurchaseLineRecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should find generation rule');
end;
[Test]
procedure ActivationTriggerFindGenerationRule_ManualOnly_AutoRuleSearch()
var
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
PurchaseLineRecordRef: RecordRef;
@@ -67,19 +67,19 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A generation rule with Manual only activation trigger is created
- DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Gen. Rule Act. Trigger"::"Manual only");
+ DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Creat. Rule Act. Trigger"::"Manual only");
// [WHEN] An automatic rule search is performed for Purchase Line
PurchaseLineRecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is not found
- LibraryAssert.IsFalse(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, false, PurchaseLineRecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should not find generation rule');
+ LibraryAssert.IsFalse(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, false, PurchaseLineRecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should not find generation rule');
end;
[Test]
procedure ActivationTriggerFindGenerationRule_AutoOnly_AutoRuleSearch()
var
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
RecordRef: RecordRef;
@@ -90,19 +90,19 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A generation rule with Automatic only activation trigger is created
- DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Gen. Rule Act. Trigger"::"Automatic only");
+ DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Creat. Rule Act. Trigger"::"Automatic only");
// [WHEN] An automatic rule search is performed for Purchase Line
RecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is found
- LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, false, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should find generation rule');
+ LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, false, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should find generation rule');
end;
[Test]
procedure ActivationTriggerFindGenerationRule_AutoOnly_ManualRuleSearch()
var
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
RecordRef: RecordRef;
@@ -113,19 +113,19 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A generation rule with Automatic only activation trigger is created
- DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Gen. Rule Act. Trigger"::"Automatic only");
+ DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Creat. Rule Act. Trigger"::"Automatic only");
// [WHEN] A manual rule search is performed for Purchase Line
RecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is not found
- LibraryAssert.IsFalse(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should not find generation rule');
+ LibraryAssert.IsFalse(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should not find generation rule');
end;
[Test]
procedure ActivationTriggerFindGenerationRule_ManualAndAuto_AutoRuleSearch()
var
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
RecordRef: RecordRef;
@@ -136,19 +136,19 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A generation rule with Manual or Automatic activation trigger is created
- DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Gen. Rule Act. Trigger"::"Manual or Automatic");
+ DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Creat. Rule Act. Trigger"::"Manual or Automatic");
// [WHEN] An automatic rule search is performed for Purchase Line
RecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is found
- LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, false, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should find generation rule');
+ LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, false, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should find generation rule');
end;
[Test]
procedure ActivationTriggerFindGenerationRule_ManualAndAuto_ManualRuleSearch()
var
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
RecordRef: RecordRef;
@@ -159,19 +159,19 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A generation rule with Manual or Automatic activation trigger is created
- DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Gen. Rule Act. Trigger"::"Manual or Automatic");
+ DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Creat. Rule Act. Trigger"::"Manual or Automatic");
// [WHEN] A manual rule search is performed for Purchase Line
RecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is found
- LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should find generation rule');
+ LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should find generation rule');
end;
[Test]
procedure ActivationTriggerFindGenerationRule_Disabled_ManualRuleSearch()
var
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
RecordRef: RecordRef;
@@ -182,23 +182,23 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A generation rule with Disabled activation trigger is created
- DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Gen. Rule Act. Trigger"::Disabled);
+ DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Creat. Rule Act. Trigger"::Disabled);
// [WHEN] A manual rule search is performed for Purchase Line
RecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is not found
- LibraryAssert.IsFalse(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should not find generation rule');
+ LibraryAssert.IsFalse(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should not find generation rule');
end;
[Test]
procedure ActivationTriggerFindGenerationRule_Disabled_AutoRuleSearch()
var
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
RecordRef: RecordRef;
- GenRuleActivTrigger: Enum "Qlty. Gen. Rule Act. Trigger";
+ GenRuleActivTrigger: Enum "Qlty. Creat. Rule Act. Trigger";
begin
// [SCENARIO] Verify that a generation rule with Disabled activation trigger is not found when performing an automatic rule search
@@ -212,14 +212,14 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
RecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is not found
- LibraryAssert.IsFalse(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, false, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should not find generation rule');
+ LibraryAssert.IsFalse(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, false, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should not find generation rule');
end;
[Test]
procedure FindGenerationRule_ItemFilter()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
LibraryInventory: Codeunit "Library - Inventory";
@@ -234,25 +234,25 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A generation rule with Manual or Automatic activation trigger is created
- DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Gen. Rule Act. Trigger"::"Manual or Automatic");
+ DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Creat. Rule Act. Trigger"::"Manual or Automatic");
// [GIVEN] The generation rule is updated with an item filter
- QltyInspectionGenRule.FindFirst();
- QltyInspectionGenRule."Item Filter" := StrSubstNo(ItemFilterTok, Item."No.");
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule.FindFirst();
+ QltyInspectCreationRule."Item Filter" := StrSubstNo(ItemFilterTok, Item."No.");
+ QltyInspectCreationRule.Modify();
// [WHEN] A manual rule search is performed for Purchase Line with the item
RecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is found
- LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should find generation rule');
+ LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should find generation rule');
end;
[Test]
procedure FindGenerationRule_ItemAttributeFilter()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- TempOutQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule" temporary;
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ TempOutQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule" temporary;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Item: Record Item;
ItemAttribute: Record "Item Attribute";
@@ -271,18 +271,18 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A generation rule with Manual or Automatic activation trigger is created
- DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Gen. Rule Act. Trigger"::"Manual or Automatic");
+ DeleteAllAndCreateOneGenerationRule(QltyInspectionTemplateHdr.Code, Enum::"Qlty. Creat. Rule Act. Trigger"::"Manual or Automatic");
// [GIVEN] The generation rule is updated with an item attribute filter
- QltyInspectionGenRule.FindFirst();
- QltyInspectionGenRule."Item Attribute Filter" := (StrSubstNo(ItemAttributeFilterTok, ItemAttribute.Name));
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule.FindFirst();
+ QltyInspectCreationRule."Item Attribute Filter" := (StrSubstNo(ItemAttributeFilterTok, ItemAttribute.Name));
+ QltyInspectCreationRule.Modify();
// [WHEN] A manual rule search is performed for Purchase Line with the item
RecordRef.Open(Database::"Purchase Line");
// [THEN] The generation rule is found
- LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectionGenRule), 'Should find generation rule');
+ LibraryAssert.IsTrue(QltyInspecGenRuleMgmt.FindMatchingGenerationRule(false, true, RecordRef, Item, QltyInspectionTemplateHdr.Code, TempOutQltyInspectCreationRule), 'Should find generation rule');
end;
[Test]
@@ -307,7 +307,7 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
var
Customer: Record Customer;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
SpecificQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config.";
RecordRef: RecordRef;
begin
@@ -322,7 +322,7 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A prioritized generation rule for Customer table is created
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::Customer, QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::Customer, QltyInspectCreationRule);
// [WHEN] Filters are set to applicable templates without source configuration
RecordRef.GetTable(Customer);
@@ -336,7 +336,7 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
procedure SetFilterToApplicableTemplates()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
SpecificQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config.";
RecordRef: RecordRef;
Filter: Text;
@@ -350,7 +350,7 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
// [GIVEN] A prioritized generation rule for Purchase Line table is created
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [WHEN] Filters are set to applicable templates
QltyInspectionUtility.SetFilterToApplicableTemplates(QltyInspectionTemplateHdr.Code, SpecificQltyInspectSourceConfig);
@@ -385,17 +385,17 @@ codeunit 139955 "Qlty. Tests - Generation Rule"
LibraryAssert.IsTrue(Filters.Contains(Format(Database::"Purchase Line")), 'Should contain table no.');
end;
- local procedure DeleteAllAndCreateOneGenerationRule(TemplateCode: Code[20]; ActivationTrigger: Enum "Qlty. Gen. Rule Act. Trigger")
+ local procedure DeleteAllAndCreateOneGenerationRule(TemplateCode: Code[20]; ActivationTrigger: Enum "Qlty. Creat. Rule Act. Trigger")
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionGenRule.Init();
- QltyInspectionUtility.SetEntryNo(QltyInspectionGenRule);
- QltyInspectionGenRule.Insert();
- QltyInspectionGenRule."Source Table No." := Database::"Purchase Line";
- QltyInspectionGenRule."Template Code" := TemplateCode;
- QltyInspectionGenRule."Activation Trigger" := ActivationTrigger;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectCreationRule.Init();
+ QltyInspectionUtility.SetEntryNo(QltyInspectCreationRule);
+ QltyInspectCreationRule.Insert();
+ QltyInspectCreationRule."Source Table No." := Database::"Purchase Line";
+ QltyInspectCreationRule."Template Code" := TemplateCode;
+ QltyInspectCreationRule."Activation Trigger" := ActivationTrigger;
+ QltyInspectCreationRule.Modify();
end;
}
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsInsepctions.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsInsepctions.Codeunit.al
index d4fc7344b5..48570ed8fe 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsInsepctions.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsInsepctions.Codeunit.al
@@ -596,7 +596,7 @@ codeunit 139970 "Qlty. Tests - Insepctions"
PurchaseLine: Record "Purchase Line";
ReservationEntry: Record "Reservation Entry";
LotNoInformation: Record "Lot No. Information";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyPurOrderGenerator: Codeunit "Qlty. Pur. Order Generator";
LibraryWarehouse: Codeunit "Library - Warehouse";
Navigate: TestPage Navigate;
@@ -616,7 +616,7 @@ codeunit 139970 "Qlty. Tests - Insepctions"
// [GIVEN] A quality inspection template and rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 0);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A quality inspection is created with the purchase line and lot tracking
QltyInspectionUtility.CreateInspectionWithPurchaseLineAndTracking(PurchaseLine, ReservationEntry, QltyInspectionHeader);
@@ -643,7 +643,7 @@ codeunit 139970 "Qlty. Tests - Insepctions"
until Navigate.Next() = false;
QltyInspectionTemplateHdr.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsItemTracking.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsItemTracking.Codeunit.al
index 729fe16c75..7d26ea4f71 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsItemTracking.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsItemTracking.Codeunit.al
@@ -3042,7 +3042,7 @@ codeunit 139971 "Qlty. Tests - Item Tracking"
[Test]
procedure ItemTrackingDetailsAreNotPopulatedOnTestForNonTrackingItem()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Location: Record Location;
LotTrackedItem: Record Item;
@@ -3061,12 +3061,12 @@ codeunit 139971 "Qlty. Tests - Item Tracking"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] The generation rule is set to trigger on purchase order receive and automatic only
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::"Automatic only";
- QltyInspectionGenRule."Purchase Order Trigger" := QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::"Automatic only";
+ QltyInspectCreationRule."Purchase Order Trigger" := QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
+ QltyInspectCreationRule.Modify();
// [GIVEN] A location is created
LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location);
@@ -3096,7 +3096,7 @@ codeunit 139971 "Qlty. Tests - Item Tracking"
LibraryAssert.AreEqual(NonTrackingItem."No.", QltyInspectionHeader."Source Item No.", 'Should be same item.');
LibraryAssert.IsTrue(QltyInspectionHeader."Source Lot No." = '', 'Lot No. should not be populated.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
local procedure Initialize()
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al
index 9035586d9f..fdfd44027d 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al
@@ -1884,7 +1884,7 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyManagementSetup: Record "Qlty. Management Setup";
Location: Record Location;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ToUseNoSeries: Record "No. Series";
PurchaseHeader: Record "Purchase Header";
@@ -1910,7 +1910,7 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] Prioritized inspection generation rule for Purchase Line created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] Package-tracked item with no series created
QltyInspectionUtility.CreatePackageTrackedItemWithNoSeries(Item, ToUseNoSeries);
@@ -1940,7 +1940,7 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyManagementSetup.Modify();
// [GIVEN] Inspection generation rule deleted to prevent new inspection creation
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] Posting the purchase document
// [THEN] An error is raised indicating purchase is blocked by the result on the highest re-inspection
@@ -1958,7 +1958,7 @@ codeunit 139964 "Qlty. Tests - Misc."
var
QltyManagementSetup: Record "Qlty. Management Setup";
SpecificQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ReQltyInspectionHeader: Record "Qlty. Inspection Header";
@@ -2013,7 +2013,7 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 3);
// [GIVEN] Prioritized inspection generation rule for Assembly Header created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Assembly Header", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Assembly Header", QltyInspectCreationRule);
// [GIVEN] Custom inspection source configuration for Assembly Header to Inspection created
QltyInspectionUtility.CreateSourceConfig(SpecificQltyInspectSourceConfig, Database::"Assembly Header", Enum::"Qlty. Target Type"::Inspection, Database::"Qlty. Inspection Header");
@@ -2100,7 +2100,7 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyManagementSetup.Modify();
// [GIVEN] Inspection generation rule deleted to prevent new inspection creation
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] Original inspection also marked as finished with blocking result (most recent modified)
QltyInspectionHeader."Result Code" := ToLoadQltyInspectionResult.Code;
@@ -2124,7 +2124,7 @@ codeunit 139964 "Qlty. Tests - Misc."
procedure BlockTrackingWarehouseTransaction_Putaway_HighestFinishedReinspection_ShouldError()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ReQltyInspectionHeader: Record "Qlty. Inspection Header";
@@ -2146,7 +2146,7 @@ codeunit 139964 "Qlty. Tests - Misc."
Initialize();
// [GIVEN] Inspection generation rules cleared
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Inspection results cleared
if not ToLoadQltyInspectionResult.IsEmpty() then
@@ -2156,7 +2156,7 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] Prioritized inspection generation rule for Purchase Line created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] Full WMS location with 1 zone created
LibraryWarehouse.CreateFullWMSLocation(Location, 1);
@@ -2211,7 +2211,7 @@ codeunit 139964 "Qlty. Tests - Misc."
procedure BlockTrackingWarehouseTransaction_Putaway_AnyFinished_ShouldError()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
QltyInspectionHeader: Record "Qlty. Inspection Header";
PurchaseHeader: Record "Purchase Header";
@@ -2231,7 +2231,7 @@ codeunit 139964 "Qlty. Tests - Misc."
Initialize();
// [GIVEN] Inspection generation rules cleared
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Inspection results cleared
if not ToLoadQltyInspectionResult.IsEmpty() then
@@ -2241,7 +2241,7 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] Prioritized inspection generation rule for Purchase Line created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] Full WMS location with 1 zone created
LibraryWarehouse.CreateFullWMSLocation(Location, 1);
@@ -2290,7 +2290,7 @@ codeunit 139964 "Qlty. Tests - Misc."
procedure BlockTrackingWarehouseTransaction_InvPutaway_MostRecentFinishedModified_ShouldError()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ReQltyInspectionHeader: Record "Qlty. Inspection Header";
@@ -2313,7 +2313,7 @@ codeunit 139964 "Qlty. Tests - Misc."
Initialize();
// [GIVEN] Inspection generation rules cleared
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Inspection results cleared
if not ToLoadQltyInspectionResult.IsEmpty() then
@@ -2323,8 +2323,8 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] Prioritized inspection generation rule for Purchase Line created (then cleared)
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] WMS location with bins created
LibraryWarehouse.CreateLocationWMS(Location, true, true, false, false, false);
@@ -2392,7 +2392,7 @@ codeunit 139964 "Qlty. Tests - Misc."
procedure BlockTrackingWarehouseTransaction_InvMovement_HighestReinspection_ShouldError()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ReQltyInspectionHeader: Record "Qlty. Inspection Header";
@@ -2418,7 +2418,7 @@ codeunit 139964 "Qlty. Tests - Misc."
Initialize();
// [GIVEN] Inspection generation rules cleared
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Inspection results cleared
if not ToLoadQltyInspectionResult.IsEmpty() then
@@ -2428,7 +2428,7 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] Prioritized inspection generation rule for Purchase Line created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] WMS location with bins created
LibraryWarehouse.CreateLocationWMS(Location, true, true, false, false, false);
@@ -2533,7 +2533,7 @@ codeunit 139964 "Qlty. Tests - Misc."
procedure BlockTrackingWarehouseTransaction_Movement_MostRecentModified_ShouldError()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ReQltyInspectionHeader: Record "Qlty. Inspection Header";
@@ -2564,7 +2564,7 @@ codeunit 139964 "Qlty. Tests - Misc."
Initialize();
// [GIVEN] Inspection generation rules cleared
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Inspection results cleared
if not ToLoadQltyInspectionResult.IsEmpty() then
@@ -2574,7 +2574,7 @@ codeunit 139964 "Qlty. Tests - Misc."
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] Prioritized inspection generation rule for Purchase Line created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] Full WMS location with 2 zones created
LibraryWarehouse.CreateFullWMSLocation(Location, 2);
@@ -2783,7 +2783,7 @@ codeunit 139964 "Qlty. Tests - Misc."
procedure HandleNotificationActionAssignToSelf()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -2803,11 +2803,11 @@ codeunit 139964 "Qlty. Tests - Misc."
LibraryWarehouse.CreateLocation(Location);
LibraryInventory.CreateItem(Item);
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A quality inspection is created from a purchase line for an untracked item
QltyPurOrderGenerator.CreateInspectionFromPurchaseWithUntrackedItem(Location, 100, PurchaseHeader, PurchaseLine, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] A mock notification with the inspection record ID is prepared
MockNotification.SetData(NotificationDataInspectionRecordIdTok, Format(QltyInspectionHeader.RecordId));
@@ -2824,7 +2824,7 @@ codeunit 139964 "Qlty. Tests - Misc."
procedure HandleNotificationActionIgnore()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -2844,11 +2844,11 @@ codeunit 139964 "Qlty. Tests - Misc."
LibraryWarehouse.CreateLocation(Location);
LibraryInventory.CreateItem(Item);
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A quality inspection is created from a purchase line for an untracked item
QltyPurOrderGenerator.CreateInspectionFromPurchaseWithUntrackedItem(Location, 100, PurchaseHeader, PurchaseLine, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] A mock notification with the inspection record ID is prepared
MockNotification.SetData(NotificationDataInspectionRecordIdTok, Format(QltyInspectionHeader.RecordId()));
@@ -2904,4 +2904,4 @@ codeunit 139964 "Qlty. Tests - Misc."
begin
DocumentNo := WarehouseMovement."No.".Value();
end;
-}
\ No newline at end of file
+}
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsMoreTests.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsMoreTests.Codeunit.al
index b8d83c4597..f99112fbe1 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsMoreTests.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsMoreTests.Codeunit.al
@@ -760,7 +760,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
procedure GenerationRule_ValidateScheduleGroup_NoFilters_ShouldError()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
TemplateCode: Text;
ScheduleGroupCode: Text;
begin
@@ -776,18 +776,18 @@ codeunit 139965 "Qlty. Tests - More Tests"
ConfigurationToLoadQltyInspectionTemplateHdr.Insert();
// [GIVEN] All existing generation rules are deleted
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] A new generation rule is created without any filters
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := ConfigurationToLoadQltyInspectionTemplateHdr.Code;
- QltyInspectionGenRule.Insert();
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := ConfigurationToLoadQltyInspectionTemplateHdr.Code;
+ QltyInspectCreationRule.Insert();
// [GIVEN] A random schedule group code is generated
QltyInspectionUtility.GenerateRandomCharacters(20, ScheduleGroupCode);
// [WHEN] Attempting to validate Schedule Group without filters
- asserterror QltyInspectionGenRule.Validate("Schedule Group", ScheduleGroupCode);
+ asserterror QltyInspectCreationRule.Validate("Schedule Group", ScheduleGroupCode);
// [THEN] An error is raised indicating at least one filter is mandatory
LibraryAssert.ExpectedError(StrSubstNo(FilterMandatoryErr, ScheduleGroupCode));
@@ -798,7 +798,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
procedure GenerationRule_ValidateScheduleGroup_NewScheduleGroup()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
JobQueueEntry: Record "Job Queue Entry";
JobQueueEntries: TestPage "Job Queue Entries";
TemplateCode: Text;
@@ -822,15 +822,15 @@ codeunit 139965 "Qlty. Tests - More Tests"
JobQueueEntry.DeleteAll();
// [GIVEN] All existing generation rules are deleted
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] A new generation rule with filters and default schedule group is created
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := ConfigurationToLoadQltyInspectionTemplateHdr.Code;
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := ConditionProductionFilterTok;
- QltyInspectionGenRule."Schedule Group" := DefaultScheduleGroupTok;
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := ConfigurationToLoadQltyInspectionTemplateHdr.Code;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := ConditionProductionFilterTok;
+ QltyInspectCreationRule."Schedule Group" := DefaultScheduleGroupTok;
+ QltyInspectCreationRule.Insert(true);
// [GIVEN] A random new schedule group code is generated
QltyInspectionUtility.GenerateRandomCharacters(20, ScheduleGroupCode);
@@ -839,10 +839,10 @@ codeunit 139965 "Qlty. Tests - More Tests"
JobQueueEntries.Trap();
// [WHEN] Schedule Group is validated with the new schedule group code
- QltyInspectionGenRule.Validate("Schedule Group", ScheduleGroupCode);
+ QltyInspectCreationRule.Validate("Schedule Group", ScheduleGroupCode);
// [THEN] The Schedule Group is successfully updated
- LibraryAssert.IsTrue(QltyInspectionGenRule."Schedule Group" = ScheduleGroupCode, 'Schedule group should be updated');
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Schedule Group" = ScheduleGroupCode, 'Schedule group should be updated');
// [THEN] A job queue entry is created for the schedule inspection report
JobQueueEntry.SetRange("Object Type to Run", JobQueueEntry."Object Type to Run"::Report);
@@ -855,10 +855,10 @@ codeunit 139965 "Qlty. Tests - More Tests"
procedure GenerationRule_CreateJobQueueEntry()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
JobQueueEntry: Record "Job Queue Entry";
JobQueueEntries: TestPage "Job Queue Entries";
- QltyInspectionGenRules: TestPage "Qlty. Inspection Gen. Rules";
+ QltyInspectCreationRules: TestPage "Qlty. Inspect. Creation Rules";
TemplateCode: Text;
ScheduleGroupCode: Text;
begin
@@ -873,13 +873,13 @@ codeunit 139965 "Qlty. Tests - More Tests"
// [GIVEN] A new generation rule with schedule group is created
QltyInspectionUtility.GenerateRandomCharacters(20, ScheduleGroupCode);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := QltyInspectionTemplateHdr.Code;
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := OrderTypeProductionConditionFilterTok;
- QltyInspectionGenRule."Schedule Group" := CopyStr(ScheduleGroupCode, 1, MaxStrLen(QltyInspectionGenRule."Schedule Group"));
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := QltyInspectionTemplateHdr.Code;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := OrderTypeProductionConditionFilterTok;
+ QltyInspectCreationRule."Schedule Group" := CopyStr(ScheduleGroupCode, 1, MaxStrLen(QltyInspectCreationRule."Schedule Group"));
+ QltyInspectCreationRule.Insert(true);
// [GIVEN] Any existing job queue entries for schedule inspection are deleted
JobQueueEntry.SetRange("Object Type to Run", JobQueueEntry."Object Type to Run"::Report);
@@ -891,9 +891,9 @@ codeunit 139965 "Qlty. Tests - More Tests"
JobQueueEntries.Trap();
// [WHEN] CreateAnotherJobQueue action is invoked on the Generation Rules page
- QltyInspectionGenRules.OpenView();
- QltyInspectionGenRules.GoToRecord(QltyInspectionGenRule);
- QltyInspectionGenRules.CreateAnotherJobQueue.Invoke();
+ QltyInspectCreationRules.OpenView();
+ QltyInspectCreationRules.GoToRecord(QltyInspectCreationRule);
+ QltyInspectCreationRules.CreateAnotherJobQueue.Invoke();
// [THEN] A job queue entry is created for the schedule inspection report
JobQueueEntry.SetRange("Object Type to Run", JobQueueEntry."Object Type to Run"::Report);
@@ -906,7 +906,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
procedure GenerationRule_DeleteScheduleGroup_ShouldDeleteEntry()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
JobQueueEntry: Record "Job Queue Entry";
JobQueueEntries: TestPage "Job Queue Entries";
TemplateCode: Text;
@@ -929,14 +929,14 @@ codeunit 139965 "Qlty. Tests - More Tests"
// [GIVEN] A generation rule with schedule group is created
QltyInspectionUtility.GenerateRandomCharacters(20, ScheduleGroupCode);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := QltyInspectionTemplateHdr.Code;
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := OrderTypeProductionConditionFilterTok;
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := QltyInspectionTemplateHdr.Code;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := OrderTypeProductionConditionFilterTok;
+ QltyInspectCreationRule.Insert(true);
JobQueueEntries.Trap();
- QltyInspectionGenRule.Validate("Schedule Group", ScheduleGroupCode);
+ QltyInspectCreationRule.Validate("Schedule Group", ScheduleGroupCode);
// [GIVEN] A job queue entry is created for the schedule group
JobQueueEntry.SetRange("Object Type to Run", JobQueueEntry."Object Type to Run"::Report);
@@ -944,7 +944,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
LibraryAssert.IsTrue(JobQueueEntry.Count() = 1, 'Should have created a job queue entry');
// [WHEN] The schedule group is cleared from the generation rule
- QltyInspectionGenRule.Validate("Schedule Group", '');
+ QltyInspectCreationRule.Validate("Schedule Group", '');
// [THEN] The job queue entry is deleted since no other rules use this schedule group
JobQueueEntry.SetRange("Object Type to Run", JobQueueEntry."Object Type to Run"::Report);
@@ -956,9 +956,9 @@ codeunit 139965 "Qlty. Tests - More Tests"
[HandlerFunctions('ConfirmHandler')]
procedure GenerationRule_DeleteScheduleGroup_ShouldNotDeleteEntry()
var
- QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- SecondQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectionTemplateHdr: Record "QInspect.ction Template Hdr.";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ Qlty.Inspect.tyInspectionGenRule: Record "Qlty. Inspect. Creation Rule";
JobQueueEntry: Record "Job Queue Entry";
JobQueueEntries: TestPage "Job Queue Entries";
TemplateCode: Text;
@@ -981,23 +981,23 @@ codeunit 139965 "Qlty. Tests - More Tests"
// [GIVEN] A first generation rule with schedule group is created
QltyInspectionUtility.GenerateRandomCharacters(20, ScheduleGroupCode);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := QltyInspectionTemplateHdr.Code;
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := EntryTypeOutputConditionFilterTok;
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := QltyInspectionTemplateHdr.Code;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := EntryTypeOutputConditionFilterTok;
+ QltyInspectCreationRule.Insert(true);
JobQueueEntries.Trap();
- QltyInspectionGenRule.Validate("Schedule Group", ScheduleGroupCode);
+ QltyInspectCreationRule.Validate("Schedule Group", ScheduleGroupCode);
// [GIVEN] A second generation rule with the same schedule group is created
- SecondQltyInspectionGenRule.Init();
- SecondQltyInspectionGenRule."Template Code" := QltyInspectionTemplateHdr.Code;
- SecondQltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- SecondQltyInspectionGenRule."Condition Filter" := OrderTypeProductionConditionFilterTok;
- SecondQltyInspectionGenRule.Insert(true);
+ SecondQltyInspectCreationRule.Init();
+ SecondQltyInspectCreationRule."Template Code" := QltyInspectionTemplateHdr.Code;
+ SecondQltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ SecondQltyInspectCreationRule."Condition Filter" := OrderTypeProductionConditionFilterTok;
+ SecondQltyInspectCreationRule.Insert(true);
JobQueueEntries.Trap();
- SecondQltyInspectionGenRule.Validate("Schedule Group", ScheduleGroupCode);
+ SecondQltyInspectCreationRule.Validate("Schedule Group", ScheduleGroupCode);
// [GIVEN] A job queue entry is created for the shared schedule group
JobQueueEntry.SetRange("Object Type to Run", JobQueueEntry."Object Type to Run"::Report);
@@ -1005,7 +1005,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
LibraryAssert.IsTrue(JobQueueEntry.Count() = 1, 'Should have created a job queue entry');
// [WHEN] The schedule group is cleared from the first generation rule only
- QltyInspectionGenRule.Validate("Schedule Group", '');
+ QltyInspectCreationRule.Validate("Schedule Group", '');
// [THEN] The job queue entry is preserved because the second rule still uses the same schedule group
JobQueueEntry.SetRange("Object Type to Run", JobQueueEntry."Object Type to Run"::Report);
@@ -1018,9 +1018,9 @@ codeunit 139965 "Qlty. Tests - More Tests"
procedure GenerationRule_LookupJobQueue_Default()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- JobQueueEntry: Record "Job Queue Entry";
- QltyInspectionGenRules: TestPage "Qlty. Inspection Gen. Rules";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ JobQueueEntry: Record "Job Queue E Qlty.Inspect.
+ QltyInspectCreationRules: TestPage "Qlty. Inspect. Creation Rules";
JobQueueEntries: TestPage "Job Queue Entries";
TemplateCode: Text;
begin
@@ -1039,14 +1039,14 @@ codeunit 139965 "Qlty. Tests - More Tests"
ConfigurationToLoadQltyInspectionTemplateHdr.Insert();
// [GIVEN] All existing generation rules are deleted
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] A new generation rule with filters but no schedule group is created
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := ConfigurationToLoadQltyInspectionTemplateHdr.Code;
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := ConditionProductionFilterTok;
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := ConfigurationToLoadQltyInspectionTemplateHdr.Code;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := ConditionProductionFilterTok;
+ QltyInspectCreationRule.Insert(true);
// [GIVEN] All existing job queue entries for schedule inspection are deleted
JobQueueEntry.SetRange("Object Type to Run", JobQueueEntry."Object Type to Run"::Report);
@@ -1055,20 +1055,20 @@ codeunit 139965 "Qlty. Tests - More Tests"
JobQueueEntry.DeleteAll();
// [GIVEN] The Generation Rules page is opened and navigated to the rule
- QltyInspectionGenRules.OpenEdit();
- QltyInspectionGenRules.GoToRecord(QltyInspectionGenRule);
+ QltyInspectCreationRules.OpenEdit();
+ QltyInspectCreationRules.GoToRecord(QltyInspectCreationRule);
// [GIVEN] Job Queue Entries page is trapped for verification
JobQueueEntries.Trap();
// [WHEN] Lookup is invoked on the Schedule Group field
- QltyInspectionGenRules."Schedule Group".Drilldown();
+ QltyInspectCreationRules."Schedule Group".Drilldown();
JobQueueEntries.Close();
- QltyInspectionGenRules.Close();
+ QltyInspectCreationRules.Close();
// [THEN] The default schedule group 'QM' is assigned to the rule
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.AreEqual(DefaultScheduleGroupTok, QltyInspectionGenRule."Schedule Group", 'Default schedule group should be created');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.AreEqual(DefaultScheduleGroupTok, QltyInspectCreationRule."Schedule Group", 'Default schedule group should be created');
// [THEN] A job queue entry is created for the schedule inspection report
LibraryAssert.IsTrue(JobQueueEntry.Count() = 1, 'Should have created a job queue entry');
@@ -1077,7 +1077,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
[Test]
procedure GenerationRuleList_ValidateProductionTrigger()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] Production Order Trigger can be validated and set to OnProductionOrderRelease
Initialize();
@@ -1086,22 +1086,22 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A new generation rule for Prod. Order Routing Line with Disabled activation trigger is initialized
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := TemplateCodeTok;
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::Disabled;
- QltyInspectionGenRule."Source Table No." := Database::"Prod. Order Routing Line";
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := TemplateCodeTok;
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::Disabled;
+ QltyInspectCreationRule."Source Table No." := Database::"Prod. Order Routing Line";
// [WHEN] Production Order Trigger is validated and set to OnProductionOrderRelease
- QltyInspectionGenRule.Validate("Production Order Trigger", QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease);
+ QltyInspectCreationRule.Validate("Production Order Trigger", QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease);
// [THEN] The Production Order Trigger is successfully set to OnProductionOrderRelease
- LibraryAssert.AreEqual(QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease, QltyInspectionGenRule."Production Order Trigger", 'Production Order Trigger should be set to on release');
+ LibraryAssert.AreEqual(QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease, QltyInspectCreationRule."Production Order Trigger", 'Production Order Trigger should be set to on release');
end;
[Test]
procedure GenerationRuleList_ValidateWarehouseReceiveTrigger()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] Warehouse Receipt Trigger can be validated and set to OnWarehouseReceiptCreate
Initialize();
@@ -1110,22 +1110,22 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A new generation rule for Warehouse Receipt Line with Disabled activation trigger is initialized
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := TemplateCodeTok;
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::Disabled;
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Receipt Line";
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := TemplateCodeTok;
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::Disabled;
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Receipt Line";
// [WHEN] Warehouse Receipt Trigger is validated and set to OnWarehouseReceiptCreate
- QltyInspectionGenRule.Validate("Warehouse Receipt Trigger", QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate);
+ QltyInspectCreationRule.Validate("Warehouse Receipt Trigger", QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate);
// [THEN] The Warehouse Receipt Trigger is successfully set
- LibraryAssert.AreEqual(QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate, QltyInspectionGenRule."Warehouse Receipt Trigger", 'Warehouse Receipt trigger should be set to on receipt create');
+ LibraryAssert.AreEqual(QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate, QltyInspectCreationRule."Warehouse Receipt Trigger", 'Warehouse Receipt trigger should be set to on receipt create');
end;
[Test]
procedure GenerationRuleList_ValidateWarehouseMovementTrigger()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] Warehouse Movement Trigger can be validated and set to OnWhseMovementRegister
Initialize();
@@ -1134,22 +1134,22 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A new generation rule for Warehouse Entry with Disabled activation trigger is initialized
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := TemplateCodeTok;
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::Disabled;
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Entry";
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := TemplateCodeTok;
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::Disabled;
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Entry";
// [WHEN] Warehouse Movement Trigger is validated and set to OnWhseMovementRegister
- QltyInspectionGenRule.Validate("Warehouse Movement Trigger", QltyInspectionGenRule."Warehouse Movement Trigger"::OnWhseMovementRegister);
+ QltyInspectCreationRule.Validate("Warehouse Movement Trigger", QltyInspectCreationRule."Warehouse Movement Trigger"::OnWhseMovementRegister);
// [THEN] The Warehouse Movement Trigger is successfully set
- LibraryAssert.AreEqual(QltyInspectionGenRule."Warehouse Movement Trigger"::OnWhseMovementRegister, QltyInspectionGenRule."Warehouse Movement Trigger", 'Warehouse Movement trigger should be set to into bin');
+ LibraryAssert.AreEqual(QltyInspectCreationRule."Warehouse Movement Trigger"::OnWhseMovementRegister, QltyInspectCreationRule."Warehouse Movement Trigger", 'Warehouse Movement trigger should be set to into bin');
end;
[Test]
procedure GenerationRuleList_ValidatePurchaseTrigger()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] Purchase Order Trigger can be validated and set to OnPurchaseOrderPostReceive
Initialize();
@@ -1158,22 +1158,22 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A new generation rule for Purchase Line with Disabled activation trigger is initialized
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := TemplateCodeTok;
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::Disabled;
- QltyInspectionGenRule."Source Table No." := Database::"Purchase Line";
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := TemplateCodeTok;
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::Disabled;
+ QltyInspectCreationRule."Source Table No." := Database::"Purchase Line";
// [WHEN] Purchase Order Trigger is validated and set to OnPurchaseOrderPostReceive
- QltyInspectionGenRule.Validate("Purchase Order Trigger", QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive);
+ QltyInspectCreationRule.Validate("Purchase Order Trigger", QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive);
// [THEN] The Purchase Order Trigger is successfully set
- LibraryAssert.AreEqual(QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive, QltyInspectionGenRule."Purchase Order Trigger", 'Purchase Order Trigger should be set to on purchase post');
+ LibraryAssert.AreEqual(QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive, QltyInspectCreationRule."Purchase Order Trigger", 'Purchase Order Trigger should be set to on purchase post');
end;
[Test]
procedure GenerationRuleList_ValidateSalesReturnTrigger()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] Sales Return Trigger can be validated and set to OnSalesReturnOrderPostReceive
Initialize();
@@ -1182,22 +1182,22 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A new generation rule for Sales Line with Disabled activation trigger is initialized
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := TemplateCodeTok;
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::Disabled;
- QltyInspectionGenRule."Source Table No." := Database::"Sales Line";
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := TemplateCodeTok;
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::Disabled;
+ QltyInspectCreationRule."Source Table No." := Database::"Sales Line";
// [WHEN] Sales Return Trigger is validated and set to OnSalesReturnOrderPostReceive
- QltyInspectionGenRule.Validate("Sales Return Trigger", QltyInspectionGenRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive);
+ QltyInspectCreationRule.Validate("Sales Return Trigger", QltyInspectCreationRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive);
// [THEN] The Sales Return Trigger is successfully set
- LibraryAssert.AreEqual(QltyInspectionGenRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive, QltyInspectionGenRule."Sales Return Trigger", 'Sales Return trigger should be set to on sales return post');
+ LibraryAssert.AreEqual(QltyInspectCreationRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive, QltyInspectCreationRule."Sales Return Trigger", 'Sales Return trigger should be set to on sales return post');
end;
[Test]
procedure GenerationRuleList_ValidateTransferTrigger()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] Transfer Order Trigger can be validated and set to OnTransferOrderPostReceive
Initialize();
@@ -1206,22 +1206,22 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A new generation rule for Transfer Line with Disabled activation trigger is initialized
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := TemplateCodeTok;
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::Disabled;
- QltyInspectionGenRule."Source Table No." := Database::"Transfer Line";
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := TemplateCodeTok;
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::Disabled;
+ QltyInspectCreationRule."Source Table No." := Database::"Transfer Line";
// [WHEN] Transfer Order Trigger is validated and set to OnTransferOrderPostReceive
- QltyInspectionGenRule.Validate("Transfer Order Trigger", QltyInspectionGenRule."Transfer Order Trigger"::OnTransferOrderPostReceive);
+ QltyInspectCreationRule.Validate("Transfer Order Trigger", QltyInspectCreationRule."Transfer Order Trigger"::OnTransferOrderPostReceive);
// [THEN] The Transfer Order Trigger is successfully set
- LibraryAssert.AreEqual(QltyInspectionGenRule."Transfer Order Trigger"::OnTransferOrderPostReceive, QltyInspectionGenRule."Transfer Order Trigger", 'Transfer Order Trigger should be set to on transfer receive post');
+ LibraryAssert.AreEqual(QltyInspectCreationRule."Transfer Order Trigger"::OnTransferOrderPostReceive, QltyInspectCreationRule."Transfer Order Trigger", 'Transfer Order Trigger should be set to on transfer receive post');
end;
[Test]
procedure GenerationRuleList_ValidateAssemblyTrigger()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] Assembly Trigger can be validated and set to OnAssemblyOutputPost
Initialize();
@@ -1230,23 +1230,23 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A new generation rule for Assembly Line with Disabled activation trigger is initialized
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := TemplateCodeTok;
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::Disabled;
- QltyInspectionGenRule."Source Table No." := Database::"Assembly Line";
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := TemplateCodeTok;
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::Disabled;
+ QltyInspectCreationRule."Source Table No." := Database::"Assembly Line";
// [WHEN] Assembly Trigger is validated and set to OnAssemblyOutputPost
- QltyInspectionGenRule.Validate("Assembly Trigger", QltyInspectionGenRule."Assembly Trigger"::OnAssemblyOutputPost);
+ QltyInspectCreationRule.Validate("Assembly Trigger", QltyInspectCreationRule."Assembly Trigger"::OnAssemblyOutputPost);
// [THEN] The Assembly Trigger is successfully set
- LibraryAssert.AreEqual(QltyInspectionGenRule."Assembly Trigger"::OnAssemblyOutputPost, QltyInspectionGenRule."Assembly Trigger", 'Assembly trigger should be set to on any output posted ledger');
+ LibraryAssert.AreEqual(QltyInspectCreationRule."Assembly Trigger"::OnAssemblyOutputPost, QltyInspectCreationRule."Assembly Trigger", 'Assembly trigger should be set to on any output posted ledger');
end;
[Test]
[HandlerFunctions('ConfirmHandler')]
procedure GenerationRuleList_ValidateAssemblyTrigger_ChangetoManualOrAuto()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] Setting Assembly Trigger changes Activation Trigger from "Manual only" to "Manual or Automatic"
Initialize();
@@ -1255,27 +1255,27 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A new generation rule for Assembly Line with "Manual only" activation trigger is initialized
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Template Code" := TemplateCodeTok;
- QltyInspectionGenRule."Activation Trigger" := QltyInspectionGenRule."Activation Trigger"::"Manual only";
- QltyInspectionGenRule."Source Table No." := Database::"Assembly Line";
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Template Code" := TemplateCodeTok;
+ QltyInspectCreationRule."Activation Trigger" := QltyInspectCreationRule."Activation Trigger"::"Manual only";
+ QltyInspectCreationRule."Source Table No." := Database::"Assembly Line";
// [WHEN] Assembly Trigger is validated and set to OnAssemblyOutputPost
- QltyInspectionGenRule.Validate("Assembly Trigger", QltyInspectionGenRule."Assembly Trigger"::OnAssemblyOutputPost);
+ QltyInspectCreationRule.Validate("Assembly Trigger", QltyInspectCreationRule."Assembly Trigger"::OnAssemblyOutputPost);
// [THEN] The Assembly Trigger is successfully set
- LibraryAssert.AreEqual(QltyInspectionGenRule."Assembly Trigger"::OnAssemblyOutputPost, QltyInspectionGenRule."Assembly Trigger", 'Assembly trigger should be set to on any output posted ledger');
+ LibraryAssert.AreEqual(QltyInspectCreationRule."Assembly Trigger"::OnAssemblyOutputPost, QltyInspectCreationRule."Assembly Trigger", 'Assembly trigger should be set to on any output posted ledger');
// [THEN] The Activation Trigger is automatically changed to "Manual or Automatic"
- LibraryAssert.AreEqual(QltyInspectionGenRule."Activation Trigger"::"Manual or Automatic", QltyInspectionGenRule."Activation Trigger", 'Activation trigger should be set to manual or automatic');
+ LibraryAssert.AreEqual(QltyInspectCreationRule."Activation Trigger"::"Manual or Automatic", QltyInspectCreationRule."Activation Trigger", 'Activation trigger should be set to manual or automatic');
end;
[Test]
[HandlerFunctions('FilterPageHandler')]
procedure GenerationRuleList_AssistEditConditionTableFilter()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- QltyInspectionGenRules: TestPage "Qlty. Inspection Gen. Rules";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ QltyInspectCreationRules: TestPage "Qlty. Inspect. Creation Rules";
begin
// [SCENARIO] User can use AssistEdit to define a Condition Filter for generation rule
Initialize();
@@ -1284,37 +1284,37 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] All existing generation rules are deleted
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] A new generation rule for Item Ledger Entry is created
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule.Insert(true);
// [GIVEN] The Generation Rules page is opened and navigated to the rule
- QltyInspectionGenRules.OpenEdit();
- QltyInspectionGenRules.GoToRecord(QltyInspectionGenRule);
+ QltyInspectCreationRules.OpenEdit();
+ QltyInspectCreationRules.GoToRecord(QltyInspectCreationRule);
// [GIVEN] A production filter expression is prepared for the handler
AssistEditTemplateValue := ConditionProductionFilterTok;
// [WHEN] AssistEdit is invoked on the "Condition Filter" field
- QltyInspectionGenRules."Condition Filter".AssistEdit();
- QltyInspectionGenRules.Close();
+ QltyInspectCreationRules."Condition Filter".AssistEdit();
+ QltyInspectCreationRules.Close();
// [THEN] The Condition Filter is updated with the production filter expression
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.AreEqual(ConditionProductionFilterTok, QltyInspectionGenRule."Condition Filter", 'Condition filter should be set to the default');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.AreEqual(ConditionProductionFilterTok, QltyInspectCreationRule."Condition Filter", 'Condition filter should be set to the default');
end;
[Test]
[HandlerFunctions('FilterPageHandler')]
procedure GenerationRuleList_AssistEditConditionItemFilter()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
LibraryInventory: Codeunit "Library - Inventory";
- QltyInspectionGenRules: TestPage "Qlty. Inspection Gen. Rules";
+ QltyInspectCreationRules: TestPage "Qlty. Inspect. Creation Rules";
begin
// [SCENARIO] User can use AssistEdit to define an Item Filter for generation rule
Initialize();
@@ -1326,38 +1326,38 @@ codeunit 139965 "Qlty. Tests - More Tests"
LibraryInventory.CreateItem(Item);
// [GIVEN] All existing generation rules are deleted
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] A new generation rule for Item Ledger Entry is created
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule.Insert(true);
// [GIVEN] The Generation Rules page is opened and navigated to the rule
- QltyInspectionGenRules.OpenEdit();
- QltyInspectionGenRules.GoToRecord(QltyInspectionGenRule);
+ QltyInspectCreationRules.OpenEdit();
+ QltyInspectCreationRules.GoToRecord(QltyInspectCreationRule);
// [GIVEN] An item filter expression for the created item is prepared for the handler
AssistEditTemplateValue := StrSubstNo(ConditionFilterItemNoTok, Item."No.");
// [WHEN] AssistEdit is invoked on the "Item Filter" field
- QltyInspectionGenRules."Item Filter".AssistEdit();
- QltyInspectionGenRules.Close();
+ QltyInspectCreationRules."Item Filter".AssistEdit();
+ QltyInspectCreationRules.Close();
// [THEN] The Item Filter is updated with the item number filter expression
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.AreEqual(StrSubstNo(ConditionFilterItemNoTok, Item."No."), QltyInspectionGenRule."Item Filter", 'Item filter should be set to the item no.');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.AreEqual(StrSubstNo(ConditionFilterItemNoTok, Item."No."), QltyInspectCreationRule."Item Filter", 'Item filter should be set to the item no.');
end;
[Test]
[HandlerFunctions('FilterItemsbyAttributeModalPageHandler')]
procedure GenerationRuleList_AssistEditConditionAttributeFilter()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ItemAttribute: Record "Item Attribute";
ItemAttributeValue: Record "Item Attribute Value";
LibraryInventory: Codeunit "Library - Inventory";
- QltyInspectionGenRules: TestPage "Qlty. Inspection Gen. Rules";
+ QltyInspectCreationRules: TestPage "Qlty. Inspect. Creation Rules";
begin
// [SCENARIO] User can use AssistEdit to define an Item Attribute Filter for generation rule
Initialize();
@@ -1366,27 +1366,27 @@ codeunit 139965 "Qlty. Tests - More Tests"
LibraryInventory.CreateItemAttributeWithValue(ItemAttribute, ItemAttributeValue, ItemAttribute.Type::Option, 'Red');
// [GIVEN] All existing generation rules are deleted
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] A new generation rule for Item Ledger Entry is created
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule.Insert(true);
// [GIVEN] The Generation Rules page is opened and navigated to the rule
- QltyInspectionGenRules.OpenEdit();
- QltyInspectionGenRules.GoToRecord(QltyInspectionGenRule);
+ QltyInspectCreationRules.OpenEdit();
+ QltyInspectCreationRules.GoToRecord(QltyInspectCreationRule);
// [GIVEN] The attribute name and value are prepared for selection via modal handler
AttributeNameToValue.Add(ItemAttribute.Name, ItemAttributeValue.Value);
// [WHEN] AssistEdit is invoked on the "Item Attribute Filter" field
- QltyInspectionGenRules."Item Attribute Filter".AssistEdit();
- QltyInspectionGenRules.Close();
+ QltyInspectCreationRules."Item Attribute Filter".AssistEdit();
+ QltyInspectCreationRules.Close();
// [THEN] The Item Attribute Filter is updated with the attribute filter expression
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.AreEqual(StrSubstNo(ConditionFilterAttributeTok, ItemAttribute.Name, ItemAttributeValue.Value), QltyInspectionGenRule."Item Attribute Filter", 'Attribute filter should be set to the attribute value.');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.AreEqual(StrSubstNo(ConditionFilterAttributeTok, ItemAttribute.Name, ItemAttributeValue.Value), QltyInspectCreationRule."Item Attribute Filter", 'Attribute filter should be set to the attribute value.');
end;
[Test]
@@ -1789,7 +1789,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionLine: Record "Qlty. Inspection Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ToLoadQltyTest: Record "Qlty. Test";
Location: Record Location;
@@ -1822,7 +1822,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurchaseHeader, PurchaseLine);
// [GIVEN] A generation rule is created and an inspection is created from the purchase line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
QltyInspectionUtility.CreateInspectionWithPurchaseLine(PurchaseLine, ConfigurationToLoadQltyInspectionTemplateHdr.Code, QltyInspectionHeader);
// [GIVEN] The inspection line is retrieved and the inspection page is opened
@@ -1839,17 +1839,17 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionLine.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.", 10000);
LibraryAssert.AreEqual('Option1', QltyInspectionLine."Test Value", 'Test value should be set.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
ConfigurationToLoadQltyInspectionTemplateHdr.Delete();
end;
- [Test]
+ [Test]Inspect.
[HandlerFunctions('ModalPageHandleChooseFromLookup')]
procedure LineTable_AssistEditChooseFromTableLookup()
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionLine: Record "Qlty. Inspection Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
LookupQltyTest: Record "Qlty. Test";
Location: Record Location;
@@ -1883,7 +1883,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurchaseHeader, PurchaseLine);
// [GIVEN] A generation rule is created and an inspection is created from the purchase line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
QltyInspectionUtility.CreateInspectionWithPurchaseLine(PurchaseLine, ConfigurationToLoadQltyInspectionTemplateHdr.Code, QltyInspectionHeader);
// [GIVEN] The inspection line is retrieved and the inspection page is opened
@@ -1903,7 +1903,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionLine.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.", 10000);
LibraryAssert.AreEqual(Location.Code, QltyInspectionLine."Test Value", 'Test value should be set.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
ConfigurationToLoadQltyInspectionTemplateHdr.Delete();
end;
@@ -1912,7 +1912,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
var
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionLine: Record "Qlty. Inspection Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ExpressionQltyInspectionTemplateLine: Record "Qlty. Inspection Template Line";
TextQltyTest: Record "Qlty. Test";
@@ -1960,7 +1960,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurchaseHeader, PurchaseLine);
// [GIVEN] A generation rule is created and an inspection is created from the purchase line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
QltyInspectionUtility.CreateInspectionWithPurchaseLine(PurchaseLine, ConfigurationToLoadQltyInspectionTemplateHdr.Code, QltyInspectionHeader);
// [GIVEN] The inspection line for the text field is retrieved and the inspection page is opened
@@ -1981,7 +1981,7 @@ codeunit 139965 "Qlty. Tests - More Tests"
QltyInspectionLine.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.", 20000);
LibraryAssert.AreEqual('test', QltyInspectionLine."Test Value", 'Test value should be set.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
ConfigurationToLoadQltyInspectionTemplateHdr.Delete();
end;
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsProdIntegr.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsProdIntegr.Codeunit.al
index 3b1e3a758f..3453423896 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsProdIntegr.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsProdIntegr.Codeunit.al
@@ -45,7 +45,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -66,8 +66,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
// [GIVEN] All existing generation rules are deleted and an output prioritized rule is created
- QltyInspectionGenRule.DeleteAll();
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order with routing are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -78,8 +78,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnAnyOutput
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnAnyOutput;
QltyManagementSetup.Modify();
@@ -97,7 +97,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] One inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
QltyInspectionHeader.SetRange("Source Document No.", ProdOrderLine."Prod. Order No.");
QltyInspectionHeader.SetRange("Source Document Line No.", ProdOrderLine."Line No.");
@@ -115,7 +115,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -132,7 +132,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order with quantity 10 are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -143,8 +143,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnAnyOutput
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnAnyOutput;
QltyManagementSetup.Modify();
@@ -163,7 +163,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] One inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
QltyInspectionHeader.SetRange("Source Document No.", ProdOrderLine."Prod. Order No.");
QltyInspectionHeader.SetRange("Source Document Line No.", ProdOrderLine."Line No.");
@@ -181,7 +181,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -198,7 +198,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -209,8 +209,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnAnyOutput
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnAnyOutput;
QltyManagementSetup.Modify();
@@ -228,7 +228,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] No inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
LibraryAssert.AreEqual(BeforeCount, AfterCount, 'No inspection should be created.');
end;
@@ -238,7 +238,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -255,8 +255,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -267,8 +267,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnAnyOutput
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnAnyOutput;
QltyManagementSetup.Modify();
@@ -287,7 +287,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] One inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
QltyInspectionHeader.SetRange("Source Document No.", ProdOrderLine."Prod. Order No.");
QltyInspectionHeader.SetRange("Source Document Line No.", ProdOrderLine."Line No.");
@@ -305,7 +305,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -322,7 +322,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -333,8 +333,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnAnyQuantity
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnAnyQuantity;
QltyManagementSetup.Modify();
@@ -352,7 +352,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] One inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
QltyInspectionHeader.SetRange("Source Document No.", ProdOrderLine."Prod. Order No.");
QltyInspectionHeader.SetRange("Source Document Line No.", ProdOrderLine."Line No.");
@@ -370,7 +370,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -387,7 +387,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order with quantity 10 are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -398,8 +398,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnAnyQuantity
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnAnyQuantity;
QltyManagementSetup.Modify();
@@ -418,7 +418,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] One inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
QltyInspectionHeader.SetRange("Source Document No.", ProdOrderLine."Prod. Order No.");
QltyInspectionHeader.SetRange("Source Document Line No.", ProdOrderLine."Line No.");
@@ -436,7 +436,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -453,8 +453,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -465,8 +465,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnAnyQuantity
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnAnyQuantity;
QltyManagementSetup.Modify();
@@ -485,7 +485,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] One inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
QltyInspectionHeader.SetRange("Source Document No.", ProdOrderLine."Prod. Order No.");
QltyInspectionHeader.SetRange("Source Document Line No.", ProdOrderLine."Line No.");
@@ -502,7 +502,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -519,7 +519,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -530,8 +530,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnAnyQuantity
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnAnyQuantity;
QltyManagementSetup.Modify();
@@ -549,7 +549,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] No inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
LibraryAssert.AreEqual(BeforeCount, AfterCount, 'No inspection should be created.');
end;
@@ -559,7 +559,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -576,7 +576,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -587,8 +587,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnlyWithQuantity
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnlyWithQuantity;
QltyManagementSetup.Modify();
@@ -607,7 +607,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] No inspection is created (OnlyWithQuantity ignores scrap-only)
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
LibraryAssert.AreEqual(BeforeCount, AfterCount, 'No inspection should be created.');
end;
@@ -617,7 +617,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -634,8 +634,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -646,8 +646,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnlyWithQuantity
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnlyWithQuantity;
QltyManagementSetup.Modify();
@@ -665,7 +665,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] One inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
QltyInspectionHeader.SetRange("Source Document No.", ProdOrderLine."Prod. Order No.");
QltyInspectionHeader.SetRange("Source Document Line No.", ProdOrderLine."Line No.");
@@ -683,7 +683,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -700,8 +700,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -712,8 +712,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnlyWithQuantity
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnlyWithQuantity;
QltyManagementSetup.Modify();
@@ -732,7 +732,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] One inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
QltyInspectionHeader.SetRange("Source Document No.", ProdOrderLine."Prod. Order No.");
QltyInspectionHeader.SetRange("Source Document Line No.", ProdOrderLine."Line No.");
@@ -750,7 +750,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -767,7 +767,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -778,8 +778,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnlyWithQuantity
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnlyWithQuantity;
QltyManagementSetup.Modify();
@@ -797,7 +797,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] No inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
LibraryAssert.AreEqual(BeforeCount, AfterCount, 'No inspection should be created.');
end;
@@ -807,7 +807,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -824,7 +824,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -835,8 +835,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnlyWithScrap
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnlyWithScrap;
QltyManagementSetup.Modify();
@@ -854,7 +854,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] No inspection is created (OnlyWithScrap ignores output-only)
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
LibraryAssert.AreEqual(BeforeCount, AfterCount, 'No inspection should be created.');
end;
@@ -864,7 +864,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -881,7 +881,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Setup exists and a template with 3 tests is created
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and released production order with quantity 10 are created
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -892,8 +892,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Generation rule trigger is set to OnProductionOutputPost
// [GIVEN] Setup Prod. trigger output condition is set to OnlyWithScrap
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnlyWithScrap;
QltyManagementSetup.Modify();
@@ -912,7 +912,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [THEN] One inspection is created
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
QltyInspectionHeader.SetRange("Source Document No.", ProdOrderLine."Prod. Order No.");
QltyInspectionHeader.SetRange("Source Document Line No.", ProdOrderLine."Line No.");
@@ -930,7 +930,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -949,8 +949,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A production order is created with quantity 10
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -960,8 +960,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Quality management setup has Prod. trigger output condition set to OnlyWithScrap
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnlyWithScrap;
QltyManagementSetup.Modify();
@@ -980,7 +980,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryInventory.PostItemJournalLine(ItemJournalBatch."Journal Template Name", ItemJournalBatch.Name);
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One inspection is created
@@ -1000,7 +1000,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
var
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
@@ -1019,7 +1019,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] A production order is created with quantity 10
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -1029,8 +1029,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] Quality management setup has Prod. trigger output condition set to OnlyWithScrap
QltyManagementSetup.Get();
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost;
+ QltyInspectCreationRule.Modify();
QltyManagementSetup."Prod. trigger output condition" := QltyManagementSetup."Prod. trigger output condition"::OnlyWithScrap;
QltyManagementSetup.Modify();
@@ -1047,7 +1047,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
asserterror LibraryInventory.PostItemJournalLine(ItemJournalBatch."Journal Template Name", ItemJournalBatch.Name);
AfterCount := QltyInspectionHeader.Count();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] No inspection is created
@@ -1059,7 +1059,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
procedure CreateInspectionOnAfterRelease_ProdOrderRoutingLine()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ManufacturingSetup: Record "Manufacturing Setup";
ToUseNoSeries: Record "No. Series";
ToUseNoSeriesLine: Record "No. Series Line";
@@ -1079,7 +1079,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectCreationRule);
// [GIVEN] An item is created and a firm planned production order is created and refreshed with routing lines
GenQltyProdOrderGenerator.Init(100);
@@ -1103,8 +1103,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
end;
// [GIVEN] Inspection generation rule has Production Order Trigger set to OnProductionOrderRelease
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease;
+ QltyInspectCreationRule.Modify();
// [WHEN] The production order status is changed to Released
Codeunit.Run(Codeunit::"Prod. Order Status Management", ProdProductionOrder);
@@ -1119,7 +1119,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
procedure CreateInspectionOnAfterRelease_ProdOrderLine()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ManufacturingSetup: Record "Manufacturing Setup";
ToUseNoSeries: Record "No. Series";
ToUseNoSeriesLine: Record "No. Series Line";
@@ -1140,7 +1140,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectCreationRule);
// [GIVEN] An item is created and a firm planned production order is created and refreshed
GenQltyProdOrderGenerator.CreateItem(Item);
@@ -1169,8 +1169,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
end;
// [GIVEN] Inspection generation rule has Production Order Trigger set to OnProductionOrderRelease
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease;
+ QltyInspectCreationRule.Modify();
// [WHEN] The production order status is changed to Released
Codeunit.Run(Codeunit::"Prod. Order Status Management", ProdProductionOrder);
@@ -1185,7 +1185,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
procedure CreateInspectionOnAfterRelease_ProdOrderRoutingLine_TrackedItem()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ManufacturingSetup: Record "Manufacturing Setup";
ToUseNoSeries: Record "No. Series";
ToUseNoSeriesLine: Record "No. Series Line";
@@ -1207,7 +1207,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item and firm planned production order are created with routing lines
GenQltyProdOrderGenerator.CreateLotTrackedItemAndProductionOrder(ProdOrderStatus::"Firm Planned", Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -1229,8 +1229,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
end;
// [GIVEN] Inspection generation rule has Production Order Trigger set to OnProductionOrderRelease
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease;
+ QltyInspectCreationRule.Modify();
// [WHEN] The production order status is changed to Released
Codeunit.Run(Codeunit::"Prod. Order Status Management", ProdProductionOrder);
@@ -1245,7 +1245,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
procedure CreateInspectionOnAfterRelease_ProdOrderLine_TrackedItem()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ManufacturingSetup: Record "Manufacturing Setup";
ToUseNoSeries: Record "No. Series";
ToUseNoSeriesLine: Record "No. Series Line";
@@ -1267,7 +1267,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item and firm planned production order are created
GenQltyProdOrderGenerator.CreateLotTrackedItemAndProductionOrder(ProdOrderStatus::"Firm Planned", Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -1295,8 +1295,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
end;
// [GIVEN] Inspection generation rule has Production Order Trigger set to OnProductionOrderRelease
- QltyInspectionGenRule."Production Order Trigger" := QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Production Order Trigger" := QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease;
+ QltyInspectCreationRule.Modify();
// [WHEN] The production order status is changed to Released
Codeunit.Run(Codeunit::"Prod. Order Status Management", ProdProductionOrder);
@@ -1313,7 +1313,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ProdProductionOrder: Record "Production Order";
ProdOrderLine: Record "Prod. Order Line";
@@ -1332,7 +1332,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
// [GIVEN] Production order line quantity is set to 10
@@ -1372,7 +1372,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordIdSecond.IndexOf('Finished') > 0, 'The source record ID 2 should have the "finished" status.');
LibraryAssert.IsTrue(RecordIdThird.IndexOf('Finished') > 0, 'The source record ID 3 should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -1383,7 +1383,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ProdProductionOrder: Record "Production Order";
ProdOrderLine: Record "Prod. Order Line";
@@ -1402,7 +1402,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
// [GIVEN] Production order line quantity is set to 10
@@ -1442,7 +1442,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordIdSecond.IndexOf('Finished') > 0, 'The source record ID 2 should have the "finished" status.');
LibraryAssert.IsTrue(RecordIdThird.IndexOf('Finished') > 0, 'The source record ID 3 should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -1453,7 +1453,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ProdProductionOrder: Record "Production Order";
ProdOrderLine: Record "Prod. Order Line";
@@ -1472,7 +1472,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
// [GIVEN] Production order line quantity is set to 10
@@ -1511,7 +1511,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordId.IndexOf('Finished') > 0, 'The source record ID should have the "finished" status.');
LibraryAssert.IsTrue(RecordIdSecond.IndexOf('Finished') > 0, 'The source record ID 2 should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -1522,7 +1522,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ProdProductionOrder: Record "Production Order";
ProdOrderLine: Record "Prod. Order Line";
@@ -1541,7 +1541,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
// [GIVEN] Production order line quantity is set to 10
@@ -1581,7 +1581,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordIdSecond.IndexOf('Finished') > 0, 'The source record ID 2 should have the "finished" status.');
LibraryAssert.IsTrue(RecordIdThird.IndexOf('Finished') > 0, 'The source record ID 3 should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -1592,7 +1592,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ProdProductionOrder: Record "Production Order";
ProdOrderLine: Record "Prod. Order Line";
@@ -1611,7 +1611,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
// [GIVEN] Production order line quantity is set to 10
@@ -1651,7 +1651,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordIdSecond.IndexOf('Finished') > 0, 'The source record ID 2 should have the "finished" status.');
LibraryAssert.IsTrue(RecordIdThird.IndexOf('Finished') > 0, 'The source record ID 3 should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -1662,7 +1662,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
ItemJournalLine: Record "Item Journal Line";
@@ -1682,7 +1682,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
// [GIVEN] Production order line quantity is set to 10
@@ -1732,7 +1732,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordIdThird.IndexOf('Finished') > 0, 'The source record ID 3 should have the "finished" status.');
LibraryAssert.IsTrue(RecordIdFourth.IndexOf('Finished') > 0, 'The source record ID 4 should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -1743,7 +1743,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
ItemJournalLine: Record "Item Journal Line";
@@ -1763,7 +1763,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
// [GIVEN] Production order line quantity is set to 10
@@ -1813,7 +1813,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordIdThird.IndexOf('Finished') > 0, 'The source record ID 3 should have the "finished" status.');
LibraryAssert.IsTrue(RecordIdFourth.IndexOf('Finished') > 0, 'The source record ID 4 should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -1824,7 +1824,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ItemJournalBatch: Record "Item Journal Batch";
ItemJournalLine: Record "Item Journal Line";
@@ -1844,7 +1844,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectionGenRule);
+ CreateOutputPrioritizedRule(QltyInspectionTemplateHdr, QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
// [GIVEN] Production order line quantity is set to 10
@@ -1894,7 +1894,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordIdThird.IndexOf('Finished') > 0, 'The source record ID 3 should have the "finished" status.');
LibraryAssert.IsTrue(RecordIdFourth.IndexOf('Finished') > 0, 'The source record ID 4 should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -1902,7 +1902,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
[HandlerFunctions('MessageHandler')]
procedure CreateInspectionOnAfterPost_Assembly_TrackedItem()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
AssemblyHeader: Record "Assembly Header";
Location: Record Location;
@@ -1948,7 +1948,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
// [GIVEN] An inspection generation rule is created for Posted Assembly Header table
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Posted Assembly Header", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Posted Assembly Header", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1972,8 +1972,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssembly.AddCompInventory(AssemblyHeader, WorkDate(), 0);
// [GIVEN] Inspection generation rule has Assembly Trigger set to OnAssemblyOutputPost
- QltyInspectionGenRule."Assembly Trigger" := QltyInspectionGenRule."Assembly Trigger"::OnAssemblyOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Assembly Trigger" := QltyInspectCreationRule."Assembly Trigger"::OnAssemblyOutputPost;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
@@ -1999,7 +1999,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
[HandlerFunctions('MessageHandler')]
procedure CreateInspectionOnAfterPost_Assembly_UntrackedItem()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
AssemblyHeader: Record "Assembly Header";
Location: Record Location;
@@ -2040,7 +2040,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
// [GIVEN] An inspection generation rule is created for Posted Assembly Header table
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Posted Assembly Header", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Posted Assembly Header", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -2050,8 +2050,8 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssembly.AddCompInventory(AssemblyHeader, WorkDate(), 0);
// [GIVEN] Inspection generation rule has Assembly Trigger set to OnAssemblyOutputPost
- QltyInspectionGenRule."Assembly Trigger" := QltyInspectionGenRule."Assembly Trigger"::OnAssemblyOutputPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Assembly Trigger" := QltyInspectCreationRule."Assembly Trigger"::OnAssemblyOutputPost;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
@@ -2074,7 +2074,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
procedure CreateInspectionOnAfterRefreshProdOrder()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
ProdProductionOrder: Record "Production Order";
@@ -2090,12 +2090,12 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] An inspection generation rule is created for Prod. Order Routing Line with OnReleasedProductionOrderRefresh trigger
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
- QltyInspectionGenRule.Validate("Production Order Trigger", QltyInspectionGenRule."Production Order Trigger"::OnReleasedProductionOrderRefresh);
- QltyInspectionGenRule.Modify(true);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
+ QltyInspectCreationRule.Validate("Production Order Trigger", QltyInspectCreationRule."Production Order Trigger"::OnReleasedProductionOrderRefresh);
+ QltyInspectCreationRule.Modify(true);
// [GIVEN] An item and production order are created with routing lines
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -2111,7 +2111,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
ProdProductionOrder.SetRecFilter();
Report.Run(Report::"Refresh Production Order", false, false, ProdProductionOrder);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] Inspections are created for each routing line
@@ -2125,7 +2125,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ProdProductionOrder: Record "Production Order";
ProdOrderLine: Record "Prod. Order Line";
@@ -2142,7 +2142,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Production Order", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Production Order", QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -2175,7 +2175,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordId.IndexOf('Finished') > 0, 'The source record ID should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -2186,7 +2186,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ProdProductionOrder: Record "Production Order";
ProdOrderLine: Record "Prod. Order Line";
@@ -2203,7 +2203,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Line", QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -2236,7 +2236,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordId.IndexOf('Finished') > 0, 'The source record ID should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -2247,7 +2247,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Item: Record Item;
ProdProductionOrder: Record "Production Order";
ProdOrderLine: Record "Prod. Order Line";
@@ -2264,7 +2264,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
// [GIVEN] A quality inspection template is created with 3 lines
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] An item and production order are created with routing line
GenQltyProdOrderGenerator.CreateItemAndProductionOrder(Item, ProdProductionOrder, ProdOrderRoutingLine);
@@ -2297,7 +2297,7 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
LibraryAssert.IsTrue(RecordId.IndexOf('Finished') > 0, 'The source record ID should have the "finished" status.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
end;
@@ -2310,20 +2310,20 @@ codeunit 139966 "Qlty. Tests - Prod. Integr."
IsInitialized := true;
end;
- local procedure CreateOutputPrioritizedRule(QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; var QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+ local procedure CreateOutputPrioritizedRule(QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; var QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule")
var
- FindLowestQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ FindLowestQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
- FindLowestQltyInspectionGenRule.Reset();
- FindLowestQltyInspectionGenRule.SetCurrentKey("Sort Order");
+ FindLowestQltyInspectCreationRule.Reset();
+ FindLowestQltyInspectCreationRule.SetCurrentKey("Sort Order");
- QltyInspectionGenRule.Init();
- if FindLowestQltyInspectionGenRule.FindFirst() then
- QltyInspectionGenRule."Sort Order" := FindLowestQltyInspectionGenRule."Sort Order" - 1;
+ QltyInspectCreationRule.Init();
+ if FindLowestQltyInspectCreationRule.FindFirst() then
+ QltyInspectCreationRule."Sort Order" := FindLowestQltyInspectCreationRule."Sort Order" - 1;
- QltyInspectionGenRule."Template Code" := QltyInspectionTemplateHdr.Code;
- QltyInspectionGenRule."Source Table No." := Database::"Item Journal Line";
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule."Template Code" := QltyInspectionTemplateHdr.Code;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Journal Line";
+ QltyInspectCreationRule.Insert(true);
end;
local procedure EnsureGenPostingSetupForAssemblyExists(AssemblyHeader: Record "Assembly Header")
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsReceivingInteg.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsReceivingInteg.Codeunit.al
index c88650b599..9c074c8363 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsReceivingInteg.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsReceivingInteg.Codeunit.al
@@ -42,7 +42,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -62,8 +62,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item is created
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -74,15 +74,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
// [GIVEN] The generation rule is set to trigger on purchase order receive
- QltyInspectionGenRule."Purchase Order Trigger" := QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Purchase Order Trigger" := QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The purchase order is received
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurOrderPurchaseHeader, PurOrdPurchaseLine);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code, lot number, and quantity
@@ -99,7 +99,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -120,8 +120,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A standard item (not lot-tracked) is created
LibraryInventory.CreateItem(Item);
@@ -132,15 +132,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
// [GIVEN] The generation rule is set to trigger on purchase order receive
- QltyInspectionGenRule."Purchase Order Trigger" := QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Purchase Order Trigger" := QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The purchase order is received
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurOrderPurchaseHeader, PurOrdPurchaseLine);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code and quantity
@@ -156,7 +156,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -176,8 +176,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateFullWMSLocation(Location, 1);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Journal Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Journal Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item is created
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -188,15 +188,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
// [GIVEN] The generation rule is set to trigger on warehouse receipt post
- QltyInspectionGenRule."Warehouse Receipt Trigger" := QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Warehouse Receipt Trigger" := QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The purchase order is received through warehouse receipt
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurOrderPurchaseHeader, PurOrdPurchaseLine);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code, lot number, and quantity
@@ -214,7 +214,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -234,8 +234,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateFullWMSLocation(Location, 1);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Receipt Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Receipt Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item is created
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -246,15 +246,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
// [GIVEN] The generation rule is set to trigger on warehouse receipt create
- QltyInspectionGenRule."Warehouse Receipt Trigger" := QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Warehouse Receipt Trigger" := QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The purchase order is received through warehouse receipt
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurOrderPurchaseHeader, PurOrdPurchaseLine);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code and lot number
@@ -270,7 +270,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -291,8 +291,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateFullWMSLocation(Location, 1);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Journal Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Journal Line", QltyInspectCreationRule);
// [GIVEN] A standard item (not lot-tracked) is created
LibraryInventory.CreateItem(Item);
@@ -303,15 +303,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
// [GIVEN] The generation rule is set to trigger on warehouse receipt post
- QltyInspectionGenRule."Warehouse Receipt Trigger" := QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Warehouse Receipt Trigger" := QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The purchase order is received through warehouse receipt
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurOrderPurchaseHeader, PurOrdPurchaseLine);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code and quantity
@@ -327,7 +327,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -347,8 +347,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateFullWMSLocation(Location, 1);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item is created
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -359,15 +359,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
// [GIVEN] The generation rule is set to trigger on warehouse receipt post
- QltyInspectionGenRule."Warehouse Receipt Trigger" := QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Warehouse Receipt Trigger" := QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The purchase order is received through warehouse receipt
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurOrderPurchaseHeader, PurOrdPurchaseLine);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code and lot number
@@ -385,7 +385,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -405,8 +405,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateFullWMSLocation(Location, 1);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item is created
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -417,15 +417,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
// [GIVEN] The generation rule is set to trigger on warehouse receipt create
- QltyInspectionGenRule."Warehouse Receipt Trigger" := QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Warehouse Receipt Trigger" := QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The purchase order is received through warehouse receipt
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurOrderPurchaseHeader, PurOrdPurchaseLine);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
LibraryAssert.AreEqual((BeforeCount + 1), QltyInspectionHeader.Count(), 'Should be one inspection created.');
@@ -442,7 +442,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -463,8 +463,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateFullWMSLocation(Location, 1);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A standard item (not lot-tracked) is created
LibraryInventory.CreateItem(Item);
@@ -475,15 +475,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
// [GIVEN] The generation rule is set to trigger on warehouse receipt create
- QltyInspectionGenRule."Warehouse Receipt Trigger" := QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Warehouse Receipt Trigger" := QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The purchase order is received through warehouse receipt
QltyPurOrderGenerator.ReceivePurchaseOrder(Location, PurOrderPurchaseHeader, PurOrdPurchaseLine);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code
@@ -498,7 +498,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -528,8 +528,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Sales Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Sales Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item with unit cost and price is created
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -562,15 +562,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibrarySales.ReleaseSalesDocument(RtnOrderSalesHeader);
// [GIVEN] The generation rule is set to trigger on sales return order receive
- QltyInspectionGenRule."Sales Return Trigger" := QltyInspectionGenRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Sales Return Trigger" := QltyInspectCreationRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The sales return order is posted to receive
LibrarySales.PostSalesDocument(RtnOrderSalesHeader, true, false);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
LibraryAssert.AreEqual((BeforeCount + 1), QltyInspectionHeader.Count(), 'Should be one inspection created.');
@@ -585,7 +585,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -615,8 +615,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Sales Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Sales Line", QltyInspectCreationRule);
// [GIVEN] A standard item with unit cost and price is created
UnitCost := LibraryRandom.RandDecInDecimalRange(1, 10, 2);
@@ -644,15 +644,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibrarySales.ReleaseSalesDocument(RtnOrderSalesHeader);
// [GIVEN] The generation rule is set to trigger on sales return order receive
- QltyInspectionGenRule."Sales Return Trigger" := QltyInspectionGenRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Sales Return Trigger" := QltyInspectCreationRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The sales return order is posted to receive
LibrarySales.PostSalesDocument(RtnOrderSalesHeader, true, false);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code
@@ -669,7 +669,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
FromLocation: Record Location;
ToLocation: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -695,8 +695,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
// [GIVEN] A quality inspection template and transfer line generation rule are set up
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item is created with lot number series
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -720,15 +720,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.ReleaseTransferOrder(OrderTransferHeader);
// [GIVEN] The generation rule is set to trigger on transfer order receive post
- QltyInspectionGenRule."Transfer Order Trigger" := QltyInspectionGenRule."Transfer Order Trigger"::OnTransferOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Transfer Order Trigger" := QltyInspectCreationRule."Transfer Order Trigger"::OnTransferOrderPostReceive;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The transfer order is posted to receive
Codeunit.Run(Codeunit::"TransferOrder-Post Transfer", OrderTransferHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code, location, lot number, and quantity
@@ -748,7 +748,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
FromLocation: Record Location;
ToLocation: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -774,8 +774,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
// [GIVEN] A quality inspection template and transfer line generation rule are set up
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectCreationRule);
// [GIVEN] A standard item is created
LibraryInventory.CreateItem(Item);
@@ -798,15 +798,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.ReleaseTransferOrder(OrderTransferHeader);
// [GIVEN] The generation rule is set to trigger on transfer order receive post
- QltyInspectionGenRule."Transfer Order Trigger" := QltyInspectionGenRule."Transfer Order Trigger"::OnTransferOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Transfer Order Trigger" := QltyInspectCreationRule."Transfer Order Trigger"::OnTransferOrderPostReceive;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The transfer order is posted to receive
Codeunit.Run(Codeunit::"TransferOrder-Post Transfer", OrderTransferHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code, location, and quantity
@@ -825,7 +825,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
ToLocation: Record Location;
InTransitLocation: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -852,8 +852,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
// [GIVEN] A quality inspection template and transfer line generation rule are set up
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item is created with lot number series
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -871,15 +871,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.ReleaseTransferOrder(OrderTransferHeader);
// [GIVEN] The generation rule is set to trigger on transfer order receive post
- QltyInspectionGenRule."Transfer Order Trigger" := QltyInspectionGenRule."Transfer Order Trigger"::OnTransferOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Transfer Order Trigger" := QltyInspectCreationRule."Transfer Order Trigger"::OnTransferOrderPostReceive;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The transfer order is posted to ship and receive
LibraryWarehouse.PostTransferOrder(OrderTransferHeader, true, true);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code, location, lot number, and quantity
@@ -899,7 +899,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
ToLocation: Record Location;
InTransitLocation: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -926,8 +926,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
// [GIVEN] A quality inspection template and transfer line generation rule are set up
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectCreationRule);
// [GIVEN] A standard item is created
LibraryInventory.CreateItem(Item);
@@ -944,15 +944,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.ReleaseTransferOrder(OrderTransferHeader);
// [GIVEN] The generation rule is set to trigger on transfer order receive post
- QltyInspectionGenRule."Transfer Order Trigger" := QltyInspectionGenRule."Transfer Order Trigger"::OnTransferOrderPostReceive;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Transfer Order Trigger" := QltyInspectCreationRule."Transfer Order Trigger"::OnTransferOrderPostReceive;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The transfer order is posted to ship and receive
LibraryWarehouse.PostTransferOrder(OrderTransferHeader, true, true);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code, location, and quantity
@@ -968,7 +968,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
procedure WarehouseIntegration_AttemptCreateInspectionWithWhseJournalLine()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyManagementSetup: Record "Qlty. Management Setup";
Location: Record Location;
WarehouseJournalTemplate: Record "Warehouse Journal Template";
@@ -996,8 +996,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryERMCountryData.CreateVATData();
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 1);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A full WMS location is created with bins and zones
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -1051,8 +1051,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
ReclassWarehouseJournalWhseItemTrackingLine.Modify();
// [GIVEN] The generation rule is set to trigger on warehouse movement register
- QltyInspectionGenRule."Warehouse Movement Trigger" := QltyInspectionGenRule."Warehouse Movement Trigger"::OnWhseMovementRegister;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Warehouse Movement Trigger" := QltyInspectCreationRule."Warehouse Movement Trigger"::OnWhseMovementRegister;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeaderForCounting.Count();
@@ -1072,7 +1072,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
procedure WarehouseIntegration_CreateInspectionDuringReceive()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyManagementSetup: Record "Qlty. Management Setup";
Location: Record Location;
WarehouseJournalTemplate: Record "Warehouse Journal Template";
@@ -1094,8 +1094,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
Initialize();
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 1);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A full WMS location with warehouse journal template and batch are set up
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -1107,8 +1107,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
QltyManagementSetup.Modify();
// [GIVEN] The generation rule is set to trigger on movement into bin and a lot-tracked item is created
- QltyInspectionGenRule."Warehouse Movement Trigger" := QltyInspectionGenRule."Warehouse Movement Trigger"::OnWhseMovementRegister;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Warehouse Movement Trigger" := QltyInspectCreationRule."Warehouse Movement Trigger"::OnWhseMovementRegister;
+ QltyInspectCreationRule.Modify();
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -1134,7 +1134,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
procedure WarehouseIntegration_SalesPickShipBin()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Zone: Record Zone;
BinType: Record "Bin Type";
@@ -1164,7 +1164,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
Initialize();
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 1);
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] A full WMS location is created and a lot-tracked item is available in inventory
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -1204,9 +1204,9 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreatePick(WarehouseShipmentHeader);
// [GIVEN] The generation rule is set to trigger on movement into bin
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
- QltyInspectionGenRule."Warehouse Movement Trigger" := QltyInspectionGenRule."Warehouse Movement Trigger"::OnWhseMovementRegister;
- QltyInspectionGenRule.Modify();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
+ QltyInspectCreationRule."Warehouse Movement Trigger" := QltyInspectCreationRule."Warehouse Movement Trigger"::OnWhseMovementRegister;
+ QltyInspectCreationRule.Modify();
BeforeCount := ForCountQltyInspectionHeader.Count();
@@ -1232,7 +1232,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
procedure WarehouseIntegration_TransferPickShipBin()
var
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
FromLocation: Record Location;
ToLocation: Record Location;
InTransitLocation: Record Location;
@@ -1262,7 +1262,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
Initialize();
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 1);
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] From, To, and In-Transit locations are set up with lot-tracked item in inventory
LibraryWarehouse.CreateFullWMSLocation(FromLocation, 3);
@@ -1301,9 +1301,9 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreatePick(WarehouseShipmentHeader);
// [GIVEN] The generation rule is set to trigger on movement into bin
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
- QltyInspectionGenRule."Warehouse Movement Trigger" := QltyInspectionGenRule."Warehouse Movement Trigger"::OnWhseMovementRegister;
- QltyInspectionGenRule.Modify();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
+ QltyInspectCreationRule."Warehouse Movement Trigger" := QltyInspectCreationRule."Warehouse Movement Trigger"::OnWhseMovementRegister;
+ QltyInspectCreationRule.Modify();
BeforeCount := ForCountQltyInspectionHeader.Count();
@@ -1330,7 +1330,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -1350,8 +1350,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item is created with lot number series
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -1368,15 +1368,15 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
SecondReservationEntry.Insert();
// [GIVEN] The generation rule is set to trigger on purchase order release
- QltyInspectionGenRule."Purchase Order Trigger" := QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderRelease;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Purchase Order Trigger" := QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderRelease;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
// [WHEN] The purchase order is released
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] Two quality inspections are created, each with matching template code and quantity of 50
@@ -1394,7 +1394,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -1413,8 +1413,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A lot-tracked item is created with lot number series
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -1425,8 +1425,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
ReservationEntry.Delete();
// [GIVEN] The generation rule is set to trigger on purchase order release
- QltyInspectionGenRule."Purchase Order Trigger" := QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderRelease;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Purchase Order Trigger" := QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderRelease;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
@@ -1437,7 +1437,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
// [WHEN] The purchase order is released
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code and quantity matching qty. to receive
@@ -1453,7 +1453,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -1473,8 +1473,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A standard item without item tracking is created
LibraryInventory.CreateItem(Item);
@@ -1483,8 +1483,8 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
QltyPurOrderGenerator.CreatePurchaseOrder(100, Location, Item, Vendor, '', PurOrderPurchaseHeader, PurOrdPurchaseLine, DummyReservationEntry);
// [GIVEN] The generation rule is set to trigger on purchase order release
- QltyInspectionGenRule."Purchase Order Trigger" := QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderRelease;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Purchase Order Trigger" := QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderRelease;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
@@ -1495,7 +1495,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
// [WHEN] The purchase order is released
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
// [THEN] One quality inspection is created with matching template code and quantity matching qty. to receive
@@ -1511,7 +1511,7 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
var
Location: Record Location;
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
Vendor: Record Vendor;
@@ -1526,21 +1526,21 @@ codeunit 139958 "Qlty. Tests - Receiving Integ."
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(QltyInspectionTemplateHdr, 3);
- QltyInspectionGenRule.DeleteAll();
- QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectCreationRule.DeleteAll();
+ QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
QltyInspectionUtility.CreateSerialTrackedItem(Item);
IWXOrdQltyPurOrderGenerator.CreatePurchaseOrder(2, Location, Item, Vendor, '', PurOrderPurchaseHeader, PurOrdPurchaseLine, ReservationEntry);
- QltyInspectionGenRule."Purchase Order Trigger" := QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderRelease;
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule."Purchase Order Trigger" := QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderRelease;
+ QltyInspectCreationRule.Modify();
BeforeCount := QltyInspectionHeader.Count();
LibraryPurchase.ReleasePurchaseDocument(PurOrderPurchaseHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
QltyInspectionTemplateHdr.Delete();
LibraryAssert.AreEqual(BeforeCount + 2, QltyInspectionHeader.Count(), 'Should be two inspections created.');
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsResultEval.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsResultEval.Codeunit.al
index a9be3c13fe..2a2ab1517d 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsResultEval.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsResultEval.Codeunit.al
@@ -723,7 +723,7 @@ codeunit 139963 "Qlty. Tests - Result Eval."
LabelQltyTest: Record "Qlty. Test";
ProdProductionOrder: Record "Production Order";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionLine: Record "Qlty. Inspection Line";
QltyIResultConditConf: Record "Qlty. I. Result Condit. Conf.";
@@ -748,7 +748,7 @@ codeunit 139963 "Qlty. Tests - Result Eval."
QltyInspectionUtility.CreateTestAndAddToTemplate(QltyInspectionTemplateHdr, LabelQltyTest."Test Value Type"::"Value Type Label", LabelQltyTest, QltyInspectionTemplateLine);
// [GIVEN] Inspection generation rules are cleared and prioritized rule is created
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line");
// [GIVEN] A production order is generated and Inspection is created
@@ -2012,7 +2012,7 @@ codeunit 139963 "Qlty. Tests - Result Eval."
QltyManagementSetup: Record "Qlty. Management Setup";
QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
QltyInspectionTemplateLine: Record "Qlty. Inspection Template Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
OptionListMeasureQltyTest: Record "Qlty. Test";
ProdProductionOrder: Record "Production Order";
ProdOrderRoutingLine: Record "Prod. Order Routing Line";
@@ -2056,7 +2056,7 @@ codeunit 139963 "Qlty. Tests - Result Eval."
ToLoadToLoadToUseAsATemplateQltyIResultConditConf.Validate(Condition, 'C|D');
ToLoadToLoadToUseAsATemplateQltyIResultConditConf.Modify();
// [GIVEN] Inspection generation rules are cleared and prioritized rule is created
- QltyInspectionGenRule.DeleteAll(false);
+ QltyInspectCreationRule.DeleteAll(false);
QltyInspectionUtility.CreatePrioritizedRule(QltyInspectionTemplateHdr, Database::"Prod. Order Routing Line");
// [GIVEN] A production order is generated and Inspection is created with specific template
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsTestTable.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsTestTable.Codeunit.al
index a63e0d65fd..38210b1604 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsTestTable.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsTestTable.Codeunit.al
@@ -96,7 +96,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure Table_GetControlCaptionClass()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
begin
@@ -113,13 +113,13 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [THEN] The method returns "Status" as the caption
LibraryAssert.AreEqual(StatusTok, QltyInspectionUtility.GetControlCaptionClass(QltyInspectionHeader, SourceCustomTok), 'Should have returned "Status".');
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
end;
[Test]
procedure Table_GetControlVisibleState()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
begin
@@ -137,13 +137,13 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [THEN] The method returns true indicating the control should be visible
LibraryAssert.IsTrue(QltyInspectionUtility.GetControlVisibleState(QltyInspectionHeader, SourceCustomTok), 'Should show Custom 1 (Status).');
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.DeleteAll();
end;
[Test]
procedure Table_GetRelatedItem()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
Location: Record Location;
Item: Record Item;
@@ -163,7 +163,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -182,14 +182,14 @@ codeunit 139967 "Qlty. Tests - Test Table"
LibraryAssert.IsTrue(QltyInspectionHeader.GetRelatedItem(FoundItem), 'Should find item.');
LibraryAssert.AreEqual(Item."No.", FoundItem."No.", 'Should be same item.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
procedure Table_ValidateAssignedUserID_AssignFromBlank()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -205,7 +205,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -213,7 +213,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] An inspection is created from purchase with untracked item
QltyPurOrderGenerator.CreateInspectionFromPurchaseWithUntrackedItem(Location, 100, PurchaseHeader, PurchaseLine, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] The inspection has no assigned user
LibraryAssert.IsTrue(QltyInspectionHeader."Assigned User ID" = '', 'Should not have user assigned.');
@@ -230,7 +230,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
User: Record User;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -247,7 +247,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -255,7 +255,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] An inspection is created from purchase with untracked item
QltyPurOrderGenerator.CreateInspectionFromPurchaseWithUntrackedItem(Location, 100, PurchaseHeader, PurchaseLine, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] An inspection user is created if it doesn't exist
User.SetRange("User Name", UserTok);
@@ -278,7 +278,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
User: Record User;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -295,7 +295,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -303,7 +303,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] An inspection is created from purchase with untracked item
QltyPurOrderGenerator.CreateInspectionFromPurchaseWithUntrackedItem(Location, 100, PurchaseHeader, PurchaseLine, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] An inspection user is created if it doesn't exist
User.SetRange("User Name", UserTok);
@@ -325,7 +325,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
User: Record User;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -342,7 +342,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -350,7 +350,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] An inspection is created from purchase with untracked item
QltyPurOrderGenerator.CreateInspectionFromPurchaseWithUntrackedItem(Location, 100, PurchaseHeader, PurchaseLine, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [GIVEN] An inspection user is created if it doesn't exist
User.SetRange("User Name", UserTok);
@@ -373,7 +373,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_ValidateSampleSize_SampleSizeLargerThanSourceQty()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -392,7 +392,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -411,7 +411,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_DefaultSampleSize_FromFixedQuantity()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -436,7 +436,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
ConfigurationToLoadQltyInspectionTemplateHdr.Modify(false);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -452,7 +452,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_DefaultSampleSize_FromFixedQuantity_MaxesOut()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -477,7 +477,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
ConfigurationToLoadQltyInspectionTemplateHdr.Modify(false);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -493,7 +493,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_DefaultSampleSize_FromPercentage()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -518,7 +518,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
ConfigurationToLoadQltyInspectionTemplateHdr.Modify(false);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -534,7 +534,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_OnDelete_CanDeleteOpenInspection()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -551,7 +551,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -559,7 +559,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] An inspection is created from purchase with untracked item
QltyPurOrderGenerator.CreateInspectionFromPurchaseWithUntrackedItem(Location, 100, PurchaseHeader, PurchaseLine, QltyInspectionHeader);
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
// [WHEN] The inspection is deleted
QltyInspectionHeader.Delete(true);
@@ -574,7 +574,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditTestField()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -594,7 +594,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -612,7 +612,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionLine.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.", 10000);
LibraryAssert.AreEqual(TestValueTxt, QltyInspectionLine."Test Value", 'Test value should match.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -620,7 +620,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditLotNo()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
Vendor: Record Vendor;
@@ -651,7 +651,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -686,7 +686,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.AreEqual(FirstReservationEntry."Lot No.", QltyInspectionHeader."Source Lot No.", 'Should be other source lot no.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -694,7 +694,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditSerialNo()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Vendor: Record Vendor;
ToUseNoSeries: Record "No. Series";
@@ -724,7 +724,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -755,7 +755,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.AreNotEqual(ReservationEntry."Serial No.", QltyInspectionHeader."Source Serial No.", 'Should be new source serial no.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -763,7 +763,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditPackageNo()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ToUseNoSeries: Record "No. Series";
Location: Record Location;
Item: Record Item;
@@ -795,7 +795,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -830,7 +830,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.AreEqual(FirstReservationEntry."Package No.", QltyInspectionHeader."Source Package No.", 'Should be other source package no.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -838,7 +838,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditLotNo_ChooseSingleDocument()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
Vendor: Record Vendor;
@@ -869,7 +869,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -902,7 +902,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.AreEqual(FirstReservationEntry."Lot No.", QltyInspectionHeader."Source Lot No.", 'Should be other source lot no.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -910,7 +910,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditSerialNo_ChooseSingleDocument()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Vendor: Record Vendor;
ToUseNoSeries: Record "No. Series";
@@ -940,7 +940,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -971,7 +971,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.AreNotEqual(ReservationEntry."Serial No.", QltyInspectionHeader."Source Serial No.", 'Should be new source serial no.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -979,7 +979,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditPackageNo_ChooseSingleDocument()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ToUseNoSeries: Record "No. Series";
Location: Record Location;
Item: Record Item;
@@ -1011,7 +1011,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1044,7 +1044,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.AreEqual(FirstReservationEntry."Package No.", QltyInspectionHeader."Source Package No.", 'Should be other source package no.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -1052,7 +1052,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditLotNo_ChooseFromAnyDocument()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
Vendor: Record Vendor;
@@ -1084,7 +1084,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1116,7 +1116,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.AreEqual(FirstReservationEntry."Lot No.", QltyInspectionHeader."Source Lot No.", 'Should be other source lot no.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -1124,7 +1124,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditSerialNo_ChooseFromAnyDocument()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
ToUseNoSeries: Record "No. Series";
@@ -1157,7 +1157,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1189,7 +1189,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.AreEqual(FirstReservationEntry."Serial No.", QltyInspectionHeader."Source Serial No.", 'Should be other source serial no.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -1197,7 +1197,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure Table_AssistEditPackageNo_ChooseFromAnyDocument()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
ToUseNoSeries: Record "No. Series";
@@ -1230,7 +1230,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for Purchase Line
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1262,7 +1262,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.AreEqual(FirstReservationEntry."Package No.", QltyInspectionHeader."Source Package No.", 'Should be other source package no.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -1370,7 +1370,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
ToUseNoSeries: Record "No. Series";
@@ -1397,7 +1397,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1434,7 +1434,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
ToUseNoSeries: Record "No. Series";
@@ -1461,7 +1461,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1498,7 +1498,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
Item: Record Item;
ToUseNoSeries: Record "No. Series";
@@ -1525,7 +1525,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1664,7 +1664,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
Location: Record Location;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -1679,7 +1679,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule is created for purchase lines
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1704,7 +1704,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
Location: Record Location;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -1719,7 +1719,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule is created for purchase lines
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -1737,7 +1737,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
Location: Record Location;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -1754,7 +1754,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule is created for purchase lines
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location and item are created
LibraryWarehouse.CreateLocation(Location);
@@ -1777,7 +1777,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
Location: Record Location;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -1794,7 +1794,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule is created for purchase lines
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location and item are created
LibraryWarehouse.CreateLocation(Location);
@@ -1817,7 +1817,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
Location: Record Location;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -1834,7 +1834,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule is created for purchase lines
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location and item are created
LibraryWarehouse.CreateLocation(Location);
@@ -1857,7 +1857,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
Location: Record Location;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
Item: Record Item;
PurchaseHeader: Record "Purchase Header";
@@ -1874,7 +1874,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule is created for purchase lines
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location and item are created
LibraryWarehouse.CreateLocation(Location);
@@ -1955,7 +1955,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
Item: Record Item;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
QltyInspectionHeader: Record "Qlty. Inspection Header";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
QltyPurOrderGenerator: Codeunit "Qlty. Pur. Order Generator";
@@ -1973,7 +1973,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location and item are created
LibraryWarehouse.CreateLocation(Location);
@@ -1998,7 +1998,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
Item: Record Item;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
QltyInspectionHeader: Record "Qlty. Inspection Header";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
ReservationEntry: Record "Reservation Entry";
@@ -2017,7 +2017,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -2047,7 +2047,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
Item: Record Item;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
QltyInspectionHeader: Record "Qlty. Inspection Header";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
ReservationEntry: Record "Reservation Entry";
@@ -2065,7 +2065,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -2090,7 +2090,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure InspectionPage_FinishInspection()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -2108,7 +2108,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -2128,7 +2128,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
LibraryAssert.IsTrue(QltyInspectionHeader.Status = QltyInspectionHeader.Status::Finished, 'Inspection should be finished.');
// [GIVEN] Cleanup generation rule
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -2136,7 +2136,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure InspectionPage_ReopenInspection()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -2154,7 +2154,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -2178,14 +2178,14 @@ codeunit 139967 "Qlty. Tests - Test Table"
LibraryAssert.IsTrue(QltyInspectionHeader.Status = QltyInspectionHeader.Status::Open, 'Inspection should be open.');
// [GIVEN] Cleanup generation rule
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
procedure InspectionPage_PickupInspection()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -2203,7 +2203,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -2223,14 +2223,14 @@ codeunit 139967 "Qlty. Tests - Test Table"
LibraryAssert.IsTrue(QltyInspectionHeader."Assigned User ID" = UserId(), 'Inspection should be assigned to user.');
// [GIVEN] Cleanup generation rule
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
procedure InspectionPage_UnassignInspection()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -2248,7 +2248,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
// [GIVEN] A template and generation rule are created for purchase lines
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location is created
LibraryWarehouse.CreateLocation(Location);
@@ -2272,7 +2272,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
LibraryAssert.IsTrue(QltyInspectionHeader."Assigned User ID" = '', 'Inspection should not be assigned to a user.');
// [GIVEN] Cleanup generation rule
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -2721,15 +2721,15 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] ValidateProductionTrigger updates existing production rules when setup trigger changes
Initialize();
// [GIVEN] All existing generation rules are deleted
- if not QltyInspectionGenRule.IsEmpty() then
- QltyInspectionGenRule.DeleteAll();
+ if not QltyInspectCreationRule.IsEmpty() then
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Quality management setup is configured
QltyInspectionUtility.EnsureSetupExists();
@@ -2740,9 +2740,9 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Production Order");
// [GIVEN] Production rules with OnProductionOrderRelease trigger are filtered
- QltyInspectionGenRule.SetRange(Intent, QltyInspectionGenRule.Intent::Production);
- QltyInspectionGenRule.SetRange("Production Order Trigger", QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease);
- LibraryAssert.IsTrue(QltyInspectionGenRule.IsEmpty(), 'Should be no rules with trigger.');
+ QltyInspectCreationRule.SetRange(Intent, QltyInspectCreationRule.Intent::Production);
+ QltyInspectCreationRule.SetRange("Production Order Trigger", QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease);
+ LibraryAssert.IsTrue(QltyInspectCreationRule.IsEmpty(), 'Should be no rules with trigger.');
// [GIVEN] Setup is updated to OnProductionOrderRelease trigger
QltyManagementSetup.Get();
@@ -2750,26 +2750,26 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [GIVEN] Rules with OnProductionOrderRelease trigger are verified as still empty
- QltyInspectionGenRule.SetRange("Production Order Trigger", QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease);
- LibraryAssert.IsTrue(QltyInspectionGenRule.IsEmpty(), 'Should be no rules with trigger.');
+ QltyInspectCreationRule.SetRange("Production Order Trigger", QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease);
+ LibraryAssert.IsTrue(QltyInspectCreationRule.IsEmpty(), 'Should be no rules with trigger.');
// [GIVEN] A new production rule is created
- Clear(QltyInspectionGenRule);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ Clear(QltyInspectCreationRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] Source table is changed to Prod. Order Line
- QltyInspectionGenRule.Validate("Source Table No.", Database::"Prod. Order Line");
- QltyInspectionGenRule.Modify();
- LibraryAssert.IsTrue(QltyInspectionGenRule."Production Order Trigger" = QltyInspectionGenRule."Production Order Trigger"::OnProductionOrderRelease, 'Should have default trigger.');
+ QltyInspectCreationRule.Validate("Source Table No.", Database::"Prod. Order Line");
+ QltyInspectCreationRule.Modify();
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Production Order Trigger" = QltyInspectCreationRule."Production Order Trigger"::OnProductionOrderRelease, 'Should have default trigger.');
// [WHEN] Setup production order trigger is changed to OnProductionOutputPost
QltyManagementSetup.Validate("Production Order Trigger", QltyManagementSetup."Production Order Trigger"::OnProductionOutputPost);
QltyManagementSetup.Modify();
// [THEN] Existing production rule is updated to new trigger
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.SetRange("Production Order Trigger", QltyInspectionGenRule."Production Order Trigger"::OnProductionOutputPost);
- LibraryAssert.AreEqual(1, QltyInspectionGenRule.Count(), 'Production rule should have new production order trigger.');
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.SetRange("Production Order Trigger", QltyInspectCreationRule."Production Order Trigger"::OnProductionOutputPost);
+ LibraryAssert.AreEqual(1, QltyInspectCreationRule.Count(), 'Production rule should have new production order trigger.');
end;
[Test]
@@ -2807,7 +2807,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure SetupTable_ValidateWarehouseTrigger_AddTrigger()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
begin
// [SCENARIO] ValidateWarehouseTrigger adds trigger to new warehouse rules when setup trigger is configured
@@ -2823,14 +2823,14 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [GIVEN] A warehouse journal line rule is created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Journal Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Journal Line", QltyInspectCreationRule);
// [WHEN] Source table is changed to Warehouse Entry
- QltyInspectionGenRule.Validate("Source Table No.", Database::"Warehouse Entry");
- QltyInspectionGenRule.Modify();
+ QltyInspectCreationRule.Validate("Source Table No.", Database::"Warehouse Entry");
+ QltyInspectCreationRule.Modify();
// [THEN] Warehouse Movement Trigger defaults to OnWhseMovementRegister
- LibraryAssert.IsTrue(QltyInspectionGenRule."Warehouse Movement Trigger" = QltyInspectionGenRule."Warehouse Movement Trigger"::OnWhseMovementRegister, 'Should have default trigger value.');
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Warehouse Movement Trigger" = QltyInspectCreationRule."Warehouse Movement Trigger"::OnWhseMovementRegister, 'Should have default trigger value.');
end;
[Test]
@@ -2839,7 +2839,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyManagementSetupPage: TestPage "Qlty. Management Setup";
begin
// [SCENARIO] ValidateWarehouseTrigger removes trigger from existing warehouse rules when trigger is set to NoTrigger
@@ -2855,9 +2855,9 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [GIVEN] A warehouse rule is created with trigger
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Journal Line", QltyInspectionGenRule);
- QltyInspectionGenRule.Validate("Source Table No.", Database::"Warehouse Entry");
- QltyInspectionGenRule.Modify();
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Journal Line", QltyInspectCreationRule);
+ QltyInspectCreationRule.Validate("Source Table No.", Database::"Warehouse Entry");
+ QltyInspectCreationRule.Modify();
// [GIVEN] Setup page is opened
QltyManagementSetupPage.OpenEdit();
@@ -2867,8 +2867,8 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetupPage.Close();
// [THEN] Existing warehouse rule has trigger removed
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.IsTrue(QltyInspectionGenRule."Warehouse Movement Trigger" = QltyInspectionGenRule."Warehouse Movement Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Warehouse Movement Trigger" = QltyInspectCreationRule."Warehouse Movement Trigger"::NoTrigger, 'Should not have trigger.');
end;
[Test]
@@ -3167,22 +3167,22 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] ValidateWarehouseReceiveTrigger updates warehouse receive rules when setup trigger changes
Initialize();
// [GIVEN] All existing generation rules are deleted
- if not QltyInspectionGenRule.IsEmpty() then
- QltyInspectionGenRule.DeleteAll();
+ if not QltyInspectCreationRule.IsEmpty() then
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Quality management setup is configured
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A warehouse receipt line rule is created
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Receipt Line", QltyInspectionGenRule);
- LibraryAssert.IsTrue(QltyInspectionGenRule."Warehouse Receipt Trigger" = QltyInspectionGenRule."Warehouse Receipt Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Receipt Line", QltyInspectCreationRule);
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Warehouse Receipt Trigger" = QltyInspectCreationRule."Warehouse Receipt Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] Setup is updated to OnWarehouseReceiptCreate trigger
QltyManagementSetup.Get();
@@ -3190,30 +3190,30 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [GIVEN] Existing rule is retrieved and still has NoTrigger
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.IsTrue(QltyInspectionGenRule."Warehouse Receipt Trigger" = QltyInspectionGenRule."Warehouse Receipt Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Warehouse Receipt Trigger" = QltyInspectCreationRule."Warehouse Receipt Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] A new rule is created for different source table
- Clear(QltyInspectionGenRule);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ Clear(QltyInspectCreationRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] Source table is changed to Warehouse Receipt Line
- QltyInspectionGenRule.Validate("Source Table No.", Database::"Warehouse Receipt Line");
- QltyInspectionGenRule.Modify();
- LibraryAssert.IsTrue(QltyInspectionGenRule."Warehouse Receipt Trigger" = QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate, 'Should have default trigger.');
+ QltyInspectCreationRule.Validate("Source Table No.", Database::"Warehouse Receipt Line");
+ QltyInspectCreationRule.Modify();
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Warehouse Receipt Trigger" = QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptCreate, 'Should have default trigger.');
// [WHEN] Setup trigger is changed to OnWarehouseReceiptPost
QltyManagementSetup.Validate("Warehouse Receipt Trigger", QltyManagementSetup."Warehouse Receipt Trigger"::OnWarehouseReceiptPost);
QltyManagementSetup.Modify();
// [THEN] Existing warehouse receipt rule is updated to new trigger
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.SetRange("Warehouse Receipt Trigger", QltyInspectionGenRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost);
- LibraryAssert.AreEqual(1, QltyInspectionGenRule.Count(), 'Production rule should have new production order trigger value.');
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.SetRange("Warehouse Receipt Trigger", QltyInspectCreationRule."Warehouse Receipt Trigger"::OnWarehouseReceiptPost);
+ LibraryAssert.AreEqual(1, QltyInspectCreationRule.Count(), 'Production rule should have new production order trigger value.');
// [GIVEN] All generation rules are cleaned up
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.DeleteAll();
end;
[Test]
@@ -3222,22 +3222,22 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] ValidatePurchaseTrigger updates purchase rules when setup trigger changes
Initialize();
// [GIVEN] All existing generation rules are deleted
- if not QltyInspectionGenRule.IsEmpty() then
- QltyInspectionGenRule.DeleteAll();
+ if not QltyInspectCreationRule.IsEmpty() then
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Quality management setup is configured
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A purchase line rule is created with no trigger
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
- LibraryAssert.IsTrue(QltyInspectionGenRule."Purchase Order Trigger" = QltyInspectionGenRule."Purchase Order Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Purchase Order Trigger" = QltyInspectCreationRule."Purchase Order Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] Setup Purchase Order Trigger is set to OnPurchaseOrderPostReceive
QltyManagementSetup.Get();
@@ -3245,30 +3245,30 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [GIVEN] Existing rule still has NoTrigger
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.IsTrue(QltyInspectionGenRule."Purchase Order Trigger" = QltyInspectionGenRule."Purchase Order Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Purchase Order Trigger" = QltyInspectCreationRule."Purchase Order Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] A new rule is created for different source table
- Clear(QltyInspectionGenRule);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ Clear(QltyInspectCreationRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] Source table is changed to Purchase Line
- QltyInspectionGenRule.Validate("Source Table No.", Database::"Purchase Line");
- QltyInspectionGenRule.Modify();
- LibraryAssert.IsTrue(QltyInspectionGenRule."Purchase Order Trigger" = QltyInspectionGenRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive, 'Should have default trigger.');
+ QltyInspectCreationRule.Validate("Source Table No.", Database::"Purchase Line");
+ QltyInspectCreationRule.Modify();
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Purchase Order Trigger" = QltyInspectCreationRule."Purchase Order Trigger"::OnPurchaseOrderPostReceive, 'Should have default trigger.');
// [WHEN] Setup trigger is changed to NoTrigger
QltyManagementSetup.Validate("Purchase Order Trigger", QltyManagementSetup."Purchase Order Trigger"::NoTrigger);
QltyManagementSetup.Modify();
// [THEN] All purchase rules have trigger removed
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.SetRange("Purchase Order Trigger", QltyInspectionGenRule."Purchase Order Trigger"::NoTrigger);
- LibraryAssert.AreEqual(2, QltyInspectionGenRule.Count(), 'Purchase rule should have new Purchase Order Trigger value.');
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.SetRange("Purchase Order Trigger", QltyInspectCreationRule."Purchase Order Trigger"::NoTrigger);
+ LibraryAssert.AreEqual(2, QltyInspectCreationRule.Count(), 'Purchase rule should have new Purchase Order Trigger value.');
// [GIVEN] All generation rules are cleaned up
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.DeleteAll();
end;
[Test]
@@ -3277,22 +3277,22 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] ValidateSalesReturnTrigger updates sales return rules when setup trigger changes
Initialize();
// [GIVEN] All existing generation rules are deleted
- if not QltyInspectionGenRule.IsEmpty() then
- QltyInspectionGenRule.DeleteAll();
+ if not QltyInspectCreationRule.IsEmpty() then
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Quality management setup is configured
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A sales line rule is created with no trigger
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Sales Line", QltyInspectionGenRule);
- LibraryAssert.IsTrue(QltyInspectionGenRule."Sales Return Trigger" = QltyInspectionGenRule."Sales Return Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Sales Line", QltyInspectCreationRule);
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Sales Return Trigger" = QltyInspectCreationRule."Sales Return Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] Setup sales return trigger is set to OnSalesReturnOrderPostReceive
QltyManagementSetup.Get();
@@ -3300,30 +3300,30 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [GIVEN] Existing rule still has NoTrigger
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.IsTrue(QltyInspectionGenRule."Sales Return Trigger" = QltyInspectionGenRule."Sales Return Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Sales Return Trigger" = QltyInspectCreationRule."Sales Return Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] A new rule is created for different source table
- Clear(QltyInspectionGenRule);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ Clear(QltyInspectCreationRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] Source table is changed to Sales Line
- QltyInspectionGenRule.Validate("Source Table No.", Database::"Sales Line");
- QltyInspectionGenRule.Modify();
- LibraryAssert.IsTrue(QltyInspectionGenRule."Sales Return Trigger" = QltyInspectionGenRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive, 'Should have default trigger.');
+ QltyInspectCreationRule.Validate("Source Table No.", Database::"Sales Line");
+ QltyInspectCreationRule.Modify();
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Sales Return Trigger" = QltyInspectCreationRule."Sales Return Trigger"::OnSalesReturnOrderPostReceive, 'Should have default trigger.');
// [WHEN] Setup trigger is changed to NoTrigger
QltyManagementSetup.Validate("Sales Return Trigger", QltyManagementSetup."Sales Return Trigger"::NoTrigger);
QltyManagementSetup.Modify();
// [THEN] All sales return rules have trigger removed
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.SetRange("Sales Return Trigger", QltyInspectionGenRule."Sales Return Trigger"::NoTrigger);
- LibraryAssert.AreEqual(2, QltyInspectionGenRule.Count(), 'Sales Return rule should have new sales return trigger value.');
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.SetRange("Sales Return Trigger", QltyInspectCreationRule."Sales Return Trigger"::NoTrigger);
+ LibraryAssert.AreEqual(2, QltyInspectCreationRule.Count(), 'Sales Return rule should have new sales return trigger value.');
// [GIVEN] All generation rules are cleaned up
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.DeleteAll();
end;
[Test]
@@ -3332,22 +3332,22 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] ValidateTransferTrigger updates transfer rules when setup trigger changes
Initialize();
// [GIVEN] All existing generation rules are deleted
- if not QltyInspectionGenRule.IsEmpty() then
- QltyInspectionGenRule.DeleteAll();
+ if not QltyInspectCreationRule.IsEmpty() then
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Quality management setup is configured
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A transfer line rule is created with no trigger
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectionGenRule);
- LibraryAssert.IsTrue(QltyInspectionGenRule."Transfer Order Trigger" = QltyInspectionGenRule."Transfer Order Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Transfer Line", QltyInspectCreationRule);
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Transfer Order Trigger" = QltyInspectCreationRule."Transfer Order Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] Setup transfer order trigger is set to OnTransferOrderPostReceive
QltyManagementSetup.Get();
@@ -3355,30 +3355,30 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [GIVEN] Existing rule still has NoTrigger
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.IsTrue(QltyInspectionGenRule."Transfer Order Trigger" = QltyInspectionGenRule."Transfer Order Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Transfer Order Trigger" = QltyInspectCreationRule."Transfer Order Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] A new rule is created for different source table
- Clear(QltyInspectionGenRule);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ Clear(QltyInspectCreationRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] Source table is changed to Transfer Line
- QltyInspectionGenRule.Validate("Source Table No.", Database::"Transfer Line");
- QltyInspectionGenRule.Modify();
- LibraryAssert.IsTrue(QltyInspectionGenRule."Transfer Order Trigger" = QltyInspectionGenRule."Transfer Order Trigger"::OnTransferOrderPostReceive, 'Should have default trigger.');
+ QltyInspectCreationRule.Validate("Source Table No.", Database::"Transfer Line");
+ QltyInspectCreationRule.Modify();
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Transfer Order Trigger" = QltyInspectCreationRule."Transfer Order Trigger"::OnTransferOrderPostReceive, 'Should have default trigger.');
// [WHEN] Setup trigger is changed to NoTrigger
QltyManagementSetup.Validate("Transfer Order Trigger", QltyManagementSetup."Transfer Order Trigger"::NoTrigger);
QltyManagementSetup.Modify();
// [THEN] All transfer rules have trigger removed
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.SetRange("Transfer Order Trigger", QltyInspectionGenRule."Transfer Order Trigger"::NoTrigger);
- LibraryAssert.AreEqual(2, QltyInspectionGenRule.Count(), 'Transfer rule should have new transfer order trigger value.');
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.SetRange("Transfer Order Trigger", QltyInspectCreationRule."Transfer Order Trigger"::NoTrigger);
+ LibraryAssert.AreEqual(2, QltyInspectCreationRule.Count(), 'Transfer rule should have new transfer order trigger value.');
// [GIVEN] All generation rules are cleaned up
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.DeleteAll();
end;
[Test]
@@ -3387,22 +3387,22 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] ValidateAssemblyTrigger updates assembly rules when setup trigger changes
Initialize();
// [GIVEN] All existing generation rules are deleted
- if not QltyInspectionGenRule.IsEmpty() then
- QltyInspectionGenRule.DeleteAll();
+ if not QltyInspectCreationRule.IsEmpty() then
+ QltyInspectCreationRule.DeleteAll();
// [GIVEN] Quality management setup is configured
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A posted assembly header rule is created with no trigger
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Posted Assembly Header", QltyInspectionGenRule);
- LibraryAssert.IsTrue(QltyInspectionGenRule."Assembly Trigger" = QltyInspectionGenRule."Assembly Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Posted Assembly Header", QltyInspectCreationRule);
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Assembly Trigger" = QltyInspectCreationRule."Assembly Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] Setup assembly trigger is set to OnAssemblyOutputPost
QltyManagementSetup.Get();
@@ -3410,30 +3410,30 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [GIVEN] Existing rule still has NoTrigger
- QltyInspectionGenRule.Get(QltyInspectionGenRule."Entry No.");
- LibraryAssert.IsTrue(QltyInspectionGenRule."Assembly Trigger" = QltyInspectionGenRule."Assembly Trigger"::NoTrigger, 'Should not have trigger.');
+ QltyInspectCreationRule.Get(QltyInspectCreationRule."Entry No.");
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Assembly Trigger" = QltyInspectCreationRule."Assembly Trigger"::NoTrigger, 'Should not have trigger.');
// [GIVEN] A new rule is created for different source table
- Clear(QltyInspectionGenRule);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectionGenRule);
+ Clear(QltyInspectCreationRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Prod. Order Routing Line", QltyInspectCreationRule);
// [GIVEN] Source table is changed to Posted Assembly Header
- QltyInspectionGenRule.Validate("Source Table No.", Database::"Posted Assembly Header");
- QltyInspectionGenRule.Modify();
- LibraryAssert.IsTrue(QltyInspectionGenRule."Assembly Trigger" = QltyInspectionGenRule."Assembly Trigger"::OnAssemblyOutputPost, 'Should have default trigger.');
+ QltyInspectCreationRule.Validate("Source Table No.", Database::"Posted Assembly Header");
+ QltyInspectCreationRule.Modify();
+ LibraryAssert.IsTrue(QltyInspectCreationRule."Assembly Trigger" = QltyInspectCreationRule."Assembly Trigger"::OnAssemblyOutputPost, 'Should have default trigger.');
// [WHEN] Setup trigger is changed to NoTrigger
QltyManagementSetup.Validate("Assembly Trigger", QltyManagementSetup."Assembly Trigger"::NoTrigger);
QltyManagementSetup.Modify();
// [THEN] All assembly rules have trigger removed
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.SetRange("Assembly Trigger", QltyInspectionGenRule."Assembly Trigger"::NoTrigger);
- LibraryAssert.AreEqual(2, QltyInspectionGenRule.Count(), 'Assembly rule should have new assembly trigger value.');
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.SetRange("Assembly Trigger", QltyInspectCreationRule."Assembly Trigger"::NoTrigger);
+ LibraryAssert.AreEqual(2, QltyInspectCreationRule.Count(), 'Assembly rule should have new assembly trigger value.');
// [GIVEN] All generation rules are cleaned up
- QltyInspectionGenRule.Reset();
- QltyInspectionGenRule.DeleteAll();
+ QltyInspectCreationRule.Reset();
+ QltyInspectCreationRule.DeleteAll();
end;
[Test]
@@ -3467,7 +3467,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure GenerationRuleTable_ValidateTemplateCode()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] ValidateTemplateCode successfully validates and sets the template code
@@ -3480,21 +3480,21 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A generation rule is initialized
- QltyInspectionGenRule.Init();
+ QltyInspectCreationRule.Init();
// [WHEN] Template Code is validated with template code
- QltyInspectionGenRule.Validate("Template Code", ConfigurationToLoadQltyInspectionTemplateHdr.Code);
+ QltyInspectCreationRule.Validate("Template Code", ConfigurationToLoadQltyInspectionTemplateHdr.Code);
// [THEN] Template code is set correctly
- LibraryAssert.AreEqual(ConfigurationToLoadQltyInspectionTemplateHdr.Code, QltyInspectionGenRule."Template Code", 'Should be same template.');
+ LibraryAssert.AreEqual(ConfigurationToLoadQltyInspectionTemplateHdr.Code, QltyInspectCreationRule."Template Code", 'Should be same template.');
end;
[Test]
procedure GenerationRuleTable_UpdateSortOrder()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- LastQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ LastQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] UpdateSortOrder automatically assigns incremental sort order values to new rules
@@ -3507,34 +3507,34 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A first generation rule is initialized and inserted
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule.Validate("Template Code", ConfigurationToLoadQltyInspectionTemplateHdr.Code);
- QltyInspectionGenRule."Source Table No." := Database::"Purchase Line";
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule.Validate("Template Code", ConfigurationToLoadQltyInspectionTemplateHdr.Code);
+ QltyInspectCreationRule."Source Table No." := Database::"Purchase Line";
+ QltyInspectCreationRule.Insert(true);
// [GIVEN] The last rule by sort order is found
- LastQltyInspectionGenRule.SetCurrentKey("Sort Order");
- LastQltyInspectionGenRule.Ascending(false);
- LastQltyInspectionGenRule.FindFirst();
+ LastQltyInspectCreationRule.SetCurrentKey("Sort Order");
+ LastQltyInspectCreationRule.Ascending(false);
+ LastQltyInspectCreationRule.FindFirst();
// [GIVEN] A second generation rule is initialized
- Clear(QltyInspectionGenRule);
- QltyInspectionGenRule.Init();
- QltyInspectionGenRule.Validate("Template Code", ConfigurationToLoadQltyInspectionTemplateHdr.Code);
- QltyInspectionGenRule."Source Table No." := Database::"Purchase Line";
+ Clear(QltyInspectCreationRule);
+ QltyInspectCreationRule.Init();
+ QltyInspectCreationRule.Validate("Template Code", ConfigurationToLoadQltyInspectionTemplateHdr.Code);
+ QltyInspectCreationRule."Source Table No." := Database::"Purchase Line";
// [WHEN] The second rule is inserted with auto-numbering
- QltyInspectionGenRule.Insert(true);
+ QltyInspectCreationRule.Insert(true);
// [THEN] Sort order is 10 higher than previous rule
- LibraryAssert.AreEqual(LastQltyInspectionGenRule."Sort Order" + 10, QltyInspectionGenRule."Sort Order", 'Should have next available sort order.');
+ LibraryAssert.AreEqual(LastQltyInspectCreationRule."Sort Order" + 10, QltyInspectCreationRule."Sort Order", 'Should have next available sort order.');
end;
[Test]
procedure GenerationRuleTable_GetTemplateCodeFromRecordOrFilter_Record()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
TemplateCode: Code[20];
begin
// [SCENARIO] GetTemplateCodeFromRecordOrFilter returns template code from current record
@@ -3548,10 +3548,10 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for the template
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [WHEN] GetTemplateCodeFromRecordOrFilter is called with record mode (false)
- TemplateCode := QltyInspectionGenRule.GetTemplateCodeFromRecordOrFilter(false);
+ TemplateCode := QltyInspectCreationRule.GetTemplateCodeFromRecordOrFilter(false);
// [THEN] Returned template code matches template
LibraryAssert.AreEqual(ConfigurationToLoadQltyInspectionTemplateHdr.Code, TemplateCode, 'Should be same template code.');
@@ -3561,8 +3561,8 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure GenerationRuleTable_GetTemplateCodeFromRecordOrFilter_Filter()
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
- FilterQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
+ FilterQltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
TemplateCode: Code[20];
begin
// [SCENARIO] GetTemplateCodeFromRecordOrFilter returns template code from filter
@@ -3576,13 +3576,13 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for the template
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A filter is set for the template code
- FilterQltyInspectionGenRule.SetRange("Template Code", QltyInspectionGenRule."Template Code");
+ FilterQltyInspectCreationRule.SetRange("Template Code", QltyInspectCreationRule."Template Code");
// [WHEN] GetTemplateCodeFromRecordOrFilter is called with filter mode (true)
- TemplateCode := FilterQltyInspectionGenRule.GetTemplateCodeFromRecordOrFilter(true);
+ TemplateCode := FilterQltyInspectCreationRule.GetTemplateCodeFromRecordOrFilter(true);
// [THEN] Returned template code matches template
LibraryAssert.AreEqual(ConfigurationToLoadQltyInspectionTemplateHdr.Code, TemplateCode, 'Should be same template code.');
@@ -3591,7 +3591,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_Certain()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3600,78 +3600,78 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [WHEN] Source table is Warehouse Receipt Line
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Receipt Line";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Receipt Line";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Warehouse Receipt
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::"Warehouse Receipt", 'Should return Warehouse Receipt intent.');
// [WHEN] Source table is Warehouse Entry
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Entry";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Entry";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Warehouse Movement
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::"Warehouse Movement", 'Should return Warehouse Movement intent.');
// [WHEN] Source table is Purchase Line
- QltyInspectionGenRule."Source Table No." := Database::"Purchase Line";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Purchase Line";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Purchase
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Purchase, 'Should return Purchase intent.');
// [WHEN] Source table is Sales Line
- QltyInspectionGenRule."Source Table No." := Database::"Sales Line";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Sales Line";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Sales Return
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::"Sales Return", 'Should return Sales Return intent.');
// [WHEN] Source table is Transfer Line
- QltyInspectionGenRule."Source Table No." := Database::"Transfer Line";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Transfer Line";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Transfer
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Transfer, 'Should return Transfer intent.');
// [WHEN] Source table is Transfer Receipt Line
- QltyInspectionGenRule."Source Table No." := Database::"Transfer Receipt Line";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Transfer Receipt Line";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Transfer
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Transfer, 'Should return Transfer intent.');
// [WHEN] Source table is Prod. Order Routing Line
- QltyInspectionGenRule."Source Table No." := Database::"Prod. Order Routing Line";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Prod. Order Routing Line";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Production
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Production, 'Should return Production intent.');
// [WHEN] Source table is Prod. Order Line
- QltyInspectionGenRule."Source Table No." := Database::"Prod. Order Line";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Prod. Order Line";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Production
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Production, 'Should return Production intent.');
// [WHEN] Source table is Production Order
- QltyInspectionGenRule."Source Table No." := Database::"Production Order";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Production Order";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Production
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Production, 'Should return "Production Order intent.');
// [WHEN] Source table is Posted Assembly Header
- QltyInspectionGenRule."Source Table No." := Database::"Posted Assembly Header";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Posted Assembly Header";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Assembly
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Assembly, 'Should return Assembly intent.');
// [WHEN] Source table is Assembly Line
- QltyInspectionGenRule."Source Table No." := Database::"Assembly Line";
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule."Source Table No." := Database::"Assembly Line";
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Intent is inferred as Assembly
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Assembly, 'Should return Assembly intent.');
@@ -3680,7 +3680,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemJournalLine_EntryTypeFilter_Production()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3689,11 +3689,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Journal Line with Entry Type filter for Output
- QltyInspectionGenRule."Source Table No." := Database::"Item Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterOutputTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterOutputTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Production
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Production, 'Should return Production intent.');
@@ -3702,7 +3702,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemJournalLine_OrderTypeFilter_Production()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3711,11 +3711,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Journal Line with Order Type filter for Production
- QltyInspectionGenRule."Source Table No." := Database::"Item Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterProductionTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterProductionTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Production
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Production, 'Should return Production intent.');
@@ -3724,7 +3724,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemJournalLine_DocumentTypeFilter_Purchase()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3733,11 +3733,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Journal Line with Document Type filter for Purchase Receipt
- QltyInspectionGenRule."Source Table No." := Database::"Item Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterPurchaseReceiptTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterPurchaseReceiptTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Purchase
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Purchase, 'Should return Purchase intent.');
@@ -3746,7 +3746,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemJournalLine_DocumentTypeFilter_SalesReturn()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3755,11 +3755,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Journal Line with Document Type filter for Sales Return Receipt
- QltyInspectionGenRule."Source Table No." := Database::"Item Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterSalesReturnReceiptTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterSalesReturnReceiptTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Sales Return
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::"Sales Return", 'Should return Sales Return intent.');
@@ -3768,7 +3768,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemJournalLine_DocumentTypeFilter_TransferReceipt()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3777,11 +3777,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Journal Line with Document Type filter for Transfer Receipt
- QltyInspectionGenRule."Source Table No." := Database::"Item Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterTransferReceiptTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterTransferReceiptTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Transfer
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Transfer, 'Should return Transfer intent.');
@@ -3790,7 +3790,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemJournalLine_DocumentTypeFilter_DirectTransfer()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3799,11 +3799,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Journal Line with Document Type filter for Direct Transfer
- QltyInspectionGenRule."Source Table No." := Database::"Item Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterDirectTransferTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterDirectTransferTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Transfer
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Transfer, 'Should return Transfer intent.');
@@ -3812,7 +3812,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemLedgerEntry_EntryTypeFilter_Production()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3820,11 +3820,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Ledger Entry with Entry Type filter for Output
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterOutputTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterOutputTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Production
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Production, 'Should return Production intent.');
@@ -3833,7 +3833,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemLedgerEntry_OrderTypeFilter_Production()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3841,11 +3841,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Ledger Entry with Order Type filter for Production
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterProductionTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterProductionTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Production
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Production, 'Should return Production intent.');
@@ -3854,7 +3854,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemLegerEntry_EntryTypeFilter_Purchase()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3862,11 +3862,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Ledger Entry with Entry Type filter for Purchase
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterPurchaseTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterPurchaseTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Purchase
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Purchase, 'Should return Purchase intent.');
@@ -3875,7 +3875,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemLegerEntry_DocumentTypeFilter_SalesReturn()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3883,11 +3883,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Ledger Entry with Entry Type filter for Sale
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterSaleTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterSaleTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Sales Return
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::"Sales Return", 'Should return Sales Return intent.');
@@ -3896,7 +3896,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemLegerEntry_EntryTypeFilter_TransferReceipt()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3904,11 +3904,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Ledger Entry with Entry Type filter for Transfer
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterTransferTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterTransferTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Transfer
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Transfer, 'Should return Transfer intent.');
@@ -3917,7 +3917,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemLegerEntry_DocumentTypeFilter_Assembly()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3925,11 +3925,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Item Ledger Entry with Entry Type filter for Assembly Output
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterAssemblyOutputTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterAssemblyOutputTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Assembly
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Assembly, 'Should return Assembly intent.');
@@ -3938,7 +3938,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_WarehouseJournalLine_WhseDocumentFilter_Receive()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3946,11 +3946,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Warehouse Journal Line with Warehouse Document Type filter for Receipt
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterWhseReceiptTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterWhseReceiptTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Warehouse Receipt
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::"Warehouse Receipt", 'Should return Warehouse Receive intent.');
@@ -3959,7 +3959,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_WarehouseJournalLine_ReferenceDocumentFilter_Receive()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3967,11 +3967,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Warehouse Journal Line with Reference Document filter for Posted Receipt
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterPostedRcptTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterPostedRcptTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Warehouse Receipt
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::"Warehouse Receipt", 'Should return Warehouse Receive intent.');
@@ -3980,7 +3980,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_WarehouseJournalLine_WhseDocumentTypeFilter_Move()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -3988,11 +3988,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Warehouse Journal Line with Warehouse Document Type filter for Internal Put-away
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterInternalPutAwayTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterInternalPutAwayTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Warehouse Movement
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::"Warehouse Movement", 'Should return Warehouse Movement intent.');
@@ -4001,7 +4001,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
[Test]
procedure GenerationRuleTable_InferGenerationRuleIntent_WarehouseJournalLine_EntryTypeFilter_Move()
var
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyGenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -4009,11 +4009,11 @@ codeunit 139967 "Qlty. Tests - Test Table"
Initialize();
// [GIVEN] A generation rule for Warehouse Journal Line with Entry Type filter for Movement
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Journal Line";
- QltyInspectionGenRule."Condition Filter" := ConditionFilterMovementTok;
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Journal Line";
+ QltyInspectCreationRule."Condition Filter" := ConditionFilterMovementTok;
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(QltyGenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(QltyGenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Warehouse Movement
LibraryAssert.IsTrue(QltyGenRuleIntent = QltyGenRuleIntent::"Warehouse Movement", 'Should return Warehouse Movement intent.');
@@ -4023,7 +4023,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemJournalLine_OnlyTriggerInSetup_Production()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -4034,7 +4034,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule for Item Journal Line with no condition filter
- QltyInspectionGenRule."Source Table No." := Database::"Item Journal Line";
+ QltyInspectCreationRule."Source Table No." := Database::"Item Journal Line";
// [GIVEN] Setup with only production order trigger enabled
QltyManagementSetup.Get();
@@ -4043,7 +4043,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is Production with Maybe certainty
LibraryAssert.AreEqual(GenRuleIntent::Production, GenRuleIntent, 'Should return Production intent.');
@@ -4058,7 +4058,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemLedgerEntry_OnlyTriggerInSetup_Production()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -4069,7 +4069,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule for Item Ledger Entry with no condition filter
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
// [GIVEN] Setup with only production order trigger enabled
QltyManagementSetup.Get();
@@ -4078,7 +4078,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Production
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Production, 'Should return Production intent.');
@@ -4092,7 +4092,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure GenerationRuleTable_MultipleRangeValues()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -4103,8 +4103,8 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule for Item Ledger Entry
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := 'WHERE(Entry Type=FILTER(Output|Positive Adjmt.))';
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := 'WHERE(Entry Type=FILTER(Output|Positive Adjmt.))';
// [GIVEN] Setup with production order trigger enabled
QltyManagementSetup.Get();
@@ -4113,34 +4113,34 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [WHEN] Inferring intent with Output first in filter
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Production intent is returned (Output recognized)
LibraryAssert.AreEqual(GenRuleIntent::Production, GenRuleIntent, 'Should return Production intent (first)');
// [WHEN] Inferring intent with Output last in filter
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := 'WHERE(Entry Type=FILTER(Positive Adjmt.|Output))';
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := 'WHERE(Entry Type=FILTER(Positive Adjmt.|Output))';
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Production intent is returned (Output recognized at end)
LibraryAssert.AreEqual(GenRuleIntent::Production, GenRuleIntent, 'Should return Production intent (last).');
// [WHEN] Inferring intent without Output in filter
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := 'WHERE(Entry Type=FILTER(Positive Adjmt.|Purchase|Sale))';
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := 'WHERE(Entry Type=FILTER(Positive Adjmt.|Purchase|Sale))';
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Production intent is not returned
LibraryAssert.AreNotEqual(GenRuleIntent::Production, GenRuleIntent, 'Should not be a Production intent.');
// [WHEN] Inferring intent with Output in middle of filter
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
- QltyInspectionGenRule."Condition Filter" := 'WHERE(Entry Type=FILTER(Positive Adjmt.|Output|Purchase|Sale))';
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Condition Filter" := 'WHERE(Entry Type=FILTER(Positive Adjmt.|Output|Purchase|Sale))';
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] Production intent is returned (Output recognized in middle)
LibraryAssert.AreEqual(GenRuleIntent::Production, GenRuleIntent, 'Should be a Production intent (output is in the middle.)');
@@ -4154,7 +4154,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure GenerationRuleTable_InferGenerationRuleIntent_ItemLedgerEntry_NotOnlyTriggerInSetup_Unknown()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -4165,7 +4165,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule for Item Ledger Entry with no condition filter
- QltyInspectionGenRule."Source Table No." := Database::"Item Ledger Entry";
+ QltyInspectCreationRule."Source Table No." := Database::"Item Ledger Entry";
// [GIVEN] Setup with all triggers enabled
QltyManagementSetup.Get();
@@ -4179,7 +4179,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is Unknown (ambiguous due to multiple triggers)
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::Unknown, 'Should return unknown intent.');
@@ -4193,7 +4193,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
procedure GenerationRuleTable_InferGenerationRuleIntent_WarehouseJournalLine_OnlyTriggerInSetup_WarehouseReceive()
var
QltyManagementSetup: Record "Qlty. Management Setup";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
GenRuleIntent: Enum "Qlty. Gen. Rule Intent";
Certainty: Enum "Qlty. Certainty";
begin
@@ -4204,7 +4204,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.EnsureSetupExists();
// [GIVEN] A generation rule for Warehouse Journal Line with no condition filter
- QltyInspectionGenRule."Source Table No." := Database::"Warehouse Journal Line";
+ QltyInspectCreationRule."Source Table No." := Database::"Warehouse Journal Line";
// [GIVEN] Setup with only Warehouse Receipt Trigger enabled
QltyManagementSetup.Get();
@@ -4213,7 +4213,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyManagementSetup.Modify();
// [WHEN] Inferring the generation rule intent
- QltyInspectionGenRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
+ QltyInspectCreationRule.InferGenerationRuleIntent(GenRuleIntent, Certainty);
// [THEN] The intent is correctly identified as Warehouse Receipt
LibraryAssert.IsTrue(GenRuleIntent = GenRuleIntent::"Warehouse Receipt", 'Should return Warehouse Receive intent.');
@@ -4561,7 +4561,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
var
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
ConfigurationToLoadQltyInspectionTemplateLine: Record "Qlty. Inspection Template Line";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
begin
// [SCENARIO] Template deletion cascades to template lines and generation rules
Initialize();
@@ -4571,7 +4571,7 @@ codeunit 139967 "Qlty. Tests - Test Table"
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
// [GIVEN] A prioritized rule is created for the template
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] Template line is verified to exist
ConfigurationToLoadQltyInspectionTemplateLine.SetRange("Template Code", ConfigurationToLoadQltyInspectionTemplateHdr.Code);
@@ -4589,8 +4589,8 @@ codeunit 139967 "Qlty. Tests - Test Table"
LibraryAssert.IsTrue(ConfigurationToLoadQltyInspectionTemplateLine.IsEmpty(), 'Template line should have been deleted.');
// [THEN] Associated generation rule is deleted
- QltyInspectionGenRule.SetRange("Template Code", ConfigurationToLoadQltyInspectionTemplateHdr.Code);
- LibraryAssert.IsTrue(QltyInspectionGenRule.IsEmpty(), 'Generation rule should have been deleted.');
+ QltyInspectCreationRule.SetRange("Template Code", ConfigurationToLoadQltyInspectionTemplateHdr.Code);
+ LibraryAssert.IsTrue(QltyInspectCreationRule.IsEmpty(), 'Generation rule should have been deleted.');
end;
[Test]
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsWorkflows.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsWorkflows.Codeunit.al
index dc12aaafb8..e9009846ff 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsWorkflows.Codeunit.al
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsWorkflows.Codeunit.al
@@ -62,7 +62,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
QltyManagementSetup: Record "Qlty. Management Setup";
Location: Record Location;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -85,7 +85,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A purchase order with inspection created and received
ReUsableQltyPurOrderGenerator.CreateInspectionFromPurchaseWithUntrackedItem(Location, 100, PurchaseHeader, PurchaseLine, QltyInspectionHeader);
@@ -128,7 +128,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryAssert.AreEqual(PurchaseLine."Quantity (Base)", ReturnPurchaseLine."Quantity (Base)", 'Return Quantity should match.');
DeleteWorkflows();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -137,7 +137,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
QltyManagementSetup: Record "Qlty. Management Setup";
Location: Record Location;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
OriginalQltyInspectionHeader: Record "Qlty. Inspection Header";
QltyInspectionHeader: Record "Qlty. Inspection Header";
CreatedQltyInspectionHeader: Record "Qlty. Inspection Header";
@@ -157,7 +157,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryWarehouse.CreateLocationWMS(Location, false, false, false, false, false);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A purchase order with lot tracked item and inspection created
ReUsableQltyPurOrderGenerator.CreateInspectionFromPurchaseWithLotTrackedItem(Location, 100, PurchaseHeader, PurchaseLine, OriginalQltyInspectionHeader, ReservationEntry);
@@ -202,7 +202,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryAssert.AreEqual(OriginalQltyInspectionHeader."Source Lot No.", CreatedQltyInspectionHeader."Source Lot No.", 'Should have applied source config fields. (Source Lot No.)');
DeleteWorkflows();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -214,7 +214,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
ToUseNoSeriesLine: Record "No. Series Line";
WarehouseSetup: Record "Warehouse Setup";
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
WarehouseEntry: Record "Warehouse Entry";
QltyInspectionHeader: Record "Qlty. Inspection Header";
@@ -242,7 +242,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryWarehouse.CreateFullWMSLocation(Location, 2);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] An item, warehouse employee, and number series for internal put-aways
LibraryInventory.CreateItem(Item);
@@ -297,7 +297,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryAssert.AreEqual(QltyInspectionHeader."Source Quantity (Base)", PutawayWarehouseActivityLine.Quantity, 'Should have specific quantity.');
DeleteWorkflows();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -308,7 +308,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Bin: Record Bin;
Item: Record Item;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -335,7 +335,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with inspection template and generation rule
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A warehouse location with bins and a lot tracked item
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -393,7 +393,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryAssert.AreEqual(1, ItemLedgerEntry.Count(), 'Should have posted one negative adjustment.');
DeleteWorkflows();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -406,7 +406,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Bin: Record Bin;
Item: Record Item;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -429,7 +429,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with inspection template and locations
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 0);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A source location with bins and a destination location
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -485,7 +485,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryAssert.AreEqual(QltyInspectionHeader."Fail Quantity", TransferLine.Quantity, 'Should have requested quantity.');
LibraryAssert.AreEqual(Bin.Code, TransferLine."Transfer-from Bin Code", 'Should have transfer-from bin code.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -495,7 +495,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
QltyManagementSetup: Record "Qlty. Management Setup";
Location: Record Location;
Item: Record Item;
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
WarehouseEntry: Record "Warehouse Entry";
QltyInspectionHeader: Record "Qlty. Inspection Header";
@@ -518,7 +518,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryWarehouse.CreateFullWMSLocation(Location, 2);
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 1);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A purchase order received with inspection created from warehouse entry
LibraryInventory.CreateItem(Item);
@@ -556,7 +556,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryAssert.IsTrue(Item."Purchasing Blocked", 'Item purchasing should be blocked.');
DeleteWorkflows();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
end;
[Test]
@@ -564,7 +564,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
WhseWorksheetTemplate: Record "Whse. Worksheet Template";
WhseWorksheetName: Record "Whse. Worksheet Name";
WhseWorksheetLine: Record "Whse. Worksheet Line";
@@ -592,7 +592,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with warehouse entry generation rule
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A full warehouse management location and warehouse worksheet setup
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -668,7 +668,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
WhseWorksheetLine.Delete();
WhseWorksheetName.Delete();
WhseWorksheetTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -677,7 +677,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassWhseItemWarehouseJournalTemplate: Record "Warehouse Journal Template";
ReclassWarehouseJournalBatch: Record "Warehouse Journal Batch";
ReclassWarehouseJournalLine: Record "Warehouse Journal Line";
@@ -704,7 +704,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with warehouse reclassification batch configured
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A full warehouse management location
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -767,7 +767,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
ReclassWarehouseJournalLine.Delete();
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -776,7 +776,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
var
InventorySetup: Record "Inventory Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
Location: Record Location;
ToUseNoSeries: Record "No. Series";
ToUseNoSeriesLine: Record "No. Series Line";
@@ -804,7 +804,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with purchase line generation rule
QltyInspectionUtility.EnsureSetupExists();
QltyInspectionUtility.CreateTemplate(ConfigurationToLoadQltyInspectionTemplateHdr, 0);
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
// [GIVEN] A location with bins and internal movement number series
LibraryWarehouse.CreateLocationWMS(Location, true, false, false, false, false);
@@ -863,7 +863,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LibraryAssert.AreEqual(Bin.Code, InternalMovementLine."To Bin Code", 'Should have correct requested to bin code');
LibraryAssert.AreEqual(QltyInspectionHeader."Fail Quantity", InternalMovementLine.Quantity, 'Should have correct requested quantity.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -872,7 +872,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
var
QltyManagementSetup: Record "Qlty. Management Setup";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
ReclassItemJournalTemplate: Record "Item Journal Template";
ReclassItemJournalBatch: Record "Item Journal Batch";
ReclassItemJournalLine: Record "Item Journal Line";
@@ -903,7 +903,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with item journal batch configured for bin moves
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Line", QltyInspectCreationRule);
QltyManagementSetup.Get();
LibraryInventory.CreateItemJournalTemplateByType(ReclassItemJournalTemplate, ReclassItemJournalTemplate.Type::Transfer);
LibraryInventory.CreateItemJournalBatch(ReclassItemJournalBatch, ReclassItemJournalTemplate.Name);
@@ -983,7 +983,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
ReclassItemJournalBatch.Delete();
ReclassItemJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -993,7 +993,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Location: Record Location;
Item: Record Item;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
LotNoSeries: Record "No. Series";
LotNoSeriesLine: Record "No. Series Line";
LotItemTrackingCode: Record "Item Tracking Code";
@@ -1025,7 +1025,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with lot tracked item using expiration dates
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryUtility.CreateNoSeries(LotNoSeries, true, true, false);
LibraryUtility.CreateNoSeriesLine(LotNoSeriesLine, LotNoSeries.Code, PadStr(Format(CurrentDateTime(), 0, 'A'), 19, '0'), PadStr(Format(CurrentDateTime(), 0, 'A'), 19, '9'));
LibraryItemTracking.CreateItemTrackingCode(LotItemTrackingCode, false, true, false);
@@ -1094,7 +1094,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
ReclassWarehouseJournalBatch.Delete();
ReclassWhseItemWarehouseJournalTemplate.Delete();
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1106,7 +1106,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Location: Record Location;
Item: Record Item;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
CreatedQltyInspectionHeader: Record "Qlty. Inspection Header";
PurchaseHeader: Record "Purchase Header";
@@ -1127,7 +1127,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with warehouse entry generation rule
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
// [GIVEN] A full warehouse management location and purchase order received with inspection
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
@@ -1159,7 +1159,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
CreatedQltyInspectionHeader.SetRange("No.", QltyInspectionHeader."No.");
LibraryAssert.AreEqual(2, CreatedQltyInspectionHeader.Count(), 'Should be 2 inspections (one original and one re-inspection)');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1171,7 +1171,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Location: Record Location;
Item: Record Item;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -1192,7 +1192,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with purchase header source configuration and generation rule
QltyInspectionUtility.EnsureSetupExists();
CreatePurHeaderToInspectionConfig();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Header", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Header", QltyInspectCreationRule);
// [GIVEN] A purchase order with inspection created
LibraryWarehouse.CreateLocation(Location);
@@ -1218,7 +1218,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.IsTrue(QltyInspectionHeader.Status = QltyInspectionHeader.Status::Finished, 'Inspection status should be finished.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1230,7 +1230,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Location: Record Location;
Item: Record Item;
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
PurchaseHeader: Record "Purchase Header";
PurchaseLine: Record "Purchase Line";
@@ -1251,7 +1251,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with purchase header source configuration and generation rule
QltyInspectionUtility.EnsureSetupExists();
CreatePurHeaderToInspectionConfig();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Header", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Purchase Header", QltyInspectCreationRule);
// [GIVEN] A purchase order with inspection created and finished
LibraryWarehouse.CreateLocation(Location);
@@ -1278,7 +1278,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
QltyInspectionHeader.Get(QltyInspectionHeader."No.", QltyInspectionHeader."Re-inspection No.");
LibraryAssert.IsTrue(QltyInspectionHeader.Status = QltyInspectionHeader.Status::Open, 'Inspection status should be open.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1290,7 +1290,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Item: Record Item;
ReservationEntry: Record "Reservation Entry";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
LotNoInformation: Record "Lot No. Information";
@@ -1308,7 +1308,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with lot tracked item and warehouse entry generation rule
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -1338,7 +1338,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LotNoInformation.Get(Item."No.", '', ReservationEntry."Lot No.");
LibraryAssert.IsTrue(LotNoInformation.Blocked, 'Should be blocked.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1350,7 +1350,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Item: Record Item;
ReservationEntry: Record "Reservation Entry";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
LotNoInformation: Record "Lot No. Information";
@@ -1369,7 +1369,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with lot tracked item and blocked lot number
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
QltyInspectionUtility.CreateLotTrackedItem(Item);
@@ -1403,7 +1403,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
LotNoInformation.Get(Item."No.", '', ReservationEntry."Lot No.");
LibraryAssert.IsFalse(LotNoInformation.Blocked, 'Should not be blocked.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1416,7 +1416,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Item: Record Item;
ReservationEntry: Record "Reservation Entry";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
SerialNoInformation: Record "Serial No. Information";
@@ -1434,7 +1434,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with serial tracked item and warehouse entry generation rule
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
QltyInspectionUtility.CreateSerialTrackedItem(Item, ToUseNoSeries);
@@ -1464,7 +1464,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
SerialNoInformation.Get(Item."No.", '', ReservationEntry."Serial No.");
LibraryAssert.IsTrue(SerialNoInformation.Blocked, 'Should be blocked.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1477,7 +1477,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
ToUseNoSeries: Record "No. Series";
ReservationEntry: Record "Reservation Entry";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
SerialNoInformation: Record "Serial No. Information";
@@ -1496,7 +1496,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with serial tracked item and blocked serial number
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
QltyInspectionUtility.CreateSerialTrackedItem(Item, ToUseNoSeries);
@@ -1530,7 +1530,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
SerialNoInformation.Get(Item."No.", '', ReservationEntry."Serial No.");
LibraryAssert.IsFalse(SerialNoInformation.Blocked, 'Should not be blocked.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1543,7 +1543,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
Item: Record Item;
ReservationEntry: Record "Reservation Entry";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
PackageNoInformation: Record "Package No. Information";
@@ -1561,7 +1561,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with package tracked item and warehouse entry generation rule
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
QltyInspectionUtility.CreatePackageTrackedItemWithNoSeries(Item, ToUseNoSeries);
@@ -1591,7 +1591,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
PackageNoInformation.Get(Item."No.", '', ReservationEntry."Package No.");
LibraryAssert.IsTrue(PackageNoInformation.Blocked, 'Should be blocked.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1604,7 +1604,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
ToUseNoSeries: Record "No. Series";
ReservationEntry: Record "Reservation Entry";
ConfigurationToLoadQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.";
- QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
+ QltyInspectCreationRule: Record "Qlty. Inspect. Creation Rule";
QltyInspectionHeader: Record "Qlty. Inspection Header";
ToLoadQltyInspectionResult: Record "Qlty. Inspection Result";
PackageNoInformation: Record "Package No. Information";
@@ -1623,7 +1623,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
// [GIVEN] Quality management setup with package tracked item and blocked package number
QltyInspectionUtility.EnsureSetupExists();
- QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectionGenRule);
+ QltyInspectionUtility.CreatePrioritizedRule(ConfigurationToLoadQltyInspectionTemplateHdr, Database::"Warehouse Entry", QltyInspectCreationRule);
LibraryWarehouse.CreateFullWMSLocation(Location, 3);
QltyInspectionUtility.CreatePackageTrackedItemWithNoSeries(Item, ToUseNoSeries);
@@ -1658,7 +1658,7 @@ codeunit 139969 "Qlty. Tests - Workflows"
PackageNoInformation.Get(Item."No.", '', ReservationEntry."Package No.");
LibraryAssert.IsFalse(PackageNoInformation.Blocked, 'Should not be blocked.');
- QltyInspectionGenRule.Delete();
+ QltyInspectCreationRule.Delete();
DeleteWorkflows();
end;
@@ -1860,4 +1860,4 @@ codeunit 139969 "Qlty. Tests - Workflows"
begin
Reply := true;
end;
-}
\ No newline at end of file
+}