[Quality Management] - Extensibility and Public APIs

src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al

@@ -228,7 +228,7 @@ codeunit 20406 "Qlty. Permission Mgmt."
     /// </summary>
     /// <param name="ShouldPrompt">Only set with interaction ability is available ( GuiAllowed() is true ) and also prompt when possible is chosen.</param>
     /// <returns>Whether or not auto-assignment should occur.</returns>
-    procedure GetShouldAutoAssign(var ShouldPrompt: Boolean) ShouldAssign: Boolean
+    internal procedure GetShouldAutoAssign(var ShouldPrompt: Boolean) ShouldAssign: Boolean
     var
         QltyInspectionHeader: Record "Qlty. Inspection Header";
     begin
@@ -248,7 +248,7 @@ codeunit 20406 "Qlty. Permission Mgmt."
     /// </summary>
     /// <param name="FunctionalPermission"></param>
     /// <returns></returns>
-    procedure GetSuggestedAllowedValueForFunction(FunctionalPermission: Text) Result: Boolean
+    internal procedure GetSuggestedAllowedValueForFunction(FunctionalPermission: Text) Result: Boolean
     begin
         case FunctionalPermission of
             GetCaptionCreateInspectionAuto():
@@ -359,7 +359,7 @@ codeunit 20406 "Qlty. Permission Mgmt."
     /// If they can, nothing happens.
     /// If they cannot then an error will be thrown.
     /// </summary>
-    procedure VerifyCanEditLineComments()
+    internal procedure VerifyCanEditLineComments()
     begin
         if not CanEditLineComments() then
             Error(UserDoesNotHavePermissionToErr, CurrentUserId, GetCaptionEditLineComments());
@@ -378,7 +378,7 @@ codeunit 20406 "Qlty. Permission Mgmt."
     /// CanReadLineComments. True if the user can read or write line comments.
     /// </summary>
     /// <returns>Return value of type Boolean.</returns>
-    procedure CanReadLineComments(): Boolean
+    internal procedure CanReadLineComments(): Boolean
     begin
         exit(LoadPermissionDetails(GetCaptionEditLineComments()));
     end;

src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/JobQueue/QltyJobQueueManagement.Codeunit.al

@@ -50,7 +50,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// Common usage: Called when setting up inspection generation rules to ensure scheduled execution infrastructure exists.
     /// </summary>
     /// <param name="ScheduleGroup">The schedule group code to check and potentially create a job queue entry for</param>
-    procedure PromptCreateJobQueueEntryIfMissing(ScheduleGroup: Code[20])
+    internal procedure PromptCreateJobQueueEntryIfMissing(ScheduleGroup: Code[20])
     begin
         if IsJobQueueCreated(ScheduleGroup) then
             exit;
@@ -80,7 +80,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// Common usage: When users want multiple schedules for the same rule group (e.g., hourly and daily runs).
     /// </summary>
     /// <param name="ScheduleGroup">The schedule group code to create a job queue entry for (defaults to 'QM' if empty)</param>
-    procedure PromptCreateJobQueueEntry(ScheduleGroup: Code[20])
+    internal procedure PromptCreateJobQueueEntry(ScheduleGroup: Code[20])
     begin
         if ScheduleGroup = '' then
             ScheduleGroup := DefaultScheduleGroupTok;
@@ -113,7 +113,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// </summary>
     /// <param name="ToExcludeQltyInspectionGenRule">The rule to exclude from the check (typically the rule being deleted or modified)</param>
     /// <param name="ScheduleGroupToConsiderRemoving">The schedule group code whose job queue entries should be considered for removal</param>
-    procedure DeleteJobQueueIfNothingElseIsUsingThisGroup(ToExcludeQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"; ScheduleGroupToConsiderRemoving: Code[20])
+    internal procedure DeleteJobQueueIfNothingElseIsUsingThisGroup(ToExcludeQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule"; ScheduleGroupToConsiderRemoving: Code[20])
     var
         QltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule";
         JobQueueEntry: Record "Job Queue Entry";
@@ -151,7 +151,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// report with filters matching the specified schedule group.
     /// </summary>
     /// <param name="ScheduleGroup">The schedule group code to filter job queue entries by</param>
-    procedure RunPageLookupJobQueueEntriesForScheduleGroup(ScheduleGroup: Code[20])
+    internal procedure RunPageLookupJobQueueEntriesForScheduleGroup(ScheduleGroup: Code[20])
     var
         JobQueueEntry: Record "Job Queue Entry";
     begin
@@ -261,7 +261,7 @@ codeunit 20455 "Qlty. Job Queue Management"
     /// Error thrown: FilterMandatoryErr with schedule group in message
     /// </summary>
     /// <param name="ThisQltyInspectionGenRule">The inspection generation rule to validate for scheduling</param>
-    procedure CheckIfGenerationRuleCanBeScheduled(var ThisQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
+    internal procedure CheckIfGenerationRuleCanBeScheduled(var ThisQltyInspectionGenRule: Record "Qlty. Inspection Gen. Rule")
     begin
         if (ThisQltyInspectionGenRule."Condition Filter" = '') and (ThisQltyInspectionGenRule."Item Filter" = '') and (ThisQltyInspectionGenRule."Item Attribute Filter" = '') then
             Error(FilterMandatoryErr, ThisQltyInspectionGenRule."Schedule Group");

src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRule.Table.al

@@ -404,7 +404,7 @@ table 20404 "Qlty. Inspection Gen. Rule"
     /// <summary>
     /// Sets the default automatic inspection creation triggers for generation rules based on the values set in Quality Management Setup
     /// </summary>
-    procedure SetIntentAndDefaultTriggerValuesFromSetup()
+    internal procedure SetIntentAndDefaultTriggerValuesFromSetup()
     var
         QltyManagementSetup: Record "Qlty. Management Setup";
         InferredIntent: Enum "Qlty. Gen. Rule Intent";
@@ -473,7 +473,7 @@ table 20404 "Qlty. Inspection Gen. Rule"
     end;
 
     [TryFunction]
-    procedure TryInferGenerationRuleIntent(var QltyGenRuleIntent: Enum "Qlty. Gen. Rule Intent"; var QltyCertainty: Enum "Qlty. Certainty")
+    internal procedure TryInferGenerationRuleIntent(var QltyGenRuleIntent: Enum "Qlty. Gen. Rule Intent"; var QltyCertainty: Enum "Qlty. Certainty")
     begin
         InferGenerationRuleIntent(QltyGenRuleIntent, QltyCertainty);
     end;

src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyInspectionResult.Table.al

@@ -252,7 +252,7 @@ table 20411 "Qlty. Inspection Result"
         UpdateExistingConditions();
     end;
 
-    procedure AutoSetResultCategoryFromName()
+    internal procedure AutoSetResultCategoryFromName()
     begin
         if Rec."Result Category" <> Rec."Result Category"::Uncategorized then
             exit;

src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultConditionMgmt.Codeunit.al

@@ -82,7 +82,7 @@ codeunit 20409 "Qlty. Result Condition Mgmt."
     /// <param name="Template">The template</param>
     /// <param name="LineNo">The template line</param>
     /// <param name="OptionalSpecificResult">Leave empty to copy all applicable results</param>
-    procedure CopyResultConditionsFromTestToTemplateLine(Template: Code[20]; LineNo: Integer; OptionalSpecificResult: Code[20]; OverwriteConditionIfExisting: Boolean)
+    internal procedure CopyResultConditionsFromTestToTemplateLine(Template: Code[20]; LineNo: Integer; OptionalSpecificResult: Code[20]; OverwriteConditionIfExisting: Boolean)
     begin
         CopyResultConditionsFromTestToTemplateLine(Template, LineNo, OptionalSpecificResult, OverwriteConditionIfExisting, '', '');
     end;
@@ -437,7 +437,7 @@ codeunit 20409 "Qlty. Result Condition Mgmt."
     /// <param name="MatrixArrayToSetConditionDescriptionCellData"></param>
     /// <param name="MatrixArrayToSetCaptionSet"></param>
     /// <param name="MatrixVisibleStateToSet"></param>
-    procedure GetDefaultPromotedResults(
+    internal procedure GetDefaultPromotedResults(
         AllPromoted: Boolean;
         var MatrixArraySourceRecordId: array[10] of RecordId;
         var MatrixArrayToSetConditionCellData: array[10] of Text;

src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultEvaluation.Codeunit.al

@@ -157,7 +157,7 @@ codeunit 20410 "Qlty. Result Evaluation"
     /// <param name="OptionalQltyInspectionHeader"></param>
     /// <returns></returns>
     [TryFunction]
-    procedure TryValidateQltyInspectionLine(var QltyInspectionLine: Record "Qlty. Inspection Line"; var OptionalQltyInspectionHeader: Record "Qlty. Inspection Header")
+    internal procedure TryValidateQltyInspectionLine(var QltyInspectionLine: Record "Qlty. Inspection Line"; var OptionalQltyInspectionHeader: Record "Qlty. Inspection Header")
     begin
         ValidateQltyInspectionLine(QltyInspectionLine, OptionalQltyInspectionHeader, false);
     end;

src/Apps/W1/Quality Management/app/src/Configuration/SourceConfiguration/QltyTraversal.Codeunit.al

@@ -593,7 +593,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="ChildRecordVariant">The child record as a Record, RecordId, or RecordRef</param>
     /// <param name="FoundParentRecordRef">Output: The resolved parent RecordRef if found</param>
     /// <returns>True if a single parent record was found; False otherwise</returns>
-    procedure FindSingleParentRecordWithVariant(ChildRecordVariant: Variant; var FoundParentRecordRef: RecordRef): Boolean;
+    internal procedure FindSingleParentRecordWithVariant(ChildRecordVariant: Variant; var FoundParentRecordRef: RecordRef): Boolean;
     var
         ChildRecordRef: RecordRef;
     begin
@@ -760,7 +760,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="Item">Output: The found Item record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if an Item was found and loaded into Item; False otherwise</returns>
-    procedure FindRelatedItemIn(var Item: Record Item; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedItemIn(var Item: Record Item; CurrentVariant: Variant): Boolean
     var
         QltyInspectSourceConfig: Record "Qlty. Inspect. Source Config.";
         QltyInspectSrcFldConf: Record "Qlty. Inspect. Src. Fld. Conf.";
@@ -870,7 +870,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="Vendor">Output: The found Vendor record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if a Vendor was found and loaded into Vendor; False otherwise</returns>
-    procedure FindRelatedVendorIn(var Vendor: Record Vendor; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedVendorIn(var Vendor: Record Vendor; CurrentVariant: Variant): Boolean
     var
         RecordRef: RecordRef;
         VendorNo: Text;
@@ -949,7 +949,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="Customer">Output: The found Customer record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if a Customer was found and loaded into Customer; False otherwise</returns>
-    procedure FindRelatedCustomerIn(var Customer: Record Customer; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedCustomerIn(var Customer: Record Customer; CurrentVariant: Variant): Boolean
     var
         RecordRef: RecordRef;
         CustomerNo: Text;
@@ -1028,7 +1028,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="RoutingHeader">Output: The found Routing Header record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if a Routing Header was found and loaded into RoutingHeader; False otherwise</returns>
-    procedure FindRelatedRoutingIn(var RoutingHeader: Record "Routing Header"; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedRoutingIn(var RoutingHeader: Record "Routing Header"; CurrentVariant: Variant): Boolean
     var
         RecordRef: RecordRef;
         RoutingNo: Text;
@@ -1111,7 +1111,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <param name="ProductionBOMHeader">Output: The found Production BOM Header record with all fields populated</param>
     /// <param name="CurrentVariant">The record variant to search (Record, RecordRef, or RecordId)</param>
     /// <returns>True if a Production BOM Header was found and loaded into ProductionBOMHeader; False otherwise</returns>
-    procedure FindRelatedBillOfMaterialIn(var ProductionBOMHeader: Record "Production BOM Header"; CurrentVariant: Variant): Boolean
+    internal procedure FindRelatedBillOfMaterialIn(var ProductionBOMHeader: Record "Production BOM Header"; CurrentVariant: Variant): Boolean
     var
         CurrentField: Record Field;
         QltyInspectSourceConfig: Record "Qlty. Inspect. Source Config.";

src/Apps/W1/Quality Management/app/src/Document/QltyInspectionCreate.Codeunit.al

@@ -775,7 +775,7 @@ codeunit 20404 "Qlty. Inspection - Create"
     /// Returns the last created status.
     /// </summary>
     /// <returns></returns>
-    procedure GetLastCreatedStatus(): Enum "Qlty. Inspection Create Status"
+    internal procedure GetLastCreatedStatus(): Enum "Qlty. Inspection Create Status"
     begin
         exit(LastQltyInspectionCreateStatus);
     end;

src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al

@@ -771,7 +771,7 @@ table 20405 "Qlty. Inspection Header"
     /// <summary>
     /// InitInspectionNumber will initialize the document no. on the Quality Inspection if it's needed. If it's already set then this will not be altered.
     /// </summary>
-    procedure InitInspectionNumber()
+    internal procedure InitInspectionNumber()
     var
         NoSeries: Codeunit "No. Series";
     begin
@@ -788,7 +788,7 @@ table 20405 "Qlty. Inspection Header"
     /// Decision decision: because we're passing this around as a recordref everywhere and we need that flag, we're storing in the session state instead.
     /// </summary>
     /// <param name="IsCreating"></param>
-    procedure SetIsCreating(IsCreating: Boolean)
+    internal procedure SetIsCreating(IsCreating: Boolean)
     begin
         QltySessionHelper.SetSessionValue(GetIsCreatingKey(), Format(IsCreating));
     end;
@@ -797,7 +797,7 @@ table 20405 "Qlty. Inspection Header"
     /// Returns true if this record is in the middle of being created.
     /// </summary>
     /// <returns></returns>
-    procedure GetIsCreating(): Boolean
+    internal procedure GetIsCreating(): Boolean
     begin
         exit(QltySessionHelper.GetSessionValue(GetIsCreatingKey()) = Format(true));
     end;
@@ -957,7 +957,7 @@ table 20405 "Qlty. Inspection Header"
     /// Returns the posted inventory for the item/variant
     /// </summary>
     /// <returns></returns>
-    procedure GetPostedInventory() PostedInventory: Decimal
+    internal procedure GetPostedInventory() PostedInventory: Decimal
     var
         ItemLedgerEntry: Record "Item Ledger Entry";
         TempItemTrackingSetup: Record "Item Tracking Setup" temporary;
@@ -980,7 +980,7 @@ table 20405 "Qlty. Inspection Header"
         PostedInventory := ItemLedgerEntry.Quantity;
     end;
 
-    procedure GetReservedInventory() ReservedInventory: Decimal
+    internal procedure GetReservedInventory() ReservedInventory: Decimal
     var
         ReservationEntry: Record "Reservation Entry";
         TempItemTrackingSetup: Record "Item Tracking Setup" temporary;
@@ -1032,7 +1032,7 @@ table 20405 "Qlty. Inspection Header"
     /// Returns true if there is a more recent re-inspection than the current inspection.
     /// </summary>
     /// <returns></returns>
-    procedure HasMoreRecentReinspection(): Boolean
+    internal procedure HasMoreRecentReinspection(): Boolean
     var
         SucceedingQltyInspectionHeader: Record "Qlty. Inspection Header";
     begin
@@ -1317,7 +1317,7 @@ table 20405 "Qlty. Inspection Header"
     /// <param name="FileExtension"></param>
     /// <returns></returns>
     [TryFunction]
-    procedure AddPicture(var PictureInStream: InStream; PictureName: Text; FileExtension: Text)
+    internal procedure AddPicture(var PictureInStream: InStream; PictureName: Text; FileExtension: Text)
     var
         DocumentAttachment: Record "Document Attachment";
 
@@ -1410,29 +1410,29 @@ table 20405 "Qlty. Inspection Header"
         OnAfterSetRecordFiltersToFindInspectionFor(Rec, ErrorIfMissingFilter, RecordVariant, UseItem, UseTracking, UseDocument);
     end;
 
-    procedure GetMostRecentInspectionFor(RecordVariant: Variant) Success: Boolean
+    internal procedure GetMostRecentInspectionFor(RecordVariant: Variant) Success: Boolean
     begin
         Rec.SetRecordFiltersToFindInspectionFor(false, RecordVariant, true, true, true);
         Rec.SetCurrentKey("No.", "Re-inspection No.");
         Rec.Ascending(false);
         Success := Rec.FindFirst();
     end;
 
-    procedure PrintCertificateOfAnalysis()
+    internal procedure PrintCertificateOfAnalysis()
     var
         QltyReportMgmt: Codeunit "Qlty. Report Mgmt.";
     begin
         QltyReportMgmt.PrintCertificateOfAnalysis(Rec);
     end;
 
-    procedure PrintNonConformance()
+    internal procedure PrintNonConformance()
     var
         QltyReportMgmt: Codeunit "Qlty. Report Mgmt.";
     begin
         QltyReportMgmt.PrintNonConformance(Rec);
     end;
 
-    procedure PrintGeneralPurposeInspection()
+    internal procedure PrintGeneralPurposeInspection()
     var
         QltyReportMgmt: Codeunit "Qlty. Report Mgmt.";
     begin
@@ -1505,7 +1505,7 @@ table 20405 "Qlty. Inspection Header"
     /// Use SetPreventAutoAssignment to set whether or not we should prevent auto-assignment for this inspection
     /// </summary>
     /// <param name="ShouldPrevent"></param>
-    procedure SetPreventAutoAssignment(ShouldPrevent: Boolean)
+    internal procedure SetPreventAutoAssignment(ShouldPrevent: Boolean)
     begin
         QltySessionHelper.SetSessionValue(GetPreventAutoAssignmentKey(), Format(ShouldPrevent));
     end;
@@ -1596,7 +1596,7 @@ table 20405 "Qlty. Inspection Header"
     ///If no sampling fields, will return the sample size if all measures are acceptable.
     /// </summary>
     /// <returns>Quantity of samples</returns>
-    procedure GetPassSampleQuantity() PassQuantity: Decimal
+    internal procedure GetPassSampleQuantity() PassQuantity: Decimal
     begin
     end;
 
@@ -1605,14 +1605,14 @@ table 20405 "Qlty. Inspection Header"
     ///If no sampling fields, will return the sample size if any measures are not acceptable.
     /// </summary>
     /// <returns>Quantity of samples</returns>
-    procedure GetFailedSampleQuantity() FailQuantity: Decimal
+    internal procedure GetFailedSampleQuantity() FailQuantity: Decimal
     begin
     end;
 
     /// <summary>
     /// Initializes the Qlty. Related Transfers page with the Quality Inspection record and runs it
     /// </summary>
-    procedure RunModalRelatedTransfers()
+    internal procedure RunModalRelatedTransfers()
     var
         QltyRelatedTransferOrders: Page "Qlty. Related Transfer Orders";
     begin