remove empty var section (#237)

microsoft · Oct 10, 2023 · d7e0674 · d7e0674
1 parent f242701
commit d7e0674
Show file tree

Hide file tree

Showing 12 changed files with 2 additions and 15 deletions.
diff --git a/src/System Application/App/AI/src/Copilot/CopilotCapabilityImpl.Codeunit.al b/src/System Application/App/AI/src/Copilot/CopilotCapabilityImpl.Codeunit.al
@@ -32,7 +32,6 @@ codeunit 7774 "Copilot Capability Impl"
         TelemetryDeactivatedCopilotCapabilityLbl: Label 'Copilot capability deactivated.', Locked = true;
 
     procedure RegisterCapability(CopilotCapability: Enum "Copilot Capability"; LearnMoreUrl: Text[2048]; CallerModuleInfo: ModuleInfo)
-    var
     begin
         RegisterCapability(CopilotCapability, Enum::"Copilot Availability"::Preview, LearnMoreUrl, CallerModuleInfo);
     end;

diff --git a/src/System Application/App/Data Administration/src/DetachedMediaCleanup.Page.al b/src/System Application/App/Data Administration/src/DetachedMediaCleanup.Page.al
@@ -200,7 +200,6 @@ page 1927 "Detached Media Cleanup"
     end;
 
     trigger OnOpenPage()
-    var
     begin
         LoadLimit := 10000;
     end;

diff --git a/src/System Application/App/Performance Profiler/src/SamplingPerformanceProfiler.Codeunit.al b/src/System Application/App/Performance Profiler/src/SamplingPerformanceProfiler.Codeunit.al
@@ -28,7 +28,6 @@ codeunit 1924 "Sampling Performance Profiler"
     /// Starts performance profiling.
     /// </summary>
     procedure Start(SamplingInterval: Enum "Sampling Interval")
-    var
     begin
         SamplingPerfProfilerImpl.Start(SamplingInterval);
     end;

diff --git a/src/System Application/App/Permission Sets/src/PermissionImpl.Codeunit.al b/src/System Application/App/Permission Sets/src/PermissionImpl.Codeunit.al
@@ -273,7 +273,6 @@ codeunit 9864 "Permission Impl."
     end;
 
     procedure FillLookupBuffer(var PermissionLookupBuffer: Record "Permission Lookup Buffer" temporary)
-    var
     begin
         if PermissionLookupBuffer.GetFilter("Lookup Type") = '' then
             exit;

diff --git a/src/System Application/App/Permission Sets/src/xmlports/ImportPermissionSets.xmlport.al b/src/System Application/App/Permission Sets/src/xmlports/ImportPermissionSets.xmlport.al
@@ -237,7 +237,6 @@ xmlport 9864 "Import Permission Sets"
     end;
 
     trigger OnPostXmlPort()
-    var
     begin
         if TempMetadataPermissionSet.FindSet() then
             repeat

diff --git a/...p/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTblImpl.Codeunit.al b/...p/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTblImpl.Codeunit.al
@@ -291,7 +291,6 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl."
     end;
 
     procedure ParseTableFilter(JsonObject: JsonObject; var TableId: Integer; var RetentionPeriodEnum: enum "Retention Period Enum"; var RetPeriodCalc: DateFormula; var DateFieldNo: Integer; var Enabled: Boolean; var Locked: Boolean; var TableFilter: Text)
-    var
     begin
         TableId := GetTableId(JsonObject);
         RetentionPeriodEnum := GetRetentionPeriodEnum(JsonObject);

diff --git a/src/System Application/Test Library/Email/src/TestEmailConnector.Codeunit.al b/src/System Application/Test Library/Email/src/TestEmailConnector.Codeunit.al
@@ -28,7 +28,6 @@ codeunit 134687 "Test Email Connector" implements "Email Connector"
     end;
 
     procedure RegisterAccount(var EmailAccount: Record "Email Account"): Boolean
-    var
     begin
         if ConnectorMock.FailOnRegisterAccount() then
             Error('Failed to register account');

diff --git a/src/System Application/Test Library/Word Templates/src/WordTemplateCreator.Codeunit.al b/src/System Application/Test Library/Word Templates/src/WordTemplateCreator.Codeunit.al
diff --git a/src/System Application/Test/Azure AD Plan/src/AzureADPlanTests.Codeunit.al b/src/System Application/Test/Azure AD Plan/src/AzureADPlanTests.Codeunit.al
@@ -693,7 +693,6 @@ codeunit 132912 "Azure AD Plan Tests"
 
     [ModalPageHandler]
     procedure ModalHandler(var Plans: TestPage "Plans")
-    var
     begin
         Plans.OK().Invoke();
     end;

diff --git a/src/System Application/Test/Password/src/PasswordHandlerTest.Codeunit.al b/src/System Application/Test/Password/src/PasswordHandlerTest.Codeunit.al
@@ -225,7 +225,6 @@ codeunit 132578 "Password Handler Test"
 
     [EventSubscriber(ObjectType::Codeunit, Codeunit::"Password Dialog Management", 'OnSetMinPasswordLength', '', false, false)]
     local procedure OnSetMinPasswordLength(var MinPasswordLength: Integer)
-    var
     begin
         // Increase the minimum length of the password.
         MinPasswordLength := 16;

diff --git a/src/System Application/Test/Telemetry/src/CustomDimensionsTest.Codeunit.al b/src/System Application/Test/Telemetry/src/CustomDimensionsTest.Codeunit.al
@@ -85,7 +85,6 @@ codeunit 139482 "Custom Dimensions Test"
     end;
 
     local procedure RaiseOnAddCommonCustomDimensionsEvent(var TelemetryCustomDimensions: Codeunit "Telemetry Custom Dimensions")
-    var
     begin
         TelemetryCustomDimensions.AddAllowedCommonCustomDimensionPublisher('Microsoft');
         TelemetryCustomDimensions.OnAddCommonCustomDimensions();

diff --git a/src/System Application/Test/Telemetry/src/TestTelemetryLogger.Codeunit.al b/src/System Application/Test/Telemetry/src/TestTelemetryLogger.Codeunit.al
@@ -38,7 +38,6 @@ codeunit 139485 "Test Telemetry Logger" implements "Telemetry Logger"
 
     [EventSubscriber(ObjectType::Codeunit, Codeunit::"Telemetry Custom Dimensions", 'OnAddCommonCustomDimensions', '', true, true)]
     local procedure OnAddCommonCustomDimensions(var Sender: Codeunit "Telemetry Custom Dimensions")
-    var
     begin
         Sender.AddCommonCustomDimension(CommonCustomDimensionNameTxt, CommonCustomDimensionValueTxt, TestPublisherTxt);
     end;
-Original file line number
+Diff line change
@@ Expand Up / @@ -32,7 +32,6 @@ codeunit 7774 "Copilot Capability Impl" @@
             TelemetryDeactivatedCopilotCapabilityLbl: Label 'Copilot capability deactivated.', Locked = true;
         procedure RegisterCapability(CopilotCapability: Enum "Copilot Capability"; LearnMoreUrl: Text[2048]; CallerModuleInfo: ModuleInfo)
-        var
         begin
             RegisterCapability(CopilotCapability, Enum::"Copilot Availability"::Preview, LearnMoreUrl, CallerModuleInfo);
         end;
@@ Expand Down @@