diff --git a/src/System Application/App/Microsoft User Feedback/src/MicrosoftUserFeedback.Codeunit.al b/src/System Application/App/Microsoft User Feedback/src/MicrosoftUserFeedback.Codeunit.al index d39f25bb68..13ad3b3e6c 100644 --- a/src/System Application/App/Microsoft User Feedback/src/MicrosoftUserFeedback.Codeunit.al +++ b/src/System Application/App/Microsoft User Feedback/src/MicrosoftUserFeedback.Codeunit.al @@ -18,6 +18,8 @@ codeunit 1590 "Microsoft User Feedback" /// Requests general feedback for a feature, optionally specifying if it is a Copilot feature and its area. /// /// The name of the feature for which feedback is requested. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure RequestFeedback(FeatureName: Text) var CallerModuleInfo: ModuleInfo; @@ -27,6 +29,7 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.RequestFeedback(FeatureName, '', '', EmptyContextFiles, EmptyContextProperties, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Requests general feedback for a feature, optionally specifying if it is a Copilot feature and its area. @@ -34,6 +37,8 @@ codeunit 1590 "Microsoft User Feedback" /// The name of the feature for which feedback is requested. /// The area or sub-area of the feature. ID on OCV. /// The display name of the feature area. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure RequestFeedback(FeatureName: Text; FeatureArea: Text; FeatureAreaDisplayName: Text) var CallerModuleInfo: ModuleInfo; @@ -43,6 +48,7 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.RequestFeedback(FeatureName, FeatureArea, FeatureAreaDisplayName, EmptyContextFiles, EmptyContextProperties, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Requests general feedback for a feature, optionally specifying if it is a Copilot feature and its area. @@ -52,6 +58,8 @@ codeunit 1590 "Microsoft User Feedback" /// The display name of the feature area. /// Map of filename to base64 file to attach to the feedback. Must contain the filename in the extension. /// Additional data to pass properties to the feedback mechanism. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure RequestFeedback(FeatureName: Text; FeatureArea: Text; FeatureAreaDisplayName: Text; ContextFiles: Dictionary of [Text, Text]; ContextProperties: Dictionary of [Text, Text]) var CallerModuleInfo: ModuleInfo; @@ -59,11 +67,14 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.RequestFeedback(FeatureName, FeatureArea, FeatureAreaDisplayName, ContextFiles, ContextProperties, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Requests a 'like' (positive) feedback for a feature, optionally specifying if it is a Copilot feature and its area. /// /// The name of the feature for which like feedback is requested. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure RequestLikeFeedback(FeatureName: Text) var CallerModuleInfo: ModuleInfo; @@ -73,6 +84,7 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.RequestLikeFeedback(FeatureName, '', '', EmptyContextFiles, EmptyContextProperties, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Requests a 'like' (positive) feedback for a feature, optionally specifying if it is a Copilot feature and its area. @@ -80,6 +92,8 @@ codeunit 1590 "Microsoft User Feedback" /// The name of the feature for which like feedback is requested. /// The area or sub-area of the feature. ID on OCV. /// The display name of the feature area. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure RequestLikeFeedback(FeatureName: Text; FeatureArea: Text; FeatureAreaDisplayName: Text) var CallerModuleInfo: ModuleInfo; @@ -89,6 +103,7 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.RequestLikeFeedback(FeatureName, FeatureArea, FeatureAreaDisplayName, EmptyContextFiles, EmptyContextProperties, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Requests a 'like' (positive) feedback for a feature, optionally specifying if it is a Copilot feature and its area. @@ -97,6 +112,8 @@ codeunit 1590 "Microsoft User Feedback" /// The area or sub-area of the feature. /// Map of filename to base64 file to attach to the feedback. Must contain the filename in the extension. /// Additional data to pass properties to the feedback mechanism. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure RequestLikeFeedback(FeatureName: Text; FeatureArea: Text; FeatureAreaDisplayName: Text; ContextFiles: Dictionary of [Text, Text]; ContextProperties: Dictionary of [Text, Text]) var CallerModuleInfo: ModuleInfo; @@ -104,11 +121,14 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.RequestLikeFeedback(FeatureName, FeatureArea, FeatureAreaDisplayName, ContextFiles, ContextProperties, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Requests a 'dislike' (negative) feedback for a feature, optionally specifying if it is a Copilot feature and its area. /// /// The name of the feature for which dislike feedback is requested. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure RequestDislikeFeedback(FeatureName: Text) var CallerModuleInfo: ModuleInfo; @@ -118,6 +138,7 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.RequestDislikeFeedback(FeatureName, '', '', EmptyContextFiles, EmptyContextProperties, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Requests a 'dislike' (negative) feedback for a feature, optionally specifying if it is a Copilot feature and its area. @@ -125,6 +146,8 @@ codeunit 1590 "Microsoft User Feedback" /// The name of the feature for which dislike feedback is requested. /// The area or sub-area of the feature. ID of the sub-area on OCV. /// The display name of the feature area. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure RequestDislikeFeedback(FeatureName: Text; FeatureArea: Text; FeatureAreaDisplayName: Text) var CallerModuleInfo: ModuleInfo; @@ -134,6 +157,7 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.RequestDislikeFeedback(FeatureName, FeatureArea, FeatureAreaDisplayName, EmptyContextFiles, EmptyContextProperties, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Requests a 'dislike' (negative) feedback for a feature, optionally specifying if it is a Copilot feature and its area. @@ -141,26 +165,32 @@ codeunit 1590 "Microsoft User Feedback" /// The name of the feature for which dislike feedback is requested. /// The area or sub-area of the feature. ID of the sub-area on OCV. /// The display name of the feature area. - /// Additional data to pass properties to the feedback mechanism. /// Map of filename to base64 file to attach to the feedback. Must contain the filename in the extension. - procedure RequestDislikeFeedback(FeatureName: Text; FeatureArea: Text; FeatureAreaDisplayName: Text; ContextProperties: Dictionary of [Text, Text]; ContextFiles: Dictionary of [Text, Text]) + /// Additional data to pass properties to the feedback mechanism. +#pragma warning disable AS0022 + [Scope('OnPrem')] + procedure RequestDislikeFeedback(FeatureName: Text; FeatureArea: Text; FeatureAreaDisplayName: Text; ContextFiles: Dictionary of [Text, Text]; ContextProperties: Dictionary of [Text, Text]) var CallerModuleInfo: ModuleInfo; begin NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.RequestDislikeFeedback(FeatureName, FeatureArea, FeatureAreaDisplayName, ContextFiles, ContextProperties, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Sets whether the General/Like/Dislike feedback being collected is for an AI feature. /// /// True if the feedback is for an AI feature; otherwise, false. /// The current instance of the "Microsoft User Feedback Impl" codeunit. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure SetIsAIFeedback(IsAIFeedback: Boolean): Codeunit "Microsoft User Feedback" begin this.FeedbackImpl := this.FeedbackImpl.SetIsAIFeedback(IsAIFeedback); exit(this); end; +#pragma warning restore AS0022 /// /// Sets a custom question to be included in the feedback prompt. @@ -168,22 +198,28 @@ codeunit 1590 "Microsoft User Feedback" /// The text of the custom question. /// The display text of the custom question. /// The current instance of the "Microsoft User Feedback Impl" codeunit. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure WithCustomQuestion(Question: Text; QuestionDisplay: Text): Codeunit "Microsoft User Feedback" begin this.FeedbackImpl := this.FeedbackImpl.WithCustomQuestion(Question, QuestionDisplay); exit(this); end; +#pragma warning restore AS0022 /// /// Sets the type of the custom question to be included in the feedback prompt. /// /// The type of the custom question. /// The current instance of the "Microsoft User Feedback Impl" codeunit. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure WithCustomQuestionType(QuestionType: Enum FeedbackQuestionType): Codeunit "Microsoft User Feedback" begin this.FeedbackImpl := this.FeedbackImpl.WithCustomQuestionType(QuestionType); exit(this); end; +#pragma warning restore AS0022 /// /// Sets the required behavior for the custom question to be included in the feedback prompt. @@ -191,22 +227,28 @@ codeunit 1590 "Microsoft User Feedback" /// The behaviour. /// If true, enables the specified required behavior; if false, disables it. /// The current instance of the "Microsoft User Feedback Impl" codeunit. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure WithCustomQuestionRequiredBehavior(RequiredBehavior: Enum FeedbackRequiredBehavior; Enabled: Boolean): Codeunit "Microsoft User Feedback" begin this.FeedbackImpl := this.FeedbackImpl.WithCustomQuestionRequiredBehavior(RequiredBehavior, Enabled); exit(this); end; +#pragma warning restore AS0022 /// /// Sets the required behavior for the custom question to be included in the feedback prompt. /// /// A dictionary defining the required behavior for the custom question. /// The current instance of the "Microsoft User Feedback Impl" codeunit. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure WithCustomQuestionRequiredBehavior(RequiredBehavior: Dictionary of [Enum FeedbackRequiredBehavior, Text]): Codeunit "Microsoft User Feedback" begin this.FeedbackImpl := this.FeedbackImpl.WithCustomQuestionRequiredBehavior(RequiredBehavior); exit(this); end; +#pragma warning restore AS0022 /// /// Adds an answer option for the custom question to be included in the feedback prompt. @@ -214,32 +256,41 @@ codeunit 1590 "Microsoft User Feedback" /// The answer option. /// The display text for the answer option. /// The current instance of the "Microsoft User Feedback Impl" codeunit. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure WithCustomQuestionAnswerOption(AnswerOption: Text; AnswerDisplayText: Text): Codeunit "Microsoft User Feedback" begin this.FeedbackImpl := this.FeedbackImpl.WithCustomQuestionAnswerOption(AnswerOption, AnswerDisplayText); exit(this); end; +#pragma warning restore AS0022 /// /// Sets the answer options for the custom question to be included in the feedback prompt. /// /// A dictionary defining the answer options for the custom question. /// The current instance of the "Microsoft User Feedback Impl" codeunit. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure WithCustomQuestionAnswerOptions(AnswerOptions: Dictionary of [Text, Text]): Codeunit "Microsoft User Feedback" begin this.FeedbackImpl := this.FeedbackImpl.WithCustomQuestionAnswerOptions(AnswerOptions); exit(this); end; +#pragma warning restore AS0022 /// /// Clears any previously set custom question. /// /// The current instance of the "Microsoft User Feedback" codeunit. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure ClearCustomQuestion(): Codeunit "Microsoft User Feedback" begin this.FeedbackImpl := this.FeedbackImpl.ClearCustomQuestion(); exit(this); end; +#pragma warning restore AS0022 /// /// Starts or stops a survey timer activity. This is used to start a timer to count up user usage @@ -247,6 +298,8 @@ codeunit 1590 "Microsoft User Feedback" /// /// The name of the activity for which the timer is started or stopped. /// If true, starts the timer; if false, stops the timer. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure SurveyTimerActivity(ActivityName: Text; Start: Boolean) var CallerModuleInfo: ModuleInfo; @@ -254,12 +307,15 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.SurveyTimerActivity(ActivityName, Start, CallerModuleInfo); end; +#pragma warning restore AS0022 /// /// Sends a one-time trigger event based on a specific activity name. /// The event could be, for example, a user clicking a button /// /// The name of the activity that triggers the survey. +#pragma warning disable AS0022 + [Scope('OnPrem')] procedure SurveyTriggerActivity(ActivityName: Text) var CallerModuleInfo: ModuleInfo; @@ -267,6 +323,7 @@ codeunit 1590 "Microsoft User Feedback" NavApp.GetCallerModuleInfo(CallerModuleInfo); this.FeedbackImpl.SurveyTriggerActivity(ActivityName, CallerModuleInfo); end; +#pragma warning restore AS0022 var FeedbackImpl: Codeunit "Microsoft User Feedback Impl";