From 55ecb45d8007d1df4a3fd34d970fd218fc65997e Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Tue, 24 Oct 2023 09:11:37 +0200 Subject: [PATCH 01/10] Fix country/region reference --- src/System Application/App/Barcode/README.md | 2 +- .../App/Barcode/src/Barcode Provider/BarcodeSymbology.Enum.al | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/System Application/App/Barcode/README.md b/src/System Application/App/Barcode/README.md index b7b6d6f51c..ee83d8674f 100644 --- a/src/System Application/App/Barcode/README.md +++ b/src/System Application/App/Barcode/README.md @@ -237,7 +237,7 @@ The settings to use for the validation. ### UPC-A (value: 202) - UPC-A - The Universal Product Code (UPC; redundantly: UPC code) is a barcode symbology that is widely used in the United States, Canada, Europe, Australia, New Zealand, and other countries for tracking trade items in stores. + UPC-A - The Universal Product Code (UPC; redundantly: UPC code) is a barcode symbology that is widely used in the United States, Canada, Europe, Australia, New Zealand, and other countries/regions for tracking trade items in stores. ### UPC-E (value: 203) diff --git a/src/System Application/App/Barcode/src/Barcode Provider/BarcodeSymbology.Enum.al b/src/System Application/App/Barcode/src/Barcode Provider/BarcodeSymbology.Enum.al index e725016fef..d16b50db63 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider/BarcodeSymbology.Enum.al +++ b/src/System Application/App/Barcode/src/Barcode Provider/BarcodeSymbology.Enum.al @@ -86,7 +86,7 @@ enum 9204 "Barcode Symbology" } /// - /// UPC-A - The Universal Product Code (UPC; redundantly: UPC code) is a barcode symbology that is widely used in the United States, Canada, Europe, Australia, New Zealand, and other countries for tracking trade items in stores. + /// UPC-A - The Universal Product Code (UPC; redundantly: UPC code) is a barcode symbology that is widely used in the United States, Canada, Europe, Australia, New Zealand, and other countries/regions for tracking trade items in stores. /// value(202; "UPC-A") { From 165d5fd502fa8489b412870b3f55e8878d2001a1 Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Fri, 1 Dec 2023 10:45:40 +0100 Subject: [PATCH 02/10] Clean up system app --- .../src/Azure OpenAI/AzureOpenAI.Codeunit.al | 2 +- .../Azure OpenAI/AzureOpenAIImpl.Codeunit.al | 2 +- .../AOAIChatCompletionParams.Codeunit.al | 2 +- .../AOAITextCompletionParams.Codeunit.al | 2 +- .../Copilot/CopilotCapabilityImpl.Codeunit.al | 8 +- .../AdvancedSettingsObjects.PermissionSet.al | 2 +- .../src/AdvancedSettings.Codeunit.al | 2 +- .../src/AdvancedSettingsImpl.Codeunit.al | 2 +- .../Auto Format/src/AutoFormat.Codeunit.al | 6 +- .../src/AzureADGraph.Codeunit.al | 2 +- .../AzureADPlanObjects.PermissionSet.al | 16 +-- .../AzureADPlanRead.PermissionSet.al | 6 +- .../Azure AD Plan/src/AzureADPlan.Codeunit.al | 2 +- .../src/AzureADPlanImpl.Codeunit.al | 42 +++--- .../CustomPermissionSetInPlan.Page.al | 6 +- .../DefaultPermissionSetInPlan.Page.al | 2 +- .../Microsoft365License.Codeunit.al | 4 +- .../PlanConfigurationCard.Page.al | 2 +- .../PlanConfigurationImpl.Codeunit.al | 8 +- .../PlanConfigurationList.Page.al | 4 +- .../PlanConfigurationsPart.Page.al | 4 +- .../App/Azure AD Plan/src/Plan.Query.al | 2 +- .../App/Azure AD Plan/src/PlanIds.Codeunit.al | 4 - .../src/PlanInstaller.Codeunit.al | 2 +- .../Azure AD Plan/src/PlanUpgrade.Codeunit.al | 20 +-- .../src/PlanUpgradeTag.Codeunit.al | 3 - .../App/Azure AD Plan/src/Plans.Page.al | 4 +- .../Azure AD Plan/src/PlansFactBox.Page.al | 5 +- .../User Details/PlanUserDetails.Codeunit.al | 6 +- .../Azure AD Plan/src/UserPlanMembers.Page.al | 7 +- .../src/UserPlanMembersFactBox.Page.al | 5 +- .../src/UserPlansFactBox.Page.al | 5 +- .../AADUserManagementObjects.PermissionSet.al | 4 +- .../src/AzureADUserManagement.Codeunit.al | 12 +- .../src/AzureADUserMgmtImpl.Codeunit.al | 10 +- .../User sync/AzureADUserSyncImpl.Codeunit.al | 6 +- .../AzureADUserUpdateBuffer.Table.al | 2 +- .../User sync/AzureADUserUpdateWizard.Page.al | 8 +- .../User sync/AzureADUserUpdatesPart.Page.al | 6 +- .../src/AzureADGraphUser.Codeunit.al | 35 +++-- .../src/AzureADGraphUserImpl.Codeunit.al | 5 +- .../src/ABSBlobClient.Codeunit.al | 74 +++++----- .../src/ABSClientImpl.Codeunit.al | 6 +- .../src/ABSContainer.Table.al | 2 +- .../src/ABSContainerClient.Codeunit.al | 8 +- .../src/ABSOperationResponse.Codeunit.al | 6 +- .../src/Helper/ABSFormatHelper.Codeunit.al | 2 +- .../Helper/ABSOptionalParameters.Codeunit.al | 10 +- .../src/Helper/ABSURIHelper.Codeunit.al | 2 +- .../Azure Function/AzureFunctions.Codeunit.al | 4 +- .../AzureFunctionsImpl.Codeunit.al | 4 +- .../AzureFunctionsResponse.Codeunit.al | 2 +- .../src/SAS/SASParameters.Table.al | 2 +- .../src/SAS/SASPermission.Enum.al | 2 +- .../src/SAS/StorServAuthSAS.Codeunit.al | 2 +- .../StorServAuthSharedKey.Codeunit.al | 6 +- .../BLOB Storage/src/PersistentBlob.Table.al | 5 +- .../src/PersistentBlobImpl.Codeunit.al | 2 +- .../App/BLOB Storage/src/TempBlob.Table.al | 5 +- .../BarcodeEncodeSettings2D.Table.al | 2 +- .../BarcodeSymbology2D.Enum.al | 2 +- .../Font/BarcodeFontEncoder2D.Interface.al | 4 +- .../Font/BarcodeFontProvider2D.Interface.al | 4 +- .../Font/BarcodeFontProvider2D.enum.al | 2 +- .../Image/BarcodeImageEncoder2D.Interface.al | 4 +- .../Image/BarcodeImageProvider2D.Interface.al | 6 +- .../Image/BarcodeImageProvider2D.enum.al | 2 +- .../BarcodeEncodeSettings.Table.al | 2 +- .../Barcode Provider/BarcodeSymbology.Enum.al | 10 +- .../Font/BarcodeFontEncoder.Interface.al | 6 +- .../Font/BarcodeFontProvider.Enum.al | 2 +- .../Font/BarcodeFontProvider.Interface.al | 6 +- .../Dynamics2DProvider.Codeunit.al | 2 +- .../Encoders/IDA1DCodabarEncoder.Codeunit.al | 2 +- .../Encoders/IDA1DCode128Encoder.Codeunit.al | 6 +- .../Encoders/IDA1DCode39Encoder.Codeunit.al | 6 +- .../Encoders/IDA1DCode93Encoder.Codeunit.al | 2 +- .../Encoders/IDA1DEAN13Encoder.Codeunit.al | 4 +- .../Encoders/IDA1DEAN8Encoder.Codeunit.al | 4 +- .../Encoders/IDA1DI2of5Encoder.Codeunit.al | 4 +- .../Encoders/IDA1DPostnetEncoder.Codeunit.al | 2 +- .../Encoders/IDA1DUPCAEncoder.Codeunit.al | 2 +- .../Encoders/IDA1DUPCEEncoder.Codeunit.al | 2 +- .../IDAutomation1DProvider.Codeunit.al | 4 +- .../IDAutomation2DProvider.Codeunit.al | 2 +- .../src/Base64ConvertImpl.Codeunit.al | 2 +- .../src/BusinessChartDataType.Enum.al | 2 +- .../src/BusinessChartType.Enum.al | 26 ++-- .../src/Camera.Codeunit.al | 2 +- .../src/Camera.Page.al | 6 +- .../src/CameraImpl.Codeunit.al | 2 +- .../src/MediaUpload.Page.al | 6 +- .../src/ClientTypeManagement.Codeunit.al | 2 +- .../CryptographyMgtObjects.PermissionSet.al | 2 +- .../AesCryptoServiceProviderImpl.Codeunit.al | 2 +- .../src/CertificateRequest.Codeunit.al | 10 +- .../src/CertificateRequestImpl.Codeunit.al | 2 +- .../src/CryptographyManagement.Codeunit.al | 4 +- .../CryptographyManagementImpl.Codeunit.al | 10 +- .../src/DESCryptoServiceProvider.Codeunit.al | 4 +- .../DESCryptoServiceProviderImpl.Codeunit.al | 4 +- .../src/DSACryptoServiceProvider.Codeunit.al | 2 +- .../src/DataEncryptionManagement.Page.al | 14 +- .../src/RSACryptoServiceProvider.Codeunit.al | 4 +- .../src/RSASignaturePadding.Enum.al | 2 +- .../src/Rfc2898DeriveBytes.Codeunit.al | 2 +- .../src/RijndaelCryptography.Codeunit.al | 2 +- .../src/SymmetricAlgorithm.Interface.al | 4 +- .../TripleDESCryptoSvcProvImpl.Codeunit.al | 2 +- .../src/X509Certificate2.Codeunit.al | 32 ++--- .../src/Xml/EncryptedXml.Codeunit.al | 6 +- .../src/Xml/EncryptedXmlImpl.Codeunit.al | 6 +- .../src/Xml/SignedXml.Codeunit.al | 2 +- .../CuesandKPIsObjects.PermissionSet.al | 4 +- .../src/CueSetupAdministrator.Page.al | 9 +- .../Cues and KPIs/src/CueSetupEndUser.Page.al | 7 +- .../Cues and KPIs/src/CuesAndKPIs.Codeunit.al | 4 +- .../src/CuesAndKPIsImpl.Codeunit.al | 8 +- .../src/CustExpSurveyReqImpl.Codeunit.al | 2 +- .../src/CustomerExpSurveyImpl.Codeunit.al | 2 +- .../src/DetachedMediaCleanup.Page.al | 2 +- .../src/MediaCleanupImpl.Codeunit.al | 2 +- .../Data Archive/src/DataArchive.codeunit.al | 30 ++-- .../src/DataArchiveProvider.Interface.al | 26 ++-- .../DataClassificationEdit.PermissionSet.al | 4 +- ...DataClassificationObjects.PermissionSet.al | 8 +- .../DataClassificationRead.PermissionSet.al | 4 +- .../src/DataClassificationMgtImpl.Codeunit.al | 6 +- .../src/DataClassificationWizard.Page.al | 56 ++++---- .../src/DataClassificationWorksheet.Page.al | 10 +- .../src/DataPrivacyEntities.Table.al | 5 +- .../src/DataPrivacyEntitiesMgt.Codeunit.al | 4 +- .../src/FieldContentBuffer.Page.al | 5 +- .../src/FieldContentBuffer.Table.al | 3 - .../src/FieldDataClassification.Page.al | 5 +- .../src/FieldsSyncStatus.Table.al | 3 - .../App/Data Compression/src/dotnet.al | 51 +++---- .../src/DateTimeDialog.Page.al | 5 +- .../DefaultRoleCenterRead.PermissionSet.al | 6 +- .../src/BlankRoleCenter.Page.al | 8 +- .../src/DefaultRoleCenterImpl.Codeunit.al | 8 +- .../DocumentSharingObjects.PermissionSet.al | 4 +- .../src/DocumentSharing.Codeunit.al | 8 +- .../src/DocumentSharing.Table.al | 2 +- .../src/DocumentSharingImpl.Codeunit.al | 2 +- .../App/DotNet Aliases/src/dotnet.al | 4 +- .../EditInExcelRead.PermissionSet.al | 2 +- .../EditinExcelObjects.PermissionSet.al | 6 +- .../src/EditInExcelWorkbookImpl.Codeunit.al | 10 +- .../src/EditinExcelImpl.Codeunit.al | 20 +-- .../src/ExcelCentralizedDeplWizard.Page.al | 8 +- .../EditInExcelFiltersImpl.Codeunit.al | 6 +- .../EditInExcelFldFilterImpl.Codeunit.al | 2 +- .../permissions/EmailAdmin.PermissionSet.al | 4 +- .../permissions/EmailObjects.PermissionSet.al | 76 +++++----- .../permissions/EmailRead.PermissionSet.al | 12 +- .../src/Account/EmailAccountImpl.Codeunit.al | 6 +- .../src/Account/EmailAccountWizard.Page.al | 2 +- .../Email/src/Account/EmailAccounts.Page.al | 4 +- .../App/Email/src/Email/Email.Codeunit.al | 4 +- .../Email/src/Email/EmailActivities.Page.al | 2 +- .../EmailScenarioAttachImpl.Codeunit.al | 6 +- .../EmailScenarioAttachSetup.Page.al | 4 +- .../App/Email/src/Email/EmailImpl.Codeunit.al | 6 +- .../EmailRecordReferenceImpl.Codeunit.al | 2 +- .../src/Email/Outbox/EmailEditor.Codeunit.al | 10 +- .../src/Email/Outbox/EmailEditor.Page.al | 2 +- .../src/Email/Outbox/EmailOutbox.Page.al | 2 +- .../src/Email/Outbox/OutboxEmails.Query.al | 10 +- .../Email/src/Email/Sent/SentEmails.Query.al | 10 +- .../View Policy/EmailRelatedRecord.Query.al | 2 +- .../Email/View Policy/EmailViewPolicy.Enum.al | 2 +- .../View Policy/EmailViewPolicyList.Page.al | 2 +- .../ViewIfAllRelatedRecords.Codeunit.al | 2 +- .../ViewIfAnyRelatedRecords.Codeunit.al | 2 +- .../ViewOnlyOwnEmailsPolicy.Codeunit.al | 2 +- .../App/Email/src/EmailLogsDelete.Codeunit.al | 4 +- .../src/Lookup/EmailAddressLookup.Page.al | 4 +- .../src/Lookup/EmailAddressLookup.Table.al | 2 +- .../src/Message/EmailAttachments.Page.al | 2 +- .../src/Message/EmailMessage.Codeunit.al | 8 +- .../src/Message/EmailMessageImpl.Codeunit.al | 8 +- .../src/Message/EmailRecipientType.Enum.al | 4 +- .../Message/EmailRelatedAttachments.Page.al | 2 +- .../RateLimit/EmailRateLimitWizard.Page.al | 6 +- .../Scenario/EmailScenarioImpl.Codeunit.al | 4 +- .../Scenario/EmailScenariosFactBox.Page.al | 2 +- .../Scenario/EmailScenariosForAccount.Page.al | 2 +- .../EmailUserSpecifiedAddress.Page.al | 2 +- .../App/Encoding/src/Encoding.Codeunit.al | 2 +- .../AzureADApplicationApi.Entitlement.al | 2 +- .../EntityTextObjects.PermissionSet.al | 16 +-- .../src/AzureOpenAiSettings.Page.al | 5 +- .../src/AzureOpenAiSettings.Table.al | 3 - .../Entity Text/src/EntityText.Codeunit.al | 2 +- .../App/Entity Text/src/EntityText.Page.al | 5 +- .../src/EntityTextFactboxPart.Page.al | 4 +- .../src/EntityTextImpl.Codeunit.al | 4 +- .../Entity Text/src/EntityTextPart.Page.al | 2 +- .../src/EnvironmentInformation.Codeunit.al | 2 +- .../EnvironmentInformationImpl.Codeunit.al | 2 +- .../ExtenMgtAdmin.PermissionSet.al | 6 +- ...xtensionManagementObjects.PermissionSet.al | 38 ++--- .../ExtensionManagementRead.PermissionSet.al | 4 +- .../src/DeleteOrphanedExtensionData.Page.al | 6 +- .../src/ExtensionDeploymentStatus.Page.al | 6 +- .../src/ExtensionDeploymentStatus.Table.al | 5 +- .../src/ExtensionDetails.Page.al | 6 +- .../src/ExtensionDetailsPart.Page.al | 5 +- .../src/ExtensionInstallation.Table.al | 4 +- .../src/ExtensionInstallationImpl.Codeunit.al | 6 +- .../src/ExtensionLogoPart.Page.al | 5 +- .../src/ExtensionManagement.Codeunit.al | 4 +- .../src/ExtensionManagement.Page.al | 14 +- .../src/ExtensionMarketplace.Codeunit.al | 20 +-- .../src/ExtensionMarketplace.Page.al | 5 +- .../src/ExtensionOperationImpl.Codeunit.al | 10 +- .../src/ExtensionPendingSetup.Table.al | 3 - .../src/ExtensionSettings.Page.al | 5 +- .../src/ExtensionSetupLauncher.Page.al | 6 - .../src/ExtnDeploymentStatusDetail.Page.al | 8 +- .../src/ExtnInstallationProgress.Page.al | 2 +- .../src/ExtnOrphanedAppDetails.Page.al | 6 +- .../src/MarketplaceExtnDeployment.Page.al | 6 +- .../src/UploadAndDeployExtension.Page.al | 4 +- .../FeatureKeyObjects.PermissionSet.al | 10 +- .../FeatureKeyRead.PermissionSet.al | 4 +- .../src/FeatureDataUpdate.Interface.al | 2 +- .../Feature Key/src/FeatureKeyBuffer.Table.al | 16 +-- .../src/FeatureManagement.Interface.al | 8 +- .../Feature Key/src/FeatureManagement.Page.al | 16 +-- .../src/FeatureManagementFacade.Codeunit.al | 4 +- .../src/FeatureManagementImpl.Codeunit.al | 26 ++-- .../src/ScheduleFeatureDataUpdate.Page.al | 4 +- .../FieldSelectionRead.PermissionSet.al | 4 +- .../src/FieldSelectionImpl.Codeunit.al | 2 +- .../Field Selection/src/FieldsLookup.Page.al | 5 +- .../Geolocation/src/Geolocation.Codeunit.al | 2 +- .../App/Geolocation/src/Geolocation.Page.al | 4 +- .../src/GeolocationImpl.Codeunit.al | 6 +- .../GuidedExperienceEdit.PermissionSet.al | 6 +- .../GuidedExperienceObjects.PermissionSet.al | 26 ++-- .../GuidedExperienceRead.PermissionSet.al | 14 +- .../GuidedExperienceView.PermissionSet.al | 6 +- .../src/App Setup/AppSetupList.Page.al | 10 +- .../AggregatedAssistedSetup.Table.al | 2 +- .../src/Assisted Setup/AssistedSetup.Page.al | 8 +- .../src/Assisted Setup/AssistedSetup.Table.al | 3 - .../Assisted Setup/AssistedSetupLog.Table.al | 3 - .../ProductVideoCategory.Table.al | 3 - .../Checklist.Page.al | 2 +- .../ChecklistAdministration.Page.al | 2 +- .../ChecklistItemRoles.Page.al | 2 +- .../ChecklistItemUsers.Page.al | 2 +- .../Checklist Banner/ChecklistBanner.Page.al | 10 +- .../ChecklistBannerImpl.Codeunit.al | 2 +- .../src/Checklist/Checklist.Codeunit.al | 4 +- .../ChecklistCompletionRequirements.Enum.al | 4 +- .../ChecklistImplementation.Codeunit.al | 4 +- .../src/Checklist/ChecklistItemUser.Table.al | 3 - .../GuidedExperience.Codeunit.al | 14 +- .../GuidedExperienceImpl.Codeunit.al | 10 +- .../GuidedExperienceItemList.Page.al | 2 +- .../GuidedExperienceType.Enum.al | 2 +- .../src/Manual Setup/ManualSetup.Page.al | 8 +- .../src/Tour/SpotlightTourType.Enum.al | 4 +- .../App/Headlines/src/Headlines.Codeunit.al | 8 +- .../App/Image/src/Image.Codeunit.al | 6 +- .../App/Image/src/ImageImpl.Codeunit.al | 4 +- .../LanguageObjects.PermissionSet.al | 4 +- .../App/Language/src/Language.Codeunit.al | 2 +- .../App/Language/src/Language.Table.al | 2 +- .../App/Language/src/LanguageImpl.Codeunit.al | 12 +- .../App/Language/src/Languages.Page.al | 7 +- .../App/Language/src/WindowsLanguages.Page.al | 5 +- .../src/NavigationBarSubscribers.Codeunit.al | 6 +- .../App/OAuth2/OAuth2.Codeunit.al | 6 +- .../App/OAuth2/OAuth2Impl.Codeunit.al | 22 +-- .../ObjectSelectionRead.PermissionSet.al | 6 +- .../App/Object Selection/src/Objects.Page.al | 5 +- .../PageActionProviderRead.PermissionSet.al | 8 +- .../src/PageActionProvider.Codeunit.al | 2 +- .../src/PageActionProviderImpl.Codeunit.al | 8 +- .../PageSummaryProviderObj.PermissionSet.al | 6 +- .../PageSummaryProviderRead.PermissionSet.al | 8 +- .../src/PageSummaryProvider.Codeunit.al | 16 +-- .../src/PageSummaryProviderImpl.Codeunit.al | 4 +- .../src/PageSummarySettings.Page.al | 13 +- .../src/PageSummarySettings.Table.al | 3 - .../App/Password/src/ChangePassword.Report.al | 14 +- .../App/Password/src/PasswordDialog.Page.al | 7 +- .../src/PasswordDialogImpl.Codeunit.al | 4 +- ...erformanceProfilerObjects.PermissionSet.al | 4 +- .../src/PerformanceProfiler.Page.al | 2 +- .../src/ProfilingAggregationType.Enum.al | 2 +- .../src/ProfilingCallTree.Page.al | 10 +- .../src/ProfilingDataProcessor.Codeunit.al | 2 +- .../src/ProfilingDurationByMethod.Page.al | 4 +- .../src/ProfilingDurationByObject.Page.al | 10 +- .../src/ProfilingFullTimeChart.Page.al | 2 +- .../src/ProfilingSelfTimeChart.Page.al | 2 +- .../src/SamplingPerfProfilerImpl.Codeunit.al | 4 +- .../src/LogActivityPermissions.Codeunit.al | 2 +- .../src/PermissionImpl.Codeunit.al | 10 +- .../src/PermissionLookupList.Page.al | 5 +- .../Permission Sets/src/PermissionSet.Page.al | 4 +- .../src/PermissionSetCopyImpl.Codeunit.al | 8 +- .../src/PermissionSetLookupList.Page.al | 2 +- .../src/PermissionSetRelation.Codeunit.al | 10 +- .../src/PermissionSetRelationBuffer.Table.al | 3 - .../src/PermissionSetRelationImpl.Codeunit.al | 26 ++-- .../src/TenantPermissionSubForm.page.al | 50 +++---- .../xmlports/ImportPermissionSets.xmlport.al | 4 +- .../PrinterManagementObjects.PermissionSet.al | 4 +- .../src/PrinterManagement.Page.al | 6 +- .../src/PrinterPaperSourceKind.Enum.al | 28 ++-- .../src/PrinterPaperkind.Enum.al | 136 +++++++++--------- .../PrivacyNoticeObjects.PermissionSet.al | 8 +- .../PrivacyNoticeRead.PermissionSet.al | 4 +- .../PowerAutomatePrivacyNotice.Codeunit.al | 2 +- .../src/PrivacyNotice.Codeunit.al | 8 +- .../src/PrivacyNoticeApprovals.Page.al | 2 +- .../src/PrivacyNoticeImpl.Codeunit.al | 4 +- .../Privacy Notice/src/PrivacyNotices.Page.al | 4 +- .../RecordLinkManagementObj.PermissionSet.al | 4 +- .../src/RecordLinkImpl.Codeunit.al | 10 +- .../RecordReferenceDefaultImpl.Codeunit.al | 2 +- .../Record Selection/src/RecordLookup.Page.al | 22 +-- .../src/RecordSelectionImpl.Codeunit.al | 2 +- .../src/RecurrenceScheduleCard.Page.al | 22 +-- .../src/RecurrenceScheduleImpl.Codeunit.al | 18 +-- .../App/Regex/src/Captures.Table.al | 2 +- .../App/Regex/src/Groups.Table.al | 2 +- .../App/Regex/src/Matches.Table.al | 2 +- .../App/Regex/src/Regex.Codeunit.al | 8 +- .../App/Regex/src/RegexOptions.Table.al | 2 +- .../HttpClientHandler.Codeunit.al | 2 +- .../Rest Client/src/RestClient.Codeunit.al | 4 +- .../src/RestClientImpl.Codeunit.al | 14 +- .../RetentionPolicyObjects.PermissionSet.al | 26 ++-- .../RetentionPolicyRead.PermissionSet.al | 6 +- .../ApplyRetentionPolicyImpl.Codeunit.al | 18 +-- .../RetenPolDeleteImpl.Codeunit.al | 2 +- .../RetenPolDeletingParam.Table.al | 2 +- .../RetenPolFilteringImpl.Codeunit.al | 16 +-- .../Retention Period/RetentionPeriod.Table.al | 2 +- .../RetentionPeriodCustomImpl.Codeunit.al | 2 +- .../RetentionPeriodEnum.Enum.al | 2 +- .../RetentionPeriodImpl.Codeunit.al | 4 +- .../Retention Period/RetentionPeriods.Page.al | 4 +- .../RetenPolAllowedTables.Codeunit.al | 10 +- .../RetenPolAllowedTblImpl.Codeunit.al | 22 +-- .../RetentionPolicyAllowedTable.Table.al | 4 +- .../RetenPolRecordRefImpl.Codeunit.al | 2 +- .../RetenPolicyTelemetryImpl.Codeunit.al | 10 +- .../RetentionPolicyLogImpl.Codeunit.al | 2 +- .../RetentionPolicyLogMessageType.Enum.al | 2 +- .../RetenPolicySetupListPart.Page.al | 2 +- .../RetentionPolicySetup.Codeunit.al | 14 +- .../RetentionPolicySetup.Table.al | 4 +- .../RetentionPolicySetupCard.Page.al | 12 +- .../RetentionPolicySetupImpl.Codeunit.al | 48 +++---- .../RetentionPolicySetupLine.Table.al | 4 +- .../RetentionPolicySetupLines.Page.al | 3 - .../RetentionPolicySetupList.Page.al | 13 +- .../SatisfactionSurveyRead.PermissionSet.al | 2 +- .../src/NetPromoterScore.Table.al | 3 - .../src/NetPromoterScoreSetup.Table.al | 5 +- .../src/SatisfactionSurvey.Page.al | 5 +- .../src/SatisfactionSurveyImpl.Codeunit.al | 10 +- .../src/SatisfactionSurveyMgt.Codeunit.al | 2 +- .../src/SatisfactionSurveyUpgrTag.Codeunit.al | 3 - .../src/AppKeyVaultSecretPrImpl.Codeunit.al | 2 +- .../SecurityGroupsAdmin.PermissionSet.al | 4 +- .../SecurityGroupsObjects.PermissionSet.al | 10 +- .../src/ExportImportSecurityGroups.XmlPort.al | 4 +- .../src/SecGroupPermissionsPart.Page.al | 2 +- .../src/SecurityGroup.Codeunit.al | 2 +- .../src/SecurityGroup.Table.al | 4 +- .../src/SecurityGroupImpl.Codeunit.al | 16 +-- .../src/SecurityGroupLookup.Page.al | 2 +- .../src/SecurityGroupMembers.Page.al | 2 +- .../src/SecurityGroupMembersPart.Page.al | 2 +- .../src/SecurityGroupPermissionSets.Page.al | 4 +- .../src/SecurityGroups.Page.al | 12 +- .../src/SharePointAuth.Codeunit.al | 8 +- .../src/SharePointAuthorization.Interface.al | 2 +- .../SharePointApiObjects.PermissionSet.al | 2 +- .../src/SharePointClient.Codeunit.al | 28 ++-- .../helpers/SharePointHttpContent.Codeunit.al | 2 +- .../src/model/file/SharePointFile.Codeunit.al | 2 +- .../model/folder/SharePointFolder.Table.al | 2 +- .../SharePointListItemAtch.Table.al | 2 +- .../src/QueryNavigationValidation.Table.al | 2 +- .../src/SystemInitializationImpl.Codeunit.al | 8 +- .../permissions/Super.PermissionSet.al | 4 +- .../SystemObjectsExec.PermissionSet.al | 2 +- .../TableInformationObjects.PermissionSet.al | 8 +- .../src/CompanySizeCachePart.Page.al | 4 +- .../src/TableInformation.Page.al | 4 +- .../src/TableInformationCache.Codeunit.al | 2 +- .../src/TableInformationCache.Table.al | 4 +- .../src/TableInformationCachePart.Page.al | 4 +- .../FeatureTelemetry.Codeunit.al | 2 +- .../FeatureUptakeStatus.Enum.al | 6 +- .../src/Logging/Telemetry.Codeunit.al | 4 +- .../src/TimeZoneSelection.Codeunit.al | 2 +- .../src/TimeZonesLookup.Page.al | 5 +- .../TranslationObjects.PermissionSet.al | 4 +- .../Translation/src/Translation.Codeunit.al | 4 +- .../App/Translation/src/Translation.Page.al | 2 +- .../App/Translation/src/Translation.Table.al | 3 - .../src/TranslationImplementation.Codeunit.al | 6 +- .../src/UriQueryDuplicateBehaviour.Enum.al | 2 +- .../Upgrade Tags/src/UpgradeTag.Codeunit.al | 8 +- .../src/UpgradeTagImpl.Codeunit.al | 6 +- .../src/UpgradeTagTags.Codeunit.al | 4 +- .../App/Upgrade Tags/src/UpgradeTags.Table.al | 3 - .../UserDetailsObjects.PermissionSet.al | 4 +- .../User Details/src/UserDetails.Codeunit.al | 2 +- .../App/User Details/src/UserDetails.Page.al | 2 +- .../User Login Times/src/UserLogin.Table.al | 3 - .../UserPermissionsObjects.PermissionSet.al | 2 +- .../src/LookupPermissionSet.Page.al | 2 +- .../src/UserPermissions.Codeunit.al | 4 +- .../src/UserPermissionsImpl.Codeunit.al | 10 +- .../UserSelectionObjects.PermissionSet.al | 4 +- .../App/User Selection/src/UserLookup.Page.al | 5 +- .../src/UserSelection.Codeunit.al | 2 +- .../src/UserSelectionImpl.Codeunit.al | 2 +- .../UserSettingsObjects.PermissionSet.al | 14 +- .../src/AccessibleCompanies.Page.al | 6 +- .../App/User Settings/src/Roles.Page.al | 2 +- .../src/UserPersonalization.Page.al | 4 +- .../src/UserSettings.Codeunit.al | 2 +- .../User Settings/src/UserSettings.Page.al | 4 +- .../src/UserSettingsFactBox.Page.al | 4 +- .../src/UserSettingsImpl.Codeunit.al | 2 +- .../src/UserSettingsList.Page.al | 6 +- .../App/Video/src/ProductVideos.Page.al | 2 +- .../App/Video/src/Video.Codeunit.al | 18 +-- .../App/Video/src/Videolink.Page.al | 2 +- .../WebServiceManagementObj.PermissionSet.al | 10 +- .../src/TenantWebServiceColumns.Table.al | 5 +- .../src/TenantWebServiceFilter.Table.al | 7 +- .../src/TenantWebServiceOData.Table.al | 11 +- .../src/WebServiceAggregate.Table.al | 3 - .../src/WebServiceManagement.Codeunit.al | 14 +- .../src/WebServiceManagementImpl.Codeunit.al | 32 ++--- .../WordTemplatesObjects.PermissionSet.al | 16 +-- .../src/WordTemplate.Codeunit.al | 16 +-- .../src/WordTemplateCreationWizard.Page.al | 8 +- .../WordTemplateFieldSelection.Codeunit.al | 4 +- .../src/WordTemplateImpl.Codeunit.al | 4 +- .../src/WordTemplateToTextWizard.Page.al | 2 +- .../Word Templates/src/WordTemplates.Page.al | 4 +- .../src/WordTemplatesFieldSelection.Page.al | 2 +- .../src/WordTemplatesRelatedEdit.Page.al | 2 +- .../src/WordTemplatesRelatedFactbox.Page.al | 2 +- .../src/WordTemplatesRelatedList.Page.al | 2 +- .../src/WordTemplatesRelatedPart.Page.al | 6 +- .../src/WordTemplatesTablesPart.Page.al | 2 +- .../src/XmlValidation.Codeunit.al | 6 +- .../App/XmlWriter/src/XmlWriter.Codeunit.al | 4 +- 464 files changed, 1504 insertions(+), 1691 deletions(-) diff --git a/src/System Application/App/AI/src/Azure OpenAI/AzureOpenAI.Codeunit.al b/src/System Application/App/AI/src/Azure OpenAI/AzureOpenAI.Codeunit.al index eb3b0df78c..fde0db372d 100644 --- a/src/System Application/App/AI/src/Azure OpenAI/AzureOpenAI.Codeunit.al +++ b/src/System Application/App/AI/src/Azure OpenAI/AzureOpenAI.Codeunit.al @@ -77,7 +77,7 @@ codeunit 7771 "Azure OpenAI" /// The endpoint to use for the model type. /// The deployment to use for the endpoint. /// The API key to use for the endpoint. - /// Endpoint would look like: https://resource-name.openai.azure.com/ + /// Endpoint would look like: https://resource-name.openai.azure.com/ /// Deployment would look like: gpt-35-turbo-16k /// [NonDebuggable] diff --git a/src/System Application/App/AI/src/Azure OpenAI/AzureOpenAIImpl.Codeunit.al b/src/System Application/App/AI/src/Azure OpenAI/AzureOpenAIImpl.Codeunit.al index d180ce6a84..281466eb1f 100644 --- a/src/System Application/App/AI/src/Azure OpenAI/AzureOpenAIImpl.Codeunit.al +++ b/src/System Application/App/AI/src/Azure OpenAI/AzureOpenAIImpl.Codeunit.al @@ -125,7 +125,7 @@ codeunit 7772 "Azure OpenAI Impl" end; else begin WithinGeo := ALCopilotFunctions.IsWithinGeo(); - // Privacy notice not set, we will not cross geo-boundries + // Privacy notice not set, we will not cross geo-boundries if not Silent then if not WithinGeo then begin CopilotNotAvailable.SetCopilotCapability(Capability); diff --git a/src/System Application/App/AI/src/Azure OpenAI/Chat Completion/AOAIChatCompletionParams.Codeunit.al b/src/System Application/App/AI/src/Azure OpenAI/Chat Completion/AOAIChatCompletionParams.Codeunit.al index 136f35041b..f2e05daf9e 100644 --- a/src/System Application/App/AI/src/Azure OpenAI/Chat Completion/AOAIChatCompletionParams.Codeunit.al +++ b/src/System Application/App/AI/src/Azure OpenAI/Chat Completion/AOAIChatCompletionParams.Codeunit.al @@ -5,7 +5,7 @@ namespace System.AI; /// -/// Represents the Chat Completion parameters used by the API. +/// Represents the Chat Completion parameters used by the API. /// See more details at https://aka.ms/AAlrz36. /// codeunit 7761 "AOAI Chat Completion Params" diff --git a/src/System Application/App/AI/src/Azure OpenAI/Text Completion/AOAITextCompletionParams.Codeunit.al b/src/System Application/App/AI/src/Azure OpenAI/Text Completion/AOAITextCompletionParams.Codeunit.al index ff1e07090f..1dc5c4b30b 100644 --- a/src/System Application/App/AI/src/Azure OpenAI/Text Completion/AOAITextCompletionParams.Codeunit.al +++ b/src/System Application/App/AI/src/Azure OpenAI/Text Completion/AOAITextCompletionParams.Codeunit.al @@ -5,7 +5,7 @@ namespace System.AI; /// -/// Represents the Completion parameters used by the API. +/// Represents the Completion parameters used by the API. /// See more details at https://aka.ms/AAlsi39. /// codeunit 7765 "AOAI Text Completion Params" diff --git a/src/System Application/App/AI/src/Copilot/CopilotCapabilityImpl.Codeunit.al b/src/System Application/App/AI/src/Copilot/CopilotCapabilityImpl.Codeunit.al index 255c62929e..60a8326c05 100644 --- a/src/System Application/App/AI/src/Copilot/CopilotCapabilityImpl.Codeunit.al +++ b/src/System Application/App/AI/src/Copilot/CopilotCapabilityImpl.Codeunit.al @@ -52,7 +52,7 @@ codeunit 7774 "Copilot Capability Impl" CopilotSettings.Capability := CopilotCapability; CopilotSettings."App Id" := CallerModuleInfo.Id(); CopilotSettings.Publisher := CopyStr(CallerModuleInfo.Publisher, 1, MaxStrLen(CopilotSettings.Publisher)); - CopilotSettings."Availability" := CopilotAvailability; + CopilotSettings.Availability := CopilotAvailability; CopilotSettings."Learn More Url" := LearnMoreUrl; CopilotSettings.Status := Enum::"Copilot Status"::Active; CopilotSettings.Insert(); @@ -73,10 +73,10 @@ codeunit 7774 "Copilot Capability Impl" CopilotSettings.ReadIsolation(IsolationLevel::ReadCommitted); CopilotSettings.Get(CopilotCapability, CallerModuleInfo.Id()); - if CopilotSettings."Availability" <> CopilotAvailability then + if CopilotSettings.Availability <> CopilotAvailability then CopilotSettings.Status := Enum::"Copilot Status"::Active; - CopilotSettings."Availability" := CopilotAvailability; + CopilotSettings.Availability := CopilotAvailability; CopilotSettings."Learn More Url" := LearnMoreUrl; CopilotSettings.Modify(true); Commit(); @@ -128,7 +128,7 @@ codeunit 7774 "Copilot Capability Impl" CopilotSettings: Record "Copilot Settings"; begin CopilotSettings.ReadIsolation(IsolationLevel::ReadCommitted); - CopilotSettings.SetLoadFields("Status"); + CopilotSettings.SetLoadFields(Status); if not CopilotSettings.Get(CopilotCapability, AppId) then exit(false); diff --git a/src/System Application/App/Advanced Settings/permissions/AdvancedSettingsObjects.PermissionSet.al b/src/System Application/App/Advanced Settings/permissions/AdvancedSettingsObjects.PermissionSet.al index a7d907e421..049e3c2fdf 100644 --- a/src/System Application/App/Advanced Settings/permissions/AdvancedSettingsObjects.PermissionSet.al +++ b/src/System Application/App/Advanced Settings/permissions/AdvancedSettingsObjects.PermissionSet.al @@ -10,5 +10,5 @@ permissionset 1817 "Advanced Settings - Objects" Access = Internal; Assignable = false; - Permissions = Page "Advanced Settings" = X; + Permissions = page "Advanced Settings" = X; } diff --git a/src/System Application/App/Advanced Settings/src/AdvancedSettings.Codeunit.al b/src/System Application/App/Advanced Settings/src/AdvancedSettings.Codeunit.al index 2ea386d9b2..3371867966 100644 --- a/src/System Application/App/Advanced Settings/src/AdvancedSettings.Codeunit.al +++ b/src/System Application/App/Advanced Settings/src/AdvancedSettings.Codeunit.al @@ -14,7 +14,7 @@ codeunit 9202 "Advanced Settings" /// Notifies that the Open General Setup Experience has been invoked. /// The Page ID of the page been invoked. - /// The flag which if set, would stop executing the OpenGeneralSetupExperience of the assisted setup guide. + /// The flag which if set, would stop executing the OpenGeneralSetupExperience of the assisted setup guide. [IntegrationEvent(false, false)] internal procedure OnBeforeOpenGeneralSetupExperience(var PageID: Integer; var Handled: Boolean) begin diff --git a/src/System Application/App/Advanced Settings/src/AdvancedSettingsImpl.Codeunit.al b/src/System Application/App/Advanced Settings/src/AdvancedSettingsImpl.Codeunit.al index 45c42afb38..c63b7bfa87 100644 --- a/src/System Application/App/Advanced Settings/src/AdvancedSettingsImpl.Codeunit.al +++ b/src/System Application/App/Advanced Settings/src/AdvancedSettingsImpl.Codeunit.al @@ -20,7 +20,7 @@ codeunit 1817 "Advanced Settings Impl." GeneralSetupID := Page::"Advanced Settings"; AdvancedSettings.OnBeforeOpenGeneralSetupExperience(GeneralSetupID, Handled); if not Handled then - PAGE.Run(GeneralSetupID); + Page.Run(GeneralSetupID); Handled := true; end; } \ No newline at end of file diff --git a/src/System Application/App/Auto Format/src/AutoFormat.Codeunit.al b/src/System Application/App/Auto Format/src/AutoFormat.Codeunit.al index e050e81de8..4554e2517d 100644 --- a/src/System Application/App/Auto Format/src/AutoFormat.Codeunit.al +++ b/src/System Application/App/Auto Format/src/AutoFormat.Codeunit.al @@ -24,7 +24,7 @@ codeunit 45 "Auto Format" /// /// /// A value that determines how data is formatted. - /// The values that are available are "0" and "11". + /// The values that are available are "0" and "11". /// Use "0" to ignore the value that AutoFormatExpr passes and use the standard format for decimals instead. /// Use "11" to apply a specific format in AutoFormatExpr without additional transformation. /// @@ -58,14 +58,14 @@ codeunit 45 "Auto Format" end; /// - /// Event that is called to resolve cases for AutoFormatTypes other that "0" and "11". + /// Event that is called to resolve cases for AutoFormatTypes other that "0" and "11". /// Subscribe to this event if you want to introduce new AutoFormatTypes. /// /// A value that determines how data is formatted. /// An expression that specifies how to format data. /// /// The resolved expression that defines data formatting. - /// For example '<Precision,4:4><Standard Format,2> suffix' that depending on your regional settings + /// For example '<Precision,4:4><Standard Format,2> suffix' that depending on your regional settings /// will format decimal into "-12345.6789 suffix" or "-12345,6789 suffix". /// /// A value that describes whether the data formatting expression is correct. diff --git a/src/System Application/App/Azure AD Graph/src/AzureADGraph.Codeunit.al b/src/System Application/App/Azure AD Graph/src/AzureADGraph.Codeunit.al index 21bd08e7d9..5f80796f4c 100644 --- a/src/System Application/App/Azure AD Graph/src/AzureADGraph.Codeunit.al +++ b/src/System Application/App/Azure AD Graph/src/AzureADGraph.Codeunit.al @@ -86,7 +86,7 @@ codeunit 9012 "Azure AD Graph" /// /// The user. /// The assigned plans for the user. - /// If the provided user is null, the output parameter holding the assigned plans remains unchanged. + /// If the provided user is null, the output parameter holding the assigned plans remains unchanged. [Scope('OnPrem')] [NonDebuggable] procedure GetUserAssignedPlans(UserInfo: DotNet UserInfo; var UserAssignedPlans: DotNet GenericList1) diff --git a/src/System Application/App/Azure AD Plan/permissions/AzureADPlanObjects.PermissionSet.al b/src/System Application/App/Azure AD Plan/permissions/AzureADPlanObjects.PermissionSet.al index d6b4df6ba5..699a659ff2 100644 --- a/src/System Application/App/Azure AD Plan/permissions/AzureADPlanObjects.PermissionSet.al +++ b/src/System Application/App/Azure AD Plan/permissions/AzureADPlanObjects.PermissionSet.al @@ -10,18 +10,18 @@ permissionset 774 "Azure AD Plan - Objects" Access = Internal; Assignable = false; - Permissions = Page "Custom Permission Set In Plan" = X, + Permissions = page "Custom Permission Set In Plan" = X, #if not CLEAN22 #pragma warning disable AL0432 #endif - Page "Default Permission Set In Plan" = X, + page "Default Permission Set In Plan" = X, #if not CLEAN22 #pragma warning restore AL0432 #endif - Page "Plan Configuration Card" = X, - Page "Plan Configuration List" = X, - Page "Plan Configurations Part" = X, - Page "User Plan Members FactBox" = X, - Page "User Plan Members" = X, - Page "User Plans FactBox" = X; + page "Plan Configuration Card" = X, + page "Plan Configuration List" = X, + page "Plan Configurations Part" = X, + page "User Plan Members FactBox" = X, + page "User Plan Members" = X, + page "User Plans FactBox" = X; } diff --git a/src/System Application/App/Azure AD Plan/permissions/AzureADPlanRead.PermissionSet.al b/src/System Application/App/Azure AD Plan/permissions/AzureADPlanRead.PermissionSet.al index afbd312da9..3e80a7634e 100644 --- a/src/System Application/App/Azure AD Plan/permissions/AzureADPlanRead.PermissionSet.al +++ b/src/System Application/App/Azure AD Plan/permissions/AzureADPlanRead.PermissionSet.al @@ -16,7 +16,7 @@ permissionset 9016 "Azure AD Plan - Read" IncludedPermissionSets = "Azure AD Plan - Objects", "Azure AD User - View"; - Permissions = tabledata Company = r, - tabledata User = r, - tabledata "Access Control" = r; + Permissions = tabledata "Access Control" = r, + tabledata Company = r, + tabledata User = r; } diff --git a/src/System Application/App/Azure AD Plan/src/AzureADPlan.Codeunit.al b/src/System Application/App/Azure AD Plan/src/AzureADPlan.Codeunit.al index 4826f9f056..38f4585b68 100644 --- a/src/System Application/App/Azure AD Plan/src/AzureADPlan.Codeunit.al +++ b/src/System Application/App/Azure AD Plan/src/AzureADPlan.Codeunit.al @@ -276,7 +276,7 @@ codeunit 9016 "Azure AD Plan" end; /// - /// Returns true if there are incompatible plans in the system. + /// Returns true if there are incompatible plans in the system. /// /// Returns true if there are incompatible plans in the system. [Scope('OnPrem')] diff --git a/src/System Application/App/Azure AD Plan/src/AzureADPlanImpl.Codeunit.al b/src/System Application/App/Azure AD Plan/src/AzureADPlanImpl.Codeunit.al index e0e01fd58c..10c8770882 100644 --- a/src/System Application/App/Azure AD Plan/src/AzureADPlanImpl.Codeunit.al +++ b/src/System Application/App/Azure AD Plan/src/AzureADPlanImpl.Codeunit.al @@ -17,11 +17,11 @@ codeunit 9018 "Azure AD Plan Impl." InherentEntitlements = X; InherentPermissions = X; - Permissions = TableData Company = r, - TableData Plan = rimd, - TableData "User Plan" = rimd, - TableData User = r, - TableData "User Personalization" = rm; + Permissions = tabledata Company = r, + tabledata Plan = rimd, + tabledata User = r, + tabledata "User Personalization" = rm, + tabledata "User Plan" = rimd; var UserLoginTimeTracker: Codeunit "User Login Time Tracker"; @@ -133,7 +133,7 @@ codeunit 9018 "Azure AD Plan Impl." TempDummyPlan: Record Plan temporary; GraphUserInfo: DotNet UserInfo; begin - if AzureADGraphUser.GetGraphUser(UserSecurityID, true, GraphUserInfo) then + if AzureADGraphUser.GetGraphUser(UserSecurityId, true, GraphUserInfo) then UpdateUserPlans(UserSecurityId, GraphUserInfo, AppendPermissionsOnNewPlan, RemovePermissionsOnDeletePlan) else if RemovePlansOnDeleteUser then @@ -426,7 +426,7 @@ codeunit 9018 "Azure AD Plan Impl." exit; repeat - TempNavUserPlan.COPY(NavUserPlan, false); + TempNavUserPlan.Copy(NavUserPlan, false); TempNavUserPlan.Insert(); until NavUserPlan.Next() = 0; @@ -466,7 +466,7 @@ codeunit 9018 "Azure AD Plan Impl." end; [NonDebuggable] - local procedure GetGraphUserPlans(var TempPlan: Record "Plan" temporary; var GraphUserInfo: DotNet UserInfo) + local procedure GetGraphUserPlans(var TempPlan: Record Plan temporary; var GraphUserInfo: DotNet UserInfo) var PlanIds: Codeunit "Plan Ids"; AssignedPlan: DotNet ServicePlanInfo; @@ -510,7 +510,7 @@ codeunit 9018 "Azure AD Plan Impl." // Check if the user is a member of the Device group if IsDeviceRole(GraphUserInfo) then begin // Only assign the device plan if the user doesn't have any other plans (except possibly Internal Admin or M365 Collaboration) - TempPlan.SetFilter("Plan ID", '<>%1&<>%2&<>%3', PlanIDs.GetGlobalAdminPlanId(), PlanIds.GetD365AdminPlanId(), PlanIDs.GetMicrosoft365PlanId()); + TempPlan.SetFilter("Plan ID", '<>%1&<>%2&<>%3', PlanIds.GetGlobalAdminPlanId(), PlanIds.GetD365AdminPlanId(), PlanIds.GetMicrosoft365PlanId()); if TempPlan.IsEmpty() then begin // Remove the Internal Admin and M365 Collaboration plans, if assigned @@ -539,7 +539,7 @@ codeunit 9018 "Azure AD Plan Impl." [NonDebuggable] local procedure IsInternalAdmin(var GraphUserInfo: DotNet UserInfo): Boolean var - PlanIds: Codeunit "Plan IDs"; + PlanIds: Codeunit "Plan Ids"; DirectoryRole: DotNet RoleInfo; RoleId: Guid; begin @@ -588,8 +588,8 @@ codeunit 9018 "Azure AD Plan Impl." [NonDebuggable] procedure IsBCServicePlan(ServicePlanId: Guid): Boolean var - Plan: Record "Plan"; - PlanIds: Codeunit "Plan IDs"; + Plan: Record Plan; + PlanIds: Codeunit "Plan Ids"; Skip: Boolean; IsPlanFound: Boolean; begin @@ -611,17 +611,17 @@ codeunit 9018 "Azure AD Plan Impl." [NonDebuggable] local procedure GetAzureUserPlanRoleCenterId(UserSecurityID: Guid): Integer var - TempPlan: Record "Plan" temporary; + TempPlan: Record Plan temporary; User: Record User; GraphUserInfo: DotNet UserInfo; begin if not User.Get(UserSecurityID) then begin - Session.LogMessage('0000DUD', StrSubstNo(UserNotInUserTableTxt, UserSecurityID()), Verbosity::Warning, DataClassification::EndUserPseudonymousIdentifiers, TelemetryScope::ExtensionPublisher, 'Category', UserSetupCategoryTxt); + Session.LogMessage('0000DUD', StrSubstNo(UserNotInUserTableTxt, UserSecurityId()), Verbosity::Warning, DataClassification::EndUserPseudonymousIdentifiers, TelemetryScope::ExtensionPublisher, 'Category', UserSetupCategoryTxt); exit(0); end; if not AzureADGraphUser.GetGraphUser(UserSecurityID, GraphUserInfo) then begin - Session.LogMessage('0000DUE', StrSubstNo(AzureGraphUserNotFoundTxt, UserSecurityID()), Verbosity::Warning, DataClassification::EndUserPseudonymousIdentifiers, TelemetryScope::ExtensionPublisher, 'Category', UserSetupCategoryTxt); + Session.LogMessage('0000DUE', StrSubstNo(AzureGraphUserNotFoundTxt, UserSecurityId()), Verbosity::Warning, DataClassification::EndUserPseudonymousIdentifiers, TelemetryScope::ExtensionPublisher, 'Category', UserSetupCategoryTxt); exit(0); end; @@ -634,7 +634,7 @@ codeunit 9018 "Azure AD Plan Impl." exit(0); end; - Session.LogMessage('0000DUC', StrSubstNo(AzurePlanRoleCenterFoundTxt, TempPlan."Role Center ID", UserSecurityID()), Verbosity::Normal, + Session.LogMessage('0000DUC', StrSubstNo(AzurePlanRoleCenterFoundTxt, TempPlan."Role Center ID", UserSecurityId()), Verbosity::Normal, DataClassification::EndUserPseudonymousIdentifiers, TelemetryScope::ExtensionPublisher, 'Category', UserSetupCategoryTxt); exit(TempPlan."Role Center ID"); @@ -721,7 +721,7 @@ codeunit 9018 "Azure AD Plan Impl." // Only remove SUPER if other permissions are granted (to avoid user lockout) if UserGroupsAdded and (not UserHadBeenSetupBefore) then begin if IsPlanConfigurationCustomized then begin - // For newly-created users clear the company in case they are logged in to a company they don't have permissions for. + // For newly-created users clear the company in case they are logged in to a company they don't have permissions for. // Clearing the company in user personalization will make platform pick the right company on next login. UserPersonalization.LockTable(); if UserPersonalization.Get(UserSecurityID) and (UserPersonalization.Company <> '') then begin @@ -743,15 +743,15 @@ codeunit 9018 "Azure AD Plan Impl." end; [NonDebuggable] - local procedure AddToTempPlan(ServicePlanId: Guid; ServicePlanName: Text; var TempPlan: Record "Plan" temporary) + local procedure AddToTempPlan(ServicePlanId: Guid; ServicePlanName: Text; var TempPlan: Record Plan temporary) var - Plan: Record "Plan"; + Plan: Record Plan; Handled: Boolean; begin - if TempPlan.GET(ServicePlanId) then + if TempPlan.Get(ServicePlanId) then exit; - if Plan.GET(ServicePlanId) then; + if Plan.Get(ServicePlanId) then; TempPlan.Init(); TempPlan."Plan ID" := ServicePlanId; diff --git a/src/System Application/App/Azure AD Plan/src/Plan Configuration/Custom Permissions/CustomPermissionSetInPlan.Page.al b/src/System Application/App/Azure AD Plan/src/Plan Configuration/Custom Permissions/CustomPermissionSetInPlan.Page.al index 530817a5f6..09ead47497 100644 --- a/src/System Application/App/Azure AD Plan/src/Plan Configuration/Custom Permissions/CustomPermissionSetInPlan.Page.al +++ b/src/System Application/App/Azure AD Plan/src/Plan Configuration/Custom Permissions/CustomPermissionSetInPlan.Page.al @@ -23,7 +23,7 @@ page 9058 "Custom Permission Set In Plan" layout { - area(content) + area(Content) { #if not CLEAN22 group("Assigned Permission Sets") @@ -37,7 +37,7 @@ page 9058 "Custom Permission Set In Plan" repeater(Group) { - field("Plan Id"; Rec."Plan Id") + field("Plan Id"; Rec."Plan ID") { ApplicationArea = All; Visible = false; @@ -76,7 +76,7 @@ page 9058 "Custom Permission Set In Plan" end; // Get the Scope and App ID for a matching Role ID - AggregatePermissionSet.SetRange("Role ID", Rec."Role ID"); + AggregatePermissionSet.SetRange(Rec."Role ID", Rec."Role ID"); AggregatePermissionSet.FindFirst(); if AggregatePermissionSet.Count > 1 then diff --git a/src/System Application/App/Azure AD Plan/src/Plan Configuration/Default Permssions/DefaultPermissionSetInPlan.Page.al b/src/System Application/App/Azure AD Plan/src/Plan Configuration/Default Permssions/DefaultPermissionSetInPlan.Page.al index f39ba413d5..faad3385be 100644 --- a/src/System Application/App/Azure AD Plan/src/Plan Configuration/Default Permssions/DefaultPermissionSetInPlan.Page.al +++ b/src/System Application/App/Azure AD Plan/src/Plan Configuration/Default Permssions/DefaultPermissionSetInPlan.Page.al @@ -29,7 +29,7 @@ page 9827 "Default Permission Set In Plan" layout { - area(content) + area(Content) { repeater(PermissionSet) { diff --git a/src/System Application/App/Azure AD Plan/src/Plan Configuration/Microsoft365License.Codeunit.al b/src/System Application/App/Azure AD Plan/src/Plan Configuration/Microsoft365License.Codeunit.al index 5513cd0c5c..01efe156e2 100644 --- a/src/System Application/App/Azure AD Plan/src/Plan Configuration/Microsoft365License.Codeunit.al +++ b/src/System Application/App/Azure AD Plan/src/Plan Configuration/Microsoft365License.Codeunit.al @@ -13,10 +13,10 @@ codeunit 9085 "Microsoft 365 License" InherentEntitlements = X; InherentPermissions = X; - /// + /// /// Assign D365 Read Permission. /// - /// Show notification about license information regarding users in BC. + /// Show notification about license information regarding users in BC. procedure AssignMicrosoft365ReadPermission(ShowNotification: Boolean) begin Microsoft365LicenseImpl.AssignMicrosoft365ReadPermission(ShowNotification); diff --git a/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationCard.Page.al b/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationCard.Page.al index 316cef9bbb..c9cb15ff7b 100644 --- a/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationCard.Page.al +++ b/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationCard.Page.al @@ -24,7 +24,7 @@ page 9069 "Plan Configuration Card" layout { - area(content) + area(Content) { grid(GeneralGrid) { diff --git a/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationImpl.Codeunit.al b/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationImpl.Codeunit.al index 60911e59ee..6348f667e1 100644 --- a/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationImpl.Codeunit.al +++ b/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationImpl.Codeunit.al @@ -115,7 +115,7 @@ codeunit 9822 "Plan Configuration Impl." exit; repeat - if AccessControl.Get(UserSecurityID, CustomPermissionSetInPlan."Role ID", CustomPermissionSetInPlan."Company Name", CustomPermissionSetInPlan.Scope, CustomPermissionSetInPlan."App ID") then + if AccessControl.Get(UserSecurityId, CustomPermissionSetInPlan."Role ID", CustomPermissionSetInPlan."Company Name", CustomPermissionSetInPlan.Scope, CustomPermissionSetInPlan."App ID") then #if not CLEAN22 #pragma warning disable AA0013 begin @@ -210,7 +210,7 @@ codeunit 9822 "Plan Configuration Impl." exit; repeat - AccessControl.SetRange("User Security ID", UserSecurityID); + AccessControl.SetRange("User Security ID", UserSecurityId); AccessControl.SetRange("Role ID", DefaultPermissionSetInPlan."Role ID"); AccessControl.SetRange(Scope, DefaultPermissionSetInPlan.Scope); AccessControl.SetRange("App ID", DefaultPermissionSetInPlan."App ID"); @@ -439,7 +439,7 @@ codeunit 9822 "Plan Configuration Impl." AccessControl: Record "Access Control"; NullGuid: Guid; begin - AccessControl.SetRange("User Security ID", UserSecurityID); + AccessControl.SetRange("User Security ID", UserSecurityId); AccessControl.SetRange("Role ID", RoleId); AccessControl.SetRange("Company Name", Company); AccessControl.SetRange(Scope, Scope); @@ -456,7 +456,7 @@ codeunit 9822 "Plan Configuration Impl." if AccessControl.IsEmpty() then begin AccessControl.Init(); - AccessControl."User Security ID" := UserSecurityID; + AccessControl."User Security ID" := UserSecurityId; AccessControl."Role ID" := RoleId; AccessControl."Company Name" := Company; AccessControl.Scope := Scope; diff --git a/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationList.Page.al b/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationList.Page.al index 369ea3dc70..60f726a693 100644 --- a/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationList.Page.al +++ b/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationList.Page.al @@ -27,7 +27,7 @@ page 9061 "Plan Configuration List" layout { - area(content) + area(Content) { repeater(Group) { @@ -104,7 +104,7 @@ page 9061 "Plan Configuration List" ApplicationArea = All; Caption = 'Configure'; Image = Setup; - RunObject = Page "Plan Configuration Card"; + RunObject = page "Plan Configuration Card"; RunPageLink = "Plan ID" = field("Plan ID"); Scope = Repeater; ToolTip = 'Customize license permissions.'; diff --git a/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationsPart.Page.al b/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationsPart.Page.al index 8a3d84713c..bc84614972 100644 --- a/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationsPart.Page.al +++ b/src/System Application/App/Azure AD Plan/src/Plan Configuration/PlanConfigurationsPart.Page.al @@ -14,13 +14,13 @@ page 9065 "Plan Configurations Part" Editable = false; PageType = ListPart; SourceTable = "Plan Configuration"; - CardPageID = "Plan Configuration Card"; + CardPageId = "Plan Configuration Card"; Permissions = tabledata "Plan Configuration" = r; Extensible = false; layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/App/Azure AD Plan/src/Plan.Query.al b/src/System Application/App/Azure AD Plan/src/Plan.Query.al index b7e838e73c..cebc45f300 100644 --- a/src/System Application/App/Azure AD Plan/src/Plan.Query.al +++ b/src/System Application/App/Azure AD Plan/src/Plan.Query.al @@ -26,7 +26,7 @@ query 775 Plan column(Plan_ID; "Plan ID") { } - column(Plan_Name; "Name") + column(Plan_Name; Name) { } column(Role_Center_ID; "Role Center ID") diff --git a/src/System Application/App/Azure AD Plan/src/PlanIds.Codeunit.al b/src/System Application/App/Azure AD Plan/src/PlanIds.Codeunit.al index 745fe4825a..f43ac35ac9 100644 --- a/src/System Application/App/Azure AD Plan/src/PlanIds.Codeunit.al +++ b/src/System Application/App/Azure AD Plan/src/PlanIds.Codeunit.al @@ -14,10 +14,6 @@ codeunit 9027 "Plan Ids" InherentEntitlements = X; InherentPermissions = X; - trigger OnRun() - begin - end; - var Microsoft365PlanGUIDTxt: Label '{57ff2da0-773e-42df-b2af-ffb7a2317929}', Locked = true; TeamMemberPlanGUIDTxt: Label '{d9a6391b-8970-4976-bd94-5f205007c8d8}', Locked = true; diff --git a/src/System Application/App/Azure AD Plan/src/PlanInstaller.Codeunit.al b/src/System Application/App/Azure AD Plan/src/PlanInstaller.Codeunit.al index fa45197dc6..c4cd49d33f 100644 --- a/src/System Application/App/Azure AD Plan/src/PlanInstaller.Codeunit.al +++ b/src/System Application/App/Azure AD Plan/src/PlanInstaller.Codeunit.al @@ -15,7 +15,7 @@ codeunit 9056 "Plan Installer" Subtype = Install; InherentEntitlements = X; InherentPermissions = X; - Permissions = tabledata "Plan" = ri; + Permissions = tabledata Plan = ri; trigger OnInstallAppPerDatabase() var diff --git a/src/System Application/App/Azure AD Plan/src/PlanUpgrade.Codeunit.al b/src/System Application/App/Azure AD Plan/src/PlanUpgrade.Codeunit.al index f43e7919a1..2cf8e96176 100644 --- a/src/System Application/App/Azure AD Plan/src/PlanUpgrade.Codeunit.al +++ b/src/System Application/App/Azure AD Plan/src/PlanUpgrade.Codeunit.al @@ -37,7 +37,7 @@ codeunit 9057 "Plan Upgrade" [NonDebuggable] local procedure UpdateSubscriptionPlan() var - Plan: Record "Plan"; + Plan: Record Plan; UpgradeTag: Codeunit "Upgrade Tag"; PlanUpgradeTag: Codeunit "Plan Upgrade Tag"; PlanIds: Codeunit "Plan Ids"; @@ -52,7 +52,7 @@ codeunit 9057 "Plan Upgrade" PlanName := 'Dynamics 365 Business Central Device - Embedded'; RoleCenterId := 9022; // PAGE::"Business Manager Role Center" - if Plan.get(PlanId) then + if Plan.Get(PlanId) then exit; CreatePlan(PlanId, PlanName, RoleCenterId); @@ -132,7 +132,7 @@ codeunit 9057 "Plan Upgrade" [NonDebuggable] local procedure AddPremiumPartnerSandbox() var - Plan: Record "Plan"; + Plan: Record Plan; UpgradeTag: Codeunit "Upgrade Tag"; PlanUpgradeTag: Codeunit "Plan Upgrade Tag"; PlanIds: Codeunit "Plan Ids"; @@ -158,7 +158,7 @@ codeunit 9057 "Plan Upgrade" [NonDebuggable] local procedure AddEssentialAttach() var - Plan: Record "Plan"; + Plan: Record Plan; UpgradeTag: Codeunit "Upgrade Tag"; PlanUpgradeTag: Codeunit "Plan Upgrade Tag"; PlanIds: Codeunit "Plan Ids"; @@ -184,7 +184,7 @@ codeunit 9057 "Plan Upgrade" [NonDebuggable] local procedure AddMicrosoft365() var - Plan: Record "Plan"; + Plan: Record Plan; UpgradeTag: Codeunit "Upgrade Tag"; PlanUpgradeTag: Codeunit "Plan Upgrade Tag"; PlanIds: Codeunit "Plan Ids"; @@ -210,7 +210,7 @@ codeunit 9057 "Plan Upgrade" [NonDebuggable] local procedure AddD365Admin() var - Plan: Record "Plan"; + Plan: Record Plan; UpgradeTag: Codeunit "Upgrade Tag"; PlanUpgradeTag: Codeunit "Plan Upgrade Tag"; PlanIds: Codeunit "Plan Ids"; @@ -248,18 +248,18 @@ codeunit 9057 "Plan Upgrade" end; [NonDebuggable] - local procedure DeletePlan(PlanId: guid) + local procedure DeletePlan(PlanId: Guid) var - Plan: Record "Plan"; + Plan: Record Plan; begin if Plan.Get(PlanId) then Plan.Delete(); end; [NonDebuggable] - local procedure RenameOrCreatePlan(PlanId: guid; NewName: Text) + local procedure RenameOrCreatePlan(PlanId: Guid; NewName: Text) var - Plan: Record "Plan"; + Plan: Record Plan; begin if Plan.Get(PlanId) then begin Plan.Name := CopyStr(NewName, 1, 50); diff --git a/src/System Application/App/Azure AD Plan/src/PlanUpgradeTag.Codeunit.al b/src/System Application/App/Azure AD Plan/src/PlanUpgradeTag.Codeunit.al index 43a6b7305a..5acaac90fd 100644 --- a/src/System Application/App/Azure AD Plan/src/PlanUpgradeTag.Codeunit.al +++ b/src/System Application/App/Azure AD Plan/src/PlanUpgradeTag.Codeunit.al @@ -16,9 +16,6 @@ codeunit 9058 "Plan Upgrade Tag" InherentEntitlements = X; InherentPermissions = X; - trigger OnRun() - begin - end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade Tag", OnGetPerDatabaseUpgradeTags, '', false, false)] local procedure RegisterPerDatabaseTags(var PerDatabaseUpgradeTags: List of [Code[250]]) diff --git a/src/System Application/App/Azure AD Plan/src/Plans.Page.al b/src/System Application/App/Azure AD Plan/src/Plans.Page.al index 652d6a9c4f..00ad255696 100644 --- a/src/System Application/App/Azure AD Plan/src/Plans.Page.al +++ b/src/System Application/App/Azure AD Plan/src/Plans.Page.al @@ -24,7 +24,7 @@ page 9824 Plans layout { - area(content) + area(Content) { repeater(Group) { @@ -35,7 +35,7 @@ page 9824 Plans } } } - area(factboxes) + area(FactBoxes) { part("Users in the Plan"; "User Plan Members FactBox") { diff --git a/src/System Application/App/Azure AD Plan/src/PlansFactBox.Page.al b/src/System Application/App/Azure AD Plan/src/PlansFactBox.Page.al index 68dcdeff13..8fc013ed04 100644 --- a/src/System Application/App/Azure AD Plan/src/PlansFactBox.Page.al +++ b/src/System Application/App/Azure AD Plan/src/PlansFactBox.Page.al @@ -23,7 +23,7 @@ page 9825 "Plans FactBox" layout { - area(content) + area(Content) { repeater(Group) { @@ -36,8 +36,5 @@ page 9825 "Plans FactBox" } } - actions - { - } } diff --git a/src/System Application/App/Azure AD Plan/src/User Details/PlanUserDetails.Codeunit.al b/src/System Application/App/Azure AD Plan/src/User Details/PlanUserDetails.Codeunit.al index 107b3a2bff..ae07d18824 100644 --- a/src/System Application/App/Azure AD Plan/src/User Details/PlanUserDetails.Codeunit.al +++ b/src/System Application/App/Azure AD Plan/src/User Details/PlanUserDetails.Codeunit.al @@ -29,9 +29,9 @@ codeunit 776 "Plan User Details" end; UserDetails."User Plans" := CopyStr(UserPlansTextBuilder.ToText().TrimEnd(' ; '), 1, MaxStrLen(UserDetails."User Plans")); - UserDetails."Is Delegated" := AzureADPlan.IsPlanAssignedToUser(PlanIds.GetDelegatedAdminPlanId(), UserSecID) or - AzureADPlan.IsPlanAssignedToUser(PlanIds.GetHelpDeskPlanId(), UserSecID) or - AzureADPlan.IsPlanAssignedToUser(PlanIds.GetD365AdminPartnerPlanId(), UserSecID); + UserDetails."Is Delegated" := AzureADPlan.IsPlanAssignedToUser(PlanIds.GetDelegatedAdminPlanId(), UserSecId) or + AzureADPlan.IsPlanAssignedToUser(PlanIds.GetHelpDeskPlanId(), UserSecId) or + AzureADPlan.IsPlanAssignedToUser(PlanIds.GetD365AdminPartnerPlanId(), UserSecId); UserDetails."Has M365 Plan" := AzureADPlan.IsPlanAssignedToUser(PlanIds.GetMicrosoft365PlanId(), UserSecId); diff --git a/src/System Application/App/Azure AD Plan/src/UserPlanMembers.Page.al b/src/System Application/App/Azure AD Plan/src/UserPlanMembers.Page.al index f158e109c7..a5236c907e 100644 --- a/src/System Application/App/Azure AD Plan/src/UserPlanMembers.Page.al +++ b/src/System Application/App/Azure AD Plan/src/UserPlanMembers.Page.al @@ -17,11 +17,11 @@ page 9822 "User Plan Members" PageType = List; SourceTable = "User Plan"; ContextSensitiveHelpPage = 'ui-how-users-permissions'; - permissions = tabledata "User Plan" = r; + Permissions = tabledata "User Plan" = r; layout { - area(content) + area(Content) { repeater(Group) { @@ -44,8 +44,5 @@ page 9822 "User Plan Members" } } - actions - { - } } diff --git a/src/System Application/App/Azure AD Plan/src/UserPlanMembersFactBox.Page.al b/src/System Application/App/Azure AD Plan/src/UserPlanMembersFactBox.Page.al index 8f186f457a..fccdb527b1 100644 --- a/src/System Application/App/Azure AD Plan/src/UserPlanMembersFactBox.Page.al +++ b/src/System Application/App/Azure AD Plan/src/UserPlanMembersFactBox.Page.al @@ -19,7 +19,7 @@ page 9823 "User Plan Members FactBox" layout { - area(content) + area(Content) { repeater(Group) { @@ -37,7 +37,4 @@ page 9823 "User Plan Members FactBox" } } - actions - { - } } \ No newline at end of file diff --git a/src/System Application/App/Azure AD Plan/src/UserPlansFactBox.Page.al b/src/System Application/App/Azure AD Plan/src/UserPlansFactBox.Page.al index 764be31c18..63d65abd2f 100644 --- a/src/System Application/App/Azure AD Plan/src/UserPlansFactBox.Page.al +++ b/src/System Application/App/Azure AD Plan/src/UserPlansFactBox.Page.al @@ -23,7 +23,7 @@ page 9826 "User Plans FactBox" layout { - area(content) + area(Content) { repeater(Group) { @@ -37,8 +37,5 @@ page 9826 "User Plans FactBox" } } - actions - { - } } diff --git a/src/System Application/App/Azure AD User Management/permissions/AADUserManagementObjects.PermissionSet.al b/src/System Application/App/Azure AD User Management/permissions/AADUserManagementObjects.PermissionSet.al index 327defa13e..d7a96f1090 100644 --- a/src/System Application/App/Azure AD User Management/permissions/AADUserManagementObjects.PermissionSet.al +++ b/src/System Application/App/Azure AD User Management/permissions/AADUserManagementObjects.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 9010 "AAD User Management - Objects" Access = Internal; Assignable = false; - Permissions = Page "Azure AD User Update Wizard" = X, - Page "Azure AD User Updates Part" = X; + Permissions = page "Azure AD User Updates Part" = X, +page "Azure AD User Update Wizard" = X; } diff --git a/src/System Application/App/Azure AD User Management/src/AzureADUserManagement.Codeunit.al b/src/System Application/App/Azure AD User Management/src/AzureADUserManagement.Codeunit.al index ea90c02545..0eb594c3bd 100644 --- a/src/System Application/App/Azure AD User Management/src/AzureADUserManagement.Codeunit.al +++ b/src/System Application/App/Azure AD User Management/src/AzureADUserManagement.Codeunit.al @@ -36,7 +36,7 @@ codeunit 9010 "Azure AD User Management" AzureADUserMgmtImpl.CreateNewUsersFromAzureAD(); end; - /// + /// /// Creates a new user from a Microsoft Entra user. /// /// The Microsoft Entra user. @@ -47,8 +47,8 @@ codeunit 9010 "Azure AD User Management" AzureADUserMgmtImpl.CreateNewUserFromGraphUser(GraphUserInfo); end; - /// - /// Synchronizes a user with the Microsoft Entra user corresponding to the authentication + /// + /// Synchronizes a user with the Microsoft Entra user corresponding to the authentication /// email that is passed as a parameter. If the user record does not exist, it gets created. /// /// The user's authentication email. @@ -59,7 +59,7 @@ codeunit 9010 "Azure AD User Management" AzureADUserMgmtImpl.SynchronizeLicensedUserFromDirectory(AuthenticationEmail); end; - /// + /// /// Synchronizes all the users from the database with the ones from Microsoft Entra. /// Microsoft Entra users that do not exist in the database are created. /// @@ -69,7 +69,7 @@ codeunit 9010 "Azure AD User Management" AzureADUserMgmtImpl.SynchronizeAllLicensedUsersFromDirectory(); end; - /// + /// /// Checks if the user is a tenant admin. /// /// True if the user is a tenant admin; otherwise false. @@ -90,7 +90,7 @@ codeunit 9010 "Azure AD User Management" exit(AzureADUserMgmtImpl.ArePermissionsCustomized(UserSecurityId)); end; - /// + /// /// Checks if the user is a delegated user. /// /// True if the user is a delegated user; otherwise false. diff --git a/src/System Application/App/Azure AD User Management/src/AzureADUserMgmtImpl.Codeunit.al b/src/System Application/App/Azure AD User Management/src/AzureADUserMgmtImpl.Codeunit.al index 77dc9429ce..d486e74914 100644 --- a/src/System Application/App/Azure AD User Management/src/AzureADUserMgmtImpl.Codeunit.al +++ b/src/System Application/App/Azure AD User Management/src/AzureADUserMgmtImpl.Codeunit.al @@ -19,13 +19,13 @@ codeunit 9017 "Azure AD User Mgmt. Impl." InherentEntitlements = X; InherentPermissions = X; - Permissions = TableData User = rm, - TableData "User Property" = r, - tabledata "User Personalization" = r; + Permissions = tabledata User = rm, + tabledata "User Personalization" = r, + tabledata "User Property" = r; trigger OnRun() begin - if ClientTypeManagement.GetCurrentClientType() = CLIENTTYPE::Background then + if ClientTypeManagement.GetCurrentClientType() = ClientType::Background then exit; Run(UserSecurityId()); @@ -87,7 +87,7 @@ codeunit 9017 "Azure AD User Mgmt. Impl." var User: Record User; GraphUserInfo: DotNet UserInfo; - GraphUserInfoPage: Dotnet UserInfoPage; + GraphUserInfoPage: DotNet UserInfoPage; WindowDialog: Dialog; i: Integer; UsersPerPage: Integer; diff --git a/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserSyncImpl.Codeunit.al b/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserSyncImpl.Codeunit.al index 57b84e0e71..1073d44e93 100644 --- a/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserSyncImpl.Codeunit.al +++ b/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserSyncImpl.Codeunit.al @@ -17,7 +17,7 @@ codeunit 9029 "Azure AD User Sync Impl." InherentEntitlements = X; InherentPermissions = X; - Permissions = TableData User = rm, + Permissions = tabledata User = rm, tabledata "User Personalization" = r; var @@ -67,7 +67,7 @@ codeunit 9029 "Azure AD User Sync Impl." var PlanIds: Codeunit "Plan Ids"; GraphUserInfo: DotNet UserInfo; - GraphUserInfoPage: Dotnet UserInfoPage; + GraphUserInfoPage: DotNet UserInfoPage; AssignedPlansList: DotNet StringArray; AllPlanIds: List of [Guid]; UsersPerPage: Integer; @@ -109,7 +109,7 @@ codeunit 9029 "Azure AD User Sync Impl." [NonDebuggable] local procedure FetchUpdatesFromEnvironmentDirectoryGroup(var AzureADUserUpdate: Record "Azure AD User Update Buffer"; OfficeUsersInBC: List of [Guid]) var - GraphUserInfoPage: Dotnet UserInfoPage; + GraphUserInfoPage: DotNet UserInfoPage; GraphUserInfo: DotNet UserInfo; CurrUserPlanIDs: List of [Guid]; begin diff --git a/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdateBuffer.Table.al b/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdateBuffer.Table.al index bdee15784a..50de94abc4 100644 --- a/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdateBuffer.Table.al +++ b/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdateBuffer.Table.al @@ -106,7 +106,7 @@ table 9010 "Azure AD User Update Buffer" Editable = false; DataClassification = SystemMetadata; } - field(8; "Permission Change Action"; enum "Azure AD Permission Change Action") + field(8; "Permission Change Action"; Enum "Azure AD Permission Change Action") { Caption = 'Handle permission change'; DataClassification = SystemMetadata; diff --git a/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdateWizard.Page.al b/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdateWizard.Page.al index b7730af92e..619c2c5fde 100644 --- a/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdateWizard.Page.al +++ b/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdateWizard.Page.al @@ -107,20 +107,20 @@ page 9515 "Azure AD User Update Wizard" { field(DisplayName; Rec."Display Name") { - Tooltip = 'Specifies the display name'; + ToolTip = 'Specifies the display name'; ApplicationArea = All; } field(CurrentLicense; Rec."Current Value") { Caption = 'Current plan'; - Tooltip = 'Specifies the current of user entity'; + ToolTip = 'Specifies the current of user entity'; Editable = false; ApplicationArea = All; } field(NewLicense; Rec."New Value") { Caption = 'New plan'; - Tooltip = 'Specifies the new value of user entity'; + ToolTip = 'Specifies the new value of user entity'; Editable = false; ApplicationArea = All; } @@ -364,7 +364,7 @@ page 9515 "Azure AD User Update Wizard" UserPermissions: Codeunit "User Permissions"; begin if not UserPermissions.CanManageUsersOnTenant(UserSecurityId()) then - error(CannotUpdateUsersFromOfficeErr); + Error(CannotUpdateUsersFromOfficeErr); MakeAllGroupsInvisible(); WelcomeVisible := true; diff --git a/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdatesPart.Page.al b/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdatesPart.Page.al index d1fa7321ff..bb81db41f4 100644 --- a/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdatesPart.Page.al +++ b/src/System Application/App/Azure AD User Management/src/User sync/AzureADUserUpdatesPart.Page.al @@ -22,7 +22,7 @@ page 9516 "Azure AD User Updates Part" layout { - area(content) + area(Content) { repeater(Updates) { @@ -42,7 +42,7 @@ page 9516 "Azure AD User Updates Part" ToolTip = 'Specifies the type of update.'; ApplicationArea = All; } - field("Information"; Rec."Update Entity") + field(Information; Rec."Update Entity") { ToolTip = 'Specifies the user information that will be updated. Updates related to Contact Email, Full Name and Language ID are optional and may be removed.'; ApplicationArea = All; @@ -65,7 +65,7 @@ page 9516 "Azure AD User Updates Part" { area(Processing) { - action("Remove") + action(Remove) { ApplicationArea = All; Caption = 'Remove'; diff --git a/src/System Application/App/Azure AD User/src/AzureADGraphUser.Codeunit.al b/src/System Application/App/Azure AD User/src/AzureADGraphUser.Codeunit.al index 446c3e4ffd..6ca7f5c0b5 100644 --- a/src/System Application/App/Azure AD User/src/AzureADGraphUser.Codeunit.al +++ b/src/System Application/App/Azure AD User/src/AzureADGraphUser.Codeunit.al @@ -17,15 +17,12 @@ codeunit 9024 "Azure AD Graph User" InherentEntitlements = X; InherentPermissions = X; - trigger OnRun() - begin - end; var [NonDebuggable] AzureADGraphUserImpl: Codeunit "Azure AD Graph User Impl."; - /// + /// /// Gets the Microsoft Entra user with the given security ID. /// /// The user's security ID. @@ -38,7 +35,7 @@ codeunit 9024 "Azure AD Graph User" AzureADGraphUserImpl.GetGraphUser(UserSecurityId, false, User); end; - /// + /// /// Gets the Microsoft Entra user with the given security ID. /// /// The user's security ID. @@ -66,7 +63,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.GetObjectId(UserSecurityId)); end; - /// + /// /// Gets the user's authentication object ID. /// /// The user's security ID. @@ -79,7 +76,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.GetUserAuthenticationObjectId(UserSecurityId)); end; - /// + /// /// Tries to get the user's authentication object ID. /// /// The user's security ID. @@ -92,7 +89,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.TryGetUserAuthenticationObjectId(UserSecurityId, AuthenticationObjectId)); end; - /// + /// /// Gets the user from a given Authentication object ID. /// /// The user's Authentication object ID. @@ -105,7 +102,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.GetUser(AuthenticationObjectID, User)); end; - /// + /// /// Returns whether the current user is Delegated Admin. /// /// True if the current user is Delegated Admin, false otherwise. @@ -115,7 +112,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.IsUserDelegatedAdmin()); end; - /// + /// /// Returns whether the current user is Delegated Helpdesk. /// /// True if the current user is Delegated Helpdesk, false otherwise. @@ -125,7 +122,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.IsUserDelegatedHelpdesk()); end; - /// + /// /// Updates the user record with information from Microsoft Entra. /// /// The user record to update. @@ -138,7 +135,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.UpdateUserFromAzureGraph(User, AzureADUser)); end; - /// + /// /// Gets the authentication email of the provided Graph user. /// /// Authentication email corresponds to userPrincipalName property on the Graph user. @@ -151,7 +148,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.GetAuthenticationEmail(GraphUserInfo)); end; - /// + /// /// Gets the display name of the provided Graph user. /// /// Display name corresponds to displayName property on the Graph user. @@ -164,7 +161,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.GetDisplayName(GraphUserInfo)); end; - /// + /// /// Gets the contact email of the provided Graph user. /// /// Contact email corresponds to Mail property on the Graph user. @@ -177,7 +174,7 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.GetContactEmail(GraphUserInfo)); end; - /// + /// /// Gets the full name of the provided Graph user. /// /// Full name is composed from the combination of givenName and surname properties on the Graph user. @@ -190,11 +187,11 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.GetFullName(GraphUserInfo)); end; - /// + /// /// Gets the preferred language ID of the provided Graph user. /// /// - /// Preferred language ID is derived from preferredLanguage property on the Graph user. + /// Preferred language ID is derived from preferredLanguage property on the Graph user. /// If the preferred language is not set or it is set to a language that is not supported in Business Central, the function returns 0. /// /// The Microsoft Entra user. @@ -206,9 +203,9 @@ codeunit 9024 "Azure AD Graph User" exit(AzureADGraphUserImpl.GetPreferredLanguageID(GraphUserInfo)); end; - /// + /// /// Ensures that an email address specified for authorization is not already in use by another database user. - /// If it is, all the database users with this authentication email address are updated and their email + /// If it is, all the database users with this authentication email address are updated and their email /// addresses are updated the ones that are specified in Microsoft Entra. /// /// The authentication email address. diff --git a/src/System Application/App/Azure AD User/src/AzureADGraphUserImpl.Codeunit.al b/src/System Application/App/Azure AD User/src/AzureADGraphUserImpl.Codeunit.al index 250a557892..70aeecc5c7 100644 --- a/src/System Application/App/Azure AD User/src/AzureADGraphUserImpl.Codeunit.al +++ b/src/System Application/App/Azure AD User/src/AzureADGraphUserImpl.Codeunit.al @@ -17,9 +17,6 @@ codeunit 9011 "Azure AD Graph User Impl." Permissions = tabledata User = rm, tabledata "User Property" = r; - trigger OnRun() - begin - end; var AzureADGraph: Codeunit "Azure AD Graph"; @@ -74,7 +71,7 @@ codeunit 9011 "Azure AD Graph User Impl." var UserProperty: Record "User Property"; begin - UserProperty.SetRange("Authentication Object ID", AuthenticationObjectId); + UserProperty.SetRange("Authentication Object ID", AuthenticationObjectID); if UserProperty.FindFirst() then exit(User.Get(UserProperty."User Security ID")); end; diff --git a/src/System Application/App/Azure Blob Services API/src/ABSBlobClient.Codeunit.al b/src/System Application/App/Azure Blob Services API/src/ABSBlobClient.Codeunit.al index 6159d1b29e..b6bbbd0c8e 100644 --- a/src/System Application/App/Azure Blob Services API/src/ABSBlobClient.Codeunit.al +++ b/src/System Application/App/Azure Blob Services API/src/ABSBlobClient.Codeunit.al @@ -43,7 +43,7 @@ codeunit 9053 "ABS Blob Client" /// /// The base URL to use when constructing the final URI. - /// If not set, the base URL is https://%1.blob.core.windows.net where %1 is the storage account name. + /// If not set, the base URL is https://%1.blob.core.windows.net where %1 is the storage account name. /// /// Use %1 as a placeholder for the storage account name. /// A valid URL string @@ -55,7 +55,7 @@ codeunit 9053 "ABS Blob Client" /// /// Lists the blobs in a specific container. /// see: https://go.microsoft.com/fwlink/?linkid=2210588 - /// + /// /// Collection of the result (temporary record). /// An operation response object procedure ListBlobs(var ABSContainerContent: Record "ABS Container Content"): Codeunit "ABS Operation Response" @@ -68,7 +68,7 @@ codeunit 9053 "ABS Blob Client" /// /// Lists the blobs in a specific container. /// see: https://go.microsoft.com/fwlink/?linkid=2210588 - /// + /// /// Collection of the result (temporary record). /// Optional parameters to pass. /// An operation response object @@ -80,7 +80,7 @@ codeunit 9053 "ABS Blob Client" /// /// Lists the blobs in a specific container. /// see: https://go.microsoft.com/fwlink/?linkid=2210588 - /// + /// /// Collection of the result (BlobList of [Text, XmlNode]). /// The key in the dictionary is the full blob path and the value is the complete blob xmlnode from the response /// An operation response object @@ -94,7 +94,7 @@ codeunit 9053 "ABS Blob Client" /// /// Lists the blobs in a specific container. /// see: https://go.microsoft.com/fwlink/?linkid=2210588 - /// + /// /// Collection of the result (BlobList of [Text, XmlNode]). /// The key in the dictionary is the full blob path and the value is the complete blob xmlnode from the response /// Optional parameters to pass. @@ -512,7 +512,7 @@ codeunit 9053 "ABS Blob Client" /// The Set Blob Expiry operation sets an expiry time on an existing blob. This operation is only allowed on Hierarchical Namespace enabled accounts /// Sets the expiry time relative to the file creation time, x-ms-expiry-time must be specified as the number of milliseconds to elapse from creation time. /// see: https://go.microsoft.com/fwlink/?linkid=2210389 - /// + /// /// The name of the blob. /// Number if miliseconds (Integer) until the expiration. /// An operation response object @@ -526,7 +526,7 @@ codeunit 9053 "ABS Blob Client" /// Sets the expiry relative to the current time, x-ms-expiry-time must be specified as the number of milliseconds to elapse from now. /// see: https://go.microsoft.com/fwlink/?linkid=2210389 /// - /// The name of the blob. + /// The name of the blob. /// Number if miliseconds (Integer) until the expiration. /// An operation response object procedure SetBlobExpiryRelativeToNow(BlobName: Text; ExpiryTime: Integer): Codeunit "ABS Operation Response" @@ -539,7 +539,7 @@ codeunit 9053 "ABS Blob Client" /// Sets the expiry to an absolute DateTime /// see: https://go.microsoft.com/fwlink/?linkid=2210389 /// - /// The name of the blob. + /// The name of the blob. /// Absolute DateTime for the expiration. /// An operation response object procedure SetBlobExpiryAbsolute(BlobName: Text; ExpiryTime: DateTime): Codeunit "ABS Operation Response" @@ -551,7 +551,7 @@ codeunit 9053 "ABS Blob Client" /// The Set Blob Expiry operation sets an expiry time on an existing blob. This operation is only allowed on Hierarchical Namespace enabled accounts /// Sets the file to never expire or removes the current expiry time, x-ms-expiry-time must not to be specified. /// see: https://go.microsoft.com/fwlink/?linkid=2210389 - /// + /// procedure SetBlobExpiryNever(BlobName: Text): Codeunit "ABS Operation Response" begin exit(ABSClientImpl.SetBlobExpiryNever(BlobName)); @@ -560,9 +560,9 @@ codeunit 9053 "ABS Blob Client" /// /// The Set Blob Tags operation sets user-defined tags for the specified blob as one or more key-value pairs. /// see: https://go.microsoft.com/fwlink/?linkid=2211407 - /// - /// The name of the blob. - /// A Dictionary of [Text, Text] which contains the Tags you want to set. + /// + /// The name of the blob. + /// A Dictionary of [Text, Text] which contains the Tags you want to set. /// An operation response object procedure SetBlobTags(BlobName: Text; Tags: Dictionary of [Text, Text]): Codeunit "ABS Operation Response" begin @@ -572,9 +572,9 @@ codeunit 9053 "ABS Blob Client" /// /// The Find Blobs By Tags operation retrieves blobs based on user-defined tags for the specified blob, represented as one or more key-value pairs. /// see: https://learn.microsoft.com/nl-nl/rest/api/storageservices/find-blobs-by-tags?tabs=azure-ad - /// - /// A Dictionary of [Text, Text] with tags to search on. - /// An XmlDocument containing the results of the identified blobs. + /// + /// A Dictionary of [Text, Text] with tags to search on. + /// An XmlDocument containing the results of the identified blobs. /// An operation response object procedure FindBlobsByTags(SearchTags: Dictionary of [Text, Text]; var FoundBlobs: XmlDocument): Codeunit "ABS Operation Response" begin @@ -585,8 +585,8 @@ codeunit 9053 "ABS Blob Client" /// The Get Blob Tags operation gets user-defined tags for the specified blob as XmlDocument. /// see: https://go.microsoft.com/fwlink/?linkid=2211502 /// - /// The name of the blob. - /// The result XmlDocument with blob tags. + /// The name of the blob. + /// The result XmlDocument with blob tags. /// An operation response object procedure GetBlobTags(BlobName: Text; var Tags: XmlDocument): Codeunit "ABS Operation Response" var @@ -599,9 +599,9 @@ codeunit 9053 "ABS Blob Client" /// The Get Blob Tags operation gets user-defined tags for the specified blob as XmlDocument. /// see: https://go.microsoft.com/fwlink/?linkid=2211502 /// - /// The name of the blob. + /// The name of the blob. /// The result XmlDocument with blob tags. - /// Optional parameters to pass. + /// Optional parameters to pass. /// An operation response object procedure GetBlobTags(BlobName: Text; var Tags: XmlDocument; OptionalParameters: Codeunit "ABS Optional Parameters"): Codeunit "ABS Operation Response" begin @@ -612,8 +612,8 @@ codeunit 9053 "ABS Blob Client" /// The Get Blob Tags operation gets user-defined tags for the specified blob as one or more key-value pairs. /// see: https://go.microsoft.com/fwlink/?linkid=2211502 /// - /// The name of the blob. - /// The result Dictionary of [Text, Text] with blob tags. + /// The name of the blob. + /// The result Dictionary of [Text, Text] with blob tags. /// An operation response object procedure GetBlobTags(BlobName: Text; var Tags: Dictionary of [Text, Text]): Codeunit "ABS Operation Response" var @@ -626,9 +626,9 @@ codeunit 9053 "ABS Blob Client" /// The Get Blob Tags operation gets user-defined tags for the specified blob as one or more key-value pairs. /// see: https://go.microsoft.com/fwlink/?linkid=2211502 /// - /// The name of the blob. + /// The name of the blob. /// The result Dictionary of [Text, Text] with blob tags. - /// Optional parameters to pass. + /// Optional parameters to pass. /// An operation response object procedure GetBlobTags(BlobName: Text; var Tags: Dictionary of [Text, Text]; OptionalParameters: Codeunit "ABS Optional Parameters"): Codeunit "ABS Operation Response" begin @@ -836,7 +836,7 @@ codeunit 9053 "ABS Blob Client" /// /// Requests a new lease. If the blob does not have an active lease, the Blob service creates a lease on the blob. The lease duration can be 15 to 60 seconds or can be infinite /// see: https://go.microsoft.com/fwlink/?linkid=2210391 - /// + /// /// The name of the blob. /// Specifies the duration of the lease, in seconds, or negative one (-1) for a lease that never expires /// Guid containing the response value from x-ms-lease-id HttpHeader @@ -852,7 +852,7 @@ codeunit 9053 "ABS Blob Client" /// /// Requests a new lease. If the blob does not have an active lease, the Blob service creates a lease on the blob. The lease duration can be 15 to 60 seconds or can be infinite /// see: https://go.microsoft.com/fwlink/?linkid=2210391 - /// + /// /// The name of the blob. /// Specifies the duration of the lease, in seconds, or negative one (-1) for a lease that never expires /// Optional parameters to pass. @@ -897,8 +897,8 @@ codeunit 9053 "ABS Blob Client" /// /// Requests a new lease. If the blob does not have an active lease, the Blob service creates a lease on the blob. The lease duration can be 15 to 60 seconds or can be infinite /// see: https://go.microsoft.com/fwlink/?linkid=2210391 - /// - /// The name of the blob. + /// + /// The name of the blob. /// Specifies the duration of the lease, in seconds, or negative one (-1) for a lease that never expires /// Proposed lease ID, in a GUID string format /// Optional parameters to pass. @@ -913,7 +913,7 @@ codeunit 9053 "ABS Blob Client" /// Releases a lease on a Blob if it is no longer needed so that another client may immediately acquire a lease against the blob /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be released /// An operation response object procedure ReleaseLease(BlobName: Text; LeaseId: Guid): Codeunit "ABS Operation Response" @@ -927,7 +927,7 @@ codeunit 9053 "ABS Blob Client" /// Releases a lease on a Blob if it is no longer needed so that another client may immediately acquire a lease against the blob /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be released /// Optional parameters to pass. /// An operation response object @@ -940,7 +940,7 @@ codeunit 9053 "ABS Blob Client" /// Renews a lease on a Blob to keep it locked again for the same amount of time as before /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be renewed /// An operation response object procedure RenewLease(BlobName: Text; LeaseId: Guid): Codeunit "ABS Operation Response" @@ -954,7 +954,7 @@ codeunit 9053 "ABS Blob Client" /// Renews a lease on a Blob to keep it locked again for the same amount of time as before /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be renewed /// Optional parameters to pass. /// An operation response object @@ -968,7 +968,7 @@ codeunit 9053 "ABS Blob Client" /// Breaks a lease on a blob but ensures that another client cannot acquire a new lease until the current lease period has expired /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be broken /// An operation response object procedure BreakLease(BlobName: Text; LeaseId: Guid): Codeunit "ABS Operation Response" @@ -982,7 +982,7 @@ codeunit 9053 "ABS Blob Client" /// Breaks a lease on a blob but ensures that another client cannot acquire a new lease until the current lease period has expired /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be broken /// The proposed duration the lease should continue before it is broken, in seconds, between 0 and 60. /// An operation response object @@ -997,7 +997,7 @@ codeunit 9053 "ABS Blob Client" /// Breaks a lease on a blob but ensures that another client cannot acquire a new lease until the current lease period has expired /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be broken /// Optional parameters to pass. /// An operation response object @@ -1010,7 +1010,7 @@ codeunit 9053 "ABS Blob Client" /// Breaks a lease on a blob but ensures that another client cannot acquire a new lease until the current lease period has expired /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be broken /// Optional parameters to pass. /// The proposed duration the lease should continue before it is broken, in seconds, between 0 and 60. @@ -1024,7 +1024,7 @@ codeunit 9053 "ABS Blob Client" /// Changes the lease ID of an active lease /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be changed. Will contain the updated Guid after successful operation. /// The Guid that should be used in future /// An operation response object @@ -1039,7 +1039,7 @@ codeunit 9053 "ABS Blob Client" /// Changes the lease ID of an active lease /// see: https://go.microsoft.com/fwlink/?linkid=2210391 /// - /// The name of the blob. + /// The name of the blob. /// The Guid for the lease that should be changed /// The Guid that should be used in future /// Optional parameters to pass. diff --git a/src/System Application/App/Azure Blob Services API/src/ABSClientImpl.Codeunit.al b/src/System Application/App/Azure Blob Services API/src/ABSClientImpl.Codeunit.al index 2d20b148db..c3039947ad 100644 --- a/src/System Application/App/Azure Blob Services API/src/ABSClientImpl.Codeunit.al +++ b/src/System Application/App/Azure Blob Services API/src/ABSClientImpl.Codeunit.al @@ -47,7 +47,7 @@ codeunit 9051 "ABS Client Impl." BlobLbl: Label 'Blob'; ContainerLbl: Label 'Container'; - #endregion + #endregion [NonDebuggable] procedure Initialize(StorageAccountName: Text; ContainerName: Text; BlobName: Text; Authorization: Interface "Storage Service Authorization"; ApiVersion: Enum "Storage Service API Version") @@ -206,7 +206,7 @@ codeunit 9051 "ABS Client Impl." Filename: Text; SourceInStream: InStream; begin - if UploadIntoStream('', '', '', FileName, SourceInStream) then + if UploadIntoStream('', '', '', Filename, SourceInStream) then ABSOperationResponse := PutBlobBlockBlobStream(Filename, SourceInStream, '', ABSOptionalParameters); exit(ABSOperationResponse); @@ -693,7 +693,7 @@ codeunit 9051 "ABS Client Impl." ABSOperationResponse: Codeunit "ABS Operation Response"; BlockListType: Enum "ABS Block List Type"; begin - ABSOperationResponse := GetBlockList(BlockListType::committed, BlockList); // default API value is "committed" + ABSOperationResponse := GetBlockList(BlockListType::Committed, BlockList); // default API value is "committed" exit(ABSOperationResponse); end; diff --git a/src/System Application/App/Azure Blob Services API/src/ABSContainer.Table.al b/src/System Application/App/Azure Blob Services API/src/ABSContainer.Table.al index e41aaba515..f9fb9b9332 100644 --- a/src/System Application/App/Azure Blob Services API/src/ABSContainer.Table.al +++ b/src/System Application/App/Azure Blob Services API/src/ABSContainer.Table.al @@ -83,7 +83,7 @@ table 9044 "ABS Container" keys { - key(PK; "Name") + key(PK; Name) { Clustered = true; } diff --git a/src/System Application/App/Azure Blob Services API/src/ABSContainerClient.Codeunit.al b/src/System Application/App/Azure Blob Services API/src/ABSContainerClient.Codeunit.al index f89e2c5b1d..290895cbae 100644 --- a/src/System Application/App/Azure Blob Services API/src/ABSContainerClient.Codeunit.al +++ b/src/System Application/App/Azure Blob Services API/src/ABSContainerClient.Codeunit.al @@ -41,7 +41,7 @@ codeunit 9052 "ABS Container Client" /// /// The base URL to use when constructing the final URI. - /// If not set, the base URL is https://%1.blob.core.windows.net where %1 is the storage account name. + /// If not set, the base URL is https://%1.blob.core.windows.net where %1 is the storage account name. /// /// Use %1 as a placeholder for the storage account name. /// A valid URL string @@ -158,7 +158,7 @@ codeunit 9052 "ABS Container Client" /// /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite /// see: https://go.microsoft.com/fwlink/?linkid=2211318 - /// + /// /// The name of the container. /// Specifies the duration of the lease, in seconds, or negative one (-1) for a lease that never expires /// Guid containing the response value from x-ms-lease-id HttpHeader @@ -174,7 +174,7 @@ codeunit 9052 "ABS Container Client" /// /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite /// see: https://go.microsoft.com/fwlink/?linkid=2211318 - /// + /// /// The name of the container. /// Specifies the duration of the lease, in seconds, or negative one (-1) for a lease that never expires /// Optional parameters to pass. @@ -219,7 +219,7 @@ codeunit 9052 "ABS Container Client" /// /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite /// see: https://go.microsoft.com/fwlink/?linkid=2211318 - /// + /// /// The name of the container. /// Specifies the duration of the lease, in seconds, or negative one (-1) for a lease that never expires /// Proposed lease ID, in a GUID string format diff --git a/src/System Application/App/Azure Blob Services API/src/ABSOperationResponse.Codeunit.al b/src/System Application/App/Azure Blob Services API/src/ABSOperationResponse.Codeunit.al index 59640668c2..4c5d0f65fa 100644 --- a/src/System Application/App/Azure Blob Services API/src/ABSOperationResponse.Codeunit.al +++ b/src/System Application/App/Azure Blob Services API/src/ABSOperationResponse.Codeunit.al @@ -16,7 +16,7 @@ codeunit 9050 "ABS Operation Response" /// /// Checks whether the operation was successful. - /// + /// /// True if the operation was successful; otherwise - false. procedure IsSuccessful(): Boolean begin @@ -52,7 +52,7 @@ codeunit 9050 "ABS Operation Response" end; /// - /// Gets the result of a ABS client operation as text, + /// Gets the result of a ABS client operation as text, /// /// The content of the response. [NonDebuggable] @@ -63,7 +63,7 @@ codeunit 9050 "ABS Operation Response" end; /// - /// Gets the result of a ABS client operation as stream, + /// Gets the result of a ABS client operation as stream, /// /// The content of the response. [NonDebuggable] diff --git a/src/System Application/App/Azure Blob Services API/src/Helper/ABSFormatHelper.Codeunit.al b/src/System Application/App/Azure Blob Services API/src/Helper/ABSFormatHelper.Codeunit.al index 3adb7b2d5f..4e54bd3c88 100644 --- a/src/System Application/App/Azure Blob Services API/src/Helper/ABSFormatHelper.Codeunit.al +++ b/src/System Application/App/Azure Blob Services API/src/Helper/ABSFormatHelper.Codeunit.al @@ -161,7 +161,7 @@ codeunit 9044 "ABS Format Helper" [NonDebuggable] procedure TagsDictionaryToSearchExpression(Tags: Dictionary of [Text, Text]): Text var - UriHelper: Codeunit "Uri"; + UriHelper: Codeunit Uri; Keys: List of [Text]; "Key": Text; SingleQuoteChar: Char; diff --git a/src/System Application/App/Azure Blob Services API/src/Helper/ABSOptionalParameters.Codeunit.al b/src/System Application/App/Azure Blob Services API/src/Helper/ABSOptionalParameters.Codeunit.al index 6428b05445..54b686825a 100644 --- a/src/System Application/App/Azure Blob Services API/src/Helper/ABSOptionalParameters.Codeunit.al +++ b/src/System Application/App/Azure Blob Services API/src/Helper/ABSOptionalParameters.Codeunit.al @@ -235,7 +235,7 @@ codeunit 9047 "ABS Optional Parameters" /// /// Sets the value for 'x-ms-lease-action' HttpHeader for a request. /// - /// Enum "ABS Lease Action" value specifying the HttpHeader value + /// Enum "ABS Lease Action" value specifying the HttpHeader value internal procedure LeaseAction("Value": Enum "ABS Lease Action") begin SetRequestHeader('x-ms-lease-action', Format("Value")); @@ -324,7 +324,7 @@ codeunit 9047 "ABS Optional Parameters" end; /// - /// The snapshot parameter is an opaque DateTime value that, when present, specifies the blob snapshot to retrieve. + /// The snapshot parameter is an opaque DateTime value that, when present, specifies the blob snapshot to retrieve. /// /// The DateTime identifying the Snapshot procedure Snapshot("Value": DateTime) @@ -333,7 +333,7 @@ codeunit 9047 "ABS Optional Parameters" end; /// - /// The snapshot parameter is an opaque DateTime value that, when present, specifies the blob snapshot to retrieve. + /// The snapshot parameter is an opaque DateTime value that, when present, specifies the blob snapshot to retrieve. /// /// The DateTime identifying the Snapshot procedure Snapshot("Value": Text) @@ -351,8 +351,8 @@ codeunit 9047 "ABS Optional Parameters" end; /// - /// When the request includes this parameter, the operation returns a BlobPrefix element in the response body - /// that acts as a placeholder for all blobs with names that begin with the same substring until the delimiter character is reached. + /// When the request includes this parameter, the operation returns a BlobPrefix element in the response body + /// that acts as a placeholder for all blobs with names that begin with the same substring until the delimiter character is reached. /// The delimiter may be a single character or a string. /// /// Delimiting character/string diff --git a/src/System Application/App/Azure Blob Services API/src/Helper/ABSURIHelper.Codeunit.al b/src/System Application/App/Azure Blob Services API/src/Helper/ABSURIHelper.Codeunit.al index 5b9e0099ea..1e20102138 100644 --- a/src/System Application/App/Azure Blob Services API/src/Helper/ABSURIHelper.Codeunit.al +++ b/src/System Application/App/Azure Blob Services API/src/Helper/ABSURIHelper.Codeunit.al @@ -48,7 +48,7 @@ codeunit 9046 "ABS URI Helper" if Operation = Operation::AbortCopyBlob then ABSFormatHelper.AppendToUri(ConstructedUrl, 'copyid', RetrieveFromOptionalUriParameters('copyid')); - if Operation in [Operation::Putblock, Operation::PutBlockFromURL] then + if Operation in [Operation::PutBlock, Operation::PutBlockFromURL] then ABSFormatHelper.AppendToUri(ConstructedUrl, 'blockid', RetrieveFromOptionalUriParameters('blockid')); AddOptionalUriParameters(ConstructedUrl); diff --git a/src/System Application/App/Azure Function/AzureFunctions.Codeunit.al b/src/System Application/App/Azure Function/AzureFunctions.Codeunit.al index 8ad0cacc7c..cdcc37da49 100644 --- a/src/System Application/App/Azure Function/AzureFunctions.Codeunit.al +++ b/src/System Application/App/Azure Function/AzureFunctions.Codeunit.al @@ -39,7 +39,7 @@ codeunit 7804 "Azure Functions" /// Content type of the body to add to the request header. /// Instance of Azure function response object. [NonDebuggable] - procedure SendPostRequest(AzureFunctionsAuthentication: Interface "Azure Functions Authentication"; Body: Text; ContentTypeHeader: text): Codeunit "Azure Functions Response" + procedure SendPostRequest(AzureFunctionsAuthentication: Interface "Azure Functions Authentication"; Body: Text; ContentTypeHeader: Text): Codeunit "Azure Functions Response" begin exit(AzureFunctionsImpl.SendPostRequest(AzureFunctionsAuthentication, Body, ContentTypeHeader)); end; @@ -54,7 +54,7 @@ codeunit 7804 "Azure Functions" /// Content type of the body to add to the request header. /// Instance of Azure function response object. [NonDebuggable] - procedure Send(AzureFunctionsAuthentication: Interface "Azure Functions Authentication"; RequestType: enum "Http Request Type"; QueryDict: Dictionary of [Text, Text]; Body: Text; ContentTypeHeader: text): Codeunit "Azure Functions Response" + procedure Send(AzureFunctionsAuthentication: Interface "Azure Functions Authentication"; RequestType: Enum "Http Request Type"; QueryDict: Dictionary of [Text, Text]; Body: Text; ContentTypeHeader: Text): Codeunit "Azure Functions Response" begin exit(AzureFunctionsImpl.Send(AzureFunctionsAuthentication, RequestType, QueryDict, Body, ContentTypeHeader)); end; diff --git a/src/System Application/App/Azure Function/AzureFunctionsImpl.Codeunit.al b/src/System Application/App/Azure Function/AzureFunctionsImpl.Codeunit.al index aa72ec9277..b04cc0ea79 100644 --- a/src/System Application/App/Azure Function/AzureFunctionsImpl.Codeunit.al +++ b/src/System Application/App/Azure Function/AzureFunctionsImpl.Codeunit.al @@ -30,7 +30,7 @@ codeunit 7803 "Azure Functions Impl" end; [NonDebuggable] - procedure SendPostRequest(AzureFunctionAuthentication: Interface "Azure Functions Authentication"; Body: Text; ContentTypeHeader: text): Codeunit "Azure Functions Response" + procedure SendPostRequest(AzureFunctionAuthentication: Interface "Azure Functions Authentication"; Body: Text; ContentTypeHeader: Text): Codeunit "Azure Functions Response" var QueryDict: Dictionary of [Text, Text]; begin @@ -38,7 +38,7 @@ codeunit 7803 "Azure Functions Impl" end; [NonDebuggable] - procedure Send(AzureFunctionAuthentication: Interface "Azure Functions Authentication"; RequestType: enum "Http Request Type"; QueryDict: Dictionary of [Text, Text]; Body: Text; ContentTypeHeader: text): Codeunit "Azure Functions Response" + procedure Send(AzureFunctionAuthentication: Interface "Azure Functions Authentication"; RequestType: Enum "Http Request Type"; QueryDict: Dictionary of [Text, Text]; Body: Text; ContentTypeHeader: Text): Codeunit "Azure Functions Response" var Uri: Codeunit Uri; UriBuilder: Codeunit "Uri Builder"; diff --git a/src/System Application/App/Azure Function/AzureFunctionsResponse.Codeunit.al b/src/System Application/App/Azure Function/AzureFunctionsResponse.Codeunit.al index 6edecd91f4..0ee94d6fe1 100644 --- a/src/System Application/App/Azure Function/AzureFunctionsResponse.Codeunit.al +++ b/src/System Application/App/Azure Function/AzureFunctionsResponse.Codeunit.al @@ -16,7 +16,7 @@ codeunit 7805 "Azure Functions Response" /// /// Checks whether the request was successful. - /// + /// /// True if the request was successful; otherwise - false. [NonDebuggable] procedure IsSuccessful(): Boolean diff --git a/src/System Application/App/Azure Storage Services Authorization/src/SAS/SASParameters.Table.al b/src/System Application/App/Azure Storage Services Authorization/src/SAS/SASParameters.Table.al index 487c4ea106..98566e92e3 100644 --- a/src/System Application/App/Azure Storage Services Authorization/src/SAS/SASParameters.Table.al +++ b/src/System Application/App/Azure Storage Services Authorization/src/SAS/SASParameters.Table.al @@ -51,7 +51,7 @@ table 9064 "SAS Parameters" field(4; SignedProtocol; Option) { DataClassification = SystemMetadata; - OptionMembers = "https&http","https"; + OptionMembers = "https&http",https; OptionCaption = '"https and http",https', Locked = true; } diff --git a/src/System Application/App/Azure Storage Services Authorization/src/SAS/SASPermission.Enum.al b/src/System Application/App/Azure Storage Services Authorization/src/SAS/SASPermission.Enum.al index d0eb6083f3..3a26590ee7 100644 --- a/src/System Application/App/Azure Storage Services Authorization/src/SAS/SASPermission.Enum.al +++ b/src/System Application/App/Azure Storage Services Authorization/src/SAS/SASPermission.Enum.al @@ -81,5 +81,5 @@ enum 9064 "SAS Permission" value(11; "Set Immutability Policy") { Caption = 'i', Locked = true; - } + } } \ No newline at end of file diff --git a/src/System Application/App/Azure Storage Services Authorization/src/SAS/StorServAuthSAS.Codeunit.al b/src/System Application/App/Azure Storage Services Authorization/src/SAS/StorServAuthSAS.Codeunit.al index f021b37d77..4ce84f88c2 100644 --- a/src/System Application/App/Azure Storage Services Authorization/src/SAS/StorServAuthSAS.Codeunit.al +++ b/src/System Application/App/Azure Storage Services Authorization/src/SAS/StorServAuthSAS.Codeunit.al @@ -94,7 +94,7 @@ codeunit 9061 "Stor. Serv. Auth. SAS" implements "Storage Service Authorization" Permissions := SignedPermissions; end; - procedure SetProtocol(SignedProtocol: Option "https&http","https") + procedure SetProtocol(SignedProtocol: Option "https&http",https) begin Clear(Protocols); Protocols.Add('https'); diff --git a/src/System Application/App/Azure Storage Services Authorization/src/SharedKey/StorServAuthSharedKey.Codeunit.al b/src/System Application/App/Azure Storage Services Authorization/src/SharedKey/StorServAuthSharedKey.Codeunit.al index 1a5e7cfd34..3212e1008f 100644 --- a/src/System Application/App/Azure Storage Services Authorization/src/SharedKey/StorServAuthSharedKey.Codeunit.al +++ b/src/System Application/App/Azure Storage Services Authorization/src/SharedKey/StorServAuthSharedKey.Codeunit.al @@ -10,7 +10,7 @@ using System.Utilities; /// /// Exposes functionality to handle the creation of a signature to sign requests to the Storage Services REST API -/// More Information: +/// More Information: /// codeunit 9064 "Stor. Serv. Auth. Shared Key" implements "Storage Service Authorization" { @@ -34,7 +34,7 @@ codeunit 9064 "Stor. Serv. Auth. Shared Key" implements "Storage Service Authori Secret := SharedKey; end; - procedure SetApiVersion(NewApiVersion: Enum "Storage service API Version") + procedure SetApiVersion(NewApiVersion: Enum "Storage Service API Version") begin ApiVersion := NewApiVersion; end; @@ -208,7 +208,7 @@ codeunit 9064 "Stor. Serv. Auth. Shared Key" implements "Storage Service Authori var AuthFormatHelper: Codeunit "Auth. Format Helper"; - ApiVersion: Enum "Storage service API Version"; + ApiVersion: Enum "Storage Service API Version"; [NonDebuggable] Secret: Text; } \ No newline at end of file diff --git a/src/System Application/App/BLOB Storage/src/PersistentBlob.Table.al b/src/System Application/App/BLOB Storage/src/PersistentBlob.Table.al index cdfb44e792..5c403d050a 100644 --- a/src/System Application/App/BLOB Storage/src/PersistentBlob.Table.al +++ b/src/System Application/App/BLOB Storage/src/PersistentBlob.Table.al @@ -18,7 +18,7 @@ table 4151 "Persistent Blob" AutoIncrement = true; DataClassification = SystemMetadata; } - field(2; Blob; BLOB) + field(2; Blob; Blob) { DataClassification = CustomerContent; } @@ -32,8 +32,5 @@ table 4151 "Persistent Blob" } } - fieldgroups - { - } } diff --git a/src/System Application/App/BLOB Storage/src/PersistentBlobImpl.Codeunit.al b/src/System Application/App/BLOB Storage/src/PersistentBlobImpl.Codeunit.al index c9f5f72b00..fa5572fe28 100644 --- a/src/System Application/App/BLOB Storage/src/PersistentBlobImpl.Codeunit.al +++ b/src/System Application/App/BLOB Storage/src/PersistentBlobImpl.Codeunit.al @@ -10,7 +10,7 @@ codeunit 4108 "Persistent Blob Impl." Access = Internal; InherentEntitlements = X; InherentPermissions = X; - Permissions = TableData "Persistent Blob" = rimd; + Permissions = tabledata "Persistent Blob" = rimd; procedure Create() "Key": BigInteger var diff --git a/src/System Application/App/BLOB Storage/src/TempBlob.Table.al b/src/System Application/App/BLOB Storage/src/TempBlob.Table.al index 0ae8341c69..c41850b2f6 100644 --- a/src/System Application/App/BLOB Storage/src/TempBlob.Table.al +++ b/src/System Application/App/BLOB Storage/src/TempBlob.Table.al @@ -21,7 +21,7 @@ table 4150 "Temp Blob" { DataClassification = SystemMetadata; } - field(2; Blob; BLOB) + field(2; Blob; Blob) { DataClassification = SystemMetadata; } @@ -35,8 +35,5 @@ table 4150 "Temp Blob" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Barcode/src/Barcode Provider 2D/BarcodeEncodeSettings2D.Table.al b/src/System Application/App/Barcode/src/Barcode Provider 2D/BarcodeEncodeSettings2D.Table.al index 40682c2838..7d8245aceb 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider 2D/BarcodeEncodeSettings2D.Table.al +++ b/src/System Application/App/Barcode/src/Barcode Provider 2D/BarcodeEncodeSettings2D.Table.al @@ -24,7 +24,7 @@ table 9204 "Barcode Encode Settings 2D" /// field(1; "Error Correction Level"; Option) { - OptionMembers = "High","Medium","Low","Quartile"; + OptionMembers = High,Medium,Low,Quartile; InitValue = "Medium"; DataClassification = SystemMetadata; } diff --git a/src/System Application/App/Barcode/src/Barcode Provider 2D/BarcodeSymbology2D.Enum.al b/src/System Application/App/Barcode/src/Barcode Provider 2D/BarcodeSymbology2D.Enum.al index bfc0c8fef6..d02796d673 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider 2D/BarcodeSymbology2D.Enum.al +++ b/src/System Application/App/Barcode/src/Barcode Provider 2D/BarcodeSymbology2D.Enum.al @@ -5,7 +5,7 @@ namespace System.Text; -/// +/// /// The available 2D barcode symbologies. /// enum 9205 "Barcode Symbology 2D" diff --git a/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontEncoder2D.Interface.al b/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontEncoder2D.Interface.al index ab6f2738d1..9b9ee45b09 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontEncoder2D.Interface.al +++ b/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontEncoder2D.Interface.al @@ -5,12 +5,12 @@ namespace System.Text; -/// +/// /// Exposes common interface for 2D barcode font encoder. /// interface "Barcode Font Encoder 2D" { - /// + /// /// Encodes a input text to a barcode font. /// /// The text to encode. diff --git a/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontProvider2D.Interface.al b/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontProvider2D.Interface.al index c7b8af0023..bc13df03f3 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontProvider2D.Interface.al +++ b/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontProvider2D.Interface.al @@ -5,7 +5,7 @@ namespace System.Text; -/// +/// /// Interface for 2D barcode font providers. /// interface "Barcode Font Provider 2D" @@ -17,7 +17,7 @@ interface "Barcode Font Provider 2D" procedure GetSupportedBarcodeSymbologies(var Result: List of [Enum "Barcode Symbology 2D"]) /// - /// Encodes an input text into a 2D barcode. + /// Encodes an input text into a 2D barcode. /// /// The text to encode. /// The 2D symbology to use for the encoding. diff --git a/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontProvider2D.enum.al b/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontProvider2D.enum.al index 860009a6b3..368bb3516a 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontProvider2D.enum.al +++ b/src/System Application/App/Barcode/src/Barcode Provider 2D/Font/BarcodeFontProvider2D.enum.al @@ -5,7 +5,7 @@ namespace System.Text; -/// +/// /// The available 2D barcode font providers. /// enum 9206 "Barcode Font Provider 2D" implements "Barcode Font Provider 2D" diff --git a/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageEncoder2D.Interface.al b/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageEncoder2D.Interface.al index cf35b7f10f..0a28875cb5 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageEncoder2D.Interface.al +++ b/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageEncoder2D.Interface.al @@ -7,12 +7,12 @@ namespace System.Text; using System.Utilities; -/// +/// /// Exposes common interface for 2D barcode image encoder. /// interface "Barcode Image Encoder 2D" { - /// + /// /// Encodes a input text to a barcode image. /// /// The text to encode. diff --git a/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageProvider2D.Interface.al b/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageProvider2D.Interface.al index 264cec6ad4..976a5b0c6b 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageProvider2D.Interface.al +++ b/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageProvider2D.Interface.al @@ -7,7 +7,7 @@ namespace System.Text; using System.Utilities; -/// +/// /// Interface for 2D barcode image providers. /// interface "Barcode Image Provider 2D" @@ -19,7 +19,7 @@ interface "Barcode Image Provider 2D" procedure GetSupportedBarcodeSymbologies(var Result: List of [Enum "Barcode Symbology 2D"]) /// - /// Encodes an input text into a 2D barcode. + /// Encodes an input text into a 2D barcode. /// /// The text to encode. /// The 2D symbology to use for the encoding. @@ -27,7 +27,7 @@ interface "Barcode Image Provider 2D" procedure EncodeImage(InputText: Text; BarcodeSymbology2D: Enum "Barcode Symbology 2D"): Codeunit "Temp Blob"; /// - /// Encodes an input text into a 2D barcode. + /// Encodes an input text into a 2D barcode. /// /// The text to encode. /// The 2D symbology to use for the encoding. diff --git a/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageProvider2D.enum.al b/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageProvider2D.enum.al index e21b745957..43de474400 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageProvider2D.enum.al +++ b/src/System Application/App/Barcode/src/Barcode Provider 2D/Image/BarcodeImageProvider2D.enum.al @@ -5,7 +5,7 @@ namespace System.Text; -/// +/// /// The available 2D barcode font providers. /// enum 9207 "Barcode Image Provider 2D" implements "Barcode Image Provider 2D" diff --git a/src/System Application/App/Barcode/src/Barcode Provider/BarcodeEncodeSettings.Table.al b/src/System Application/App/Barcode/src/Barcode Provider/BarcodeEncodeSettings.Table.al index 1146464268..3425f37647 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider/BarcodeEncodeSettings.Table.al +++ b/src/System Application/App/Barcode/src/Barcode Provider/BarcodeEncodeSettings.Table.al @@ -24,7 +24,7 @@ table 9203 "Barcode Encode Settings" /// field(1; "Code Set"; Option) { - OptionMembers = "None","A","B","C"; + OptionMembers = None,A,B,C; DataClassification = SystemMetadata; } diff --git a/src/System Application/App/Barcode/src/Barcode Provider/BarcodeSymbology.Enum.al b/src/System Application/App/Barcode/src/Barcode Provider/BarcodeSymbology.Enum.al index d16b50db63..446bb7fb11 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider/BarcodeSymbology.Enum.al +++ b/src/System Application/App/Barcode/src/Barcode Provider/BarcodeSymbology.Enum.al @@ -5,7 +5,7 @@ namespace System.Text; -/// +/// /// The available barcode symbologies. /// enum 9204 "Barcode Symbology" @@ -54,7 +54,7 @@ enum 9204 "Barcode Symbology" } /// - /// Postenet - The Intelligent Mail customer barcode combines the information of both the POSTNET and PLANET symbologies, and additional information, into a single barcode that is about the same size as the traditional POSTNET symbol. + /// Postenet - The Intelligent Mail customer barcode combines the information of both the POSTNET and PLANET symbologies, and additional information, into a single barcode that is about the same size as the traditional POSTNET symbol. /// value(125; Postnet) { @@ -62,7 +62,7 @@ enum 9204 "Barcode Symbology" } /// - /// MIS - The MSI Plessey barcode symbology was designed in the 1970s by the Plessey Company in England and has practiced primarily in libraries and retail applications. + /// MIS - The MSI Plessey barcode symbology was designed in the 1970s by the Plessey Company in England and has practiced primarily in libraries and retail applications. /// value(130; MSI) { @@ -70,7 +70,7 @@ enum 9204 "Barcode Symbology" } /// - /// EAN-8 - The MSI Plessey barcode symbology was designed in the 1970s by the Plessey Company in England and has practiced primarily in libraries and retail applications. + /// EAN-8 - The MSI Plessey barcode symbology was designed in the 1970s by the Plessey Company in England and has practiced primarily in libraries and retail applications. /// value(200; "EAN-8") { @@ -78,7 +78,7 @@ enum 9204 "Barcode Symbology" } /// - /// EAN-13 - The EAN-13 was developed as a superset of UPC-A, adding an extra digit to the beginning of every UPC-A number. + /// EAN-13 - The EAN-13 was developed as a superset of UPC-A, adding an extra digit to the beginning of every UPC-A number. /// value(201; "EAN-13") { diff --git a/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontEncoder.Interface.al b/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontEncoder.Interface.al index 45590b77d2..032c9af455 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontEncoder.Interface.al +++ b/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontEncoder.Interface.al @@ -5,12 +5,12 @@ namespace System.Text; -/// +/// /// Exposes common interface for barcode font encoder. /// interface "Barcode Font Encoder" { - /// + /// /// Encodes a input text to a barcode font. /// /// The text to encode. @@ -18,7 +18,7 @@ interface "Barcode Font Encoder" /// The encoded barcode. procedure EncodeFont(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Text; - /// + /// /// Validates whether a text can be encoded. /// The validation is based on a regular expression according to /// https://www.neodynamic.com/Products/Help/BarcodeWinControl2.5/working_barcode_symbologies.htm diff --git a/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontProvider.Enum.al b/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontProvider.Enum.al index c52b3e6258..4952be00fb 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontProvider.Enum.al +++ b/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontProvider.Enum.al @@ -5,7 +5,7 @@ namespace System.Text; -/// +/// /// The available barcode font providers. /// enum 9203 "Barcode Font Provider" implements "Barcode Font Provider" diff --git a/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontProvider.Interface.al b/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontProvider.Interface.al index 989c51768d..e5e320c69e 100644 --- a/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontProvider.Interface.al +++ b/src/System Application/App/Barcode/src/Barcode Provider/Font/BarcodeFontProvider.Interface.al @@ -5,7 +5,7 @@ namespace System.Text; -/// +/// /// Interface for barcode font providers. /// interface "Barcode Font Provider" @@ -17,7 +17,7 @@ interface "Barcode Font Provider" procedure GetSupportedBarcodeSymbologies(var Result: List of [Enum "Barcode Symbology"]) /// - /// Encodes an input text into a barcode. + /// Encodes an input text into a barcode. /// /// The text to encode. /// The symbology to use for the encoding. @@ -25,7 +25,7 @@ interface "Barcode Font Provider" procedure EncodeFont(InputText: Text; BarcodeSymbology: Enum "Barcode Symbology"): Text; /// - /// Encodes an input text into a barcode. + /// Encodes an input text into a barcode. /// /// The text to encode. /// The symbology to use for the encoding. diff --git a/src/System Application/App/Barcode/src/Dynamics Barcode Provider/Dynamics2DProvider.Codeunit.al b/src/System Application/App/Barcode/src/Dynamics Barcode Provider/Dynamics2DProvider.Codeunit.al index 2d54ff76a6..eba25d140c 100644 --- a/src/System Application/App/Barcode/src/Dynamics Barcode Provider/Dynamics2DProvider.Codeunit.al +++ b/src/System Application/App/Barcode/src/Dynamics Barcode Provider/Dynamics2DProvider.Codeunit.al @@ -14,7 +14,7 @@ codeunit 9223 "Dynamics 2D Provider" implements "Barcode Image Provider 2D" InherentPermissions = X; var - CannotFindBarcodeEncoderErr: Label 'Provider %1: 2D Barcode symbol encoder %2 is not implemented by this provider!', comment = '%1 Provider Caption, %2 = Symbology Caption'; + CannotFindBarcodeEncoderErr: Label 'Provider %1: 2D Barcode symbol encoder %2 is not implemented by this provider!', Comment = '%1 Provider Caption, %2 = Symbology Caption'; procedure GetSupportedBarcodeSymbologies(var Result: List of [Enum "Barcode Symbology 2D"]) var diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCodabarEncoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCodabarEncoder.Codeunit.al index 08911ba297..6c7003d8a7 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCodabarEncoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCodabarEncoder.Codeunit.al @@ -24,7 +24,7 @@ codeunit 9214 "IDA 1D Codabar Encoder" implements "Barcode Font Encoder" procedure IsValidInput(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Boolean var - RegexPattern: codeunit Regex; + RegexPattern: Codeunit Regex; begin if InputText = '' then exit(false); diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode128Encoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode128Encoder.Codeunit.al index 46e03b953e..efc513a959 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode128Encoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode128Encoder.Codeunit.al @@ -8,9 +8,9 @@ namespace System.Text; using System; using System.Utilities; -/// +/// /// Code-128 barcode font implementation from IDAutomation -/// from: https://www.idautomation.com/barcode-fonts/code-128/ +/// from: https://www.idautomation.com/barcode-fonts/code-128/ /// Alpha-numeric barcode with three character sets. Supports Code-128, GS1-128 (Formerly known as UCC/EAN-128) and ISBT-128. /// codeunit 9206 "IDA 1D Code128 Encoder" implements "Barcode Font Encoder" @@ -42,7 +42,7 @@ codeunit 9206 "IDA 1D Code128 Encoder" implements "Barcode Font Encoder" procedure IsValidInput(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Boolean; var - RegexPattern: codeunit Regex; + RegexPattern: Codeunit Regex; Result: Boolean; begin if InputText = '' then diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode39Encoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode39Encoder.Codeunit.al index 1fd2693b56..6182416c44 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode39Encoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode39Encoder.Codeunit.al @@ -8,9 +8,9 @@ namespace System.Text; using System; using System.Utilities; -/// +/// /// Code-39 barcode font implementation from IDAutomation -/// from: https://www.idautomation.com/barcode-fonts/code-39/ +/// from: https://www.idautomation.com/barcode-fonts/code-39/ /// An alpha-numeric barcode that encodes uppercase letters, numbers and some symbols; it is also referred to as Barcode/39, the 3 of 9 Code and LOGMARS Code. /// codeunit 9204 "IDA 1D Code39 Encoder" implements "Barcode Font Encoder" @@ -40,7 +40,7 @@ codeunit 9204 "IDA 1D Code39 Encoder" implements "Barcode Font Encoder" procedure IsValidInput(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Boolean; var - RegexPattern: codeunit Regex; + RegexPattern: Codeunit Regex; begin if InputText = '' then exit(false); diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode93Encoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode93Encoder.Codeunit.al index 671d8b17cb..d882195f2d 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode93Encoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DCode93Encoder.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Text; using System; using System.Utilities; -/// +/// /// Code-93 barcode font implementation from IDAutomation /// from: https://www.idautomation.com/barcode-fonts/code-93/ /// Similar to Code 39, but requires two checksum characters. diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DEAN13Encoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DEAN13Encoder.Codeunit.al index 9dc95e0d99..beb2464169 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DEAN13Encoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DEAN13Encoder.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Text; using System; using System.Utilities; -/// +/// /// EAN-13 barcode font implementation from IDAutomation /// from: https://www.barcodefaq.com/barcode-properties/symbologies/ean-13/ /// Is most commonly used to encode 13 digits of the GTIN barcode symbology and also to identify books with Bookland or ISBN barcode symbols. @@ -29,7 +29,7 @@ codeunit 9208 "IDA 1D EAN13 Encoder" implements "Barcode Font Encoder" procedure IsValidInput(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Boolean; var - RegexPattern: codeunit Regex; + RegexPattern: Codeunit Regex; begin if InputText = '' then exit(false); diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DEAN8Encoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DEAN8Encoder.Codeunit.al index 39bd57c40f..48888c50f4 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DEAN8Encoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DEAN8Encoder.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Text; using System; using System.Utilities; -/// +/// /// Ean-8 barcode font implementation from IDAutomation /// from: https://www.barcodefaq.com/barcode-properties/symbologies/ean-8/ /// An EAN-8 is an EAN/UPC symbology barcode and is derived from the longer International Article Number (EAN-13) code @@ -29,7 +29,7 @@ codeunit 9207 "IDA 1D EAN8 Encoder" implements "Barcode Font Encoder" procedure IsValidInput(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Boolean; var - RegexPattern: codeunit Regex; + RegexPattern: Codeunit Regex; begin if InputText = '' then exit(false); diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DI2of5Encoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DI2of5Encoder.Codeunit.al index 5185e45ba4..28feb878e8 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DI2of5Encoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DI2of5Encoder.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Text; using System; using System.Utilities; -/// +/// /// ITF barcode font implementation from IDAutomation /// from: https://www.idautomation.com/barcode-fonts/interleaved-2of5/ /// Interleaved 2 of 5 (ITF) is a numeric only barcode used to encode pairs of numbers into a self-checking, high-density barcode format @@ -33,7 +33,7 @@ codeunit 9209 "IDA 1D I2of5 Encoder" implements "Barcode Font Encoder" procedure IsValidInput(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Boolean; var - RegexPattern: codeunit Regex; + RegexPattern: Codeunit Regex; begin if InputText = '' then exit(false); diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DPostnetEncoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DPostnetEncoder.Codeunit.al index 9a240afb5b..89664ab7bd 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DPostnetEncoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DPostnetEncoder.Codeunit.al @@ -24,7 +24,7 @@ codeunit 9211 "IDA 1D Postnet Encoder" implements "Barcode Font Encoder" procedure IsValidInput(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Boolean; var - RegexPattern: codeunit Regex; + RegexPattern: Codeunit Regex; begin if InputText = '' then exit(false); diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DUPCAEncoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DUPCAEncoder.Codeunit.al index 2f364db5d1..1b3cfaec7b 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DUPCAEncoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DUPCAEncoder.Codeunit.al @@ -24,7 +24,7 @@ codeunit 9212 "IDA 1D UPCA Encoder" implements "Barcode Font Encoder" procedure IsValidInput(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Boolean; var - RegexPattern: codeunit Regex; + RegexPattern: Codeunit Regex; begin if InputText = '' then exit(false); diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DUPCEEncoder.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DUPCEEncoder.Codeunit.al index b2b774de06..98063aecfe 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DUPCEEncoder.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/Encoders/IDA1DUPCEEncoder.Codeunit.al @@ -24,7 +24,7 @@ codeunit 9213 "IDA 1D UPCE Encoder" implements "Barcode Font Encoder" procedure IsValidInput(InputText: Text; var BarcodeEncodeSettings: Record "Barcode Encode Settings"): Boolean; var - RegexPattern: codeunit Regex; + RegexPattern: Codeunit Regex; begin if InputText = '' then exit(false); diff --git a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/IDAutomation1DProvider.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/IDAutomation1DProvider.Codeunit.al index 702c4b3359..81f3b2e2ab 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 1D Provider/IDAutomation1DProvider.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 1D Provider/IDAutomation1DProvider.Codeunit.al @@ -12,8 +12,8 @@ codeunit 9215 "IDAutomation 1D Provider" implements "Barcode Font Provider" InherentPermissions = X; var - CannotFindBarcodeEncoderErr: Label 'Provider %1: Barcode symbol encoder %2 is not implemented by this provider!', comment = '%1 Provider Caption, %2 = Symbology Caption'; - InvalidTextErr: Label 'Input text %1 contains invalid characters for the chosen provider %2 and encoding symbology %3', comment = '%1 = Input String, %2 = Provider Caption, %3 = Symbology Caption'; + CannotFindBarcodeEncoderErr: Label 'Provider %1: Barcode symbol encoder %2 is not implemented by this provider!', Comment = '%1 Provider Caption, %2 = Symbology Caption'; + InvalidTextErr: Label 'Input text %1 contains invalid characters for the chosen provider %2 and encoding symbology %3', Comment = '%1 = Input String, %2 = Provider Caption, %3 = Symbology Caption'; procedure GetSupportedBarcodeSymbologies(var Result: List of [Enum "Barcode Symbology"]) var diff --git a/src/System Application/App/Barcode/src/IDAutomation 2D Provider/IDAutomation2DProvider.Codeunit.al b/src/System Application/App/Barcode/src/IDAutomation 2D Provider/IDAutomation2DProvider.Codeunit.al index ed9efd8006..b720ef16c2 100644 --- a/src/System Application/App/Barcode/src/IDAutomation 2D Provider/IDAutomation2DProvider.Codeunit.al +++ b/src/System Application/App/Barcode/src/IDAutomation 2D Provider/IDAutomation2DProvider.Codeunit.al @@ -12,7 +12,7 @@ codeunit 9221 "IDAutomation 2D Provider" implements "Barcode Font Provider 2D" InherentPermissions = X; var - CannotFindBarcodeEncoderErr: Label 'Provider %1: 2D Barcode symbol encoder %2 is not implemented by this provider!', comment = '%1 Provider Caption, %2 = Symbology Caption'; + CannotFindBarcodeEncoderErr: Label 'Provider %1: 2D Barcode symbol encoder %2 is not implemented by this provider!', Comment = '%1 Provider Caption, %2 = Symbology Caption'; procedure GetSupportedBarcodeSymbologies(var Result: List of [Enum "Barcode Symbology 2D"]) var diff --git a/src/System Application/App/Base64 Convert/src/Base64ConvertImpl.Codeunit.al b/src/System Application/App/Base64 Convert/src/Base64ConvertImpl.Codeunit.al index 4d69fa5769..fb454f32f5 100644 --- a/src/System Application/App/Base64 Convert/src/Base64ConvertImpl.Codeunit.al +++ b/src/System Application/App/Base64 Convert/src/Base64ConvertImpl.Codeunit.al @@ -58,7 +58,7 @@ codeunit 4111 "Base64 Convert Impl." Base64String := Convert.ToBase64String(Encoding.Unicode().GetBytes(String), Base64FormattingOptions); TextEncoding::MSDos, TextEncoding::Windows: - Base64String := Convert.ToBase64String(Encoding.GetEncoding(CodePage).GetBytes(String), Base64FormattingOptions); + Base64String := Convert.ToBase64String(Encoding.GetEncoding(Codepage).GetBytes(String), Base64FormattingOptions); else Base64String := Convert.ToBase64String(Encoding.UTF8().GetBytes(String), Base64FormattingOptions); end; diff --git a/src/System Application/App/Business Chart/src/BusinessChartDataType.Enum.al b/src/System Application/App/Business Chart/src/BusinessChartDataType.Enum.al index 4d9a3614a4..8b144c50d9 100644 --- a/src/System Application/App/Business Chart/src/BusinessChartDataType.Enum.al +++ b/src/System Application/App/Business Chart/src/BusinessChartDataType.Enum.al @@ -15,7 +15,7 @@ enum 479 "Business Chart Data Type" /// /// String type, corresponds to 'System.String' /// - value(0; "String") + value(0; String) { Caption = 'String'; } diff --git a/src/System Application/App/Business Chart/src/BusinessChartType.Enum.al b/src/System Application/App/Business Chart/src/BusinessChartType.Enum.al index 27a784e651..d6aa559858 100644 --- a/src/System Application/App/Business Chart/src/BusinessChartType.Enum.al +++ b/src/System Application/App/Business Chart/src/BusinessChartType.Enum.al @@ -16,7 +16,7 @@ enum 484 "Business Chart Type" /// /// Uses points to represent data points. /// - value(0; "Point") + value(0; Point) { Caption = 'Point'; } @@ -24,7 +24,7 @@ enum 484 "Business Chart Type" /// /// A variation of the Point chart type, where the data points are replaced by bubbles of different sizes. /// - value(2; "Bubble") + value(2; Bubble) { Caption = 'Bubble'; } @@ -32,7 +32,7 @@ enum 484 "Business Chart Type" /// /// Illustrates trends in data with the passing of time. /// - value(3; "Line") + value(3; Line) { Caption = 'Line'; } @@ -40,7 +40,7 @@ enum 484 "Business Chart Type" /// /// Similar to the Line chart type, but uses vertical and horizontal lines to connect the data points in a series forming a step-like progression. /// - value(5; "StepLine") + value(5; StepLine) { Caption = 'StepLine'; } @@ -56,7 +56,7 @@ enum 484 "Business Chart Type" /// /// Used to compare the contribution of each value to a total across categories. /// - value(11; "StackedColumn") + value(11; StackedColumn) { Caption = 'StackedColumn'; } @@ -64,7 +64,7 @@ enum 484 "Business Chart Type" /// /// Displays multiple series of data as stacked columns. The cumulative proportion of each stacked element is always 100% of the Y axis. /// - value(12; "StackedColumn100") + value(12; StackedColumn100) { Caption = 'StackedColumn100'; } @@ -80,7 +80,7 @@ enum 484 "Business Chart Type" /// /// An Area chart that stacks two or more data series on top of one another. /// - value(15; "StackedArea") + value(15; StackedArea) { Caption = 'StackedArea'; } @@ -88,7 +88,7 @@ enum 484 "Business Chart Type" /// /// Displays multiple series of data as stacked areas. The cumulative proportion of each stacked element is always 100% of the Y axis. /// - value(16; "StackedArea100") + value(16; StackedArea100) { Caption = 'StackedArea100'; } @@ -96,7 +96,7 @@ enum 484 "Business Chart Type" /// /// Shows how proportions of data, shown as pie-shaped pieces, contribute to the data as a whole. /// - value(17; "Pie") + value(17; Pie) { Caption = 'Pie'; } @@ -104,7 +104,7 @@ enum 484 "Business Chart Type" /// /// Similar to the Pie chart type, except that it has a hole in the center. /// - value(18; "Doughnut") + value(18; Doughnut) { Caption = 'Doughnut'; } @@ -112,7 +112,7 @@ enum 484 "Business Chart Type" /// /// Displays a range of data by plotting two Y values per data point, with each Y value being drawn as a line chart. /// - value(21; "Range") + value(21; Range) { Caption = 'Range'; } @@ -120,7 +120,7 @@ enum 484 "Business Chart Type" /// /// A circular chart that is used primarily as a data comparison tool. /// - value(25; "Radar") + value(25; Radar) { Caption = 'Radar'; } @@ -128,7 +128,7 @@ enum 484 "Business Chart Type" /// /// Displays in a funnel shape data that equals 100% when totaled. /// - value(33; "Funnel") + value(33; Funnel) { Caption = 'Funnel'; } diff --git a/src/System Application/App/Camera and Media Interaction/src/Camera.Codeunit.al b/src/System Application/App/Camera and Media Interaction/src/Camera.Codeunit.al index c61351e15d..3ab41275b8 100644 --- a/src/System Application/App/Camera and Media Interaction/src/Camera.Codeunit.al +++ b/src/System Application/App/Camera and Media Interaction/src/Camera.Codeunit.al @@ -37,7 +37,7 @@ codeunit 1907 Camera /// Sets the quality of the saved image, expressed as a number between 0 and 100, where 100 is the highest available resolution. /// An InStream object that will hold the image in case taking a picture was successful. /// A generated name for the taken picture. It will include the current date and time (for example, "Picture_05_03_2020_12_49_23.jpeg"). - /// True if the camera is available, the user took a picture and decided to use it, false otherwise. + /// True if the camera is available, the user took a picture and decided to use it, false otherwise. /// The picture quality must be in the range from 0 to 100. procedure GetPicture(Quality: Integer; PictureInStream: InStream; var PictureName: Text): Boolean begin diff --git a/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al b/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al index 6074af1769..cc1293bf67 100644 --- a/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al +++ b/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al @@ -32,7 +32,7 @@ page 1908 Camera layout { - area(content) + area(Content) { group(TakingPicture) { @@ -136,12 +136,12 @@ page 1908 Camera /// /// The InStream to read the picture from. /// The picture is not available. - procedure GetPicture(InStream: Instream) + procedure GetPicture(InStream: InStream) begin CameraPageImpl.GetPicture(InStream); end; - trigger CameraProvider::PictureAvailable(PictureName: Text; PictureFilePath: Text) + trigger CameraProvider::"CameraProvider::PictureAvailable"(PictureName: Text; PictureFilePath: Text) begin CameraPageImpl.CameraInteractionOnPictureAvailable(PictureFilePath); CurrPage.Close(); diff --git a/src/System Application/App/Camera and Media Interaction/src/CameraImpl.Codeunit.al b/src/System Application/App/Camera and Media Interaction/src/CameraImpl.Codeunit.al index ad4e7e5d54..9bee71e4a8 100644 --- a/src/System Application/App/Camera and Media Interaction/src/CameraImpl.Codeunit.al +++ b/src/System Application/App/Camera and Media Interaction/src/CameraImpl.Codeunit.al @@ -13,7 +13,7 @@ codeunit 1922 "Camera Impl." var Camera: Page Camera; - PictureFileNameTok: Label 'Picture_%1.jpeg', Comment = '%1 = String generated from current datetime to make sure file names are unique '; + PictureFileNameTok: Label 'Picture_%1.jpeg', Comment = '%1 = String generated from current datetime to make sure file names are unique '; procedure GetPicture(Quality: Integer; PictureInStream: InStream; var PictureName: Text): Boolean var diff --git a/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al b/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al index e1efc31323..06fe5fb887 100644 --- a/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al +++ b/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al @@ -32,7 +32,7 @@ page 1909 "Media Upload" layout { - area(content) + area(Content) { group(UploadingMedia) { @@ -123,12 +123,12 @@ page 1909 "Media Upload" /// /// The InStream to read the picture from. /// The picture is not available. - procedure GetMedia(InStream: Instream) + procedure GetMedia(InStream: InStream) begin MediaUploadPageImpl.GetMedia(InStream); end; - trigger CameraProvider::PictureAvailable(FileName: Text; FilePath: Text) + trigger CameraProvider::"CameraProvider::PictureAvailable"(FileName: Text; FilePath: Text) begin MediaUploadPageImpl.MediaInteractionOnPictureAvailable(FilePath); CurrPage.Close(); diff --git a/src/System Application/App/Client Type Management/src/ClientTypeManagement.Codeunit.al b/src/System Application/App/Client Type Management/src/ClientTypeManagement.Codeunit.al index cd519c9e6a..a206f3d0f3 100644 --- a/src/System Application/App/Client Type Management/src/ClientTypeManagement.Codeunit.al +++ b/src/System Application/App/Client Type Management/src/ClientTypeManagement.Codeunit.al @@ -20,7 +20,7 @@ codeunit 4030 "Client Type Management" /// Gets the current type of the client being used by the caller, e.g. Phone, Web, Tablet etc. /// Use the GetCurrentClientType wrapper method when you want to test a flow on a different type of client. - /// Example + /// Example /// /// IF ClientTypeManagement.GetCurrentClientType IN [CLIENTTYPE::xxx, CLIENTTYPE::yyy] THEN /// diff --git a/src/System Application/App/Cryptography Management/permissions/CryptographyMgtObjects.PermissionSet.al b/src/System Application/App/Cryptography Management/permissions/CryptographyMgtObjects.PermissionSet.al index 0a58706c28..bc189c8a0d 100644 --- a/src/System Application/App/Cryptography Management/permissions/CryptographyMgtObjects.PermissionSet.al +++ b/src/System Application/App/Cryptography Management/permissions/CryptographyMgtObjects.PermissionSet.al @@ -9,5 +9,5 @@ permissionset 1258 "Cryptography Mgt. - Objects" { Assignable = false; - Permissions = Page "Data Encryption Management" = X; + Permissions = page "Data Encryption Management" = X; } diff --git a/src/System Application/App/Cryptography Management/src/AesCryptoServiceProviderImpl.Codeunit.al b/src/System Application/App/Cryptography Management/src/AesCryptoServiceProviderImpl.Codeunit.al index e3c8ab9600..0f271425eb 100644 --- a/src/System Application/App/Cryptography Management/src/AesCryptoServiceProviderImpl.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/AesCryptoServiceProviderImpl.Codeunit.al @@ -12,7 +12,7 @@ codeunit 1467 "AesCryptoServiceProvider Impl." implements SymmetricAlgorithm InherentPermissions = X; var - DotNetAesCryptoServiceProvider: Dotnet "Cryptography.AesCryptoServiceProvider"; + DotNetAesCryptoServiceProvider: DotNet "Cryptography.AesCryptoServiceProvider"; XmlEncrypmentMethodUrlTok: Label 'http://www.w3.org/2001/04/xmlenc#aes256-cbc', Locked = true; [NonDebuggable] diff --git a/src/System Application/App/Cryptography Management/src/CertificateRequest.Codeunit.al b/src/System Application/App/Cryptography Management/src/CertificateRequest.Codeunit.al index 17f43454c9..e7f8bccfe3 100644 --- a/src/System Application/App/Cryptography Management/src/CertificateRequest.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/CertificateRequest.Codeunit.al @@ -5,7 +5,7 @@ namespace System.Security.Encryption; -/// +/// /// Provides helper functionality for creating Certificate Signing Requests (CSR:s) and Self Signed Certificates. /// codeunit 1463 CertificateRequest @@ -18,10 +18,10 @@ codeunit 1463 CertificateRequest CertSigningRequestImpl: Codeunit "CertificateRequest Impl."; /// - /// Initializes a new instance of RSACryptoServiceProvider with the specified key size and returns the key as an XML string. + /// Initializes a new instance of RSACryptoServiceProvider with the specified key size and returns the key as an XML string. /// /// The size of the key in bits. - /// True to include a public and private RSA key in KeyAsXmlString. False to include only the public key. + /// True to include a public and private RSA key in KeyAsXmlString. False to include only the public key. /// Returns an XML string that contains the key of the RSA object that was created. procedure InitializeRSA(KeySize: Integer; IncludePrivateParameters: Boolean; var KeyAsXmlString: Text) begin @@ -39,7 +39,7 @@ codeunit 1463 CertificateRequest CertSigningRequestImpl.InitializeCertificateRequestUsingRSA(SubjectName, HashAlgorithm, RSASignaturePaddingMode); end; - /// + /// /// Adds a X509BasicConstraint to the Certificate Request. See https://learn.microsoft.com/dotnet/api/system.security.cryptography.x509certificates.x509basicconstraintsextension /// /// True if the certificate is from a certificate authority (CA). Otherwise, false. @@ -51,7 +51,7 @@ codeunit 1463 CertificateRequest CertSigningRequestImpl.AddX509BasicConstraintToCertificateRequest(CertificateAuthority, HasPathLengthConstraint, PathLengthConstraint, Critical); end; - /// + /// /// Adds a X509EnhancedKeyUsage to the Certificate Request. See https://learn.microsoft.com/dotnet/api/system.security.cryptography.x509certificates.x509enhancedkeyusageextension /// /// List of Oid values (for example '1.3.6.1.5.5.7.3.2') to add. diff --git a/src/System Application/App/Cryptography Management/src/CertificateRequestImpl.Codeunit.al b/src/System Application/App/Cryptography Management/src/CertificateRequestImpl.Codeunit.al index 4c685103b2..d606edd085 100644 --- a/src/System Application/App/Cryptography Management/src/CertificateRequestImpl.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/CertificateRequestImpl.Codeunit.al @@ -82,7 +82,7 @@ codeunit 1464 "CertificateRequest Impl." procedure AddX509KeyUsageToCertificateRequest(X509KeyUsageFlags: Integer; Critical: Boolean) var DotNetX509KeyUsageExtension: DotNet X509KeyUsageExtension; - DotNetX509KeyUsageFlags: Dotnet X509KeyUsageFlags; + DotNetX509KeyUsageFlags: DotNet X509KeyUsageFlags; begin DotNetX509KeyUsageFlags := X509KeyUsageFlags; DotNetCertificateRequest.CertificateExtensions.Add( diff --git a/src/System Application/App/Cryptography Management/src/CryptographyManagement.Codeunit.al b/src/System Application/App/Cryptography Management/src/CryptographyManagement.Codeunit.al index 313af4db09..8ed6c252fe 100644 --- a/src/System Application/App/Cryptography Management/src/CryptographyManagement.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/CryptographyManagement.Codeunit.al @@ -264,7 +264,7 @@ codeunit 1266 "Cryptography Management" /// Verifies that a digital signature is valid. /// /// Input string. - /// The private key to use in the hash algorithm. + /// The private key to use in the hash algorithm. /// The available hash algorithms are MD5, SHA1, SHA256, SHA384, and SHA512. /// The stream of signature. /// True if the signature is valid; otherwise, false. @@ -277,7 +277,7 @@ codeunit 1266 "Cryptography Management" /// Verifies that a digital signature is valid. /// /// The stream of input data. - /// The private key to use in the hash algorithm. + /// The private key to use in the hash algorithm. /// The available hash algorithms are MD5, SHA1, SHA256, SHA384, and SHA512. /// The stream of signature. /// True if the signature is valid; otherwise, false. diff --git a/src/System Application/App/Cryptography Management/src/CryptographyManagementImpl.Codeunit.al b/src/System Application/App/Cryptography Management/src/CryptographyManagementImpl.Codeunit.al index 152c11f4ff..7babbc138e 100644 --- a/src/System Application/App/Cryptography Management/src/CryptographyManagementImpl.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/CryptographyManagementImpl.Codeunit.al @@ -36,7 +36,7 @@ codeunit 1279 "Cryptography Management Impl." AssertEncryptionPossible(); if InputString = '' then exit(''); - exit(SYSTEM.Encrypt(InputString)); + exit(System.Encrypt(InputString)); end; procedure Decrypt(EncryptedString: Text): Text @@ -44,7 +44,7 @@ codeunit 1279 "Cryptography Management Impl." AssertEncryptionPossible(); if EncryptedString = '' then exit(''); - exit(SYSTEM.Decrypt(EncryptedString)) + exit(System.Decrypt(EncryptedString)) end; procedure ExportKey() @@ -85,7 +85,7 @@ codeunit 1279 "Cryptography Management Impl." CopyStream(TempOutStream, FileInStream); FileObj.Close(); - FILE.Erase(ServerFilename); + File.Erase(ServerFilename); end; local procedure DownloadEncryptionFileFromStream(TempBlob: Codeunit "Temp Blob") @@ -117,7 +117,7 @@ codeunit 1279 "Cryptography Management Impl." if Password <> '' then ImportKeyAndConfirm(TempKeyFilePath, Password); - FILE.Erase(TempKeyFilePath); + File.Erase(TempKeyFilePath); end; procedure ChangeKey() @@ -143,7 +143,7 @@ codeunit 1279 "Cryptography Management Impl." ImportKeyAndConfirm(TempKeyFilePath, Password); end; - FILE.Erase(TempKeyFilePath); + File.Erase(TempKeyFilePath); end; procedure EnableEncryption(Silent: Boolean) diff --git a/src/System Application/App/Cryptography Management/src/DESCryptoServiceProvider.Codeunit.al b/src/System Application/App/Cryptography Management/src/DESCryptoServiceProvider.Codeunit.al index 5f74dd0be8..7e443070be 100644 --- a/src/System Application/App/Cryptography Management/src/DESCryptoServiceProvider.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/DESCryptoServiceProvider.Codeunit.al @@ -54,7 +54,7 @@ codeunit 1379 DESCryptoServiceProvider /// Represents the input instream data to encrypt /// Represents the output instream encrypted data [NonDebuggable] - procedure EncryptStream(Password: Text; Salt: Text; InputInstream: InStream; var OutputOutstream: Outstream) + procedure EncryptStream(Password: Text; Salt: Text; InputInstream: InStream; var OutputOutstream: OutStream) begin DESCryptoServiceProviderImpl.EncryptStream(Password, Salt, InputInstream, OutputOutstream); end; @@ -67,7 +67,7 @@ codeunit 1379 DESCryptoServiceProvider /// Represents the input instream data to decrypt /// Represents the output instream decrypted data [NonDebuggable] - procedure DecryptStream(Password: Text; Salt: Text; InputInstream: InStream; var OutputOutstream: Outstream) + procedure DecryptStream(Password: Text; Salt: Text; InputInstream: InStream; var OutputOutstream: OutStream) begin DESCryptoServiceProviderImpl.DecryptStream(Password, Salt, InputInstream, OutputOutstream); end; diff --git a/src/System Application/App/Cryptography Management/src/DESCryptoServiceProviderImpl.Codeunit.al b/src/System Application/App/Cryptography Management/src/DESCryptoServiceProviderImpl.Codeunit.al index d05bb9047b..2a09f33ef9 100644 --- a/src/System Application/App/Cryptography Management/src/DESCryptoServiceProviderImpl.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/DESCryptoServiceProviderImpl.Codeunit.al @@ -46,7 +46,7 @@ codeunit 1382 "DESCryptoServiceProvider Impl." end; [NonDebuggable] - procedure EncryptStream(Password: Text; Salt: Text; InputInstream: InStream; var OutputOutstream: Outstream) + procedure EncryptStream(Password: Text; Salt: Text; InputInstream: InStream; var OutputOutstream: OutStream) var MemoryStream: DotNet MemoryStream; ByteArray: DotNet Array; @@ -62,7 +62,7 @@ codeunit 1382 "DESCryptoServiceProvider Impl." end; [NonDebuggable] - procedure DecryptStream(Password: Text; Salt: Text; InputInstream: InStream; var OutputOutstream: Outstream) + procedure DecryptStream(Password: Text; Salt: Text; InputInstream: InStream; var OutputOutstream: OutStream) var MemoryStream: DotNet MemoryStream; ByteArray: DotNet Array; diff --git a/src/System Application/App/Cryptography Management/src/DSACryptoServiceProvider.Codeunit.al b/src/System Application/App/Cryptography Management/src/DSACryptoServiceProvider.Codeunit.al index 8a68393df1..2ed9d259d7 100644 --- a/src/System Application/App/Cryptography Management/src/DSACryptoServiceProvider.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/DSACryptoServiceProvider.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Security.Encryption; /// /// Defines a wrapper object to access the cryptographic service provider (CSP) implementation of the DSA algorithm. /// -codeunit 1447 "DSACryptoServiceProvider" +codeunit 1447 DSACryptoServiceProvider { Access = Public; InherentEntitlements = X; diff --git a/src/System Application/App/Cryptography Management/src/DataEncryptionManagement.Page.al b/src/System Application/App/Cryptography Management/src/DataEncryptionManagement.Page.al index c10cfe8a21..c686e7189b 100644 --- a/src/System Application/App/Cryptography Management/src/DataEncryptionManagement.Page.al +++ b/src/System Application/App/Cryptography Management/src/DataEncryptionManagement.Page.al @@ -15,7 +15,7 @@ page 9905 "Data Encryption Management" { Caption = 'Data Encryption Management'; Extensible = false; - AccessByPermission = System "Tools, Restore" = X; + AccessByPermission = system "Tools, Restore" = X; AdditionalSearchTerms = 'data security management'; ApplicationArea = All; Editable = false; @@ -25,7 +25,7 @@ page 9905 "Data Encryption Management" layout { - area(content) + area(Content) { field(EncryptionEnabledState; IsEncryptionEnabled) { @@ -45,7 +45,7 @@ page 9905 "Data Encryption Management" actions { - area(creation) + area(Creation) { action("Enable Encryption") { @@ -67,7 +67,7 @@ page 9905 "Data Encryption Management" } action("Import Encryption Key") { - AccessByPermission = System "Tools, Restore" = X; + AccessByPermission = system "Tools, Restore" = X; ApplicationArea = All; Caption = 'Import Encryption Key'; Image = Import; @@ -85,7 +85,7 @@ page 9905 "Data Encryption Management" } action("Change Encryption Key") { - AccessByPermission = System "Tools, Restore" = X; + AccessByPermission = system "Tools, Restore" = X; ApplicationArea = All; Caption = 'Change Encryption Key'; Enabled = ChangeKeyActionEnabled; @@ -104,7 +104,7 @@ page 9905 "Data Encryption Management" } action("Export Encryption Key") { - AccessByPermission = System "Tools, Backup" = X; + AccessByPermission = system "Tools, Backup" = X; ApplicationArea = All; Caption = 'Export Encryption Key'; Enabled = ExportKeyActionEnabled; @@ -122,7 +122,7 @@ page 9905 "Data Encryption Management" } action("Disable Encryption") { - AccessByPermission = System "Tools, Restore" = X; + AccessByPermission = system "Tools, Restore" = X; ApplicationArea = All; Caption = 'Disable Encryption'; Enabled = DisableEncryptionActionEnabled; diff --git a/src/System Application/App/Cryptography Management/src/RSACryptoServiceProvider.Codeunit.al b/src/System Application/App/Cryptography Management/src/RSACryptoServiceProvider.Codeunit.al index a17e58eecd..0a450d18b9 100644 --- a/src/System Application/App/Cryptography Management/src/RSACryptoServiceProvider.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/RSACryptoServiceProvider.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Security.Encryption; /// /// Performs asymmetric encryption and decryption using the implementation of the RSA algorithm provided by the cryptographic service provider (CSP). /// -codeunit 1445 "RSACryptoServiceProvider" +codeunit 1445 RSACryptoServiceProvider { Access = Public; InherentEntitlements = X; @@ -19,7 +19,7 @@ codeunit 1445 "RSACryptoServiceProvider" RSACryptoServiceProviderImpl: Codeunit "RSACryptoServiceProvider Impl."; /// - /// Initializes a new instance of RSACryptoServiceProvider with the specified key size and returns the key as an XML string. + /// Initializes a new instance of RSACryptoServiceProvider with the specified key size and returns the key as an XML string. /// /// The size of the key in bits. procedure InitializeRSA(KeySize: Integer) diff --git a/src/System Application/App/Cryptography Management/src/RSASignaturePadding.Enum.al b/src/System Application/App/Cryptography Management/src/RSASignaturePadding.Enum.al index 4640ffa877..b53e01ba75 100644 --- a/src/System Application/App/Cryptography Management/src/RSASignaturePadding.Enum.al +++ b/src/System Application/App/Cryptography Management/src/RSASignaturePadding.Enum.al @@ -6,7 +6,7 @@ namespace System.Security.Encryption; /// -/// Enum that specifies all of the available padding modes. For more details check .NET RSASignaturePadding Class +/// Enum that specifies all of the available padding modes. For more details check .NET RSASignaturePadding Class /// enum 1285 "RSA Signature Padding" { diff --git a/src/System Application/App/Cryptography Management/src/Rfc2898DeriveBytes.Codeunit.al b/src/System Application/App/Cryptography Management/src/Rfc2898DeriveBytes.Codeunit.al index c19879933a..26f7feeec1 100644 --- a/src/System Application/App/Cryptography Management/src/Rfc2898DeriveBytes.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/Rfc2898DeriveBytes.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Security.Encryption; /// /// Provides helper functions for the Advanced Encryption Standard. /// -codeunit 1378 "Rfc2898DeriveBytes" +codeunit 1378 Rfc2898DeriveBytes { Access = Public; InherentEntitlements = X; diff --git a/src/System Application/App/Cryptography Management/src/RijndaelCryptography.Codeunit.al b/src/System Application/App/Cryptography Management/src/RijndaelCryptography.Codeunit.al index f386c51ddb..bc45db2cfe 100644 --- a/src/System Application/App/Cryptography Management/src/RijndaelCryptography.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/RijndaelCryptography.Codeunit.al @@ -162,7 +162,7 @@ codeunit 1258 "Rijndael Cryptography" /// Returns encrypted text as plain text. /// /// The value to decrypt. - /// Plain text. + /// Plain text. procedure Decrypt(CryptedText: Text) PlainText: Text begin PlainText := CryptographyManagementImpl.DecryptRijndael(CryptedText); diff --git a/src/System Application/App/Cryptography Management/src/SymmetricAlgorithm.Interface.al b/src/System Application/App/Cryptography Management/src/SymmetricAlgorithm.Interface.al index 00102ad9f7..57a781a795 100644 --- a/src/System Application/App/Cryptography Management/src/SymmetricAlgorithm.Interface.al +++ b/src/System Application/App/Cryptography Management/src/SymmetricAlgorithm.Interface.al @@ -12,8 +12,8 @@ namespace System.Security.Encryption; interface SymmetricAlgorithm { /// - /// Initializes a new instance of the SymmetricAlgorithm. - /// + /// Initializes a new instance of the SymmetricAlgorithm. + /// procedure GetInstance(var DotNetSymmetricAlgorithm: DotNet "Cryptography.SymmetricAlgorithm"); /// diff --git a/src/System Application/App/Cryptography Management/src/TripleDESCryptoSvcProvImpl.Codeunit.al b/src/System Application/App/Cryptography Management/src/TripleDESCryptoSvcProvImpl.Codeunit.al index 9f28e8225c..bc0359c527 100644 --- a/src/System Application/App/Cryptography Management/src/TripleDESCryptoSvcProvImpl.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/TripleDESCryptoSvcProvImpl.Codeunit.al @@ -12,7 +12,7 @@ codeunit 1468 "TripleDESCryptoSvcProv. Impl." implements SymmetricAlgorithm InherentPermissions = X; var - DotNetTripleDESCryptoServiceProvider: Dotnet "Cryptography.TripleDESCryptoServiceProvider"; + DotNetTripleDESCryptoServiceProvider: DotNet "Cryptography.TripleDESCryptoServiceProvider"; XmlEncrypmentMethodUrlTok: Label 'http://www.w3.org/2001/04/xmlenc#tripledes-cbc', Locked = true; [NonDebuggable] diff --git a/src/System Application/App/Cryptography Management/src/X509Certificate2.Codeunit.al b/src/System Application/App/Cryptography Management/src/X509Certificate2.Codeunit.al index 4c34060241..0f055dd5ec 100644 --- a/src/System Application/App/Cryptography Management/src/X509Certificate2.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/X509Certificate2.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Security.Encryption; /// /// Provides helper functions to work with the X509Certificate2 class. /// -codeunit 1286 "X509Certificate2" +codeunit 1286 X509Certificate2 { Access = Public; InherentEntitlements = X; @@ -37,7 +37,7 @@ codeunit 1286 "X509Certificate2" /// /// Represents the certificate value encoded using the Base64 algorithm /// Certificate Password - /// Represents certificate Friendly Name + /// Represents certificate Friendly Name [NonDebuggable] procedure GetCertificateFriendlyName(CertBase64Value: Text; Password: Text; var FriendlyName: Text) begin @@ -60,8 +60,8 @@ codeunit 1286 "X509Certificate2" /// Specifies the thumbprint of the certificate based on it's Base64 value. /// /// Represents the certificate value encoded using the Base64 algorithm - /// Certificate Password - /// Certificate Thumbprint + /// Certificate Password + /// Certificate Thumbprint [NonDebuggable] procedure GetCertificateThumbprint(CertBase64Value: Text; Password: Text; var Thumbprint: Text) begin @@ -72,8 +72,8 @@ codeunit 1286 "X509Certificate2" /// Specifies the issuer of the certificate based on it's Base64 value. /// /// Represents the certificate value encoded using the Base64 algorithm - /// Certificate Password - /// Certificate Issuer + /// Certificate Password + /// Certificate Issuer [NonDebuggable] procedure GetCertificateIssuer(CertBase64Value: Text; Password: Text; var Issuer: Text) begin @@ -83,9 +83,9 @@ codeunit 1286 "X509Certificate2" /// /// Specifies the expiration date of the certificate based on it's Base64 value. /// - /// Represents the certificate value encoded using the Base64 algorithm - /// Certificate Password - /// Certificate Expiration Date + /// Represents the certificate value encoded using the Base64 algorithm + /// Certificate Password + /// Certificate Expiration Date [NonDebuggable] procedure GetCertificateExpiration(CertBase64Value: Text; Password: Text; var Expiration: DateTime) begin @@ -95,9 +95,9 @@ codeunit 1286 "X509Certificate2" /// /// Specifies the NotBefore date of the certificate based on it's Base64 value. /// - /// Represents the certificate value encoded using the Base64 algorithm - /// Certificate Password - /// Certificate NotBefore Date + /// Represents the certificate value encoded using the Base64 algorithm + /// Certificate Password + /// Certificate NotBefore Date [NonDebuggable] procedure GetCertificateNotBefore(CertBase64Value: Text; Password: Text; var NotBefore: DateTime) begin @@ -107,9 +107,9 @@ codeunit 1286 "X509Certificate2" /// /// Checks whether the certificate has a private key based on it's Base64 value. /// - /// Represents the certificate value encoded using the Base64 algorithm + /// Represents the certificate value encoded using the Base64 algorithm /// Certificate Password - /// True if the certificate has private key + /// True if the certificate has private key [NonDebuggable] procedure HasPrivateKey(CertBase64Value: Text; Password: Text): Boolean begin @@ -155,7 +155,7 @@ codeunit 1286 "X509Certificate2" /// /// Represents the certificate value encoded using the Base64 algorithm /// Certificate Password - /// Certificate serial number + /// Certificate serial number [NonDebuggable] procedure GetCertificateSerialNumber(CertBase64Value: Text; Password: Text; var SerialNumber: Text) begin @@ -167,7 +167,7 @@ codeunit 1286 "X509Certificate2" /// /// Represents the certificate value encoded using the Base64 algorithm /// Certificate Password - /// Certificate serial number as ascii + /// Certificate serial number as ascii [NonDebuggable] procedure GetCertificateSerialNumberAsASCII(CertBase64Value: Text; Password: Text; var SerialNumberASCII: Text) begin diff --git a/src/System Application/App/Cryptography Management/src/Xml/EncryptedXml.Codeunit.al b/src/System Application/App/Cryptography Management/src/Xml/EncryptedXml.Codeunit.al index ff38330050..3d579557d0 100644 --- a/src/System Application/App/Cryptography Management/src/Xml/EncryptedXml.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/Xml/EncryptedXml.Codeunit.al @@ -18,7 +18,7 @@ codeunit 1465 EncryptedXml EncryptedXmlImpl: Codeunit "EncryptedXml Impl."; /// - /// Creates a symmetric session key to encrypt the outer XML of an element using the specified X.509 certificate. + /// Creates a symmetric session key to encrypt the outer XML of an element using the specified X.509 certificate. /// /// The XmlDocument to encrypt. /// The name of the element to encrypt. @@ -31,7 +31,7 @@ codeunit 1465 EncryptedXml end; /// - /// Creates a symmetric session key using the specified SymmetricAlgorithm + /// Creates a symmetric session key using the specified SymmetricAlgorithm /// to encrypt the outer XML of an element using the specified X.509 certificate. /// /// The XmlDocument to encrypt. @@ -51,7 +51,7 @@ codeunit 1465 EncryptedXml /// The XML document to decrypt. /// The asymmetric key to use to decrypt the symmetric keys in the document. /// The asymmetric algorithm used to decrypt the symmetric key. - /// Returns true if decryption was successful, otherwise false. + /// Returns true if decryption was successful, otherwise false. [NonDebuggable] procedure DecryptDocument(var EncryptedDocument: XmlDocument; EncryptionKey: Text; SignatureAlgorithm: Enum SignatureAlgorithm): Boolean begin diff --git a/src/System Application/App/Cryptography Management/src/Xml/EncryptedXmlImpl.Codeunit.al b/src/System Application/App/Cryptography Management/src/Xml/EncryptedXmlImpl.Codeunit.al index af74156145..af1a29e6e3 100644 --- a/src/System Application/App/Cryptography Management/src/Xml/EncryptedXmlImpl.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/Xml/EncryptedXmlImpl.Codeunit.al @@ -69,7 +69,7 @@ codeunit 1466 "EncryptedXml Impl." DotNetSymmetricAlgorithm: DotNet "Cryptography.SymmetricAlgorithm"; DotNetX509Certificate2: DotNet X509Certificate2; DotNetCipherData: DotNet CipherData; - DotNetRSA: Dotnet RSA; + DotNetRSA: DotNet RSA; DotNetKeyInfo: DotNet KeyInfo; DotNetKeyInfoX509Data: DotNet KeyInfoX509Data; DotNetKeyInfoEncryptedKey: DotNet KeyInfoEncryptedKey; @@ -210,14 +210,14 @@ codeunit 1466 "EncryptedXml Impl." end; [NonDebuggable] - procedure DecryptKey(EncryptedKey: XmlElement; EncryptionKey: Text; UseOAEP: Boolean; var KeyBase64Value: Text; SignatureAlgorithm: ENum SignatureAlgorithm): Boolean + procedure DecryptKey(EncryptedKey: XmlElement; EncryptionKey: Text; UseOAEP: Boolean; var KeyBase64Value: Text; SignatureAlgorithm: Enum SignatureAlgorithm): Boolean var XmlDocument: XmlDocument; XmlNamespaceManager: XmlNamespaceManager; CipherValue: XmlNode; DotNetEncryptedXml: DotNet EncryptedXml; DotNetCipherBytes, DotNetKeyBytes : DotNet Array; - DotNetConvert: Dotnet Convert; + DotNetConvert: DotNet Convert; DotNetAsymmetricAlgorithm: DotNet AsymmetricAlgorithm; SignatureAlgorithmInterface: Interface SignatureAlgorithm; begin diff --git a/src/System Application/App/Cryptography Management/src/Xml/SignedXml.Codeunit.al b/src/System Application/App/Cryptography Management/src/Xml/SignedXml.Codeunit.al index efad47ab2d..0c1f3ec357 100644 --- a/src/System Application/App/Cryptography Management/src/Xml/SignedXml.Codeunit.al +++ b/src/System Application/App/Cryptography Management/src/Xml/SignedXml.Codeunit.al @@ -332,7 +332,7 @@ codeunit 1460 SignedXml end; /// - /// Represents the Uniform Resource Identifier (URI) for the standard SHA512 digest method for XML digital signatures. + /// Represents the Uniform Resource Identifier (URI) for the standard SHA512 digest method for XML digital signatures. /// /// The value http://www.w3.org/2001/04/xmlenc#sha512. /// diff --git a/src/System Application/App/Cues and KPIs/permissions/CuesandKPIsObjects.PermissionSet.al b/src/System Application/App/Cues and KPIs/permissions/CuesandKPIsObjects.PermissionSet.al index 1401911a77..92f5d984bf 100644 --- a/src/System Application/App/Cues and KPIs/permissions/CuesandKPIsObjects.PermissionSet.al +++ b/src/System Application/App/Cues and KPIs/permissions/CuesandKPIsObjects.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 9704 "Cues and KPIs - Objects" Access = Internal; Assignable = false; - Permissions = Page "Cue Setup Administrator" = X, - Page "Cue Setup End User" = X; + Permissions = page "Cue Setup Administrator" = X, + page "Cue Setup End User" = X; } diff --git a/src/System Application/App/Cues and KPIs/src/CueSetupAdministrator.Page.al b/src/System Application/App/Cues and KPIs/src/CueSetupAdministrator.Page.al index 56ecfe9fe1..c7ccea80ba 100644 --- a/src/System Application/App/Cues and KPIs/src/CueSetupAdministrator.Page.al +++ b/src/System Application/App/Cues and KPIs/src/CueSetupAdministrator.Page.al @@ -16,21 +16,21 @@ page 9701 "Cue Setup Administrator" ApplicationArea = All; Caption = 'Cue Setup'; PageType = List; - Permissions = TableData "Cue Setup" = rimd; + Permissions = tabledata "Cue Setup" = rimd; SourceTable = "Cue Setup"; UsageCategory = Administration; ContextSensitiveHelpPage = 'admin-how-set-up-colored-indicator-on-cues'; layout { - area(content) + area(Content) { repeater(Group) { field("User Name"; Rec."User Name") { ApplicationArea = All; - LookupPageID = "User Lookup"; + LookupPageId = "User Lookup"; ToolTip = 'Specifies which Business Central user the indicator setup for the Cue pertains to. If you leave this field blank, then the indicator setup will pertain to all users.'; } field("Table ID"; Rec."Table ID") @@ -111,9 +111,6 @@ page 9701 "Cue Setup Administrator" } } - actions - { - } trigger OnAfterGetRecord() begin diff --git a/src/System Application/App/Cues and KPIs/src/CueSetupEndUser.Page.al b/src/System Application/App/Cues and KPIs/src/CueSetupEndUser.Page.al index 88ff88b0ec..f4a8c9f29c 100644 --- a/src/System Application/App/Cues and KPIs/src/CueSetupEndUser.Page.al +++ b/src/System Application/App/Cues and KPIs/src/CueSetupEndUser.Page.al @@ -14,14 +14,14 @@ page 9702 "Cue Setup End User" DeleteAllowed = false; InsertAllowed = false; PageType = List; - Permissions = TableData "Cue Setup" = rimd; + Permissions = tabledata "Cue Setup" = rimd; SourceTable = "Cue Setup"; SourceTableTemporary = true; ContextSensitiveHelpPage = 'admin-how-set-up-colored-indicator-on-cues'; layout { - area(content) + area(Content) { repeater(Group) { @@ -108,9 +108,6 @@ page 9702 "Cue Setup End User" } } - actions - { - } trigger OnAfterGetRecord() begin diff --git a/src/System Application/App/Cues and KPIs/src/CuesAndKPIs.Codeunit.al b/src/System Application/App/Cues and KPIs/src/CuesAndKPIs.Codeunit.al index 02d4a6dd9c..f31885558c 100644 --- a/src/System Application/App/Cues and KPIs/src/CuesAndKPIs.Codeunit.al +++ b/src/System Application/App/Cues and KPIs/src/CuesAndKPIs.Codeunit.al @@ -51,7 +51,7 @@ codeunit 9701 "Cues And KPIs" /// The ID of the field for which the style is wanted. /// The amount for which the style will be calculated based on the threshold values of the setup. /// The amount for which the style will be calculated based on the threshold values of the setup - procedure SetCueStyle(TableID: Integer; FieldID: Integer; Amount: Decimal; var FinalStyle: enum "Cues And KPIs Style") + procedure SetCueStyle(TableID: Integer; FieldID: Integer; Amount: Decimal; var FinalStyle: Enum "Cues And KPIs Style") begin CuesAndKPIsImpl.SetCueStyle(TableID, FieldID, Amount, FinalStyle); end; @@ -74,7 +74,7 @@ codeunit 9701 "Cues And KPIs" /// /// A Cues And KPIs Style enum from which the style text will be converted. /// The converted style - procedure ConvertStyleToStyleText(CueStyle: enum "Cues And KPIs Style"): Text + procedure ConvertStyleToStyleText(CueStyle: Enum "Cues And KPIs Style"): Text begin exit(CuesAndKPIsImpl.ConvertStyleToStyleText(CueStyle)); end; diff --git a/src/System Application/App/Cues and KPIs/src/CuesAndKPIsImpl.Codeunit.al b/src/System Application/App/Cues and KPIs/src/CuesAndKPIsImpl.Codeunit.al index dee9bfde27..95b7f61671 100644 --- a/src/System Application/App/Cues and KPIs/src/CuesAndKPIsImpl.Codeunit.al +++ b/src/System Application/App/Cues and KPIs/src/CuesAndKPIsImpl.Codeunit.al @@ -10,8 +10,8 @@ using System.Environment; codeunit 9702 "Cues And KPIs Impl." { - Permissions = tabledata Field = r, - tabledata "Cue Setup" = rimd; + Permissions = tabledata "Cue Setup" = rimd, +tabledata Field = r; Access = Internal; InherentEntitlements = X; InherentPermissions = X; @@ -30,7 +30,7 @@ codeunit 9702 "Cues And KPIs Impl." TempCueSetupRecord.FilterGroup(2); TempCueSetupRecord.SetRange("Table ID", TableId); TempCueSetupRecord.FilterGroup(0); - PAGE.RunModal(PAGE::"Cue Setup End User", TempCueSetupRecord); + Page.RunModal(Page::"Cue Setup End User", TempCueSetupRecord); end; procedure PopulateTempCueSetupRecords(var TempCueSetupPageSourceRec: Record "Cue Setup" temporary) @@ -132,7 +132,7 @@ codeunit 9702 "Cues And KPIs Impl." CueStyle: Enum "Cues And KPIs Style"; Resolved: Boolean; begin - CuesAndKPIs.OnBeforeGetCustomizedCueStyleOption(TableID, FieldNo, CueValue, CueStyle, Resolved); + CuesAndKPIs.OnBeforeGetCustomizedCueStyleOption(TableId, FieldNo, CueValue, CueStyle, Resolved); if Resolved then exit(CueStyle.AsInteger()); diff --git a/src/System Application/App/Customer Experience Survey/src/CustExpSurveyReqImpl.Codeunit.al b/src/System Application/App/Customer Experience Survey/src/CustExpSurveyReqImpl.Codeunit.al index ff7e6d3df3..01b42f5021 100644 --- a/src/System Application/App/Customer Experience Survey/src/CustExpSurveyReqImpl.Codeunit.al +++ b/src/System Application/App/Customer Experience Survey/src/CustExpSurveyReqImpl.Codeunit.al @@ -240,7 +240,7 @@ codeunit 9263 "Cust. Exp. Survey Req. Impl." OAuth2: Codeunit OAuth2; RedirectURL: Text; begin - OAuth2.GetDefaultRedirectUrl(RedirectUrl); + OAuth2.GetDefaultRedirectURL(RedirectURL); exit(RedirectURL) end; diff --git a/src/System Application/App/Customer Experience Survey/src/CustomerExpSurveyImpl.Codeunit.al b/src/System Application/App/Customer Experience Survey/src/CustomerExpSurveyImpl.Codeunit.al index f746f8bcea..84019ca506 100644 --- a/src/System Application/App/Customer Experience Survey/src/CustomerExpSurveyImpl.Codeunit.al +++ b/src/System Application/App/Customer Experience Survey/src/CustomerExpSurveyImpl.Codeunit.al @@ -292,7 +292,7 @@ codeunit 9261 "Customer Exp. Survey Impl." exit; end; Session.LogMessage('0000J9O', TenantInfoNotFoundLbl, Verbosity::Warning, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', CustomerExperienceSurveyTok); - error(''); + Error(''); end; internal procedure RemoveUserIdFromMessage(Message: Text): Text diff --git a/src/System Application/App/Data Administration/src/DetachedMediaCleanup.Page.al b/src/System Application/App/Data Administration/src/DetachedMediaCleanup.Page.al index 1248092efc..4a8af49681 100644 --- a/src/System Application/App/Data Administration/src/DetachedMediaCleanup.Page.al +++ b/src/System Application/App/Data Administration/src/DetachedMediaCleanup.Page.al @@ -31,7 +31,7 @@ page 1927 "Detached Media Cleanup" { ApplicationArea = All; Caption = 'Load Limit'; - Tooltip = 'Specifies the maximum number of records to load. Depending on the limit, this may take a long time to complete.'; + ToolTip = 'Specifies the maximum number of records to load. Depending on the limit, this may take a long time to complete.'; MinValue = 1; } field(CompanyFilterField; CompanyFilter) diff --git a/src/System Application/App/Data Administration/src/MediaCleanupImpl.Codeunit.al b/src/System Application/App/Data Administration/src/MediaCleanupImpl.Codeunit.al index 5446fd546c..615adbc589 100644 --- a/src/System Application/App/Data Administration/src/MediaCleanupImpl.Codeunit.al +++ b/src/System Application/App/Data Administration/src/MediaCleanupImpl.Codeunit.al @@ -106,7 +106,7 @@ codeunit 1928 "Media Cleanup Impl." FileName += '.png'; end; - DownloadFromStream(MediaInStream, '', '', '', Filename); + DownloadFromStream(MediaInStream, '', '', '', FileName); exit(true); end; diff --git a/src/System Application/App/Data Archive/src/DataArchive.codeunit.al b/src/System Application/App/Data Archive/src/DataArchive.codeunit.al index c56de85dae..00f08f4a59 100644 --- a/src/System Application/App/Data Archive/src/DataArchive.codeunit.al +++ b/src/System Application/App/Data Archive/src/DataArchive.codeunit.al @@ -17,7 +17,7 @@ codeunit 600 "Data Archive" var DataArchiveImplementation: Codeunit "Data Archive Implementation"; - /// + /// /// Creates a new archive entry. /// /// The name or description for the archive entry. Will typically be the calling object name. @@ -28,7 +28,7 @@ codeunit 600 "Data Archive" exit(DataArchiveImplementation.Create(Description)); end; - /// + /// /// Creates a new archive entry, resets the session and starts logging all new deletions. /// /// The name or description for the archive entry. Will typically be the calling object name. @@ -39,7 +39,7 @@ codeunit 600 "Data Archive" exit(DataArchiveImplementation.CreateAndStartLoggingDeletions(Description)); end; - /// + /// /// Opens an existing archive entry. /// /// The ID of the archive entry. @@ -49,7 +49,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.Open(ID); end; - /// + /// /// Saves and closes the currently open archive entry. /// /// The archive must be created or opened first. @@ -58,7 +58,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.Save(); end; - /// + /// /// Discards any additions and closes the currently open archive entry. /// /// The archive must be created or opened first. @@ -67,7 +67,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.DiscardChanges(); end; - /// + /// /// Saves the supplied record to the currently open archive entry. /// /// The record will be copied to the archive. @@ -77,7 +77,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.SaveRecord(RecordVariant); end; - /// + /// /// Saves the supplied record to the currently open archive entry. /// /// The record will be copied to the archive. @@ -87,7 +87,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.SaveRecord(RecordRef); end; - /// + /// /// Saves all records within the filters to the currently open archive entry. /// /// The archive must be created or opened first. @@ -96,7 +96,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.SaveRecords(RecordRef); end; - /// + /// /// Starts subscription to the OnDatabaseDelete trigger and calls SaveRecord with any deleted record. /// procedure StartSubscriptionToDelete() @@ -104,7 +104,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.StartSubscriptionToDelete(); end; - /// + /// /// Starts subscription to the OnDatabaseDelete trigger and calls SaveRecord with any deleted record. /// procedure StartSubscriptionToDelete(ResetSession: Boolean) @@ -112,7 +112,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.StartSubscriptionToDelete(ResetSession); end; - /// + /// /// Stops the subscription to the OnDatabaseDelete trigger. /// procedure StopSubscriptionToDelete() @@ -120,7 +120,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.StopSubscriptionToDelete(); end; - /// + /// /// Informs the consumer app whether there is a provider for this interface. /// /// Returns true if a provider for this interface is installed. @@ -129,7 +129,7 @@ codeunit 600 "Data Archive" exit(DataArchiveImplementation.DataArchiveProviderExists()); end; - /// + /// /// Checks if there is an implementation of an IDataArchiveProvider /// /// A subscriber should set the value to true if it is an implementation of IDataArchiveProvider. @@ -138,7 +138,7 @@ codeunit 600 "Data Archive" DataArchiveImplementation.SetDataArchiveProvider(NewDataArchiveProvider); end; - /// + /// /// Checks if there is an implementation of an IDataArchiveProvider /// /// A subscriber should set the value to true if it is an implementation of IDataArchiveProvider. @@ -147,7 +147,7 @@ codeunit 600 "Data Archive" begin end; - /// + /// /// Asks for an implementation of an IDataArchiveProvider /// /// If true, then the session will be reset. This can be necessary if a deletion has already been made on any table that should be archived. diff --git a/src/System Application/App/Data Archive/src/DataArchiveProvider.Interface.al b/src/System Application/App/Data Archive/src/DataArchiveProvider.Interface.al index 8f0c8d84d3..45f699186a 100644 --- a/src/System Application/App/Data Archive/src/DataArchiveProvider.Interface.al +++ b/src/System Application/App/Data Archive/src/DataArchiveProvider.Interface.al @@ -5,76 +5,76 @@ namespace System.DataAdministration; -/// +/// /// Exposes an interface for Data Archive. /// Data Archive is called from application objects to store data. /// interface "Data Archive Provider" { - /// + /// /// Creates a new archive entry. /// /// The name or description for the archive entry. Will typically be the calling object name. /// The entry no. of the created archive entry - if any. procedure Create(Description: Text): Integer; - /// + /// /// Opens an existing archive entry. /// /// The ID of the archive entry. procedure Open(ID: Integer); - /// + /// /// Saves and closes the currently open archive entry. /// procedure Save(); - /// + /// /// Discards any additions and closes the currently open archive entry. /// procedure DiscardChanges(); - /// + /// /// Saves the supplied record to the currently open archive entry. /// /// The record will be copied to the archive. procedure SaveRecord(var RecordRef: RecordRef); - /// + /// /// Saves the supplied record to the currently open archive entry. /// /// The record will be copied to the archive. procedure SaveRecord(RecordVar: Variant); - /// + /// /// Saves all records within the filters to the currently open archive entry. /// /// All records for the RecRef within the filters will be copied to the archive. procedure SaveRecords(var RecordRef: RecordRef); - /// + /// /// Starts subscription to the OnDatabaseDelete trigger and calls SaveRecord with any deleted record. /// procedure StartSubscriptionToDelete(); - /// + /// /// Starts subscription to the OnDatabaseDelete trigger and calls SaveRecord with any deleted record. /// /// If true, then the session will be reset. This can be necessary if a deletion has already been made on any table that should be archived. procedure StartSubscriptionToDelete(ResetSession: Boolean); - /// + /// /// Stops the subscription to the OnDatabaseDelete trigger. /// procedure StopSubscriptionToDelete(); - /// + /// /// Informs the consumer app whether there is a provider for this interface. /// /// Returns true if a provider for this interface is installed. procedure DataArchiveProviderExists(): Boolean; - /// + /// /// Sets the instance of the provider. Needed for self-reference. /// /// The global instance of IDataArchiveProvider. diff --git a/src/System Application/App/Data Classification/permissions/DataClassificationEdit.PermissionSet.al b/src/System Application/App/Data Classification/permissions/DataClassificationEdit.PermissionSet.al index d44ec3c1ed..f947ebd199 100644 --- a/src/System Application/App/Data Classification/permissions/DataClassificationEdit.PermissionSet.al +++ b/src/System Application/App/Data Classification/permissions/DataClassificationEdit.PermissionSet.al @@ -13,6 +13,6 @@ permissionset 1751 "Data Classification - Edit" IncludedPermissionSets = "Data Classification - Read"; Permissions = tabledata "Data Privacy Entities" = IMD, - tabledata "Fields Sync Status" = imd, - tabledata "Data Sensitivity" = imd; + tabledata "Data Sensitivity" = imd, + tabledata "Fields Sync Status" = imd; } diff --git a/src/System Application/App/Data Classification/permissions/DataClassificationObjects.PermissionSet.al b/src/System Application/App/Data Classification/permissions/DataClassificationObjects.PermissionSet.al index d8addbc0cb..bac151bf35 100644 --- a/src/System Application/App/Data Classification/permissions/DataClassificationObjects.PermissionSet.al +++ b/src/System Application/App/Data Classification/permissions/DataClassificationObjects.PermissionSet.al @@ -10,8 +10,8 @@ permissionset 1752 "Data Classification - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Data Classification Mgt." = X, - Page "Data Classification Wizard" = X, - Page "Data Classification Worksheet" = X, - Page "Field Data Classification" = X; + Permissions = codeunit "Data Classification Mgt." = X, + page "Data Classification Wizard" = X, + page "Data Classification Worksheet" = X, + page "Field Data Classification" = X; } diff --git a/src/System Application/App/Data Classification/permissions/DataClassificationRead.PermissionSet.al b/src/System Application/App/Data Classification/permissions/DataClassificationRead.PermissionSet.al index f8363fc305..21141278a5 100644 --- a/src/System Application/App/Data Classification/permissions/DataClassificationRead.PermissionSet.al +++ b/src/System Application/App/Data Classification/permissions/DataClassificationRead.PermissionSet.al @@ -19,10 +19,10 @@ permissionset 1750 "Data Classification - Read" Permissions = tabledata Company = r, tabledata "Data Privacy Entities" = R, - tabledata "Fields Sync Status" = r, tabledata "Data Sensitivity" = R, tabledata Field = r, - tabledata "Page Data Personalization" = R, // Page.Run requires this + tabledata "Fields Sync Status" = r, + tabledata "Page Data Personalization" = R, tabledata "Table Relations Metadata" = r, tabledata User = r; } diff --git a/src/System Application/App/Data Classification/src/DataClassificationMgtImpl.Codeunit.al b/src/System Application/App/Data Classification/src/DataClassificationMgtImpl.Codeunit.al index f57b2bfb02..1d8ba554d0 100644 --- a/src/System Application/App/Data Classification/src/DataClassificationMgtImpl.Codeunit.al +++ b/src/System Application/App/Data Classification/src/DataClassificationMgtImpl.Codeunit.al @@ -370,7 +370,7 @@ codeunit 1753 "Data Classification Mgt. Impl." begin DataSensitivity.SetRange("Company Name", CompanyName()); DataSensitivity.SetFilter("Table No", DataClassificationMgtImpl.GetTableNoFilterForTablesWhoseNameContains(TableNoFilter)); - PAGE.Run(PAGE::"Data Classification Worksheet", DataSensitivity); + Page.Run(Page::"Data Classification Worksheet", DataSensitivity); end; procedure RunDataClassificationWorksheetForPersonalAndSensitiveDataInTable(TableNo: Integer) @@ -385,7 +385,7 @@ codeunit 1753 "Data Classification Mgt. Impl." DataSensitivity."Data Sensitivity"::Personal, DataSensitivity."Data Sensitivity"::Sensitive)); DataClassificationMgtImpl.FindSimilarFieldsInRelatedTables(DataSensitivity); - PAGE.RunModal(PAGE::"Data Classification Worksheet", DataSensitivity); + Page.RunModal(Page::"Data Classification Worksheet", DataSensitivity); end; procedure RunDataClassificationWorksheetForTable(TableNo: Integer) @@ -395,7 +395,7 @@ codeunit 1753 "Data Classification Mgt. Impl." DataSensitivity.SetRange("Company Name", CompanyName()); DataSensitivity.FilterGroup(2); DataSensitivity.SetRange("Table No", TableNo); - PAGE.RunModal(PAGE::"Data Classification Worksheet", DataSensitivity); + Page.RunModal(Page::"Data Classification Worksheet", DataSensitivity); end; } diff --git a/src/System Application/App/Data Classification/src/DataClassificationWizard.Page.al b/src/System Application/App/Data Classification/src/DataClassificationWizard.Page.al index cc4daee436..646ac4186f 100644 --- a/src/System Application/App/Data Classification/src/DataClassificationWizard.Page.al +++ b/src/System Application/App/Data Classification/src/DataClassificationWizard.Page.al @@ -24,7 +24,7 @@ page 1752 "Data Classification Wizard" layout { - area(content) + area(Content) { group(WelcomePage) { @@ -79,7 +79,7 @@ page 1752 "Data Classification Wizard" trigger OnDrillDown() begin - HyperLink(HelpUrlTxt); + Hyperlink(HelpUrlTxt); end; } } @@ -108,7 +108,7 @@ page 1752 "Data Classification Wizard" ApplicationArea = All; Caption = '- Importing the classifications from another company.'; } - field("ExportModeSelected"; IsExportModeSelectedValue) + field(ExportModeSelected; IsExportModeSelectedValue) { ApplicationArea = All; Caption = 'Export Classification Data to Excel'; @@ -202,7 +202,7 @@ page 1752 "Data Classification Wizard" { ApplicationArea = All; Caption = 'Data on templates is:'; - TooltIp = 'Specifies the default sensitivity classifications to apply to templates that are used to create new records, such as customers or items. You can view the fields to classify them individually.'; + ToolTip = 'Specifies the default sensitivity classifications to apply to templates that are used to create new records, such as customers or items. You can view the fields to classify them individually.'; OptionCaption = 'Unclassified,Sensitive,Personal,Company Confidential,Normal'; } field(Control38; ViewFieldsTok) @@ -226,7 +226,7 @@ page 1752 "Data Classification Wizard" { ApplicationArea = All; Caption = 'Data on setup tables is:'; - Tooltip = 'Specifies the default sensitivity classifications to apply to data on setup tables that control how you will use features, such as the tables used by the general ledger. You can view the fields to classify them individually.'; + ToolTip = 'Specifies the default sensitivity classifications to apply to data on setup tables that control how you will use features, such as the tables used by the general ledger. You can view the fields to classify them individually.'; OptionCaption = 'Unclassified,Sensitive,Personal,Company Confidential,Normal'; } field(Control56; ViewFieldsTok) @@ -438,7 +438,7 @@ page 1752 "Data Classification Wizard" trigger OnAction() begin if ShowWorksheet then - PAGE.Run(PAGE::"Data Classification Worksheet"); + Page.Run(Page::"Data Classification Worksheet"); CurrPage.Close(); end; } @@ -491,7 +491,7 @@ page 1752 "Data Classification Wizard" /// /// Resets the buttons on the page, enabling and disabling them according to the current step. - /// + /// procedure ResetControls() var DataClassificationMgt: Codeunit "Data Classification Mgt."; @@ -544,7 +544,7 @@ page 1752 "Data Classification Wizard" /// /// Queries on whether or not the Next button should be enabled. - /// + /// /// True if the Next button should be enabled and false otherwise. procedure ShouldEnableNext(): Boolean begin @@ -580,8 +580,8 @@ page 1752 "Data Classification Wizard" /// /// Selects the next step. - /// - /// A boolean value that specifies if the next step should be to go back. + /// + /// A boolean value that specifies if the next step should be to go back. procedure NextStep(Backward: Boolean) begin if Backward then begin @@ -599,7 +599,7 @@ page 1752 "Data Classification Wizard" /// /// Displays errors if the preconditions for an action are not met. - /// + /// procedure CheckMandatoryActions() begin if Step = Step::"Verify Related Fields" then begin @@ -616,7 +616,7 @@ page 1752 "Data Classification Wizard" /// /// Queries on whether the Next button is enabled. - /// + /// /// True if the Next button is enabled and false otherwise. procedure IsNextEnabled(): Boolean begin @@ -625,8 +625,8 @@ page 1752 "Data Classification Wizard" /// /// Gets the current step. - /// - /// The current step. + /// + /// The current step. procedure GetStep(): Option begin exit(Step); @@ -634,8 +634,8 @@ page 1752 "Data Classification Wizard" /// /// Sets the current step. - /// - /// The new value of the current step. + /// + /// The new value of the current step. procedure SetStep(StepValue: Option) begin Step := StepValue; @@ -643,8 +643,8 @@ page 1752 "Data Classification Wizard" /// /// Queries on whether import mode is selected. - /// - /// True if import mode is selected and false otherwise. + /// + /// True if import mode is selected and false otherwise. procedure IsImportModeSelected(): Boolean begin exit(IsImportModeSelectedValue); @@ -652,8 +652,8 @@ page 1752 "Data Classification Wizard" /// /// Queries on whether export mode is selected. - /// - /// True if export mode is selected and false otherwise. + /// + /// True if export mode is selected and false otherwise. procedure IsExportModeSelected(): Boolean begin exit(IsExportModeSelectedValue); @@ -661,8 +661,8 @@ page 1752 "Data Classification Wizard" /// /// Queries on whether expert mode is selected. - /// - /// True if expert mode is selected and false otherwise. + /// + /// True if expert mode is selected and false otherwise. procedure IsExpertModeSelected(): Boolean begin exit(IsExpertModeSelectedValue); @@ -670,8 +670,8 @@ page 1752 "Data Classification Wizard" /// /// Gets the default classification for ledger entries. - /// - /// The default classification for ledger entries. + /// + /// The default classification for ledger entries. procedure GetLedgerEntriesDefaultClassification(): Option begin exit(LedgerEntriesDefaultClassifications); @@ -679,8 +679,8 @@ page 1752 "Data Classification Wizard" /// /// Gets the default classification for templates. - /// - /// The default classification for templates. + /// + /// The default classification for templates. procedure GetTemplatesDefaultClassification(): Option begin exit(TemplatesDefaultClassifications); @@ -688,8 +688,8 @@ page 1752 "Data Classification Wizard" /// /// Gets the default classification for setup tables. - /// - /// The default classification for setup tables. + /// + /// The default classification for setup tables. procedure GetSetupTablesDefaultClassification(): Option begin exit(SetupTablesDefaultClassifications); diff --git a/src/System Application/App/Data Classification/src/DataClassificationWorksheet.Page.al b/src/System Application/App/Data Classification/src/DataClassificationWorksheet.Page.al index 01f3bb9052..866becb4ab 100644 --- a/src/System Application/App/Data Classification/src/DataClassificationWorksheet.Page.al +++ b/src/System Application/App/Data Classification/src/DataClassificationWorksheet.Page.al @@ -16,7 +16,7 @@ page 1751 "Data Classification Worksheet" { Caption = 'Data Classification Worksheet'; Extensible = false; - AccessByPermission = TableData "Data Sensitivity" = R; + AccessByPermission = tabledata "Data Sensitivity" = R; ApplicationArea = All; DeleteAllowed = false; InsertAllowed = false; @@ -36,7 +36,7 @@ page 1751 "Data Classification Worksheet" layout { - area(content) + area(Content) { repeater(Group) { @@ -124,7 +124,7 @@ page 1751 "Data Classification Worksheet" actions { - area(processing) + area(Processing) { group(Edit) { @@ -142,7 +142,7 @@ page 1751 "Data Classification Worksheet" trigger OnAction() begin - PAGE.Run(PAGE::"Data Classification Wizard"); + Page.Run(Page::"Data Classification Wizard"); end; } action("Find New Fields") @@ -494,7 +494,7 @@ page 1751 "Data Classification Worksheet" FieldRef := RecordRef.Field(Rec."Field No"); DataClassificationMgtImpl.PopulateFieldValue(FieldRef, TempFieldContentBuffer); until RecordRef.Next() = 0; - PAGE.RunModal(PAGE::"Field Content Buffer", TempFieldContentBuffer); + Page.RunModal(Page::"Field Content Buffer", TempFieldContentBuffer); end; } diff --git a/src/System Application/App/Data Classification/src/DataPrivacyEntities.Table.al b/src/System Application/App/Data Classification/src/DataPrivacyEntities.Table.al index d0e2bac2f1..9899b86082 100644 --- a/src/System Application/App/Data Classification/src/DataPrivacyEntities.Table.al +++ b/src/System Application/App/Data Classification/src/DataPrivacyEntities.Table.al @@ -42,7 +42,7 @@ table 1180 "Data Privacy Entities" Caption = 'Key Field Name'; FieldClass = FlowField; } - field(5; "Entity Filter"; BLOB) + field(5; "Entity Filter"; Blob) { Caption = 'Entity Filter'; DataClassification = SystemMetadata; @@ -116,8 +116,5 @@ table 1180 "Data Privacy Entities" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Data Classification/src/DataPrivacyEntitiesMgt.Codeunit.al b/src/System Application/App/Data Classification/src/DataPrivacyEntitiesMgt.Codeunit.al index 6870b08505..de71d8892f 100644 --- a/src/System Application/App/Data Classification/src/DataPrivacyEntitiesMgt.Codeunit.al +++ b/src/System Application/App/Data Classification/src/DataPrivacyEntitiesMgt.Codeunit.al @@ -27,7 +27,7 @@ codeunit 1758 "Data Privacy Entities Mgt." if TempDataPrivacyEntities.FindSet() then repeat RecordRef.Open(TempDataPrivacyEntities."Table No."); - if (not RecordRef.IsEmpty()) and (TempDataPrivacyEntities."Table No." <> DATABASE::User) then + if (not RecordRef.IsEmpty()) and (TempDataPrivacyEntities."Table No." <> Database::User) then exit(true); RecordRef.Close(); until TempDataPrivacyEntities.Next() = 0; @@ -38,7 +38,7 @@ codeunit 1758 "Data Privacy Entities Mgt." DataClassificationMgt: Codeunit "Data Classification Mgt."; begin if not DataPrivacyEntities.IsTemporary() then - error('Please call this function with a temporary record.'); + Error('Please call this function with a temporary record.'); DataClassificationMgt.OnGetDataPrivacyEntities(DataPrivacyEntities); end; diff --git a/src/System Application/App/Data Classification/src/FieldContentBuffer.Page.al b/src/System Application/App/Data Classification/src/FieldContentBuffer.Page.al index 4550ccb052..e8c9544f65 100644 --- a/src/System Application/App/Data Classification/src/FieldContentBuffer.Page.al +++ b/src/System Application/App/Data Classification/src/FieldContentBuffer.Page.al @@ -24,7 +24,7 @@ page 1753 "Field Content Buffer" layout { - area(content) + area(Content) { repeater(Group) { @@ -37,9 +37,6 @@ page 1753 "Field Content Buffer" } } - actions - { - } } diff --git a/src/System Application/App/Data Classification/src/FieldContentBuffer.Table.al b/src/System Application/App/Data Classification/src/FieldContentBuffer.Table.al index ebed0353f1..2829aca565 100644 --- a/src/System Application/App/Data Classification/src/FieldContentBuffer.Table.al +++ b/src/System Application/App/Data Classification/src/FieldContentBuffer.Table.al @@ -32,8 +32,5 @@ table 1754 "Field Content Buffer" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Data Classification/src/FieldDataClassification.Page.al b/src/System Application/App/Data Classification/src/FieldDataClassification.Page.al index dd230c77e1..9eb791e0c1 100644 --- a/src/System Application/App/Data Classification/src/FieldDataClassification.Page.al +++ b/src/System Application/App/Data Classification/src/FieldDataClassification.Page.al @@ -25,7 +25,7 @@ page 1750 "Field Data Classification" layout { - area(content) + area(Content) { repeater(Group) { @@ -83,9 +83,6 @@ page 1750 "Field Data Classification" } } - actions - { - } } diff --git a/src/System Application/App/Data Classification/src/FieldsSyncStatus.Table.al b/src/System Application/App/Data Classification/src/FieldsSyncStatus.Table.al index 50ae1c1f79..cb91db6e41 100644 --- a/src/System Application/App/Data Classification/src/FieldsSyncStatus.Table.al +++ b/src/System Application/App/Data Classification/src/FieldsSyncStatus.Table.al @@ -31,8 +31,5 @@ table 1750 "Fields Sync Status" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Data Compression/src/dotnet.al b/src/System Application/App/Data Compression/src/dotnet.al index fd7dc81357..4ab4861750 100644 --- a/src/System Application/App/Data Compression/src/dotnet.al +++ b/src/System Application/App/Data Compression/src/dotnet.al @@ -1,25 +1,26 @@ -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace System.IO; - -dotnet -{ - - assembly("netstandard") - { - type("System.IO.Compression.ZipArchive";"ZipArchive") - { - } - - type("System.IO.Compression.ZipArchiveMode";"ZipArchiveMode") - { - } - - type("System.IO.Compression.ZipArchiveEntry";"ZipArchiveEntry") - { - } - } -} +// ------------------------------------------------------------------------------------------------ +// Copyright (c) Microsoft Corporation. All rights reserved. +// Licensed under the MIT License. See License.txt in the project root for license information. +// ------------------------------------------------------------------------------------------------ + +namespace System.IO; + +dotnet +{ + + + assembly("netstandard") + { + type("System.IO.Compression.ZipArchive"; "ZipArchive") + { + } + + type("System.IO.Compression.ZipArchiveMode"; "ZipArchiveMode") + { + } + + type("System.IO.Compression.ZipArchiveEntry"; "ZipArchiveEntry") + { + } + } +} diff --git a/src/System Application/App/Date-Time Dialog/src/DateTimeDialog.Page.al b/src/System Application/App/Date-Time Dialog/src/DateTimeDialog.Page.al index 403a6bad2f..1dc03785ef 100644 --- a/src/System Application/App/Date-Time Dialog/src/DateTimeDialog.Page.al +++ b/src/System Application/App/Date-Time Dialog/src/DateTimeDialog.Page.al @@ -18,7 +18,7 @@ page 684 "Date-Time Dialog" layout { - area(content) + area(Content) { field(Date; DateValue) { @@ -42,9 +42,6 @@ page 684 "Date-Time Dialog" } } - actions - { - } var DateValue: Date; diff --git a/src/System Application/App/Default Role Center/Permissions/DefaultRoleCenterRead.PermissionSet.al b/src/System Application/App/Default Role Center/Permissions/DefaultRoleCenterRead.PermissionSet.al index b95fb5efac..e094f4510b 100644 --- a/src/System Application/App/Default Role Center/Permissions/DefaultRoleCenterRead.PermissionSet.al +++ b/src/System Application/App/Default Role Center/Permissions/DefaultRoleCenterRead.PermissionSet.al @@ -9,9 +9,9 @@ using System.Reflection; permissionset 9171 "Default Role Center - Read" { - Access = internal; + Access = Internal; Assignable = false; - Permissions = tabledata "All Profile" = r, - tabledata AllObjWithCaption = r; + Permissions = tabledata AllObjWithCaption = r, +tabledata "All Profile" = r; } \ No newline at end of file diff --git a/src/System Application/App/Default Role Center/src/BlankRoleCenter.Page.al b/src/System Application/App/Default Role Center/src/BlankRoleCenter.Page.al index b1257ae99a..35773d82c4 100644 --- a/src/System Application/App/Default Role Center/src/BlankRoleCenter.Page.al +++ b/src/System Application/App/Default Role Center/src/BlankRoleCenter.Page.al @@ -15,15 +15,9 @@ page 8999 "Blank Role Center" InherentEntitlements = X; InherentPermissions = X; - layout - { - area(rolecenter) - { - } - } - actions { } + } diff --git a/src/System Application/App/Default Role Center/src/DefaultRoleCenterImpl.Codeunit.al b/src/System Application/App/Default Role Center/src/DefaultRoleCenterImpl.Codeunit.al index d393d9d218..1331557cf5 100644 --- a/src/System Application/App/Default Role Center/src/DefaultRoleCenterImpl.Codeunit.al +++ b/src/System Application/App/Default Role Center/src/DefaultRoleCenterImpl.Codeunit.al @@ -13,8 +13,8 @@ codeunit 9171 "Default Role Center Impl." Access = Internal; InherentEntitlements = X; InherentPermissions = X; - Permissions = tabledata "All Profile" = rm, - tabledata AllObjWithCaption = r; + Permissions = tabledata AllObjWithCaption = r, +tabledata "All Profile" = rm; // // Gets the default Role Center ID for the current user. @@ -40,13 +40,13 @@ codeunit 9171 "Default Role Center Impl." AllProfile.Enabled := true; AllProfile.Modify(); end; - RoleCenterId := PAGE::"Blank Role Center"; + RoleCenterId := Page::"Blank Role Center"; end; exit(RoleCenterId); end; - [EventSubscriber(ObjectType::Codeunit, Codeunit::"System Action Triggers", GetDefaultRoleCenterID, '', false, false)] + [EventSubscriber(ObjectType::Codeunit, Codeunit::"System Action Triggers", GetDefaultRoleCenterId, '', false, false)] local procedure OnGetDefaultRoleCenterId(var ID: Integer) begin Session.LogMessage('0000DUF', StartingGetDefaultRoleCenterMsg, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', TelemetryCategoryTxt); diff --git a/src/System Application/App/Document Sharing/permissions/DocumentSharingObjects.PermissionSet.al b/src/System Application/App/Document Sharing/permissions/DocumentSharingObjects.PermissionSet.al index c641e9971c..99d5074aa4 100644 --- a/src/System Application/App/Document Sharing/permissions/DocumentSharingObjects.PermissionSet.al +++ b/src/System Application/App/Document Sharing/permissions/DocumentSharingObjects.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 9560 "Document Sharing - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Document Sharing" = X, - Page "Document Sharing" = X; + Permissions = codeunit "Document Sharing" = X, + page "Document Sharing" = X; } diff --git a/src/System Application/App/Document Sharing/src/DocumentSharing.Codeunit.al b/src/System Application/App/Document Sharing/src/DocumentSharing.Codeunit.al index 8a1bacfd8b..841b2f4bf7 100644 --- a/src/System Application/App/Document Sharing/src/DocumentSharing.Codeunit.al +++ b/src/System Application/App/Document Sharing/src/DocumentSharing.Codeunit.al @@ -51,9 +51,9 @@ codeunit 9560 "Document Sharing" /// Specifies the file extension (e.g. '.pdf'). /// Specifies the data to be shared (e.g. a report pdf). /// Specifies the sharing intent of the document. - procedure Share(FileName: Text; FileExtension: Text; InStream: Instream; DocumentSharingIntent: Enum "Document Sharing Intent") + procedure Share(FileName: Text; FileExtension: Text; InStream: InStream; DocumentSharingIntent: Enum "Document Sharing Intent") begin - Share(FileName, FileExtension, Instream, DocumentSharingIntent, "Document Sharing Source"::App); + Share(FileName, FileExtension, InStream, DocumentSharingIntent, "Document Sharing Source"::App); end; /// @@ -64,11 +64,11 @@ codeunit 9560 "Document Sharing" /// Specifies the data to be shared (e.g. a report pdf). /// Specifies the sharing intent of the document. /// Specifies the sharing source of the document. - procedure Share(FileName: Text; FileExtension: Text; InStream: Instream; DocumentSharingIntent: Enum "Document Sharing Intent"; DocumentSharingSource: Enum "Document Sharing Source") + procedure Share(FileName: Text; FileExtension: Text; InStream: InStream; DocumentSharingIntent: Enum "Document Sharing Intent"; DocumentSharingSource: Enum "Document Sharing Source") var DocumentSharingImpl: Codeunit "Document Sharing Impl."; begin - DocumentSharingImpl.Share(FileName, FileExtension, Instream, DocumentSharingIntent, DocumentSharingSource); + DocumentSharingImpl.Share(FileName, FileExtension, InStream, DocumentSharingIntent, DocumentSharingSource); end; /// diff --git a/src/System Application/App/Document Sharing/src/DocumentSharing.Table.al b/src/System Application/App/Document Sharing/src/DocumentSharing.Table.al index 5f29045adb..9c3c6c07d0 100644 --- a/src/System Application/App/Document Sharing/src/DocumentSharing.Table.al +++ b/src/System Application/App/Document Sharing/src/DocumentSharing.Table.al @@ -100,7 +100,7 @@ table 9560 "Document Sharing" /// /// Specifies the sharing source of the document. /// - field(10; "Source"; Enum "Document Sharing Source") + field(10; Source; Enum "Document Sharing Source") { DataClassification = SystemMetadata; } diff --git a/src/System Application/App/Document Sharing/src/DocumentSharingImpl.Codeunit.al b/src/System Application/App/Document Sharing/src/DocumentSharingImpl.Codeunit.al index 0fd09fc28f..e746262114 100644 --- a/src/System Application/App/Document Sharing/src/DocumentSharingImpl.Codeunit.al +++ b/src/System Application/App/Document Sharing/src/DocumentSharingImpl.Codeunit.al @@ -167,7 +167,7 @@ codeunit 9561 "Document Sharing Impl." exit(CanHandle); end; - procedure Share(FileName: Text; FileExtension: Text; InStream: Instream; DocumentSharingIntent: Enum "Document Sharing Intent"; DocumentSharingSource: Enum "Document Sharing Source") + procedure Share(FileName: Text; FileExtension: Text; InStream: InStream; DocumentSharingIntent: Enum "Document Sharing Intent"; DocumentSharingSource: Enum "Document Sharing Source") var TempDocumentSharing: Record "Document Sharing" temporary; OutStream: OutStream; diff --git a/src/System Application/App/DotNet Aliases/src/dotnet.al b/src/System Application/App/DotNet Aliases/src/dotnet.al index 1d546c13c9..0d1f113a74 100644 --- a/src/System Application/App/DotNet Aliases/src/dotnet.al +++ b/src/System Application/App/DotNet Aliases/src/dotnet.al @@ -350,7 +350,7 @@ dotnet type("Microsoft.Dynamics.Nav.Client.PageReady.IPageReady"; "Microsoft.Dynamics.Nav.Client.PageReady") { - IsControlAddin = true; + IsControlAddIn = true; } } @@ -359,7 +359,7 @@ dotnet type("Microsoft.Dynamics.Nav.Client.VideoPlayer.IVideoPlayer"; "Microsoft.Dynamics.Nav.Client.VideoPlayer") { - IsControlAddin = true; + IsControlAddIn = true; } } diff --git a/src/System Application/App/Edit in Excel/permissions/EditInExcelRead.PermissionSet.al b/src/System Application/App/Edit in Excel/permissions/EditInExcelRead.PermissionSet.al index 909e060fb0..6cb748ac36 100644 --- a/src/System Application/App/Edit in Excel/permissions/EditInExcelRead.PermissionSet.al +++ b/src/System Application/App/Edit in Excel/permissions/EditInExcelRead.PermissionSet.al @@ -14,5 +14,5 @@ permissionset 1481 "Edit in Excel - Read" IncludedPermissionSets = "Edit in Excel - Objects"; - Permissions = TableData "Media Resources" = r; + Permissions = tabledata "Media Resources" = r; } diff --git a/src/System Application/App/Edit in Excel/permissions/EditinExcelObjects.PermissionSet.al b/src/System Application/App/Edit in Excel/permissions/EditinExcelObjects.PermissionSet.al index 6e9a2d6903..4db84468de 100644 --- a/src/System Application/App/Edit in Excel/permissions/EditinExcelObjects.PermissionSet.al +++ b/src/System Application/App/Edit in Excel/permissions/EditinExcelObjects.PermissionSet.al @@ -10,7 +10,7 @@ permissionset 1488 "Edit in Excel - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Edit in Excel" = X, - Codeunit "Edit in Excel Workbook" = X, - Page "Excel Centralized Depl. Wizard" = X; + Permissions = codeunit "Edit in Excel" = X, + codeunit "Edit in Excel Workbook" = X, + page "Excel Centralized Depl. Wizard" = X; } diff --git a/src/System Application/App/Edit in Excel/src/EditInExcelWorkbookImpl.Codeunit.al b/src/System Application/App/Edit in Excel/src/EditInExcelWorkbookImpl.Codeunit.al index ae71e70e89..f06232725b 100644 --- a/src/System Application/App/Edit in Excel/src/EditInExcelWorkbookImpl.Codeunit.al +++ b/src/System Application/App/Edit in Excel/src/EditInExcelWorkbookImpl.Codeunit.al @@ -69,8 +69,8 @@ codeunit 1489 "Edit in Excel Workbook Impl." FieldFilters: DotNet GenericDictionary2; begin EntityFilterCollectionNode := EntityFilterCollectionNode.FilterCollectionNode(); // One filter collection node for entire entity - EntityFilterCollectionNode.Operator := format("Excel Filter Node Type"::"and"); - EditinExcelFilters.GetFilters(FieldFilters); + EntityFilterCollectionNode.Operator := Format("Excel Filter Node Type"::"and"); + EditInExcelFilters.GetFilters(FieldFilters); if not IsNull(FieldFilters) then foreach ChildFilterCollectionNode in FieldFilters.Values do @@ -167,9 +167,9 @@ codeunit 1489 "Edit in Excel Workbook Impl." DataEntityExportInfo.EnableDesign := true; DataEntityExportInfo.RefreshOnOpen := true; DataEntityExportInfo.DateCreated := CurrentDateTime(); - DataEntityExportInfo.GenerationActivityId := format(SessionId()); + DataEntityExportInfo.GenerationActivityId := Format(SessionId()); - DocumentId := format(CreateGuid(), 0, 4); + DocumentId := Format(CreateGuid(), 0, 4); DataEntityExportInfo.DocumentId := DocumentId; Session.LogMessage('0000GYB', StrSubstNo(CreatingExcelDocumentWithIdTxt, DocumentId), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', EditInExcelTelemetryCategoryTxt); @@ -183,7 +183,7 @@ codeunit 1489 "Edit in Excel Workbook Impl." local procedure CreateOfficeAppInfo(var OfficeAppInfo: DotNet OfficeAppInfo) // Note: Keep this in sync with BaseApp - ODataUtility var - EditinExcelSettings: record "Edit in Excel Settings"; + EditinExcelSettings: Record "Edit in Excel Settings"; begin OfficeAppInfo := OfficeAppInfo.OfficeAppInfo(); if EditinExcelSettings.Get() and EditinExcelSettings."Use Centralized deployments" then begin diff --git a/src/System Application/App/Edit in Excel/src/EditinExcelImpl.Codeunit.al b/src/System Application/App/Edit in Excel/src/EditinExcelImpl.Codeunit.al index 7c173ef372..a8dbe0a5d8 100644 --- a/src/System Application/App/Edit in Excel/src/EditinExcelImpl.Codeunit.al +++ b/src/System Application/App/Edit in Excel/src/EditinExcelImpl.Codeunit.al @@ -20,10 +20,10 @@ codeunit 1482 "Edit in Excel Impl." InherentPermissions = X; #if not CLEAN22 - Permissions = TableData "Tenant Web Service OData" = rimd, - TableData "Tenant Web Service Columns" = rimd, - TableData "Tenant Web Service Filter" = rimd, - TableData "Tenant Web Service" = r; + Permissions = tabledata "Tenant Web Service" = r, + tabledata "Tenant Web Service Columns" = rimd, + tabledata "Tenant Web Service Filter" = rimd, +tabledata "Tenant Web Service OData" = rimd; #endif var @@ -95,7 +95,7 @@ codeunit 1482 "Edit in Excel Impl." EditinExcelWorkbook: Codeunit "Edit in Excel Workbook"; begin if (not TenantWebService.Get(TenantWebService."Object Type"::Page, ServiceName)) then - error(EditInExcelOnlySupportPageWebServicesTxt); + Error(EditInExcelOnlySupportPageWebServicesTxt); Session.LogMessage('0000DB6', StrSubstNo(CreateEndpointForObjectTxt, TenantWebService."Object Type", TenantWebService."Object ID"), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', EditInExcelTelemetryCategoryTxt); @@ -110,7 +110,7 @@ codeunit 1482 "Edit in Excel Impl." var FieldsTable: Record "Field"; PageControlField: Record "Page Control Field"; - PageMetadata: record "Page Metadata"; + PageMetadata: Record "Page Metadata"; DocumentSharing: Codeunit "Document Sharing"; RecordRef: RecordRef; VarFieldRef: FieldRef; @@ -301,9 +301,9 @@ codeunit 1482 "Edit in Excel Impl." DataEntityExportInfo.EnableDesign := true; DataEntityExportInfo.RefreshOnOpen := true; DataEntityExportInfo.DateCreated := CurrentDateTime(); - DataEntityExportInfo.GenerationActivityId := format(SessionId()); + DataEntityExportInfo.GenerationActivityId := Format(SessionId()); - DocumentId := format(CreateGuid(), 0, 4); + DocumentId := Format(CreateGuid(), 0, 4); DataEntityExportInfo.DocumentId := DocumentId; Session.LogMessage('0000GYB', StrSubstNo(CreatingExcelDocumentWithIdTxt, DocumentId), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', EditInExcelTelemetryCategoryTxt); @@ -349,7 +349,7 @@ codeunit 1482 "Edit in Excel Impl." exit(ServiceName); end; - local procedure NameBeginsWithADigit(Name: text[240]): Boolean + local procedure NameBeginsWithADigit(Name: Text[240]): Boolean begin if Name[1] in ['0' .. '9'] then exit(true); @@ -436,7 +436,7 @@ codeunit 1482 "Edit in Excel Impl." local procedure CreateOfficeAppInfo(var OfficeAppInfo: DotNet OfficeAppInfo) // Note: Keep this in sync with BaseApp - ODataUtility var - EditinExcelSettings: record "Edit in Excel Settings"; + EditinExcelSettings: Record "Edit in Excel Settings"; begin OfficeAppInfo := OfficeAppInfo.OfficeAppInfo(); if EditinExcelSettings.Get() and EditinExcelSettings."Use Centralized deployments" then begin diff --git a/src/System Application/App/Edit in Excel/src/ExcelCentralizedDeplWizard.Page.al b/src/System Application/App/Edit in Excel/src/ExcelCentralizedDeplWizard.Page.al index 280dd05e2e..823b4180b7 100644 --- a/src/System Application/App/Edit in Excel/src/ExcelCentralizedDeplWizard.Page.al +++ b/src/System Application/App/Edit in Excel/src/ExcelCentralizedDeplWizard.Page.al @@ -26,7 +26,7 @@ page 1480 "Excel Centralized Depl. Wizard" layout { - area(content) + area(Content) { group(Done) { @@ -50,7 +50,7 @@ page 1480 "Excel Centralized Depl. Wizard" { Caption = 'Business Central Excel add-in setup'; - group("IntroductionSubgroup") + group(IntroductionSubgroup) { Caption = ''; @@ -170,7 +170,7 @@ page 1480 "Excel Centralized Depl. Wizard" field(DeploymentType; Rec."Use Centralized deployments") { Caption = 'Use Centralized Deployment'; - Tooltip = 'Specifies the use of Centralized Deployment on this environment.'; + ToolTip = 'Specifies the use of Centralized Deployment on this environment.'; ApplicationArea = All; } field(LearnAboutConfiguringBcForCentralizedDeployment; LearnAboutConfiguringBcForCentralizedDeploymentLinkTxt) @@ -190,7 +190,7 @@ page 1480 "Excel Centralized Depl. Wizard" } actions { - area(processing) + area(Processing) { action(ActionBack) { diff --git a/src/System Application/App/Edit in Excel/src/Filters/EditInExcelFiltersImpl.Codeunit.al b/src/System Application/App/Edit in Excel/src/Filters/EditInExcelFiltersImpl.Codeunit.al index 549fcca481..ac3227e5b9 100644 --- a/src/System Application/App/Edit in Excel/src/Filters/EditInExcelFiltersImpl.Codeunit.al +++ b/src/System Application/App/Edit in Excel/src/Filters/EditInExcelFiltersImpl.Codeunit.al @@ -35,7 +35,7 @@ codeunit 1491 "Edit in Excel Filters Impl." procedure AddField(ODataFieldName: Text; EditinExcelFilterCollectionType: Enum "Edit in Excel Filter Collection Type"; EditInExcelEdmType: Enum "Edit in Excel Edm Type"): Interface "Edit in Excel Field Filter" begin - TryAdd(ODataFieldName, EditinExcelFilterCollectionType, format(EditInExcelEdmType)); + TryAdd(ODataFieldName, EditinExcelFilterCollectionType, Format(EditInExcelEdmType)); exit(Get(ODataFieldName)); end; @@ -137,7 +137,7 @@ codeunit 1491 "Edit in Excel Filters Impl." Session.LogMessage('0000I3X', FilterContainsMultipleOperatorsTxt, Verbosity::Warning, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', EditInExcelTelemetryCategoryTxt); exit; // OData does not support filtering on a field with both 'and' and 'or' hence if we see both, ignore the second type end; - Get(ODataFieldName).AddFilterValue(EditInExcelFilterType, FilterValue); + Get(ODataFieldName).AddFilterValue(EditinExcelFilterType, FilterValue); end; end; end; @@ -196,7 +196,7 @@ codeunit 1491 "Edit in Excel Filters Impl." Error(FilterAlreadyExistErr, ODataFieldName); FilterCollectionNode := FilterCollectionNode.FilterCollectionNode(); - FilterCollectionNode.Operator := format(EditInExcelFilterOperatorType); + FilterCollectionNode.Operator := Format(EditInExcelFilterOperatorType); FieldFilters.Add(ODataFieldName, FilterCollectionNode); FieldTypes.Add(ODataFieldName, EdmType); end; diff --git a/src/System Application/App/Edit in Excel/src/Filters/EditInExcelFldFilterImpl.Codeunit.al b/src/System Application/App/Edit in Excel/src/Filters/EditInExcelFldFilterImpl.Codeunit.al index 9e13c6eda0..fd4ce688f2 100644 --- a/src/System Application/App/Edit in Excel/src/Filters/EditInExcelFldFilterImpl.Codeunit.al +++ b/src/System Application/App/Edit in Excel/src/Filters/EditInExcelFldFilterImpl.Codeunit.al @@ -70,7 +70,7 @@ codeunit 1492 "Edit in Excel Fld Filter Impl." implements "Edit in Excel Field F ExcelFilterNodeType := "Excel Filter Node Type".FromInteger(EditInExcelFilterType.AsInteger()); // Convert from readable "Less Than" to OData "lt" FilterBinaryNode := FilterBinaryNode.FilterBinaryNode(); FilterBinaryNode.Left := FilterLeftOperand; - FilterBinaryNode.Operator := format(ExcelFilterNodeType); + FilterBinaryNode.Operator := Format(ExcelFilterNodeType); FilterBinaryNode.Right := FilterValue; FilterCollectionNode.Collection.Add(FilterBinaryNode); diff --git a/src/System Application/App/Email/permissions/EmailAdmin.PermissionSet.al b/src/System Application/App/Email/permissions/EmailAdmin.PermissionSet.al index 89ae5f7601..2ad45063f9 100644 --- a/src/System Application/App/Email/permissions/EmailAdmin.PermissionSet.al +++ b/src/System Application/App/Email/permissions/EmailAdmin.PermissionSet.al @@ -14,6 +14,6 @@ permissionset 8902 "Email - Admin" IncludedPermissionSets = "Email - Edit"; Permissions = tabledata "Email Scenario" = imd, - tabledata "Email View Policy" = RIMd, - tabledata "Email Scenario Attachments" = imd; + tabledata "Email Scenario Attachments" = imd, + tabledata "Email View Policy" = RIMd; } diff --git a/src/System Application/App/Email/permissions/EmailObjects.PermissionSet.al b/src/System Application/App/Email/permissions/EmailObjects.PermissionSet.al index 14cae51d6c..0520239e38 100644 --- a/src/System Application/App/Email/permissions/EmailObjects.PermissionSet.al +++ b/src/System Application/App/Email/permissions/EmailObjects.PermissionSet.al @@ -10,42 +10,42 @@ permissionset 8906 "Email - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Email Account" = X, - Codeunit "Email Address Lookup" = X, - Codeunit "Email Dispatcher" = X, - Codeunit "Email Message" = X, - Codeunit "Email Scenario" = X, - Codeunit "Email Test Mail" = X, - Codeunit "Email" = X, - Page "Email Account Wizard" = X, - Page "Email Accounts" = X, - Page "Email Activities" = X, - Page "Email Address Lookup" = X, - Page "Email Attachments" = X, - Page "Email Scenario Attach Setup" = X, - Page "Email Choose Scenario Attach" = X, - Page "Email Editor" = X, - Page "Email Outbox" = X, - Page "Email Related Attachments" = X, - Page "Email Relation Picker" = X, - Page "Email Scenario Setup" = X, - Page "Email Scenarios FactBox" = X, - Page "Email Scenarios for Account" = X, - Page "Email User-Specified Address" = X, - Page "Email Viewer" = X, - Page "Email View Policy List" = X, - Page "Email Rate Limit Wizard" = X, - Page "Sent Emails" = X, - Page "Sent Emails List Part" = X, - Table "Email Attachments" = X, - Table "Email Scenario Attachments" = X, - Table "Email Account" = X, - Table "Email Connector" = X, - Table "Email Related Attachment" = X, - Table "Email Outbox" = X, - Table "Email Scenario" = X, - Table "Sent Email" = X, - Query "Email Related Record" = X, - Query "Sent Emails" = X, - Query "Outbox Emails" = X; + Permissions = table "Email Account" = X, + table "Email Attachments" = X, + table "Email Connector" = X, + table "Email Outbox" = X, + table "Email Related Attachment" = X, + table "Email Scenario" = X, + table "Email Scenario Attachments" = X, + table "Sent Email" = X, + codeunit Email = X, +codeunit "Email Account" = X, + codeunit "Email Address Lookup" = X, + codeunit "Email Dispatcher" = X, + codeunit "Email Message" = X, + codeunit "Email Scenario" = X, + codeunit "Email Test Mail" = X, + page "Email Accounts" = X, + page "Email Account Wizard" = X, + page "Email Activities" = X, + page "Email Address Lookup" = X, + page "Email Attachments" = X, + page "Email Choose Scenario Attach" = X, + page "Email Editor" = X, + page "Email Outbox" = X, + page "Email Rate Limit Wizard" = X, + page "Email Related Attachments" = X, + page "Email Relation Picker" = X, + page "Email Scenario Attach Setup" = X, + page "Email Scenario Setup" = X, + page "Email Scenarios FactBox" = X, + page "Email Scenarios for Account" = X, + page "Email User-Specified Address" = X, + page "Email Viewer" = X, + page "Email View Policy List" = X, + page "Sent Emails" = X, + page "Sent Emails List Part" = X, + query "Email Related Record" = X, + query "Outbox Emails" = X, + query "Sent Emails" = X; } diff --git a/src/System Application/App/Email/permissions/EmailRead.PermissionSet.al b/src/System Application/App/Email/permissions/EmailRead.PermissionSet.al index 3bce2b2181..c0e5bcdeb6 100644 --- a/src/System Application/App/Email/permissions/EmailRead.PermissionSet.al +++ b/src/System Application/App/Email/permissions/EmailRead.PermissionSet.al @@ -18,22 +18,22 @@ permissionset 8900 "Email - Read" IncludedPermissionSets = "Email - Objects", "Retention Policy - View"; - Permissions = tabledata "Email Connector Logo" = r, + Permissions = tabledata "Email Attachments" = r, +tabledata "Email Connector Logo" = r, tabledata "Email Error" = r, - tabledata "Email Outbox" = r, - tabledata "Email Rate Limit" = r, - tabledata "Sent Email" = r, tabledata "Email Message" = r, tabledata "Email Message Attachment" = r, + tabledata "Email Outbox" = r, + tabledata "Email Rate Limit" = r, tabledata "Email Recipient" = r, tabledata "Email Related Record" = r, tabledata "Email Scenario" = r, - tabledata "Email Attachments" = r, tabledata "Email Scenario Attachments" = r, tabledata "Email View Policy" = r, tabledata Field = r, - tabledata Media = r, // Email Account Wizard requires this + tabledata Media = r, tabledata "Media Resources" = r, + tabledata "Sent Email" = r, tabledata "Tenant Media" = r, tabledata User = R; } diff --git a/src/System Application/App/Email/src/Account/EmailAccountImpl.Codeunit.al b/src/System Application/App/Email/src/Account/EmailAccountImpl.Codeunit.al index 7601e61e5f..bb1628c828 100644 --- a/src/System Application/App/Email/src/Account/EmailAccountImpl.Codeunit.al +++ b/src/System Application/App/Email/src/Account/EmailAccountImpl.Codeunit.al @@ -154,7 +154,7 @@ codeunit 8889 "Email Account Impl." TempBlob: Codeunit "Temp Blob"; InStream: InStream; ConnectorLogoDescriptionTxt: Label '%1 Logo', Locked = true; - OutStream: Outstream; + OutStream: OutStream; ConnectorLogoBase64: Text; begin ConnectorLogoBase64 := Connector.GetLogoAsBase64(); @@ -208,7 +208,7 @@ codeunit 8889 "Email Account Impl." Base64Convert: Codeunit "Base64 Convert"; Connector: Enum "Email Connector"; ConnectorInterface: Interface "Email Connector"; - OutStream: Outstream; + OutStream: OutStream; ConnectorLogoBase64: Text; begin foreach Connector in Enum::"Email Connector".Ordinals() do begin @@ -255,7 +255,7 @@ codeunit 8889 "Email Account Impl." local procedure ImportLogoBlob(var EmailAccount: Record "Email Account"; Connector: Interface "Email Connector") var Base64Convert: Codeunit "Base64 Convert"; - OutStream: Outstream; + OutStream: OutStream; ConnectorLogoBase64: Text; begin ConnectorLogoBase64 := Connector.GetLogoAsBase64(); diff --git a/src/System Application/App/Email/src/Account/EmailAccountWizard.Page.al b/src/System Application/App/Email/src/Account/EmailAccountWizard.Page.al index e15a0852ed..35e3efc2ae 100644 --- a/src/System Application/App/Email/src/Account/EmailAccountWizard.Page.al +++ b/src/System Application/App/Email/src/Account/EmailAccountWizard.Page.al @@ -440,7 +440,7 @@ page 8886 "Email Account Wizard" ShowChooseConnectorStep(); Step::"Register Account": ShowRegisterAccountStep(); - Step::"Done": + Step::Done: ShowDoneStep(); end; end; diff --git a/src/System Application/App/Email/src/Account/EmailAccounts.Page.al b/src/System Application/App/Email/src/Account/EmailAccounts.Page.al index cf4586c9a9..2425802a28 100644 --- a/src/System Application/App/Email/src/Account/EmailAccounts.Page.al +++ b/src/System Application/App/Email/src/Account/EmailAccounts.Page.al @@ -114,7 +114,7 @@ page 8887 "Email Accounts" } } - area(factboxes) + area(FactBoxes) { part(Scenarios; "Email Scenarios FactBox") { @@ -179,7 +179,7 @@ page 8887 "Email Accounts" trigger OnAction() var - Email: Codeunit "Email"; + Email: Codeunit Email; EmailMessage: Codeunit "Email Message"; begin EmailMessage.Create('', '', '', true); diff --git a/src/System Application/App/Email/src/Email/Email.Codeunit.al b/src/System Application/App/Email/src/Email/Email.Codeunit.al index 8a1d7c900a..2306decf1a 100644 --- a/src/System Application/App/Email/src/Email/Email.Codeunit.al +++ b/src/System Application/App/Email/src/Email/Email.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Email; /// /// Provides functionality to create and send emails. /// -codeunit 8901 "Email" +codeunit 8901 Email { Access = Public; @@ -452,7 +452,7 @@ codeunit 8901 "Email" end; /// - /// Integration event to get the names and IDs of attachments related to a source record. + /// Integration event to get the names and IDs of attachments related to a source record. /// /// The table number of the source record. /// The system ID of the source record. diff --git a/src/System Application/App/Email/src/Email/EmailActivities.Page.al b/src/System Application/App/Email/src/Email/EmailActivities.Page.al index f27b8cee10..a8f4707ac4 100644 --- a/src/System Application/App/Email/src/Email/EmailActivities.Page.al +++ b/src/System Application/App/Email/src/Email/EmailActivities.Page.al @@ -15,7 +15,7 @@ page 8885 "Email Activities" layout { - area(content) + area(Content) { cuegroup(OutboxCueContainer) { diff --git a/src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachImpl.Codeunit.al b/src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachImpl.Codeunit.al index ba07bb9084..fd3993f618 100644 --- a/src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachImpl.Codeunit.al +++ b/src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachImpl.Codeunit.al @@ -22,7 +22,7 @@ codeunit 8902 "Email Scenario Attach Impl." procedure GetEmailAttachmentsByEmailScenarios(var Result: Record "Email Attachments"; EmailScenario: Integer) var EmailScenarioAttachments: Record "Email Scenario Attachments"; - Email: Codeunit "Email"; + Email: Codeunit Email; begin Email.OnBeforeGetEmailAttachmentsByEmailScenarios(EmailScenarioAttachments); if EmailScenario <> 0 then @@ -107,7 +107,7 @@ codeunit 8902 "Email Scenario Attach Impl." var EmailScenario: Integer; FileName: Text; - Instream: Instream; + Instream: InStream; begin if not SelectedScenarios.FindSet() then exit; @@ -135,7 +135,7 @@ codeunit 8902 "Email Scenario Attach Impl." procedure AddAttachment(var EmailScenarioAttachments: Record "Email Scenario Attachments"; var EmailAttachments: Record "Email Attachments"; EmailScenario: Integer) var FileName: Text; - Instream: Instream; + Instream: InStream; begin ClearLastError(); if not UploadIntoStream(AddFileToCurrentScenarioMsg, '', '', FileName, Instream) then diff --git a/src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachSetup.Page.al b/src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachSetup.Page.al index fa498c0b68..db0030869e 100644 --- a/src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachSetup.Page.al +++ b/src/System Application/App/Email/src/Email/EmailAttachmens/EmailScenarioAttachSetup.Page.al @@ -53,7 +53,7 @@ page 8897 "Email Scenario Attach Setup" { ApplicationArea = All; Caption = 'Email Scenario'; - Tooltip = 'Specifies the email scenario that the attachment came from. Attachments set as default for email scenarios are automatically attached to emails that are sent from processes related to the scenario.'; + ToolTip = 'Specifies the email scenario that the attachment came from. Attachments set as default for email scenarios are automatically attached to emails that are sent from processes related to the scenario.'; Editable = false; Visible = not (IsVisible); } @@ -106,7 +106,7 @@ page 8897 "Email Scenario Attach Setup" EmailScenarioAttachments: Record "Email Scenario Attachments"; SelectedScenarios: Record "Email Account Scenario"; FeatureTelemetry: Codeunit "Feature Telemetry"; - ScenariosForAccount: Page "Email Scenarios For Account"; + ScenariosForAccount: Page "Email Scenarios for Account"; begin ScenariosForAccount.SetIncludeDefaultEmailScenario(true); ScenariosForAccount.LookupMode(true); diff --git a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al index 9c1516b3dc..5f165f2982 100644 --- a/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al +++ b/src/System Application/App/Email/src/Email/EmailImpl.Codeunit.al @@ -213,7 +213,7 @@ codeunit 8900 "Email Impl" var EmailAccountRec: Record "Email Account"; CurrentUser: Record User; - Email: Codeunit "Email"; + Email: Codeunit Email; EmailMessageImpl: Codeunit "Email Message Impl."; EmailDispatcher: Codeunit "Email Dispatcher"; TaskId: Guid; @@ -255,7 +255,7 @@ codeunit 8900 "Email Impl" end; end; - local procedure BeforeSendEmail(var EmailMessage: codeunit "Email Message") + local procedure BeforeSendEmail(var EmailMessage: Codeunit "Email Message") var Email: Codeunit Email; Telemetry: Codeunit Telemetry; @@ -608,7 +608,7 @@ codeunit 8900 "Email Impl" internal procedure GetRecordRef(RecRelatedVariant: Variant; var ResultRecordRef: RecordRef): Boolean var - RecID: RecordID; + RecID: RecordId; begin case true of RecRelatedVariant.IsRecord: diff --git a/src/System Application/App/Email/src/Email/EmailRecordReferenceImpl.Codeunit.al b/src/System Application/App/Email/src/Email/EmailRecordReferenceImpl.Codeunit.al index 8b75bc21c9..3926979cca 100644 --- a/src/System Application/App/Email/src/Email/EmailRecordReferenceImpl.Codeunit.al +++ b/src/System Application/App/Email/src/Email/EmailRecordReferenceImpl.Codeunit.al @@ -56,7 +56,7 @@ codeunit 8903 "Email Record Reference Impl." implements "Record Reference" local procedure VerifyCallerModuleId(CallerModuleId: Guid) begin if not (CallerModuleId = InitializedCallerModuleId) then - error(IncorrectCallerAppIdErr, InitializedCallerModuleId, CallerModuleId); + Error(IncorrectCallerAppIdErr, InitializedCallerModuleId, CallerModuleId); end; procedure ReadPermission(RecordRef: RecordRef): Boolean diff --git a/src/System Application/App/Email/src/Email/Outbox/EmailEditor.Codeunit.al b/src/System Application/App/Email/src/Email/Outbox/EmailEditor.Codeunit.al index e998420b9d..c6218cafae 100644 --- a/src/System Application/App/Email/src/Email/Outbox/EmailEditor.Codeunit.al +++ b/src/System Application/App/Email/src/Email/Outbox/EmailEditor.Codeunit.al @@ -161,7 +161,7 @@ codeunit 8906 "Email Editor" procedure UploadAttachment(EmailMessageImpl: Codeunit "Email Message Impl.") var FileName: Text; - Instream: Instream; + Instream: InStream; AttachmentName, ContentType : Text[250]; AttachamentSize: Integer; begin @@ -170,7 +170,7 @@ codeunit 8906 "Email Editor" exit; AttachmentName := CopyStr(FileName, 1, 250); - ContentType := EmailMessageImpl.GetContentTypeFromFilename(Filename); + ContentType := EmailMessageImpl.GetContentTypeFromFilename(FileName); AttachamentSize := EmailMessageImpl.AddAttachmentInternal(AttachmentName, ContentType, Instream); Session.LogMessage('0000CTX', StrSubstNo(UploadingAttachmentMsg, AttachamentSize, ContentType), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', EmailCategoryLbl); @@ -261,7 +261,7 @@ codeunit 8906 "Email Editor" procedure AttachFromRelatedRecords(EmailMessageID: Guid); var EmailRelatedAttachment: Record "Email Related Attachment"; - Email: Codeunit "Email"; + Email: Codeunit Email; EmailRelatedAttachmentsPage: Page "Email Related Attachments"; begin EmailRelatedAttachmentsPage.LookupMode(true); @@ -378,7 +378,7 @@ codeunit 8906 "Email Editor" Filename := WordTemplateRecord.Name + '.' + WordTemplateSelectionWizard.GetDocumentFormat(); ContentType := EmailMessageImpl.GetContentTypeFromFilename(Filename); - FileSize := EmailMessageImpl.AddAttachmentInternal(CopyStr(Filename, 1, 250), ContentType, Instream); + FileSize := EmailMessageImpl.AddAttachmentInternal(CopyStr(Filename, 1, 250), ContentType, InStream); Session.LogMessage('0000FL4', StrSubstNo(UploadingTemplateAttachmentMsg, FileSize, ContentType), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', EmailCategoryLbl); end else @@ -446,7 +446,7 @@ codeunit 8906 "Email Editor" TempCache.Add(RelatedRecordsCache.Keys.Get(Count), TempGuid); end; - // Remove related records that is To, Cc, Bcc + // Remove related records that is To, Cc, Bcc EmailMessage.Get(MessageID); RemoveFromCacheIfExists(TempCache, EmailMessage, Enum::"Email Recipient Type"::"To"); RemoveFromCacheIfExists(TempCache, EmailMessage, Enum::"Email Recipient Type"::Cc); diff --git a/src/System Application/App/Email/src/Email/Outbox/EmailEditor.Page.al b/src/System Application/App/Email/src/Email/Outbox/EmailEditor.Page.al index 81563b7ca3..41136c796a 100644 --- a/src/System Application/App/Email/src/Email/Outbox/EmailEditor.Page.al +++ b/src/System Application/App/Email/src/Email/Outbox/EmailEditor.Page.al @@ -159,7 +159,7 @@ page 13 "Email Editor" ApplicationArea = All; ToolTip = 'Specifies the content of the email.'; MultiLine = true; - ExtendedDataType = RichContent; + ExtendedDatatype = RichContent; Editable = not EmailScheduled; trigger OnValidate() diff --git a/src/System Application/App/Email/src/Email/Outbox/EmailOutbox.Page.al b/src/System Application/App/Email/src/Email/Outbox/EmailOutbox.Page.al index 42c5159f67..79a4ed3dfe 100644 --- a/src/System Application/App/Email/src/Email/Outbox/EmailOutbox.Page.al +++ b/src/System Application/App/Email/src/Email/Outbox/EmailOutbox.Page.al @@ -268,7 +268,7 @@ page 8882 "Email Outbox" if ActualDuration >= RateLimitDuration then exit(true) end; - until Emailoutbox.Next() = 0; + until EmailOutbox.Next() = 0; exit(false); end; diff --git a/src/System Application/App/Email/src/Email/Outbox/OutboxEmails.Query.al b/src/System Application/App/Email/src/Email/Outbox/OutboxEmails.Query.al index 60a466c3be..eda7810e85 100644 --- a/src/System Application/App/Email/src/Email/Outbox/OutboxEmails.Query.al +++ b/src/System Application/App/Email/src/Email/Outbox/OutboxEmails.Query.al @@ -10,7 +10,7 @@ using System.Security.AccessControl; /// /// Query to get all emails in the email outbox and their related records. /// The query has an one to many relationship between email and the related records. -/// This file contains logic that is identical to the SendEmails.Query.al. +/// This file contains logic that is identical to the SendEmails.Query.al. /// If changes are made to this file, make sure to update SendEmails to. /// query 8888 "Outbox Emails" @@ -183,8 +183,8 @@ query 8888 "Outbox Emails" KeepReading := Read(); end; - // Post fence record. - // If Read returned false, then CurrentMessageId changed, but while ended + // Post fence record. + // If Read returned false, then CurrentMessageId changed, but while ended // and we therefore did not get the change to insert the record if HadRelatedRecord then if EmailOutbox.Insert() then; @@ -219,7 +219,7 @@ query 8888 "Outbox Emails" while KeepReading do begin // If user is the owner of email we simply insert this sent email - // And read until next message id + // And read until next message id while User_Security_Id = UserSecId do begin InsertRecordInto(EmailOutbox); KeepReading := ReadUntilNextMessageId(Message_Id); @@ -261,7 +261,7 @@ query 8888 "Outbox Emails" while KeepReading do begin // If user is the owner of email we simply insert this sent email - // And read until next message id + // And read until next message id while User_Security_Id = UserSecId do begin InsertRecordInto(EmailOutbox); KeepReading := ReadUntilNextMessageId(Message_Id); diff --git a/src/System Application/App/Email/src/Email/Sent/SentEmails.Query.al b/src/System Application/App/Email/src/Email/Sent/SentEmails.Query.al index 044d360c32..b7b9dcdef5 100644 --- a/src/System Application/App/Email/src/Email/Sent/SentEmails.Query.al +++ b/src/System Application/App/Email/src/Email/Sent/SentEmails.Query.al @@ -10,7 +10,7 @@ using System.Security.AccessControl; /// /// Query to get all sent emails and their related records. /// The query has an one to many relationship between email and the related records. -/// This file contains logic that is identical to the EmailOutbox.Query.al. +/// This file contains logic that is identical to the EmailOutbox.Query.al. /// If changes are made to this file, make sure to update EmailOutbox to. /// query 8889 "Sent Emails" @@ -184,8 +184,8 @@ query 8889 "Sent Emails" KeepReading := Read(); end; - // Post fence record. - // If Read returned false, then CurrentMessageId changed, but while ended + // Post fence record. + // If Read returned false, then CurrentMessageId changed, but while ended // and we therefore did not get the change to insert the record if HadRelatedRecord then if SentEmails.Insert() then; @@ -220,7 +220,7 @@ query 8889 "Sent Emails" while KeepReading do begin // If user is the owner of email we simply insert this sent email - // And read until next message id + // And read until next message id while User_Security_Id = UserSecId do begin InsertRecordInto(SentEmails); KeepReading := ReadUntilNextMessageId(Message_Id); @@ -262,7 +262,7 @@ query 8889 "Sent Emails" while KeepReading do begin // If user is the owner of email we simply insert this sent email - // And read until next message id + // And read until next message id while User_Security_Id = UserSecId do begin InsertRecordInto(SentEmails); KeepReading := ReadUntilNextMessageId(Message_Id); diff --git a/src/System Application/App/Email/src/Email/View Policy/EmailRelatedRecord.Query.al b/src/System Application/App/Email/src/Email/View Policy/EmailRelatedRecord.Query.al index 53cd4da57c..b6d542528b 100644 --- a/src/System Application/App/Email/src/Email/View Policy/EmailRelatedRecord.Query.al +++ b/src/System Application/App/Email/src/Email/View Policy/EmailRelatedRecord.Query.al @@ -46,7 +46,7 @@ query 8890 "Email Related Record" procedure GetEmailMessageIdFilters(MaxIdsPerFilter: Integer): List of [Text] var - // using a dictionary here as there is no "Set" AL type + // using a dictionary here as there is no "Set" AL type EmailMessageIds: Dictionary of [Guid, Boolean]; EmailMessageIdsFilters: List of [Text]; FilterTextBuilder: TextBuilder; diff --git a/src/System Application/App/Email/src/Email/View Policy/EmailViewPolicy.Enum.al b/src/System Application/App/Email/src/Email/View Policy/EmailViewPolicy.Enum.al index 9b7b4847e2..af48f81d6e 100644 --- a/src/System Application/App/Email/src/Email/View Policy/EmailViewPolicy.Enum.al +++ b/src/System Application/App/Email/src/Email/View Policy/EmailViewPolicy.Enum.al @@ -6,7 +6,7 @@ namespace System.Email; /// -/// Available policies that can be assigned to a user. +/// Available policies that can be assigned to a user. /// enum 8930 "Email View Policy" implements "Email View Policy" { diff --git a/src/System Application/App/Email/src/Email/View Policy/EmailViewPolicyList.Page.al b/src/System Application/App/Email/src/Email/View Policy/EmailViewPolicyList.Page.al index 7d58f694c5..bbe3b7dffe 100644 --- a/src/System Application/App/Email/src/Email/View Policy/EmailViewPolicyList.Page.al +++ b/src/System Application/App/Email/src/Email/View Policy/EmailViewPolicyList.Page.al @@ -47,7 +47,7 @@ page 8930 "Email View Policy List" AboutTitle = 'Pick a user'; AboutText = 'You can define an email view policy for a specific user. However, make sure you have a default policy, which is a line with a policy that is not assigned to a user.'; } - field("Policy"; Rec."Email View Policy") + field(Policy; Rec."Email View Policy") { ApplicationArea = All; ToolTip = 'Specifies the assigned email policy'; diff --git a/src/System Application/App/Email/src/Email/View Policy/Policies/ViewIfAllRelatedRecords.Codeunit.al b/src/System Application/App/Email/src/Email/View Policy/Policies/ViewIfAllRelatedRecords.Codeunit.al index 9d83070d74..b97ef4e8ea 100644 --- a/src/System Application/App/Email/src/Email/View Policy/Policies/ViewIfAllRelatedRecords.Codeunit.al +++ b/src/System Application/App/Email/src/Email/View Policy/Policies/ViewIfAllRelatedRecords.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Email; using System.Security.AccessControl; /// -/// Email policy that show emails to a given user, +/// Email policy that show emails to a given user, /// if that user has access to all of the related records on the email. /// codeunit 8933 "View If All Related Records" implements "Email View Policy" diff --git a/src/System Application/App/Email/src/Email/View Policy/Policies/ViewIfAnyRelatedRecords.Codeunit.al b/src/System Application/App/Email/src/Email/View Policy/Policies/ViewIfAnyRelatedRecords.Codeunit.al index d68f1280e7..d23b4b78c0 100644 --- a/src/System Application/App/Email/src/Email/View Policy/Policies/ViewIfAnyRelatedRecords.Codeunit.al +++ b/src/System Application/App/Email/src/Email/View Policy/Policies/ViewIfAnyRelatedRecords.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Email; using System.Security.AccessControl; /// -/// Email policy that show emails to a given user, +/// Email policy that show emails to a given user, /// if that user has access to any of the related records on the email. /// codeunit 8934 "View If Any Related Records" implements "Email View Policy" diff --git a/src/System Application/App/Email/src/Email/View Policy/Policies/ViewOnlyOwnEmailsPolicy.Codeunit.al b/src/System Application/App/Email/src/Email/View Policy/Policies/ViewOnlyOwnEmailsPolicy.Codeunit.al index 1c7c22fe8a..4b5d7c9f8a 100644 --- a/src/System Application/App/Email/src/Email/View Policy/Policies/ViewOnlyOwnEmailsPolicy.Codeunit.al +++ b/src/System Application/App/Email/src/Email/View Policy/Policies/ViewOnlyOwnEmailsPolicy.Codeunit.al @@ -6,7 +6,7 @@ namespace System.Email; /// -/// Email policy that show emails to a given user, +/// Email policy that show emails to a given user, /// if that user is author of the email. /// codeunit 8931 "View Only Own Emails Policy" implements "Email View Policy" diff --git a/src/System Application/App/Email/src/EmailLogsDelete.Codeunit.al b/src/System Application/App/Email/src/EmailLogsDelete.Codeunit.al index c74733f848..1e05c95d95 100644 --- a/src/System Application/App/Email/src/EmailLogsDelete.Codeunit.al +++ b/src/System Application/App/Email/src/EmailLogsDelete.Codeunit.al @@ -12,8 +12,8 @@ codeunit 1598 "Email Logs Delete" Access = Internal; InherentPermissions = X; InherentEntitlements = X; - Permissions = tabledata "Sent Email" = rd, - tabledata "Email Outbox" = rd; + Permissions = tabledata "Email Outbox" = rd, +tabledata "Sent Email" = rd; var NoFiltersErr: Label 'No filters were set on table %1, %2. Please contact your Microsoft Partner for assistance.', Comment = '%1 = a id of a table (integer), %2 = the caption of the table.'; diff --git a/src/System Application/App/Email/src/Lookup/EmailAddressLookup.Page.al b/src/System Application/App/Email/src/Lookup/EmailAddressLookup.Page.al index e36e283c01..68d458168b 100644 --- a/src/System Application/App/Email/src/Lookup/EmailAddressLookup.Page.al +++ b/src/System Application/App/Email/src/Lookup/EmailAddressLookup.Page.al @@ -102,7 +102,7 @@ page 8944 "Email Address Lookup" exit(FullAddressLookup); end; - internal procedure SetEntityType(EmailAddressEntity: enum "Email Address Entity") + internal procedure SetEntityType(EmailAddressEntity: Enum "Email Address Entity") begin EntityType := EmailAddressEntity; end; @@ -164,7 +164,7 @@ page 8944 "Email Address Lookup" end; protected var - EntityType: enum "Email Address Entity"; + EntityType: Enum "Email Address Entity"; var FullAddressLookup: Boolean; diff --git a/src/System Application/App/Email/src/Lookup/EmailAddressLookup.Table.al b/src/System Application/App/Email/src/Lookup/EmailAddressLookup.Table.al index 2c13518049..b228cb8a78 100644 --- a/src/System Application/App/Email/src/Lookup/EmailAddressLookup.Table.al +++ b/src/System Application/App/Email/src/Lookup/EmailAddressLookup.Table.al @@ -64,7 +64,7 @@ table 8944 "Email Address Lookup" keys { - key(PK; "E-Mail Address", "Name", "Entity type") + key(PK; "E-Mail Address", Name, "Entity type") { Clustered = true; } diff --git a/src/System Application/App/Email/src/Message/EmailAttachments.Page.al b/src/System Application/App/Email/src/Message/EmailAttachments.Page.al index 468e93d353..25c935e3ff 100644 --- a/src/System Application/App/Email/src/Message/EmailAttachments.Page.al +++ b/src/System Application/App/Email/src/Message/EmailAttachments.Page.al @@ -91,7 +91,7 @@ page 8889 "Email Attachments" EmailChooseScenarioAttachments.LookupMode(true); if EmailChooseScenarioAttachments.RunModal() = Action::LookupOK then begin - FeatureTelemetry.LogUptake('0000I8R', 'Email Default Attachments', Enum::"Feature Uptake Status"::"Used"); + FeatureTelemetry.LogUptake('0000I8R', 'Email Default Attachments', Enum::"Feature Uptake Status"::Used); EmailChooseScenarioAttachments.GetSelectedAttachments(EmailAttachments); EmailMessageImpl.Get(EmailMessageId); diff --git a/src/System Application/App/Email/src/Message/EmailMessage.Codeunit.al b/src/System Application/App/Email/src/Message/EmailMessage.Codeunit.al index 82d51422ee..033667533d 100644 --- a/src/System Application/App/Email/src/Message/EmailMessage.Codeunit.al +++ b/src/System Application/App/Email/src/Message/EmailMessage.Codeunit.al @@ -148,7 +148,7 @@ codeunit 8904 "Email Message" /// /// Specifies the type of the recipients. /// Out parameter filled with the recipients' email addresses. - procedure GetRecipients(RecipientType: Enum "Email Recipient Type"; var Recipients: list of [Text]) + procedure GetRecipients(RecipientType: Enum "Email Recipient Type"; var Recipients: List of [Text]) begin Recipients := EmailMessageImpl.GetRecipients(RecipientType); end; @@ -168,7 +168,7 @@ codeunit 8904 "Email Message" /// /// Specifies the type of the recipients. /// Specifies the list of the recipients' email addresses. - procedure SetRecipients(RecipientType: Enum "Email Recipient Type"; Recipients: list of [Text]) + procedure SetRecipients(RecipientType: Enum "Email Recipient Type"; Recipients: List of [Text]) begin EmailMessageImpl.SetRecipients(RecipientType, Recipients); end; @@ -370,14 +370,14 @@ codeunit 8904 "Email Message" end; /// - /// Integration event to provide the stream of data for a given MediaID. If attachment content has been deleted, this event makes it possible to provide + /// Integration event to provide the stream of data for a given MediaID. If attachment content has been deleted, this event makes it possible to provide /// the data from elsewhere. /// /// Id of the underlying media field that contains the attachment data. /// Stream to that should pointed to the attachment data. /// Was the attachment content added to the stream. [IntegrationEvent(false, false)] - internal procedure OnGetAttachmentContent(MediaID: Guid; var InStream: Instream; var Handled: Boolean) + internal procedure OnGetAttachmentContent(MediaID: Guid; var InStream: InStream; var Handled: Boolean) begin end; diff --git a/src/System Application/App/Email/src/Message/EmailMessageImpl.Codeunit.al b/src/System Application/App/Email/src/Message/EmailMessageImpl.Codeunit.al index 53425408ea..7f4f20b76a 100644 --- a/src/System Application/App/Email/src/Message/EmailMessageImpl.Codeunit.al +++ b/src/System Application/App/Email/src/Message/EmailMessageImpl.Codeunit.al @@ -35,7 +35,7 @@ codeunit 8905 "Email Message Impl." Create(EmailMessageImpl.GetRecipientsAsText(Enum::"Email Recipient Type"::"To"), EmailMessageImpl.GetSubject(), EmailMessageImpl.GetBody(), EmailMessageImpl.IsBodyHTMLFormatted()); - SetRecipients(Enum::"Email Recipient Type"::CC, EmailMessageImpl.GetRecipientsAsText(Enum::"Email Recipient Type"::CC)); + SetRecipients(Enum::"Email Recipient Type"::Cc, EmailMessageImpl.GetRecipientsAsText(Enum::"Email Recipient Type"::Cc)); SetRecipients(Enum::"Email Recipient Type"::Bcc, EmailMessageImpl.GetRecipientsAsText(Enum::"Email Recipient Type"::Bcc)); if EmailMessageImpl.Attachments_First() then @@ -452,7 +452,7 @@ codeunit 8905 "Email Message Impl." CustomDimensions: Dictionary of [Text, Text]; begin MediaId := GlobalEmailMessageAttachment.Data.MediaId(); - TenantMedia.Get(MediaID); + TenantMedia.Get(MediaId); Clear(TenantMedia.Content); TenantMedia.Modify(); @@ -568,7 +568,7 @@ codeunit 8905 "Email Message Impl." var EmailRelatedAttachment: Record "Email Related Attachment"; EmailRelatedRecord: Record "Email Related Record"; - Email: Codeunit "Email"; + Email: Codeunit Email; EmailImpl: Codeunit "Email Impl"; begin EmailRelatedRecord.SetRange("Email Message Id", EmailMessageId); @@ -592,7 +592,7 @@ codeunit 8905 "Email Message Impl." exit(GlobalEmailMessage.Id); end; - procedure Get(MessageId: guid): Boolean + procedure Get(MessageId: Guid): Boolean begin Clear(GlobalEmailMessageAttachment); diff --git a/src/System Application/App/Email/src/Message/EmailRecipientType.Enum.al b/src/System Application/App/Email/src/Message/EmailRecipientType.Enum.al index 85e38023c4..d68ce3c27c 100644 --- a/src/System Application/App/Email/src/Message/EmailRecipientType.Enum.al +++ b/src/System Application/App/Email/src/Message/EmailRecipientType.Enum.al @@ -22,7 +22,7 @@ enum 8901 "Email Recipient Type" /// /// Recipient type 'Cc'. /// - value(1; "Cc") + value(1; Cc) { } @@ -30,7 +30,7 @@ enum 8901 "Email Recipient Type" /// /// Recipient type 'Bcc'. /// - value(3; "Bcc") + value(3; Bcc) { } } \ No newline at end of file diff --git a/src/System Application/App/Email/src/Message/EmailRelatedAttachments.Page.al b/src/System Application/App/Email/src/Message/EmailRelatedAttachments.Page.al index 49d8bfe0e0..959e98ce96 100644 --- a/src/System Application/App/Email/src/Message/EmailRelatedAttachments.Page.al +++ b/src/System Application/App/Email/src/Message/EmailRelatedAttachments.Page.al @@ -6,7 +6,7 @@ namespace System.Email; /// -/// Displays a list of related attachments to an email. +/// Displays a list of related attachments to an email. /// page 8890 "Email Related Attachments" { diff --git a/src/System Application/App/Email/src/RateLimit/EmailRateLimitWizard.Page.al b/src/System Application/App/Email/src/RateLimit/EmailRateLimitWizard.Page.al index ebbb2c412d..91e69586e0 100644 --- a/src/System Application/App/Email/src/RateLimit/EmailRateLimitWizard.Page.al +++ b/src/System Application/App/Email/src/RateLimit/EmailRateLimitWizard.Page.al @@ -27,7 +27,7 @@ page 8898 "Email Rate Limit Wizard" ApplicationArea = All; Editable = false; Caption = 'Email Account Name'; - Tooltip = 'Specifies the email account name for the current account.'; + ToolTip = 'Specifies the email account name for the current account.'; } field(EmailAddress; Rec."Email Address") @@ -35,7 +35,7 @@ page 8898 "Email Rate Limit Wizard" ApplicationArea = All; Editable = false; Caption = 'Email Address'; - Tooltip = 'Specifies the email address for the current email account.'; + ToolTip = 'Specifies the email address for the current email account.'; } field(EmailRateLimitDisplay; EmailRateLimitDisplay) @@ -94,5 +94,5 @@ page 8898 "Email Rate Limit Wizard" var EmailRateLimitDisplay: Text[250]; EmailName: Text[250]; - NoLimitTxt: label 'No limit'; + NoLimitTxt: Label 'No limit'; } \ No newline at end of file diff --git a/src/System Application/App/Email/src/Scenario/EmailScenarioImpl.Codeunit.al b/src/System Application/App/Email/src/Scenario/EmailScenarioImpl.Codeunit.al index d7bf46386a..715175d964 100644 --- a/src/System Application/App/Email/src/Scenario/EmailScenarioImpl.Codeunit.al +++ b/src/System Application/App/Email/src/Scenario/EmailScenarioImpl.Codeunit.al @@ -12,7 +12,7 @@ codeunit 8892 "Email Scenario Impl." Access = Internal; InherentPermissions = X; InherentEntitlements = X; - Permissions = TableData "Email Scenario" = rimd; + Permissions = tabledata "Email Scenario" = rimd; procedure GetEmailAccount(Scenario: Enum "Email Scenario"; var EmailAccount: Record "Email Account"): Boolean var @@ -175,7 +175,7 @@ codeunit 8892 "Email Scenario Impl." var EmailScenario: Record "Email Scenario"; SelectedScenarios: Record "Email Account Scenario"; - ScenariosForAccount: Page "Email Scenarios For Account"; + ScenariosForAccount: Page "Email Scenarios for Account"; begin EmailAccountImpl.CheckPermissions(); diff --git a/src/System Application/App/Email/src/Scenario/EmailScenariosFactBox.Page.al b/src/System Application/App/Email/src/Scenario/EmailScenariosFactBox.Page.al index 2ab5b191bb..4a1f5a766b 100644 --- a/src/System Application/App/Email/src/Scenario/EmailScenariosFactBox.Page.al +++ b/src/System Application/App/Email/src/Scenario/EmailScenariosFactBox.Page.al @@ -30,7 +30,7 @@ page 8895 "Email Scenarios FactBox" field(Name; Format(Rec.Scenario)) { ApplicationArea = All; - Tooltip = 'Specifies the email scenario.'; + ToolTip = 'Specifies the email scenario.'; Caption = 'Email scenario'; Editable = false; } diff --git a/src/System Application/App/Email/src/Scenario/EmailScenariosForAccount.Page.al b/src/System Application/App/Email/src/Scenario/EmailScenariosForAccount.Page.al index 7d5acef038..22bd79f4a3 100644 --- a/src/System Application/App/Email/src/Scenario/EmailScenariosForAccount.Page.al +++ b/src/System Application/App/Email/src/Scenario/EmailScenariosForAccount.Page.al @@ -29,7 +29,7 @@ page 8894 "Email Scenarios for Account" field(Name; Rec."Display Name") { ApplicationArea = All; - Tooltip = 'Specifies the email scenario.'; + ToolTip = 'Specifies the email scenario.'; Caption = 'Email scenario'; Editable = false; } diff --git a/src/System Application/App/Email/src/Test Email/EmailUserSpecifiedAddress.Page.al b/src/System Application/App/Email/src/Test Email/EmailUserSpecifiedAddress.Page.al index a5b803bfc8..a79ed7b788 100644 --- a/src/System Application/App/Email/src/Test Email/EmailUserSpecifiedAddress.Page.al +++ b/src/System Application/App/Email/src/Test Email/EmailUserSpecifiedAddress.Page.al @@ -15,7 +15,7 @@ page 8884 "Email User-Specified Address" layout { - area(content) + area(Content) { group(EmailAddressGroup) { diff --git a/src/System Application/App/Encoding/src/Encoding.Codeunit.al b/src/System Application/App/Encoding/src/Encoding.Codeunit.al index 21e029ba4a..88802cd440 100644 --- a/src/System Application/App/Encoding/src/Encoding.Codeunit.al +++ b/src/System Application/App/Encoding/src/Encoding.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Text; /// /// Codeunig that exposes encoding functionality. /// -codeunit 1486 "Encoding" +codeunit 1486 Encoding { Access = Public; InherentEntitlements = X; diff --git a/src/System Application/App/Entitlements/AzureADApplicationApi.Entitlement.al b/src/System Application/App/Entitlements/AzureADApplicationApi.Entitlement.al index ddf26dbf88..989fc677b7 100644 --- a/src/System Application/App/Entitlements/AzureADApplicationApi.Entitlement.al +++ b/src/System Application/App/Entitlements/AzureADApplicationApi.Entitlement.al @@ -20,5 +20,5 @@ entitlement "Azure AD Application Api" "Exten. Mgt. - Admin", "Email - Admin", "Feature Key - Admin"; -#pragma warning restore +#pragma warning restore } diff --git a/src/System Application/App/Entity Text/permissions/EntityTextObjects.PermissionSet.al b/src/System Application/App/Entity Text/permissions/EntityTextObjects.PermissionSet.al index 28b4900769..b893bfe3bf 100644 --- a/src/System Application/App/Entity Text/permissions/EntityTextObjects.PermissionSet.al +++ b/src/System Application/App/Entity Text/permissions/EntityTextObjects.PermissionSet.al @@ -10,16 +10,16 @@ permissionset 2010 "Entity Text - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Entity Text" = X, - Table "Entity Text" = X, + Permissions = codeunit "Entity Text" = X, + table "Entity Text" = X, #if not CLEAN24 #pragma warning disable AL0432 - Table "Azure OpenAi Settings" = X, - Page "Azure OpenAi Settings" = X, - Page "Copilot Information" = X, - Page "Entity Text Part" = X, - Page "Entity Text" = X, + table "Azure OpenAi Settings" = X, + page "Azure OpenAi Settings" = X, + page "Copilot Information" = X, + page "Entity Text Part" = X, + page "Entity Text" = X, #pragma warning restore AL0432 #endif - Page "Entity Text Factbox Part" = X; + page "Entity Text Factbox Part" = X; } \ No newline at end of file diff --git a/src/System Application/App/Entity Text/src/AzureOpenAiSettings.Page.al b/src/System Application/App/Entity Text/src/AzureOpenAiSettings.Page.al index 07fa708b3f..1db4d4f9b3 100644 --- a/src/System Application/App/Entity Text/src/AzureOpenAiSettings.Page.al +++ b/src/System Application/App/Entity Text/src/AzureOpenAiSettings.Page.al @@ -24,7 +24,7 @@ page 2010 "Azure OpenAi Settings" layout { - area(content) + area(Content) { group(settings) { @@ -62,9 +62,6 @@ page 2010 "Azure OpenAi Settings" } } - actions - { - } trigger OnInit() begin diff --git a/src/System Application/App/Entity Text/src/AzureOpenAiSettings.Table.al b/src/System Application/App/Entity Text/src/AzureOpenAiSettings.Table.al index c0dd9d9f69..b954ee3c59 100644 --- a/src/System Application/App/Entity Text/src/AzureOpenAiSettings.Table.al +++ b/src/System Application/App/Entity Text/src/AzureOpenAiSettings.Table.al @@ -93,9 +93,6 @@ table 2010 "Azure OpenAi Settings" } } - fieldgroups - { - } trigger OnDelete() begin diff --git a/src/System Application/App/Entity Text/src/EntityText.Codeunit.al b/src/System Application/App/Entity Text/src/EntityText.Codeunit.al index aef7f50fe3..10338f69dc 100644 --- a/src/System Application/App/Entity Text/src/EntityText.Codeunit.al +++ b/src/System Application/App/Entity Text/src/EntityText.Codeunit.al @@ -102,7 +102,7 @@ codeunit 2010 "Entity Text" /// The endpoint to use. /// The deployment to use for the endpoint. /// The API key to use for the endpoint. - /// Endpoint would look like: https://resource-name.openai.azure.com/ + /// Endpoint would look like: https://resource-name.openai.azure.com/ /// Deployment would look like: gpt-35-turbo-16k /// procedure SetEntityTextAuthorization(Endpoint: Text; Deployment: Text; ApiKey: SecretText) diff --git a/src/System Application/App/Entity Text/src/EntityText.Page.al b/src/System Application/App/Entity Text/src/EntityText.Page.al index a798d6246e..4cd9789e05 100644 --- a/src/System Application/App/Entity Text/src/EntityText.Page.al +++ b/src/System Application/App/Entity Text/src/EntityText.Page.al @@ -29,7 +29,7 @@ page 2013 "Entity Text" layout { - area(content) + area(Content) { field(TextFormat; TextFormat) { @@ -68,9 +68,6 @@ page 2013 "Entity Text" } } - actions - { - } trigger OnInit() var diff --git a/src/System Application/App/Entity Text/src/EntityTextFactboxPart.Page.al b/src/System Application/App/Entity Text/src/EntityTextFactboxPart.Page.al index d23b60da64..769b7481fe 100644 --- a/src/System Application/App/Entity Text/src/EntityTextFactboxPart.Page.al +++ b/src/System Application/App/Entity Text/src/EntityTextFactboxPart.Page.al @@ -24,7 +24,7 @@ page 2011 "Entity Text Factbox Part" layout { - area(content) + area(Content) { group(EntityTextGroup) { @@ -54,7 +54,7 @@ page 2011 "Entity Text Factbox Part" actions { - area(processing) + area(Processing) { action(Edit) { diff --git a/src/System Application/App/Entity Text/src/EntityTextImpl.Codeunit.al b/src/System Application/App/Entity Text/src/EntityTextImpl.Codeunit.al index d637c8a799..026ac0977e 100644 --- a/src/System Application/App/Entity Text/src/EntityTextImpl.Codeunit.al +++ b/src/System Application/App/Entity Text/src/EntityTextImpl.Codeunit.al @@ -272,7 +272,7 @@ codeunit 2012 "Entity Text Impl." end; [NonDebuggable] - local procedure GenerateAndReviewCompletion(SystemPrompt: Text; UserPrompt: Text; TextFormat: enum "Entity Text Format"; Facts: Dictionary of [Text, Text]; CallerModuleInfo: ModuleInfo): Text + local procedure GenerateAndReviewCompletion(SystemPrompt: Text; UserPrompt: Text; TextFormat: Enum "Entity Text Format"; Facts: Dictionary of [Text, Text]; CallerModuleInfo: ModuleInfo): Text var Completion: Text; MaxAttempts: Integer; @@ -318,7 +318,7 @@ codeunit 2012 "Entity Text Impl." end; [NonDebuggable] - local procedure IsGoodCompletion(var Completion: Text; TextFormat: enum "Entity Text Format"; Facts: Dictionary of [Text, Text]): Boolean + local procedure IsGoodCompletion(var Completion: Text; TextFormat: Enum "Entity Text Format"; Facts: Dictionary of [Text, Text]): Boolean var TempMatches: Record Matches temporary; Regex: Codeunit Regex; diff --git a/src/System Application/App/Entity Text/src/EntityTextPart.Page.al b/src/System Application/App/Entity Text/src/EntityTextPart.Page.al index b1cebe3a4e..2b69760bcf 100644 --- a/src/System Application/App/Entity Text/src/EntityTextPart.Page.al +++ b/src/System Application/App/Entity Text/src/EntityTextPart.Page.al @@ -25,7 +25,7 @@ page 2012 "Entity Text Part" layout { - area(content) + area(Content) { group(EntityTextGroup) { diff --git a/src/System Application/App/Environment Information/src/EnvironmentInformation.Codeunit.al b/src/System Application/App/Environment Information/src/EnvironmentInformation.Codeunit.al index f9c889dea5..87d365c929 100644 --- a/src/System Application/App/Environment Information/src/EnvironmentInformation.Codeunit.al +++ b/src/System Application/App/Environment Information/src/EnvironmentInformation.Codeunit.al @@ -73,7 +73,7 @@ codeunit 457 "Environment Information" end; /// - /// Checks if the deployment infrastucture is SaaS (Software as a Service). + /// Checks if the deployment infrastucture is SaaS (Software as a Service). /// Note: This function will return false in a Docker container. /// /// True if the deployment infrastructure type is a SaaS, false otherwise. diff --git a/src/System Application/App/Environment Information/src/EnvironmentInformationImpl.Codeunit.al b/src/System Application/App/Environment Information/src/EnvironmentInformationImpl.Codeunit.al index 7861a2f6da..80cd814ab5 100644 --- a/src/System Application/App/Environment Information/src/EnvironmentInformationImpl.Codeunit.al +++ b/src/System Application/App/Environment Information/src/EnvironmentInformationImpl.Codeunit.al @@ -111,7 +111,7 @@ codeunit 3702 "Environment Information Impl." var AppInfo: ModuleInfo; begin - NavApp.GetModuleInfo(AppId, AppInfo); + NavApp.GetModuleInfo(AppID, AppInfo); exit(AppInfo.DataVersion.Major()); end; diff --git a/src/System Application/App/Extension Management/permissions/ExtenMgtAdmin.PermissionSet.al b/src/System Application/App/Extension Management/permissions/ExtenMgtAdmin.PermissionSet.al index f8d6325002..3b3e14edf8 100644 --- a/src/System Application/App/Extension Management/permissions/ExtenMgtAdmin.PermissionSet.al +++ b/src/System Application/App/Extension Management/permissions/ExtenMgtAdmin.PermissionSet.al @@ -16,12 +16,12 @@ permissionset 2502 "Exten. Mgt. - Admin" IncludedPermissionSets = "Extension Management - View", "Guided Experience - View"; - Permissions = tabledata "Application Object Metadata" = Rimd, // r needed for check CanManageExtensions - tabledata "Application Dependency" = Rimd, + Permissions = tabledata "Application Dependency" = Rimd, +tabledata "Application Object Metadata" = Rimd, tabledata "Application Resource" = Rimd, tabledata "Extension Pending Setup" = rimd, - tabledata "Installed Application" = Rimd, tabledata "Inplace Installed Application" = Rimd, + tabledata "Installed Application" = Rimd, tabledata "NAV App Capabilities" = Rimd, tabledata "NAV App Data Archive" = Rimd, tabledata "NAV App Installed App" = Rimd, diff --git a/src/System Application/App/Extension Management/permissions/ExtensionManagementObjects.PermissionSet.al b/src/System Application/App/Extension Management/permissions/ExtensionManagementObjects.PermissionSet.al index aabf01c47c..e4e5d43d84 100644 --- a/src/System Application/App/Extension Management/permissions/ExtensionManagementObjects.PermissionSet.al +++ b/src/System Application/App/Extension Management/permissions/ExtensionManagementObjects.PermissionSet.al @@ -14,23 +14,23 @@ permissionset 2504 "Extension Management - Objects" IncludedPermissionSets = "Guided Experience - Objects"; - Permissions = Codeunit "Data Out Of Geo. App" = X, - Codeunit "Extension Management" = X, - Codeunit "Extension Marketplace" = X, - Page "Extension Deployment Status" = X, - Page "Extension Details Part" = X, - Page "Extension Details" = X, - Page "Extn. Orphaned App Details" = X, - Page "Delete Orphaned Extension Data" = X, - Page "Extension Installation" = X, - Page "Extn. Installation Progress" = X, - Page "Extension Logo Part" = X, - Page "Extension Management" = X, - Page "Extension Marketplace" = X, - Page "Extension Settings" = X, - Page "Extn Deployment Status Detail" = X, - Page "Marketplace Extn Deployment" = X, - Page "Upload And Deploy Extension" = X, - Page "Extension Setup Launcher" = X, - Table "Extension Installation" = X; + Permissions = table "Extension Installation" = X, +codeunit "Data Out Of Geo. App" = X, + codeunit "Extension Management" = X, + codeunit "Extension Marketplace" = X, + page "Delete Orphaned Extension Data" = X, + page "Extension Deployment Status" = X, + page "Extension Details" = X, + page "Extension Details Part" = X, + page "Extension Installation" = X, + page "Extension Logo Part" = X, + page "Extension Management" = X, + page "Extension Marketplace" = X, + page "Extension Settings" = X, + page "Extension Setup Launcher" = X, + page "Extn. Installation Progress" = X, + page "Extn. Orphaned App Details" = X, + page "Extn Deployment Status Detail" = X, + page "Marketplace Extn Deployment" = X, + page "Upload And Deploy Extension" = X; } diff --git a/src/System Application/App/Extension Management/permissions/ExtensionManagementRead.PermissionSet.al b/src/System Application/App/Extension Management/permissions/ExtensionManagementRead.PermissionSet.al index 44d18d5e2b..72b4dd512b 100644 --- a/src/System Application/App/Extension Management/permissions/ExtensionManagementRead.PermissionSet.al +++ b/src/System Application/App/Extension Management/permissions/ExtensionManagementRead.PermissionSet.al @@ -18,7 +18,7 @@ permissionset 2500 "Extension Management - Read" Permissions = tabledata "Application Object Metadata" = r, tabledata Media = r, tabledata "NAV App Installed App" = r, + tabledata "NAV App Setting" = r, tabledata "NAV App Tenant Operation" = r, - tabledata "Published Application" = r, - tabledata "NAV App Setting" = r; + tabledata "Published Application" = r; } \ No newline at end of file diff --git a/src/System Application/App/Extension Management/src/DeleteOrphanedExtensionData.Page.al b/src/System Application/App/Extension Management/src/DeleteOrphanedExtensionData.Page.al index 251ed3e56d..b93442263b 100644 --- a/src/System Application/App/Extension Management/src/DeleteOrphanedExtensionData.Page.al +++ b/src/System Application/App/Extension Management/src/DeleteOrphanedExtensionData.Page.al @@ -31,7 +31,7 @@ page 2514 "Delete Orphaned Extension Data" layout { - area(content) + area(Content) { repeater(Group) { @@ -52,7 +52,7 @@ page 2514 "Delete Orphaned Extension Data" Caption = 'Version'; ToolTip = 'Specifies the version of the extension.'; } - field("Stale"; Rec.Status) + field(Stale; Rec.Status) { ApplicationArea = All; Caption = 'Status'; @@ -90,7 +90,7 @@ page 2514 "Delete Orphaned Extension Data" } } - area(processing) + area(Processing) { group(ActionGroup13) { diff --git a/src/System Application/App/Extension Management/src/ExtensionDeploymentStatus.Page.al b/src/System Application/App/Extension Management/src/ExtensionDeploymentStatus.Page.al index c065817927..3437c9965f 100644 --- a/src/System Application/App/Extension Management/src/ExtensionDeploymentStatus.Page.al +++ b/src/System Application/App/Extension Management/src/ExtensionDeploymentStatus.Page.al @@ -23,7 +23,7 @@ page 2508 "Extension Deployment Status" layout { - area(content) + area(Content) { repeater(Group) { @@ -78,7 +78,7 @@ page 2508 "Extension Deployment Status" actions { - area(processing) + area(Processing) { action(View) { @@ -86,7 +86,7 @@ page 2508 "Extension Deployment Status" ToolTip = 'Specifies the status of the deployment.'; Image = View; Scope = Repeater; - ShortCutKey = 'Return'; + ShortcutKey = 'Return'; Visible = false; trigger OnAction() diff --git a/src/System Application/App/Extension Management/src/ExtensionDeploymentStatus.Table.al b/src/System Application/App/Extension Management/src/ExtensionDeploymentStatus.Table.al index e98edb0eee..b52a6f7988 100644 --- a/src/System Application/App/Extension Management/src/ExtensionDeploymentStatus.Table.al +++ b/src/System Application/App/Extension Management/src/ExtensionDeploymentStatus.Table.al @@ -40,7 +40,7 @@ table 2508 "Extension Deployment Status" OptionMembers = Unknown,InProgress,Failed,Completed,NotFound; DataClassification = SystemMetadata; } - field(5; Details; BLOB) + field(5; Details; Blob) { Caption = 'Details'; DataClassification = SystemMetadata; @@ -60,7 +60,4 @@ table 2508 "Extension Deployment Status" } } - fieldgroups - { - } } \ No newline at end of file diff --git a/src/System Application/App/Extension Management/src/ExtensionDetails.Page.al b/src/System Application/App/Extension Management/src/ExtensionDetails.Page.al index fd861fbc99..b9ff16f45c 100644 --- a/src/System Application/App/Extension Management/src/ExtensionDetails.Page.al +++ b/src/System Application/App/Extension Management/src/ExtensionDetails.Page.al @@ -25,7 +25,7 @@ page 2501 "Extension Details" layout { - area(content) + area(Content) { group("Install NAV Extension") { @@ -336,7 +336,7 @@ page 2501 "Extension Details" actions { - area(processing) + area(Processing) { action(Back) { @@ -456,7 +456,7 @@ page 2501 "Extension Details" VersionDisplay := ExtensionInstallationImpl.GetVersionDisplayString(PublishedApplication); PublishedApplication.CalcFields(Description); - PublishedApplication.Description.CreateInStream(DescriptionStream, TEXTENCODING::UTF8); + PublishedApplication.Description.CreateInStream(DescriptionStream, TextEncoding::UTF8); AppDescription.Read(DescriptionStream); Rec.Insert(); diff --git a/src/System Application/App/Extension Management/src/ExtensionDetailsPart.Page.al b/src/System Application/App/Extension Management/src/ExtensionDetailsPart.Page.al index 8dff61e1bc..c923a4a8c6 100644 --- a/src/System Application/App/Extension Management/src/ExtensionDetailsPart.Page.al +++ b/src/System Application/App/Extension Management/src/ExtensionDetailsPart.Page.al @@ -28,7 +28,7 @@ page 2504 "Extension Details Part" layout { - area(content) + area(Content) { group(Control8) { @@ -77,9 +77,6 @@ page 2504 "Extension Details Part" } } - actions - { - } trigger OnAfterGetRecord() begin diff --git a/src/System Application/App/Extension Management/src/ExtensionInstallation.Table.al b/src/System Application/App/Extension Management/src/ExtensionInstallation.Table.al index 86475c47f2..1b635bffc6 100644 --- a/src/System Application/App/Extension Management/src/ExtensionInstallation.Table.al +++ b/src/System Application/App/Extension Management/src/ExtensionInstallation.Table.al @@ -8,7 +8,7 @@ namespace System.Apps; /// The table containing information about an extension install. /// /// -/// The casing of the fields is expected to match the casing in the URL filter used when calling the installation page 2503: +/// The casing of the fields is expected to match the casing in the URL filter used when calling the installation page 2503: /// 'ID' IS '[AppID]' AND 'PREVIEWKEY' IS '[PreviewKey]' /// table 2503 "Extension Installation" @@ -22,7 +22,7 @@ table 2503 "Extension Installation" /// /// The app identifier. Should uniquely identify the application and remains static across versions. /// - field(1; "ID"; Guid) + field(1; ID; Guid) { Caption = 'ID'; } diff --git a/src/System Application/App/Extension Management/src/ExtensionInstallationImpl.Codeunit.al b/src/System Application/App/Extension Management/src/ExtensionInstallationImpl.Codeunit.al index 3860a21186..b295c9e5d2 100644 --- a/src/System Application/App/Extension Management/src/ExtensionInstallationImpl.Codeunit.al +++ b/src/System Application/App/Extension Management/src/ExtensionInstallationImpl.Codeunit.al @@ -35,9 +35,9 @@ codeunit 2500 "Extension Installation Impl" ClearExtensionSchemaMsg: Label 'You have selected to delete extension data for the %1 extension and all of its dependents: %2. Continuing uninstall will delete the tables that contain data for the %1 extension and all of its dependents. This action cannot be undone. Do you want to continue?', Comment = '%1=name of app ,%2= all dependent extensions'; ClearExtensionSchemaOrphanMsg: Label 'You have selected to delete extension data for the %1 extension. Continuing deletion will delete the tables that contain data for the %1 extension and all of its dependents. This action cannot be undone. Do you want to continue?', Comment = '%1=name of app'; NotSufficientPermissionErr: Label 'You do not have sufficient permissions to manage extensions. Please contact your administrator.'; - InstallationBestPracticesUrlLbl: Label 'https://go.microsoft.com/fwlink/?linkid=2138922', comment = 'link to the best practices and tips about the installing and publishing a new extension.', Locked = true; - DisclaimerUrlLbl: Label 'https://go.microsoft.com/fwlink/?linkid=2193002&clcid=0x409', comment = 'link to the Business Central PTE disclaimer.', Locked = true; - PrivacyPolicyUrlLbl: Label 'https://go.microsoft.com/fwlink/?LinkId=521839', comment = 'link to the privacy and cookies docs.', Locked = true; + InstallationBestPracticesUrlLbl: Label 'https://go.microsoft.com/fwlink/?linkid=2138922', Comment = 'link to the best practices and tips about the installing and publishing a new extension.', Locked = true; + DisclaimerUrlLbl: Label 'https://go.microsoft.com/fwlink/?linkid=2193002&clcid=0x409', Comment = 'link to the Business Central PTE disclaimer.', Locked = true; + PrivacyPolicyUrlLbl: Label 'https://go.microsoft.com/fwlink/?LinkId=521839', Comment = 'link to the privacy and cookies docs.', Locked = true; ExtensionNotInstalledErr: Label 'The %1 app is not installed.', Comment = '%1 = name of extension'; procedure IsInstalledByPackageId(PackageID: Guid): Boolean diff --git a/src/System Application/App/Extension Management/src/ExtensionLogoPart.Page.al b/src/System Application/App/Extension Management/src/ExtensionLogoPart.Page.al index fdbf7691da..59305daf25 100644 --- a/src/System Application/App/Extension Management/src/ExtensionLogoPart.Page.al +++ b/src/System Application/App/Extension Management/src/ExtensionLogoPart.Page.al @@ -28,7 +28,7 @@ page 2506 "Extension Logo Part" layout { - area(content) + area(Content) { group(Control4) { @@ -46,9 +46,6 @@ page 2506 "Extension Logo Part" } } - actions - { - } } diff --git a/src/System Application/App/Extension Management/src/ExtensionManagement.Codeunit.al b/src/System Application/App/Extension Management/src/ExtensionManagement.Codeunit.al index e4071226c0..ada09c3bfc 100644 --- a/src/System Application/App/Extension Management/src/ExtensionManagement.Codeunit.al +++ b/src/System Application/App/Extension Management/src/ExtensionManagement.Codeunit.al @@ -77,7 +77,7 @@ codeunit 2504 "Extension Management" end; /// - /// Unpublishes an extension, based on its PackageId. + /// Unpublishes an extension, based on its PackageId. /// An extension can only be unpublished, if it is a per-tenant one and it has been uninstalled first. /// /// The PackageId of the extension. @@ -213,7 +213,7 @@ codeunit 2504 "Extension Management" /// Gets the logo of an extension. /// /// The App ID of the extension. - /// Out parameter holding the logo of the extension. + /// Out parameter holding the logo of the extension. procedure GetExtensionLogo(AppId: Guid; var LogoTempBlob: Codeunit "Temp Blob") begin ExtensionOperationImpl.GetExtensionLogo(AppId, LogoTempBlob); diff --git a/src/System Application/App/Extension Management/src/ExtensionManagement.Page.al b/src/System Application/App/Extension Management/src/ExtensionManagement.Page.al index 1bea5e2dfc..444b6b6afc 100644 --- a/src/System Application/App/Extension Management/src/ExtensionManagement.Page.al +++ b/src/System Application/App/Extension Management/src/ExtensionManagement.Page.al @@ -35,7 +35,7 @@ page 2500 "Extension Management" layout { - area(content) + area(Content) { repeater(Group) { @@ -95,7 +95,7 @@ page 2500 "Extension Management" actions { - area(processing) + area(Processing) { group(ActionGroup13) { @@ -109,9 +109,9 @@ page 2500 "Extension Management" Promoted = true; PromotedOnly = true; PromotedCategory = Category5; - ShortCutKey = 'Return'; + ShortcutKey = 'Return'; ToolTip = 'View extension details.'; - RunObject = Page "Extension Settings"; + RunObject = page "Extension Settings"; RunPageLink = "App ID" = field(ID); Scope = Repeater; } @@ -270,7 +270,7 @@ page 2500 "Extension Management" PromotedOnly = true; PromotedCategory = Category5; PromotedIsBig = true; - RunObject = Page "Upload And Deploy Extension"; + RunObject = page "Upload And Deploy Extension"; ToolTip = 'Upload an extension to your application.'; Ellipsis = true; Visible = IsSaaS; @@ -284,7 +284,7 @@ page 2500 "Extension Management" PromotedOnly = true; PromotedCategory = Category5; PromotedIsBig = true; - RunObject = Page "Extension Deployment Status"; + RunObject = page "Extension Deployment Status"; ToolTip = 'Check status for upload process for extensions.'; Visible = IsSaaS; } @@ -293,7 +293,7 @@ page 2500 "Extension Management" ApplicationArea = All; Caption = 'Delete Orphaned Extension Data'; Image = Delete; - RunObject = Page "Delete Orphaned Extension Data"; + RunObject = page "Delete Orphaned Extension Data"; ToolTip = 'Delete the data of orphaned extensions.'; } } diff --git a/src/System Application/App/Extension Management/src/ExtensionMarketplace.Codeunit.al b/src/System Application/App/Extension Management/src/ExtensionMarketplace.Codeunit.al index fac4a7948f..44ecda2bae 100644 --- a/src/System Application/App/Extension Management/src/ExtensionMarketplace.Codeunit.al +++ b/src/System Application/App/Extension Management/src/ExtensionMarketplace.Codeunit.al @@ -28,8 +28,8 @@ using System.Environment.Configuration; codeunit 2501 "Extension Marketplace" { Access = Internal; - Permissions = tabledata "Published Application" = r, - tabledata "Extension Pending Setup" = rimd; + Permissions = tabledata "Extension Pending Setup" = rimd, +tabledata "Published Application" = r; var HttpWebRequest: DotNet HttpWebRequest; @@ -117,7 +117,7 @@ codeunit 2501 "Extension Marketplace" HttpWebResponse: DotNet HttpWebResponse; ResponseInStream: InStream; begin - InitializeHTTPRequest(ResponseUrl); + InitializeHTTPRequest(ResponseURL); HttpWebRequest.Accept := '*/*'; HttpWebRequest.ContentType := 'application/json'; HttpWebRequest.Method := 'POST'; @@ -249,8 +249,8 @@ codeunit 2501 "Extension Marketplace" var PublishedApplication: Record "Published Application"; ExtensionInstallation: Page "Extension Installation"; - AppId: GUID; - PackageID: GUID; + AppId: Guid; + PackageID: Guid; begin AppId := MapMarketplaceIdToAppId(ApplicationID); if not IsNullGuid(AppId) then begin @@ -260,19 +260,19 @@ codeunit 2501 "Extension Marketplace" PackageID := MapMarketplaceIdToPackageId(ApplicationID); if IsNullGuid(PackageID) then begin Session.LogMessage('0088AQQ', StrSubstNo(TelemetryExtensionNotFoundErr, ApplicationID), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', TelemetryTok); - ERROR(ExtensionNotFoundErr); + Error(ExtensionNotFoundErr); end; PublishedApplication.SETFILTER("Package ID", '%1', PackageID); if PublishedApplication.IsEmpty then begin Session.LogMessage('0088BQQ', StrSubstNo(MissingAppIdErr, ApplicationID), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', TelemetryTok); - ERROR(ExtensionNotFoundErr); + Error(ExtensionNotFoundErr); end; PublishedApplication."Package ID" := PackageID; end; - PublishedApplication.responseUrl := CopyStr(TelemetryUrl, 1, MaxStrLen(PublishedApplication.responseUrl)); + PublishedApplication.responseUrl := CopyStr(TelemetryURL, 1, MaxStrLen(PublishedApplication.responseUrl)); ExtensionInstallation.SetRecord(PublishedApplication); ExtensionInstallation.RunModal(); end; @@ -289,7 +289,7 @@ codeunit 2501 "Extension Marketplace" end; PublishedApplication.SetRange(ID, AppId); PublishedApplication.ID := AppId; - PublishedApplication.responseUrl := CopyStr(TelemetryUrl, 1, MaxStrLen(PublishedApplication.responseUrl)); + PublishedApplication.responseUrl := CopyStr(TelemetryURL, 1, MaxStrLen(PublishedApplication.responseUrl)); ExtensionInstallation.SetRecord(PublishedApplication); ExtensionInstallation.RunModal(); end; @@ -525,6 +525,6 @@ codeunit 2501 "Extension Marketplace" [EventSubscriber(ObjectType::Codeunit, Codeunit::"System Action Triggers", OpenAppSourceMarket, '', false, false)] local procedure OpenAppSourceMarket() begin - page.Run(Page::"Extension Marketplace"); + Page.Run(Page::"Extension Marketplace"); end; } diff --git a/src/System Application/App/Extension Management/src/ExtensionMarketplace.Page.al b/src/System Application/App/Extension Management/src/ExtensionMarketplace.Page.al index d9918f9949..0a877ae3f4 100644 --- a/src/System Application/App/Extension Management/src/ExtensionMarketplace.Page.al +++ b/src/System Application/App/Extension Management/src/ExtensionMarketplace.Page.al @@ -50,9 +50,6 @@ page 2502 "Extension Marketplace" CurrPage.Marketplace.Navigate(MarketplaceUrl); end; - trigger DocumentReady() - begin - end; trigger Callback(data: Text); begin @@ -88,7 +85,7 @@ page 2502 "Extension Marketplace" applicationId: Text; ActionOption: Option acquireApp; begin - if EVALUATE(ActionOption, ActionName) then + if Evaluate(ActionOption, ActionName) then if ActionOption = ActionOption::acquireApp then begin TelemetryUrl := ExtensionMarketplace.GetTelementryUrlFromData(JObject); applicationId := ExtensionMarketplace.GetApplicationIdFromData(JObject); diff --git a/src/System Application/App/Extension Management/src/ExtensionOperationImpl.Codeunit.al b/src/System Application/App/Extension Management/src/ExtensionOperationImpl.Codeunit.al index c1fb4a68e3..fd386ba76c 100644 --- a/src/System Application/App/Extension Management/src/ExtensionOperationImpl.Codeunit.al +++ b/src/System Application/App/Extension Management/src/ExtensionOperationImpl.Codeunit.al @@ -163,7 +163,7 @@ codeunit 2503 "Extension Operation Impl" begin CheckPermissions(); - PublishedApplication.SetRange("Package ID", PackageID); + PublishedApplication.SetRange("Package ID", PackageId); PublishedApplication.SetRange("Tenant Visible", true); PublishedApplication.SetFilter("Published As", '<>%1', PublishedApplication."Published As"::Global); @@ -229,7 +229,7 @@ codeunit 2503 "Extension Operation Impl" Evaluate(PackageIDGuid, PackageId); - PublishedApplication.SetRange("Package ID", PackageIdGuid); + PublishedApplication.SetRange("Package ID", PackageIDGuid); PublishedApplication.SetRange("Tenant Visible", true); if not PublishedApplication.FindFirst() then @@ -399,8 +399,8 @@ codeunit 2503 "Extension Operation Impl" var PublishedApplication: Record "Published Application"; Media: Record Media; - LogoInStream: Instream; - LogoOutStream: Outstream; + LogoInStream: InStream; + LogoOutStream: OutStream; begin PublishedApplication.SetRange(ID, AppId); PublishedApplication.SetRange("Tenant Visible", true); @@ -414,7 +414,7 @@ codeunit 2503 "Extension Operation Impl" Media.CalcFields(Content); Media.Content.CreateInStream(LogoInStream); - Logo.CreateOutstream(LogoOutStream); + Logo.CreateOutStream(LogoOutStream); CopyStream(LogoOutStream, LogoInStream); end; end; diff --git a/src/System Application/App/Extension Management/src/ExtensionPendingSetup.Table.al b/src/System Application/App/Extension Management/src/ExtensionPendingSetup.Table.al index 053e25962e..555c2a41fb 100644 --- a/src/System Application/App/Extension Management/src/ExtensionPendingSetup.Table.al +++ b/src/System Application/App/Extension Management/src/ExtensionPendingSetup.Table.al @@ -41,7 +41,4 @@ table 2509 "Extension Pending Setup" } } - fieldgroups - { - } } \ No newline at end of file diff --git a/src/System Application/App/Extension Management/src/ExtensionSettings.Page.al b/src/System Application/App/Extension Management/src/ExtensionSettings.Page.al index a7caa0b901..ea55316569 100644 --- a/src/System Application/App/Extension Management/src/ExtensionSettings.Page.al +++ b/src/System Application/App/Extension Management/src/ExtensionSettings.Page.al @@ -22,7 +22,7 @@ page 2511 "Extension Settings" layout { - area(content) + area(Content) { group(Group) { @@ -60,9 +60,6 @@ page 2511 "Extension Settings" } } - actions - { - } trigger OnAfterGetCurrRecord() var diff --git a/src/System Application/App/Extension Management/src/ExtensionSetupLauncher.Page.al b/src/System Application/App/Extension Management/src/ExtensionSetupLauncher.Page.al index 1275017853..e2e7f78d5f 100644 --- a/src/System Application/App/Extension Management/src/ExtensionSetupLauncher.Page.al +++ b/src/System Application/App/Extension Management/src/ExtensionSetupLauncher.Page.al @@ -16,12 +16,6 @@ page 2512 "Extension Setup Launcher" ApplicationArea = All; Caption = 'Almost there...'; - layout - { - area(content) - { - } - } trigger OnOpenPage() var diff --git a/src/System Application/App/Extension Management/src/ExtnDeploymentStatusDetail.Page.al b/src/System Application/App/Extension Management/src/ExtnDeploymentStatusDetail.Page.al index 6344902197..3c9d502271 100644 --- a/src/System Application/App/Extension Management/src/ExtnDeploymentStatusDetail.Page.al +++ b/src/System Application/App/Extension Management/src/ExtnDeploymentStatusDetail.Page.al @@ -27,7 +27,7 @@ page 2509 "Extn Deployment Status Detail" layout { - area(content) + area(Content) { group(General) { @@ -131,7 +131,7 @@ page 2509 "Extn Deployment Status Detail" actions { - area(processing) + area(Processing) { action(Refresh) { @@ -220,7 +220,7 @@ page 2509 "Extn Deployment Status Detail" Rec.TransferFields(NavAppTenantOperationRec, true); NavAppTenantOperationRec.CalcFields(Details); - NavAppTenantOperationRec.Details.CreateInStream(DetailsStream, TEXTENCODING::UTF8); + NavAppTenantOperationRec.Details.CreateInStream(DetailsStream, TextEncoding::UTF8); DeploymentDetails.Read(DetailsStream); if not Rec.Insert() then @@ -236,7 +236,7 @@ page 2509 "Extn Deployment Status Detail" Rec.Status := NavAppTenantOperationTable.Status; NavAppTenantOperationTable.CalcFields(Details); - NavAppTenantOperationTable.Details.CreateInStream(DetailsStream, TEXTENCODING::UTF8); + NavAppTenantOperationTable.Details.CreateInStream(DetailsStream, TextEncoding::UTF8); DeploymentDetails.Read(DetailsStream); CurrPage.Update(); diff --git a/src/System Application/App/Extension Management/src/ExtnInstallationProgress.Page.al b/src/System Application/App/Extension Management/src/ExtnInstallationProgress.Page.al index 9226807ce2..d1a9be6bb4 100644 --- a/src/System Application/App/Extension Management/src/ExtnInstallationProgress.Page.al +++ b/src/System Application/App/Extension Management/src/ExtnInstallationProgress.Page.al @@ -69,7 +69,7 @@ page 2505 "Extn. Installation Progress" NavAppTenantOperation: Record "NAV App Tenant Operation"; ExtensionOperationImpl: Codeunit "Extension Operation Impl"; begin - if CloseAction in [ACTION::OK, ACTION::LookupOK] then begin + if CloseAction in [Action::OK, Action::LookupOK] then begin ExtensionOperationImpl.RefreshStatus(OperationIdToMonitor); if NavAppTenantOperation.Get(OperationIdToMonitor) then if NavAppTenantOperation.Status = NavAppTenantOperation.Status::InProgress then diff --git a/src/System Application/App/Extension Management/src/ExtnOrphanedAppDetails.Page.al b/src/System Application/App/Extension Management/src/ExtnOrphanedAppDetails.Page.al index 5fa972c2ac..304cb5e4e5 100644 --- a/src/System Application/App/Extension Management/src/ExtnOrphanedAppDetails.Page.al +++ b/src/System Application/App/Extension Management/src/ExtnOrphanedAppDetails.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -21,7 +21,7 @@ page 2513 "Extn. Orphaned App Details" layout { - area(content) + area(Content) { group(UninstallGroup) { @@ -61,7 +61,7 @@ page 2513 "Extn. Orphaned App Details" actions { - area(processing) + area(Processing) { action(DeleteData) { diff --git a/src/System Application/App/Extension Management/src/MarketplaceExtnDeployment.Page.al b/src/System Application/App/Extension Management/src/MarketplaceExtnDeployment.Page.al index ddbabbdd5b..0098c66e06 100644 --- a/src/System Application/App/Extension Management/src/MarketplaceExtnDeployment.Page.al +++ b/src/System Application/App/Extension Management/src/MarketplaceExtnDeployment.Page.al @@ -19,7 +19,7 @@ page 2510 "Marketplace Extn Deployment" layout { - area(content) + area(Content) { group(General) { @@ -86,7 +86,7 @@ page 2510 "Marketplace Extn Deployment" actions { - area(processing) + area(Processing) { action(Install) { @@ -134,7 +134,7 @@ page 2510 "Marketplace Extn Deployment" begin LanguageID := GlobalLanguage(); LanguageName := LanguageManagement.GetWindowsLanguageName(LanguageID); - clear(InstallSelected); + Clear(InstallSelected); end; trigger OnOpenPage() diff --git a/src/System Application/App/Extension Management/src/UploadAndDeployExtension.Page.al b/src/System Application/App/Extension Management/src/UploadAndDeployExtension.Page.al index 58850de436..032a908729 100644 --- a/src/System Application/App/Extension Management/src/UploadAndDeployExtension.Page.al +++ b/src/System Application/App/Extension Management/src/UploadAndDeployExtension.Page.al @@ -20,7 +20,7 @@ page 2507 "Upload And Deploy Extension" layout { - area(content) + area(Content) { label("Upload Extension") { @@ -119,7 +119,7 @@ page 2507 "Upload And Deploy Extension" actions { - area(processing) + area(Processing) { action(Deploy) { diff --git a/src/System Application/App/Feature Key/permissions/FeatureKeyObjects.PermissionSet.al b/src/System Application/App/Feature Key/permissions/FeatureKeyObjects.PermissionSet.al index 46123d881b..5331d92326 100644 --- a/src/System Application/App/Feature Key/permissions/FeatureKeyObjects.PermissionSet.al +++ b/src/System Application/App/Feature Key/permissions/FeatureKeyObjects.PermissionSet.al @@ -10,13 +10,13 @@ permissionset 2609 "Feature Key - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Feature Management Facade" = X, - Page "Feature Management" = X, - Page "Schedule Feature Data Update" = X, + Permissions = codeunit "Feature Management Facade" = X, + page "Feature Management" = X, + page "Schedule Feature Data Update" = X, #if not CLEAN23 #pragma warning disable AL0432 - Page "Upcoming Changes Factbox" = X, + page "Upcoming Changes Factbox" = X, #pragma warning restore AL0432 #endif - Table "Feature Data Update Status" = X; + table "Feature Data Update Status" = X; } diff --git a/src/System Application/App/Feature Key/permissions/FeatureKeyRead.PermissionSet.al b/src/System Application/App/Feature Key/permissions/FeatureKeyRead.PermissionSet.al index f43bd11a96..3e0fc1d654 100644 --- a/src/System Application/App/Feature Key/permissions/FeatureKeyRead.PermissionSet.al +++ b/src/System Application/App/Feature Key/permissions/FeatureKeyRead.PermissionSet.al @@ -19,6 +19,6 @@ permissionset 2610 "Feature Key - Read" tabledata Company = r, tabledata "Feature Data Update Status" = R, tabledata "Feature Key" = r, - tabledata "Session Event" = r, - tabledata "Scheduled Task" = r; + tabledata "Scheduled Task" = r, + tabledata "Session Event" = r; } diff --git a/src/System Application/App/Feature Key/src/FeatureDataUpdate.Interface.al b/src/System Application/App/Feature Key/src/FeatureDataUpdate.Interface.al index 1c30b2cedf..9157a3a042 100644 --- a/src/System Application/App/Feature Key/src/FeatureDataUpdate.Interface.al +++ b/src/System Application/App/Feature Key/src/FeatureDataUpdate.Interface.al @@ -11,7 +11,7 @@ namespace System.Environment.Configuration; interface "Feature Data Update" { /// - /// Searches the database for data that must be updated before the feature can be enabled. + /// Searches the database for data that must be updated before the feature can be enabled. /// /// true if there is data to update procedure IsDataUpdateRequired(): Boolean; diff --git a/src/System Application/App/Feature Key/src/FeatureKeyBuffer.Table.al b/src/System Application/App/Feature Key/src/FeatureKeyBuffer.Table.al index e052002904..3d7b85bd4d 100644 --- a/src/System Application/App/Feature Key/src/FeatureKeyBuffer.Table.al +++ b/src/System Application/App/Feature Key/src/FeatureKeyBuffer.Table.al @@ -6,7 +6,7 @@ namespace System.Environment.Configuration; /// -/// This temporary table extends the "Feature Key" virtual table. The fields must be in sync across both tables. +/// This temporary table extends the "Feature Key" virtual table. The fields must be in sync across both tables. /// New fields are added from id = 100 upwards. /// table 2609 "Feature Key Buffer" @@ -15,9 +15,9 @@ table 2609 "Feature Key Buffer" TableType = Temporary; InherentEntitlements = X; InherentPermissions = X; - Permissions = tabledata "Feature Key" = rm, - tabledata "Feature Data Update Status" = r, - tabledata "Feature Dependency" = r; + Permissions = tabledata "Feature Data Update Status" = r, + tabledata "Feature Dependency" = r, +tabledata "Feature Key" = rm; fields { @@ -30,7 +30,7 @@ table 2609 "Feature Key Buffer" { Caption = 'Enabled'; OptionCaption = 'None,All Users'; - OptionMembers = "None","All Users"; + OptionMembers = None,"All Users"; trigger OnValidate() begin @@ -124,7 +124,7 @@ table 2609 "Feature Key Buffer" internal procedure GetDataUpdateSessionId(): Integer begin - exit(FeatureDataUpdateStatus."Session ID"); + exit(FeatureDataUpdateStatus."Session Id"); end; internal procedure GetDataUpdateStartDateTime(): DateTime @@ -139,12 +139,12 @@ table 2609 "Feature Key Buffer" internal procedure GetDataUpdateTaskId(): Guid begin - exit(FeatureDataUpdateStatus."Task ID"); + exit(FeatureDataUpdateStatus."Task Id"); end; internal procedure GetDataUpdateServerInstanceId(): Integer begin - exit(FeatureDataUpdateStatus."Server Instance ID"); + exit(FeatureDataUpdateStatus."Server Instance Id"); end; internal procedure GetTryItOutMessage(): Text diff --git a/src/System Application/App/Feature Key/src/FeatureManagement.Interface.al b/src/System Application/App/Feature Key/src/FeatureManagement.Interface.al index 96a127f3a4..3ff2209685 100644 --- a/src/System Application/App/Feature Key/src/FeatureManagement.Interface.al +++ b/src/System Application/App/Feature Key/src/FeatureManagement.Interface.al @@ -7,13 +7,13 @@ namespace System.Environment.Configuration; /// /// Interface that defines methods for linking tables "Feature Key Buffer" and "Feature Key". -/// The default implementation uses the system table "Feature Key" as a source, +/// The default implementation uses the system table "Feature Key" as a source, /// but another implementation uses a temporary table "Feature Key" to delink Feature Management UX from the read-only virtual table. /// interface "Feature Management" { /// - /// Returns number of collected records. Feature interface read the system table "Feature Key" or + /// Returns number of collected records. Feature interface read the system table "Feature Key" or /// another source of data depends on the interface implementation. In tests it can be a temporary table "Feature Key". /// Parameters IncludeFeatureKeys or ExcludeFeatureKeys can be used to get a subset of all existing records. /// @@ -24,7 +24,7 @@ interface "Feature Management" procedure GetData(IncludeFeatureKeys: List of [Text[50]]; ExcludeFeatureKeys: List of [Text[50]]; var FeatureKeyBuffer: Record "Feature Key Buffer"): Integer /// - /// Returns number of collected records. Feature interface read the system table "Feature Key" or + /// Returns number of collected records. Feature interface read the system table "Feature Key" or /// another source of data depends on the interface implementation. In tests it can be a temporary table "Feature Key". /// /// the feature id in the system table "Feature Key" @@ -42,7 +42,7 @@ interface "Feature Management" /// /// Fills the temporary table "Feature Dependency" stored in the single instance codeunit "Feature Dependency Management". - /// Add new feature dependencies by passing DependentFeatureId and ParentFeatureID, + /// Add new feature dependencies by passing DependentFeatureId and ParentFeatureID, /// FeatureKeyBuffer is passed to control data consistency: /// FeatureDependency.New(FeatureKeyBuffer, DependentFeatureId, ParentFeatureID); /// diff --git a/src/System Application/App/Feature Key/src/FeatureManagement.Page.al b/src/System Application/App/Feature Key/src/FeatureManagement.Page.al index b7f2d4fd1c..e0bcfbe68d 100644 --- a/src/System Application/App/Feature Key/src/FeatureManagement.Page.al +++ b/src/System Application/App/Feature Key/src/FeatureManagement.Page.al @@ -23,8 +23,8 @@ page 2610 "Feature Management" DeleteAllowed = false; LinksAllowed = false; Extensible = false; - Permissions = tabledata "Feature Key" = rm, - tabledata "Feature Data Update Status" = r; + Permissions = tabledata "Feature Data Update Status" = r, +tabledata "Feature Key" = rm; layout { @@ -35,7 +35,7 @@ page 2610 "Feature Management" field(FeatureDescription; Rec.Description) { Caption = 'Feature'; - Tooltip = 'Specifies the name of the new capability or change in design.'; + ToolTip = 'Specifies the name of the new capability or change in design.'; ApplicationArea = All; Editable = false; Width = 60; @@ -110,7 +110,7 @@ page 2610 "Feature Management" trigger OnDrillDown() begin if Rec."Can Try" then begin - HyperLink(FeatureManagementFacade.GetFeatureKeyUrlForWeb(Rec.ID)); + Hyperlink(FeatureManagementFacade.GetFeatureKeyUrlForWeb(Rec.ID)); Message(TryItOutStartedMsg); end; end; @@ -130,21 +130,21 @@ page 2610 "Feature Management" Editable = false; ToolTip = 'Specifies the earliest date and time when the data update task should be run.'; } - field("Task Id"; FeatureDataUpdateStatus."Task ID") + field("Task Id"; FeatureDataUpdateStatus."Task Id") { ApplicationArea = All; Visible = false; Editable = false; ToolTip = 'Specifies the id of the scheduled task.'; } - field("Session Id"; FeatureDataUpdateStatus."Session ID") + field("Session Id"; FeatureDataUpdateStatus."Session Id") { ApplicationArea = All; Visible = false; Editable = false; ToolTip = 'Specifies the session id where the task is being ran.'; } - field("Server Instance ID"; FeatureDataUpdateStatus."Server Instance ID") + field("Server Instance ID"; FeatureDataUpdateStatus."Server Instance Id") { ApplicationArea = All; Visible = false; @@ -154,7 +154,7 @@ page 2610 "Feature Management" } } #if not CLEAN23 - area(factboxes) + area(FactBoxes) { part("Upcoming Changes FactBox"; "Upcoming Changes Factbox") { diff --git a/src/System Application/App/Feature Key/src/FeatureManagementFacade.Codeunit.al b/src/System Application/App/Feature Key/src/FeatureManagementFacade.Codeunit.al index 42bfc0d64c..9be5cf9571 100644 --- a/src/System Application/App/Feature Key/src/FeatureManagementFacade.Codeunit.al +++ b/src/System Application/App/Feature Key/src/FeatureManagementFacade.Codeunit.al @@ -27,7 +27,7 @@ codeunit 2611 "Feature Management Facade" /// /// Updates the status in "Feature Data Update Status" records related to all companies. - /// Also sends the notification reminding user to sign in again after feature is enabled/disabled. + /// Also sends the notification reminding user to sign in again after feature is enabled/disabled. /// /// the current "Feature Key" record procedure AfterValidateEnabled(FeatureKey: Record "Feature Key") @@ -115,7 +115,7 @@ codeunit 2611 "Feature Management Facade" end; [IntegrationEvent(false, false)] - internal procedure OnGetImplementation(FeatureDataUpdateStatus: Record "Feature Data Update Status"; var FeatureDataUpdate: interface "Feature Data Update"; var ImplementedId: Text[50]) + internal procedure OnGetImplementation(FeatureDataUpdateStatus: Record "Feature Data Update Status"; var FeatureDataUpdate: Interface "Feature Data Update"; var ImplementedId: Text[50]) begin end; diff --git a/src/System Application/App/Feature Key/src/FeatureManagementImpl.Codeunit.al b/src/System Application/App/Feature Key/src/FeatureManagementImpl.Codeunit.al index e555a8570d..cc5dfd0528 100644 --- a/src/System Application/App/Feature Key/src/FeatureManagementImpl.Codeunit.al +++ b/src/System Application/App/Feature Key/src/FeatureManagementImpl.Codeunit.al @@ -19,13 +19,13 @@ codeunit 2610 "Feature Management Impl." InherentPermissions = X; Permissions = tabledata "Active Session" = r, tabledata Company = r, - tabledata "Feature Key" = rimd, tabledata "Feature Data Update Status" = rimd, - tabledata "Session Event" = r, - tabledata "Scheduled Task" = r; + tabledata "Feature Key" = rimd, + tabledata "Scheduled Task" = r, + tabledata "Session Event" = r; var - FeatureDataUpdate: interface "Feature Data Update"; + FeatureDataUpdate: Interface "Feature Data Update"; ImplementedId: Text[50]; SignInAgainMsg: Label 'You must sign out and then sign in again to make the changes take effect.', Comment = '"sign out" and "sign in" are the same terms as shown in the Business Central client.'; SignInAgainNotificationGuidTok: Label '63b6f5ec-6db4-4e87-b103-c4bcb539f09e', Locked = true; @@ -74,7 +74,7 @@ codeunit 2610 "Feature Management Impl." begin SignInAgainNotification.Id := SignInAgainNotificationGuidTok; SignInAgainNotification.Message := SignInAgainMsg; - SignInAgainNotification.Scope := NOTIFICATIONSCOPE::LocalScope; + SignInAgainNotification.Scope := NotificationScope::LocalScope; SignInAgainNotification.Send(); end; @@ -104,14 +104,14 @@ codeunit 2610 "Feature Management Impl." else FeatureDataUpdateStatus."Feature Status" := FeatureDataUpdateStatus."Feature Status"::Enabled; end; - // If the table extension is not in sync during upgrade then Get() always returns False, + // If the table extension is not in sync during upgrade then Get() always returns False, // so the following insert will fail if the record does exist. if FeatureDataUpdateStatus.Insert() then; end; /// /// Updates the status in "Feature Data Update Status" records related to all companies. - /// Also sends the notification reminding user to sign in again after feature is enabled/disabled. + /// Also sends the notification reminding user to sign in again after feature is enabled/disabled. /// /// the current "Feature Key" record procedure AfterValidateEnabled(FeatureKey: Record "Feature Key") @@ -273,8 +273,8 @@ codeunit 2610 "Feature Management Impl." then exit; FeatureDataUpdateStatus."Feature Status" := FeatureDataUpdateStatus."Feature Status"::Incomplete; - FeatureDataUpdateStatus."Session ID" := -1; - FeatureDataUpdateStatus."Server Instance ID" := -1; + FeatureDataUpdateStatus."Session Id" := -1; + FeatureDataUpdateStatus."Server Instance Id" := -1; FeatureDataUpdateStatus.Modify(); SendTraceTagOnError(FeatureDataUpdateStatus); @@ -411,12 +411,12 @@ codeunit 2610 "Feature Management Impl." FeatureManagementFacade.OnBeforeScheduleTask(FeatureDataUpdateStatus, DoNotScheduleTask, TaskID); if DoNotScheduleTask then - FeatureDataUpdateStatus."Task ID" := TaskID + FeatureDataUpdateStatus."Task Id" := TaskID else - FeatureDataUpdateStatus."Task ID" := + FeatureDataUpdateStatus."Task Id" := CreateTask(FeatureDataUpdateStatus); - if IsNullGuid(FeatureDataUpdateStatus."Task ID") then begin + if IsNullGuid(FeatureDataUpdateStatus."Task Id") then begin FeatureDataUpdateStatus."Feature Status" := FeatureDataUpdateStatus."Feature Status"::Pending; FeatureDataUpdateStatus."Start Date/Time" := 0DT; end else @@ -451,7 +451,7 @@ codeunit 2610 "Feature Management Impl." begin NewDateTime := InitDateTime; DateTimeDialog.SetDateTime(RoundDateTime(InitDateTime, 1000)); - if DateTimeDialog.RunModal() = ACTION::OK then + if DateTimeDialog.RunModal() = Action::OK then NewDateTime := DateTimeDialog.GetDateTime(); exit(NewDateTime); end; diff --git a/src/System Application/App/Feature Key/src/ScheduleFeatureDataUpdate.Page.al b/src/System Application/App/Feature Key/src/ScheduleFeatureDataUpdate.Page.al index f486392612..9c70addca4 100644 --- a/src/System Application/App/Feature Key/src/ScheduleFeatureDataUpdate.Page.al +++ b/src/System Application/App/Feature Key/src/ScheduleFeatureDataUpdate.Page.al @@ -22,7 +22,7 @@ page 2612 "Schedule Feature Data Update" layout { - area(content) + area(Content) { group(Step1) { @@ -140,7 +140,7 @@ page 2612 "Schedule Feature Data Update" actions { - area(processing) + area(Processing) { action(Back) { diff --git a/src/System Application/App/Field Selection/permissions/FieldSelectionRead.PermissionSet.al b/src/System Application/App/Field Selection/permissions/FieldSelectionRead.PermissionSet.al index b7076d2df6..5931ffd0d2 100644 --- a/src/System Application/App/Field Selection/permissions/FieldSelectionRead.PermissionSet.al +++ b/src/System Application/App/Field Selection/permissions/FieldSelectionRead.PermissionSet.al @@ -11,6 +11,6 @@ permissionset 9806 "Field Selection - Read" { Assignable = false; - Permissions = tabledata "Page Data Personalization" = R, // Page.Run requires this - tabledata Field = r; + Permissions = tabledata Field = r, +tabledata "Page Data Personalization" = R; } \ No newline at end of file diff --git a/src/System Application/App/Field Selection/src/FieldSelectionImpl.Codeunit.al b/src/System Application/App/Field Selection/src/FieldSelectionImpl.Codeunit.al index 2831f8d7fb..08d0b916b5 100644 --- a/src/System Application/App/Field Selection/src/FieldSelectionImpl.Codeunit.al +++ b/src/System Application/App/Field Selection/src/FieldSelectionImpl.Codeunit.al @@ -19,7 +19,7 @@ codeunit 9807 "Field Selection Impl." HideInvalidFields(Field); FieldsLookup.SetTableView(Field); FieldsLookup.LookupMode(true); - if FieldsLookup.RunModal() = ACTION::LookupOK then begin + if FieldsLookup.RunModal() = Action::LookupOK then begin FieldsLookup.GetSelectedFields(Field); exit(true); end; diff --git a/src/System Application/App/Field Selection/src/FieldsLookup.Page.al b/src/System Application/App/Field Selection/src/FieldsLookup.Page.al index 5174f1c44e..81f34a2724 100644 --- a/src/System Application/App/Field Selection/src/FieldsLookup.Page.al +++ b/src/System Application/App/Field Selection/src/FieldsLookup.Page.al @@ -20,7 +20,7 @@ page 9806 "Fields Lookup" layout { - area(content) + area(Content) { repeater(Control2) { @@ -61,9 +61,6 @@ page 9806 "Fields Lookup" } } - actions - { - } trigger OnOpenPage() var diff --git a/src/System Application/App/Geolocation/src/Geolocation.Codeunit.al b/src/System Application/App/Geolocation/src/Geolocation.Codeunit.al index bc4d590714..75ea62e79a 100644 --- a/src/System Application/App/Geolocation/src/Geolocation.Codeunit.al +++ b/src/System Application/App/Geolocation/src/Geolocation.Codeunit.al @@ -11,7 +11,7 @@ namespace System.Device; /// /// Geolocation.SetHighAccuracy(true); /// if Geolocation.RequestGeolocation() then -/// Geolocation.GetGeolocation(Latitude, Longitude); +/// Geolocation.GetGeolocation(Latitude, Longitude); /// /// /// diff --git a/src/System Application/App/Geolocation/src/Geolocation.Page.al b/src/System Application/App/Geolocation/src/Geolocation.Page.al index 604c9520a7..cf8d85fe09 100644 --- a/src/System Application/App/Geolocation/src/Geolocation.Page.al +++ b/src/System Application/App/Geolocation/src/Geolocation.Page.al @@ -22,7 +22,7 @@ page 7568 Geolocation layout { - area(content) + area(Content) { group(Location) { @@ -60,7 +60,7 @@ page 7568 Geolocation GeolocationImpl.LocationInteractionOnOpenPage(LocationProvider, LocationAvailable); end; - trigger LocationProvider::LocationChanged(NewLocation: DotNet Location) + trigger LocationProvider::"LocationProvider::LocationChanged"(NewLocation: DotNet Location) begin GeolocationImpl.LocationInteractionOnLocationAvailable(NewLocation); CurrPage.Close(); diff --git a/src/System Application/App/Geolocation/src/GeolocationImpl.Codeunit.al b/src/System Application/App/Geolocation/src/GeolocationImpl.Codeunit.al index 8ca1bd329a..1e9e4c31ab 100644 --- a/src/System Application/App/Geolocation/src/GeolocationImpl.Codeunit.al +++ b/src/System Application/App/Geolocation/src/GeolocationImpl.Codeunit.al @@ -16,7 +16,7 @@ codeunit 7569 "Geolocation Impl." var GeolocationPage: Page Geolocation; LocationNotRetrievedErrorMsg: Label 'The geographical location data was not retrieved.'; - CachedLocation: Dotnet Location; + CachedLocation: DotNet Location; LocationProvider: DotNet LocationProvider; LocationOptions: DotNet LocationOptions; LocationOptionsEnabled: Boolean; @@ -32,7 +32,7 @@ codeunit 7569 "Geolocation Impl." exit(false); end; - procedure LocationInteractionOnOpenPage(var LocationProvdr: Dotnet LocationProvider; var LocationAvailable: Boolean) + procedure LocationInteractionOnOpenPage(var LocationProvdr: DotNet LocationProvider; var LocationAvailable: Boolean) var Location: DotNet Location; HandledByTest: Boolean; @@ -53,7 +53,7 @@ codeunit 7569 "Geolocation Impl." LocationProvider := LocationProvdr; end; - procedure LocationInteractionOnLocationAvailable(Location: Dotnet Location) + procedure LocationInteractionOnLocationAvailable(Location: DotNet Location) begin CachedLocation := Location; end; diff --git a/src/System Application/App/Guided Experience/permissions/GuidedExperienceEdit.PermissionSet.al b/src/System Application/App/Guided Experience/permissions/GuidedExperienceEdit.PermissionSet.al index 0e1f8aaf8a..55ac4b3afb 100644 --- a/src/System Application/App/Guided Experience/permissions/GuidedExperienceEdit.PermissionSet.al +++ b/src/System Application/App/Guided Experience/permissions/GuidedExperienceEdit.PermissionSet.al @@ -17,9 +17,9 @@ permissionset 1993 "Guided Experience - Edit" "Translation - Edit"; Permissions = tabledata "Checklist Item" = IMD, - tabledata "Checklist Item Role" = IMD, // the modify permissions are necessary for the Checklist Item Roles page to work correctly + tabledata "Checklist Item Role" = IMD, tabledata "Checklist Item User" = IMD, tabledata "Checklist Setup" = IMd, - tabledata "Spotlight Tour Text" = imd, - tabledata "Published Application" = imd; + tabledata "Published Application" = imd, + tabledata "Spotlight Tour Text" = imd; } diff --git a/src/System Application/App/Guided Experience/permissions/GuidedExperienceObjects.PermissionSet.al b/src/System Application/App/Guided Experience/permissions/GuidedExperienceObjects.PermissionSet.al index 49aaab269a..bdc0b94b0e 100644 --- a/src/System Application/App/Guided Experience/permissions/GuidedExperienceObjects.PermissionSet.al +++ b/src/System Application/App/Guided Experience/permissions/GuidedExperienceObjects.PermissionSet.al @@ -9,17 +9,17 @@ permissionset 1994 "Guided Experience - Objects" { Assignable = false; - Permissions = Codeunit "Checklist" = X, - Codeunit "Guided Experience" = X, - Codeunit "Spotlight Tour" = X, - Page "Assisted Setup" = X, - Page "Checklist Administration" = X, - Page "Checklist Banner" = X, - Page "Checklist Item Roles" = X, - Page "Checklist Item Users" = X, - Page "Checklist Resurfacing" = X, - Page "Guided Experience Item List" = X, - Page "Manual Setup" = X, - Page Checklist = X, - Page "App Setup List" = X; + Permissions = codeunit Checklist = X, + codeunit "Guided Experience" = X, + codeunit "Spotlight Tour" = X, + page "App Setup List" = X, + page "Assisted Setup" = X, + page Checklist = X, + page "Checklist Administration" = X, + page "Checklist Banner" = X, + page "Checklist Item Roles" = X, + page "Checklist Item Users" = X, + page "Checklist Resurfacing" = X, + page "Guided Experience Item List" = X, + page "Manual Setup" = X; } diff --git a/src/System Application/App/Guided Experience/permissions/GuidedExperienceRead.PermissionSet.al b/src/System Application/App/Guided Experience/permissions/GuidedExperienceRead.PermissionSet.al index 6bcf1fbc0d..3fff5a2b11 100644 --- a/src/System Application/App/Guided Experience/permissions/GuidedExperienceRead.PermissionSet.al +++ b/src/System Application/App/Guided Experience/permissions/GuidedExperienceRead.PermissionSet.al @@ -19,21 +19,21 @@ permissionset 1991 "Guided Experience - Read" IncludedPermissionSets = "Guided Experience - Objects", "Translation - Read"; - Permissions = tabledata "All Profile" = r, - tabledata AllObj = r, + Permissions = tabledata AllObj = r, tabledata AllObjWithCaption = r, +tabledata "All Profile" = r, tabledata "Checklist Item" = R, - tabledata "Checklist Item Buffer" = r, // needed for Checklist page to be searchable + tabledata "Checklist Item Buffer" = r, tabledata "Checklist Item Role" = R, tabledata "Checklist Item User" = R, tabledata "Checklist Setup" = R, tabledata Company = r, tabledata "Guided Experience Item" = R, + tabledata "Media" = R, tabledata "Primary Guided Experience Item" = r, + tabledata "Published Application" = R, + tabledata "Spotlight Tour Text" = r, tabledata User = r, tabledata "User Checklist Status" = R, - tabledata "User Personalization" = r, - tabledata "Media" = R, - tabledata "Published Application" = R, - tabledata "Spotlight Tour Text" = r; + tabledata "User Personalization" = r; } diff --git a/src/System Application/App/Guided Experience/permissions/GuidedExperienceView.PermissionSet.al b/src/System Application/App/Guided Experience/permissions/GuidedExperienceView.PermissionSet.al index 8a2243ecca..86291bc850 100644 --- a/src/System Application/App/Guided Experience/permissions/GuidedExperienceView.PermissionSet.al +++ b/src/System Application/App/Guided Experience/permissions/GuidedExperienceView.PermissionSet.al @@ -18,11 +18,11 @@ permissionset 1992 "Guided Experience - View" Permissions = tabledata AllObj = r, tabledata "Checklist Item" = imd, - tabledata "Checklist Item Role" = imd, // the modify permissions are necessary for the Checklist Item Roles page to work correctly + tabledata "Checklist Item Role" = imd, tabledata "Checklist Item User" = imd, tabledata "Checklist Setup" = im, tabledata "Guided Experience Item" = imd, tabledata "Primary Guided Experience Item" = imd, - tabledata "User Checklist Status" = im, - tabledata "Spotlight Tour Text" = imd; + tabledata "Spotlight Tour Text" = imd, + tabledata "User Checklist Status" = im; } diff --git a/src/System Application/App/Guided Experience/src/App Setup/AppSetupList.Page.al b/src/System Application/App/Guided Experience/src/App Setup/AppSetupList.Page.al index 22f2bd7d26..1489e94c0b 100644 --- a/src/System Application/App/Guided Experience/src/App Setup/AppSetupList.Page.al +++ b/src/System Application/App/Guided Experience/src/App Setup/AppSetupList.Page.al @@ -21,12 +21,12 @@ page 1991 "App Setup List" SourceTableTemporary = true; Extensible = true; ContextSensitiveHelpPage = 'ui-get-ready-business'; - Permissions = TableData "Guided Experience Item" = r, - TableData "Primary Guided Experience Item" = r; + Permissions = tabledata "Guided Experience Item" = r, + tabledata "Primary Guided Experience Item" = r; layout { - area(content) + area(Content) { repeater(Group) { @@ -68,7 +68,7 @@ page 1991 "App Setup List" actions { - area(processing) + area(Processing) { action("Start Setup") { @@ -76,7 +76,7 @@ page 1991 "App Setup List" Caption = 'Start Setup'; Image = Setup; Scope = Repeater; - ShortCutKey = 'Return'; + ShortcutKey = 'Return'; ToolTip = 'Start setup.'; trigger OnAction() diff --git a/src/System Application/App/Guided Experience/src/Assisted Setup/AggregatedAssistedSetup.Table.al b/src/System Application/App/Guided Experience/src/Assisted Setup/AggregatedAssistedSetup.Table.al index fbee4dde77..18a1e88411 100644 --- a/src/System Application/App/Guided Experience/src/Assisted Setup/AggregatedAssistedSetup.Table.al +++ b/src/System Application/App/Guided Experience/src/Assisted Setup/AggregatedAssistedSetup.Table.al @@ -66,7 +66,7 @@ table 1808 "Aggregated Assisted Setup" DataClassification = SystemMetadata; Caption = 'External Assisted Setup'; } - field(18; "Record ID"; RecordID) + field(18; "Record ID"; RecordId) { Caption = 'Record ID'; DataClassification = CustomerContent; diff --git a/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetup.Page.al b/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetup.Page.al index 4eda8ec43a..4f3985b822 100644 --- a/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetup.Page.al +++ b/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetup.Page.al @@ -26,11 +26,11 @@ page 1801 "Assisted Setup" UsageCategory = Administration; Extensible = true; ContextSensitiveHelpPage = 'ui-get-ready-business'; - Permissions = TableData "Guided Experience Item" = r; + Permissions = tabledata "Guided Experience Item" = r; layout { - area(content) + area(Content) { repeater(Group) { @@ -126,7 +126,7 @@ page 1801 "Assisted Setup" actions { - area(processing) + area(Processing) { action("Start Setup") { @@ -134,7 +134,7 @@ page 1801 "Assisted Setup" Caption = 'Start Setup'; Image = Setup; Scope = Repeater; - ShortCutKey = 'Return'; + ShortcutKey = 'Return'; ToolTip = 'Start the assisted setup guide.'; trigger OnAction() diff --git a/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetup.Table.al b/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetup.Table.al index 04e216ec26..625366ed02 100644 --- a/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetup.Table.al +++ b/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetup.Table.al @@ -186,9 +186,6 @@ table 1803 "Assisted Setup" } } - fieldgroups - { - } trigger OnDelete() var diff --git a/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetupLog.Table.al b/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetupLog.Table.al index cf40a68f7a..72c4de1b69 100644 --- a/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetupLog.Table.al +++ b/src/System Application/App/Guided Experience/src/Assisted Setup/AssistedSetupLog.Table.al @@ -55,8 +55,5 @@ table 1807 "Assisted Setup Log" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Guided Experience/src/Assisted Setup/ProductVideoCategory.Table.al b/src/System Application/App/Guided Experience/src/Assisted Setup/ProductVideoCategory.Table.al index e880141b8b..d0668d6728 100644 --- a/src/System Application/App/Guided Experience/src/Assisted Setup/ProductVideoCategory.Table.al +++ b/src/System Application/App/Guided Experience/src/Assisted Setup/ProductVideoCategory.Table.al @@ -51,8 +51,5 @@ table 1471 "Product Video Category" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Guided Experience/src/Checklist Administration/Checklist.Page.al b/src/System Application/App/Guided Experience/src/Checklist Administration/Checklist.Page.al index 9bc0120dd5..6f12926d79 100644 --- a/src/System Application/App/Guided Experience/src/Checklist Administration/Checklist.Page.al +++ b/src/System Application/App/Guided Experience/src/Checklist Administration/Checklist.Page.al @@ -23,7 +23,7 @@ page 1993 Checklist layout { - area(content) + area(Content) { repeater(Control1) { diff --git a/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistAdministration.Page.al b/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistAdministration.Page.al index 3238cb4a44..06da7b0396 100644 --- a/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistAdministration.Page.al +++ b/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistAdministration.Page.al @@ -22,7 +22,7 @@ page 1992 "Checklist Administration" layout { - area(content) + area(Content) { field(Type; Rec."Guided Experience Type") { diff --git a/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistItemRoles.Page.al b/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistItemRoles.Page.al index d82a3600f6..e19713a0f2 100644 --- a/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistItemRoles.Page.al +++ b/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistItemRoles.Page.al @@ -18,7 +18,7 @@ page 1994 "Checklist Item Roles" layout { - area(content) + area(Content) { repeater(Control1) { diff --git a/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistItemUsers.Page.al b/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistItemUsers.Page.al index 95eeddd193..d1725e6673 100644 --- a/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistItemUsers.Page.al +++ b/src/System Application/App/Guided Experience/src/Checklist Administration/ChecklistItemUsers.Page.al @@ -18,7 +18,7 @@ page 1995 "Checklist Item Users" layout { - area(content) + area(Content) { repeater(Control1) { diff --git a/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al b/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al index b5bfe230b3..fab87ea86d 100644 --- a/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al +++ b/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al @@ -22,14 +22,14 @@ page 1990 "Checklist Banner" // ---------------------IMPORTANT--------------------------- // --------------------------------------------------------- // DO NOT CHANGE THE NAMES OF ANY OF THE FIELDS ON THIS PAGE. - // THE CLIENT WILL NOT BE ABLE TO RENDER THE PAGE PROPERLY + // THE CLIENT WILL NOT BE ABLE TO RENDER THE PAGE PROPERLY // OTHERWISE. // --------------------------------------------------------- // ---------------------IMPORTANT--------------------------- layout { - area(content) + area(Content) { field(Title; TitleTxt) { @@ -121,7 +121,7 @@ page 1990 "Checklist Banner" { ApplicationArea = All; Caption = 'Mark as completed'; - Tooltip = 'Specifies the task as completed.'; + ToolTip = 'Specifies the task as completed.'; Visible = IsChecklistItemStarted; trigger OnValidate() @@ -378,7 +378,7 @@ page 1990 "Checklist Banner" ChecklistImplementation.SetChecklistVisibility(UserId(), false); end; - trigger Tour::TourEnded(PageId: Integer; Completed: Boolean; Data: Text) + trigger Tour::"Tour::TourEnded"(PageId: Integer; Completed: Boolean; Data: Text) var ChecklistItemCode: Code[300]; begin @@ -387,7 +387,7 @@ page 1990 "Checklist Banner" ChecklistItemCode := 'dummy value'; // this line is here because of bug 409754 end; - trigger Tour::SpotlightTourEnded(PageId: Integer; SpotlightTour: DotNet SpotlightTour; Completed: Boolean; Data: Text) + trigger Tour::"Tour::SpotlightTourEnded"(PageId: Integer; SpotlightTour: DotNet SpotlightTour; Completed: Boolean; Data: Text) var ChecklistItemCode: Code[300]; begin diff --git a/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBannerImpl.Codeunit.al b/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBannerImpl.Codeunit.al index 8cd8cc91bd..fd7ccb838b 100644 --- a/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBannerImpl.Codeunit.al +++ b/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBannerImpl.Codeunit.al @@ -406,7 +406,7 @@ codeunit 1996 "Checklist Banner Impl." var AllProfile: Record "All Profile"; begin - // if the tour is running on the same page as the checklist we don't want to refresh the page, + // if the tour is running on the same page as the checklist we don't want to refresh the page, // as the checklist will appear in a wrong state afterwards, so we need to run the tour for object ID 0 AllProfile.SetRange("Role Center ID", ObjectIDToRun); diff --git a/src/System Application/App/Guided Experience/src/Checklist/Checklist.Codeunit.al b/src/System Application/App/Guided Experience/src/Checklist/Checklist.Codeunit.al index ca4dd13e6b..a26266162a 100644 --- a/src/System Application/App/Guided Experience/src/Checklist/Checklist.Codeunit.al +++ b/src/System Application/App/Guided Experience/src/Checklist/Checklist.Codeunit.al @@ -11,7 +11,7 @@ using System.Reflection; /// /// Manage the checklist presented to users by inserting and deleting checklist items and controling the visibility of the checklist. /// -codeunit 1992 "Checklist" +codeunit 1992 Checklist { Access = Public; @@ -19,7 +19,7 @@ codeunit 1992 "Checklist" ChecklistImplementation: Codeunit "Checklist Implementation"; /// - /// Inserts a new checklist item. + /// Inserts a new checklist item. /// /// The type of guided experience item that the checklist item references. /// The object type run by the guided experience item that the checklist item references. diff --git a/src/System Application/App/Guided Experience/src/Checklist/ChecklistCompletionRequirements.Enum.al b/src/System Application/App/Guided Experience/src/Checklist/ChecklistCompletionRequirements.Enum.al index 9ab8bf30a5..d4d492f5cf 100644 --- a/src/System Application/App/Guided Experience/src/Checklist/ChecklistCompletionRequirements.Enum.al +++ b/src/System Application/App/Guided Experience/src/Checklist/ChecklistCompletionRequirements.Enum.al @@ -12,7 +12,7 @@ enum 1993 "Checklist Completion Requirements" Access = Internal; /// - /// Anyone who can view the checklist item can perform the action and the item will be registered + /// Anyone who can view the checklist item can perform the action and the item will be registered /// as completed. /// value(0; Anyone) @@ -30,7 +30,7 @@ enum 1993 "Checklist Completion Requirements" } /// - /// One or more specific users need to perform the checklist action in order for it to + /// One or more specific users need to perform the checklist action in order for it to /// be registered as completed. /// value(2; "Specific users") diff --git a/src/System Application/App/Guided Experience/src/Checklist/ChecklistImplementation.Codeunit.al b/src/System Application/App/Guided Experience/src/Checklist/ChecklistImplementation.Codeunit.al index 32d9e222d5..28edfc9488 100644 --- a/src/System Application/App/Guided Experience/src/Checklist/ChecklistImplementation.Codeunit.al +++ b/src/System Application/App/Guided Experience/src/Checklist/ChecklistImplementation.Codeunit.al @@ -127,7 +127,7 @@ codeunit 1993 "Checklist Implementation" GuidedExperienceImpl: Codeunit "Guided Experience Impl."; VideoUrl: Text[250]; begin - GetLinkAndVideoUrl(link, VideoUrl, GuidedExperienceType); + GetLinkAndVideoUrl(Link, VideoUrl, GuidedExperienceType); GuidedExperienceImpl.FilterGuidedExperienceItem(GuidedExperienceItem, GuidedExperienceType, ObjectTypeToRun, ObjectIDToRun, Link, VideoUrl, SpotlightTourType); @@ -370,7 +370,7 @@ codeunit 1993 "Checklist Implementation" var UserLoginTimeTracker: Codeunit "User Login Time Tracker"; begin - // We want to know whether this is the first time the user is logging in, but because our event is fired after system initialization, + // We want to know whether this is the first time the user is logging in, but because our event is fired after system initialization, // the user will already have a record in the User Login Times table, but no penultimate login date time. exit((not UserLoginTimeTracker.IsFirstLogin(UserSecurityId())) and (UserLoginTimeTracker.GetPenultimateLoginDateTime() = 0DT)); end; diff --git a/src/System Application/App/Guided Experience/src/Checklist/ChecklistItemUser.Table.al b/src/System Application/App/Guided Experience/src/Checklist/ChecklistItemUser.Table.al index 5bf0e5ab8c..2527bff0d8 100644 --- a/src/System Application/App/Guided Experience/src/Checklist/ChecklistItemUser.Table.al +++ b/src/System Application/App/Guided Experience/src/Checklist/ChecklistItemUser.Table.al @@ -66,7 +66,4 @@ table 1993 "Checklist Item User" } } - fieldgroups - { - } } \ No newline at end of file diff --git a/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperience.Codeunit.al b/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperience.Codeunit.al index e8941098f9..dde0808a11 100644 --- a/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperience.Codeunit.al +++ b/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperience.Codeunit.al @@ -277,7 +277,7 @@ codeunit 1990 "Guided Experience" end; /// Adds the translation for the description of the setup object. - /// The type of setup object./// + /// The type of setup object./// /// The object type that identifies the guided experience item. /// The object ID that identifies the guided experience item. /// The language ID for which the translation is made. @@ -290,7 +290,7 @@ codeunit 1990 "Guided Experience" end; /// Adds the translation for the short title of the setup object. - /// The type of setup object. + /// The type of setup object. /// The object type that identifies the guided experience item. /// The object ID that identifies the guided experience item. /// The language ID for which the translation is made. @@ -305,14 +305,14 @@ codeunit 1990 "Guided Experience" /// Checks whether a user has completed the setup corresponding to the object type and ID. /// The object type that identifies the guided experience item. /// The object ID that identifies the guided experience item. - /// Returns true if the given setup guide has been completed by a user, otherwise false. + /// Returns true if the given setup guide has been completed by a user, otherwise false. procedure IsAssistedSetupComplete(ObjectType: ObjectType; ObjectID: Integer): Boolean begin exit(GuidedExperienceImpl.IsAssistedSetupComplete(ObjectType, ObjectID)); end; /// Checks whether a guided experience item exists for the given object type and ID. - /// The type of setup object./// /// + /// The type of setup object./// /// /// The object type that identifies the guided experience item. /// The object ID that identifies the guided experience item. /// True if a guided experience item exists for the provided object type and ID; false otherwise. @@ -322,7 +322,7 @@ codeunit 1990 "Guided Experience" end; /// Checks whether a guided experience item exists for the link. - /// The type of setup object./// /// + /// The type of setup object./// /// /// The link that identifies the guided experience item. /// True if a guided experience item exists for the provided link; false otherwise. procedure Exists(GuidedExperienceType: Enum "Guided Experience Type"; Link: Text[250]): Boolean @@ -357,7 +357,7 @@ codeunit 1990 "Guided Experience" end; /// Issues the call to start the guided experience item. - /// The type of setup object./// /// + /// The type of setup object./// /// /// The object type that identifies the guided experience item. /// The object ID that identifies the guided experience item. procedure Run(GuidedExperienceType: Enum "Guided Experience Type"; ObjectType: ObjectType; ObjectID: Integer) @@ -468,7 +468,7 @@ codeunit 1990 "Guided Experience" /// Notifies that the Open Role Based Setup Experience has been invoked. /// The ID of the page being invoked. - /// The flag which if set, would stop executing the OpenRoleBasedSetupExperience of the assisted setup guide. + /// The flag which if set, would stop executing the OpenRoleBasedSetupExperience of the assisted setup guide. [IntegrationEvent(false, false)] internal procedure OnBeforeOpenRoleBasedAssistedSetupExperience(var PageID: Integer; var Handled: Boolean) begin diff --git a/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceImpl.Codeunit.al b/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceImpl.Codeunit.al index ffb051e191..c6c172c5b1 100644 --- a/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceImpl.Codeunit.al +++ b/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceImpl.Codeunit.al @@ -545,7 +545,7 @@ codeunit 1991 "Guided Experience Impl." if (GuidedExperienceItem."Guided Experience Type" = Enum::"Guided Experience Type"::Video) and (GuidedExperienceItem."Guided Experience Type" = PrevGuidedExperienceItem."Guided Experience Type") then - if (GuidedExperienceItem."Title" <> PrevGuidedExperienceItem."Title") + if (GuidedExperienceItem.Title <> PrevGuidedExperienceItem.Title) or (GuidedExperienceItem.Description <> PrevGuidedExperienceItem.Description) or (GuidedExperienceItem."Video Url" <> PrevGuidedExperienceItem."Video Url") or (GuidedExperienceItem."Video Category" <> PrevGuidedExperienceItem."Video Category") @@ -835,7 +835,7 @@ codeunit 1991 "Guided Experience Impl." InsertTranslations(GuidedExperienceItem, GuidedExperienceItem.Title, GuidedExperienceItem."Short Title", GuidedExperienceItem.Description, GuidedExperienceItem.Keywords); - // if this isn't the first version of the record, copy all the existing translations for the + // if this isn't the first version of the record, copy all the existing translations for the // record if the fields haven't changed and if the translations don't already exist if GuidedExperienceItem.Version > 0 then begin if PrevVersionGuidedExperienceItem.Title = GuidedExperienceItem.Title then @@ -1086,8 +1086,8 @@ codeunit 1991 "Guided Experience Impl." var PublishedApplication: Record "Published Application"; Media: Record Media; - LogoInStream: Instream; - LogoOutStream: Outstream; + LogoInStream: InStream; + LogoOutStream: OutStream; begin PublishedApplication.SetRange(ID, AppId); PublishedApplication.SetRange("Tenant Visible", true); @@ -1101,7 +1101,7 @@ codeunit 1991 "Guided Experience Impl." Media.CalcFields(Content); Media.Content.CreateInStream(LogoInStream); - LogoTempBlob.CreateOutstream(LogoOutStream); + LogoTempBlob.CreateOutStream(LogoOutStream); CopyStream(LogoOutStream, LogoInStream); end; end; diff --git a/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceItemList.Page.al b/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceItemList.Page.al index 741d2d7ee4..278f746b01 100644 --- a/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceItemList.Page.al +++ b/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceItemList.Page.al @@ -21,7 +21,7 @@ page 1996 "Guided Experience Item List" layout { - area(content) + area(Content) { repeater(Control1) { diff --git a/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceType.Enum.al b/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceType.Enum.al index f0e0665ac0..25b90c6a34 100644 --- a/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceType.Enum.al +++ b/src/System Application/App/Guided Experience/src/Guided Experience/GuidedExperienceType.Enum.al @@ -18,7 +18,7 @@ enum 1990 "Guided Experience Type" { Caption = 'Manual Setup', Locked = true; } - value(2; "Learn") + value(2; Learn) { Caption = 'Learn', Locked = true; } diff --git a/src/System Application/App/Guided Experience/src/Manual Setup/ManualSetup.Page.al b/src/System Application/App/Guided Experience/src/Manual Setup/ManualSetup.Page.al index ced7366661..f40563431f 100644 --- a/src/System Application/App/Guided Experience/src/Manual Setup/ManualSetup.Page.al +++ b/src/System Application/App/Guided Experience/src/Manual Setup/ManualSetup.Page.al @@ -19,11 +19,11 @@ page 1875 "Manual Setup" SourceTableTemporary = true; UsageCategory = Administration; ContextSensitiveHelpPage = 'setup'; - Permissions = TableData "Guided Experience Item" = r; + Permissions = tabledata "Guided Experience Item" = r; layout { - area(content) + area(Content) { repeater(Group) { @@ -66,7 +66,7 @@ page 1875 "Manual Setup" actions { - area(processing) + area(Processing) { action("Open Manual Setup") { @@ -74,7 +74,7 @@ page 1875 "Manual Setup" Caption = 'Open Manual Setup'; Image = Edit; Scope = Repeater; - ShortCutKey = 'Return'; + ShortcutKey = 'Return'; ToolTip = 'View or edit the setup for the application feature.'; Enabled = (Rec."Object Type to Run" = Rec."Object Type to Run"::Page) and (Rec."Object ID to Run" <> 0); diff --git a/src/System Application/App/Guided Experience/src/Tour/SpotlightTourType.Enum.al b/src/System Application/App/Guided Experience/src/Tour/SpotlightTourType.Enum.al index 3d2fcab5c0..7a99db7358 100644 --- a/src/System Application/App/Guided Experience/src/Tour/SpotlightTourType.Enum.al +++ b/src/System Application/App/Guided Experience/src/Tour/SpotlightTourType.Enum.al @@ -16,7 +16,7 @@ enum 1996 "Spotlight Tour Type" /// /// Default value - none. /// - value(0; "None") + value(0; None) { Caption = 'None'; } @@ -40,7 +40,7 @@ enum 1996 "Spotlight Tour Type" /// /// Specifies that the tour spotlights the Copilot functionality on the page. /// - value(3; "Copilot") + value(3; Copilot) { Caption = 'Copilot'; } diff --git a/src/System Application/App/Headlines/src/Headlines.Codeunit.al b/src/System Application/App/Headlines/src/Headlines.Codeunit.al index 6f378ee27c..ed401abfc3 100644 --- a/src/System Application/App/Headlines/src/Headlines.Codeunit.al +++ b/src/System Application/App/Headlines/src/Headlines.Codeunit.al @@ -68,10 +68,10 @@ codeunit 1439 Headlines /// 11:00-13:59 Hi, John Doe! /// 14:00-18:59 Good afternoon, John Doe! /// 19:00-23:59 Good evening, John Doe! - /// if the user name is blank for the current user, simplified version + /// if the user name is blank for the current user, simplified version /// is used (for example, "Good afternoon!"). /// - /// The greeting text. + /// The greeting text. procedure GetUserGreetingText(): Text; begin exit(HeadlinesImpl.GetUserGreetingText()); @@ -89,7 +89,7 @@ codeunit 1439 Headlines /// /// The accepted maximum length of a qualifier. /// - /// The number of characters, 50. + /// The number of characters, 50. procedure GetMaxQualifierLength(): Integer; begin exit(HeadlinesImpl.GetMaxQualifierLength()); @@ -98,7 +98,7 @@ codeunit 1439 Headlines /// /// The accepted maximum length of a payload. /// - /// The number of characters, 75. + /// The number of characters, 75. procedure GetMaxPayloadLength(): Integer; begin exit(HeadlinesImpl.GetMaxPayloadLength()); diff --git a/src/System Application/App/Image/src/Image.Codeunit.al b/src/System Application/App/Image/src/Image.Codeunit.al index 0ee8f22881..28631cbcd6 100644 --- a/src/System Application/App/Image/src/Image.Codeunit.al +++ b/src/System Application/App/Image/src/Image.Codeunit.al @@ -41,15 +41,15 @@ codeunit 3971 Image end; /// - /// Crops the image based on a rectangle specified by the user. + /// Crops the image based on a rectangle specified by the user. /// The resulting crop will be a hole-cut in the image made by the rectangle. /// /// X coordinate of the rectangle. /// Y coordinate of the rectangle. /// Width of rectangle. /// Height of the rectangle./ - /// The Rectangles top left corner has to be within the image dimensions, - /// but specifying a width or height that makes the rectangle go outside the image dimensions is allowed. + /// The Rectangles top left corner has to be within the image dimensions, + /// but specifying a width or height that makes the rectangle go outside the image dimensions is allowed. /// Anything outside the image dimensions will be filled with the image background color. /// X and Y is not within the image dimensions. /// Width and Height is less than one. diff --git a/src/System Application/App/Image/src/ImageImpl.Codeunit.al b/src/System Application/App/Image/src/ImageImpl.Codeunit.al index 88c0d94234..6487d89b04 100644 --- a/src/System Application/App/Image/src/ImageImpl.Codeunit.al +++ b/src/System Application/App/Image/src/ImageImpl.Codeunit.al @@ -151,8 +151,8 @@ codeunit 3970 "Image Impl." Base64Converter: Codeunit "Base64 Convert"; Outstream: OutStream; begin - TempBlob.CreateOutStream(OutStream, TextEncoding::UTF8); - Base64Converter.FromBase64(Base64Text, OutStream); + TempBlob.CreateOutStream(Outstream, TextEncoding::UTF8); + Base64Converter.FromBase64(Base64Text, Outstream); CreateAndVerifyImage(); end; diff --git a/src/System Application/App/Language/permissions/LanguageObjects.PermissionSet.al b/src/System Application/App/Language/permissions/LanguageObjects.PermissionSet.al index 03430b1593..6afa0487ca 100644 --- a/src/System Application/App/Language/permissions/LanguageObjects.PermissionSet.al +++ b/src/System Application/App/Language/permissions/LanguageObjects.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 164 "Language - Objects" Access = Internal; Assignable = false; - Permissions = Page "Windows Languages" = X, - Page Languages = X; + Permissions = page Languages = X, +page "Windows Languages" = X; } diff --git a/src/System Application/App/Language/src/Language.Codeunit.al b/src/System Application/App/Language/src/Language.Codeunit.al index 0741db55f0..9dba8ecc8d 100644 --- a/src/System Application/App/Language/src/Language.Codeunit.al +++ b/src/System Application/App/Language/src/Language.Codeunit.al @@ -43,7 +43,7 @@ codeunit 43 Language /// - /// Returns format region for a given language. If format region is provided it itself will be returned. If format region is empty the region is taken from UserSessionSettings. + /// Returns format region for a given language. If format region is provided it itself will be returned. If format region is empty the region is taken from UserSessionSettings. /// If no valid tag is found, the default 'en-US' tag is returned. /// /// The variable for the format region id. diff --git a/src/System Application/App/Language/src/Language.Table.al b/src/System Application/App/Language/src/Language.Table.al index c7ce2d10fa..4fcc29d878 100644 --- a/src/System Application/App/Language/src/Language.Table.al +++ b/src/System Application/App/Language/src/Language.Table.al @@ -11,7 +11,7 @@ namespace System.Globalization; table 8 Language { Access = Public; - LookupPageID = Languages; + LookupPageId = Languages; InherentEntitlements = RX; InherentPermissions = RX; diff --git a/src/System Application/App/Language/src/LanguageImpl.Codeunit.al b/src/System Application/App/Language/src/LanguageImpl.Codeunit.al index ed8d0921a4..8b10ac5dde 100644 --- a/src/System Application/App/Language/src/LanguageImpl.Codeunit.al +++ b/src/System Application/App/Language/src/LanguageImpl.Codeunit.al @@ -16,9 +16,9 @@ codeunit 54 "Language Impl." InherentEntitlements = X; InherentPermissions = X; Permissions = tabledata Language = rimd, + tabledata "Language Selection" = r, tabledata "User Personalization" = rm, - tabledata "Windows Language" = r, - tabledata "Language Selection" = r; + tabledata "Windows Language" = r; var LanguageNotFoundErr: Label 'The language %1 could not be found.', Comment = '%1 = Language ID'; @@ -219,7 +219,7 @@ codeunit 54 "Language Impl." begin WindowsLanguage.SetCurrentKey(Name); - if PAGE.RunModal(PAGE::"Windows Languages", WindowsLanguage) = ACTION::LookupOK then + if Page.RunModal(Page::"Windows Languages", WindowsLanguage) = Action::LookupOK then LanguageId := WindowsLanguage."Language ID"; end; @@ -250,13 +250,13 @@ codeunit 54 "Language Impl." exit; // Only lock the table if there is a change - if UserPersonalization."Language ID" = NewLanguageId then + if UserPersonalization."Language ID" = NewLanguageID then exit; // No changes required UserPersonalization.LockTable(); UserPersonalization.Get(UserSecID); - UserPersonalization.Validate("Language ID", NewLanguageId); - UserPersonalization.Validate("Locale ID", NewLanguageId); + UserPersonalization.Validate("Language ID", NewLanguageID); + UserPersonalization.Validate("Locale ID", NewLanguageID); UserPersonalization.Modify(true); end; diff --git a/src/System Application/App/Language/src/Languages.Page.al b/src/System Application/App/Language/src/Languages.Page.al index c2d2ddd8dc..6f673b8dc0 100644 --- a/src/System Application/App/Language/src/Languages.Page.al +++ b/src/System Application/App/Language/src/Languages.Page.al @@ -20,7 +20,7 @@ page 9 Languages layout { - area(content) + area(Content) { repeater(Control2) { @@ -38,7 +38,7 @@ page 9 Languages field("Windows Language ID"; Rec."Windows Language ID") { ApplicationArea = All; - LookupPageID = "Windows Languages"; + LookupPageId = "Windows Languages"; ToolTip = 'Specifies the ID of the Windows language associated with the language code you have set up in this line.'; } field("Windows Language Name"; Rec."Windows Language Name") @@ -51,9 +51,6 @@ page 9 Languages } } - actions - { - } } diff --git a/src/System Application/App/Language/src/WindowsLanguages.Page.al b/src/System Application/App/Language/src/WindowsLanguages.Page.al index c132609c76..7f4a3fb957 100644 --- a/src/System Application/App/Language/src/WindowsLanguages.Page.al +++ b/src/System Application/App/Language/src/WindowsLanguages.Page.al @@ -23,7 +23,7 @@ page 535 "Windows Languages" layout { - area(content) + area(Content) { repeater(Control2) { @@ -45,9 +45,6 @@ page 535 "Windows Languages" } } - actions - { - } } diff --git a/src/System Application/App/Navigation Bar Subscribers/src/NavigationBarSubscribers.Codeunit.al b/src/System Application/App/Navigation Bar Subscribers/src/NavigationBarSubscribers.Codeunit.al index 9e8cb7f6b1..ffba246bf0 100644 --- a/src/System Application/App/Navigation Bar Subscribers/src/NavigationBarSubscribers.Codeunit.al +++ b/src/System Application/App/Navigation Bar Subscribers/src/NavigationBarSubscribers.Codeunit.al @@ -13,21 +13,21 @@ codeunit 154 "Navigation Bar Subscribers" InherentPermissions = X; /// Notifies that the Default Open Company Settings has been invoked. - /// The flag which if set, would stop executing the event. + /// The flag which if set, would stop executing the event. [IntegrationEvent(false, false)] internal procedure OnBeforeDefaultOpenCompanySettings(var Handled: Boolean) begin end; /// Notifies that the Default Open Role Based Setup Experience has been invoked. - /// The flag which if set, would stop executing the event. + /// The flag which if set, would stop executing the event. [IntegrationEvent(false, false)] internal procedure OnBeforeDefaultOpenRoleBasedSetupExperience(var Handled: Boolean) begin end; /// Notifies that the Default Open General Setup Experience has been invoked. - /// The flag which if set, would stop executing the event. + /// The flag which if set, would stop executing the event. [IntegrationEvent(false, false)] internal procedure OnBeforeDefaultOpenGeneralSetupExperience(var Handled: Boolean) begin diff --git a/src/System Application/App/OAuth2/OAuth2.Codeunit.al b/src/System Application/App/OAuth2/OAuth2.Codeunit.al index f55966eea6..9be4659037 100644 --- a/src/System Application/App/OAuth2/OAuth2.Codeunit.al +++ b/src/System Application/App/OAuth2/OAuth2.Codeunit.al @@ -464,7 +464,7 @@ codeunit 501 OAuth2 begin OAuth2Impl.AcquireOnBehalfOfTokensByTokenCache(ClientId, ClientSecret, LoginHint, RedirectURL, Scopes, TokenCache, AccessToken, IdToken, NewTokenCache); end; - + #pragma warning restore AS0022 /// @@ -480,8 +480,8 @@ codeunit 501 OAuth2 /// Returns the default Business Central redirectURL /// [NonDebuggable] - procedure GetDefaultRedirectURL(var RedirectUrl: text) + procedure GetDefaultRedirectURL(var RedirectUrl: Text) begin - RedirectUrl := OAuth2Impl.GetDefaultRedirectURL(); + RedirectUrl := OAuth2Impl.GetDefaultRedirectUrl(); end; } \ No newline at end of file diff --git a/src/System Application/App/OAuth2/OAuth2Impl.Codeunit.al b/src/System Application/App/OAuth2/OAuth2Impl.Codeunit.al index f16aee1864..e1a369303b 100644 --- a/src/System Application/App/OAuth2/OAuth2Impl.Codeunit.al +++ b/src/System Application/App/OAuth2/OAuth2Impl.Codeunit.al @@ -515,7 +515,7 @@ codeunit 502 OAuth2Impl procedure AcquireTokenFromCache(RedirectURL: Text; ClientId: Text; ClientSecret: Text; OAuthAuthorityUrl: Text; ResourceURL: Text; var AccessToken: Text) begin Initialize(OAuthAuthorityUrl, RedirectURL); - AccessToken := AuthFlow.ALAcquireTokenFromCacheWithCredentials(ClientID, ClientSecret, ResourceURL); + AccessToken := AuthFlow.ALAcquireTokenFromCacheWithCredentials(ClientId, ClientSecret, ResourceURL); end; [NonDebuggable] @@ -523,7 +523,7 @@ codeunit 502 OAuth2Impl procedure AcquireTokenFromCacheWithCertificate(RedirectURL: Text; ClientId: Text; Certificate: Text; OAuthAuthorityUrl: Text; ResourceURL: Text; var AccessToken: Text) begin Initialize(OAuthAuthorityUrl, RedirectURL); - AccessToken := AuthFlow.ALAcquireTokenFromCacheWithCertificate(ClientID, Certificate, ResourceURL); + AccessToken := AuthFlow.ALAcquireTokenFromCacheWithCertificate(ClientId, Certificate, ResourceURL); end; [NonDebuggable] @@ -534,7 +534,7 @@ codeunit 502 OAuth2Impl begin FillScopesArray(Scopes, ScopesArray); Initialize(OAuthAuthorityUrl, RedirectURL); - AccessToken := AuthFlow.ALAcquireTokenFromCacheWithCredentials(ClientID, ClientSecret, ScopesArray); + AccessToken := AuthFlow.ALAcquireTokenFromCacheWithCredentials(ClientId, ClientSecret, ScopesArray); end; [NonDebuggable] @@ -557,7 +557,7 @@ codeunit 502 OAuth2Impl begin FillScopesArray(Scopes, ScopesArray); Initialize(OAuthAuthorityUrl, RedirectURL); - CompoundToken := AuthFlow.ALAcquireTokensFromCacheWithCredentials(ClientID, ClientSecret, ScopesArray); + CompoundToken := AuthFlow.ALAcquireTokensFromCacheWithCredentials(ClientId, ClientSecret, ScopesArray); AccessToken := CompoundToken.AccessToken; IdToken := CompoundToken.IdToken; end; @@ -571,7 +571,7 @@ codeunit 502 OAuth2Impl begin FillScopesArray(Scopes, ScopesArray); Initialize(OAuthAuthorityUrl, RedirectURL); - CompoundToken := AuthFlow.ALAcquireTokensFromCacheWithCertificate(ClientID, Certificate, ScopesArray); + CompoundToken := AuthFlow.ALAcquireTokensFromCacheWithCertificate(ClientId, Certificate, ScopesArray); AccessToken := CompoundToken.AccessToken; IdToken := CompoundToken.IdToken; end; @@ -585,7 +585,7 @@ codeunit 502 OAuth2Impl begin FillScopesArray(Scopes, ScopesArray); Initialize(OAuthAuthorityUrl, RedirectURL); - CompoundToken := AuthFlow.ALAcquireApplicationTokensWithCertificate(ClientID, Certificate, OAuthAuthorityUrl, ScopesArray); + CompoundToken := AuthFlow.ALAcquireApplicationTokensWithCertificate(ClientId, Certificate, OAuthAuthorityUrl, ScopesArray); AccessToken := CompoundToken.AccessToken; IdToken := CompoundToken.IdToken; end; @@ -595,7 +595,7 @@ codeunit 502 OAuth2Impl procedure AcquireTokenWithClientCredentials(ClientId: Text; ClientSecret: Text; OAuthAuthorityUrl: Text; RedirectURL: Text; ResourceURL: Text; var AccessToken: Text) begin Initialize(OAuthAuthorityUrl, RedirectURL); - AccessToken := AuthFlow.ALAcquireApplicationToken(ClientID, ClientSecret, OAuthAuthorityUrl, ResourceURL); + AccessToken := AuthFlow.ALAcquireApplicationToken(ClientId, ClientSecret, OAuthAuthorityUrl, ResourceURL); if AccessToken = '' then Session.LogMessage('0000C23', EmptyAccessTokenClientCredsErr, Verbosity::Error, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', Oauth2CategoryLbl); end; @@ -608,7 +608,7 @@ codeunit 502 OAuth2Impl begin FillScopesArray(Scopes, ScopesArray); Initialize(OAuthAuthorityUrl, RedirectURL); - AccessToken := AuthFlow.ALAcquireApplicationToken(ClientID, ClientSecret, OAuthAuthorityUrl, ScopesArray); + AccessToken := AuthFlow.ALAcquireApplicationToken(ClientId, ClientSecret, OAuthAuthorityUrl, ScopesArray); if AccessToken = '' then Session.LogMessage('0000D1L', EmptyAccessTokenClientCredsErr, Verbosity::Error, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', Oauth2CategoryLbl); end; @@ -762,7 +762,7 @@ codeunit 502 OAuth2Impl if RedirectURL = '' then RedirectURL := GetDefaultRedirectUrl() else - Session.LogMessage('0000C24', StrSubstNo(RedirectUrlTxt, RedirectUrl), Verbosity::Normal, DataClassification::AccountData, TelemetryScope::ExtensionPublisher, 'Category', Oauth2CategoryLbl); + Session.LogMessage('0000C24', StrSubstNo(RedirectUrlTxt, RedirectURL), Verbosity::Normal, DataClassification::AccountData, TelemetryScope::ExtensionPublisher, 'Category', Oauth2CategoryLbl); AuthFlow := AuthFlow.ALAzureAdCodeGrantFlow(Uri.Uri(RedirectURL)); end; @@ -775,7 +775,7 @@ codeunit 502 OAuth2Impl if RedirectURL = '' then RedirectURL := GetDefaultRedirectUrl() else - Session.LogMessage('0000CXW', StrSubstNo(RedirectUrlTxt, RedirectUrl), Verbosity::Normal, DataClassification::AccountData, TelemetryScope::ExtensionPublisher, 'Category', Oauth2CategoryLbl); + Session.LogMessage('0000CXW', StrSubstNo(RedirectUrlTxt, RedirectURL), Verbosity::Normal, DataClassification::AccountData, TelemetryScope::ExtensionPublisher, 'Category', Oauth2CategoryLbl); AuthFlow := AuthFlow.ALAzureAdCodeGrantFlow(Uri.Uri(RedirectURL), Uri.Uri(OAuthAuthorityUrl)); end; @@ -812,7 +812,7 @@ codeunit 502 OAuth2Impl PosProperty := StrPos(CodeTxt, Property); if PosProperty = 0 then exit(''); - PosValue := PosProperty + StrPos(CopyStr(Codetxt, PosProperty), '='); + PosValue := PosProperty + StrPos(CopyStr(CodeTxt, PosProperty), '='); PosEnd := PosValue + StrPos(CopyStr(CodeTxt, PosValue), '&'); if PosEnd = PosValue then diff --git a/src/System Application/App/Object Selection/permissions/ObjectSelectionRead.PermissionSet.al b/src/System Application/App/Object Selection/permissions/ObjectSelectionRead.PermissionSet.al index 3f3aecee5e..417c367a39 100644 --- a/src/System Application/App/Object Selection/permissions/ObjectSelectionRead.PermissionSet.al +++ b/src/System Application/App/Object Selection/permissions/ObjectSelectionRead.PermissionSet.al @@ -12,7 +12,7 @@ permissionset 358 "Object Selection - Read" { Assignable = false; - Permissions = tabledata "Page Data Personalization" = R, // Page.Run requires this - tabledata "Published Application" = r, - tabledata AllObjWithCaption = r; + Permissions = tabledata AllObjWithCaption = r, +tabledata "Page Data Personalization" = R, + tabledata "Published Application" = r; } diff --git a/src/System Application/App/Object Selection/src/Objects.Page.al b/src/System Application/App/Object Selection/src/Objects.Page.al index 360c9b3c35..9bd83792ca 100644 --- a/src/System Application/App/Object Selection/src/Objects.Page.al +++ b/src/System Application/App/Object Selection/src/Objects.Page.al @@ -26,7 +26,7 @@ page 358 Objects layout { - area(content) + area(Content) { repeater(Control1) { @@ -77,9 +77,6 @@ page 358 Objects } } - actions - { - } // Used to set the Extension Name field // in case the object comes from an installed extension. diff --git a/src/System Application/App/Page Action Provider/permissions/PageActionProviderRead.PermissionSet.al b/src/System Application/App/Page Action Provider/permissions/PageActionProviderRead.PermissionSet.al index aec27f5939..1e27660bea 100644 --- a/src/System Application/App/Page Action Provider/permissions/PageActionProviderRead.PermissionSet.al +++ b/src/System Application/App/Page Action Provider/permissions/PageActionProviderRead.PermissionSet.al @@ -13,8 +13,8 @@ permissionset 2916 "Page Action Provider - Read" Access = Internal; Assignable = false; - Permissions = tabledata "Page Action" = r, - tabledata "All Profile" = r, - tabledata "User Personalization" = r, - tabledata "Page Data Personalization" = R; // DotNet NavPageActionALFunctions requires this + Permissions = tabledata "All Profile" = r, +tabledata "Page Action" = r, + tabledata "Page Data Personalization" = R, + tabledata "User Personalization" = r; // DotNet NavPageActionALFunctions requires this } \ No newline at end of file diff --git a/src/System Application/App/Page Action Provider/src/PageActionProvider.Codeunit.al b/src/System Application/App/Page Action Provider/src/PageActionProvider.Codeunit.al index 221c945d7a..d62f4d5235 100644 --- a/src/System Application/App/Page Action Provider/src/PageActionProvider.Codeunit.al +++ b/src/System Application/App/Page Action Provider/src/PageActionProvider.Codeunit.al @@ -47,7 +47,7 @@ codeunit 2915 "Page Action Provider" /// "url": "https://businesscentral.dynamics.com/?company=CRONUS%20International%20Ltd.&page=103" /// } /// ] - /// + /// /// In case of an error: /// { /// "version":"1.0", diff --git a/src/System Application/App/Page Action Provider/src/PageActionProviderImpl.Codeunit.al b/src/System Application/App/Page Action Provider/src/PageActionProviderImpl.Codeunit.al index 8d510d1c08..cdbaeb8487 100644 --- a/src/System Application/App/Page Action Provider/src/PageActionProviderImpl.Codeunit.al +++ b/src/System Application/App/Page Action Provider/src/PageActionProviderImpl.Codeunit.al @@ -18,16 +18,16 @@ codeunit 2916 "Page Action Provider Impl." Access = Internal; InherentEntitlements = X; InherentPermissions = X; - Permissions = tabledata "Page Action" = r, - tabledata "User Personalization" = r, - tabledata "All Profile" = r; + Permissions = tabledata "All Profile" = r, +tabledata "Page Action" = r, + tabledata "User Personalization" = r; procedure GetCurrentRoleCenterHomeItems(IncludeViews: Boolean): Text var CurrentRoleCenterId: Integer; ResultJsonObject: JsonObject; begin - // Add version + // Add version ResultJsonObject.Add('version', GetVersion()); // Add current role center Id diff --git a/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderObj.PermissionSet.al b/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderObj.PermissionSet.al index d8e598df06..4bce2bc177 100644 --- a/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderObj.PermissionSet.al +++ b/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderObj.PermissionSet.al @@ -10,8 +10,8 @@ permissionset 2716 "Page Summary Provider - Obj." Access = Internal; Assignable = false; - Permissions = codeunit "Page Summary Provider" = X, + Permissions = table "Page Summary Settings" = X, +codeunit "Page Summary Provider" = X, codeunit "Page Summary Settings" = X, - page "Page Summary Settings" = X, - table "Page Summary Settings" = X; + page "Page Summary Settings" = X; } diff --git a/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderRead.PermissionSet.al b/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderRead.PermissionSet.al index af5499f030..f1eee9662a 100644 --- a/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderRead.PermissionSet.al +++ b/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderRead.PermissionSet.al @@ -17,10 +17,10 @@ permissionset 2715 "Page Summary Provider - Read" IncludedPermissionSets = "Page Summary Provider - Obj."; Permissions = tabledata Company = r, - tabledata "Page Data Personalization" = R, // DotNet NavPageSummaryALFunctions requires this + tabledata Media = r, + tabledata "Media Resources" = r, + tabledata "Page Data Personalization" = R, tabledata "Page Metadata" = r, - tabledata "Tenant Media Thumbnails" = r, tabledata "Tenant Media Set" = r, - tabledata "Media Resources" = r, - tabledata Media = r; // Page Summary Provider Settings Wizard requires this + tabledata "Tenant Media Thumbnails" = r; // Page Summary Provider Settings Wizard requires this } diff --git a/src/System Application/App/Page Summary Provider/src/PageSummaryProvider.Codeunit.al b/src/System Application/App/Page Summary Provider/src/PageSummaryProvider.Codeunit.al index eb60fbb862..b96a4c153f 100644 --- a/src/System Application/App/Page Summary Provider/src/PageSummaryProvider.Codeunit.al +++ b/src/System Application/App/Page Summary Provider/src/PageSummaryProvider.Codeunit.al @@ -33,7 +33,7 @@ codeunit 2718 "Page Summary Provider" /// {"caption":"Balance Due (LCY)","fieldValue":"1.499,03","type":"Decimal"}] /// } /// } - /// + /// /// In case of an error: /// { /// "version":"1.1", @@ -50,7 +50,7 @@ codeunit 2718 "Page Summary Provider" var SummaryProviderImpl: Codeunit "Page Summary Provider Impl."; begin - exit(SummaryProviderImpl.GetPageSummary(PageID, Bookmark)); + exit(SummaryProviderImpl.GetPageSummary(PageId, Bookmark)); end; /// @@ -78,7 +78,7 @@ codeunit 2718 "Page Summary Provider" /// {"caption":"Balance Due (LCY)","fieldValue":"1.499,03","type":"Decimal"}] /// } /// } - /// + /// /// In case of an error: /// { /// "version":"1.1", @@ -95,7 +95,7 @@ codeunit 2718 "Page Summary Provider" var SummaryProviderImpl: Codeunit "Page Summary Provider Impl."; begin - exit(SummaryProviderImpl.GetPageSummary(PageID, SystemId)); + exit(SummaryProviderImpl.GetPageSummary(PageId, SystemId)); end; /// @@ -110,7 +110,7 @@ codeunit 2718 "Page Summary Provider" /// "pageType":"Card", /// "summaryType":"Caption", /// } - /// + /// /// In case of error: /// { /// "version":"1.1", @@ -127,7 +127,7 @@ codeunit 2718 "Page Summary Provider" var SummaryProviderImpl: Codeunit "Page Summary Provider Impl."; begin - exit(SummaryProviderImpl.GetPageSummary(PageID, '')); + exit(SummaryProviderImpl.GetPageSummary(PageId, '')); end; /// @@ -145,7 +145,7 @@ codeunit 2718 "Page Summary Provider" /// "version":"1.1", /// "url":"https://businesscentral.dynamics.com/?company=CRONUS%20International%20Ltd.&page=22&bookmark=27%3bEgAAAAJ7CDAAMQA5ADAANQA4ADkAMw%3d%3", /// } - /// + /// /// In case of an error: /// { /// "version":"1.1", @@ -159,7 +159,7 @@ codeunit 2718 "Page Summary Provider" var SummaryProviderImpl: Codeunit "Page Summary Provider Impl."; begin - exit(SummaryProviderImpl.GetPageUrlBySystemID(PageID, SystemId)); + exit(SummaryProviderImpl.GetPageUrlBySystemID(PageId, SystemId)); end; /// diff --git a/src/System Application/App/Page Summary Provider/src/PageSummaryProviderImpl.Codeunit.al b/src/System Application/App/Page Summary Provider/src/PageSummaryProviderImpl.Codeunit.al index 2b5b3895bb..bcddb22ca2 100644 --- a/src/System Application/App/Page Summary Provider/src/PageSummaryProviderImpl.Codeunit.al +++ b/src/System Application/App/Page Summary Provider/src/PageSummaryProviderImpl.Codeunit.al @@ -25,7 +25,7 @@ codeunit 2717 "Page Summary Provider Impl." procedure GetPageSummary(PageId: Integer; Bookmark: Text): Text var - RecId: RecordID; + RecId: RecordId; ResultJsonObject: JsonObject; begin // Add header @@ -49,7 +49,7 @@ codeunit 2717 "Page Summary Provider Impl." procedure GetPageSummary(PageId: Integer; SystemId: Guid): Text var PageMetadata: Record "Page Metadata"; - RecId: RecordID; + RecId: RecordId; SourceRecordRef: RecordRef; ResultJsonObject: JsonObject; Bookmark: Text; diff --git a/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Page.al b/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Page.al index d229686975..79232845da 100644 --- a/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Page.al +++ b/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Page.al @@ -19,12 +19,13 @@ page 2718 "Page Summary Settings" PageType = NavigatePage; Extensible = false; AccessByPermission = tabledata "Page Summary Settings" = M; - Permissions = tabledata Media = r, tabledata "Media Resources" = r; + Permissions = tabledata Media = r, +tabledata "Media Resources" = r; UsageCategory = Administration; layout { - area(content) + area(Content) { group(NotCompletedTopBanner) { @@ -57,7 +58,7 @@ page 2718 "Page Summary Settings" Visible = IntroSaasStepVisible; ShowCaption = false; - group("IntroductionSaasGroup") + group(IntroductionSaasGroup) { ShowCaption = false; @@ -81,7 +82,7 @@ page 2718 "Page Summary Settings" trigger OnDrillDown() begin - Hyperlink(LearnMoreSaaSUrlLbl); + Hyperlink(LearnMoreSaasUrlLbl); end; } } @@ -111,7 +112,7 @@ page 2718 "Page Summary Settings" Visible = IntroOnPremStepVisible; ShowCaption = false; - group("IntroductionOnPremGroup") + group(IntroductionOnPremGroup) { Caption = 'Card settings are not available'; @@ -229,7 +230,7 @@ page 2718 "Page Summary Settings" actions { - area(processing) + area(Processing) { action(ActionBack) { diff --git a/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Table.al b/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Table.al index 902a293ecd..26d0ba95a4 100644 --- a/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Table.al +++ b/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Table.al @@ -40,7 +40,4 @@ table 2718 "Page Summary Settings" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Password/src/ChangePassword.Report.al b/src/System Application/App/Password/src/ChangePassword.Report.al index f368a6171a..3a567ae74d 100644 --- a/src/System Application/App/Password/src/ChangePassword.Report.al +++ b/src/System Application/App/Password/src/ChangePassword.Report.al @@ -20,18 +20,6 @@ report 9810 "Change Password" { } - requestpage - { - - layout - { - } - - actions - { - } - } - labels { } @@ -49,7 +37,7 @@ report 9810 "Change Password" User.SetFilter("User Security ID", UserSecurityId()); if User.IsEmpty() then - error(UserDoesNotExistErr, user.FieldCaption("User Security ID"), User."User Security ID"); + error(UserDoesNotExistErr, User.FieldCaption("User Security ID"), User."User Security ID"); if ChangeUserPassword(OldPassword, Password) then Message(PasswordUpdatedMsg); diff --git a/src/System Application/App/Password/src/PasswordDialog.Page.al b/src/System Application/App/Password/src/PasswordDialog.Page.al index dc5641f9a4..05397b70ab 100644 --- a/src/System Application/App/Password/src/PasswordDialog.Page.al +++ b/src/System Application/App/Password/src/PasswordDialog.Page.al @@ -18,7 +18,7 @@ page 9810 "Password Dialog" layout { - area(content) + area(Content) { field(OldPassword; OldPasswordValue) { @@ -58,9 +58,6 @@ page 9810 "Password Dialog" } } - actions - { - } trigger OnInit() begin @@ -75,7 +72,7 @@ page 9810 "Password Dialog" trigger OnQueryClosePage(CloseAction: Action): Boolean begin - if CloseAction = ACTION::OK then begin + if CloseAction = Action::OK then begin ValidPassword := PasswordDialogImpl.ValidatePassword( RequiresPasswordConfirmation, RequiresPasswordValidation, diff --git a/src/System Application/App/Password/src/PasswordDialogImpl.Codeunit.al b/src/System Application/App/Password/src/PasswordDialogImpl.Codeunit.al index 4b93055aa6..ea0f9abf96 100644 --- a/src/System Application/App/Password/src/PasswordDialogImpl.Codeunit.al +++ b/src/System Application/App/Password/src/PasswordDialogImpl.Codeunit.al @@ -32,7 +32,7 @@ codeunit 9811 "Password Dialog Impl." PasswordDialog.DisablePasswordValidation(); if DisablePasswordConfirmation then PasswordDialog.DisablePasswordConfirmation(); - if PasswordDialog.RunModal() = ACTION::OK then + if PasswordDialog.RunModal() = Action::OK then exit(PasswordDialog.GetPasswordValue()); exit(''); end; @@ -42,7 +42,7 @@ codeunit 9811 "Password Dialog Impl." PasswordDialog: Page "Password Dialog"; begin PasswordDialog.EnableChangePassword(); - if PasswordDialog.RunModal() = ACTION::OK then begin + if PasswordDialog.RunModal() = Action::OK then begin Password := PasswordDialog.GetPasswordValue(); OldPassword := PasswordDialog.GetOldPasswordValue(); end; diff --git a/src/System Application/App/Performance Profiler/permissions/PerformanceProfilerObjects.PermissionSet.al b/src/System Application/App/Performance Profiler/permissions/PerformanceProfilerObjects.PermissionSet.al index 22eb3e3c91..2e4503e563 100644 --- a/src/System Application/App/Performance Profiler/permissions/PerformanceProfilerObjects.PermissionSet.al +++ b/src/System Application/App/Performance Profiler/permissions/PerformanceProfilerObjects.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 1921 "Performance Profiler - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Sampling Performance Profiler" = X, - Page "Performance Profiler" = X; + Permissions = codeunit "Sampling Performance Profiler" = X, + page "Performance Profiler" = X; } diff --git a/src/System Application/App/Performance Profiler/src/PerformanceProfiler.Page.al b/src/System Application/App/Performance Profiler/src/PerformanceProfiler.Page.al index a8e4de7aee..8b0f128bee 100644 --- a/src/System Application/App/Performance Profiler/src/PerformanceProfiler.Page.al +++ b/src/System Application/App/Performance Profiler/src/PerformanceProfiler.Page.al @@ -191,7 +191,7 @@ page 24 "Performance Profiler" var DocumentSharing: Codeunit "Document Sharing"; begin - DocumentSharing.Share(StrSubstNo(ProfileFileNameTxt, SessionID()), ProfileFileExtensionTxt, SamplingPerformanceProfiler.GetData(), Enum::"Document Sharing Intent"::Share); + DocumentSharing.Share(StrSubstNo(ProfileFileNameTxt, SessionId()), ProfileFileExtensionTxt, SamplingPerformanceProfiler.GetData(), Enum::"Document Sharing Intent"::Share); end; } action(Upload) diff --git a/src/System Application/App/Performance Profiler/src/ProfilingAggregationType.Enum.al b/src/System Application/App/Performance Profiler/src/ProfilingAggregationType.Enum.al index 70eeb83a69..15e145d577 100644 --- a/src/System Application/App/Performance Profiler/src/ProfilingAggregationType.Enum.al +++ b/src/System Application/App/Performance Profiler/src/ProfilingAggregationType.Enum.al @@ -15,7 +15,7 @@ enum 1921 "Profiling Aggregation Type" /// /// No aggregation. /// - value(0; "None") + value(0; None) { } diff --git a/src/System Application/App/Performance Profiler/src/ProfilingCallTree.Page.al b/src/System Application/App/Performance Profiler/src/ProfilingCallTree.Page.al index a45c5aa25d..3729b0f22e 100644 --- a/src/System Application/App/Performance Profiler/src/ProfilingCallTree.Page.al +++ b/src/System Application/App/Performance Profiler/src/ProfilingCallTree.Page.al @@ -48,25 +48,25 @@ page 1921 "Profiling Call Tree" { ApplicationArea = All; Caption = 'Object Name'; - Tooltip = 'Specifies the name of the application object.'; + ToolTip = 'Specifies the name of the application object.'; } field("Self Time"; Rec."Self Time") { ApplicationArea = All; Caption = 'Self Time'; - Tooltip = 'Specifies the amount of time spent only in this method.'; + ToolTip = 'Specifies the amount of time spent only in this method.'; } field("Full Time"; Rec."Full Time") { ApplicationArea = All; Caption = 'Total Time'; - Tooltip = 'Specifies the amount of time spent in this method and the methods it calls.'; + ToolTip = 'Specifies the amount of time spent in this method and the methods it calls.'; } field("App Name"; Rec."App Name") { ApplicationArea = All; Caption = 'App Name'; - Tooltip = 'Specifies the name of the app that the application object belongs to.'; + ToolTip = 'Specifies the name of the app that the application object belongs to.'; } } } @@ -82,7 +82,7 @@ page 1921 "Profiling Call Tree" ProfilingDataProcessor: Codeunit "Profiling Data Processor"; begin Rec.DeleteAll(); - ProfilingDataProcessor.GetFullTimeAggregate(Rec, Enum::"Profiling Aggregation Type"::"None"); + ProfilingDataProcessor.GetFullTimeAggregate(Rec, Enum::"Profiling Aggregation Type"::None); Rec.FindFirst(); end; } diff --git a/src/System Application/App/Performance Profiler/src/ProfilingDataProcessor.Codeunit.al b/src/System Application/App/Performance Profiler/src/ProfilingDataProcessor.Codeunit.al index 7c188f124e..d633fae535 100644 --- a/src/System Application/App/Performance Profiler/src/ProfilingDataProcessor.Codeunit.al +++ b/src/System Application/App/Performance Profiler/src/ProfilingDataProcessor.Codeunit.al @@ -77,7 +77,7 @@ codeunit 1923 "Profiling Data Processor" /// The resulting aggregation. /// The value of what to aggregate self time by. /// The table view to indicate which profiling nodes should be included in aggregation. - procedure GetSelfTimeAggregate(var AggregatedProfilingNode: Record "Profiling Node"; ProfilingAggregationType: Enum "Profiling Aggregation Type"; FilterText: text) + procedure GetSelfTimeAggregate(var AggregatedProfilingNode: Record "Profiling Node"; ProfilingAggregationType: Enum "Profiling Aggregation Type"; FilterText: Text) begin RawProfilingNodes.SetView(FilterText); RawProfilingNodes.SetFilter("Self Time", '>%1', 0); diff --git a/src/System Application/App/Performance Profiler/src/ProfilingDurationByMethod.Page.al b/src/System Application/App/Performance Profiler/src/ProfilingDurationByMethod.Page.al index cfb4d027e0..c9d6fa7128 100644 --- a/src/System Application/App/Performance Profiler/src/ProfilingDurationByMethod.Page.al +++ b/src/System Application/App/Performance Profiler/src/ProfilingDurationByMethod.Page.al @@ -34,13 +34,13 @@ page 1924 "Profiling Duration By Method" { ApplicationArea = All; Caption = 'Method Name'; - Tooltip = 'Specifies the name of the method in which the time was spent.'; + ToolTip = 'Specifies the name of the method in which the time was spent.'; } field("Time Spent"; Rec."Self Time") { ApplicationArea = All; Caption = 'Time Spent'; - Tooltip = 'Specifies the total time spent inside the method during the performance profiler recording.'; + ToolTip = 'Specifies the total time spent inside the method during the performance profiler recording.'; } } } diff --git a/src/System Application/App/Performance Profiler/src/ProfilingDurationByObject.Page.al b/src/System Application/App/Performance Profiler/src/ProfilingDurationByObject.Page.al index ca26a48d10..2d7db40154 100644 --- a/src/System Application/App/Performance Profiler/src/ProfilingDurationByObject.Page.al +++ b/src/System Application/App/Performance Profiler/src/ProfilingDurationByObject.Page.al @@ -33,25 +33,25 @@ page 1923 "Profiling Duration By Object" { ApplicationArea = All; Caption = 'Object Type'; - Tooltip = 'Specifies the type of the application object.'; + ToolTip = 'Specifies the type of the application object.'; } field("Object Name"; Rec."Object Name") { ApplicationArea = All; Caption = 'Object Name'; - Tooltip = 'Specifies the name of the application object.'; + ToolTip = 'Specifies the name of the application object.'; } field("Time Spent"; Rec."Self Time") { ApplicationArea = All; Caption = 'Time Spent'; - Tooltip = 'Specifies the amount of time spent in this application object.'; + ToolTip = 'Specifies the amount of time spent in this application object.'; trigger OnDrillDown() var ProfilingDurationByMethod: Page "Profiling Duration By Method"; begin - ProfilingDurationByMethod.Initialize(Rec."Object Type", Rec."Object Id"); + ProfilingDurationByMethod.Initialize(Rec."Object Type", Rec."Object ID"); ProfilingDurationByMethod.RunModal(); end; } @@ -59,7 +59,7 @@ page 1923 "Profiling Duration By Object" { ApplicationArea = All; Caption = 'App Name'; - Tooltip = 'Specifies the name of the app that the application object belongs to.'; + ToolTip = 'Specifies the name of the app that the application object belongs to.'; } } } diff --git a/src/System Application/App/Performance Profiler/src/ProfilingFullTimeChart.Page.al b/src/System Application/App/Performance Profiler/src/ProfilingFullTimeChart.Page.al index f6fc2f3533..544c11abbb 100644 --- a/src/System Application/App/Performance Profiler/src/ProfilingFullTimeChart.Page.al +++ b/src/System Application/App/Performance Profiler/src/ProfilingFullTimeChart.Page.al @@ -19,7 +19,7 @@ page 1925 "Profiling Full Time Chart" layout { - area(content) + area(Content) { usercontrol(BusinessChart; BusinessChartUserControl) { diff --git a/src/System Application/App/Performance Profiler/src/ProfilingSelfTimeChart.Page.al b/src/System Application/App/Performance Profiler/src/ProfilingSelfTimeChart.Page.al index 19bdba2da4..e5ccea5872 100644 --- a/src/System Application/App/Performance Profiler/src/ProfilingSelfTimeChart.Page.al +++ b/src/System Application/App/Performance Profiler/src/ProfilingSelfTimeChart.Page.al @@ -19,7 +19,7 @@ page 1922 "Profiling Self Time Chart" layout { - area(content) + area(Content) { usercontrol(BusinessChart; BusinessChartUserControl) { diff --git a/src/System Application/App/Performance Profiler/src/SamplingPerfProfilerImpl.Codeunit.al b/src/System Application/App/Performance Profiler/src/SamplingPerfProfilerImpl.Codeunit.al index 0d0fb4e907..bc3ea5d713 100644 --- a/src/System Application/App/Performance Profiler/src/SamplingPerfProfilerImpl.Codeunit.al +++ b/src/System Application/App/Performance Profiler/src/SamplingPerfProfilerImpl.Codeunit.al @@ -16,7 +16,7 @@ codeunit 1925 "Sampling Perf. Profiler Impl." var TempBlob: Codeunit "Temp Blob"; - SamplingProfiler: Dotnet SamplingProfiler; + SamplingProfiler: DotNet SamplingProfiler; CpuProfile: DotNet CpuProfile; IsRecordingRunning: Boolean; IdleTimeTok: Label 'IdleTime', Locked = true; @@ -155,7 +155,7 @@ codeunit 1925 "Sampling Perf. Profiler Impl." CpuProfileNodeArray: DotNet "Array"; NodeIdToNodeMap: DotNet GenericDictionary2; NodeIdToSelfTimeMap: Dictionary of [Integer, BigInteger]; - // using a dictionary here as there is no "Set" AL type + // using a dictionary here as there is no "Set" AL type ChildNodes: Dictionary of [Integer, Boolean]; ChildNodeId: Integer; NodeNumber: Integer; diff --git a/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al b/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al index 77549416d3..aa3a2cf955 100644 --- a/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al +++ b/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al @@ -142,7 +142,7 @@ codeunit 9802 "Log Activity Permissions" begin end; - trigger EventReceiver::OnPermissionCheckEvent(sender: Variant; e: DotNet PermissionCheckEventArgs) + trigger EventReceiver::"EventReceiver::OnPermissionCheckEvent"(sender: Variant; e: DotNet PermissionCheckEventArgs) begin case e.EventId of 801: diff --git a/src/System Application/App/Permission Sets/src/PermissionImpl.Codeunit.al b/src/System Application/App/Permission Sets/src/PermissionImpl.Codeunit.al index 818fb92d3d..afd8b87385 100644 --- a/src/System Application/App/Permission Sets/src/PermissionImpl.Codeunit.al +++ b/src/System Application/App/Permission Sets/src/PermissionImpl.Codeunit.al @@ -58,7 +58,7 @@ codeunit 9864 "Permission Impl." SetupObjectsPage(SelectObjectLbl, Objects, TempAllObjWithCaption); - if Objects.RunModal() <> ACTION::LookupOK then + if Objects.RunModal() <> Action::LookupOK then exit(false); Clear(TempAllObjWithCaption); @@ -248,10 +248,10 @@ codeunit 9864 "Permission Impl." procedure GetPermission(PermissionType: Option Include,Exclude; PermissionAsTxt: Text): Option " ",Yes,Indirect begin case PermissionAsTxt of - Format(IncludeOption::"Yes"), Format(ExcludeOption::Exclude): - exit(IncludeOption::"Yes"); - Format(IncludeOption::"Indirect"), Format(ExcludeOption::"Reduce to indirect"): - exit(IncludeOption::"Indirect"); + Format(IncludeOption::Yes), Format(ExcludeOption::Exclude): + exit(IncludeOption::Yes); + Format(IncludeOption::Indirect), Format(ExcludeOption::"Reduce to indirect"): + exit(IncludeOption::Indirect); else exit(IncludeOption::" ") end; diff --git a/src/System Application/App/Permission Sets/src/PermissionLookupList.Page.al b/src/System Application/App/Permission Sets/src/PermissionLookupList.Page.al index 1b98746130..595f9e70f6 100644 --- a/src/System Application/App/Permission Sets/src/PermissionLookupList.Page.al +++ b/src/System Application/App/Permission Sets/src/PermissionLookupList.Page.al @@ -18,7 +18,7 @@ page 9865 "Permission Lookup List" layout { - area(content) + area(Content) { repeater(Group) { @@ -32,9 +32,6 @@ page 9865 "Permission Lookup List" } } - actions - { - } trigger OnOpenPage() var diff --git a/src/System Application/App/Permission Sets/src/PermissionSet.Page.al b/src/System Application/App/Permission Sets/src/PermissionSet.Page.al index 6d8695be90..ce05d3e6dc 100644 --- a/src/System Application/App/Permission Sets/src/PermissionSet.Page.al +++ b/src/System Application/App/Permission Sets/src/PermissionSet.Page.al @@ -42,7 +42,7 @@ page 9855 "Permission Set" ToolTip = 'Specifies the permission set.'; } - field("Name"; Rec.Name) + field(Name; Rec.Name) { ApplicationArea = All; Editable = false; @@ -98,7 +98,7 @@ page 9855 "Permission Set" } #if not CLEAN22 - area(factboxes) + area(FactBoxes) { part(PermissionsRelated; "Expanded Permissions Factbox") { diff --git a/src/System Application/App/Permission Sets/src/PermissionSetCopyImpl.Codeunit.al b/src/System Application/App/Permission Sets/src/PermissionSetCopyImpl.Codeunit.al index abef4cac3a..03be380c15 100644 --- a/src/System Application/App/Permission Sets/src/PermissionSetCopyImpl.Codeunit.al +++ b/src/System Application/App/Permission Sets/src/PermissionSetCopyImpl.Codeunit.al @@ -60,8 +60,8 @@ codeunit 9863 "Permission Set Copy Impl." end; end; - // Copying by flatten is for legacy support, so no uptake logging for composable permission sets. - FeatureTelemetry.LogUsage('0000HZO', ComposablePermissionSetsTok, 'Permission set copied by flatten.', GetCustomDimensions(NewRoleID, NewName, SourceRoleId, SourceAppId, SourceScope)); + // Copying by flatten is for legacy support, so no uptake logging for composable permission sets. + FeatureTelemetry.LogUsage('0000HZO', ComposablePermissionSetsTok, 'Permission set copied by flatten.', GetCustomDimensions(NewRoleId, NewName, SourceRoleId, SourceAppId, SourceScope)); end; local procedure CopyPermissionSetByClone(NewRoleId: Code[30]; NewName: Text; SourceRoleId: Code[30]; SourceAppId: Guid; SourceScope: Option System,Tenant) @@ -110,7 +110,7 @@ codeunit 9863 "Permission Set Copy Impl." end; end; - FeatureTelemetry.LogUsage('0000HZP', ComposablePermissionSetsTok, 'Permission set copied by clone.', GetCustomDimensions(NewRoleID, NewName, SourceRoleId, SourceAppId, SourceScope)); + FeatureTelemetry.LogUsage('0000HZP', ComposablePermissionSetsTok, 'Permission set copied by clone.', GetCustomDimensions(NewRoleId, NewName, SourceRoleId, SourceAppId, SourceScope)); end; local procedure CopyPermissionSetByReference(NewRoleId: Code[30]; NewName: Text; SourceRoleId: Code[30]; SourceAppId: Guid; SourceScope: Option System,Tenant) @@ -124,7 +124,7 @@ codeunit 9863 "Permission Set Copy Impl." CreateTenantPermissionSetRelation(NewRoleId, SourceRoleId, SourceAppId, SourceScope, TenantPermissionSetRel.Type::Include); - FeatureTelemetry.LogUsage('0000HZQ', ComposablePermissionSetsTok, 'Permission set copied by reference.', GetCustomDimensions(NewRoleID, NewName, SourceRoleId, SourceAppId, SourceScope)); + FeatureTelemetry.LogUsage('0000HZQ', ComposablePermissionSetsTok, 'Permission set copied by reference.', GetCustomDimensions(NewRoleId, NewName, SourceRoleId, SourceAppId, SourceScope)); end; local procedure CreateNewTenantPermissionSet(NewRoleID: Code[30]; NewName: Text) diff --git a/src/System Application/App/Permission Sets/src/PermissionSetLookupList.Page.al b/src/System Application/App/Permission Sets/src/PermissionSetLookupList.Page.al index 6b33923e1b..d37d3ad752 100644 --- a/src/System Application/App/Permission Sets/src/PermissionSetLookupList.Page.al +++ b/src/System Application/App/Permission Sets/src/PermissionSetLookupList.Page.al @@ -19,7 +19,7 @@ page 9878 "Permission Set Lookup List" layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/App/Permission Sets/src/PermissionSetRelation.Codeunit.al b/src/System Application/App/Permission Sets/src/PermissionSetRelation.Codeunit.al index 7a5fbb50b8..2833481b31 100644 --- a/src/System Application/App/Permission Sets/src/PermissionSetRelation.Codeunit.al +++ b/src/System Application/App/Permission Sets/src/PermissionSetRelation.Codeunit.al @@ -33,7 +33,7 @@ codeunit 9855 "Permission Set Relation" /// /// Opens the permission set page for the specified role ID. /// - /// The name of the permission set to open. + /// The name of the permission set to open. /// The role ID of the permission set to open. /// The app ID of the permission set to open. /// The scope of the permission set to open. @@ -45,11 +45,11 @@ codeunit 9855 "Permission Set Relation" end; /// - /// Verify that the user can edit permission sets, with the specified app ID. + /// Verify that the user can edit permission sets, with the specified app ID. /// Throws an error if not. /// /// When the app ID is not null - /// When the user doesn''t have neither SUPER, nor SECURITY/// + /// When the user doesn''t have neither SUPER, nor SECURITY/// /// The app ID of the permission set to verify. procedure VerifyUserCanEditPermissionSet(AppId: Text) var @@ -59,10 +59,10 @@ codeunit 9855 "Permission Set Relation" end; /// - /// CopyPermissionSet will copy the source permission set using the specified copy type. + /// CopyPermissionSet will copy the source permission set using the specified copy type. /// /// The role ID of the new permission set that permissions are copied to. - /// The name of the new permission set that permissions are copied to. + /// The name of the new permission set that permissions are copied to. /// The role ID of the source permission set that permissions are copied from. /// The app ID of the source permission set that permissions are copied from. /// The scope of the source permission set that permissions are copied from. diff --git a/src/System Application/App/Permission Sets/src/PermissionSetRelationBuffer.Table.al b/src/System Application/App/Permission Sets/src/PermissionSetRelationBuffer.Table.al index f42d3fcf66..2f5a49d560 100644 --- a/src/System Application/App/Permission Sets/src/PermissionSetRelationBuffer.Table.al +++ b/src/System Application/App/Permission Sets/src/PermissionSetRelationBuffer.Table.al @@ -106,8 +106,5 @@ table 9861 "Permission Set Relation Buffer" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Permission Sets/src/PermissionSetRelationImpl.Codeunit.al b/src/System Application/App/Permission Sets/src/PermissionSetRelationImpl.Codeunit.al index 25e86477ec..7623cf9ae1 100644 --- a/src/System Application/App/Permission Sets/src/PermissionSetRelationImpl.Codeunit.al +++ b/src/System Application/App/Permission Sets/src/PermissionSetRelationImpl.Codeunit.al @@ -129,7 +129,7 @@ codeunit 9856 "Permission Set Relation Impl." begin VerifyUserCanEditPermissionSet(CurrAppId); - if TenantPermissionSetRel.Get(CurrAppId, CurrRoleID, RelatedAppId, RelatedRoleId) then + if TenantPermissionSetRel.Get(CurrAppId, CurrRoleID, RelatedAppId, RelatedRoleID) then exit(ModifyPermissionSetType(CurrAppId, CurrRoleID, CurrScope, RelatedAppId, RelatedRoleID, PermissionType)) else exit(AddNewPermissionSet(CurrAppId, CurrRoleID, CurrScope, RelatedAppId, RelatedRoleID, RelatedScope, PermissionType)); @@ -141,7 +141,7 @@ codeunit 9856 "Permission Set Relation Impl." begin VerifyUserCanEditPermissionSet(CurrAppId); - if TenantPermissionSetRel.Get(CurrAppId, CurrRoleId, RelatedAppId, RelatedRoleID) then + if TenantPermissionSetRel.Get(CurrAppId, CurrRoleID, RelatedAppId, RelatedRoleID) then TenantPermissionSetRel.Delete(); end; @@ -163,8 +163,8 @@ codeunit 9856 "Permission Set Relation Impl." TenantPermissionSetRel.SetRange("Role ID", RoleId); TenantPermissionSetRel.SetRange("App ID", AppId); - MetaDataPermissionSetRel.SetRange("Role ID", RoleId); - MetaDataPermissionSetRel.SetRange("App ID", AppId); + MetadataPermissionSetRel.SetRange("Role ID", RoleId); + MetadataPermissionSetRel.SetRange("App ID", AppId); if TenantPermissionSetRel.FindSet() then repeat @@ -179,18 +179,18 @@ codeunit 9856 "Permission Set Relation Impl." PermissionSetRelationBuffer.Insert(); until TenantPermissionSetRel.Next() = 0; - if MetaDataPermissionSetRel.FindSet() then + if MetadataPermissionSetRel.FindSet() then repeat PermissionSetRelationBuffer.Init(); - PermissionSetRelationBuffer."App ID" := MetaDataPermissionSetRel."App ID"; - PermissionSetRelationBuffer."Role ID" := MetaDataPermissionSetRel."Role ID"; - PermissionSetRelationBuffer."Related App ID" := MetaDataPermissionSetRel."Related App ID"; - PermissionSetRelationBuffer."Related Role ID" := MetaDataPermissionSetRel."Related Role ID"; + PermissionSetRelationBuffer."App ID" := MetadataPermissionSetRel."App ID"; + PermissionSetRelationBuffer."Role ID" := MetadataPermissionSetRel."Role ID"; + PermissionSetRelationBuffer."Related App ID" := MetadataPermissionSetRel."Related App ID"; + PermissionSetRelationBuffer."Related Role ID" := MetadataPermissionSetRel."Related Role ID"; PermissionSetRelationBuffer."Related Scope" := TenantPermissionSetRel."Related Scope"::System; PermissionSetRelationBuffer."Related Name" := GetPermissionSetName(PermissionSetRelationBuffer."Related App ID", PermissionSetRelationBuffer."Related Role ID", PermissionSetRelationBuffer."Related Scope"); - PermissionSetRelationBuffer.Type := MetaDataPermissionSetRel.Type; + PermissionSetRelationBuffer.Type := MetadataPermissionSetRel.Type; PermissionSetRelationBuffer.Insert(); - until MetaDataPermissionSetRel.Next() = 0; + until MetadataPermissionSetRel.Next() = 0; end; procedure RefreshPermissionSetTree(RoleId: Code[30]; AppId: Guid; Scope: Option; var PermissionSetRelationBuffer: Record "Permission Set Relation Buffer" temporary) @@ -305,7 +305,7 @@ codeunit 9856 "Permission Set Relation Impl." else Error(CannotExcludeItselfErr); - if TenantPermissionSetRel.Get(CurrAppId, CurrRoleId, RelatedAppId, RelatedRoleId) then + if TenantPermissionSetRel.Get(CurrAppId, CurrRoleID, RelatedAppId, RelatedRoleId) then if TenantPermissionSetRel.Type = PermissionType then if PermissionType = PermissionType::Include then Error(PermissionSetAlreadyIncludedErr, TenantPermissionSetRel."Related Role ID") @@ -315,7 +315,7 @@ codeunit 9856 "Permission Set Relation Impl." TenantPermissionSetRel.Delete(); TenantPermissionSetRel."App ID" := CurrAppId; - TenantPermissionSetRel."Role ID" := CurrRoleId; + TenantPermissionSetRel."Role ID" := CurrRoleID; TenantPermissionSetRel."Related App ID" := RelatedAppId; TenantPermissionSetRel."Related Role ID" := RelatedRoleId; TenantPermissionSetRel."Related Scope" := RelatedScope; diff --git a/src/System Application/App/Permission Sets/src/TenantPermissionSubForm.page.al b/src/System Application/App/Permission Sets/src/TenantPermissionSubForm.page.al index 4ca244e111..377683de2b 100644 --- a/src/System Application/App/Permission Sets/src/TenantPermissionSubForm.page.al +++ b/src/System Application/App/Permission Sets/src/TenantPermissionSubForm.page.al @@ -110,7 +110,7 @@ page 9859 "Tenant Permission Subform" Editable = CurrPageIsEditable and IsTableData; Style = Strong; StyleExpr = ZeroObjStyleExpr; - LookupPageID = "Permission Lookup List"; + LookupPageId = "Permission Lookup List"; TableRelation = "Permission Lookup Buffer"."Option Caption" where("Lookup Type" = field(Type)); Caption = 'Read Permission'; ToolTip = 'Specifies if the permission set has read permission to this object.'; @@ -127,7 +127,7 @@ page 9859 "Tenant Permission Subform" Editable = CurrPageIsEditable and IsTableData; Style = Strong; StyleExpr = ZeroObjStyleExpr; - LookupPageID = "Permission Lookup List"; + LookupPageId = "Permission Lookup List"; TableRelation = "Permission Lookup Buffer"."Option Caption" where("Lookup Type" = field(Type)); Caption = 'Insert Permission'; ToolTip = 'Specifies if the permission set has insert permission to this object.'; @@ -144,7 +144,7 @@ page 9859 "Tenant Permission Subform" Editable = CurrPageIsEditable and IsTableData; Style = Strong; StyleExpr = ZeroObjStyleExpr; - LookupPageID = "Permission Lookup List"; + LookupPageId = "Permission Lookup List"; TableRelation = "Permission Lookup Buffer"."Option Caption" where("Lookup Type" = field(Type)); Caption = 'Modify Permission'; ToolTip = 'Specifies if the permission set has modify permission to this object.'; @@ -161,7 +161,7 @@ page 9859 "Tenant Permission Subform" Editable = CurrPageIsEditable and IsTableData; Style = Strong; StyleExpr = ZeroObjStyleExpr; - LookupPageID = "Permission Lookup List"; + LookupPageId = "Permission Lookup List"; TableRelation = "Permission Lookup Buffer"."Option Caption" where("Lookup Type" = field(Type)); Caption = 'Delete Permission'; ToolTip = 'Specifies if the permission set has delete permission to this object.'; @@ -178,7 +178,7 @@ page 9859 "Tenant Permission Subform" Editable = CurrPageIsEditable and not IsTableData; Style = Strong; StyleExpr = ZeroObjStyleExpr; - LookupPageID = "Permission Lookup List"; + LookupPageId = "Permission Lookup List"; TableRelation = "Permission Lookup Buffer"."Option Caption" where("Lookup Type" = field(Type)); Caption = 'Execute Permission'; ToolTip = 'Specifies if the permission set has execute permission to this object.'; @@ -238,14 +238,14 @@ page 9859 "Tenant Permission Subform" begin PermissionSetRelation.VerifyUserCanEditPermissionSet(CurrentAppID); - if PermissionImpl.SelectPermissions(CurrentAppId, CopyStr(CurrentRoleId, 1, 20)) then + if PermissionImpl.SelectPermissions(CurrentAppID, CopyStr(CurrentRoleID, 1, 20)) then RefreshTreeView(); end; } action(AddRelatedTablesAction) { - AccessByPermission = TableData "Tenant Permission" = I; + AccessByPermission = tabledata "Tenant Permission" = I; ApplicationArea = All; Image = Relationship; Enabled = CurrPageIsEditable and IsTableData; @@ -276,7 +276,7 @@ page 9859 "Tenant Permission Subform" Image = Confirm; action(AllowReadYes) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Yes'; Image = Approve; @@ -289,7 +289,7 @@ page 9859 "Tenant Permission Subform" } action(AllowReadNo) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'No'; Image = Reject; @@ -302,7 +302,7 @@ page 9859 "Tenant Permission Subform" } action(AllowReadIndirect) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Indirect'; Image = Indent; @@ -321,7 +321,7 @@ page 9859 "Tenant Permission Subform" Image = Confirm; action(AllowInsertYes) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Yes'; Image = Approve; @@ -334,7 +334,7 @@ page 9859 "Tenant Permission Subform" } action(AllowInsertNo) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'No'; Image = Reject; @@ -347,7 +347,7 @@ page 9859 "Tenant Permission Subform" } action(AllowInsertIndirect) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Indirect'; Image = Indent; @@ -366,7 +366,7 @@ page 9859 "Tenant Permission Subform" Image = Confirm; action(AllowModifyYes) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Yes'; Image = Approve; @@ -379,7 +379,7 @@ page 9859 "Tenant Permission Subform" } action(AllowModifyNo) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'No'; Image = Reject; @@ -392,7 +392,7 @@ page 9859 "Tenant Permission Subform" } action(AllowModifyIndirect) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Indirect'; Image = Indent; @@ -411,7 +411,7 @@ page 9859 "Tenant Permission Subform" Image = Confirm; action(AllowDeleteYes) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Yes'; Image = Approve; @@ -424,7 +424,7 @@ page 9859 "Tenant Permission Subform" } action(AllowDeleteNo) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'No'; Image = Reject; @@ -437,7 +437,7 @@ page 9859 "Tenant Permission Subform" } action(AllowDeleteIndirect) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Indirect'; Image = Indent; @@ -456,7 +456,7 @@ page 9859 "Tenant Permission Subform" Image = Confirm; action(AllowExecuteYes) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Yes'; Image = Approve; @@ -469,7 +469,7 @@ page 9859 "Tenant Permission Subform" } action(AllowExecuteNo) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'No'; Image = Reject; @@ -482,7 +482,7 @@ page 9859 "Tenant Permission Subform" } action(AllowExecuteIndirect) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Indirect'; Image = Indent; @@ -500,7 +500,7 @@ page 9859 "Tenant Permission Subform" Image = Confirm; action(AllowAllYes) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Yes'; Image = Approve; @@ -513,7 +513,7 @@ page 9859 "Tenant Permission Subform" } action(AllowAllNo) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'No'; Image = Reject; @@ -526,7 +526,7 @@ page 9859 "Tenant Permission Subform" } action(AllowAllIndirect) { - AccessByPermission = TableData "Tenant Permission" = M; + AccessByPermission = tabledata "Tenant Permission" = M; ApplicationArea = Basic, Suite; Caption = 'Indirect'; Image = Indent; 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 index 56f3fbe4d3..00d29625a4 100644 --- a/src/System Application/App/Permission Sets/src/xmlports/ImportPermissionSets.xmlport.al +++ b/src/System Application/App/Permission Sets/src/xmlports/ImportPermissionSets.xmlport.al @@ -221,9 +221,7 @@ xmlport 9864 "Import Permission Sets" requestpage { - layout - { - } + } var diff --git a/src/System Application/App/Printer Management/permissions/PrinterManagementObjects.PermissionSet.al b/src/System Application/App/Printer Management/permissions/PrinterManagementObjects.PermissionSet.al index f5b5a37825..036d53ca7c 100644 --- a/src/System Application/App/Printer Management/permissions/PrinterManagementObjects.PermissionSet.al +++ b/src/System Application/App/Printer Management/permissions/PrinterManagementObjects.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 2617 "Printer Management - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Printer Setup" = X, - Page "Printer Management" = X; + Permissions = codeunit "Printer Setup" = X, + page "Printer Management" = X; } diff --git a/src/System Application/App/Printer Management/src/PrinterManagement.Page.al b/src/System Application/App/Printer Management/src/PrinterManagement.Page.al index 8193a2ce50..a9f891e91e 100644 --- a/src/System Application/App/Printer Management/src/PrinterManagement.Page.al +++ b/src/System Application/App/Printer Management/src/PrinterManagement.Page.al @@ -26,7 +26,7 @@ page 2616 "Printer Management" layout { - area(content) + area(Content) { repeater(Printers) { @@ -68,7 +68,7 @@ page 2616 "Printer Management" } actions { - area(processing) + area(Processing) { action(OpenPrinterSelections) { @@ -94,7 +94,7 @@ page 2616 "Printer Management" Caption = 'Edit printer settings'; Image = Edit; Scope = Repeater; - ShortCutKey = 'Return'; + ShortcutKey = 'Return'; ToolTip = 'View or edit the settings of the selected printer.'; Promoted = true; PromotedIsBig = true; diff --git a/src/System Application/App/Printer Management/src/PrinterPaperSourceKind.Enum.al b/src/System Application/App/Printer Management/src/PrinterPaperSourceKind.Enum.al index 0368c4ae78..0f9c1a7759 100644 --- a/src/System Application/App/Printer Management/src/PrinterPaperSourceKind.Enum.al +++ b/src/System Application/App/Printer Management/src/PrinterPaperSourceKind.Enum.al @@ -15,7 +15,7 @@ enum 2617 "Printer Paper Source Kind" /// /// Automatically fed paper. /// - value(7; "AutomaticFeed") + value(7; AutomaticFeed) { Caption = 'Automatically fed paper.'; } @@ -23,7 +23,7 @@ enum 2617 "Printer Paper Source Kind" /// /// A paper cassette. /// - value(14; "Cassette") + value(14; Cassette) { Caption = 'A paper cassette.'; } @@ -31,7 +31,7 @@ enum 2617 "Printer Paper Source Kind" /// /// A printer-specific paper source. /// - value(257; "Custom") + value(257; Custom) { Caption = 'A printer-specific paper source.'; } @@ -39,7 +39,7 @@ enum 2617 "Printer Paper Source Kind" /// /// An envelope. /// - value(5; "Envelope") + value(5; Envelope) { Caption = 'An envelope.'; } @@ -47,7 +47,7 @@ enum 2617 "Printer Paper Source Kind" /// /// The default input bin of printer. /// - value(15; "FormSource") + value(15; FormSource) { Caption = 'The default input bin of printer.'; } @@ -55,7 +55,7 @@ enum 2617 "Printer Paper Source Kind" /// /// The large-capacity bin of printer. /// - value(11; "LargeCapacity") + value(11; LargeCapacity) { Caption = 'The large-capacity bin of printer.'; } @@ -63,7 +63,7 @@ enum 2617 "Printer Paper Source Kind" /// /// Large-format paper. /// - value(10; "LargeFormat") + value(10; LargeFormat) { Caption = 'Large-format paper.'; } @@ -71,7 +71,7 @@ enum 2617 "Printer Paper Source Kind" /// /// The lower bin of a printer. /// - value(2; "Lower") + value(2; Lower) { Caption = 'The lower bin of a printer.'; } @@ -79,7 +79,7 @@ enum 2617 "Printer Paper Source Kind" /// /// Manually fed paper. /// - value(4; "Manual") + value(4; Manual) { Caption = 'Manually fed paper.'; } @@ -87,7 +87,7 @@ enum 2617 "Printer Paper Source Kind" /// /// Manually fed envelope. /// - value(6; "ManualFeed") + value(6; ManualFeed) { Caption = 'Manually fed envelope.'; } @@ -95,7 +95,7 @@ enum 2617 "Printer Paper Source Kind" /// /// The middle bin of a printer. /// - value(3; "Middle") + value(3; Middle) { Caption = 'The middle bin of a printer.'; } @@ -103,7 +103,7 @@ enum 2617 "Printer Paper Source Kind" /// /// Small-format paper. /// - value(9; "SmallFormat") + value(9; SmallFormat) { Caption = 'Small-format paper.'; } @@ -111,7 +111,7 @@ enum 2617 "Printer Paper Source Kind" /// /// A tractor feed. /// - value(8; "TractorFeed") + value(8; TractorFeed) { Caption = 'A tractor feed.'; } @@ -119,7 +119,7 @@ enum 2617 "Printer Paper Source Kind" /// /// The upper bin of a printer. /// - value(1; "Upper") + value(1; Upper) { Caption = 'The upper bin of a printer.'; } diff --git a/src/System Application/App/Printer Management/src/PrinterPaperkind.Enum.al b/src/System Application/App/Printer Management/src/PrinterPaperkind.Enum.al index 243dab46be..1d4ecd2cbf 100644 --- a/src/System Application/App/Printer Management/src/PrinterPaperkind.Enum.al +++ b/src/System Application/App/Printer Management/src/PrinterPaperkind.Enum.al @@ -15,7 +15,7 @@ enum 2616 "Printer Paper Kind" /// /// A2 paper (420 mm by 594 mm). /// - value(66; "A2") + value(66; A2) { Caption = 'A2 paper (420 mm by 594 mm).'; } @@ -23,7 +23,7 @@ enum 2616 "Printer Paper Kind" /// /// A3 paper (297 mm by 420 mm). /// - value(8; "A3") + value(8; A3) { Caption = 'A3 paper (297 mm by 420 mm).'; } @@ -31,7 +31,7 @@ enum 2616 "Printer Paper Kind" /// /// A4 paper (210 mm by 297 mm). /// - value(9; "A4") + value(9; A4) { Caption = 'A4 paper (210 mm by 297 mm).'; } @@ -39,7 +39,7 @@ enum 2616 "Printer Paper Kind" /// /// A5 paper (148 mm by 210 mm). /// - value(11; "A5") + value(11; A5) { Caption = 'A5 paper (148 mm by 210 mm).'; } @@ -47,7 +47,7 @@ enum 2616 "Printer Paper Kind" /// /// A6 paper (105 mm by 148 mm). /// - value(70; "A6") + value(70; A6) { Caption = 'A6 paper (105 mm by 148 mm).'; } @@ -55,7 +55,7 @@ enum 2616 "Printer Paper Kind" /// /// B4 paper (250 mm by 353 mm). /// - value(12; "B4") + value(12; B4) { Caption = 'B4 paper (250 mm by 353 mm).'; } @@ -63,7 +63,7 @@ enum 2616 "Printer Paper Kind" /// /// B4 envelope (250 mm by 353 mm). /// - value(33; "B4Envelope") + value(33; B4Envelope) { Caption = 'B4 envelope (250 mm by 353 mm).'; } @@ -71,7 +71,7 @@ enum 2616 "Printer Paper Kind" /// /// B5 paper (176 mm by 250 mm). /// - value(13; "B5") + value(13; B5) { Caption = 'B5 paper (176 mm by 250 mm).'; } @@ -79,7 +79,7 @@ enum 2616 "Printer Paper Kind" /// /// B5 envelope (176 mm by 250 mm). /// - value(34; "B5Envelope") + value(34; B5Envelope) { Caption = 'B5 envelope (176 mm by 250 mm).'; } @@ -87,7 +87,7 @@ enum 2616 "Printer Paper Kind" /// /// B6 envelope (176 mm by 125 mm). /// - value(35; "B6Envelope") + value(35; B6Envelope) { Caption = 'B6 envelope (176 mm by 125 mm).'; } @@ -95,7 +95,7 @@ enum 2616 "Printer Paper Kind" /// /// JIS B6 paper (128 mm by 182 mm). /// - value(88; "B6Jis") + value(88; B6Jis) { Caption = 'JIS B6 paper (128 mm by 182 mm).'; } @@ -103,7 +103,7 @@ enum 2616 "Printer Paper Kind" /// /// C3 envelope (324 mm by 458 mm). /// - value(29; "C3Envelope") + value(29; C3Envelope) { Caption = 'C3 envelope (324 mm by 458 mm).'; } @@ -111,7 +111,7 @@ enum 2616 "Printer Paper Kind" /// /// C4 envelope (229 mm by 324 mm). /// - value(30; "C4Envelope") + value(30; C4Envelope) { Caption = 'C4 envelope (229 mm by 324 mm).'; } @@ -119,7 +119,7 @@ enum 2616 "Printer Paper Kind" /// /// C5 envelope (162 mm by 229 mm). /// - value(28; "C5Envelope") + value(28; C5Envelope) { Caption = 'C5 envelope (162 mm by 229 mm).'; } @@ -127,7 +127,7 @@ enum 2616 "Printer Paper Kind" /// /// C65 envelope (114 mm by 229 mm). /// - value(32; "C65Envelope") + value(32; C65Envelope) { Caption = 'C65 envelope (114 mm by 229 mm).'; } @@ -135,7 +135,7 @@ enum 2616 "Printer Paper Kind" /// /// C6 envelope (114 mm by 162 mm). /// - value(31; "C6Envelope") + value(31; C6Envelope) { Caption = 'C6 envelope (114 mm by 162 mm).'; } @@ -143,7 +143,7 @@ enum 2616 "Printer Paper Kind" /// /// C paper (17 in. by 22 in.). /// - value(24; "CSheet") + value(24; CSheet) { Caption = 'C paper (17 in. by 22 in.).'; } @@ -151,7 +151,7 @@ enum 2616 "Printer Paper Kind" /// /// DL envelope (110 mm by 220 mm). /// - value(27; "DLEnvelope") + value(27; DLEnvelope) { Caption = 'DL envelope (110 mm by 220 mm).'; } @@ -159,7 +159,7 @@ enum 2616 "Printer Paper Kind" /// /// D paper (22 in. by 34 in.). /// - value(25; "DSheet") + value(25; DSheet) { Caption = 'D paper (22 in. by 34 in.).'; } @@ -167,7 +167,7 @@ enum 2616 "Printer Paper Kind" /// /// E paper (34 in. by 44 in.). /// - value(26; "ESheet") + value(26; ESheet) { Caption = 'E paper (34 in. by 44 in.).'; } @@ -175,7 +175,7 @@ enum 2616 "Printer Paper Kind" /// /// Executive paper (7.25 in. by 10.5 in.). /// - value(7; "Executive") + value(7; Executive) { Caption = 'Executive paper (7.25 in. by 10.5 in.).'; } @@ -183,7 +183,7 @@ enum 2616 "Printer Paper Kind" /// /// Folio paper (8.5 in. by 13 in.). /// - value(14; "Folio") + value(14; Folio) { Caption = 'Folio paper (8.5 in. by 13 in.).'; } @@ -191,7 +191,7 @@ enum 2616 "Printer Paper Kind" /// /// German legal fanfold (8.5 in. by 13 in.). /// - value(41; "GermanLegalFanfold") + value(41; GermanLegalFanfold) { Caption = 'German legal fanfold (8.5 in. by 13 in.).'; } @@ -199,7 +199,7 @@ enum 2616 "Printer Paper Kind" /// /// German standard fanfold (8.5 in. by 12 in.). /// - value(40; "GermanStandardFanfold") + value(40; GermanStandardFanfold) { Caption = 'German standard fanfold (8.5 in. by 12 in.).'; } @@ -207,7 +207,7 @@ enum 2616 "Printer Paper Kind" /// /// Invitation envelope (220 mm by 220 mm). /// - value(47; "InviteEnvelope") + value(47; InviteEnvelope) { Caption = 'Invitation envelope (220 mm by 220 mm).'; } @@ -215,7 +215,7 @@ enum 2616 "Printer Paper Kind" /// /// ISO B4 (250 mm by 353 mm). /// - value(42; "IsoB4") + value(42; IsoB4) { Caption = 'ISO B4 (250 mm by 353 mm).'; } @@ -223,7 +223,7 @@ enum 2616 "Printer Paper Kind" /// /// Italy envelope (110 mm by 230 mm). /// - value(36; "ItalyEnvelope") + value(36; ItalyEnvelope) { Caption = 'Italy envelope (110 mm by 230 mm).'; } @@ -231,7 +231,7 @@ enum 2616 "Printer Paper Kind" /// /// Japanese double postcard (200 mm by 148 mm). /// - value(69; "JapaneseDoublePostcard") + value(69; JapaneseDoublePostcard) { Caption = 'Japanese double postcard (200 mm by 148 mm).'; } @@ -239,7 +239,7 @@ enum 2616 "Printer Paper Kind" /// /// Japanese Chou #3 envelope. /// - value(73; "JapaneseEnvelopeChouNumber3") + value(73; JapaneseEnvelopeChouNumber3) { Caption = 'Japanese Chou #3 envelope.'; } @@ -247,7 +247,7 @@ enum 2616 "Printer Paper Kind" /// /// Japanese Chou #4 envelope. /// - value(74; "JapaneseEnvelopeChouNumber4") + value(74; JapaneseEnvelopeChouNumber4) { Caption = 'Japanese Chou #4 envelope.'; } @@ -255,7 +255,7 @@ enum 2616 "Printer Paper Kind" /// /// Japanese Kaku #2 envelope. /// - value(71; "JapaneseEnvelopeKakuNumber2") + value(71; JapaneseEnvelopeKakuNumber2) { Caption = 'Japanese Kaku #2 envelope.'; } @@ -263,7 +263,7 @@ enum 2616 "Printer Paper Kind" /// /// Japanese Kaku #3 envelope. /// - value(72; "JapaneseEnvelopeKakuNumber3") + value(72; JapaneseEnvelopeKakuNumber3) { Caption = 'Japanese Kaku #3 envelope.'; } @@ -271,7 +271,7 @@ enum 2616 "Printer Paper Kind" /// /// Japanese You #4 envelope. /// - value(91; "JapaneseEnvelopeYouNumber4") + value(91; JapaneseEnvelopeYouNumber4) { Caption = 'Japanese You #4 envelope.'; } @@ -279,7 +279,7 @@ enum 2616 "Printer Paper Kind" /// /// Japanese postcard (100 mm by 148 mm). /// - value(43; "JapanesePostcard") + value(43; JapanesePostcard) { Caption = 'Japanese postcard (100 mm by 148 mm).'; } @@ -287,7 +287,7 @@ enum 2616 "Printer Paper Kind" /// /// Ledger paper (17 in. by 11 in.). /// - value(4; "Ledger") + value(4; Ledger) { Caption = 'Ledger paper (17 in. by 11 in.).'; } @@ -295,7 +295,7 @@ enum 2616 "Printer Paper Kind" /// /// Legal paper (8.5 in. by 14 in.). /// - value(5; "Legal") + value(5; Legal) { Caption = 'Legal paper (8.5 in. by 14 in.).'; } @@ -303,7 +303,7 @@ enum 2616 "Printer Paper Kind" /// /// Letter paper (8.5 in. by 11 in.). /// - value(1; "Letter") + value(1; Letter) { Caption = 'Letter paper (8.5 in. by 11 in.).'; } @@ -311,7 +311,7 @@ enum 2616 "Printer Paper Kind" /// /// Monarch envelope (3.875 in. by 7.5 in.). /// - value(37; "MonarchEnvelope") + value(37; MonarchEnvelope) { Caption = 'Monarch envelope (3.875 in. by 7.5 in.).'; } @@ -319,7 +319,7 @@ enum 2616 "Printer Paper Kind" /// /// Note paper (8.5 in. by 11 in.). /// - value(18; "Note") + value(18; Note) { Caption = 'Note paper (8.5 in. by 11 in.).'; } @@ -327,7 +327,7 @@ enum 2616 "Printer Paper Kind" /// /// #10 envelope (4.125 in. by 9.5 in.). /// - value(20; "Number10Envelope") + value(20; Number10Envelope) { Caption = '#10 envelope (4.125 in. by 9.5 in.).'; } @@ -335,7 +335,7 @@ enum 2616 "Printer Paper Kind" /// /// #11 envelope (4.5 in. by 10.375 in.). /// - value(21; "Number11Envelope") + value(21; Number11Envelope) { Caption = '#11 envelope (4.5 in. by 10.375 in.).'; } @@ -343,7 +343,7 @@ enum 2616 "Printer Paper Kind" /// /// #12 envelope (4.75 in. by 11 in.). /// - value(22; "Number12Envelope") + value(22; Number12Envelope) { Caption = '#12 envelope (4.75 in. by 11 in.).'; } @@ -351,7 +351,7 @@ enum 2616 "Printer Paper Kind" /// /// #14 envelope (5 in. by 11.5 in.). /// - value(23; "Number14Envelope") + value(23; Number14Envelope) { Caption = '#14 envelope (5 in. by 11.5 in.).'; } @@ -359,7 +359,7 @@ enum 2616 "Printer Paper Kind" /// /// #9 envelope (3.875 in. by 8.875 in.). /// - value(19; "Number9Envelope") + value(19; Number9Envelope) { Caption = '#9 envelope (3.875 in. by 8.875 in.).'; } @@ -367,7 +367,7 @@ enum 2616 "Printer Paper Kind" /// /// 6 3/4 envelope (3.625 in. by 6.5 in.). /// - value(38; "PersonalEnvelope") + value(38; PersonalEnvelope) { Caption = '6 3/4 envelope (3.625 in. by 6.5 in.).'; } @@ -375,7 +375,7 @@ enum 2616 "Printer Paper Kind" /// /// 16K paper (146 mm by 215 mm). /// - value(93; "Prc16K") + value(93; Prc16K) { Caption = '16K paper (146 mm by 215 mm).'; } @@ -383,7 +383,7 @@ enum 2616 "Printer Paper Kind" /// /// 32K paper (97 mm by 151 mm). /// - value(94; "Prc32K") + value(94; Prc32K) { Caption = '32K paper (97 mm by 151 mm).'; } @@ -391,7 +391,7 @@ enum 2616 "Printer Paper Kind" /// /// #1 envelope (102 mm by 165 mm). /// - value(96; "PrcEnvelopeNumber1") + value(96; PrcEnvelopeNumber1) { Caption = '#1 envelope (102 mm by 165 mm).'; } @@ -399,7 +399,7 @@ enum 2616 "Printer Paper Kind" /// /// #10 envelope (324 mm by 458 mm). /// - value(105; "PrcEnvelopeNumber10") + value(105; PrcEnvelopeNumber10) { Caption = '#10 envelope (324 mm by 458 mm).'; } @@ -407,7 +407,7 @@ enum 2616 "Printer Paper Kind" /// /// #2 envelope (102 mm by 176 mm). /// - value(97; "PrcEnvelopeNumber2") + value(97; PrcEnvelopeNumber2) { Caption = '#2 envelope (102 mm by 176 mm).'; } @@ -415,7 +415,7 @@ enum 2616 "Printer Paper Kind" /// /// #3 envelope (125 mm by 176 mm). /// - value(98; "PrcEnvelopeNumber3") + value(98; PrcEnvelopeNumber3) { Caption = '#3 envelope (125 mm by 176 mm).'; } @@ -423,7 +423,7 @@ enum 2616 "Printer Paper Kind" /// /// #4 envelope (110 mm by 208 mm). /// - value(99; "PrcEnvelopeNumber4") + value(99; PrcEnvelopeNumber4) { Caption = '#4 envelope (110 mm by 208 mm).'; } @@ -431,7 +431,7 @@ enum 2616 "Printer Paper Kind" /// /// #5 envelope (110 mm by 220 mm). /// - value(100; "PrcEnvelopeNumber5") + value(100; PrcEnvelopeNumber5) { Caption = '#5 envelope (110 mm by 220 mm).'; } @@ -439,7 +439,7 @@ enum 2616 "Printer Paper Kind" /// /// #6 envelope (120 mm by 230 mm). /// - value(101; "PrcEnvelopeNumber6") + value(101; PrcEnvelopeNumber6) { Caption = '#6 envelope (120 mm by 230 mm).'; } @@ -447,7 +447,7 @@ enum 2616 "Printer Paper Kind" /// /// #7 envelope (160 mm by 230 mm). /// - value(102; "PrcEnvelopeNumber7") + value(102; PrcEnvelopeNumber7) { Caption = '#7 envelope (160 mm by 230 mm).'; } @@ -455,7 +455,7 @@ enum 2616 "Printer Paper Kind" /// /// #8 envelope (120 mm by 309 mm). /// - value(103; "PrcEnvelopeNumber8") + value(103; PrcEnvelopeNumber8) { Caption = '#8 envelope (120 mm by 309 mm).'; } @@ -463,7 +463,7 @@ enum 2616 "Printer Paper Kind" /// /// #9 envelope (229 mm by 324 mm). /// - value(104; "PrcEnvelopeNumber9") + value(104; PrcEnvelopeNumber9) { Caption = '#9 envelope (229 mm by 324 mm).'; } @@ -471,7 +471,7 @@ enum 2616 "Printer Paper Kind" /// /// Quarto paper (215 mm by 275 mm). /// - value(15; "Quarto") + value(15; Quarto) { Caption = 'Quarto paper (215 mm by 275 mm).'; } @@ -479,7 +479,7 @@ enum 2616 "Printer Paper Kind" /// /// Standard paper (10 in. by 11 in.). /// - value(45; "Standard10x11") + value(45; Standard10x11) { Caption = 'Standard paper (10 in. by 11 in.).'; } @@ -487,7 +487,7 @@ enum 2616 "Printer Paper Kind" /// /// Standard paper (10 in. by 14 in.). /// - value(16; "Standard10x14") + value(16; Standard10x14) { Caption = 'Standard paper (10 in. by 14 in.).'; } @@ -495,7 +495,7 @@ enum 2616 "Printer Paper Kind" /// /// Standard paper (11 in. by 17 in.). /// - value(17; "Standard11x17") + value(17; Standard11x17) { Caption = 'Standard paper (11 in. by 17 in.).'; } @@ -503,7 +503,7 @@ enum 2616 "Printer Paper Kind" /// /// Standard paper (12 in. by 11 in.). /// - value(90; "Standard12x11") + value(90; Standard12x11) { Caption = 'Standard paper (12 in. by 11 in.).'; } @@ -511,7 +511,7 @@ enum 2616 "Printer Paper Kind" /// /// Standard paper (15 in. by 11 in.). /// - value(46; "Standard15x11") + value(46; Standard15x11) { Caption = 'Standard paper (15 in. by 11 in.).'; } @@ -519,7 +519,7 @@ enum 2616 "Printer Paper Kind" /// /// Standard paper (9 in. by 11 in.). /// - value(44; "Standard9x11") + value(44; Standard9x11) { Caption = 'Standard paper (9 in. by 11 in.).'; } @@ -527,7 +527,7 @@ enum 2616 "Printer Paper Kind" /// /// Statement paper (5.5 in. by 8.5 in.). /// - value(6; "Statement") + value(6; Statement) { Caption = 'Statement paper (5.5 in. by 8.5 in.).'; } @@ -535,7 +535,7 @@ enum 2616 "Printer Paper Kind" /// /// Tabloid paper (11 in. by 17 in.). /// - value(3; "Tabloid") + value(3; Tabloid) { Caption = 'Tabloid paper (11 in. by 17 in.).'; } @@ -543,7 +543,7 @@ enum 2616 "Printer Paper Kind" /// /// US standard fanfold (14.875 in. by 11 in.). /// - value(39; "USStandardFanfold") + value(39; USStandardFanfold) { Caption = 'US standard fanfold (14.875 in. by 11 in.).'; } @@ -551,7 +551,7 @@ enum 2616 "Printer Paper Kind" /// /// Custom. The paper size is defined by the user. /// - value(0; "Custom") + value(0; Custom) { Caption = 'Custom. The paper size is defined by the user.'; } diff --git a/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeObjects.PermissionSet.al b/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeObjects.PermissionSet.al index a38819eebc..aa9c68fa4e 100644 --- a/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeObjects.PermissionSet.al +++ b/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeObjects.PermissionSet.al @@ -10,10 +10,10 @@ permissionset 1563 "Privacy Notice - Objects" Access = Internal; Assignable = false; - Permissions = codeunit "Privacy Notice" = X, + Permissions = table "Privacy Notice" = X, +codeunit "Privacy Notice" = X, + page "Power Automate Privacy Notice" = X, page "Privacy Notice" = X, - page "Privacy Notices" = X, page "Privacy Notice Approvals" = X, - page "Power Automate Privacy Notice" = X, - table "Privacy Notice" = X; + page "Privacy Notices" = X; } diff --git a/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeRead.PermissionSet.al b/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeRead.PermissionSet.al index 8e43d5e35d..be534535c3 100644 --- a/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeRead.PermissionSet.al +++ b/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeRead.PermissionSet.al @@ -17,7 +17,7 @@ permissionset 1564 "Privacy Notice - Read" IncludedPermissionSets = "Privacy Notice - Objects"; Permissions = tabledata Company = r, + tabledata "Page Data Personalization" = R, tabledata "Privacy Notice" = R, - tabledata "Privacy Notice Approval" = R, - tabledata "Page Data Personalization" = R; // Page.RunModal requires this + tabledata "Privacy Notice Approval" = R; // Page.RunModal requires this } diff --git a/src/System Application/App/Privacy Notice/src/PowerAutomate/PowerAutomatePrivacyNotice.Codeunit.al b/src/System Application/App/Privacy Notice/src/PowerAutomate/PowerAutomatePrivacyNotice.Codeunit.al index 6672312b3d..3edcdcffb7 100644 --- a/src/System Application/App/Privacy Notice/src/PowerAutomate/PowerAutomatePrivacyNotice.Codeunit.al +++ b/src/System Application/App/Privacy Notice/src/PowerAutomate/PowerAutomatePrivacyNotice.Codeunit.al @@ -23,7 +23,7 @@ codeunit 1568 "Power Automate Privacy Notice" begin SignInAgainNotification.Id := SignInAgainNotificationGuidTok; SignInAgainNotification.Message := SignInAgainMsg; - SignInAgainNotification.Scope := NOTIFICATIONSCOPE::LocalScope; + SignInAgainNotification.Scope := NotificationScope::LocalScope; SignInAgainNotification.Send(); end; diff --git a/src/System Application/App/Privacy Notice/src/PrivacyNotice.Codeunit.al b/src/System Application/App/Privacy Notice/src/PrivacyNotice.Codeunit.al index 35f7946149..d9246e8ae3 100644 --- a/src/System Application/App/Privacy Notice/src/PrivacyNotice.Codeunit.al +++ b/src/System Application/App/Privacy Notice/src/PrivacyNotice.Codeunit.al @@ -62,7 +62,7 @@ codeunit 1563 "Privacy Notice" /// If user has agreed, that will be returned /// Privacy Notice will be shown and any agreement will be stored. /// If the Privacy Notice was simply closed, we return false and nothing is stored. - /// + /// /// This function will open a modal dialog to confirm approval and must hence be run outside a write transaction. /// The privacy notice referenced must exist. /// @@ -86,7 +86,7 @@ codeunit 1563 "Privacy Notice" /// If user has agreed, that will be returned /// Privacy Notice will be shown and any agreement will be stored. /// If the Privacy Notice was simply closed, we return false and nothing is stored. - /// + /// /// This function will open a modal dialog to confirm approval and must hence be run outside a write transaction. /// The privacy notice referenced must exist. /// @@ -102,7 +102,7 @@ codeunit 1563 "Privacy Notice" /// /// Returns the state of the privacy notice for the current user without showing any privacy notice to the user. - /// + /// /// An error is thrown if the privacy notice does not exist. /// /// Identification of an existing privacy notice. @@ -116,7 +116,7 @@ codeunit 1563 "Privacy Notice" /// /// Returns the state of the privacy notice for the current user without showing any privacy notice to the user. - /// + /// /// An error is thrown if the privacy notice does not exist. /// /// Identification of an existing privacy notice. diff --git a/src/System Application/App/Privacy Notice/src/PrivacyNoticeApprovals.Page.al b/src/System Application/App/Privacy Notice/src/PrivacyNoticeApprovals.Page.al index ce3bcdbdba..bc9a31dcac 100644 --- a/src/System Application/App/Privacy Notice/src/PrivacyNoticeApprovals.Page.al +++ b/src/System Application/App/Privacy Notice/src/PrivacyNoticeApprovals.Page.al @@ -13,7 +13,7 @@ page 1564 "Privacy Notice Approvals" SourceTable = "Privacy Notice Approval"; InsertAllowed = false; ModifyAllowed = false; - + layout { area(Content) diff --git a/src/System Application/App/Privacy Notice/src/PrivacyNoticeImpl.Codeunit.al b/src/System Application/App/Privacy Notice/src/PrivacyNoticeImpl.Codeunit.al index 136088871f..009ba6c718 100644 --- a/src/System Application/App/Privacy Notice/src/PrivacyNoticeImpl.Codeunit.al +++ b/src/System Application/App/Privacy Notice/src/PrivacyNoticeImpl.Codeunit.al @@ -12,8 +12,8 @@ codeunit 1565 "Privacy Notice Impl." Access = Internal; InherentEntitlements = X; InherentPermissions = X; - Permissions = tabledata "Privacy Notice" = im, - tabledata Company = r; + Permissions = tabledata Company = r, +tabledata "Privacy Notice" = im; var EmptyGuid: Guid; diff --git a/src/System Application/App/Privacy Notice/src/PrivacyNotices.Page.al b/src/System Application/App/Privacy Notice/src/PrivacyNotices.Page.al index 095357e046..290732a3df 100644 --- a/src/System Application/App/Privacy Notice/src/PrivacyNotices.Page.al +++ b/src/System Application/App/Privacy Notice/src/PrivacyNotices.Page.al @@ -92,7 +92,7 @@ page 1565 "Privacy Notices" SetRecordApprovalState(); end; } -#pragma warning disable AA0218 +#pragma warning disable AA0218 field(Accepted2; Rec.Enabled) { ApplicationArea = All; @@ -103,7 +103,7 @@ page 1565 "Privacy Notices" ApplicationArea = All; Visible = false; // This field ensures Disabled field is auto-calculated } -#pragma warning restore AA0218 +#pragma warning restore AA0218 } } } diff --git a/src/System Application/App/Record Link Management/Permissions/RecordLinkManagementObj.PermissionSet.al b/src/System Application/App/Record Link Management/Permissions/RecordLinkManagementObj.PermissionSet.al index c5139cec75..82b1965773 100644 --- a/src/System Application/App/Record Link Management/Permissions/RecordLinkManagementObj.PermissionSet.al +++ b/src/System Application/App/Record Link Management/Permissions/RecordLinkManagementObj.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 4470 "Record Link Management - Obj." Access = Internal; Assignable = false; - Permissions = Codeunit "Record Link Management" = X, - Codeunit "Remove Orphaned Record Links" = X; + Permissions = codeunit "Record Link Management" = X, + codeunit "Remove Orphaned Record Links" = X; } diff --git a/src/System Application/App/Record Link Management/src/RecordLinkImpl.Codeunit.al b/src/System Application/App/Record Link Management/src/RecordLinkImpl.Codeunit.al index 88793d6831..fff48f700d 100644 --- a/src/System Application/App/Record Link Management/src/RecordLinkImpl.Codeunit.al +++ b/src/System Application/App/Record Link Management/src/RecordLinkImpl.Codeunit.al @@ -28,13 +28,13 @@ codeunit 4470 "Record Link Impl." RecordRefTo: RecordRef; #if not CLEAN23 SkipReset: Boolean; -#endif +#endif begin #if not CLEAN23 #pragma warning disable AL0432 RecordLinkManagement.OnBeforeCopyLinks(FromRecordVariant, ToRecordVariant, SkipReset); #pragma warning restore AL0432 -#endif +#endif RecordRefTo.GetTable(ToRecordVariant); RecordRefTo.CopyLinks(FromRecordVariant); RecordLinkManagement.OnAfterCopyLinks(FromRecordVariant, ToRecordVariant); @@ -45,7 +45,7 @@ codeunit 4470 "Record Link Impl." BinWriter: DotNet BinaryWriter; Output: OutStream; begin - RecordLink.Note.CreateOutStream(Output, TEXTENCODING::UTF8); + RecordLink.Note.CreateOutStream(Output, TextEncoding::UTF8); BinWriter := BinWriter.BinaryWriter(Output); BinWriter.Write(Note); end; @@ -55,7 +55,7 @@ codeunit 4470 "Record Link Impl." BinReader: DotNet BinaryReader; Data: InStream; begin - RecordLink.Note.CreateInStream(Data, TEXTENCODING::UTF8); + RecordLink.Note.CreateInStream(Data, TextEncoding::UTF8); BinReader := BinReader.BinaryReader(Data); // Peek if stream is empty if BinReader.BaseStream().Position() = BinReader.BaseStream().Length() then @@ -95,7 +95,7 @@ codeunit 4470 "Record Link Impl." var RecordLink: Record "Record Link"; RecordRef: RecordRef; - PrevRecID: RecordID; + PrevRecID: RecordId; WindowDialog: Dialog; i: Integer; Total: Integer; diff --git a/src/System Application/App/Record Reference/src/RecordReferenceDefaultImpl.Codeunit.al b/src/System Application/App/Record Reference/src/RecordReferenceDefaultImpl.Codeunit.al index d9b6d1380a..9ba783393b 100644 --- a/src/System Application/App/Record Reference/src/RecordReferenceDefaultImpl.Codeunit.al +++ b/src/System Application/App/Record Reference/src/RecordReferenceDefaultImpl.Codeunit.al @@ -45,7 +45,7 @@ codeunit 3919 "Record Reference Default Impl." implements "Record Reference" local procedure VerifyCallerModuleId(CallerModuleId: Guid) begin if not (CallerModuleId = InitializedCallerModuleId) then - error(IncorrectCallerAppIdErr, InitializedCallerModuleId, CallerModuleId); + Error(IncorrectCallerAppIdErr, InitializedCallerModuleId, CallerModuleId); end; procedure ReadPermission(RecordRef: RecordRef): Boolean diff --git a/src/System Application/App/Record Selection/src/RecordLookup.Page.al b/src/System Application/App/Record Selection/src/RecordLookup.Page.al index 13de9ae184..f810f0985d 100644 --- a/src/System Application/App/Record Selection/src/RecordLookup.Page.al +++ b/src/System Application/App/Record Selection/src/RecordLookup.Page.al @@ -19,7 +19,7 @@ page 9555 "Record Lookup" layout { - area(content) + area(Content) { repeater(Control2) { @@ -28,7 +28,7 @@ page 9555 "Record Lookup" field(Field1; Rec."Field 1") { ApplicationArea = All; - Tooltip = 'Specifies the 1st value in the key of the record.'; + ToolTip = 'Specifies the 1st value in the key of the record.'; Visible = FieldsVisible > 0; CaptionClass = FieldCaptions[1]; } @@ -36,7 +36,7 @@ page 9555 "Record Lookup" field(Field2; Rec."Field 2") { ApplicationArea = All; - Tooltip = 'Specifies the 2nd value in the key of the record.'; + ToolTip = 'Specifies the 2nd value in the key of the record.'; Visible = FieldsVisible > 1; CaptionClass = FieldCaptions[2]; } @@ -44,7 +44,7 @@ page 9555 "Record Lookup" field(Field3; Rec."Field 3") { ApplicationArea = All; - Tooltip = 'Specifies the 3rd value in the key of the record.'; + ToolTip = 'Specifies the 3rd value in the key of the record.'; Visible = FieldsVisible > 2; CaptionClass = FieldCaptions[3]; } @@ -52,7 +52,7 @@ page 9555 "Record Lookup" field(Field4; Rec."Field 4") { ApplicationArea = All; - Tooltip = 'Specifies the 4th value in the key of the record.'; + ToolTip = 'Specifies the 4th value in the key of the record.'; Visible = FieldsVisible > 3; CaptionClass = FieldCaptions[4]; } @@ -60,7 +60,7 @@ page 9555 "Record Lookup" field(Field5; Rec."Field 5") { ApplicationArea = All; - Tooltip = 'Specifies the 5th value in the key of the record.'; + ToolTip = 'Specifies the 5th value in the key of the record.'; Visible = FieldsVisible > 4; CaptionClass = FieldCaptions[5]; } @@ -68,7 +68,7 @@ page 9555 "Record Lookup" field(Field6; Rec."Field 6") { ApplicationArea = All; - Tooltip = 'Specifies the 6th value in the key of the record.'; + ToolTip = 'Specifies the 6th value in the key of the record.'; Visible = FieldsVisible > 5; CaptionClass = FieldCaptions[6]; } @@ -76,7 +76,7 @@ page 9555 "Record Lookup" field(Field7; Rec."Field 7") { ApplicationArea = All; - Tooltip = 'Specifies the 7th value in the key of the record.'; + ToolTip = 'Specifies the 7th value in the key of the record.'; Visible = FieldsVisible > 6; CaptionClass = FieldCaptions[7]; } @@ -84,7 +84,7 @@ page 9555 "Record Lookup" field(Field8; Rec."Field 8") { ApplicationArea = All; - Tooltip = 'Specifies the 8th value in the key of the record.'; + ToolTip = 'Specifies the 8th value in the key of the record.'; Visible = FieldsVisible > 7; CaptionClass = FieldCaptions[8]; } @@ -92,7 +92,7 @@ page 9555 "Record Lookup" field(Field9; Rec."Field 9") { ApplicationArea = All; - Tooltip = 'Specifies the 9th value in the key of the record.'; + ToolTip = 'Specifies the 9th value in the key of the record.'; Visible = FieldsVisible > 8; CaptionClass = FieldCaptions[9]; } @@ -100,7 +100,7 @@ page 9555 "Record Lookup" field(Field10; Rec."Field 10") { ApplicationArea = All; - Tooltip = 'Specifies the 10th value in the key of the record.'; + ToolTip = 'Specifies the 10th value in the key of the record.'; Visible = FieldsVisible > 9; CaptionClass = FieldCaptions[10]; } diff --git a/src/System Application/App/Record Selection/src/RecordSelectionImpl.Codeunit.al b/src/System Application/App/Record Selection/src/RecordSelectionImpl.Codeunit.al index 34fe4c3590..d3da7f1e96 100644 --- a/src/System Application/App/Record Selection/src/RecordSelectionImpl.Codeunit.al +++ b/src/System Application/App/Record Selection/src/RecordSelectionImpl.Codeunit.al @@ -29,7 +29,7 @@ codeunit 9556 "Record Selection Impl." RecordLookup.SetTableId(TableId); RecordLookup.LookupMode(true); - if RecordLookup.RunModal() = ACTION::LookupOK then begin + if RecordLookup.RunModal() = Action::LookupOK then begin RecordLookup.GetSelectedRecords(SelectedRecord); exit(true); end; diff --git a/src/System Application/App/Recurrence Schedule/src/RecurrenceScheduleCard.Page.al b/src/System Application/App/Recurrence Schedule/src/RecurrenceScheduleCard.Page.al index 39bb3294ae..15ac8f2ed3 100644 --- a/src/System Application/App/Recurrence Schedule/src/RecurrenceScheduleCard.Page.al +++ b/src/System Application/App/Recurrence Schedule/src/RecurrenceScheduleCard.Page.al @@ -15,7 +15,7 @@ page 4690 "Recurrence Schedule Card" InherentEntitlements = X; InherentPermissions = X; Extensible = false; - DataCaptionExpression = FORMAT(Rec.Pattern); + DataCaptionExpression = Format(Rec.Pattern); InsertAllowed = false; LinksAllowed = false; PageType = Card; @@ -25,7 +25,7 @@ page 4690 "Recurrence Schedule Card" layout { - area(content) + area(Content) { group(General) { @@ -70,7 +70,7 @@ page 4690 "Recurrence Schedule Card" group(Daily) { Caption = 'Daily'; - Visible = Rec."Pattern" = RecurrencePatterns::Daily; + Visible = Rec.Pattern = RecurrencePatterns::Daily; field(DailyFrequency; Rec."Recurs Every") { ApplicationArea = All; @@ -82,7 +82,7 @@ page 4690 "Recurrence Schedule Card" group(Weekly) { Caption = 'Weekly'; - Visible = Rec."Pattern" = Rec."Pattern"::Weekly; + Visible = Rec.Pattern = Rec.Pattern::Weekly; field(WeeklyFrequency; Rec."Recurs Every") { ApplicationArea = All; @@ -136,7 +136,7 @@ page 4690 "Recurrence Schedule Card" group(Monthly) { Caption = 'Monthly'; - Visible = Rec."Pattern" = RecurrencePatterns::Monthly; + Visible = Rec.Pattern = RecurrencePatterns::Monthly; field(MonthlyFrequency; Rec."Recurs Every") { ApplicationArea = All; @@ -184,7 +184,7 @@ page 4690 "Recurrence Schedule Card" group(Yearly) { Caption = 'Yearly'; - Visible = Rec."Pattern" = RecurrencePatterns::Yearly; + Visible = Rec.Pattern = RecurrencePatterns::Yearly; field(YearlyFrequency; Rec."Recurs Every") { ApplicationArea = All; @@ -240,13 +240,13 @@ page 4690 "Recurrence Schedule Card" actions { - area(processing) + area(Processing) { action("Daily Recurrence") { ApplicationArea = All; Caption = 'Daily'; - Enabled = Rec."Pattern" <> RecurrencePatterns::Daily; + Enabled = Rec.Pattern <> RecurrencePatterns::Daily; Image = DueDate; Promoted = true; PromotedCategory = Process; @@ -263,7 +263,7 @@ page 4690 "Recurrence Schedule Card" { ApplicationArea = All; Caption = 'Weekly'; - Enabled = Rec."Pattern" <> RecurrencePatterns::Weekly; + Enabled = Rec.Pattern <> RecurrencePatterns::Weekly; Image = Workdays; Promoted = true; PromotedCategory = Process; @@ -280,7 +280,7 @@ page 4690 "Recurrence Schedule Card" { ApplicationArea = All; Caption = 'Monthly'; - Enabled = Rec."Pattern" <> RecurrencePatterns::Monthly; + Enabled = Rec.Pattern <> RecurrencePatterns::Monthly; Image = Workdays; Promoted = true; PromotedCategory = Process; @@ -297,7 +297,7 @@ page 4690 "Recurrence Schedule Card" { ApplicationArea = All; Caption = 'Yearly'; - Enabled = Rec."Pattern" <> RecurrencePatterns::Yearly; + Enabled = Rec.Pattern <> RecurrencePatterns::Yearly; Image = Period; Promoted = true; PromotedCategory = Process; diff --git a/src/System Application/App/Recurrence Schedule/src/RecurrenceScheduleImpl.Codeunit.al b/src/System Application/App/Recurrence Schedule/src/RecurrenceScheduleImpl.Codeunit.al index b86b2edee0..e48298358e 100644 --- a/src/System Application/App/Recurrence Schedule/src/RecurrenceScheduleImpl.Codeunit.al +++ b/src/System Application/App/Recurrence Schedule/src/RecurrenceScheduleImpl.Codeunit.al @@ -70,7 +70,7 @@ codeunit 4691 "Recurrence Schedule Impl." if NextDate = 0D then exit(0DT); - exit(CheckForEndDateTime(RecurrenceSchedule, CREATEDATETIME(NextDate, RecurrenceSchedule."Start Time"))); + exit(CheckForEndDateTime(RecurrenceSchedule, CreateDateTime(NextDate, RecurrenceSchedule."Start Time"))); end; local procedure CalculateDaily(RecurrenceSchedule: Record "Recurrence Schedule"; LastOccurrence: Date): Date @@ -97,9 +97,9 @@ codeunit 4691 "Recurrence Schedule Impl." if LastOccurrence = 0D then begin LastOccurrence := RecurrenceSchedule."Start Date"; - NextWeekDay := GetNextWeekDay(RecurrenceSchedule, DATE2DWY(LastOccurrence, 1) - 1) + NextWeekDay := GetNextWeekDay(RecurrenceSchedule, Date2DWY(LastOccurrence, 1) - 1) end else - NextWeekDay := GetNextWeekDay(RecurrenceSchedule, DATE2DWY(LastOccurrence, 1)); + NextWeekDay := GetNextWeekDay(RecurrenceSchedule, Date2DWY(LastOccurrence, 1)); if NextWeekDay > 0 then NextDate := CalcDate(StrSubstNo(NextWeekDayDateFormulaLbl, NextWeekDay - 1), LastOccurrence) @@ -192,7 +192,7 @@ codeunit 4691 "Recurrence Schedule Impl." exit(FindDayInMonth(LastOccurrence, RecurrenceSchedule."Ordinal Recurrence No.", DayOfWeek::Monday.AsInteger(), DayOfWeek::Sunday.AsInteger())); DayOfWeek::Weekday: exit(FindDayInMonth(LastOccurrence, RecurrenceSchedule."Ordinal Recurrence No.", DayOfWeek::Monday.AsInteger(), DayOfWeek::Friday.AsInteger())); - DayOfWeek::"Weekend day": + DayOfWeek::"Weekend Day": exit(FindDayInMonth(LastOccurrence, RecurrenceSchedule."Ordinal Recurrence No.", DayOfWeek::Saturday.AsInteger(), DayOfWeek::Sunday.AsInteger())) else exit(FindDayInMonth(LastOccurrence, RecurrenceSchedule."Ordinal Recurrence No.", @@ -227,15 +227,15 @@ codeunit 4691 "Recurrence Schedule Impl." local procedure CalculateYearly(RecurrenceSchedule: Record "Recurrence Schedule"; LastOccurrence: Date): Date var MonthlyPattern: Enum "Recurrence - Monthly Pattern"; - WeekdayDateFormulaTxt: Label '<-CM+%1Y>', comment = '%1 - Number of years', Locked = true; + WeekdayDateFormulaTxt: Label '<-CM+%1Y>', Comment = '%1 - Number of years', Locked = true; SpecificDateDateFormulaTxt: Label '<-CM+%1Y+%2D>', Comment = '%1 - Number of years, %2 - Number of days', Locked = true; begin if LastOccurrence = 0D then case RecurrenceSchedule."Monthly Pattern" of MonthlyPattern::"By Weekday": - exit(CalculateMonthlyByWeekDay(RecurrenceSchedule, DMY2DATE(1, RecurrenceSchedule.Month.AsInteger(), Date2DMY(RecurrenceSchedule."Start Date", 3)))); + exit(CalculateMonthlyByWeekDay(RecurrenceSchedule, DMY2Date(1, RecurrenceSchedule.Month.AsInteger(), Date2DMY(RecurrenceSchedule."Start Date", 3)))); MonthlyPattern::"Specific Day": - exit(DMY2DATE(RecurrenceSchedule."Recurs on Day", RecurrenceSchedule.Month.AsInteger(), Date2DMY(RecurrenceSchedule."Start Date", 3))); + exit(DMY2Date(RecurrenceSchedule."Recurs on Day", RecurrenceSchedule.Month.AsInteger(), Date2DMY(RecurrenceSchedule."Start Date", 3))); end; case RecurrenceSchedule."Monthly Pattern" of @@ -249,7 +249,7 @@ codeunit 4691 "Recurrence Schedule Impl." local procedure CheckForEndDateTime(RecurrenceSchedule: Record "Recurrence Schedule"; PlannedDateTime: DateTime): DateTime begin if RecurrenceSchedule."End Date" <> 0D then - if PlannedDateTime > CREATEDATETIME(RecurrenceSchedule."End Date", RecurrenceSchedule."Start Time") then + if PlannedDateTime > CreateDateTime(RecurrenceSchedule."End Date", RecurrenceSchedule."Start Time") then exit(0DT); exit(PlannedDateTime); @@ -383,7 +383,7 @@ codeunit 4691 "Recurrence Schedule Impl." else #pragma warning disable AA0214 RecurrenceSchedule.Modify(true); -#pragma warning restore +#pragma warning restore RecurrenceID := RecurrenceSchedule.ID; exit; end; diff --git a/src/System Application/App/Regex/src/Captures.Table.al b/src/System Application/App/Regex/src/Captures.Table.al index 0ce83133c2..89dd40da39 100644 --- a/src/System Application/App/Regex/src/Captures.Table.al +++ b/src/System Application/App/Regex/src/Captures.Table.al @@ -52,7 +52,7 @@ table 3963 Captures } /// - /// Reads the value of the capture + /// Reads the value of the capture /// /// The value of the capture. procedure ReadValue() TextValue: Text diff --git a/src/System Application/App/Regex/src/Groups.Table.al b/src/System Application/App/Regex/src/Groups.Table.al index 49c60e5ac4..f777407997 100644 --- a/src/System Application/App/Regex/src/Groups.Table.al +++ b/src/System Application/App/Regex/src/Groups.Table.al @@ -62,7 +62,7 @@ table 3964 Groups } /// - /// Reads the value of the group + /// Reads the value of the group /// /// The value of the group. procedure ReadValue() TextValue: Text diff --git a/src/System Application/App/Regex/src/Matches.Table.al b/src/System Application/App/Regex/src/Matches.Table.al index bd1dbd9cff..bb0b51e6ec 100644 --- a/src/System Application/App/Regex/src/Matches.Table.al +++ b/src/System Application/App/Regex/src/Matches.Table.al @@ -57,7 +57,7 @@ table 3965 Matches } /// - /// Reads the value of the match + /// Reads the value of the match /// /// The value of the match. procedure ReadValue() TextValue: Text diff --git a/src/System Application/App/Regex/src/Regex.Codeunit.al b/src/System Application/App/Regex/src/Regex.Codeunit.al index 47635a4bcc..923c8c2fd1 100644 --- a/src/System Application/App/Regex/src/Regex.Codeunit.al +++ b/src/System Application/App/Regex/src/Regex.Codeunit.al @@ -6,7 +6,7 @@ namespace System.Utilities; /// -/// Provides functionality to use regular expressions to match text, split text, replace text etc. +/// Provides functionality to use regular expressions to match text, split text, replace text etc. /// codeunit 3960 Regex { @@ -145,7 +145,7 @@ codeunit 3960 Regex /// /// The string to search for a match. /// True if the regular expression finds a match; otherwise, false. - /// Regex is not Instantiated. Consider calling Regex() first or use an overload supporting a pattern. + /// Regex is not Instantiated. Consider calling Regex() first or use an overload supporting a pattern. procedure IsMatch(Input: Text): Boolean begin exit(RegexImpl.IsMatch(Input)); @@ -181,7 +181,7 @@ codeunit 3960 Regex /// The string to search for a match. /// The zero-based character position at which to start the search. /// The Match object to write information about the match to. - /// Regex is not Instantiated. Consider calling Regex() first or use an overload supporting a pattern. + /// Regex is not Instantiated. Consider calling Regex() first or use an overload supporting a pattern. procedure Match(Input: Text; StartAt: Integer; var Matches: Record Matches) begin RegexImpl.Match(Input, StartAt, Matches); @@ -516,7 +516,7 @@ codeunit 3960 Regex end; /// - /// Escapes a minimal set of characters (\, *, +, ?, |, {, [, (,), ^, $, ., #, and white space) by replacing them with their escape codes. + /// Escapes a minimal set of characters (\, *, +, ?, |, {, [, (,), ^, $, ., #, and white space) by replacing them with their escape codes. /// /// The input string that contains the text to convert. /// A string of characters with metacharacters converted to their escaped form. diff --git a/src/System Application/App/Regex/src/RegexOptions.Table.al b/src/System Application/App/Regex/src/RegexOptions.Table.al index e4a0e1c28a..647cbfeae1 100644 --- a/src/System Application/App/Regex/src/RegexOptions.Table.al +++ b/src/System Application/App/Regex/src/RegexOptions.Table.al @@ -83,7 +83,7 @@ table 3966 "Regex Options" } /// - /// Gets the integer-representation of the combined regex options. + /// Gets the integer-representation of the combined regex options. /// /// An integer for the combined regex options. procedure GetRegexOptions(): Integer diff --git a/src/System Application/App/Rest Client/src/HttpClientHandler/HttpClientHandler.Codeunit.al b/src/System Application/App/Rest Client/src/HttpClientHandler/HttpClientHandler.Codeunit.al index d17d921197..c7ab685cf7 100644 --- a/src/System Application/App/Rest Client/src/HttpClientHandler/HttpClientHandler.Codeunit.al +++ b/src/System Application/App/Rest Client/src/HttpClientHandler/HttpClientHandler.Codeunit.al @@ -9,7 +9,7 @@ codeunit 2360 "Http Client Handler" implements "Http Client Handler" InherentEntitlements = X; InherentPermissions = X; - procedure Send(HttpClient: HttpClient; HttpRequestMessage: codeunit "Http Request Message"; var HttpResponseMessage: codeunit "Http Response Message") Success: Boolean; + procedure Send(HttpClient: HttpClient; HttpRequestMessage: Codeunit "Http Request Message"; var HttpResponseMessage: Codeunit "Http Response Message") Success: Boolean; var ResponseMessage: HttpResponseMessage; begin diff --git a/src/System Application/App/Rest Client/src/RestClient.Codeunit.al b/src/System Application/App/Rest Client/src/RestClient.Codeunit.al index e9afb1b08c..ce2303f4ec 100644 --- a/src/System Application/App/Rest Client/src/RestClient.Codeunit.al +++ b/src/System Application/App/Rest Client/src/RestClient.Codeunit.al @@ -264,7 +264,7 @@ codeunit 2350 "Rest Client" /// The Uri the request is sent to. /// The content to send as a JsonToken. /// The response content as JsonToken - procedure PatchAsJson(RequestUri: Text; Content: JSonToken) Response: JsonToken + procedure PatchAsJson(RequestUri: Text; Content: JsonToken) Response: JsonToken begin Response := RestClientImpl.PatchAsJson(RequestUri, Content); end; @@ -297,7 +297,7 @@ codeunit 2350 "Rest Client" /// The Uri the request is sent to. /// The content to send as a JsonToken. /// The response content as JsonToken - procedure PutAsJson(RequestUri: Text; Content: JSonToken) Response: JsonToken + procedure PutAsJson(RequestUri: Text; Content: JsonToken) Response: JsonToken begin Response := RestClientImpl.PutAsJson(RequestUri, Content); end; diff --git a/src/System Application/App/Rest Client/src/RestClientImpl.Codeunit.al b/src/System Application/App/Rest Client/src/RestClientImpl.Codeunit.al index fd5afd4051..c2c30f9498 100644 --- a/src/System Application/App/Rest Client/src/RestClientImpl.Codeunit.al +++ b/src/System Application/App/Rest Client/src/RestClientImpl.Codeunit.al @@ -17,9 +17,9 @@ codeunit 2351 "Rest Client Impl." HttpClientHandler: Interface "Http Client Handler"; HttpClient: HttpClient; IsInitialized: Boolean; - EnvironmentBlocksErr: label 'Environment blocks an outgoing HTTP request to ''%1''.', Comment = '%1 = url, e.g. https://microsoft.com'; - ConnectionErr: label 'Connection to the remote service ''%1'' could not be established.', Comment = '%1 = url, e.g. https://microsoft.com'; - RequestFailedErr: label 'The request failed: %1 %2', Comment = '%1 = HTTP status code, %2 = Reason phrase'; + EnvironmentBlocksErr: Label 'Environment blocks an outgoing HTTP request to ''%1''.', Comment = '%1 = url, e.g. https://microsoft.com'; + ConnectionErr: Label 'Connection to the remote service ''%1'' could not be established.', Comment = '%1 = url, e.g. https://microsoft.com'; + RequestFailedErr: Label 'The request failed: %1 %2', Comment = '%1 = HTTP status code, %2 = Reason phrase'; UserAgentLbl: Label 'Dynamics 365 Business Central - |%1| %2/%3', Locked = true, Comment = '%1 = App Publisher; %2 = App Name; %3 = App Version'; #region Initialization @@ -28,7 +28,7 @@ codeunit 2351 "Rest Client Impl." Initialize(DefaultHttpClientHandler, HttpAuthenticationAnonymous); end; - #pragma warning disable AA0244 +#pragma warning disable AA0244 procedure Initialize(HttpClientHandler: Interface "Http Client Handler") begin Initialize(HttpClientHandler, HttpAuthenticationAnonymous); @@ -38,7 +38,7 @@ codeunit 2351 "Rest Client Impl." begin Initialize(DefaultHttpClientHandler, HttpAuthentication); end; - #pragma warning restore AA0244 +#pragma warning restore AA0244 procedure Initialize(HttpClientHandlerInstance: Interface "Http Client Handler"; HttpAuthenticationInstance: Interface "Http Authentication") begin @@ -140,7 +140,7 @@ codeunit 2351 "Rest Client Impl." Response := HttpResponseMessage.GetContent().AsJson(); end; - procedure PatchAsJson(RequestUri: Text; Content: JSonToken) Response: JsonToken + procedure PatchAsJson(RequestUri: Text; Content: JsonToken) Response: JsonToken var HttpResponseMessage: Codeunit "Http Response Message"; HttpContent: Codeunit "Http Content"; @@ -153,7 +153,7 @@ codeunit 2351 "Rest Client Impl." Response := HttpResponseMessage.GetContent().AsJson(); end; - procedure PutAsJson(RequestUri: Text; Content: JSonToken) Response: JsonToken + procedure PutAsJson(RequestUri: Text; Content: JsonToken) Response: JsonToken var HttpResponseMessage: Codeunit "Http Response Message"; HttpContent: Codeunit "Http Content"; diff --git a/src/System Application/App/Retention Policy/permissions/RetentionPolicyObjects.PermissionSet.al b/src/System Application/App/Retention Policy/permissions/RetentionPolicyObjects.PermissionSet.al index 37d74025aa..395817d4dc 100644 --- a/src/System Application/App/Retention Policy/permissions/RetentionPolicyObjects.PermissionSet.al +++ b/src/System Application/App/Retention Policy/permissions/RetentionPolicyObjects.PermissionSet.al @@ -10,17 +10,17 @@ permissionset 3906 "Retention Policy - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Apply Retention Policy" = X, - Codeunit "Reten. Pol. Allowed Tables" = X, - Codeunit "Retention Policy Log" = X, - Codeunit "Retention Policy Setup" = X, - Page "Reten. Policy Setup ListPart" = X, - Page "Retention Periods" = X, - Page "Retention Policy Log Entries" = X, - Page "Retention Policy Setup Card" = X, - Page "Retention Policy Setup Lines" = X, - Page "Retention Policy Setup List" = X, - Table "Retention Period" = X, - Table "Retention Policy Setup Line" = X, - Table "Retention Policy Setup" = X; + Permissions = table "Retention Period" = X, + table "Retention Policy Setup" = X, + table "Retention Policy Setup Line" = X, +codeunit "Apply Retention Policy" = X, + codeunit "Reten. Pol. Allowed Tables" = X, + codeunit "Retention Policy Log" = X, + codeunit "Retention Policy Setup" = X, + page "Reten. Policy Setup ListPart" = X, + page "Retention Periods" = X, + page "Retention Policy Log Entries" = X, + page "Retention Policy Setup Card" = X, + page "Retention Policy Setup Lines" = X, + page "Retention Policy Setup List" = X; } diff --git a/src/System Application/App/Retention Policy/permissions/RetentionPolicyRead.PermissionSet.al b/src/System Application/App/Retention Policy/permissions/RetentionPolicyRead.PermissionSet.al index d9cbe6cfff..66dc8df37a 100644 --- a/src/System Application/App/Retention Policy/permissions/RetentionPolicyRead.PermissionSet.al +++ b/src/System Application/App/Retention Policy/permissions/RetentionPolicyRead.PermissionSet.al @@ -23,12 +23,12 @@ permissionset 3900 "Retention Policy - Read" Permissions = tabledata AllObj = r, tabledata AllObjWithCaption = r, + tabledata Company = r, + tabledata Field = r, tabledata "Published Application" = r, tabledata "Retention Period" = R, tabledata "Retention Policy Allowed Table" = r, tabledata "Retention Policy Log Entry" = r, tabledata "Retention Policy Setup" = R, - tabledata "Retention Policy Setup Line" = R, - tabledata Company = r, - tabledata Field = r; + tabledata "Retention Policy Setup Line" = R; } diff --git a/src/System Application/App/Retention Policy/src/Apply Retention Policy/ApplyRetentionPolicyImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Apply Retention Policy/ApplyRetentionPolicyImpl.Codeunit.al index dbd157e7ea..b661caf4a9 100644 --- a/src/System Application/App/Retention Policy/src/Apply Retention Policy/ApplyRetentionPolicyImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Apply Retention Policy/ApplyRetentionPolicyImpl.Codeunit.al @@ -41,7 +41,7 @@ codeunit 3904 "Apply Retention Policy Impl." ConfirmApplyRetentionPolicyLbl: Label 'Do you want to delete expired data, as defined in the selected retention policy?'; RetentionPolicySetupRecordNotTempErr: Label 'The retention policy setup record instance must be temporary. Contact your Microsoft Partner for assistance.'; UserDidNotConfirmErr: Label 'The operation was cancelled.'; - NoFiltersReturnedErr: Label 'No filters were found in the record to apply for table %1, %2. No records will be deleted.', comment = '%1 = table number, %2 = table caption'; + NoFiltersReturnedErr: Label 'No filters were found in the record to apply for table %1, %2. No records will be deleted.', Comment = '%1 = table number, %2 = table caption'; IndirectPermissionsRequiredErr: Label 'A subscriber with indirect permissions is required to delete expired records from table %1, %2. Contact your Microsoft Partner for assistance.', Comment = '%1 = table number, %2 = table caption'; EndCurrentRunLbl: Label 'Deleted the maximum number of records allowed. We have stopped deleting records in this table.'; ConfirmRerunMsg: Label 'Reached the maximum number of records that can be deleted at the same time. The maximum number allowed is %1.\\Do you want to delete more records?', Comment = '%1 = integer'; @@ -65,7 +65,7 @@ codeunit 3904 "Apply Retention Policy Impl." else begin // run one if not Rec.IsTemporary() then - error(RetentionPolicySetupRecordNotTempErr); + Error(RetentionPolicySetupRecordNotTempErr); RetentionPolicySetup.GetBySystemId(Rec.SystemId); // let the error bubble up TotalNumberOfRecordsDeleted := Rec."Number Of Records Deleted"; ApplyRetentionPolicy(RetentionPolicySetup, false, false); @@ -121,7 +121,7 @@ codeunit 3904 "Apply Retention Policy Impl." IsUserInvokedRun := UserInvokedRun; if not IsSystemEnabledPolicy(RetentionPolicySetup) then - FeatureTelemetry.LogUptake('0000FVU', 'Retention policies', Enum::"Feature Uptake Status"::"Used"); + FeatureTelemetry.LogUptake('0000FVU', 'Retention policies', Enum::"Feature Uptake Status"::Used); if not CanApplyRetentionPolicy(RetentionPolicySetup, Manual) then exit; @@ -299,7 +299,7 @@ codeunit 3904 "Apply Retention Policy Impl." begin RetentionPolicySetup.Validate(Enabled, false); RetentionPolicySetup.Modify(true); - RetentionPolicyLog.LogInfo(LogCategory(), StrsUbstNo(DisabledRetentionPolicyOnMissingTableLbl, RetentionPolicySetup."Table Id")); + RetentionPolicyLog.LogInfo(LogCategory(), StrSubstNo(DisabledRetentionPolicyOnMissingTableLbl, RetentionPolicySetup."Table Id")); end; local procedure ConfirmApplyRetentionPolicies(): Boolean @@ -374,9 +374,9 @@ codeunit 3904 "Apply Retention Policy Impl." RecordRef.FilterGroup := FilterGroup; if (ExpirationDate >= NullDateReplacementValue) and (DateFieldNo in [RecordRef.SystemCreatedAtNo, RecordRef.SystemModifiedAtNo]) then - FilterView := STRSUBSTNO(WhereOlderFilterExclWithNullTxt, DateFieldNo, '''''', CalcDate('<-1D>', ExpirationDate)) + FilterView := StrSubstNo(WhereOlderFilterExclWithNullTxt, DateFieldNo, '''''', CalcDate('<-1D>', ExpirationDate)) else - FilterView := STRSUBSTNO(WhereOlderFilterExclTxt, DateFieldNo, '''''', CalcDate('<-1D>', ExpirationDate)); + FilterView := StrSubstNo(WhereOlderFilterExclTxt, DateFieldNo, '''''', CalcDate('<-1D>', ExpirationDate)); RecordRef.SetView(FilterView); end; @@ -392,9 +392,9 @@ codeunit 3904 "Apply Retention Policy Impl." RecordRef.FilterGroup := FilterGroup; if (ExpirationDate <= NullDateReplacementValue) and (DateFieldNo in [RecordRef.SystemCreatedAtNo, RecordRef.SystemModifiedAtNo]) then - FilterView := STRSUBSTNO(WhereNewerFilterExclWithNullTxt, DateFieldNo, '''''', ExpirationDate) + FilterView := StrSubstNo(WhereNewerFilterExclWithNullTxt, DateFieldNo, '''''', ExpirationDate) else - FilterView := STRSUBSTNO(WhereNewerFilterExclTxt, DateFieldNo, '''''', ExpirationDate); + FilterView := StrSubstNo(WhereNewerFilterExclTxt, DateFieldNo, '''''', ExpirationDate); RecordRef.SetView(FilterView); end; @@ -439,7 +439,7 @@ codeunit 3904 "Apply Retention Policy Impl." local procedure AppendStartedByUserMessage(Message: Text[2048]; UserInvokedRun: Boolean): Text[2048]; begin if UserInvokedRun then - exit(CopyStr(message + ' ' + StartedByUserLbl, 1, 2048)); + exit(CopyStr(Message + ' ' + StartedByUserLbl, 1, 2048)); exit(Message) end; diff --git a/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolDeleteImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolDeleteImpl.Codeunit.al index d047c07b5b..7dda60a1e3 100644 --- a/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolDeleteImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolDeleteImpl.Codeunit.al @@ -23,7 +23,7 @@ codeunit 3916 "Reten. Pol. Delete. Impl." implements "Reten. Pol. Deleting" RecordReference: Codeunit "Record Reference"; RecordReferenceIndirectPermission: Interface "Record Reference"; begin - if RetenPolDeletingParam."Max. Number of Rec. To Delete" < 0 then begin + if RetenPolDeletingParam."Max. Number of Rec. to Delete" < 0 then begin RetentionPolicyLog.LogWarning(LogCategory(), MaxNumberofRecToDeleteNegLbl); exit; end; diff --git a/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolDeletingParam.Table.al b/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolDeletingParam.Table.al index 547b268bb3..c80302101b 100644 --- a/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolDeletingParam.Table.al +++ b/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolDeletingParam.Table.al @@ -8,7 +8,7 @@ namespace System.DataAdministration; /// /// The table is used as a parameter table for the DeleteRecords method on the Reten. Pol Deleting interface. /// -/// if "Indirect Permission Required" is true and the implementation does not have the required indirect permissions, +/// if "Indirect Permission Required" is true and the implementation does not have the required indirect permissions, /// then "Skip Event Indirect Perm. Req." should be set to false. This will allow a subscriber to handle the deletion. /// /// if there are more records to be deleted than as indicated by "Max. Number of Rec. to Delete", diff --git a/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolFilteringImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolFilteringImpl.Codeunit.al index 8bfa22b091..9900b45f37 100644 --- a/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolFilteringImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Apply Retention Policy/RetenPolFilteringImpl.Codeunit.al @@ -47,19 +47,19 @@ codeunit 3915 "Reten. Pol. Filtering Impl." implements "Reten. Pol. Filtering" ExpirationDate: Date; begin if not RetentionPeriod.Get(RetentionPolicySetup."Retention Period") then begin - RetentionPolicyLog.LogWarning(LogCategory(), StrSubstno(RetentionPolicySetupNotFoundLbl, RetentionPolicySetup."Table Id")); + RetentionPolicyLog.LogWarning(LogCategory(), StrSubstNo(RetentionPolicySetupNotFoundLbl, RetentionPolicySetup."Table Id")); exit(false); end; ExpirationDate := CalculateExpirationDate(RetentionPeriod); if ExpirationDate >= Yesterday() then begin - RetentionPolicyLog.LogWarning(LogCategory(), StrSubstno(FutureExpirationDateWarningLbl, Format(ExpirationDate, 0, 9), RetentionPolicySetup."Table Id", RetentionPolicySetup."Table Caption")); + RetentionPolicyLog.LogWarning(LogCategory(), StrSubstNo(FutureExpirationDateWarningLbl, Format(ExpirationDate, 0, 9), RetentionPolicySetup."Table Id", RetentionPolicySetup."Table Caption")); exit(false); end; - ValidateExpirationDate(ExpirationDate, RetentionPolicySetup."Table ID", RetentionPolicySetup."Table Caption"); + ValidateExpirationDate(ExpirationDate, RetentionPolicySetup."Table Id", RetentionPolicySetup."Table Caption"); RetentionPolicyLog.LogInfo(LogCategory(), StrSubstNo(AllRecordsFilterInfoLbl, RetentionPolicySetup."Table Id", Format(ExpirationDate, 0, 9))); - RecordRef.Open(RetentionPolicySetup."Table ID"); + RecordRef.Open(RetentionPolicySetup."Table Id"); RecordReference.Initialize(RecordRef, RecordReferenceIndirectPermission); ApplyRetentionPolicy.SetWhereOlderExpirationDateFilter(RetentionPolicySetup."Date Field No.", ExpirationDate, RecordRef, 11, RetenPolFilteringParam."Null Date Replacement value"); if not RecordReferenceIndirectPermission.IsEmpty(RecordRef) then @@ -80,7 +80,7 @@ codeunit 3915 "Reten. Pol. Filtering Impl." implements "Reten. Pol. Filtering" SelectedSystemIds: Dictionary of [Guid, Boolean]; // using a dictionary here, as there is no native hash set type RetentionPolicySetupLineTableFilters: Dictionary of [Guid, Text]; begin - RecordRef.Open(RetentionPolicySetup."Table ID"); + RecordRef.Open(RetentionPolicySetup."Table Id"); RecordReference.Initialize(RecordRef, RecordReferenceIndirectPermission); RetentionPolicySetupLine.SetRange("Table ID", RetentionPolicySetup."Table Id"); @@ -163,7 +163,7 @@ codeunit 3915 "Reten. Pol. Filtering Impl." implements "Reten. Pol. Filtering" begin RecordRef.Open(RetentionPolicySetup."Table Id"); RetentionPolicySetupLine.SetCurrentKey("Date Field No."); - RetentionPolicySetupLine.SetRange("Table ID", RetentionPolicySetup."Table ID"); + RetentionPolicySetupLine.SetRange("Table ID", RetentionPolicySetup."Table Id"); RetentionPolicySetupLine.SetRange(Enabled, true); OldestDate := Today(); if RetentionPolicySetupLine.FindSet(false) then @@ -231,7 +231,7 @@ codeunit 3915 "Reten. Pol. Filtering Impl." implements "Reten. Pol. Filtering" ApplyRetentionPolicy: Codeunit "Apply Retention Policy"; ExpirationDate: Date; begin - RetentionPolicySetupLine.SetRange("Table ID", RetentionPolicySetup."Table ID"); + RetentionPolicySetupLine.SetRange("Table ID", RetentionPolicySetup."Table Id"); RetentionPolicySetupLine.SetRange(Enabled, true); if RetentionPolicySetupLine.FindSet(false) then repeat @@ -251,7 +251,7 @@ codeunit 3915 "Reten. Pol. Filtering Impl." implements "Reten. Pol. Filtering" ApplyRetentionPolicy.SetSingleDateExpirationDateFilter(RetentionPolicySetupLine."Date Field No.", ExpirationDate, RecordRef, 11, RetenPolFilteringParam."Null Date Replacement value"); SetMarks(RecordRef, true, SelectedSystemIds); end else - if (ExpirationDate <= CurrDate) or (ExpirationDate >= yesterday()) then begin + if (ExpirationDate <= CurrDate) or (ExpirationDate >= Yesterday()) then begin // if ExpirationDate is >= today - 1, don't set filter and remove all records from temp if ExpirationDate < Yesterday() then // set filter for date in filtergroup 11 diff --git a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriod.Table.al b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriod.Table.al index dfa4dbfe76..6bf921fd17 100644 --- a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriod.Table.al +++ b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriod.Table.al @@ -8,7 +8,7 @@ namespace System.DataAdministration; /// /// The Retention Periods table is used to define retention periods. /// You define a retention period by selecting one of the default values in the Retention Period field, or by selecting the Custom value and providing a date formula. -/// The date formula must result in a date that is at least two days before the current date. +/// The date formula must result in a date that is at least two days before the current date. /// table 3900 "Retention Period" { diff --git a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodCustomImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodCustomImpl.Codeunit.al index 214b38ed7d..212ea80a90 100644 --- a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodCustomImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodCustomImpl.Codeunit.al @@ -14,7 +14,7 @@ codeunit 3901 "Retention Period Custom Impl." implements "Retention Period" var WrongInterfaceImplementationErr: Label 'This implementation of the interface does not support the enum value selected. Contact your Microsoft partner for assistance. The following information can help them address the issue: Value: %1, Interface: Interface Retention Period, Implementation: codeunit 3901 Retention Period Custom Impl.', Comment = '%1 = a value such as 1 Week, 1 Month, 3 Months, or Custom.'; - local procedure RetentionPeriodDateFormula(RetentionPeriod: enum "Retention Period Enum"): Text; + local procedure RetentionPeriodDateFormula(RetentionPeriod: Enum "Retention Period Enum"): Text; var RetentionPolicyLog: Codeunit "Retention Policy Log"; begin diff --git a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodEnum.Enum.al b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodEnum.Enum.al index 7c3dd5a8cd..3228cd5ecb 100644 --- a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodEnum.Enum.al +++ b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodEnum.Enum.al @@ -22,7 +22,7 @@ enum 3900 "Retention Period Enum" implements "Retention Period" /// /// The Custom value can be used to create user defined retention periods. /// - value(1; "Custom") + value(1; Custom) { Implementation = "Retention Period" = "Retention Period Custom Impl."; } diff --git a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodImpl.Codeunit.al index 3275b53ff3..783ac4550c 100644 --- a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriodImpl.Codeunit.al @@ -12,11 +12,11 @@ codeunit 3900 "Retention Period Impl." implements "Retention Period" InherentPermissions = X; var - FutureDateCalcErr: Label 'The date formula (%1) must result in a date that is at least two days before the current date. For example, to calculate a period for the past week, month, or year, use either -1W, -1M, or -1Y.', comment = '%1 = a date formula'; + FutureDateCalcErr: Label 'The date formula (%1) must result in a date that is at least two days before the current date. For example, to calculate a period for the past week, month, or year, use either -1W, -1M, or -1Y.', Comment = '%1 = a date formula'; MaxDateDateFormulaTxt: Label '<+CY+%1Y>', Locked = true; WrongInterfaceImplementationErr: Label 'This implementation of the interface does not support the enum value selected. Contact your Microsoft partner for assistance. The following information can help them address the issue: Value: %1, Interface: Interface Retention Period, Implementation: codeunit 3900 Retention Period Impl.', Comment = '%1 = a value such as 1 Week, 1 Month, 3 Months, or Custom.'; - local procedure RetentionPeriodDateFormula(RetentionPeriod: enum "Retention Period Enum"; Translated: Boolean): Text; + local procedure RetentionPeriodDateFormula(RetentionPeriod: Enum "Retention Period Enum"; Translated: Boolean): Text; var RetentionPolicyLog: Codeunit "Retention Policy Log"; PeriodDateFormula: DateFormula; diff --git a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriods.Page.al b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriods.Page.al index 7e0c564cf9..ea732897d7 100644 --- a/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriods.Page.al +++ b/src/System Application/App/Retention Policy/src/Retention Period/RetentionPeriods.Page.al @@ -45,7 +45,7 @@ page 3900 "Retention Periods" field("Ret. Period Calculation"; Rec."Ret. Period Calculation") { ApplicationArea = All; - Tooltip = 'Specifies the date formula used to calculate the expiration date for the retention period.'; + ToolTip = 'Specifies the date formula used to calculate the expiration date for the retention period.'; Editable = Rec."Retention Period" = Rec."Retention Period"::Custom; ShowMandatory = Rec."Retention Period" = Rec."Retention Period"::Custom; @@ -59,7 +59,7 @@ page 3900 "Retention Periods" { ApplicationArea = All; Caption = 'Expiration Date'; - Tooltip = 'Specifies the expiration date. Records created on or before this date will be deleted.'; + ToolTip = 'Specifies the expiration date. Records created on or before this date will be deleted.'; Editable = false; } } diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTables.Codeunit.al b/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTables.Codeunit.al index 72cb038347..cacdcd4f2f 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTables.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTables.Codeunit.al @@ -8,7 +8,7 @@ namespace System.DataAdministration; using System.Reflection; /// -/// This codeunit is used to manage the list of allowed tables for which retention policies can be set up. +/// This codeunit is used to manage the list of allowed tables for which retention policies can be set up. /// Extensions can only approve the tables they create. Extensions cannot approve tables from other extensions. /// codeunit 3905 "Reten. Pol. Allowed Tables" @@ -122,7 +122,7 @@ codeunit 3905 "Reten. Pol. Allowed Tables" /// /// This helper method is used to build an array of table filters which will be inserted automatically when creating a retention policy for the allowed table. - /// You must first build up the array by calling this helper function and adding all relevant table filter information before passing the JsonArray to the AddAllowedTable method. + /// You must first build up the array by calling this helper function and adding all relevant table filter information before passing the JsonArray to the AddAllowedTable method. /// /// The JsonArray to which the table filter information will be added. /// Identifies the retention period for the retention policy table filter. @@ -139,7 +139,7 @@ codeunit 3905 "Reten. Pol. Allowed Tables" /// /// This helper method is used to build an array of table filters which will be inserted automatically when creating a retention policy for the allowed table. - /// You must first build up the array by calling this helper function and adding all relevant table filter information before passing the JsonArray to the AddAllowedTable method. + /// You must first build up the array by calling this helper function and adding all relevant table filter information before passing the JsonArray to the AddAllowedTable method. /// /// The JsonArray to which the table filter information will be added. /// Identifies the retention period dateformula for the retention policy table filter. @@ -205,7 +205,7 @@ codeunit 3905 "Reten. Pol. Allowed Tables" /// /// The table ID of the allowed table. /// The retention policy filtering enum value. - procedure GetRetenPolFiltering(TableId: Integer): enum "Reten. Pol. Filtering" + procedure GetRetenPolFiltering(TableId: Integer): Enum "Reten. Pol. Filtering" var RetenPolAllowedTblImpl: Codeunit "Reten. Pol. Allowed Tbl. Impl."; begin @@ -217,7 +217,7 @@ codeunit 3905 "Reten. Pol. Allowed Tables" /// /// The table ID of the allowed table. /// The retention policy deleting enum value. - procedure GetRetenPolDeleting(TableId: Integer): enum "Reten. Pol. Deleting" + procedure GetRetenPolDeleting(TableId: Integer): Enum "Reten. Pol. Deleting" var RetenPolAllowedTblImpl: Codeunit "Reten. Pol. Allowed Tbl. Impl."; begin diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTblImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTblImpl.Codeunit.al index 02fef09029..0a7a367097 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTblImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetenPolAllowedTblImpl.Codeunit.al @@ -79,7 +79,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." if UpdateAllowedTables then begin BindSubscription(RetenPolAllowedTblImpl); TableAllowed := RetentionPolicyAllowedTable.Modify(true); - UnBindSubscription(RetenPolAllowedTblImpl); + UnbindSubscription(RetenPolAllowedTblImpl); if TableAllowed then RetentionPolicyLog.LogInfo(LogCategory(), StrSubstNo(AllowedTablesModifiedLbl, RetentionPolicyAllowedTable."Table Id", AllObj."Object Name", RetentionPolicyAllowedTable."Default Date Field No.")) @@ -91,7 +91,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." BindSubscription(RetenPolAllowedTblImpl); TableAllowed := RetentionPolicyAllowedTable.Insert(); - UnBindSubscription(RetenPolAllowedTblImpl); + UnbindSubscription(RetenPolAllowedTblImpl); if TableAllowed then RetentionPolicyLog.LogInfo(LogCategory(), StrSubstNo(AddTableToAllowedTablesLbl, RetentionPolicyAllowedTable."Table Id", AllObj."Object Name", RetentionPolicyAllowedTable."Default Date Field No.")) @@ -160,7 +160,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." RetentionPolicyAllowedTable: Record "Retention Policy Allowed Table"; AllObjWithCaption: Record AllObjWithCaption; begin - if RetentionPolicyAllowedTable.findset(false) then + if RetentionPolicyAllowedTable.FindSet(false) then repeat if AllObjWithCaption.Get(AllObjWithCaption."Object Type"::Table, RetentionPolicyAllowedTable."Table Id") then AllowedList.Add(RetentionPolicyAllowedTable."Table Id"); @@ -271,7 +271,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." JsonObject.Add('Locked', Locked); JsonObject.Add('Table Filter', RecordRef.GetView(false)); - TableFilters.add(JsonObject.AsToken()) + TableFilters.Add(JsonObject.AsToken()) end; procedure GetTableFilters(TableId: Integer) TableFilters: JsonArray @@ -290,7 +290,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." exit(TableFilters); 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) + 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) begin TableId := GetTableId(JsonObject); RetentionPeriodEnum := GetRetentionPeriodEnum(JsonObject); @@ -306,7 +306,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." JsonToken: JsonToken; begin JsonObject.Get('Table Id', JsonToken); - exit(jsonToken.AsValue().AsInteger()) + exit(JsonToken.AsValue().AsInteger()) end; local procedure GetRetentionPeriodEnum(JsonObject: JsonObject) RetentionPeriodEnum: Enum "Retention Period Enum" @@ -314,7 +314,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." JsonToken: JsonToken; begin JsonObject.Get('Retention Period', JsonToken); - Evaluate(RetentionPeriodEnum, jsonToken.AsValue().AsText(), 9); + Evaluate(RetentionPeriodEnum, JsonToken.AsValue().AsText(), 9); end; local procedure GetRetPeriodCalc(JsonObject: JsonObject): Text @@ -330,7 +330,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." JsonToken: JsonToken; begin JsonObject.Get('Date Field No.', JsonToken); - exit(jsonToken.AsValue().AsInteger()) + exit(JsonToken.AsValue().AsInteger()) end; local procedure GetEnabled(JsonObject: JsonObject): Boolean @@ -338,7 +338,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." JsonToken: JsonToken; begin JsonObject.Get('Enabled', JsonToken); - exit(jsonToken.AsValue().AsBoolean()) + exit(JsonToken.AsValue().AsBoolean()) end; local procedure GetLocked(JsonObject: JsonObject): Boolean @@ -346,7 +346,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." JsonToken: JsonToken; begin JsonObject.Get('Locked', JsonToken); - exit(jsonToken.AsValue().AsBoolean()) + exit(JsonToken.AsValue().AsBoolean()) end; local procedure GetTableFilter(JsonObject: JsonObject): Text @@ -354,7 +354,7 @@ codeunit 3906 "Reten. Pol. Allowed Tbl. Impl." JsonToken: JsonToken; begin JsonObject.Get('Table Filter', JsonToken); - exit(jsonToken.AsValue().AsText()) + exit(JsonToken.AsValue().AsText()) end; local procedure LogCategory(): Enum "Retention Policy Log Category" diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetentionPolicyAllowedTable.Table.al b/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetentionPolicyAllowedTable.Table.al index 36a6332f9b..124b215c0d 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetentionPolicyAllowedTable.Table.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Allowed Tables/RetentionPolicyAllowedTable.Table.al @@ -29,12 +29,12 @@ table 3903 "Retention Policy Allowed Table" MaxValue = 365000; // ~1000 years } #pragma warning disable AL0771 // The name has a trainling space. - field(20; "Reten. Pol. Filtering "; enum "Reten. Pol. Filtering") + field(20; "Reten. Pol. Filtering "; Enum "Reten. Pol. Filtering") #pragma warning restore AL0771 { DataClassification = SystemMetadata; } - field(30; "Reten. Pol. Deleting"; enum "Reten. Pol. Deleting") + field(30; "Reten. Pol. Deleting"; Enum "Reten. Pol. Deleting") { DataClassification = SystemMetadata; } diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Log/RetenPolRecordRefImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Retention Policy Log/RetenPolRecordRefImpl.Codeunit.al index 18178714a5..cffb3b2e92 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Log/RetenPolRecordRefImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Log/RetenPolRecordRefImpl.Codeunit.al @@ -55,7 +55,7 @@ codeunit 3920 "Reten. Pol. Record Ref. Impl." implements "Record Reference" local procedure VerifyCallerModuleId(CallerModuleId: Guid) begin if not (CallerModuleId = InitializedCallerModuleId) then - error(IncorrectCallerAppIdErr, InitializedCallerModuleId, CallerModuleId); + Error(IncorrectCallerAppIdErr, InitializedCallerModuleId, CallerModuleId); end; procedure ReadPermission(RecordRef: RecordRef): Boolean diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Log/RetenPolicyTelemetryImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Retention Policy Log/RetenPolicyTelemetryImpl.Codeunit.al index d15be3de00..b7dac57569 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Log/RetenPolicyTelemetryImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Log/RetenPolicyTelemetryImpl.Codeunit.al @@ -143,7 +143,7 @@ codeunit 3912 "Reten. Policy Telemetry Impl." RetentionPolicySetup.SetRange(Enabled, true); Count := RetentionPolicySetup.Count(); - if (Count = 1) and Rec.Enabled and (not xrec.Enabled) then begin + if (Count = 1) and Rec.Enabled and (not xRec.Enabled) then begin SendTelemetryOnFirstRetentionPolicyEnabled(Rec."Table Id", Rec."Table Name"); exit; end; @@ -176,7 +176,7 @@ codeunit 3912 "Reten. Policy Telemetry Impl." MessageType::Error: exit(Verbosity::Error); MessageType::Info: - exit(verbosity::Normal); + exit(Verbosity::Normal); MessageType::Warning: exit(Verbosity::Warning); else @@ -248,7 +248,7 @@ codeunit 3912 "Reten. Policy Telemetry Impl." FilterTxt := RetentionPolicySetupImpl.GetTableFilterText(Rec); if (Rec.Enabled <> xRec.Enabled) or (Rec."Retention Period" <> xRec."Retention Period") or (FilterTxt <> RetentionPolicySetupImpl.GetTableFilterText(xRec)) then Session.LogSecurityAudit(RetentionPolicySetupLbl, SecurityOperationResult::Success, - StrSubstNo(RetentionPolicySetupLineValuesLbl, Rec.Enabled, Rec."Table Id", Rec."Retention Period", FilterTxt), AuditCategory::PolicyManagement); + StrSubstNo(RetentionPolicySetupLineValuesLbl, Rec.Enabled, Rec."Table ID", Rec."Retention Period", FilterTxt), AuditCategory::PolicyManagement); end; [EventSubscriber(ObjectType::Table, Database::"Retention Policy Setup Line", OnAfterInsertEvent, '', false, false)] @@ -257,7 +257,7 @@ codeunit 3912 "Reten. Policy Telemetry Impl." if Rec.IsTemporary then exit; Session.LogSecurityAudit(RetentionPolicySetupLbl, SecurityOperationResult::Success, - StrSubstNo(RetentionPolicySetupLineValuesLbl, Rec.Enabled, Rec."Table Id", Rec."Retention Period", Rec."Table Filter Text"), + StrSubstNo(RetentionPolicySetupLineValuesLbl, Rec.Enabled, Rec."Table ID", Rec."Retention Period", Rec."Table Filter Text"), AuditCategory::PolicyManagement); end; @@ -267,7 +267,7 @@ codeunit 3912 "Reten. Policy Telemetry Impl." if Rec.IsTemporary then exit; Session.LogSecurityAudit(RetentionPolicySetupLbl, SecurityOperationResult::Success, - StrSubstNo(RetentionPolicySetupLineValuesLbl, EntryDeletedLbl, Rec."Table Id", Rec."Retention Period", Rec."Table Filter Text"), + StrSubstNo(RetentionPolicySetupLineValuesLbl, EntryDeletedLbl, Rec."Table ID", Rec."Retention Period", Rec."Table Filter Text"), AuditCategory::PolicyManagement); end; } \ No newline at end of file diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Log/RetentionPolicyLogImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Retention Policy Log/RetentionPolicyLogImpl.Codeunit.al index 79ce79e67a..77b1c7b642 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Log/RetentionPolicyLogImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Log/RetentionPolicyLogImpl.Codeunit.al @@ -23,7 +23,7 @@ codeunit 3909 "Retention Policy Log Impl." if not Rec.IsTemporary then exit; - CreateLogEntry(Rec."Message Type", Rec.Category, rec.Message, rec."Session Id"); + CreateLogEntry(Rec."Message Type", Rec.Category, Rec.Message, Rec."Session Id"); end; procedure LogError(Category: Enum "Retention Policy Log Category"; Message: Text[2048]; DisplayError: Boolean); diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Log/RetentionPolicyLogMessageType.Enum.al b/src/System Application/App/Retention Policy/src/Retention Policy Log/RetentionPolicyLogMessageType.Enum.al index 365fe5d6e4..06660ddc98 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Log/RetentionPolicyLogMessageType.Enum.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Log/RetentionPolicyLogMessageType.Enum.al @@ -6,7 +6,7 @@ namespace System.DataAdministration; /// -/// Specifies the type of log message. +/// Specifies the type of log message. /// #pragma warning disable AL0659 enum 3902 "Retention Policy Log Message Type" diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetenPolicySetupListPart.Page.al b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetenPolicySetupListPart.Page.al index 5e31e98b0d..6a5340ee67 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetenPolicySetupListPart.Page.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetenPolicySetupListPart.Page.al @@ -26,7 +26,7 @@ page 3905 "Reten. Policy Setup ListPart" repeater(GroupName) { - field("Table ID"; Rec."Table ID") + field("Table ID"; Rec."Table Id") { ApplicationArea = All; ToolTip = 'Specifies the ID of the table to which the retention policy applies.'; diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetup.Codeunit.al b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetup.Codeunit.al index 939b30018b..32dbfb4ec7 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetup.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetup.Codeunit.al @@ -23,7 +23,7 @@ codeunit 3902 "Retention Policy Setup" /// /// The record where the filter is stored. /// The filter in Text format. - procedure SetTableFilterView(var RetentionPolicySetupLine: record "Retention Policy Setup Line"): Text[2048] + procedure SetTableFilterView(var RetentionPolicySetupLine: Record "Retention Policy Setup Line"): Text[2048] var RetentionPolicySetupImpl: Codeunit "Retention Policy Setup Impl."; begin @@ -35,7 +35,7 @@ codeunit 3902 "Retention Policy Setup" /// /// The record where the filter is stored. /// The filter in View format. - procedure GetTableFilterView(RetentionPolicySetupLine: record "Retention Policy Setup Line"): Text + procedure GetTableFilterView(RetentionPolicySetupLine: Record "Retention Policy Setup Line"): Text var RetentionPolicySetupImpl: Codeunit "Retention Policy Setup Impl."; begin @@ -107,7 +107,7 @@ codeunit 3902 "Retention Policy Setup" /// /// Specifies the retention period enum value for which the retention period record should be found or created. /// The retention period code for the retention period record. - procedure FindOrCreateRetentionPeriod(RetentionPeriodEnum: enum "Retention Period Enum"): Code[20] + procedure FindOrCreateRetentionPeriod(RetentionPeriodEnum: Enum "Retention Period Enum"): Code[20] var RetentionPolicySetupImpl: Codeunit "Retention Policy Setup Impl."; begin @@ -120,7 +120,7 @@ codeunit 3902 "Retention Policy Setup" /// Specifies the retention period length enum value for which the retention period record should be found or created. /// Specifies the retention period length date formula for which the retention period record should be found or created. /// The retention period code for the retention period record. - procedure FindOrCreateRetentionPeriod(RetentionPeriodEnum: enum "Retention Period Enum"; RetPeriodCalc: DateFormula): Code[20] + procedure FindOrCreateRetentionPeriod(RetentionPeriodEnum: Enum "Retention Period Enum"; RetPeriodCalc: DateFormula): Code[20] var RetentionPolicySetupImpl: Codeunit "Retention Policy Setup Impl."; begin @@ -134,7 +134,7 @@ codeunit 3902 "Retention Policy Setup" var RetentionPolicySetupImpl: Codeunit "Retention Policy Setup Impl."; begin - RetentionPolicySetupImpl.AddRetentionPolicyOnRegisterManualSetup(Sender) + RetentionPolicySetupImpl.AddRetentionPolicyOnRegisterManualSetup(sender) end; [EventSubscriber(ObjectType::Table, Database::"Retention Period", OnBeforeDeleteEvent, '', true, true)] @@ -142,7 +142,7 @@ codeunit 3902 "Retention Policy Setup" var RetentionPolicySetupImpl: Codeunit "Retention Policy Setup Impl."; begin - RetentionPolicySetupImpl.VerifyRetentionPolicySetupOnBeforeDeleteRetentionPeriod(Rec); + RetentionPolicySetupImpl.VerifyRetentionPolicySetupOnbeforeDeleteRetentionPeriod(Rec); end; [EventSubscriber(ObjectType::Table, Database::"Retention Period", OnBeforeModifyEvent, '', true, true)] @@ -190,7 +190,7 @@ codeunit 3902 "Retention Policy Setup" if Rec.IsTemporary() then exit; - RetentionPolicyLog.LogError(RetentionPolicySetupImpl.LogCategory(), StrSubstNo(RetenPolSetupLineRenameErr, xRec."Table Id", Rec."Table Id")); + RetentionPolicyLog.LogError(RetentionPolicySetupImpl.LogCategory(), StrSubstNo(RetenPolSetupLineRenameErr, xRec."Table ID", Rec."Table ID")); end; [EventSubscriber(ObjectType::Table, Database::"Retention Policy Setup Line", OnBeforeModifyEvent, '', false, false)] diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetup.Table.al b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetup.Table.al index a74140ae43..ae10a2bd77 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetup.Table.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetup.Table.al @@ -88,7 +88,7 @@ table 3901 "Retention Policy Setup" else begin RetentionPolicySetupLine.SetRange(Enabled, true); if RetentionPolicySetupLine.IsEmpty() then - error(NoLinesEnabledErr) + Error(NoLinesEnabledErr) end; end; } @@ -159,7 +159,7 @@ table 3901 "Retention Policy Setup" keys { - key(PrimaryKey; "Table ID") + key(PrimaryKey; "Table Id") { Clustered = true; } diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupCard.Page.al b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupCard.Page.al index 1fc9b8a63d..8a0291363a 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupCard.Page.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupCard.Page.al @@ -24,7 +24,7 @@ page 3901 "Retention Policy Setup Card" { group(General) { - field(TableID; Rec."Table ID") + field(TableID; Rec."Table Id") { ApplicationArea = All; ToolTip = 'Specifies the ID of the table to which the retention policy applies.'; @@ -121,7 +121,7 @@ page 3901 "Retention Policy Setup Card" { ApplicationArea = All; Caption = 'Record Retention Policy', Comment = 'Record as in ''a record in a table''.'; - SubPageLink = "Table ID" = field("Table ID"); + SubPageLink = "Table ID" = field("Table Id"); Visible = not Rec."Apply to all records"; } } @@ -141,8 +141,8 @@ page 3901 "Retention Policy Setup Card" PromotedCategory = Category4; Image = CalendarMachine; - Tooltip = 'Set up retention periods.'; - RunObject = Page "Retention Periods"; + ToolTip = 'Set up retention periods.'; + RunObject = page "Retention Periods"; } action(RetentionPolicyLog) { @@ -153,8 +153,8 @@ page 3901 "Retention Policy Setup Card" PromotedCategory = Category4; Image = Log; - Tooltip = 'View activity related to retention policies.'; - RunObject = Page "Retention Policy Log Entries"; + ToolTip = 'View activity related to retention policies.'; + RunObject = page "Retention Policy Log Entries"; } } area(Processing) diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupImpl.Codeunit.al b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupImpl.Codeunit.al index e0bb655b10..77d259e7a2 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupImpl.Codeunit.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupImpl.Codeunit.al @@ -63,7 +63,7 @@ codeunit 3903 "Retention Policy Setup Impl." RetentionPolicySetupLine."Table Filter".CreateOutStream(OutStream, TextEncoding::UTF8); OutStream.Write(FilterView); end else - clear(RetentionPolicySetupLine."Table Filter"); + Clear(RetentionPolicySetupLine."Table Filter"); exit(FilterText); end; @@ -154,8 +154,8 @@ codeunit 3903 "Retention Policy Setup Impl." procedure TableExists(TableId: Integer): Boolean var - AllObj: record allObj; - RetentionPolicyLog: codeunit "Retention Policy Log"; + AllObj: Record allObj; + RetentionPolicyLog: Codeunit "Retention Policy Log"; begin if AllObj.Get(AllObj."Object Type"::Table, TableId) then exit(true); @@ -184,7 +184,7 @@ codeunit 3903 "Retention Policy Setup Impl." var RetentionPolicySetup: Record "Retention Policy Setup"; begin - RetentionPolicySetup.Setrange(Enabled, true); + RetentionPolicySetup.SetRange(Enabled, true); exit(not RetentionPolicySetup.IsEmpty()) end; @@ -201,7 +201,7 @@ codeunit 3903 "Retention Policy Setup Impl." RetentionPeriod: Record "Retention Period"; begin if RetentionPeriod.Get(RetentionPolicySetup."Retention Period") then - ValidateRetentionPeriod(RetentionPeriod, RetentionPolicySetup."Table ID"); + ValidateRetentionPeriod(RetentionPeriod, RetentionPolicySetup."Table Id"); end; procedure ValidateRetentionPeriod(RetentionPolicySetupLine: Record "Retention Policy Setup Line") @@ -226,7 +226,7 @@ codeunit 3903 "Retention Policy Setup Impl." exit; MinExpirationDate := RetenPolAllowedTables.CalcMinimumExpirationDate(TableId); if ExpirationDate > MinExpirationDate then - RetentionPolicyLog.LogError(LogCategory(), StrsubstNo(MinExpirationDateErr, RetenPolAllowedTables.GetMandatoryMinimumRetentionDays(TableId), MinExpirationDate)); + RetentionPolicyLog.LogError(LogCategory(), StrSubstNo(MinExpirationDateErr, RetenPolAllowedTables.GetMandatoryMinimumRetentionDays(TableId), MinExpirationDate)); end; procedure LogCategory(): Enum "Retention Policy Log Category" @@ -258,11 +258,11 @@ codeunit 3903 "Retention Policy Setup Impl." if GetCurrentModuleExecutionContext() <> ExecutionContext::Normal then exit; - RetentionPolicySetup.Setrange("Retention Period", RetentionPeriod.Code); + RetentionPolicySetup.SetRange("Retention Period", RetentionPeriod.Code); if not RetentionPolicySetup.IsEmpty() then RetentionPolicyLog.LogError(LogCategory(), StrSubstNo(RetentionPeriodUsedErr, RetentionPeriod.Code)); - RetentionPolicySetupLine.Setrange("Retention Period", RetentionPeriod.Code); + RetentionPolicySetupLine.SetRange("Retention Period", RetentionPeriod.Code); if not RetentionPolicySetupLine.IsEmpty() then RetentionPolicyLog.LogError(LogCategory(), StrSubstNo(RetentionPeriodUsedErr, RetentionPeriod.Code)); end; @@ -278,7 +278,7 @@ codeunit 3903 "Retention Policy Setup Impl." if GetCurrentModuleExecutionContext() <> ExecutionContext::Normal then exit; - RetentionPolicySetupLine.Setrange("Retention Period", RetentionPeriod.Code); + RetentionPolicySetupLine.SetRange("Retention Period", RetentionPeriod.Code); RetentionPolicySetupLine.SetRange(Locked, true); if not RetentionPolicySetupLine.IsEmpty() then RetentionPolicyLog.LogError(LogCategory(), StrSubstNo(RetentionPeriodLockedErr, RetentionPeriod.Code)); @@ -295,8 +295,8 @@ codeunit 3903 "Retention Policy Setup Impl." exit; RetentionPolicySetup.CalcFields("Table Caption"); - if not RetenPolAllowedTables.IsAllowedTable(RetentionPolicySetup."Table ID") then - RetentionPolicyLog.LogError(LogCategory(), StrSubstNo(TableNotAllowedErrorLbl, RetentionPolicySetup."Table ID", RetentionPolicySetup."Table Caption")); + if not RetenPolAllowedTables.IsAllowedTable(RetentionPolicySetup."Table Id") then + RetentionPolicyLog.LogError(LogCategory(), StrSubstNo(TableNotAllowedErrorLbl, RetentionPolicySetup."Table Id", RetentionPolicySetup."Table Caption")); TableFilters := RetenPolAllowedTblImpl.GetTableFilters(RetentionPolicySetup."Table Id"); if TableFilters.Count <> 0 then RetentionPolicySetup."Apply to all records" := false; @@ -314,7 +314,7 @@ codeunit 3903 "Retention Policy Setup Impl." OutStream: OutStream; i: Integer; TableId: Integer; - RetentionPeriodEnum: enum "Retention Period Enum"; + RetentionPeriodEnum: Enum "Retention Period Enum"; DateFieldNo: Integer; Enabled: Boolean; Locked: Boolean; @@ -327,8 +327,8 @@ codeunit 3903 "Retention Policy Setup Impl." if TableFilters.Count = 0 then exit; - RetentionPolicySetupLine.SetRange("Table Id", RetentionPolicySetup."Table Id"); - RetentionPolicySetupLine.validate("Table ID", RetentionPolicySetup."Table Id"); + RetentionPolicySetupLine.SetRange("Table ID", RetentionPolicySetup."Table Id"); + RetentionPolicySetupLine.Validate("Table ID", RetentionPolicySetup."Table Id"); if RetentionPolicySetupLine.FindLast() then; for i := 1 to TableFilters.Count() do begin RetentionPolicySetupLine.Init(); @@ -355,11 +355,11 @@ codeunit 3903 "Retention Policy Setup Impl." end; end; - procedure FindOrCreateRetentionPeriod(RetentionPeriodEnum: enum "Retention Period Enum"; RetPeriodCalc: DateFormula): Code[20] + procedure FindOrCreateRetentionPeriod(RetentionPeriodEnum: Enum "Retention Period Enum"; RetPeriodCalc: DateFormula): Code[20] var RetentionPeriod: Record "Retention Period"; begin - // find + // find RetentionPeriod.SetRange("Retention Period", RetentionPeriodEnum); if RetentionPeriodEnum = RetentionPeriodEnum::Custom then RetentionPeriod.SetRange("Ret. Period Calculation", RetPeriodCalc); @@ -368,15 +368,15 @@ codeunit 3903 "Retention Policy Setup Impl." // create RetentionPeriod.Code := CreateUniqueRetentionPeriodCode(RetentionPeriodEnum); - RetentionPeriod.Description := CopyStr(format(RetentionPeriodEnum), 1, MaxStrLen(RetentionPeriod.Description)); - RetentionPeriod.validate("Retention Period", RetentionPeriodEnum); + RetentionPeriod.Description := CopyStr(Format(RetentionPeriodEnum), 1, MaxStrLen(RetentionPeriod.Description)); + RetentionPeriod.Validate("Retention Period", RetentionPeriodEnum); if RetentionPeriod."Retention Period" = RetentionPeriod."Retention Period"::Custom then - RetentionPeriod.validate("Ret. Period Calculation", RetPeriodCalc); + RetentionPeriod.Validate("Ret. Period Calculation", RetPeriodCalc); RetentionPeriod.Insert(true); exit(RetentionPeriod.Code); end; - procedure FindOrCreateRetentionPeriod(RetentionPeriodEnum: enum "Retention Period Enum"): Code[20] + procedure FindOrCreateRetentionPeriod(RetentionPeriodEnum: Enum "Retention Period Enum"): Code[20] var RetPeriodCalc: DateFormula; begin @@ -384,14 +384,14 @@ codeunit 3903 "Retention Policy Setup Impl." exit(FindOrCreateRetentionPeriod(RetentionPeriodEnum, RetPeriodCalc)) end; - local procedure CreateUniqueRetentionPeriodCode(RetentionPeriodEnum: enum "Retention Period Enum") RetentionPeriodCode: Code[20] + local procedure CreateUniqueRetentionPeriodCode(RetentionPeriodEnum: Enum "Retention Period Enum") RetentionPeriodCode: Code[20] var RetentionPeriod: Record "Retention Period"; begin - RetentionPeriodCode := CopyStr(format(RetentionPeriodEnum), 1, MaxStrLen(RetentionPeriodCode)); + RetentionPeriodCode := CopyStr(Format(RetentionPeriodEnum), 1, MaxStrLen(RetentionPeriodCode)); if RetentionPeriod.Get(RetentionPeriodCode) then begin // ensure a unique code - RetentionPeriodCode := CopyStr(format(RetentionPeriodEnum), 1, MaxStrLen(RetentionPeriodCode) - 2) + '01'; + RetentionPeriodCode := CopyStr(Format(RetentionPeriodEnum), 1, MaxStrLen(RetentionPeriodCode) - 2) + '01'; while RetentionPeriod.Get(RetentionPeriodCode) do RetentionPeriodCode := IncStr(RetentionPeriodCode); end; @@ -403,7 +403,7 @@ codeunit 3903 "Retention Policy Setup Impl." RetentionPolicySetupImpl: Codeunit "Retention Policy Setup Impl."; begin if not RetentionPolicySetup.IsTemporary() then begin - RetentionPolicySetupLine.Setrange("Table ID", RetentionPolicySetup."Table ID"); + RetentionPolicySetupLine.SetRange("Table ID", RetentionPolicySetup."Table Id"); if not RetentionPolicySetupLine.IsEmpty() then begin BindSubscription(RetentionPolicySetupImpl); RetentionPolicySetupImpl.AddTableIdToDeleteAllowedList(RetentionPolicySetup."Table Id"); diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupLine.Table.al b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupLine.Table.al index d1ceb73dae..3f30f4c629 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupLine.Table.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupLine.Table.al @@ -70,7 +70,7 @@ table 3902 "Retention Policy Setup Line" var RetentionPolicy: Codeunit "Retention Policy Setup"; begin - Rec.Validate("Date Field No.", RetentionPolicy.DateFieldNoLookup(Rec."Table Id", Rec."Date Field No.")); + Rec.Validate("Date Field No.", RetentionPolicy.DateFieldNoLookup(Rec."Table ID", Rec."Date Field No.")); end; } field(8; "Date Field Name"; Text[30]) @@ -105,7 +105,7 @@ table 3902 "Retention Policy Setup Line" trigger OnValidate() begin if Locked then - validate(Enabled, true); + Validate(Enabled, true); end; } } diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupLines.Page.al b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupLines.Page.al index bebc0a551d..0e42f46e10 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupLines.Page.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupLines.Page.al @@ -94,9 +94,6 @@ page 3902 "Retention Policy Setup Lines" } } - actions - { - } trigger OnNewRecord(BelowxRec: Boolean) var diff --git a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupList.Page.al b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupList.Page.al index ca53f6163f..abbe723256 100644 --- a/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupList.Page.al +++ b/src/System Application/App/Retention Policy/src/Retention Policy Setup/RetentionPolicySetupList.Page.al @@ -30,7 +30,7 @@ page 3903 "Retention Policy Setup List" repeater(GroupName) { - field("Table ID"; Rec."Table ID") + field("Table ID"; Rec."Table Id") { ApplicationArea = All; ToolTip = 'Specifies the ID of the table to which the retention policy applies.'; @@ -63,10 +63,7 @@ page 3903 "Retention Policy Setup List" } } } - area(Factboxes) - { - } } actions @@ -82,8 +79,8 @@ page 3903 "Retention Policy Setup List" PromotedCategory = Category4; Image = CalendarMachine; - Tooltip = 'Set up retention periods.'; - RunObject = Page "Retention Periods"; + ToolTip = 'Set up retention periods.'; + RunObject = page "Retention Periods"; } action(RetentionPolicyLog) { @@ -94,8 +91,8 @@ page 3903 "Retention Policy Setup List" PromotedCategory = Category4; Image = Log; - Tooltip = 'View activity related to retention policies.'; - RunObject = Page "Retention Policy Log Entries"; + ToolTip = 'View activity related to retention policies.'; + RunObject = page "Retention Policy Log Entries"; } } area(Processing) diff --git a/src/System Application/App/Satisfaction Survey/permissions/SatisfactionSurveyRead.PermissionSet.al b/src/System Application/App/Satisfaction Survey/permissions/SatisfactionSurveyRead.PermissionSet.al index cc905c2d4e..5a8780f9e0 100644 --- a/src/System Application/App/Satisfaction Survey/permissions/SatisfactionSurveyRead.PermissionSet.al +++ b/src/System Application/App/Satisfaction Survey/permissions/SatisfactionSurveyRead.PermissionSet.al @@ -15,8 +15,8 @@ permissionset 1432 "Satisfaction Survey - Read" Assignable = false; Permissions = tabledata "Add-in" = r, - tabledata "User Personalization" = r, tabledata "Net Promoter Score" = r, tabledata "Net Promoter Score Setup" = r, + tabledata "User Personalization" = r, tabledata "User Property" = r; } diff --git a/src/System Application/App/Satisfaction Survey/src/NetPromoterScore.Table.al b/src/System Application/App/Satisfaction Survey/src/NetPromoterScore.Table.al index d8d33162a9..027a81f2ae 100644 --- a/src/System Application/App/Satisfaction Survey/src/NetPromoterScore.Table.al +++ b/src/System Application/App/Satisfaction Survey/src/NetPromoterScore.Table.al @@ -37,8 +37,5 @@ table 1433 "Net Promoter Score" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Satisfaction Survey/src/NetPromoterScoreSetup.Table.al b/src/System Application/App/Satisfaction Survey/src/NetPromoterScoreSetup.Table.al index e1ac7ec4f7..5f0e39842c 100644 --- a/src/System Application/App/Satisfaction Survey/src/NetPromoterScoreSetup.Table.al +++ b/src/System Application/App/Satisfaction Survey/src/NetPromoterScoreSetup.Table.al @@ -19,7 +19,7 @@ table 1432 "Net Promoter Score Setup" { DataClassification = SystemMetadata; } - field(2; "API URL"; BLOB) + field(2; "API URL"; Blob) { DataClassification = SystemMetadata; } @@ -48,8 +48,5 @@ table 1432 "Net Promoter Score Setup" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Satisfaction Survey/src/SatisfactionSurvey.Page.al b/src/System Application/App/Satisfaction Survey/src/SatisfactionSurvey.Page.al index 5f9b5e86a1..2bf43a4091 100644 --- a/src/System Application/App/Satisfaction Survey/src/SatisfactionSurvey.Page.al +++ b/src/System Application/App/Satisfaction Survey/src/SatisfactionSurvey.Page.al @@ -19,7 +19,7 @@ page 1433 "Satisfaction Survey" layout { - area(content) + area(Content) { usercontrol(SatisfactionSurvey; "Microsoft.Dynamics.Nav.Client.SatisfactionSurvey") { @@ -44,9 +44,6 @@ page 1433 "Satisfaction Survey" } } - actions - { - } var SatisfactionSurveyImpl: Codeunit "Satisfaction Survey Impl."; diff --git a/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyImpl.Codeunit.al b/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyImpl.Codeunit.al index c430434bfa..504d6a27d8 100644 --- a/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyImpl.Codeunit.al +++ b/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyImpl.Codeunit.al @@ -19,8 +19,8 @@ codeunit 1432 "Satisfaction Survey Impl." InherentPermissions = X; Permissions = tabledata "Net Promoter Score" = rimd, tabledata "Net Promoter Score Setup" = rimd, - tabledata "User Property" = r, - tabledata "User Personalization" = r; + tabledata "User Personalization" = r, + tabledata "User Property" = r; var FinancialsUriSegmentTxt: Label 'financials', Locked = true; @@ -88,7 +88,7 @@ codeunit 1432 "Satisfaction Survey Impl." Commit(); Session.LogMessage('00008MW', NPSPageTelemetryTxt, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', NpsCategoryTxt); - PAGE.RunModal(PAGE::"Satisfaction Survey"); + Page.RunModal(Page::"Satisfaction Survey"); Session.LogMessage('00006ZF', NPSPageTelemetryTxt, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', NpsCategoryTxt); exit(true); end; @@ -108,7 +108,7 @@ codeunit 1432 "Satisfaction Survey Impl." Commit(); Session.LogMessage('000098O', NPSPageTelemetryTxt, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', NpsCategoryTxt); - PAGE.RunModal(PAGE::"Satisfaction Survey"); + Page.RunModal(Page::"Satisfaction Survey"); Session.LogMessage('000098P', NPSPageTelemetryTxt, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', NpsCategoryTxt); exit(true); end; @@ -359,7 +359,7 @@ codeunit 1432 "Satisfaction Survey Impl." var ClientTypeManagement: Codeunit "Client Type Management"; begin - exit(ClientTypeManagement.GetCurrentClientType() in [CLIENTTYPE::Phone, CLIENTTYPE::Tablet]); + exit(ClientTypeManagement.GetCurrentClientType() in [ClientType::Phone, ClientType::Tablet]); end; local procedure HasWritePermission(): Boolean diff --git a/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyMgt.Codeunit.al b/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyMgt.Codeunit.al index e262858900..dfa37cc82c 100644 --- a/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyMgt.Codeunit.al +++ b/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyMgt.Codeunit.al @@ -19,7 +19,7 @@ codeunit 1433 "Satisfaction Survey Mgt." /// /// Tries to show the satisfaction survey dialog to the current user. - /// The survey is only shown if the user is chosen for the survey. + /// The survey is only shown if the user is chosen for the survey. /// The method sends the request to the server and checks the response to check if the user is chosen for the survey. /// /// True if the survey is shown, false otherwise. diff --git a/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyUpgrTag.Codeunit.al b/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyUpgrTag.Codeunit.al index 42b173855e..bb4b6a24b8 100644 --- a/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyUpgrTag.Codeunit.al +++ b/src/System Application/App/Satisfaction Survey/src/SatisfactionSurveyUpgrTag.Codeunit.al @@ -13,9 +13,6 @@ codeunit 1442 "Satisfaction Survey Upgr. Tag" InherentEntitlements = X; InherentPermissions = X; - trigger OnRun() - begin - end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade Tag", OnGetPerDatabaseUpgradeTags, '', false, false)] local procedure RegisterPerDatabaseTags(var PerDatabaseUpgradeTags: List of [Code[250]]) diff --git a/src/System Application/App/Secrets/src/AppKeyVaultSecretPrImpl.Codeunit.al b/src/System Application/App/Secrets/src/AppKeyVaultSecretPrImpl.Codeunit.al index 81fa184114..0164fdccab 100644 --- a/src/System Application/App/Secrets/src/AppKeyVaultSecretPrImpl.Codeunit.al +++ b/src/System Application/App/Secrets/src/AppKeyVaultSecretPrImpl.Codeunit.al @@ -13,7 +13,7 @@ codeunit 3801 "App Key Vault Secret Pr. Impl." var [NonDebuggable] - NavAzureKeyVaultAppSecretProvider: dotnet AzureKeyVaultAppSecretProvider; + NavAzureKeyVaultAppSecretProvider: DotNet AzureKeyVaultAppSecretProvider; IsInitialized: Boolean; CannotInitializeErr: Label 'Couldn''t initialize the App Key Vault Secret Provider.\\Common reasons include:\- The extension doesn''t specify a key vault in its app.json file.\- The extension wasn''t published with a PublisherAzureActiveDirectoryTenantId and the server requires it\- The server''s Azure Key Vault settings are incorrect\- The server lacks permission to the private key of Azure Key Vault client certificate\\Please check the Event Log or Application Insights for more details.'; NotInitializedErr: Label 'Cannot get secrets because the App Key Vault Secret Provider has not been initialized.'; diff --git a/src/System Application/App/Security Groups/permissions/SecurityGroupsAdmin.PermissionSet.al b/src/System Application/App/Security Groups/permissions/SecurityGroupsAdmin.PermissionSet.al index a765b0eafc..514d504872 100644 --- a/src/System Application/App/Security Groups/permissions/SecurityGroupsAdmin.PermissionSet.al +++ b/src/System Application/App/Security Groups/permissions/SecurityGroupsAdmin.PermissionSet.al @@ -12,7 +12,7 @@ permissionset 9022 "Security Groups - Admin" IncludedPermissionSets = "Security Groups - Read"; - Permissions = tabledata "Security Group" = imd, - tabledata "Access Control" = imd, + Permissions = tabledata "Access Control" = imd, +tabledata "Security Group" = imd, tabledata User = md; } diff --git a/src/System Application/App/Security Groups/permissions/SecurityGroupsObjects.PermissionSet.al b/src/System Application/App/Security Groups/permissions/SecurityGroupsObjects.PermissionSet.al index fe4d98dc6c..cf360b4e6e 100644 --- a/src/System Application/App/Security Groups/permissions/SecurityGroupsObjects.PermissionSet.al +++ b/src/System Application/App/Security Groups/permissions/SecurityGroupsObjects.PermissionSet.al @@ -10,15 +10,15 @@ permissionset 9031 "Security Groups - Objects" Access = Internal; Assignable = false; - Permissions = codeunit "Security Group" = X, - xmlport "Export/Import Security Groups" = X, + Permissions = table "Security Group" = X, +codeunit "Security Group" = X, page "Copy Security Group" = X, + page "New Security Group" = X, page "Sec. Group Permissions Part" = X, + page "Security Group Lookup" = X, page "Security Group Members" = X, page "Security Group Members Part" = X, page "Security Group Permission Sets" = X, page "Security Groups" = X, - page "New Security Group" = X, - page "Security Group Lookup" = X, - table "Security Group" = X; + xmlport "Export/Import Security Groups" = X; } diff --git a/src/System Application/App/Security Groups/src/ExportImportSecurityGroups.XmlPort.al b/src/System Application/App/Security Groups/src/ExportImportSecurityGroups.XmlPort.al index 43927c6d68..116a689bff 100644 --- a/src/System Application/App/Security Groups/src/ExportImportSecurityGroups.XmlPort.al +++ b/src/System Application/App/Security Groups/src/ExportImportSecurityGroups.XmlPort.al @@ -49,7 +49,7 @@ xmlport 9001 "Export/Import Security Groups" fieldelement(RoleId; "Access Control"."Role ID") { - FieldValidate = no; + FieldValidate = No; } fieldelement(Scope; "Access Control".Scope) { @@ -59,7 +59,7 @@ xmlport 9001 "Export/Import Security Groups" } fieldelement(CompanyName; "Access Control"."Company Name") { - FieldValidate = no; + FieldValidate = No; } trigger OnBeforeInsertRecord() diff --git a/src/System Application/App/Security Groups/src/SecGroupPermissionsPart.Page.al b/src/System Application/App/Security Groups/src/SecGroupPermissionsPart.Page.al index e5405aa507..37a4386ea9 100644 --- a/src/System Application/App/Security Groups/src/SecGroupPermissionsPart.Page.al +++ b/src/System Application/App/Security Groups/src/SecGroupPermissionsPart.Page.al @@ -17,7 +17,7 @@ page 9867 "Sec. Group Permissions Part" layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/App/Security Groups/src/SecurityGroup.Codeunit.al b/src/System Application/App/Security Groups/src/SecurityGroup.Codeunit.al index b4e6e982a8..350c756681 100644 --- a/src/System Application/App/Security Groups/src/SecurityGroup.Codeunit.al +++ b/src/System Application/App/Security Groups/src/SecurityGroup.Codeunit.al @@ -57,7 +57,7 @@ codeunit 9031 "Security Group" end; /// - /// Adds a permission set to a security group. + /// Adds a permission set to a security group. /// /// The code of the security group to add a permission set to. /// The ID of the role (permission set). diff --git a/src/System Application/App/Security Groups/src/SecurityGroup.Table.al b/src/System Application/App/Security Groups/src/SecurityGroup.Table.al index 5fa5255cc3..079af46354 100644 --- a/src/System Application/App/Security Groups/src/SecurityGroup.Table.al +++ b/src/System Application/App/Security Groups/src/SecurityGroup.Table.al @@ -12,7 +12,7 @@ table 9020 "Security Group" InherentPermissions = rX; Caption = 'Security Group'; DataPerCompany = false; - LookupPageID = "Security Groups"; + LookupPageId = "Security Groups"; ReplicateData = false; fields @@ -22,7 +22,7 @@ table 9020 "Security Group" DataClassification = SystemMetadata; NotBlank = true; } - // User security ID of a user record that represents a Microsoft Entra group or a Windows group + // User security ID of a user record that represents a Microsoft Entra group or a Windows group field(2; "Group User SID"; Guid) { TableRelation = User; diff --git a/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al b/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al index 857c9d8b4f..655aa05bdc 100644 --- a/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al +++ b/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al @@ -14,9 +14,9 @@ codeunit 9871 "Security Group Impl." Access = Internal; InherentEntitlements = X; InherentPermissions = X; - Permissions = tabledata User = rimd, - tabledata "User Property" = rimd, - tabledata "Security Group" = rimd; + Permissions = tabledata "Security Group" = rimd, +tabledata User = rimd, + tabledata "User Property" = rimd; var AzureAdGraph: Codeunit "Azure AD Graph"; @@ -171,7 +171,7 @@ codeunit 9871 "Security Group Impl." procedure Export(SecurityGroupCodes: List of [Code[20]]; Destination: OutStream) var SecurityGroup: Record "Security Group"; - ExportImportSecurityGroups: XMLport "Export/Import Security Groups"; + ExportImportSecurityGroups: XmlPort "Export/Import Security Groups"; SecurityGroupFilterTextBuilder: TextBuilder; GroupCode: Code[20]; begin @@ -188,7 +188,7 @@ codeunit 9871 "Security Group Impl." procedure Import(Source: InStream) var - ExportImportSecurityGroups: XMLport "Export/Import Security Groups"; + ExportImportSecurityGroups: XmlPort "Export/Import Security Groups"; begin ExportImportSecurityGroups.SetSource(Source); ExportImportSecurityGroups.Import(); @@ -388,10 +388,10 @@ codeunit 9871 "Security Group Impl." local procedure TryGetEntraGroupMembers(SecurityGroupCode: Code[20]; EntraGroupId: Text; var SecurityGroupMemberBuffer: Record "Security Group Member Buffer") var UserProperty: Record "User Property"; - UserIdsPage: Dotnet UserIdsPage; + UserIdsPage: DotNet UserIdsPage; UserEntraObjectId: Text; begin - AzureADGraph.GetMemberIdsPageForGroupId(EntraGroupId, 500, UserIdsPage); + AzureAdGraph.GetMemberIdsPageForGroupId(EntraGroupId, 500, UserIdsPage); if IsNull(UserIdsPage) then exit; @@ -463,7 +463,7 @@ codeunit 9871 "Security Group Impl." if AreAllEntraGroupsFetched then exit; - EntraGroups := AzureADGraph.GetGroups(); + EntraGroups := AzureAdGraph.GetGroups(); AreAllEntraGroupsFetched := true; end; diff --git a/src/System Application/App/Security Groups/src/SecurityGroupLookup.Page.al b/src/System Application/App/Security Groups/src/SecurityGroupLookup.Page.al index 4b1b80233c..bc26678578 100644 --- a/src/System Application/App/Security Groups/src/SecurityGroupLookup.Page.al +++ b/src/System Application/App/Security Groups/src/SecurityGroupLookup.Page.al @@ -14,7 +14,7 @@ page 9877 "Security Group Lookup" layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/App/Security Groups/src/SecurityGroupMembers.Page.al b/src/System Application/App/Security Groups/src/SecurityGroupMembers.Page.al index 1494dea114..139518c549 100644 --- a/src/System Application/App/Security Groups/src/SecurityGroupMembers.Page.al +++ b/src/System Application/App/Security Groups/src/SecurityGroupMembers.Page.al @@ -19,7 +19,7 @@ page 9869 "Security Group Members" layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/App/Security Groups/src/SecurityGroupMembersPart.Page.al b/src/System Application/App/Security Groups/src/SecurityGroupMembersPart.Page.al index 84b5ebb3b0..d25cd2cd22 100644 --- a/src/System Application/App/Security Groups/src/SecurityGroupMembersPart.Page.al +++ b/src/System Application/App/Security Groups/src/SecurityGroupMembersPart.Page.al @@ -17,7 +17,7 @@ page 9866 "Security Group Members Part" layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/App/Security Groups/src/SecurityGroupPermissionSets.Page.al b/src/System Application/App/Security Groups/src/SecurityGroupPermissionSets.Page.al index 984bfc1d7e..2281459067 100644 --- a/src/System Application/App/Security Groups/src/SecurityGroupPermissionSets.Page.al +++ b/src/System Application/App/Security Groups/src/SecurityGroupPermissionSets.Page.al @@ -16,7 +16,7 @@ page 9868 "Security Group Permission Sets" layout { - area(content) + area(Content) { repeater(Group) { @@ -68,7 +68,7 @@ page 9868 "Security Group Permission Sets" actions { - area(processing) + area(Processing) { action(SelectPermissionSets) { diff --git a/src/System Application/App/Security Groups/src/SecurityGroups.Page.al b/src/System Application/App/Security Groups/src/SecurityGroups.Page.al index aafb9f946b..8bb7c8d9fe 100644 --- a/src/System Application/App/Security Groups/src/SecurityGroups.Page.al +++ b/src/System Application/App/Security Groups/src/SecurityGroups.Page.al @@ -31,7 +31,7 @@ page 9871 "Security Groups" layout { - area(content) + area(Content) { repeater(Group) { @@ -50,7 +50,7 @@ page 9871 "Security Groups" } } } - area(factboxes) + area(FactBoxes) { part("Sec. Group Permissions Part"; "Sec. Group Permissions Part") { @@ -96,14 +96,14 @@ page 9871 "Security Groups" end; } } - area(navigation) + area(Navigation) { action(SecurityGroupMembersAad) { ApplicationArea = All; Caption = 'Members'; Image = Users; - RunObject = Page "Security Group Members"; + RunObject = page "Security Group Members"; RunPageLink = "Security Group Code" = field(Code); Scope = Repeater; Visible = not IsWindowsAuthentication; @@ -116,7 +116,7 @@ page 9871 "Security Groups" ApplicationArea = All; Caption = 'Members'; Image = Users; - RunObject = Page "Security Group Members"; + RunObject = page "Security Group Members"; RunPageLink = "Security Group Code" = field(Code); Scope = Repeater; Visible = IsWindowsAuthentication; @@ -147,7 +147,7 @@ page 9871 "Security Groups" end; } } - area(processing) + area(Processing) { action(CopySecurityGroup) { diff --git a/src/System Application/App/SharePoint Authorization/src/SharePointAuth.Codeunit.al b/src/System Application/App/SharePoint Authorization/src/SharePointAuth.Codeunit.al index 088db947bf..13d0278715 100644 --- a/src/System Application/App/SharePoint Authorization/src/SharePointAuth.Codeunit.al +++ b/src/System Application/App/SharePoint Authorization/src/SharePointAuth.Codeunit.al @@ -18,8 +18,8 @@ codeunit 9142 "SharePoint Auth." /// Creates an authorization mechanism with authentication code. /// /// Microsoft Entra tenant ID - /// The Application (client) ID that the Azure portal - App registrations experience assigned to your app. - /// The Application (client) secret configured in the "Azure Portal - Certificates & Secrets". + /// The Application (client) ID that the Azure portal - App registrations experience assigned to your app. + /// The Application (client) secret configured in the "Azure Portal - Certificates & Secrets". /// A scope that you want the user to consent to. /// Codeunit instance implementing authorization interface [NonDebuggable] @@ -35,8 +35,8 @@ codeunit 9142 "SharePoint Auth." /// Creates an authorization mechanism with authentication code. /// /// Microsoft Entra tenant ID - /// The Application (client) ID that the Azure portal - App registrations experience assigned to your app. - /// The Application (client) secret configured in the "Azure Portal - Certificates & Secrets". + /// The Application (client) ID that the Azure portal - App registrations experience assigned to your app. + /// The Application (client) secret configured in the "Azure Portal - Certificates & Secrets". /// A list of scopes that you want the user to consent to. /// Codeunit instance implementing authorization interface [NonDebuggable] diff --git a/src/System Application/App/SharePoint Authorization/src/SharePointAuthorization.Interface.al b/src/System Application/App/SharePoint Authorization/src/SharePointAuthorization.Interface.al index 08818018d7..25797ba9f4 100644 --- a/src/System Application/App/SharePoint Authorization/src/SharePointAuthorization.Interface.al +++ b/src/System Application/App/SharePoint Authorization/src/SharePointAuthorization.Interface.al @@ -13,6 +13,6 @@ interface "SharePoint Authorization" /// /// Authorizes an HTTP request by providing the needed authorization information to it. /// - /// The HTTP request to authorize. + /// The HTTP request to authorize. procedure Authorize(var HttpRequestMessage: HttpRequestMessage); } \ No newline at end of file diff --git a/src/System Application/App/SharePoint/permissions/SharePointApiObjects.PermissionSet.al b/src/System Application/App/SharePoint/permissions/SharePointApiObjects.PermissionSet.al index 6b736e2035..4bf88968c0 100644 --- a/src/System Application/App/SharePoint/permissions/SharePointApiObjects.PermissionSet.al +++ b/src/System Application/App/SharePoint/permissions/SharePointApiObjects.PermissionSet.al @@ -10,5 +10,5 @@ permissionset 9100 "SharePoint API - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "SharePoint Client" = X; + Permissions = codeunit "SharePoint Client" = X; } diff --git a/src/System Application/App/SharePoint/src/SharePointClient.Codeunit.al b/src/System Application/App/SharePoint/src/SharePointClient.Codeunit.al index 4c430a84f0..da4515960e 100644 --- a/src/System Application/App/SharePoint/src/SharePointClient.Codeunit.al +++ b/src/System Application/App/SharePoint/src/SharePointClient.Codeunit.al @@ -30,7 +30,7 @@ codeunit 9100 "SharePoint Client" /// /// Initializes SharePoint client. /// - /// SharePoint URL to use. + /// SharePoint URL to use. /// Namespace to use. /// The authorization to use. procedure Initialize(BaseUrl: Text; Namespace: Text; Authorization: Interface "SharePoint Authorization") @@ -62,7 +62,7 @@ codeunit 9100 "SharePoint Client" /// /// Gets all list items for the given list. /// - /// ProcessSharePointListItemMetadata + /// ProcessSharePointListItemMetadata /// The title of the list/ /// Collection of the result (temporary record). /// True if the operation was successful; otherwise - false. @@ -74,7 +74,7 @@ codeunit 9100 "SharePoint Client" /// /// Gets all list items for the given list. /// - /// ProcessSharePointListItemMetadata + /// ProcessSharePointListItemMetadata /// The GUID of the list/ /// Collection of the result (temporary record). /// True if the operation was successful; otherwise - false. @@ -149,7 +149,7 @@ codeunit 9100 "SharePoint Client" /// The title of the list. /// Unique id of the item within the list. /// Collection of the result (temporary record). Always one element. - /// + /// procedure CreateListItemAttachment(ListTitle: Text; ListItemId: Integer; var SharePointListItemAtch: Record "SharePoint List Item Atch"): Boolean begin exit(SharePointClientImpl.CreateListItemAttachment(ListTitle, ListItemId, SharePointListItemAtch)); @@ -173,7 +173,7 @@ codeunit 9100 "SharePoint Client" /// /// Does not require UI interaction. /// The title of the list. - /// Unique id of the item within the list. + /// Unique id of the item within the list. /// File name to use on SharePoint. /// File stream to upload. /// Collection of the result (temporary record). Always one element. @@ -188,7 +188,7 @@ codeunit 9100 "SharePoint Client" /// /// Does not require UI interaction. /// The GUID of the list. - /// Unique id of the item within the list. + /// Unique id of the item within the list. /// File name to use on SharePoint. /// File stream to upload. /// Collection of the result (temporary record). Always one element. @@ -213,7 +213,7 @@ codeunit 9100 "SharePoint Client" /// /// Creates a new list item in specific list. /// - /// ProcessSharePointListItemMetadata + /// ProcessSharePointListItemMetadata /// The title of the list. /// The Entity Type for the list. Parameter can be found on a list object (ListItemEntityType). /// The title of the new list item. @@ -227,7 +227,7 @@ codeunit 9100 "SharePoint Client" /// /// Creates a new list item in specific list. /// - /// ProcessSharePointListItemMetadata + /// ProcessSharePointListItemMetadata /// The GUID of the list. /// The Entity Type for the list. Parameter can be found on a list object (ListItemEntityType). /// The title of the new list item. @@ -367,7 +367,7 @@ codeunit 9100 "SharePoint Client" /// /// Gets root folder for the list entity (Document Library). - /// + /// /// See "Is Catalog" parameter of the list. /// The odata.id parameter of the list entity. /// Collection of the result (temporary record). Always one element. @@ -408,7 +408,7 @@ codeunit 9100 "SharePoint Client" begin exit(SharePointClientImpl.DeleteFolderByServerRelativeUrl(ServerRelativeUrl)); end; - + /// /// Adds a file to specific folder. /// @@ -473,7 +473,7 @@ codeunit 9100 "SharePoint Client" /// The title of the list. /// The Entity Type for the list. Parameter can be found on a list object (ListItemEntityType). /// The name of the metadata field. - /// Value. + /// Value. /// True if the operation was successful; otherwise - false. procedure UpdateListItemMetaDataField(ListTitle: Text; ItemId: Integer; ListItemEntityTypeFullName: Text; FieldName: Text; FieldValue: Text): Boolean begin @@ -492,10 +492,10 @@ codeunit 9100 "SharePoint Client" begin exit(SharePointClientImpl.UpdateListItemMetaDataField(ListId, ItemId, ListItemEntityTypeFullName, FieldName, FieldValue)); end; - + [IntegrationEvent(false, false)] /// - /// Process SharePointFile Metadata - Use to extract custom meta data into model record + /// Process SharePointFile Metadata - Use to extract custom meta data into model record /// /// Extend the "SharePoint File" table to store any custom data. /// __metadata node of SharePointFile Json Object @@ -506,7 +506,7 @@ codeunit 9100 "SharePoint Client" [IntegrationEvent(false, false)] /// - /// Process SharePointListItem Metadata - Use to extract custom mete data into model record + /// Process SharePointListItem Metadata - Use to extract custom mete data into model record /// /// Extend the "SharePoint List Item" table to store any custom data. /// __metadata node of SharePointListItem Json Object diff --git a/src/System Application/App/SharePoint/src/helpers/SharePointHttpContent.Codeunit.al b/src/System Application/App/SharePoint/src/helpers/SharePointHttpContent.Codeunit.al index 166909a923..8858d8588a 100644 --- a/src/System Application/App/SharePoint/src/helpers/SharePointHttpContent.Codeunit.al +++ b/src/System Application/App/SharePoint/src/helpers/SharePointHttpContent.Codeunit.al @@ -21,7 +21,7 @@ codeunit 9107 "SharePoint Http Content" XHttpMethod: Text; IfMatch: Text; - procedure FromFileInStream(var FileInStream: Instream) + procedure FromFileInStream(var FileInStream: InStream) begin HttpContent.WriteFrom(FileInStream); ContentLength := GetContentLength(FileInStream); diff --git a/src/System Application/App/SharePoint/src/model/file/SharePointFile.Codeunit.al b/src/System Application/App/SharePoint/src/model/file/SharePointFile.Codeunit.al index d2434e79de..3e6921aaed 100644 --- a/src/System Application/App/SharePoint/src/model/file/SharePointFile.Codeunit.al +++ b/src/System Application/App/SharePoint/src/model/file/SharePointFile.Codeunit.al @@ -79,7 +79,7 @@ codeunit 9106 "SharePoint File" SharePointFile.Exists := JToken.AsValue().AsBoolean(); if Payload.Get('Length', JToken) then - SharePointFile."Length" := JToken.AsValue().AsInteger(); + SharePointFile.Length := JToken.AsValue().AsInteger(); if Payload.Get('ServerRelativeUrl', JToken) then SharePointFile."Server Relative Url" := CopyStr(JToken.AsValue().AsText(), 1, MaxStrLen(SharePointFile."Server Relative Url")); diff --git a/src/System Application/App/SharePoint/src/model/folder/SharePointFolder.Table.al b/src/System Application/App/SharePoint/src/model/folder/SharePointFolder.Table.al index e836e9860f..55b400c3ba 100644 --- a/src/System Application/App/SharePoint/src/model/folder/SharePointFolder.Table.al +++ b/src/System Application/App/SharePoint/src/model/folder/SharePointFolder.Table.al @@ -40,7 +40,7 @@ table 9106 "SharePoint Folder" Caption = 'Item Count'; } - field(5; "Exists"; Boolean) + field(5; Exists; Boolean) { Caption = 'Exists'; } diff --git a/src/System Application/App/SharePoint/src/model/listitemattachment/SharePointListItemAtch.Table.al b/src/System Application/App/SharePoint/src/model/listitemattachment/SharePointListItemAtch.Table.al index 37f0ffb255..fea78f764d 100644 --- a/src/System Application/App/SharePoint/src/model/listitemattachment/SharePointListItemAtch.Table.al +++ b/src/System Application/App/SharePoint/src/model/listitemattachment/SharePointListItemAtch.Table.al @@ -59,7 +59,7 @@ table 9104 "SharePoint List Item Atch" keys { - key(PK; "OdataId") + key(PK; OdataId) { Clustered = true; } diff --git a/src/System Application/App/SmartList Designer Subscribers/src/QueryNavigationValidation.Table.al b/src/System Application/App/SmartList Designer Subscribers/src/QueryNavigationValidation.Table.al index f9dd46bf76..387e796bfc 100644 --- a/src/System Application/App/SmartList Designer Subscribers/src/QueryNavigationValidation.Table.al +++ b/src/System Application/App/SmartList Designer Subscribers/src/QueryNavigationValidation.Table.al @@ -21,7 +21,7 @@ table 2889 "Query Navigation Validation" fields { /// - /// Simple primary key of the temporary table. + /// Simple primary key of the temporary table. /// field(1; PK; Integer) { diff --git a/src/System Application/App/System Initialization/src/SystemInitializationImpl.Codeunit.al b/src/System Application/App/System Initialization/src/SystemInitializationImpl.Codeunit.al index 5c263282a1..1c41f252e6 100644 --- a/src/System Application/App/System Initialization/src/SystemInitializationImpl.Codeunit.al +++ b/src/System Application/App/System Initialization/src/SystemInitializationImpl.Codeunit.al @@ -31,14 +31,14 @@ codeunit 151 "System Initialization Impl." #pragma warning restore AL0432 local procedure Init() var - SystemInitialization: Codeunit "System Initialization"; + SystemInitialization: Codeunit "System Initialization"; UserLoginTimeTracker: Codeunit "User Login Time Tracker"; begin InitializationInProgress := true; // Initialization logic goes here // This needs to be the very first thing to run before company open - CODEUNIT.Run(CODEUNIT::"Azure AD User Management"); + Codeunit.Run(Codeunit::"Azure AD User Management"); if Session.CurrentClientType() in [ClientType::Web, ClientType::Windows, ClientType::Desktop, ClientType::Tablet, ClientType::Phone] then begin // Check to set signup context and commits if it updates @@ -56,7 +56,7 @@ codeunit 151 "System Initialization Impl." var SignupContext: Record "Signup Context"; // system table SignupContextValues: Record "Signup Context Values"; - Telemetry: Codeunit "Telemetry"; + Telemetry: Codeunit Telemetry; begin if IsSystemUser() then exit; @@ -86,7 +86,7 @@ codeunit 151 "System Initialization Impl." internal procedure SetSignupContext(SignupContext: Record "Signup Context"; var SignupContextValues: Record "Signup Context Values") var SystemInitialization: Codeunit "System Initialization"; - Telemetry: Codeunit "Telemetry"; + Telemetry: Codeunit Telemetry; CustomDimensions: Dictionary of [Text, Text]; begin case LowerCase(SignupContext.Value) of diff --git a/src/System Application/App/System Permissions/permissions/Super.PermissionSet.al b/src/System Application/App/System Permissions/permissions/Super.PermissionSet.al index ea984d9354..a73291efd8 100644 --- a/src/System Application/App/System Permissions/permissions/Super.PermissionSet.al +++ b/src/System Application/App/System Permissions/permissions/Super.PermissionSet.al @@ -5,13 +5,13 @@ namespace System.Security.AccessControl; -permissionset 31 "SUPER" +permissionset 31 SUPER { Access = Public; Assignable = true; Caption = 'This role has all permissions.'; IncludedPermissionSets = "Application Objects - Exec", - "Super (Data)", + "SUPER (DATA)", "System Objects - Exec"; } diff --git a/src/System Application/App/System Permissions/permissions/SystemObjectsExec.PermissionSet.al b/src/System Application/App/System Permissions/permissions/SystemObjectsExec.PermissionSet.al index ca22983c23..b6b442a049 100644 --- a/src/System Application/App/System Permissions/permissions/SystemObjectsExec.PermissionSet.al +++ b/src/System Application/App/System Permissions/permissions/SystemObjectsExec.PermissionSet.al @@ -10,5 +10,5 @@ permissionset 65 "System Objects - Exec" Access = Internal; Assignable = false; - Permissions = System * = X; + Permissions = system * = X; } \ No newline at end of file diff --git a/src/System Application/App/Table Information/permissions/TableInformationObjects.PermissionSet.al b/src/System Application/App/Table Information/permissions/TableInformationObjects.PermissionSet.al index 3e8f84fef6..1062413d2f 100644 --- a/src/System Application/App/Table Information/permissions/TableInformationObjects.PermissionSet.al +++ b/src/System Application/App/Table Information/permissions/TableInformationObjects.PermissionSet.al @@ -10,8 +10,8 @@ permissionset 8702 "Table Information - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Table Information Cache" = X, - Page "Company Size Cache Part" = X, - Page "Table Information Cache Part" = X, - Page "Table Information" = X; + Permissions = codeunit "Table Information Cache" = X, + page "Company Size Cache Part" = X, + page "Table Information Cache Part" = X, + page "Table Information" = X; } diff --git a/src/System Application/App/Table Information/src/CompanySizeCachePart.Page.al b/src/System Application/App/Table Information/src/CompanySizeCachePart.Page.al index 1d7bbd57fd..d3eee0be41 100644 --- a/src/System Application/App/Table Information/src/CompanySizeCachePart.Page.al +++ b/src/System Application/App/Table Information/src/CompanySizeCachePart.Page.al @@ -23,14 +23,14 @@ page 8702 "Company Size Cache Part" layout { - area(content) + area(Content) { repeater(general) { field(CompanyName; Rec."Company Name") { ApplicationArea = All; - Tooltip = 'Specifies the name of the company.'; + ToolTip = 'Specifies the name of the company.'; } field(SizeKB; Rec."Size (KB)") { diff --git a/src/System Application/App/Table Information/src/TableInformation.Page.al b/src/System Application/App/Table Information/src/TableInformation.Page.al index 06672fa4ae..74d4bef586 100644 --- a/src/System Application/App/Table Information/src/TableInformation.Page.al +++ b/src/System Application/App/Table Information/src/TableInformation.Page.al @@ -88,7 +88,7 @@ page 8700 "Table Information" ToolTip = 'Specifies how much space the table indexes (keys) occupy in the database (in kilobytes).'; } - field("Compression"; Rec."Compression") + field(Compression; Rec."Compression") { ApplicationArea = All; OptionCaption = 'None,Row,Page,,'; @@ -100,7 +100,7 @@ page 8700 "Table Information" trigger OnInit() var - UserPermissions: codeunit "User Permissions"; + UserPermissions: Codeunit "User Permissions"; begin Rec.FilterGroup(2); if UserPermissions.IsSuper(UserSecurityId()) then diff --git a/src/System Application/App/Table Information/src/TableInformationCache.Codeunit.al b/src/System Application/App/Table Information/src/TableInformationCache.Codeunit.al index 84f7c3eb95..1df5c0e3b8 100644 --- a/src/System Application/App/Table Information/src/TableInformationCache.Codeunit.al +++ b/src/System Application/App/Table Information/src/TableInformationCache.Codeunit.al @@ -7,7 +7,7 @@ namespace System.DataAdministration; /// /// Exposes functionality to manage the Table Information Cache table and the Company Size Cache table. -/// +/// codeunit 8701 "Table Information Cache" { Access = Public; diff --git a/src/System Application/App/Table Information/src/TableInformationCache.Table.al b/src/System Application/App/Table Information/src/TableInformationCache.Table.al index 1cf5ba13c6..02ba59b181 100644 --- a/src/System Application/App/Table Information/src/TableInformationCache.Table.al +++ b/src/System Application/App/Table Information/src/TableInformationCache.Table.al @@ -40,7 +40,7 @@ table 8700 "Table Information Cache" { Caption = 'Size (KB)'; } - field(7; "Compression"; Option) + field(7; Compression; Option) { Caption = 'Compression'; OptionMembers = None,Row,Page,Columnstore,"Columnstore Archive"; @@ -63,7 +63,7 @@ table 8700 "Table Information Cache" } field(8701; "Last Period No. of Records"; Integer) { - caption = 'Last Period No. of Records (30D)'; + Caption = 'Last Period No. of Records (30D)'; } } diff --git a/src/System Application/App/Table Information/src/TableInformationCachePart.Page.al b/src/System Application/App/Table Information/src/TableInformationCachePart.Page.al index 860a2996c4..602f954e03 100644 --- a/src/System Application/App/Table Information/src/TableInformationCachePart.Page.al +++ b/src/System Application/App/Table Information/src/TableInformationCachePart.Page.al @@ -90,7 +90,7 @@ page 8701 "Table Information Cache Part" Visible = false; } - field("Compression"; Rec."Compression") + field(Compression; Rec.Compression) { ApplicationArea = All; OptionCaption = 'None,Row,Page,,'; @@ -106,7 +106,7 @@ page 8701 "Table Information Cache Part" { ApplicationArea = All; ToolTip = 'Specifies the number of records in the table 30 days ago.'; - visible = false; + Visible = false; } field("Growth %"; Rec."Growth %") { diff --git a/src/System Application/App/Telemetry/src/Feature Telemetry/FeatureTelemetry.Codeunit.al b/src/System Application/App/Telemetry/src/Feature Telemetry/FeatureTelemetry.Codeunit.al index 09e225ca8e..386b395957 100644 --- a/src/System Application/App/Telemetry/src/Feature Telemetry/FeatureTelemetry.Codeunit.al +++ b/src/System Application/App/Telemetry/src/Feature Telemetry/FeatureTelemetry.Codeunit.al @@ -9,7 +9,7 @@ namespace System.Telemetry; /// Provides functionality for emitting telemetry in a universal format. Only system metadata is to be emitted through this codeunit. /// /// -/// Every publisher needs to have an implementation of the "Telemetry Logger" interface and a subscriber +/// Every publisher needs to have an implementation of the "Telemetry Logger" interface and a subscriber /// to "Telemetry Loggers".OnRegisterTelemetryLogger event in one of their apps in order for this codeunit /// to work as expected (see "System Telemetry Logger" codeunit). /// diff --git a/src/System Application/App/Telemetry/src/Feature Telemetry/FeatureUptakeStatus.Enum.al b/src/System Application/App/Telemetry/src/Feature Telemetry/FeatureUptakeStatus.Enum.al index ffce558734..7e9a397e7c 100644 --- a/src/System Application/App/Telemetry/src/Feature Telemetry/FeatureUptakeStatus.Enum.al +++ b/src/System Application/App/Telemetry/src/Feature Telemetry/FeatureUptakeStatus.Enum.al @@ -16,7 +16,7 @@ enum 8703 "Feature Uptake Status" /// /// The feature has not been discovered. /// - value(0; "Undiscovered") + value(0; Undiscovered) { Caption = 'Undiscovered', Locked = true; } @@ -24,7 +24,7 @@ enum 8703 "Feature Uptake Status" /// /// The feature has been discovered. /// - value(1; "Discovered") + value(1; Discovered) { Caption = 'Discovered', Locked = true; } @@ -40,7 +40,7 @@ enum 8703 "Feature Uptake Status" /// /// The feature has been used. /// - value(3; "Used") + value(3; Used) { Caption = 'Used', Locked = true; } diff --git a/src/System Application/App/Telemetry/src/Logging/Telemetry.Codeunit.al b/src/System Application/App/Telemetry/src/Logging/Telemetry.Codeunit.al index 72779d8bfd..69ca2aff76 100644 --- a/src/System Application/App/Telemetry/src/Logging/Telemetry.Codeunit.al +++ b/src/System Application/App/Telemetry/src/Logging/Telemetry.Codeunit.al @@ -9,7 +9,7 @@ namespace System.Telemetry; /// A wrapper on top of Session.LogMessage that allows for having additional common custom dimensions emitted with every message. /// /// -/// Every publisher needs to have an implementation of the "Telemetry Logger" interface and a subscriber +/// Every publisher needs to have an implementation of the "Telemetry Logger" interface and a subscriber /// to "Telemetry Loggers".OnRegisterTelemetryLogger event in one of their apps in order for this codeunit /// to work as expected (see "System Telemetry Logger" codeunit or example below). /// @@ -33,7 +33,7 @@ namespace System.Telemetry; /// end; /// } /// -codeunit 8711 "Telemetry" +codeunit 8711 Telemetry { Access = Public; InherentEntitlements = X; diff --git a/src/System Application/App/Time Zone Selection/src/TimeZoneSelection.Codeunit.al b/src/System Application/App/Time Zone Selection/src/TimeZoneSelection.Codeunit.al index 750bd9f7e8..2d130a9ced 100644 --- a/src/System Application/App/Time Zone Selection/src/TimeZoneSelection.Codeunit.al +++ b/src/System Application/App/Time Zone Selection/src/TimeZoneSelection.Codeunit.al @@ -6,7 +6,7 @@ namespace System.DateTime; /// -/// Provides basic functionality to lookup page for Time zones. +/// Provides basic functionality to lookup page for Time zones. /// codeunit 9198 "Time Zone Selection" { diff --git a/src/System Application/App/Time Zone Selection/src/TimeZonesLookup.Page.al b/src/System Application/App/Time Zone Selection/src/TimeZonesLookup.Page.al index a770191229..0609b63816 100644 --- a/src/System Application/App/Time Zone Selection/src/TimeZonesLookup.Page.al +++ b/src/System Application/App/Time Zone Selection/src/TimeZonesLookup.Page.al @@ -19,7 +19,7 @@ page 9216 "Time Zones Lookup" layout { - area(content) + area(Content) { repeater(Group) { @@ -37,8 +37,5 @@ page 9216 "Time Zones Lookup" } } - actions - { - } } diff --git a/src/System Application/App/Translation/permissions/TranslationObjects.PermissionSet.al b/src/System Application/App/Translation/permissions/TranslationObjects.PermissionSet.al index 02e600e195..995127bbef 100644 --- a/src/System Application/App/Translation/permissions/TranslationObjects.PermissionSet.al +++ b/src/System Application/App/Translation/permissions/TranslationObjects.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 3713 "Translation - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit Translation = X, - Page Translation = X; + Permissions = codeunit Translation = X, + page Translation = X; } diff --git a/src/System Application/App/Translation/src/Translation.Codeunit.al b/src/System Application/App/Translation/src/Translation.Codeunit.al index 8b51116c55..66f787ef16 100644 --- a/src/System Application/App/Translation/src/Translation.Codeunit.al +++ b/src/System Application/App/Translation/src/Translation.Codeunit.al @@ -127,7 +127,7 @@ codeunit 3711 Translation /// The record to which the translations are copied. /// If the RecVariant parameter is of type Record, and it is temporary. /// If the RecVariant parameter is of type Record, and the table number is 0. - /// If the FromRecVariant parameter is of type Record, the ToRecVariant parameter is of type Record and they are different. + /// If the FromRecVariant parameter is of type Record, the ToRecVariant parameter is of type Record and they are different. procedure Copy(FromRecVariant: Variant; ToRecVariant: Variant) begin TranslationImplementation.Copy(FromRecVariant, ToRecVariant, 0); @@ -141,7 +141,7 @@ codeunit 3711 Translation /// Id of the field for which the translation will be copied. /// If the RecVariant parameter is of type Record, and it is temporary. /// If the RecVariant parameter is of type Record, and the table number is 0. - /// If the FromRecVariant parameter is of type Record, the ToRecVariant parameter is of type Record and they are different. + /// If the FromRecVariant parameter is of type Record, the ToRecVariant parameter is of type Record and they are different. /// If RecVariant passed is not of type Record. /// If the FieldId is 0. procedure Copy(FromRecVariant: Variant; ToRecVariant: Variant; FieldId: Integer) diff --git a/src/System Application/App/Translation/src/Translation.Page.al b/src/System Application/App/Translation/src/Translation.Page.al index e4bef4ad5c..5072a5db55 100644 --- a/src/System Application/App/Translation/src/Translation.Page.al +++ b/src/System Application/App/Translation/src/Translation.Page.al @@ -18,7 +18,7 @@ page 3712 Translation layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/App/Translation/src/Translation.Table.al b/src/System Application/App/Translation/src/Translation.Table.al index c18874b75b..f414097944 100644 --- a/src/System Application/App/Translation/src/Translation.Table.al +++ b/src/System Application/App/Translation/src/Translation.Table.al @@ -63,9 +63,6 @@ table 3712 Translation } } - fieldgroups - { - } trigger OnInsert() begin diff --git a/src/System Application/App/Translation/src/TranslationImplementation.Codeunit.al b/src/System Application/App/Translation/src/TranslationImplementation.Codeunit.al index 77be5c585a..9f665c89d8 100644 --- a/src/System Application/App/Translation/src/TranslationImplementation.Codeunit.al +++ b/src/System Application/App/Translation/src/TranslationImplementation.Codeunit.al @@ -113,7 +113,7 @@ codeunit 3712 "Translation Implementation" GetRecordRefFromVariant(ToRecVariant, ToRecordRef); if FromRecordRef.Number() <> ToRecordRef.Number() then Error(DifferentTableErr); - Translation.SetRange("System Id", GetSystemIdFromRecordRef(FromRecordRef)); + Translation.SetRange("System ID", GetSystemIdFromRecordRef(FromRecordRef)); Translation.SetRange("Table ID", FromRecordRef.Number()); if FieldId <> 0 then Translation.SetRange("Field ID", FieldId); @@ -129,7 +129,7 @@ codeunit 3712 "Translation Implementation" FromRecordRef: RecordRef; begin GetRecordRefFromVariant(FromRecVariant, FromRecordRef); - Translation.SetRange("System Id", GetSystemIdFromRecordRef(FromRecordRef)); + Translation.SetRange("System ID", GetSystemIdFromRecordRef(FromRecordRef)); Translation.SetRange("Field ID", FromFieldId); if Translation.FindSet() then repeat @@ -171,7 +171,7 @@ codeunit 3712 "Translation Implementation" begin Translation.SetRange("Table ID", TableId); Translation.SetRange("Field ID", FieldId); - PAGE.Run(PAGE::Translation, Translation); + Page.Run(Page::Translation, Translation); end; procedure CheckLengthOfTranslationValue(var Translation: Record Translation) diff --git a/src/System Application/App/URI/src/UriQueryDuplicateBehaviour.Enum.al b/src/System Application/App/URI/src/UriQueryDuplicateBehaviour.Enum.al index c81051d448..936bb39090 100644 --- a/src/System Application/App/URI/src/UriQueryDuplicateBehaviour.Enum.al +++ b/src/System Application/App/URI/src/UriQueryDuplicateBehaviour.Enum.al @@ -16,7 +16,7 @@ enum 3062 "Uri Query Duplicate Behaviour" /// Skips adding the value if the same flag or parameter already exists. /// /// Adding "foo=bar" to "https://microsoft.com?foo=goofy" and using this option results in "https://microsoft.com?foo=goofy". - value(1; "Skip") + value(1; Skip) { Caption = 'Skip'; } diff --git a/src/System Application/App/Upgrade Tags/src/UpgradeTag.Codeunit.al b/src/System Application/App/Upgrade Tags/src/UpgradeTag.Codeunit.al index 5c93b16392..acfe92071b 100644 --- a/src/System Application/App/Upgrade Tags/src/UpgradeTag.Codeunit.al +++ b/src/System Application/App/Upgrade Tags/src/UpgradeTag.Codeunit.al @@ -17,7 +17,7 @@ codeunit 9999 "Upgrade Tag" Access = Public; InherentEntitlements = X; InherentPermissions = X; - Permissions = TableData "Upgrade Tags" = rimd; + Permissions = tabledata "Upgrade Tags" = rimd; var UpgradeTagImpl: Codeunit "Upgrade Tag Impl."; @@ -93,7 +93,7 @@ codeunit 9999 "Upgrade Tag" end; /// - /// This method should be used to set all upgrade tags in a new company. + /// This method should be used to set all upgrade tags in a new company. /// The method is called from codeunit 2 - Company Initialize. /// procedure SetAllUpgradeTags() @@ -121,7 +121,7 @@ codeunit 9999 "Upgrade Tag" end; /// - /// With this method you get all the upgrade tags by company in a list. + /// With this method you get all the upgrade tags by company in a list. /// /// /// List of upgrade tags that should be inserted if they do not exist. @@ -132,7 +132,7 @@ codeunit 9999 "Upgrade Tag" end; /// - /// With this method you get all the upgrade tags by database in a list. + /// With this method you get all the upgrade tags by database in a list. /// /// /// List of upgrade tags that should be inserted if they do not exist. diff --git a/src/System Application/App/Upgrade Tags/src/UpgradeTagImpl.Codeunit.al b/src/System Application/App/Upgrade Tags/src/UpgradeTagImpl.Codeunit.al index d693a8d3c6..2fc882c4c3 100644 --- a/src/System Application/App/Upgrade Tags/src/UpgradeTagImpl.Codeunit.al +++ b/src/System Application/App/Upgrade Tags/src/UpgradeTagImpl.Codeunit.al @@ -14,9 +14,9 @@ codeunit 9996 "Upgrade Tag Impl." Access = Internal; InherentEntitlements = X; InherentPermissions = X; - Permissions = TableData "Upgrade Tags" = rimd, - TableData "Upgrade Tag Backup" = rimd, - TableData "Intelligent Cloud" = r; + Permissions = tabledata "Upgrade Tags" = rimd, + tabledata "Upgrade Tag Backup" = rimd, + tabledata "Intelligent Cloud" = r; procedure HasUpgradeTag(Tag: Code[250]): Boolean var diff --git a/src/System Application/App/Upgrade Tags/src/UpgradeTagTags.Codeunit.al b/src/System Application/App/Upgrade Tags/src/UpgradeTagTags.Codeunit.al index f255cbb3a7..f2093f5bcc 100644 --- a/src/System Application/App/Upgrade Tags/src/UpgradeTagTags.Codeunit.al +++ b/src/System Application/App/Upgrade Tags/src/UpgradeTagTags.Codeunit.al @@ -12,8 +12,8 @@ codeunit 9992 "Upgrade Tag - Tags" Access = Internal; InherentEntitlements = X; InherentPermissions = X; - Permissions = TableData Company = r, - TableData "Upgrade Tags" = rimd; + Permissions = tabledata Company = r, + tabledata "Upgrade Tags" = rimd; procedure SetInitializedTagIfNotRegistered(): Text var diff --git a/src/System Application/App/Upgrade Tags/src/UpgradeTags.Table.al b/src/System Application/App/Upgrade Tags/src/UpgradeTags.Table.al index 1ce8baaffe..890273a693 100644 --- a/src/System Application/App/Upgrade Tags/src/UpgradeTags.Table.al +++ b/src/System Application/App/Upgrade Tags/src/UpgradeTags.Table.al @@ -47,8 +47,5 @@ table 9999 "Upgrade Tags" } } - fieldgroups - { - } } diff --git a/src/System Application/App/User Details/Permissions/UserDetailsObjects.PermissionSet.al b/src/System Application/App/User Details/Permissions/UserDetailsObjects.PermissionSet.al index 86fc5c5ae8..2328124af0 100644 --- a/src/System Application/App/User Details/Permissions/UserDetailsObjects.PermissionSet.al +++ b/src/System Application/App/User Details/Permissions/UserDetailsObjects.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 773 "User Details - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "User Details" = X, - Page "User Details" = X; + Permissions = codeunit "User Details" = X, + page "User Details" = X; } diff --git a/src/System Application/App/User Details/src/UserDetails.Codeunit.al b/src/System Application/App/User Details/src/UserDetails.Codeunit.al index b00857618b..5485414279 100644 --- a/src/System Application/App/User Details/src/UserDetails.Codeunit.al +++ b/src/System Application/App/User Details/src/UserDetails.Codeunit.al @@ -24,7 +24,7 @@ codeunit 774 "User Details" end; /// - /// If an extension adds fields to the User Details table, this event allows it to populate the added user details fields. + /// If an extension adds fields to the User Details table, this event allows it to populate the added user details fields. /// /// User Security ID of the user to add the details for. /// The table that holds the values for user details. diff --git a/src/System Application/App/User Details/src/UserDetails.Page.al b/src/System Application/App/User Details/src/UserDetails.Page.al index 4546fe5067..da33aaece1 100644 --- a/src/System Application/App/User Details/src/UserDetails.Page.al +++ b/src/System Application/App/User Details/src/UserDetails.Page.al @@ -26,7 +26,7 @@ page 774 "User Details" layout { - area(content) + area(Content) { repeater(UserDetailsRepeater) { diff --git a/src/System Application/App/User Login Times/src/UserLogin.Table.al b/src/System Application/App/User Login Times/src/UserLogin.Table.al index 49fac68fa5..29af5b94ab 100644 --- a/src/System Application/App/User Login Times/src/UserLogin.Table.al +++ b/src/System Application/App/User Login Times/src/UserLogin.Table.al @@ -43,8 +43,5 @@ table 9008 "User Login" } } - fieldgroups - { - } } diff --git a/src/System Application/App/User Permissions/permissions/UserPermissionsObjects.PermissionSet.al b/src/System Application/App/User Permissions/permissions/UserPermissionsObjects.PermissionSet.al index 4c4b6c19cf..c8f06ab217 100644 --- a/src/System Application/App/User Permissions/permissions/UserPermissionsObjects.PermissionSet.al +++ b/src/System Application/App/User Permissions/permissions/UserPermissionsObjects.PermissionSet.al @@ -12,5 +12,5 @@ permissionset 166 "User Permissions - Objects" Access = Internal; Assignable = false; - Permissions = Page "Lookup Permission Set" = X; + Permissions = page "Lookup Permission Set" = X; } diff --git a/src/System Application/App/User Permissions/src/LookupPermissionSet.Page.al b/src/System Application/App/User Permissions/src/LookupPermissionSet.Page.al index ac932401ef..6ebaf3d672 100644 --- a/src/System Application/App/User Permissions/src/LookupPermissionSet.Page.al +++ b/src/System Application/App/User Permissions/src/LookupPermissionSet.Page.al @@ -22,7 +22,7 @@ page 9854 "Lookup Permission Set" layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/App/User Permissions/src/UserPermissions.Codeunit.al b/src/System Application/App/User Permissions/src/UserPermissions.Codeunit.al index feb069da73..101b67dc0b 100644 --- a/src/System Application/App/User Permissions/src/UserPermissions.Codeunit.al +++ b/src/System Application/App/User Permissions/src/UserPermissions.Codeunit.al @@ -45,7 +45,7 @@ codeunit 152 "User Permissions" /// Checks whether the user has permission to manage users in the tenant. /// /// The security ID of the user to check for. - /// True if the user with the given user security ID can manage users on tenant; false otherwise. + /// True if the user with the given user security ID can manage users on tenant; false otherwise. procedure CanManageUsersOnTenant(UserSecurityId: Guid): Boolean var UserPermissionsImpl: Codeunit "User Permissions Impl."; @@ -100,7 +100,7 @@ codeunit 152 "User Permissions" /// exit(TempDummyExpandedPermission."Delete Permission" = TempDummyExpandedPermission."Delete Permission"::Indirect) /// end; /// - procedure GetEffectivePermission(PermissionObjectType: Option "Table Data","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System",,,,,,,,,; ObjectId: Integer): Record "Expanded Permission" temporary + procedure GetEffectivePermission(PermissionObjectType: Option "Table Data","Table",,"Report",,"Codeunit","XMLport",MenuSuite,"Page","Query","System",,,,,,,,,; ObjectId: Integer): Record "Expanded Permission" temporary var UserPermissionsImpl: Codeunit "User Permissions Impl."; begin diff --git a/src/System Application/App/User Permissions/src/UserPermissionsImpl.Codeunit.al b/src/System Application/App/User Permissions/src/UserPermissionsImpl.Codeunit.al index 7e807fed82..c29ee26db3 100644 --- a/src/System Application/App/User Permissions/src/UserPermissionsImpl.Codeunit.al +++ b/src/System Application/App/User Permissions/src/UserPermissionsImpl.Codeunit.al @@ -17,8 +17,8 @@ codeunit 153 "User Permissions Impl." Access = Internal; InherentEntitlements = X; InherentPermissions = X; - Permissions = TableData "Access Control" = rimd, - TableData User = r; + Permissions = tabledata "Access Control" = rimd, + tabledata User = r; var SUPERTok: Label 'SUPER', Locked = true; @@ -229,7 +229,7 @@ codeunit 153 "User Permissions Impl." AccessControl: Record "Access Control"; begin AccessControl.SetRange("User Security ID", UserSecurityId); - AccessControl.SetRange("Role ID", RoleID); + AccessControl.SetRange("Role ID", RoleId); AccessControl.SetFilter("Company Name", '%1|%2', '', Company); AccessControl.SetRange(Scope, ItemScope); AccessControl.SetRange("App ID", AppId); @@ -237,14 +237,14 @@ codeunit 153 "User Permissions Impl." exit(not AccessControl.IsEmpty()); end; - internal procedure GetEffectivePermission(UserSecurityIdToCheck: Guid; CompanyNameToCheck: Text; PermissionObjectType: Option "Table Data","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System",,,,,,,,,; ObjectId: Integer): Text + internal procedure GetEffectivePermission(UserSecurityIdToCheck: Guid; CompanyNameToCheck: Text; PermissionObjectType: Option "Table Data","Table",,"Report",,"Codeunit","XMLport",MenuSuite,"Page","Query","System",,,,,,,,,; ObjectId: Integer): Text var NavUserAccountHelper: DotNet NavUserAccountHelper; begin exit(NavUserAccountHelper.GetEffectivePermissionForObject(UserSecurityIdToCheck, CompanyNameToCheck, PermissionObjectType, ObjectId)); end; - procedure GetEffectivePermission(PermissionObjectType: Option "Table Data","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System",,,,,,,,,; ObjectId: Integer) TempExpandedPermission: Record "Expanded Permission" temporary + procedure GetEffectivePermission(PermissionObjectType: Option "Table Data","Table",,"Report",,"Codeunit","XMLport",MenuSuite,"Page","Query","System",,,,,,,,,; ObjectId: Integer) TempExpandedPermission: Record "Expanded Permission" temporary var PermissionMask: Text; begin diff --git a/src/System Application/App/User Selection/permissions/UserSelectionObjects.PermissionSet.al b/src/System Application/App/User Selection/permissions/UserSelectionObjects.PermissionSet.al index f2d8eff5b3..265a0735b1 100644 --- a/src/System Application/App/User Selection/permissions/UserSelectionObjects.PermissionSet.al +++ b/src/System Application/App/User Selection/permissions/UserSelectionObjects.PermissionSet.al @@ -10,6 +10,6 @@ permissionset 9844 "User Selection - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "User Selection" = X, - Page "User Lookup" = X; + Permissions = codeunit "User Selection" = X, + page "User Lookup" = X; } diff --git a/src/System Application/App/User Selection/src/UserLookup.Page.al b/src/System Application/App/User Selection/src/UserLookup.Page.al index 364fb0e400..c3c950adc7 100644 --- a/src/System Application/App/User Selection/src/UserLookup.Page.al +++ b/src/System Application/App/User Selection/src/UserLookup.Page.al @@ -24,7 +24,7 @@ page 9843 "User Lookup" layout { - area(content) + area(Content) { repeater(Group) { @@ -61,9 +61,6 @@ page 9843 "User Lookup" } } - actions - { - } trigger OnOpenPage() var diff --git a/src/System Application/App/User Selection/src/UserSelection.Codeunit.al b/src/System Application/App/User Selection/src/UserSelection.Codeunit.al index c2251f6fd9..dd3447da42 100644 --- a/src/System Application/App/User Selection/src/UserSelection.Codeunit.al +++ b/src/System Application/App/User Selection/src/UserSelection.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Security.User; using System.Security.AccessControl; /// -/// Provides basic functionality to open a search page and validate user information. +/// Provides basic functionality to open a search page and validate user information. /// codeunit 9843 "User Selection" { diff --git a/src/System Application/App/User Selection/src/UserSelectionImpl.Codeunit.al b/src/System Application/App/User Selection/src/UserSelectionImpl.Codeunit.al index a0c6365026..26cabe1acf 100644 --- a/src/System Application/App/User Selection/src/UserSelectionImpl.Codeunit.al +++ b/src/System Application/App/User Selection/src/UserSelectionImpl.Codeunit.al @@ -36,7 +36,7 @@ codeunit 9844 "User Selection Impl." begin UserLookup.SetTableView(SelectedUser); UserLookup.LookupMode := true; - if UserLookup.RunModal() = ACTION::LookupOK then begin + if UserLookup.RunModal() = Action::LookupOK then begin UserLookup.GetSelectedUsers(SelectedUser); exit(true); end; diff --git a/src/System Application/App/User Settings/Permissions/UserSettingsObjects.PermissionSet.al b/src/System Application/App/User Settings/Permissions/UserSettingsObjects.PermissionSet.al index 77f08bf44d..ab040aa7c3 100644 --- a/src/System Application/App/User Settings/Permissions/UserSettingsObjects.PermissionSet.al +++ b/src/System Application/App/User Settings/Permissions/UserSettingsObjects.PermissionSet.al @@ -10,11 +10,11 @@ permissionset 9175 "User Settings - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "User Settings" = X, - Page "Accessible Companies" = X, - Page "User Personalization" = X, - Page "User Settings FactBox" = X, - Page "User Settings List" = X, - Page "User Settings" = X, - Page Roles = X; + Permissions = codeunit "User Settings" = X, + page "Accessible Companies" = X, + page "User Personalization" = X, + page "User Settings FactBox" = X, + page "User Settings List" = X, + page "User Settings" = X, + page Roles = X; } diff --git a/src/System Application/App/User Settings/src/AccessibleCompanies.Page.al b/src/System Application/App/User Settings/src/AccessibleCompanies.Page.al index ac3e35a22c..f0113d970c 100644 --- a/src/System Application/App/User Settings/src/AccessibleCompanies.Page.al +++ b/src/System Application/App/User Settings/src/AccessibleCompanies.Page.al @@ -21,7 +21,7 @@ page 9210 "Accessible Companies" layout { - area(content) + area(Content) { repeater(Group) { @@ -44,11 +44,11 @@ page 9210 "Accessible Companies" actions { - area(processing) + area(Processing) { action("Create New Company") { - AccessByPermission = TableData Company = I; + AccessByPermission = tabledata Company = I; ApplicationArea = Basic, Suite; Caption = 'Create New Company'; Image = Company; diff --git a/src/System Application/App/User Settings/src/Roles.Page.al b/src/System Application/App/User Settings/src/Roles.Page.al index 1d015fe06d..ff36072bbf 100644 --- a/src/System Application/App/User Settings/src/Roles.Page.al +++ b/src/System Application/App/User Settings/src/Roles.Page.al @@ -25,7 +25,7 @@ page 9212 Roles layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/App/User Settings/src/UserPersonalization.Page.al b/src/System Application/App/User Settings/src/UserPersonalization.Page.al index 273367cc1d..04b71848ec 100644 --- a/src/System Application/App/User Settings/src/UserPersonalization.Page.al +++ b/src/System Application/App/User Settings/src/UserPersonalization.Page.al @@ -25,7 +25,7 @@ page 9214 "User Personalization" layout { - area(content) + area(Content) { group(General) { @@ -63,7 +63,7 @@ page 9214 "User Personalization" UserSettingsImpl.EditProfileID(Rec); end; } - field("Language"; Language.GetWindowsLanguageName(Rec."Language ID")) + field(Language; Language.GetWindowsLanguageName(Rec."Language ID")) { ApplicationArea = All; Caption = 'Language'; diff --git a/src/System Application/App/User Settings/src/UserSettings.Codeunit.al b/src/System Application/App/User Settings/src/UserSettings.Codeunit.al index b9e0adae8e..c6ccfc8151 100644 --- a/src/System Application/App/User Settings/src/UserSettings.Codeunit.al +++ b/src/System Application/App/User Settings/src/UserSettings.Codeunit.al @@ -9,7 +9,7 @@ using System.Environment; using System.Reflection; /// -/// Provides basic functionality for user settings. +/// Provides basic functionality for user settings. /// codeunit 9176 "User Settings" { diff --git a/src/System Application/App/User Settings/src/UserSettings.Page.al b/src/System Application/App/User Settings/src/UserSettings.Page.al index 1c732771ec..8299c404f3 100644 --- a/src/System Application/App/User Settings/src/UserSettings.Page.al +++ b/src/System Application/App/User Settings/src/UserSettings.Page.al @@ -32,7 +32,7 @@ page 9204 "User Settings" layout { - area(content) + area(Content) { group(Control1) { @@ -135,7 +135,7 @@ page 9204 "User Settings" trigger OnOpenPage() begin if not Rec.Initialized then - UserSettingsImpl.GetUserSettings(UserSecurityID(), Rec); + UserSettingsImpl.GetUserSettings(UserSecurityId(), Rec); OldUserSettings := Rec; diff --git a/src/System Application/App/User Settings/src/UserSettingsFactBox.Page.al b/src/System Application/App/User Settings/src/UserSettingsFactBox.Page.al index 5b5aae535c..b8c9bc32ca 100644 --- a/src/System Application/App/User Settings/src/UserSettingsFactBox.Page.al +++ b/src/System Application/App/User Settings/src/UserSettingsFactBox.Page.al @@ -20,7 +20,7 @@ page 9208 "User Settings FactBox" layout { - area(content) + area(Content) { field(UserRoleCenter; UserSettingsImpl.GetProfileName(Rec.Scope, Rec."App ID", Rec."Profile ID")) { @@ -34,7 +34,7 @@ page 9208 "User Settings FactBox" Caption = 'Company'; ToolTip = 'Specifies the company that is associated with the user.'; } - field("Language"; Language.GetWindowsLanguageName(Rec."Language ID")) + field(Language; Language.GetWindowsLanguageName(Rec."Language ID")) { ApplicationArea = All; Caption = 'Language'; diff --git a/src/System Application/App/User Settings/src/UserSettingsImpl.Codeunit.al b/src/System Application/App/User Settings/src/UserSettingsImpl.Codeunit.al index a0ec638909..33f87972cd 100644 --- a/src/System Application/App/User Settings/src/UserSettingsImpl.Codeunit.al +++ b/src/System Application/App/User Settings/src/UserSettingsImpl.Codeunit.al @@ -200,7 +200,7 @@ codeunit 9175 "User Settings Impl." if OldUserSettings."Time Zone" <> NewUserSettings."Time Zone" then begin ShouldRefreshSession := true; - sessionSetting.Timezone := NewUserSettings."Time Zone"; + sessionSetting.TimeZone := NewUserSettings."Time Zone"; end; if OldUserSettings.Company <> NewUserSettings.Company then begin diff --git a/src/System Application/App/User Settings/src/UserSettingsList.Page.al b/src/System Application/App/User Settings/src/UserSettingsList.Page.al index 56c770c61f..1f2d8c793a 100644 --- a/src/System Application/App/User Settings/src/UserSettingsList.Page.al +++ b/src/System Application/App/User Settings/src/UserSettingsList.Page.al @@ -11,7 +11,7 @@ namespace System.Environment.Configuration; page 9206 "User Settings List" { Caption = 'User Settings'; - CardPageID = "User Personalization"; + CardPageId = "User Personalization"; AdditionalSearchTerms = 'User Personalization,User Preferences'; UsageCategory = Administration; ApplicationArea = All; @@ -25,7 +25,7 @@ page 9206 "User Settings List" layout { - area(content) + area(Content) { repeater(Control1) { @@ -51,7 +51,7 @@ page 9206 "User Settings List" Caption = 'Role'; ToolTip = 'Specifies the user role that defines the user’s default Role Center and role-specific customizations. Unless restricted by permissions, users can change their role on the My Settings page.'; } - field("Language"; Rec."Language Name") + field(Language; Rec."Language Name") { ApplicationArea = Basic, Suite; Caption = 'Language'; diff --git a/src/System Application/App/Video/src/ProductVideos.Page.al b/src/System Application/App/Video/src/ProductVideos.Page.al index 23f5769fc1..3591cd3a87 100644 --- a/src/System Application/App/Video/src/ProductVideos.Page.al +++ b/src/System Application/App/Video/src/ProductVideos.Page.al @@ -24,7 +24,7 @@ page 1470 "Product Videos" layout { - area(content) + area(Content) { repeater("Available Videos") { diff --git a/src/System Application/App/Video/src/Video.Codeunit.al b/src/System Application/App/Video/src/Video.Codeunit.al index cca27e937a..8ec37a8e2e 100644 --- a/src/System Application/App/Video/src/Video.Codeunit.al +++ b/src/System Application/App/Video/src/Video.Codeunit.al @@ -19,7 +19,7 @@ codeunit 3710 Video VideoImpl.Play(Url); end; - /// Adds a link to a video to the Product Videos page. + /// Adds a link to a video to the Product Videos page. /// /// The ID of the extension that registers this video. /// The title of the video. @@ -31,7 +31,7 @@ codeunit 3710 Video VideoImpl.InsertIntoBuffer(TempProductVideoBuffer, AppID, Title, VideoUrl, 0, EmptyGuid, "Video Category"::Uncategorized); end; - /// Adds a link to a video to the Product Videos page. + /// Adds a link to a video to the Product Videos page. /// /// The ID of the extension that registers this video. /// The title of the video. @@ -44,29 +44,29 @@ codeunit 3710 Video VideoImpl.InsertIntoBuffer(TempProductVideoBuffer, AppID, Title, VideoUrl, 0, EmptyGuid, Category); end; - /// Adds a link to a video to the Product Videos page. + /// Adds a link to a video to the Product Videos page. /// /// The ID of the extension that registers this video. /// The title of the video. /// The link to the video. /// The table number of the record that is the source of this video. - /// The system id of the record related to this video. This is - /// used to raise the OnVideoPlayed event with that record once the video is + /// The system id of the record related to this video. This is + /// used to raise the OnVideoPlayed event with that record once the video is /// played. procedure Register(AppID: Guid; Title: Text[250]; VideoUrl: Text[2048]; TableNum: Integer; SystemId: Guid) begin VideoImpl.InsertIntoBuffer(TempProductVideoBuffer, AppID, Title, VideoUrl, TableNum, SystemId, "Video Category"::Uncategorized); end; - /// Adds a link to a video to the Product Videos page. + /// Adds a link to a video to the Product Videos page. /// /// The ID of the extension that registers this video. /// The title of the video. /// The link to the video. /// The video category. /// The table number of the record that is the source of this video. - /// The system id of the record related to this video. This is - /// used to raise the OnVideoPlayed event with that record once the video is + /// The system id of the record related to this video. This is + /// used to raise the OnVideoPlayed event with that record once the video is /// played. procedure Register(AppID: Guid; Title: Text[250]; VideoUrl: Text[2048]; Category: Enum "Video Category"; TableNum: Integer; SystemId: Guid) begin @@ -83,7 +83,7 @@ codeunit 3710 Video end; /// Gets the data for the video list that displays the content on the Product Videos page. - /// The new record to which the data is + /// The new record to which the data is /// copied. internal procedure GetTemporaryRecord(var TemporaryProductVideoBuffer: Record "Product Video Buffer" temporary) begin diff --git a/src/System Application/App/Video/src/Videolink.Page.al b/src/System Application/App/Video/src/Videolink.Page.al index b2c8837c16..f97de65244 100644 --- a/src/System Application/App/Video/src/Videolink.Page.al +++ b/src/System Application/App/Video/src/Videolink.Page.al @@ -18,7 +18,7 @@ page 1821 "Video Link" layout { - area(content) + area(Content) { group(Control5) { diff --git a/src/System Application/App/Web Service Management/permissions/WebServiceManagementObj.PermissionSet.al b/src/System Application/App/Web Service Management/permissions/WebServiceManagementObj.PermissionSet.al index 5c790a2af1..a547a876d5 100644 --- a/src/System Application/App/Web Service Management/permissions/WebServiceManagementObj.PermissionSet.al +++ b/src/System Application/App/Web Service Management/permissions/WebServiceManagementObj.PermissionSet.al @@ -10,9 +10,9 @@ permissionset 810 "Web Service Management - Obj." Access = Internal; Assignable = false; - Permissions = Codeunit "Web Service Management" = X, - Table "Tenant Web Service Columns" = X, - Table "Tenant Web Service Filter" = X, - Table "Tenant Web Service OData" = X, - Table "Web Service Aggregate" = X; + Permissions = codeunit "Web Service Management" = X, + table "Tenant Web Service Columns" = X, + table "Tenant Web Service Filter" = X, + table "Tenant Web Service OData" = X, + table "Web Service Aggregate" = X; } diff --git a/src/System Application/App/Web Service Management/src/TenantWebServiceColumns.Table.al b/src/System Application/App/Web Service Management/src/TenantWebServiceColumns.Table.al index cf9f1d56bd..3cfb8b50b1 100644 --- a/src/System Application/App/Web Service Management/src/TenantWebServiceColumns.Table.al +++ b/src/System Application/App/Web Service Management/src/TenantWebServiceColumns.Table.al @@ -41,7 +41,7 @@ table 6711 "Tenant Web Service Columns" DataClassification = SystemMetadata; Caption = 'Report Caption'; } - field(5; TenantWebServiceID; RecordID) + field(5; TenantWebServiceID; RecordId) { Caption = 'Tenant Web Service ID'; DataClassification = CustomerContent; @@ -75,8 +75,5 @@ table 6711 "Tenant Web Service Columns" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Web Service Management/src/TenantWebServiceFilter.Table.al b/src/System Application/App/Web Service Management/src/TenantWebServiceFilter.Table.al index 21f374672b..bc1a4e3e99 100644 --- a/src/System Application/App/Web Service Management/src/TenantWebServiceFilter.Table.al +++ b/src/System Application/App/Web Service Management/src/TenantWebServiceFilter.Table.al @@ -24,12 +24,12 @@ table 6712 "Tenant Web Service Filter" AutoIncrement = true; Caption = 'Entry ID'; } - field(2; "Filter"; BLOB) + field(2; "Filter"; Blob) { DataClassification = CustomerContent; Caption = 'Filter'; } - field(3; TenantWebServiceID; RecordID) + field(3; TenantWebServiceID; RecordId) { Caption = 'Tenant Web Service ID'; DataClassification = CustomerContent; @@ -49,8 +49,5 @@ table 6712 "Tenant Web Service Filter" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Web Service Management/src/TenantWebServiceOData.Table.al b/src/System Application/App/Web Service Management/src/TenantWebServiceOData.Table.al index b904090d8a..5c5008af4a 100644 --- a/src/System Application/App/Web Service Management/src/TenantWebServiceOData.Table.al +++ b/src/System Application/App/Web Service Management/src/TenantWebServiceOData.Table.al @@ -18,22 +18,22 @@ table 6710 "Tenant Web Service OData" fields { - field(1; TenantWebServiceID; RecordID) + field(1; TenantWebServiceID; RecordId) { Caption = 'Tenant Web Service ID'; DataClassification = CustomerContent; } - field(2; ODataSelectClause; BLOB) + field(2; ODataSelectClause; Blob) { DataClassification = CustomerContent; Caption = 'OData Select Clause'; } - field(3; ODataFilterClause; BLOB) + field(3; ODataFilterClause; Blob) { DataClassification = CustomerContent; Caption = 'OData Filter Clause'; } - field(4; ODataV4FilterClause; BLOB) + field(4; ODataV4FilterClause; Blob) { DataClassification = CustomerContent; Caption = 'OData V4 Filter Clause'; @@ -48,8 +48,5 @@ table 6710 "Tenant Web Service OData" } } - fieldgroups - { - } } diff --git a/src/System Application/App/Web Service Management/src/WebServiceAggregate.Table.al b/src/System Application/App/Web Service Management/src/WebServiceAggregate.Table.al index d3d7d5c047..eaf031c81c 100644 --- a/src/System Application/App/Web Service Management/src/WebServiceAggregate.Table.al +++ b/src/System Application/App/Web Service Management/src/WebServiceAggregate.Table.al @@ -78,9 +78,6 @@ table 9900 "Web Service Aggregate" } } - fieldgroups - { - } trigger OnDelete() var diff --git a/src/System Application/App/Web Service Management/src/WebServiceManagement.Codeunit.al b/src/System Application/App/Web Service Management/src/WebServiceManagement.Codeunit.al index d3001cdd2b..ea0f9ac8c8 100644 --- a/src/System Application/App/Web Service Management/src/WebServiceManagement.Codeunit.al +++ b/src/System Application/App/Web Service Management/src/WebServiceManagement.Codeunit.al @@ -60,7 +60,7 @@ codeunit 9750 "Web Service Management" /// Record that the columns from temporary records are inserted to. /// Temporary record that the columns are inserted from. /// The ID of the Tenant Web Service corresponding to columns. - procedure CreateTenantWebServiceColumnsFromTemp(var TenantWebServiceColumns: Record "Tenant Web Service Columns"; var TempTenantWebServiceColumns: Record "Tenant Web Service Columns" temporary; TenantWebServiceRecordId: RecordID) + procedure CreateTenantWebServiceColumnsFromTemp(var TenantWebServiceColumns: Record "Tenant Web Service Columns"; var TempTenantWebServiceColumns: Record "Tenant Web Service Columns" temporary; TenantWebServiceRecordId: RecordId) begin WebServiceManagementImpl.CreateTenantWebServiceColumnsFromTemp(TenantWebServiceColumns, TempTenantWebServiceColumns, TenantWebServiceRecordId); end; @@ -71,7 +71,7 @@ codeunit 9750 "Web Service Management" /// Record that the filter from record reference is inserted to. /// Record reference that the filter is inserted from. /// The ID of the Tenant Web Service corresponding to the filter. - procedure CreateTenantWebServiceFilterFromRecordRef(var TenantWebServiceFilter: Record "Tenant Web Service Filter"; var RecordRef: RecordRef; TenantWebServiceRecordId: RecordID) + procedure CreateTenantWebServiceFilterFromRecordRef(var TenantWebServiceFilter: Record "Tenant Web Service Filter"; var RecordRef: RecordRef; TenantWebServiceRecordId: RecordId) begin WebServiceManagementImpl.CreateTenantWebServiceFilterFromRecordRef(TenantWebServiceFilter, RecordRef, TenantWebServiceRecordId); end; @@ -201,7 +201,7 @@ codeunit 9750 "Web Service Management" /// The field number of the tenant web service column. /// The data item of the tenant web service column. [Scope('OnPrem')] - procedure CreateTenantWebServiceColumnForPage(TenantWebServiceRecordId: RecordID; FieldNumber: Integer; DataItem: Integer) + procedure CreateTenantWebServiceColumnForPage(TenantWebServiceRecordId: RecordId; FieldNumber: Integer; DataItem: Integer) begin WebServiceManagementImpl.CreateTenantWebServiceColumnForPage(TenantWebServiceRecordId, FieldNumber, DataItem); end; @@ -214,7 +214,7 @@ codeunit 9750 "Web Service Management" /// The data item of the tenant web service column. /// Metadata used to convert field name. [Scope('OnPrem')] - procedure CreateTenantWebServiceColumnForQuery(TenantWebServiceRecordId: RecordID; FieldNumber: Integer; DataItem: Integer; MetaData: DotNet QueryMetadataReader) + procedure CreateTenantWebServiceColumnForQuery(TenantWebServiceRecordId: RecordId; FieldNumber: Integer; DataItem: Integer; MetaData: DotNet QueryMetadataReader) begin WebServiceManagementImpl.CreateTenantWebServiceColumnForQuery(TenantWebServiceRecordId, FieldNumber, DataItem, MetaData); end; @@ -231,7 +231,7 @@ codeunit 9750 "Web Service Management" WebServiceManagementImpl.InsertSelectedColumns(TenantWebService, ColumnDictionary, TargetTenantWebServiceColumns, DataItem); end; - /// + /// /// Removes filters that are not in the selected columns for the given service. /// /// The tenant web service corresponding to columns. @@ -243,7 +243,7 @@ codeunit 9750 "Web Service Management" exit(WebServiceManagementImpl.RemoveUnselectedColumnsFromFilter(TenantWebService, DataItem, DataItemView)); end; - /// + /// /// Checks if given service name is valid. /// /// The service name to be checked. @@ -253,7 +253,7 @@ codeunit 9750 "Web Service Management" exit(WebServiceManagementImpl.IsServiceNameValid(Value)); end; - /// + /// /// Deletes a webservice. /// /// The record to be deleted. diff --git a/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al b/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al index d4cd0593d8..1907f94b5f 100644 --- a/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al +++ b/src/System Application/App/Web Service Management/src/WebServiceManagementImpl.Codeunit.al @@ -90,25 +90,25 @@ codeunit 9751 "Web Service Management Impl." WebServiceAggregate."Object Type"::Page: case ClientTypeParam of ClientTypeParam::SOAP: - exit(GetUrl(CLIENTTYPE::SOAP, CompanyName(), OBJECTTYPE::Page, WebServiceAggregate."Object ID", WebService)); + exit(GetUrl(ClientType::SOAP, CompanyName(), ObjectType::Page, WebServiceAggregate."Object ID", WebService)); ClientTypeParam::ODataV3: - exit(GetUrl(CLIENTTYPE::OData, CompanyName(), OBJECTTYPE::Page, WebServiceAggregate."Object ID", WebService)); + exit(GetUrl(ClientType::OData, CompanyName(), ObjectType::Page, WebServiceAggregate."Object ID", WebService)); ClientTypeParam::ODataV4: - exit(GetUrl(CLIENTTYPE::ODataV4, CompanyName(), OBJECTTYPE::Page, WebServiceAggregate."Object ID", WebService)); + exit(GetUrl(ClientType::ODataV4, CompanyName(), ObjectType::Page, WebServiceAggregate."Object ID", WebService)); end; WebServiceAggregate."Object Type"::Query: case ClientTypeParam of ClientTypeParam::SOAP: exit(NotApplicableTxt); ClientTypeParam::ODataV3: - exit(GetUrl(CLIENTTYPE::OData, CompanyName(), OBJECTTYPE::Query, WebServiceAggregate."Object ID", WebService)); + exit(GetUrl(ClientType::OData, CompanyName(), ObjectType::Query, WebServiceAggregate."Object ID", WebService)); ClientTypeParam::ODataV4: - exit(GetUrl(CLIENTTYPE::ODataV4, CompanyName(), OBJECTTYPE::Query, WebServiceAggregate."Object ID", WebService)); + exit(GetUrl(ClientType::ODataV4, CompanyName(), ObjectType::Query, WebServiceAggregate."Object ID", WebService)); end; WebServiceAggregate."Object Type"::Codeunit: case ClientTypeParam of ClientTypeParam::SOAP: - exit(GetUrl(CLIENTTYPE::SOAP, CompanyName(), OBJECTTYPE::Codeunit, WebServiceAggregate."Object ID", WebService)); + exit(GetUrl(ClientType::SOAP, CompanyName(), ObjectType::Codeunit, WebServiceAggregate."Object ID", WebService)); ClientTypeParam::ODataV3: exit(NotApplicableTxt); ClientTypeParam::ODataV4: @@ -123,15 +123,15 @@ codeunit 9751 "Web Service Management Impl." WebServiceAggregate."Object Type"::Page: case ClientTypeParam of ClientTypeParam::SOAP: - exit(GetUrl(CLIENTTYPE::SOAP, CompanyName(), OBJECTTYPE::Page, WebServiceAggregate."Object ID", TenantWebService)); + exit(GetUrl(ClientType::SOAP, CompanyName(), ObjectType::Page, WebServiceAggregate."Object ID", TenantWebService)); ClientTypeParam::ODataV3: begin - ODataServiceRootUrl := GetUrl(CLIENTTYPE::OData, CompanyName(), OBJECTTYPE::Page, WebServiceAggregate."Object ID", TenantWebService); + ODataServiceRootUrl := GetUrl(ClientType::OData, CompanyName(), ObjectType::Page, WebServiceAggregate."Object ID", TenantWebService); exit(GenerateODataV3Url(ODataServiceRootUrl, TenantWebService."Service Name", TenantWebService."Object Type")); end; ClientTypeParam::ODataV4: begin - ODataServiceRootUrl := GetUrl(CLIENTTYPE::ODataV4, CompanyName(), OBJECTTYPE::Page, WebServiceAggregate."Object ID", TenantWebService); + ODataServiceRootUrl := GetUrl(ClientType::ODataV4, CompanyName(), ObjectType::Page, WebServiceAggregate."Object ID", TenantWebService); exit(GenerateODataV4Url(ODataServiceRootUrl, TenantWebService."Service Name", TenantWebService."Object Type")); end; end; @@ -141,19 +141,19 @@ codeunit 9751 "Web Service Management Impl." exit(NotApplicableTxt); ClientTypeParam::ODataV3: begin - ODataServiceRootUrl := GetUrl(CLIENTTYPE::OData, CompanyName(), OBJECTTYPE::Query, WebServiceAggregate."Object ID", TenantWebService); + ODataServiceRootUrl := GetUrl(ClientType::OData, CompanyName(), ObjectType::Query, WebServiceAggregate."Object ID", TenantWebService); exit(GenerateODataV3Url(ODataServiceRootUrl, TenantWebService."Service Name", TenantWebService."Object Type")); end; ClientTypeParam::ODataV4: begin - ODataServiceRootUrl := GetUrl(CLIENTTYPE::ODataV4, CompanyName(), OBJECTTYPE::Query, WebServiceAggregate."Object ID", TenantWebService); + ODataServiceRootUrl := GetUrl(ClientType::ODataV4, CompanyName(), ObjectType::Query, WebServiceAggregate."Object ID", TenantWebService); exit(GenerateODataV4Url(ODataServiceRootUrl, TenantWebService."Service Name", TenantWebService."Object Type")); end; end; WebServiceAggregate."Object Type"::Codeunit: case ClientTypeParam of ClientTypeParam::SOAP: - exit(GetUrl(CLIENTTYPE::SOAP, CompanyName(), OBJECTTYPE::Codeunit, WebServiceAggregate."Object ID", TenantWebService)); + exit(GetUrl(ClientType::SOAP, CompanyName(), ObjectType::Codeunit, WebServiceAggregate."Object ID", TenantWebService)); ClientTypeParam::ODataV3: exit(NotApplicableTxt); ClientTypeParam::ODataV4: @@ -163,7 +163,7 @@ codeunit 9751 "Web Service Management Impl." end; end; - procedure CreateTenantWebServiceColumnsFromTemp(var TenantWebServiceColumns: Record "Tenant Web Service Columns"; var TempTenantWebServiceColumns: Record "Tenant Web Service Columns" temporary; TenantWebServiceRecordId: RecordID) + procedure CreateTenantWebServiceColumnsFromTemp(var TenantWebServiceColumns: Record "Tenant Web Service Columns"; var TempTenantWebServiceColumns: Record "Tenant Web Service Columns" temporary; TenantWebServiceRecordId: RecordId) begin if TempTenantWebServiceColumns.FindSet() then begin TenantWebServiceColumns.SetRange(TenantWebServiceID, TenantWebServiceRecordId); @@ -179,7 +179,7 @@ codeunit 9751 "Web Service Management Impl." end; end; - procedure CreateTenantWebServiceFilterFromRecordRef(var TenantWebServiceFilter: Record "Tenant Web Service Filter"; var RecordRef: RecordRef; TenantWebServiceRecordId: RecordID) + procedure CreateTenantWebServiceFilterFromRecordRef(var TenantWebServiceFilter: Record "Tenant Web Service Filter"; var RecordRef: RecordRef; TenantWebServiceRecordId: RecordId) begin TenantWebServiceFilter.SetRange(TenantWebServiceID, TenantWebServiceRecordId); TenantWebServiceFilter.DeleteAll(); @@ -561,7 +561,7 @@ codeunit 9751 "Web Service Management Impl." TenantWebServiceOData.DeleteAll(); end; - procedure CreateTenantWebServiceColumnForPage(TenantWebServiceRecordId: RecordID; FieldNumber: Integer; DataItem: Integer) + procedure CreateTenantWebServiceColumnForPage(TenantWebServiceRecordId: RecordId; FieldNumber: Integer; DataItem: Integer) var TenantWebServiceColumns: Record "Tenant Web Service Columns"; FieldTable: Record "Field"; @@ -603,7 +603,7 @@ codeunit 9751 "Web Service Management Impl." end; end; - procedure CreateTenantWebServiceColumnForQuery(TenantWebServiceRecordId: RecordID; FieldNumber: Integer; DataItem: Integer; MetaData: DotNet QueryMetadataReader) + procedure CreateTenantWebServiceColumnForQuery(TenantWebServiceRecordId: RecordId; FieldNumber: Integer; DataItem: Integer; MetaData: DotNet QueryMetadataReader) var TenantWebServiceColumns: Record "Tenant Web Service Columns"; queryField: DotNet QueryFields; diff --git a/src/System Application/App/Word Templates/permissions/WordTemplatesObjects.PermissionSet.al b/src/System Application/App/Word Templates/permissions/WordTemplatesObjects.PermissionSet.al index 2edc9e7968..a32c0e2779 100644 --- a/src/System Application/App/Word Templates/permissions/WordTemplatesObjects.PermissionSet.al +++ b/src/System Application/App/Word Templates/permissions/WordTemplatesObjects.PermissionSet.al @@ -10,12 +10,12 @@ permissionset 9988 "Word Templates - Objects" Access = Internal; Assignable = false; - Permissions = Codeunit "Word Template" = X, - Codeunit "Word Template Custom Field" = X, - Codeunit "Word Template Field Value" = X, - Page "Word Templates" = X, - Page "Word Template Creation Wizard" = X, - Page "Word Template Selection Wizard" = X, - Page "Word Template To Text Wizard" = X, - Table "Word Template" = X; + Permissions = codeunit "Word Template" = X, + codeunit "Word Template Custom Field" = X, + codeunit "Word Template Field Value" = X, + page "Word Templates" = X, + page "Word Template Creation Wizard" = X, + page "Word Template Selection Wizard" = X, + page "Word Template To Text Wizard" = X, + table "Word Template" = X; } diff --git a/src/System Application/App/Word Templates/src/WordTemplate.Codeunit.al b/src/System Application/App/Word Templates/src/WordTemplate.Codeunit.al index d441fbc253..8618575c34 100644 --- a/src/System Application/App/Word Templates/src/WordTemplate.Codeunit.al +++ b/src/System Application/App/Word Templates/src/WordTemplate.Codeunit.al @@ -47,7 +47,7 @@ codeunit 9987 "Word Template" /// /// Gets an InStream for the resulting document. /// - /// Out parameter, the InStream to set. + /// Out parameter, the InStream to set. procedure GetDocument(var DocumentInStream: InStream) begin WordTemplateImpl.GetDocument(DocumentInStream); @@ -73,7 +73,7 @@ codeunit 9987 "Word Template" /// /// Creates a template with the fields of the given table. /// - /// Specifies the ID of the table whose fields will be used to populate the template. + /// Specifies the ID of the table whose fields will be used to populate the template. procedure Create(TableId: Integer) var TempWordTemplateFields: Record "Word Template Field" temporary; @@ -84,9 +84,9 @@ codeunit 9987 "Word Template" /// /// Creates a template with the fields from a selected table and a list of related table IDs. /// - /// Specifies the ID of the table from which fields will be used to insert data in the template. + /// Specifies the ID of the table from which fields will be used to insert data in the template. /// Specifies the IDs of tables that are related to the selected table. Fields from these tables will also be used to insert data in the template. - /// Specifies the IDs for each related table. The IDs must be the same length as the RelatedTableIds, and be between 1 and 5 characters. + /// Specifies the IDs for each related table. The IDs must be the same length as the RelatedTableIds, and be between 1 and 5 characters. procedure Create(TableId: Integer; RelatedTableIds: List of [Integer]; RelatedTableCodes: List of [Code[5]]) var TempWordTemplateFields: Record "Word Template Field" temporary; @@ -108,7 +108,7 @@ codeunit 9987 "Word Template" /// /// The code of the Word template to use. /// The document format is not recognized or not supported. - /// The document appears to be corrupted and cannot be loaded. + /// The document appears to be corrupted and cannot be loaded. /// There is an input/output exception. /// The document is encrypted. procedure Load(WordTemplateCode: Code[30]) @@ -121,7 +121,7 @@ codeunit 9987 "Word Template" /// /// InStream of the Word template to use. /// The document format is not recognized or not supported. - /// The document appears to be corrupted and cannot be loaded. + /// The document appears to be corrupted and cannot be loaded. /// There is an input/output exception. /// The document is encrypted. procedure Load(WordTemplateStream: InStream) @@ -135,7 +135,7 @@ codeunit 9987 "Word Template" /// InStream of the Word template to use. /// The Word template which contains the related tables and fields. /// The document format is not recognized or not supported. - /// The document appears to be corrupted and cannot be loaded. + /// The document appears to be corrupted and cannot be loaded. /// There is an input/output exception. /// The document is encrypted. procedure Load(WordTemplateStream: InStream; WordTemplateCode: Code[30]) @@ -278,7 +278,7 @@ codeunit 9987 "Word Template" /// The ID of the related table to add. /// The field no. of the parent table that references the related table. /// The function shows a message if the related code or table ID is already used for the parent table - /// True if the related table was added, false otherwise. + /// True if the related table was added, false otherwise. procedure AddRelatedTable(WordTemplateCode: Code[30]; RelatedCode: Code[5]; TableId: Integer; RelatedTableId: Integer; FieldNo: Integer): Boolean begin WordTemplateImpl.AddRelatedTable(WordTemplateCode, RelatedCode, TableId, RelatedTableId, FieldNo); diff --git a/src/System Application/App/Word Templates/src/WordTemplateCreationWizard.Page.al b/src/System Application/App/Word Templates/src/WordTemplateCreationWizard.Page.al index c8a01e636f..4182a846d7 100644 --- a/src/System Application/App/Word Templates/src/WordTemplateCreationWizard.Page.al +++ b/src/System Application/App/Word Templates/src/WordTemplateCreationWizard.Page.al @@ -171,7 +171,7 @@ page 9995 "Word Template Creation Wizard" ApplicationArea = All; Editable = false; Caption = 'Uploaded file'; - Tooltip = 'Specifies the name of the file that was uploaded.'; + ToolTip = 'Specifies the name of the file that was uploaded.'; } field(TemplateEntity; WordTemplate."Table Caption") @@ -186,7 +186,7 @@ page 9995 "Word Template Creation Wizard" WordTemplateImpl: Codeunit "Word Template Impl."; TableId: Integer; begin - TableID := WordTemplateImpl.SelectTable(); + TableId := WordTemplateImpl.SelectTable(); if TableId <> 0 then begin WordTemplate."Table ID" := TableId; @@ -395,7 +395,7 @@ page 9995 "Word Template Creation Wizard" // Add related tables CurrPage.RelatedTables.Page.GetRelatedTables(TempRelatedTables); - if TempRelatedTables.Findset() then + if TempRelatedTables.FindSet() then repeat RelatedTables.TransferFields(TempRelatedTables); RelatedTables.Code := WordTemplate.Code; @@ -501,7 +501,7 @@ page 9995 "Word Template Creation Wizard" FilterBuilder.Append('|'); end; OnSetTableNo(SelectedTable); - // As this method populates the page, before it is run, + // As this method populates the page, before it is run, // we commit to make sure that database transactions are done. Commit(); diff --git a/src/System Application/App/Word Templates/src/WordTemplateFieldSelection.Codeunit.al b/src/System Application/App/Word Templates/src/WordTemplateFieldSelection.Codeunit.al index 273ced9cb3..95c1f77717 100644 --- a/src/System Application/App/Word Templates/src/WordTemplateFieldSelection.Codeunit.al +++ b/src/System Application/App/Word Templates/src/WordTemplateFieldSelection.Codeunit.al @@ -36,7 +36,7 @@ codeunit 9989 "Word Template Field Selection" Field.SetRange(TableNo, TableId); Field.SetRange(FieldName, ExcludeFieldName); - if field.FindFirst() then + if Field.FindFirst() then WordTemplateField."Field No." := Field."No."; WordTemplateField.Insert(); @@ -61,7 +61,7 @@ codeunit 9989 "Word Template Field Selection" Field.SetRange(TableNo, TableId); Field.SetRange(FieldName, IncludeFieldName); - if field.FindFirst() then + if Field.FindFirst() then WordTemplateField."Field No." := Field."No."; WordTemplateField.Insert(); end; diff --git a/src/System Application/App/Word Templates/src/WordTemplateImpl.Codeunit.al b/src/System Application/App/Word Templates/src/WordTemplateImpl.Codeunit.al index 187c6806c7..40a4811e2d 100644 --- a/src/System Application/App/Word Templates/src/WordTemplateImpl.Codeunit.al +++ b/src/System Application/App/Word Templates/src/WordTemplateImpl.Codeunit.al @@ -1631,7 +1631,7 @@ codeunit 9988 "Word Template Impl." UploadDialogTitleLbl: Label 'Upload template.'; DownloadDialogTitleLbl: Label 'Download template and data source as zip.'; DownloadResultFileDialogTitleLbl: Label 'Download document.'; - FilterPageBuilderCaptionLbl: Label '%1 Filters', comment = '%1 = Table Caption'; + FilterPageBuilderCaptionLbl: Label '%1 Filters', Comment = '%1 = Table Caption'; SpecifyFiltersQst: Label 'Do you want to specify any filters on the template entity?'; DataSourceFileTxt: Label 'DataSource.xlsx', Locked = true; DataSourceSheetNameTxt: Label 'DataSource', Locked = true; @@ -1667,6 +1667,6 @@ codeunit 9988 "Word Template Impl." TempDocLbl: Label 'Temp doc.docx', Locked = true; CannotRemoveTableWithRelationsErr: Label 'You cannot remove a table while there are still tables related to it.'; SettingsXmlFileContentDoesNotExistTxt: Label 'Settings.xml file content does not exist in the Word Document.', Locked = true; - SettingsXmlRelsFilePathTxt: label 'word/_rels/settings.xml.rels', Locked = true; + SettingsXmlRelsFilePathTxt: Label 'word/_rels/settings.xml.rels', Locked = true; DataSourceNotSetTxt: Label 'Data source not set.', Locked = true; } diff --git a/src/System Application/App/Word Templates/src/WordTemplateToTextWizard.Page.al b/src/System Application/App/Word Templates/src/WordTemplateToTextWizard.Page.al index c11440e4ae..263d5cef42 100644 --- a/src/System Application/App/Word Templates/src/WordTemplateToTextWizard.Page.al +++ b/src/System Application/App/Word Templates/src/WordTemplateToTextWizard.Page.al @@ -110,7 +110,7 @@ page 9999 "Word Template To Text Wizard" if TableId <> 0 then WordTemplatesCreationWizard.SetMultipleTableNo(DictOfRecords.Keys(), TableId); - // As this method populates the page, before it is run, + // As this method populates the page, before it is run, // we commit to make sure that database transactions are done. Commit(); WordTemplatesCreationWizard.RunModal(); diff --git a/src/System Application/App/Word Templates/src/WordTemplates.Page.al b/src/System Application/App/Word Templates/src/WordTemplates.Page.al index 3a34a68894..780529f475 100644 --- a/src/System Application/App/Word Templates/src/WordTemplates.Page.al +++ b/src/System Application/App/Word Templates/src/WordTemplates.Page.al @@ -52,7 +52,7 @@ page 9989 "Word Templates" WordTemplateImpl: Codeunit "Word Template Impl."; TableId: Integer; begin - TableID := WordTemplateImpl.SelectTable(); + TableId := WordTemplateImpl.SelectTable(); if TableId <> 0 then begin Rec."Table ID" := TableId; @@ -78,7 +78,7 @@ page 9989 "Word Templates" } } - area(Factboxes) + area(FactBoxes) { part("Word Template Related"; "Word Templates Related FactBox") { diff --git a/src/System Application/App/Word Templates/src/WordTemplatesFieldSelection.Page.al b/src/System Application/App/Word Templates/src/WordTemplatesFieldSelection.Page.al index c5f0e59a4e..fadeca1dae 100644 --- a/src/System Application/App/Word Templates/src/WordTemplatesFieldSelection.Page.al +++ b/src/System Application/App/Word Templates/src/WordTemplatesFieldSelection.Page.al @@ -25,7 +25,7 @@ page 9992 "Word Templates Field Selection" layout { - area(content) + area(Content) { repeater(Tables) { diff --git a/src/System Application/App/Word Templates/src/WordTemplatesRelatedEdit.Page.al b/src/System Application/App/Word Templates/src/WordTemplatesRelatedEdit.Page.al index 33c313aa71..c5dabfdfe1 100644 --- a/src/System Application/App/Word Templates/src/WordTemplatesRelatedEdit.Page.al +++ b/src/System Application/App/Word Templates/src/WordTemplatesRelatedEdit.Page.al @@ -25,7 +25,7 @@ page 9983 "Word Templates Related Edit" layout { - area(content) + area(Content) { label(SelectRelatedEntity) { diff --git a/src/System Application/App/Word Templates/src/WordTemplatesRelatedFactbox.Page.al b/src/System Application/App/Word Templates/src/WordTemplatesRelatedFactbox.Page.al index dc5c127443..3aa6c07fda 100644 --- a/src/System Application/App/Word Templates/src/WordTemplatesRelatedFactbox.Page.al +++ b/src/System Application/App/Word Templates/src/WordTemplatesRelatedFactbox.Page.al @@ -26,7 +26,7 @@ page 9982 "Word Templates Related FactBox" layout { - area(content) + area(Content) { repeater(Tables) { diff --git a/src/System Application/App/Word Templates/src/WordTemplatesRelatedList.Page.al b/src/System Application/App/Word Templates/src/WordTemplatesRelatedList.Page.al index 22773cb084..14182112eb 100644 --- a/src/System Application/App/Word Templates/src/WordTemplatesRelatedList.Page.al +++ b/src/System Application/App/Word Templates/src/WordTemplatesRelatedList.Page.al @@ -25,7 +25,7 @@ page 9985 "Word Templates Related List" layout { - area(content) + area(Content) { repeater(Tables) { diff --git a/src/System Application/App/Word Templates/src/WordTemplatesRelatedPart.Page.al b/src/System Application/App/Word Templates/src/WordTemplatesRelatedPart.Page.al index 3f53d3d7ab..e729c065de 100644 --- a/src/System Application/App/Word Templates/src/WordTemplatesRelatedPart.Page.al +++ b/src/System Application/App/Word Templates/src/WordTemplatesRelatedPart.Page.al @@ -28,7 +28,7 @@ page 9987 "Word Templates Related Part" layout { - area(content) + area(Content) { repeater(Tables) { @@ -288,7 +288,7 @@ page 9987 "Word Templates Related Part" internal procedure GetRelatedTables(var RelatedTableIds: List of [Integer]; var RelatedTableCodes: List of [Code[5]]) begin Rec.Reset(); - Rec.SetFilter("Related Table ID", '<>%1', SourceTableId); // Exclude source record + Rec.SetFilter("Related Table ID", '<>%1', SourceTableId); // Exclude source record if Rec.FindSet() then repeat RelatedTableIds.Add(Rec."Related Table ID"); @@ -304,7 +304,7 @@ page 9987 "Word Templates Related Part" internal procedure GetRelatedTables(var WordTemplatesRelatedTable: Record "Word Templates Related Table" temporary) begin Rec.Reset(); - Rec.SetFilter("Related Table ID", '<>%1', SourceTableId); // Exclude source record + Rec.SetFilter("Related Table ID", '<>%1', SourceTableId); // Exclude source record if Rec.FindSet() then repeat WordTemplatesRelatedTable.TransferFields(Rec); diff --git a/src/System Application/App/Word Templates/src/WordTemplatesTablesPart.Page.al b/src/System Application/App/Word Templates/src/WordTemplatesTablesPart.Page.al index d37e1ec54f..de67098c76 100644 --- a/src/System Application/App/Word Templates/src/WordTemplatesTablesPart.Page.al +++ b/src/System Application/App/Word Templates/src/WordTemplatesTablesPart.Page.al @@ -23,7 +23,7 @@ page 9997 "Word Templates Tables Part" layout { - area(content) + area(Content) { repeater(Tables) { diff --git a/src/System Application/App/XML Validation/src/XmlValidation.Codeunit.al b/src/System Application/App/XML Validation/src/XmlValidation.Codeunit.al index 8388030d38..13750526d2 100644 --- a/src/System Application/App/XML Validation/src/XmlValidation.Codeunit.al +++ b/src/System Application/App/XML Validation/src/XmlValidation.Codeunit.al @@ -93,7 +93,7 @@ codeunit 6240 "Xml Validation" [TryFunction] procedure TryAddValidationSchema(Xml: Text; Namespace: Text) begin - XmlValidationImpl.AddValidationSchema(Xml, NameSpace); + XmlValidationImpl.AddValidationSchema(Xml, Namespace); end; /// @@ -104,7 +104,7 @@ codeunit 6240 "Xml Validation" [TryFunction] procedure TryAddValidationSchema(XmlSchemaDoc: XmlDocument; Namespace: Text) begin - XmlValidationImpl.AddValidationSchema(XmlSchemaDoc, NameSpace); + XmlValidationImpl.AddValidationSchema(XmlSchemaDoc, Namespace); end; /// @@ -115,7 +115,7 @@ codeunit 6240 "Xml Validation" [TryFunction] procedure TryAddValidationSchema(XmlSchemaInStream: InStream; Namespace: Text) begin - XmlValidationImpl.AddValidationSchema(XmlSchemaInStream, NameSpace); + XmlValidationImpl.AddValidationSchema(XmlSchemaInStream, Namespace); end; /// diff --git a/src/System Application/App/XmlWriter/src/XmlWriter.Codeunit.al b/src/System Application/App/XmlWriter/src/XmlWriter.Codeunit.al index 0ee030e38e..9f1b078ba7 100644 --- a/src/System Application/App/XmlWriter/src/XmlWriter.Codeunit.al +++ b/src/System Application/App/XmlWriter/src/XmlWriter.Codeunit.al @@ -8,7 +8,7 @@ namespace System.Xml; /// /// Provides helper functions for System.Xml.XmlWriter /// -codeunit 1483 "XmlWriter" +codeunit 1483 XmlWriter { Access = Public; InherentEntitlements = X; @@ -123,7 +123,7 @@ codeunit 1483 "XmlWriter" end; /// - /// Writes the text within Xml Writer to the BigText variable. + /// Writes the text within Xml Writer to the BigText variable. /// /// The BigText the Xml Writer has to be write to. procedure ToBigText(var XmlBigText: BigText) From 816d9ada843230eca05f5cfe08366f994a478b61 Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Fri, 1 Dec 2023 10:50:21 +0100 Subject: [PATCH 03/10] Clean up System app tests --- .../src/AzureADPlanTestLibrary.Codeunit.al | 8 ++++---- .../src/PlanConfigurationLibrary.Codeunit.al | 4 ++-- .../src/AzureADUserMgtTestLibrary.Codeunit.al | 2 +- .../src/ConfirmTestLibrary.Codeunit.al | 2 +- .../src/CuesAndKPIsTest2Cue.Table.al | 2 +- .../src/EditinExcelTestLibrary.Codeunit.al | 14 +++++++------- .../Permissions/EmailAdmin.PermissionSet.al | 4 ++-- .../Permissions/EmailEdit.PermissionSet.al | 4 ++-- .../EmailRelatedRecord.PermissionSet.al | 4 ++-- .../EmailViewLowPerm.PermissionSet.al | 6 +++--- .../EmailViewPerm.PermissionSet.al | 8 ++++---- .../EmailWordTemplate.PermissionSet.al | 2 +- .../Field Selection/src/TestTableA.Table.al | 19 ------------------- .../Field Selection/src/TestTableB.Table.al | 19 ------------------- .../MyAssistedSetupTestPage.Page.al | 7 +------ .../OtherAssistedSetupTestPage.Page.al | 7 +------ .../src/Manual Setup/MyManualSetup.Page.al | 5 +---- .../src/EmptyCardPageActionTest.Page.al | 8 +------- .../src/HomeItemsPageActionTest.Page.al | 12 ++++-------- .../src/ViewsPageActionTest.Page.al | 2 +- .../src/PageSummaryEmptyPage.Page.al | 8 +------- .../src/PageSummaryTestCard.Page.al | 5 +---- .../src/PerfProfilerTestLibrary.Codeunit.al | 2 +- .../src/TestProfAggregationType.Enum.al | 2 +- ...stemApplicationTestTables.PermissionSet.al | 14 +++++++------- .../RecSelectionRead.Permissionset.al | 2 +- .../src/LibrarySignupContext.Codeunit.al | 2 +- .../src/TranslationTestPage.Page.al | 2 +- .../src/TranslationTestTable.Table.al | 2 +- .../src/UserLoginTestLibrary.Codeunit.al | 4 ++-- .../src/WordTemplatesTestTable3.Table.al | 4 ++-- 31 files changed, 58 insertions(+), 128 deletions(-) diff --git a/src/System Application/Test Library/Azure AD Plan/src/AzureADPlanTestLibrary.Codeunit.al b/src/System Application/Test Library/Azure AD Plan/src/AzureADPlanTestLibrary.Codeunit.al index ef586148d9..095aee2a01 100644 --- a/src/System Application/Test Library/Azure AD Plan/src/AzureADPlanTestLibrary.Codeunit.al +++ b/src/System Application/Test Library/Azure AD Plan/src/AzureADPlanTestLibrary.Codeunit.al @@ -10,11 +10,11 @@ using System.Azure.Identity; codeunit 132916 "Azure AD Plan Test Library" { EventSubscriberInstance = Manual; - Permissions = TableData Plan = rimd, - TableData "User Plan" = rimd; + Permissions = tabledata Plan = rimd, + tabledata "User Plan" = rimd; /// - /// Assigns a plan to a user. + /// Assigns a plan to a user. /// /// The user ID. /// The plan to assign to the user. @@ -45,7 +45,7 @@ codeunit 132916 "Azure AD Plan Test Library" end; /// - /// Reassign a plan to a user. + /// Reassign a plan to a user. /// /// The user ID. /// The plan to reassign to the user. diff --git a/src/System Application/Test Library/Azure AD Plan/src/PlanConfigurationLibrary.Codeunit.al b/src/System Application/Test Library/Azure AD Plan/src/PlanConfigurationLibrary.Codeunit.al index 61370fd92e..de50be1465 100644 --- a/src/System Application/Test Library/Azure AD Plan/src/PlanConfigurationLibrary.Codeunit.al +++ b/src/System Application/Test Library/Azure AD Plan/src/PlanConfigurationLibrary.Codeunit.al @@ -13,9 +13,9 @@ using System.Azure.Identity; codeunit 132924 "Plan Configuration Library" { Access = Public; - Permissions = tabledata "Plan Configuration" = rid, + Permissions = tabledata "Custom Permission Set In Plan" = rimd, tabledata "Default Permission Set In Plan" = rimd, - tabledata "Custom Permission Set In Plan" = rimd; + tabledata "Plan Configuration" = rid; /// /// Clears all plan configurations. diff --git a/src/System Application/Test Library/Azure AD User Management/src/AzureADUserMgtTestLibrary.Codeunit.al b/src/System Application/Test Library/Azure AD User Management/src/AzureADUserMgtTestLibrary.Codeunit.al index 94071327b4..7869fdb6fe 100644 --- a/src/System Application/Test Library/Azure AD User Management/src/AzureADUserMgtTestLibrary.Codeunit.al +++ b/src/System Application/Test Library/Azure AD User Management/src/AzureADUserMgtTestLibrary.Codeunit.al @@ -18,7 +18,7 @@ codeunit 132914 "Azure AD User Mgt Test Library" InvalidObjectIDErr: Label 'Invalid user object is provided'; /// - /// Calls the Run function of the Azure AD User Mgmt. Impl. codeunit. This function exists purely + /// Calls the Run function of the Azure AD User Mgmt. Impl. codeunit. This function exists purely /// for test purposes. /// /// The user security ID that the function is run for. diff --git a/src/System Application/Test Library/Confirm Management/src/ConfirmTestLibrary.Codeunit.al b/src/System Application/Test Library/Confirm Management/src/ConfirmTestLibrary.Codeunit.al index d43761b520..5a8592844d 100644 --- a/src/System Application/Test Library/Confirm Management/src/ConfirmTestLibrary.Codeunit.al +++ b/src/System Application/Test Library/Confirm Management/src/ConfirmTestLibrary.Codeunit.al @@ -15,7 +15,7 @@ codeunit 132513 "Confirm Test Library" GuiAllowed: Boolean; /// - /// Sets the value of GUI allowed. This value will be used to determine if the confirm dialog should be shown in + /// Sets the value of GUI allowed. This value will be used to determine if the confirm dialog should be shown in /// GetResponse and GetResponseOrDefault functions when the subscription is bound. /// Uses event. /// diff --git a/src/System Application/Test Library/Cues And KPIs/src/CuesAndKPIsTest2Cue.Table.al b/src/System Application/Test Library/Cues And KPIs/src/CuesAndKPIsTest2Cue.Table.al index ac2a4e9188..50521c820f 100644 --- a/src/System Application/Test Library/Cues And KPIs/src/CuesAndKPIsTest2Cue.Table.al +++ b/src/System Application/Test Library/Cues And KPIs/src/CuesAndKPIsTest2Cue.Table.al @@ -18,7 +18,7 @@ table 135040 "Cues And KPIs Test 2 Cue" field(10; NormalText; Text[100]) { } - field(15; NormalCode; code[100]) + field(15; NormalCode; Code[100]) { } } diff --git a/src/System Application/Test Library/Edit in Excel/src/EditinExcelTestLibrary.Codeunit.al b/src/System Application/Test Library/Edit in Excel/src/EditinExcelTestLibrary.Codeunit.al index 1c866a3820..28609af757 100644 --- a/src/System Application/Test Library/Edit in Excel/src/EditinExcelTestLibrary.Codeunit.al +++ b/src/System Application/Test Library/Edit in Excel/src/EditinExcelTestLibrary.Codeunit.al @@ -14,8 +14,8 @@ using System.Integration.Excel; codeunit 132524 "Edit in Excel Test Library" { #if not CLEAN22 - /// - /// Calls the CreateDataEntityExportInfo function of the Edit in Excel Impl. codeunit. This function exists purely + /// + /// Calls the CreateDataEntityExportInfo function of the Edit in Excel Impl. codeunit. This function exists purely /// for test purposes. /// /// The tenant web service to create data entity export info for. @@ -32,8 +32,8 @@ codeunit 132524 "Edit in Excel Test Library" end; #endif - /// - /// Calls the ExternalizeODataObjectName function of the Edit in Excel Impl. codeunit. This function exists purely + /// + /// Calls the ExternalizeODataObjectName function of the Edit in Excel Impl. codeunit. This function exists purely /// for test purposes. /// /// The name to convert to OData field @@ -46,7 +46,7 @@ codeunit 132524 "Edit in Excel Test Library" end; /// - /// Calls the ReadFromJsonFilters function of the Edit in Excel Filters codeunit. This function exists purely + /// Calls the ReadFromJsonFilters function of the Edit in Excel Filters codeunit. This function exists purely /// for test purposes. /// /// The excel filter codeunit onto which the filters are applied. @@ -60,7 +60,7 @@ codeunit 132524 "Edit in Excel Test Library" end; /// - /// Calls the GetFilters function of the Edit in Excel Filters codeunit. This function exists purely + /// Calls the GetFilters function of the Edit in Excel Filters codeunit. This function exists purely /// for test purposes. /// /// The excel filter codeunit onto which the filters are applied. @@ -72,7 +72,7 @@ codeunit 132524 "Edit in Excel Test Library" end; /// - /// Calls the ReduceRedundantFilterCollectionNodes function of the Edit in Excel Impl. codeunit. This function exists purely + /// Calls the ReduceRedundantFilterCollectionNodes function of the Edit in Excel Impl. codeunit. This function exists purely /// for test purposes. /// /// The filter collection node to reduce diff --git a/src/System Application/Test Library/Email/Permissions/EmailAdmin.PermissionSet.al b/src/System Application/Test Library/Email/Permissions/EmailAdmin.PermissionSet.al index 55e4026f9f..63fafe77e6 100644 --- a/src/System Application/Test Library/Email/Permissions/EmailAdmin.PermissionSet.al +++ b/src/System Application/Test Library/Email/Permissions/EmailAdmin.PermissionSet.al @@ -14,6 +14,6 @@ permissionset 134687 "Email Admin" // Include Test Tables Permissions = - tabledata "Test Email Connector Setup" = RIMD, - tabledata "Test Email Account" = RIMD; + tabledata "Test Email Account" = RIMD, + tabledata "Test Email Connector Setup" = RIMD; } \ No newline at end of file diff --git a/src/System Application/Test Library/Email/Permissions/EmailEdit.PermissionSet.al b/src/System Application/Test Library/Email/Permissions/EmailEdit.PermissionSet.al index f0c1aaa3ec..186227d749 100644 --- a/src/System Application/Test Library/Email/Permissions/EmailEdit.PermissionSet.al +++ b/src/System Application/Test Library/Email/Permissions/EmailEdit.PermissionSet.al @@ -15,7 +15,7 @@ permissionset 134686 "Email Edit" // Include Test Tables Permissions = - tabledata "Test Email Connector Setup" = RIMD, + tabledata "Scheduled Task" = rd, // Needed for enqueue tests tabledata "Test Email Account" = RIMD, // Needed for the Record to get passed in Library Assert - tabledata "Scheduled Task" = rd; // Needed for enqueue tests + tabledata "Test Email Connector Setup" = RIMD; } \ No newline at end of file diff --git a/src/System Application/Test Library/Email/Permissions/EmailRelatedRecord.PermissionSet.al b/src/System Application/Test Library/Email/Permissions/EmailRelatedRecord.PermissionSet.al index 247a39f769..7e16338c54 100644 --- a/src/System Application/Test Library/Email/Permissions/EmailRelatedRecord.PermissionSet.al +++ b/src/System Application/Test Library/Email/Permissions/EmailRelatedRecord.PermissionSet.al @@ -14,7 +14,7 @@ permissionset 134685 "Email Related Record" // Include Test Tables Permissions = - tabledata "Test Email Connector Setup" = RIMD, + tabledata "Email Related Record Test" = RIMD, tabledata "Test Email Account" = RIMD, // Needed for the Record to get passed in Library Assert - tabledata "Email Related Record Test" = RIMD; + tabledata "Test Email Connector Setup" = RIMD; } \ No newline at end of file diff --git a/src/System Application/Test Library/Email/Permissions/EmailViewLowPerm.PermissionSet.al b/src/System Application/Test Library/Email/Permissions/EmailViewLowPerm.PermissionSet.al index 21cfb46d37..e408647a02 100644 --- a/src/System Application/Test Library/Email/Permissions/EmailViewLowPerm.PermissionSet.al +++ b/src/System Application/Test Library/Email/Permissions/EmailViewLowPerm.PermissionSet.al @@ -14,8 +14,8 @@ permissionset 134684 "Email View Low Perm" // Direct permissions needed for tests // Include Test Tables, but exclude Test Email Account Table - Permissions = tabledata "Test Email Connector Setup" = RIMD, + Permissions = tabledata "Email Outbox" = RIMD, + tabledata "Email Recipient" = RIMD, tabledata "Sent Email" = RIMD, - tabledata "Email Outbox" = RIMD, - tabledata "Email Recipient" = RIMD; + tabledata "Test Email Connector Setup" = RIMD; } \ No newline at end of file diff --git a/src/System Application/Test Library/Email/Permissions/EmailViewPerm.PermissionSet.al b/src/System Application/Test Library/Email/Permissions/EmailViewPerm.PermissionSet.al index 51cdda9e56..c2f46631e4 100644 --- a/src/System Application/Test Library/Email/Permissions/EmailViewPerm.PermissionSet.al +++ b/src/System Application/Test Library/Email/Permissions/EmailViewPerm.PermissionSet.al @@ -14,10 +14,10 @@ permissionset 134689 "Email View Perm" // Direct permissions needed for tests Permissions = - tabledata "Test Email Connector Setup" = RIMD, - tabledata "Test Email Account" = RIMD, // Needed for the Record to get passed in Library Assert - tabledata "Sent Email" = RIMD, tabledata "Email Outbox" = RIMD, - tabledata "Email Recipient" = RIMD; + tabledata "Email Recipient" = RIMD, + tabledata "Sent Email" = RIMD, + tabledata "Test Email Account" = RIMD, + tabledata "Test Email Connector Setup" = RIMD; } \ No newline at end of file diff --git a/src/System Application/Test Library/Email/Permissions/EmailWordTemplate.PermissionSet.al b/src/System Application/Test Library/Email/Permissions/EmailWordTemplate.PermissionSet.al index 695029c93b..d0ce91be96 100644 --- a/src/System Application/Test Library/Email/Permissions/EmailWordTemplate.PermissionSet.al +++ b/src/System Application/Test Library/Email/Permissions/EmailWordTemplate.PermissionSet.al @@ -15,7 +15,7 @@ permissionset 134683 "Email Word Template" // Include Test Tables Permissions = - tabledata "Test Email Connector Setup" = RIMD, tabledata "Test Email Account" = RIMD, // Needed for the Record to get passed in Library Assert + tabledata "Test Email Connector Setup" = RIMD, tabledata "Word Template" = RIMD; } \ No newline at end of file diff --git a/src/System Application/Test Library/Field Selection/src/TestTableA.Table.al b/src/System Application/Test Library/Field Selection/src/TestTableA.Table.al index 8abd2777ec..678fea9d62 100644 --- a/src/System Application/Test Library/Field Selection/src/TestTableA.Table.al +++ b/src/System Application/Test Library/Field Selection/src/TestTableA.Table.al @@ -39,24 +39,5 @@ table 135036 "Test Table A" } } - trigger OnInsert() - begin - - end; - - trigger OnModify() - begin - - end; - - trigger OnDelete() - begin - - end; - - trigger OnRename() - begin - - end; } \ No newline at end of file diff --git a/src/System Application/Test Library/Field Selection/src/TestTableB.Table.al b/src/System Application/Test Library/Field Selection/src/TestTableB.Table.al index c1eb86df52..72e8c37425 100644 --- a/src/System Application/Test Library/Field Selection/src/TestTableB.Table.al +++ b/src/System Application/Test Library/Field Selection/src/TestTableB.Table.al @@ -39,24 +39,5 @@ table 135037 "Test Table B" } } - trigger OnInsert() - begin - - end; - - trigger OnModify() - begin - - end; - - trigger OnDelete() - begin - - end; - - trigger OnRename() - begin - - end; } \ No newline at end of file diff --git a/src/System Application/Test Library/Guided Experience/src/Assisted Setup/MyAssistedSetupTestPage.Page.al b/src/System Application/Test Library/Guided Experience/src/Assisted Setup/MyAssistedSetupTestPage.Page.al index 2dcf894dba..4f28a0489e 100644 --- a/src/System Application/Test Library/Guided Experience/src/Assisted Setup/MyAssistedSetupTestPage.Page.al +++ b/src/System Application/Test Library/Guided Experience/src/Assisted Setup/MyAssistedSetupTestPage.Page.al @@ -7,10 +7,5 @@ namespace System.TestLibraries.Environment.Configuration; page 132586 "My Assisted Setup Test Page" { - layout - { - area(content) - { - } - } + } \ No newline at end of file diff --git a/src/System Application/Test Library/Guided Experience/src/Assisted Setup/OtherAssistedSetupTestPage.Page.al b/src/System Application/Test Library/Guided Experience/src/Assisted Setup/OtherAssistedSetupTestPage.Page.al index dfe8287156..12f4c6d6ec 100644 --- a/src/System Application/Test Library/Guided Experience/src/Assisted Setup/OtherAssistedSetupTestPage.Page.al +++ b/src/System Application/Test Library/Guided Experience/src/Assisted Setup/OtherAssistedSetupTestPage.Page.al @@ -7,10 +7,5 @@ namespace System.TestLibraries.Environment.Configuration; page 132587 "Other Assisted Setup Test Page" { - layout - { - area(content) - { - } - } + } \ No newline at end of file diff --git a/src/System Application/Test Library/Guided Experience/src/Manual Setup/MyManualSetup.Page.al b/src/System Application/Test Library/Guided Experience/src/Manual Setup/MyManualSetup.Page.al index 7a86e85f24..285b7285cc 100644 --- a/src/System Application/Test Library/Guided Experience/src/Manual Setup/MyManualSetup.Page.al +++ b/src/System Application/Test Library/Guided Experience/src/Manual Setup/MyManualSetup.Page.al @@ -12,11 +12,8 @@ page 134934 "My Manual Setup" ApplicationArea = All; UsageCategory = Administration; - layout - { - } - actions { } + } diff --git a/src/System Application/Test Library/Page Action Provider/src/EmptyCardPageActionTest.Page.al b/src/System Application/Test Library/Page Action Provider/src/EmptyCardPageActionTest.Page.al index c1fddc84f3..d3d80e9db5 100644 --- a/src/System Application/Test Library/Page Action Provider/src/EmptyCardPageActionTest.Page.al +++ b/src/System Application/Test Library/Page Action Provider/src/EmptyCardPageActionTest.Page.al @@ -9,15 +9,9 @@ page 132616 "Empty Card Page Action Test" { PageType = Card; - layout - { - area(content) - { - } - } - actions { } + } diff --git a/src/System Application/Test Library/Page Action Provider/src/HomeItemsPageActionTest.Page.al b/src/System Application/Test Library/Page Action Provider/src/HomeItemsPageActionTest.Page.al index d65a3ecf0b..ba7e948a36 100644 --- a/src/System Application/Test Library/Page Action Provider/src/HomeItemsPageActionTest.Page.al +++ b/src/System Application/Test Library/Page Action Provider/src/HomeItemsPageActionTest.Page.al @@ -10,10 +10,6 @@ page 132617 "Home Items Page Action Test" Caption = 'Role Center'; PageType = RoleCenter; - layout - { - } - actions { area(embedding) @@ -22,24 +18,24 @@ page 132617 "Home Items Page Action Test" { ApplicationArea = All; Caption = 'Page with views'; - RunObject = Page "Views Page Action Test"; + RunObject = page "Views Page Action Test"; ToolTip = 'Test page with views'; } action(EmptyPage) { ApplicationArea = All; Caption = 'Empty card page'; - RunObject = Page "Empty Card Page Action Test"; + RunObject = page "Empty Card Page Action Test"; ToolTip = 'Test empty card page'; } } - area(processing) + area(Processing) { action(PageWithViewsInProcesing) { ApplicationArea = All; Caption = 'Page with views'; - RunObject = Page "Views Page Action Test"; + RunObject = page "Views Page Action Test"; ToolTip = 'Test page with views'; } } diff --git a/src/System Application/Test Library/Page Action Provider/src/ViewsPageActionTest.Page.al b/src/System Application/Test Library/Page Action Provider/src/ViewsPageActionTest.Page.al index 670adbd028..0c3cae96e1 100644 --- a/src/System Application/Test Library/Page Action Provider/src/ViewsPageActionTest.Page.al +++ b/src/System Application/Test Library/Page Action Provider/src/ViewsPageActionTest.Page.al @@ -12,7 +12,7 @@ page 132618 "Views Page Action Test" layout { - area(content) + area(Content) { repeater(Group) { diff --git a/src/System Application/Test Library/Page Summary Provider/src/PageSummaryEmptyPage.Page.al b/src/System Application/Test Library/Page Summary Provider/src/PageSummaryEmptyPage.Page.al index 77da9f15ca..82b867fa09 100644 --- a/src/System Application/Test Library/Page Summary Provider/src/PageSummaryEmptyPage.Page.al +++ b/src/System Application/Test Library/Page Summary Provider/src/PageSummaryEmptyPage.Page.al @@ -9,15 +9,9 @@ page 132549 "Page Summary Empty Page" { PageType = Card; - layout - { - area(content) - { - } - } - actions { } + } diff --git a/src/System Application/Test Library/Page Summary Provider/src/PageSummaryTestCard.Page.al b/src/System Application/Test Library/Page Summary Provider/src/PageSummaryTestCard.Page.al index b248d585c3..eaa06383a0 100644 --- a/src/System Application/Test Library/Page Summary Provider/src/PageSummaryTestCard.Page.al +++ b/src/System Application/Test Library/Page Summary Provider/src/PageSummaryTestCard.Page.al @@ -14,7 +14,7 @@ page 132548 "Page Summary Test Card" layout { - area(content) + area(Content) { field(TestBigInteger; Rec.TestBigInteger) { @@ -116,8 +116,5 @@ page 132548 "Page Summary Test Card" } } - actions - { - } } diff --git a/src/System Application/Test Library/Performance Profiler/src/PerfProfilerTestLibrary.Codeunit.al b/src/System Application/Test Library/Performance Profiler/src/PerfProfilerTestLibrary.Codeunit.al index 77cf9079b5..ed0c6ba108 100644 --- a/src/System Application/Test Library/Performance Profiler/src/PerfProfilerTestLibrary.Codeunit.al +++ b/src/System Application/Test Library/Performance Profiler/src/PerfProfilerTestLibrary.Codeunit.al @@ -95,7 +95,7 @@ codeunit 135104 "Perf. Profiler Test Library" /// The resulting aggregation. /// The value of what to aggregate self time by. /// The table view to indicate which profiling nodes should be included in aggregation. - procedure GetSelfTimeAggregate(var AggregatedProfilingNode: Record "Profiling Node"; TestProfilingAggregationType: Enum "Test Prof. Aggregation Type"; FilterText: text) + procedure GetSelfTimeAggregate(var AggregatedProfilingNode: Record "Profiling Node"; TestProfilingAggregationType: Enum "Test Prof. Aggregation Type"; FilterText: Text) begin ProfilingDataProcessor.GetSelfTimeAggregate(AggregatedProfilingNode, GetAggregationType(TestProfilingAggregationType), FilterText); end; diff --git a/src/System Application/Test Library/Performance Profiler/src/TestProfAggregationType.Enum.al b/src/System Application/Test Library/Performance Profiler/src/TestProfAggregationType.Enum.al index 5e64c2739e..8df63a15ab 100644 --- a/src/System Application/Test Library/Performance Profiler/src/TestProfAggregationType.Enum.al +++ b/src/System Application/Test Library/Performance Profiler/src/TestProfAggregationType.Enum.al @@ -15,7 +15,7 @@ enum 135104 "Test Prof. Aggregation Type" /// /// No aggregation. /// - value(0; "None") + value(0; None) { } diff --git a/src/System Application/Test Library/Permissions/SystemApplicationTestTables.PermissionSet.al b/src/System Application/Test Library/Permissions/SystemApplicationTestTables.PermissionSet.al index 490d9603c5..f4f53a97f8 100644 --- a/src/System Application/Test Library/Permissions/SystemApplicationTestTables.PermissionSet.al +++ b/src/System Application/Test Library/Permissions/SystemApplicationTestTables.PermissionSet.al @@ -23,19 +23,19 @@ permissionset 132585 "System Application Test Tables" Permissions = tabledata "Cues And KPIs Test 1 Cue" = RIMD, tabledata "Cues And KPIs Test 2 Cue" = RIMD, tabledata "Edit In Excel Test Table" = RIMD, - tabledata "Test Email Account" = RIMD, - tabledata "Test Email Connector Setup" = RIMD, - tabledata "Test Table A" = RIMD, - tabledata "Test Table B" = RIMD, + tabledata "My Video Source" = RIMD, tabledata "Page Action Provider Test" = RIMD, tabledata "Page Provider Summary Test" = RIMD, tabledata "Page Provider Summary Test2" = RIMD, tabledata "Record Link Record Test" = RIMD, tabledata "Record Selection Test Table" = RIMD, tabledata "Retention Policy Test Data" = RIMD, - tabledata "Retention Policy Test Data Two" = RIMD, tabledata "Retention Policy Test Data 3" = RIMD, tabledata "Retention Policy Test Data 4" = RIMD, - tabledata "Translation Test Table" = RIMD, - tabledata "My Video Source" = RIMD; + tabledata "Retention Policy Test Data Two" = RIMD, + tabledata "Test Email Account" = RIMD, + tabledata "Test Email Connector Setup" = RIMD, + tabledata "Test Table A" = RIMD, + tabledata "Test Table B" = RIMD, + tabledata "Translation Test Table" = RIMD; } \ No newline at end of file diff --git a/src/System Application/Test Library/Record Selection/permissions/RecSelectionRead.Permissionset.al b/src/System Application/Test Library/Record Selection/permissions/RecSelectionRead.Permissionset.al index 3e8943b682..7bd6f8c1ac 100644 --- a/src/System Application/Test Library/Record Selection/permissions/RecSelectionRead.Permissionset.al +++ b/src/System Application/Test Library/Record Selection/permissions/RecSelectionRead.Permissionset.al @@ -13,7 +13,7 @@ permissionset 135536 "Rec. Selection Read" // Include Test Objects Permissions = tabledata "Page Data Personalization" = R, - tabledata "Record Selection Test Table" = RIMD, table "Record Selection Test Table" = X, + tabledata "Record Selection Test Table" = RIMD, page "Record Selection Test Page" = X; } \ No newline at end of file diff --git a/src/System Application/Test Library/System Initialization/src/LibrarySignupContext.Codeunit.al b/src/System Application/Test Library/System Initialization/src/LibrarySignupContext.Codeunit.al index 275c998a6e..b9d84761d3 100644 --- a/src/System Application/Test Library/System Initialization/src/LibrarySignupContext.Codeunit.al +++ b/src/System Application/Test Library/System Initialization/src/LibrarySignupContext.Codeunit.al @@ -59,7 +59,7 @@ codeunit 130046 "Library - Signup Context" var SignupContext: Record "Signup Context"; begin - SignupContext.KeyName := lowercase(SignupContextKey); + SignupContext.KeyName := LowerCase(SignupContextKey); SignupContext.Value := SignupContextValue; SignupContext.Insert(); end; diff --git a/src/System Application/Test Library/Translation/src/TranslationTestPage.Page.al b/src/System Application/Test Library/Translation/src/TranslationTestPage.Page.al index 39647a2931..94c7905adf 100644 --- a/src/System Application/Test Library/Translation/src/TranslationTestPage.Page.al +++ b/src/System Application/Test Library/Translation/src/TranslationTestPage.Page.al @@ -14,7 +14,7 @@ page 137121 "Translation Test Page" layout { - area(content) + area(Content) { group(General) { diff --git a/src/System Application/Test Library/Translation/src/TranslationTestTable.Table.al b/src/System Application/Test Library/Translation/src/TranslationTestTable.Table.al index 860a4b8924..e615c6a04d 100644 --- a/src/System Application/Test Library/Translation/src/TranslationTestTable.Table.al +++ b/src/System Application/Test Library/Translation/src/TranslationTestTable.Table.al @@ -10,7 +10,7 @@ using System.Globalization; table 137121 "Translation Test Table" { DataClassification = SystemMetadata; - LookupPageID = "Translation Test Page"; + LookupPageId = "Translation Test Page"; ReplicateData = false; fields diff --git a/src/System Application/Test Library/User Login Times/src/UserLoginTestLibrary.Codeunit.al b/src/System Application/Test Library/User Login Times/src/UserLoginTestLibrary.Codeunit.al index 10a1eba63f..10ceb6f106 100644 --- a/src/System Application/Test Library/User Login Times/src/UserLoginTestLibrary.Codeunit.al +++ b/src/System Application/Test Library/User Login Times/src/UserLoginTestLibrary.Codeunit.al @@ -9,8 +9,8 @@ using System.Security.User; codeunit 138049 "User Login Test Library" { - Permissions = tabledata "User Login" = rimd, - tabledata "User Environment Login" = rid; + Permissions = tabledata "User Environment Login" = rid, + tabledata "User Login" = rimd; /// /// Creates login information for a user. diff --git a/src/System Application/Test Library/Word Templates/src/WordTemplatesTestTable3.Table.al b/src/System Application/Test Library/Word Templates/src/WordTemplatesTestTable3.Table.al index 2b5ace5cad..2d98911434 100644 --- a/src/System Application/Test Library/Word Templates/src/WordTemplatesTestTable3.Table.al +++ b/src/System Application/Test Library/Word Templates/src/WordTemplatesTestTable3.Table.al @@ -13,7 +13,7 @@ table 130445 "Word Templates Test Table 3" fields { - field(1; "Id"; Guid) + field(1; Id; Guid) { } field(2; "Value"; Text[100]) @@ -36,7 +36,7 @@ table 130445 "Word Templates Test Table 3" keys { - key(PK; "Id") + key(PK; Id) { Clustered = true; } From 7eac199b211a984df522ecba1d16528091af790d Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Fri, 1 Dec 2023 10:51:18 +0100 Subject: [PATCH 04/10] Second pass System App Test Cleanup --- .../Guided Experience/src/Manual Setup/MyManualSetup.Page.al | 3 --- .../Page Action Provider/src/EmptyCardPageActionTest.Page.al | 3 --- .../Page Summary Provider/src/PageSummaryEmptyPage.Page.al | 3 --- 3 files changed, 9 deletions(-) diff --git a/src/System Application/Test Library/Guided Experience/src/Manual Setup/MyManualSetup.Page.al b/src/System Application/Test Library/Guided Experience/src/Manual Setup/MyManualSetup.Page.al index 285b7285cc..bd7f527160 100644 --- a/src/System Application/Test Library/Guided Experience/src/Manual Setup/MyManualSetup.Page.al +++ b/src/System Application/Test Library/Guided Experience/src/Manual Setup/MyManualSetup.Page.al @@ -12,8 +12,5 @@ page 134934 "My Manual Setup" ApplicationArea = All; UsageCategory = Administration; - actions - { - } } diff --git a/src/System Application/Test Library/Page Action Provider/src/EmptyCardPageActionTest.Page.al b/src/System Application/Test Library/Page Action Provider/src/EmptyCardPageActionTest.Page.al index d3d80e9db5..f2b94a2da9 100644 --- a/src/System Application/Test Library/Page Action Provider/src/EmptyCardPageActionTest.Page.al +++ b/src/System Application/Test Library/Page Action Provider/src/EmptyCardPageActionTest.Page.al @@ -9,9 +9,6 @@ page 132616 "Empty Card Page Action Test" { PageType = Card; - actions - { - } } diff --git a/src/System Application/Test Library/Page Summary Provider/src/PageSummaryEmptyPage.Page.al b/src/System Application/Test Library/Page Summary Provider/src/PageSummaryEmptyPage.Page.al index 82b867fa09..a5df40420a 100644 --- a/src/System Application/Test Library/Page Summary Provider/src/PageSummaryEmptyPage.Page.al +++ b/src/System Application/Test Library/Page Summary Provider/src/PageSummaryEmptyPage.Page.al @@ -9,9 +9,6 @@ page 132549 "Page Summary Empty Page" { PageType = Card; - actions - { - } } From a3d2c8381014025c2474f1f3d4a8527cf10fa4a5 Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Fri, 1 Dec 2023 11:05:59 +0100 Subject: [PATCH 05/10] Cleanup system app second round --- .../App/Default Role Center/src/BlankRoleCenter.Page.al | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/System Application/App/Default Role Center/src/BlankRoleCenter.Page.al b/src/System Application/App/Default Role Center/src/BlankRoleCenter.Page.al index 35773d82c4..9fcc8bdf3f 100644 --- a/src/System Application/App/Default Role Center/src/BlankRoleCenter.Page.al +++ b/src/System Application/App/Default Role Center/src/BlankRoleCenter.Page.al @@ -15,9 +15,6 @@ page 8999 "Blank Role Center" InherentEntitlements = X; InherentPermissions = X; - actions - { - } } From 5704b5ffd1bdd508ec2615be3ab5644d4cbc8626 Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Fri, 1 Dec 2023 11:39:16 +0100 Subject: [PATCH 06/10] Revert bad changes --- .../permissions/AADUserManagementObjects.PermissionSet.al | 2 +- .../App/Cues and KPIs/src/CuesAndKPIsImpl.Codeunit.al | 2 +- .../Permissions/DefaultRoleCenterRead.PermissionSet.al | 2 +- .../Default Role Center/src/DefaultRoleCenterImpl.Codeunit.al | 2 +- .../App/Edit in Excel/src/EditinExcelImpl.Codeunit.al | 2 +- .../App/Email/permissions/EmailObjects.PermissionSet.al | 2 +- .../App/Email/permissions/EmailRead.PermissionSet.al | 4 ++-- .../App/Email/src/EmailLogsDelete.Codeunit.al | 2 +- .../Entity Text/permissions/EntityTextEdit.PermissionSet.al | 2 +- .../permissions/ExtenMgtAdmin.PermissionSet.al | 2 +- .../permissions/ExtensionManagementObjects.PermissionSet.al | 2 +- .../Extension Management/src/ExtensionMarketplace.Codeunit.al | 2 +- .../App/Feature Key/src/FeatureKeyBuffer.Table.al | 2 +- .../App/Feature Key/src/FeatureManagement.Page.al | 2 +- .../permissions/FieldSelectionRead.PermissionSet.al | 2 +- .../permissions/GuidedExperienceEdit.PermissionSet.al | 2 +- .../permissions/GuidedExperienceRead.PermissionSet.al | 4 ++-- .../permissions/GuidedExperienceView.PermissionSet.al | 2 +- .../App/Language/permissions/LanguageObjects.PermissionSet.al | 2 +- .../permissions/ObjectSelectionRead.PermissionSet.al | 2 +- .../permissions/PageActionProviderRead.PermissionSet.al | 2 +- .../src/PageActionProviderImpl.Codeunit.al | 2 +- .../permissions/PageSummaryProviderObj.PermissionSet.al | 2 +- .../App/Page Summary Provider/src/PageSummarySettings.Page.al | 2 +- .../permissions/PrivacyNoticeObjects.PermissionSet.al | 2 +- .../App/Privacy Notice/src/PrivacyNoticeImpl.Codeunit.al | 2 +- .../permissions/RetentionPolicyObjects.PermissionSet.al | 2 +- .../permissions/SecurityGroupsAdmin.PermissionSet.al | 2 +- .../permissions/SecurityGroupsObjects.PermissionSet.al | 2 +- .../App/Security Groups/src/SecurityGroupImpl.Codeunit.al | 2 +- 30 files changed, 32 insertions(+), 32 deletions(-) diff --git a/src/System Application/App/Azure AD User Management/permissions/AADUserManagementObjects.PermissionSet.al b/src/System Application/App/Azure AD User Management/permissions/AADUserManagementObjects.PermissionSet.al index d7a96f1090..5371debb79 100644 --- a/src/System Application/App/Azure AD User Management/permissions/AADUserManagementObjects.PermissionSet.al +++ b/src/System Application/App/Azure AD User Management/permissions/AADUserManagementObjects.PermissionSet.al @@ -11,5 +11,5 @@ permissionset 9010 "AAD User Management - Objects" Assignable = false; Permissions = page "Azure AD User Updates Part" = X, -page "Azure AD User Update Wizard" = X; + page "Azure AD User Update Wizard" = X; } diff --git a/src/System Application/App/Cues and KPIs/src/CuesAndKPIsImpl.Codeunit.al b/src/System Application/App/Cues and KPIs/src/CuesAndKPIsImpl.Codeunit.al index 95b7f61671..8eb22a033c 100644 --- a/src/System Application/App/Cues and KPIs/src/CuesAndKPIsImpl.Codeunit.al +++ b/src/System Application/App/Cues and KPIs/src/CuesAndKPIsImpl.Codeunit.al @@ -11,7 +11,7 @@ using System.Environment; codeunit 9702 "Cues And KPIs Impl." { Permissions = tabledata "Cue Setup" = rimd, -tabledata Field = r; + tabledata Field = r; Access = Internal; InherentEntitlements = X; InherentPermissions = X; diff --git a/src/System Application/App/Default Role Center/Permissions/DefaultRoleCenterRead.PermissionSet.al b/src/System Application/App/Default Role Center/Permissions/DefaultRoleCenterRead.PermissionSet.al index e094f4510b..05a3c08328 100644 --- a/src/System Application/App/Default Role Center/Permissions/DefaultRoleCenterRead.PermissionSet.al +++ b/src/System Application/App/Default Role Center/Permissions/DefaultRoleCenterRead.PermissionSet.al @@ -13,5 +13,5 @@ permissionset 9171 "Default Role Center - Read" Assignable = false; Permissions = tabledata AllObjWithCaption = r, -tabledata "All Profile" = r; + tabledata "All Profile" = r; } \ No newline at end of file diff --git a/src/System Application/App/Default Role Center/src/DefaultRoleCenterImpl.Codeunit.al b/src/System Application/App/Default Role Center/src/DefaultRoleCenterImpl.Codeunit.al index 1331557cf5..9cfce4d3c7 100644 --- a/src/System Application/App/Default Role Center/src/DefaultRoleCenterImpl.Codeunit.al +++ b/src/System Application/App/Default Role Center/src/DefaultRoleCenterImpl.Codeunit.al @@ -14,7 +14,7 @@ codeunit 9171 "Default Role Center Impl." InherentEntitlements = X; InherentPermissions = X; Permissions = tabledata AllObjWithCaption = r, -tabledata "All Profile" = rm; + tabledata "All Profile" = rm; // // Gets the default Role Center ID for the current user. diff --git a/src/System Application/App/Edit in Excel/src/EditinExcelImpl.Codeunit.al b/src/System Application/App/Edit in Excel/src/EditinExcelImpl.Codeunit.al index a8dbe0a5d8..125623d115 100644 --- a/src/System Application/App/Edit in Excel/src/EditinExcelImpl.Codeunit.al +++ b/src/System Application/App/Edit in Excel/src/EditinExcelImpl.Codeunit.al @@ -23,7 +23,7 @@ codeunit 1482 "Edit in Excel Impl." Permissions = tabledata "Tenant Web Service" = r, tabledata "Tenant Web Service Columns" = rimd, tabledata "Tenant Web Service Filter" = rimd, -tabledata "Tenant Web Service OData" = rimd; + tabledata "Tenant Web Service OData" = rimd; #endif var diff --git a/src/System Application/App/Email/permissions/EmailObjects.PermissionSet.al b/src/System Application/App/Email/permissions/EmailObjects.PermissionSet.al index 0520239e38..08de293b1d 100644 --- a/src/System Application/App/Email/permissions/EmailObjects.PermissionSet.al +++ b/src/System Application/App/Email/permissions/EmailObjects.PermissionSet.al @@ -19,7 +19,7 @@ permissionset 8906 "Email - Objects" table "Email Scenario Attachments" = X, table "Sent Email" = X, codeunit Email = X, -codeunit "Email Account" = X, + codeunit "Email Account" = X, codeunit "Email Address Lookup" = X, codeunit "Email Dispatcher" = X, codeunit "Email Message" = X, diff --git a/src/System Application/App/Email/permissions/EmailRead.PermissionSet.al b/src/System Application/App/Email/permissions/EmailRead.PermissionSet.al index c0e5bcdeb6..9c11799e06 100644 --- a/src/System Application/App/Email/permissions/EmailRead.PermissionSet.al +++ b/src/System Application/App/Email/permissions/EmailRead.PermissionSet.al @@ -19,7 +19,7 @@ permissionset 8900 "Email - Read" "Retention Policy - View"; Permissions = tabledata "Email Attachments" = r, -tabledata "Email Connector Logo" = r, + tabledata "Email Connector Logo" = r, tabledata "Email Error" = r, tabledata "Email Message" = r, tabledata "Email Message Attachment" = r, @@ -31,7 +31,7 @@ tabledata "Email Connector Logo" = r, tabledata "Email Scenario Attachments" = r, tabledata "Email View Policy" = r, tabledata Field = r, - tabledata Media = r, + tabledata Media = r, // Email Account Wizard requires this tabledata "Media Resources" = r, tabledata "Sent Email" = r, tabledata "Tenant Media" = r, diff --git a/src/System Application/App/Email/src/EmailLogsDelete.Codeunit.al b/src/System Application/App/Email/src/EmailLogsDelete.Codeunit.al index 1e05c95d95..7f0781a240 100644 --- a/src/System Application/App/Email/src/EmailLogsDelete.Codeunit.al +++ b/src/System Application/App/Email/src/EmailLogsDelete.Codeunit.al @@ -13,7 +13,7 @@ codeunit 1598 "Email Logs Delete" InherentPermissions = X; InherentEntitlements = X; Permissions = tabledata "Email Outbox" = rd, -tabledata "Sent Email" = rd; + tabledata "Sent Email" = rd; var NoFiltersErr: Label 'No filters were set on table %1, %2. Please contact your Microsoft Partner for assistance.', Comment = '%1 = a id of a table (integer), %2 = the caption of the table.'; diff --git a/src/System Application/App/Entity Text/permissions/EntityTextEdit.PermissionSet.al b/src/System Application/App/Entity Text/permissions/EntityTextEdit.PermissionSet.al index 0f2323a964..6c3499ec08 100644 --- a/src/System Application/App/Entity Text/permissions/EntityTextEdit.PermissionSet.al +++ b/src/System Application/App/Entity Text/permissions/EntityTextEdit.PermissionSet.al @@ -17,5 +17,5 @@ permissionset 2012 "Entity Text - Edit" tabledata "Azure OpenAi Settings" = IMD, #pragma warning restore AL0432 #endif -tabledata "Entity Text" = IMD; + tabledata "Entity Text" = IMD; } \ No newline at end of file diff --git a/src/System Application/App/Extension Management/permissions/ExtenMgtAdmin.PermissionSet.al b/src/System Application/App/Extension Management/permissions/ExtenMgtAdmin.PermissionSet.al index 3b3e14edf8..720da8efa4 100644 --- a/src/System Application/App/Extension Management/permissions/ExtenMgtAdmin.PermissionSet.al +++ b/src/System Application/App/Extension Management/permissions/ExtenMgtAdmin.PermissionSet.al @@ -17,7 +17,7 @@ permissionset 2502 "Exten. Mgt. - Admin" "Guided Experience - View"; Permissions = tabledata "Application Dependency" = Rimd, -tabledata "Application Object Metadata" = Rimd, + tabledata "Application Object Metadata" = Rimd, // r needed for check CanManageExtensions tabledata "Application Resource" = Rimd, tabledata "Extension Pending Setup" = rimd, tabledata "Inplace Installed Application" = Rimd, diff --git a/src/System Application/App/Extension Management/permissions/ExtensionManagementObjects.PermissionSet.al b/src/System Application/App/Extension Management/permissions/ExtensionManagementObjects.PermissionSet.al index e4e5d43d84..3a2e20580d 100644 --- a/src/System Application/App/Extension Management/permissions/ExtensionManagementObjects.PermissionSet.al +++ b/src/System Application/App/Extension Management/permissions/ExtensionManagementObjects.PermissionSet.al @@ -15,7 +15,7 @@ permissionset 2504 "Extension Management - Objects" IncludedPermissionSets = "Guided Experience - Objects"; Permissions = table "Extension Installation" = X, -codeunit "Data Out Of Geo. App" = X, + codeunit "Data Out Of Geo. App" = X, codeunit "Extension Management" = X, codeunit "Extension Marketplace" = X, page "Delete Orphaned Extension Data" = X, diff --git a/src/System Application/App/Extension Management/src/ExtensionMarketplace.Codeunit.al b/src/System Application/App/Extension Management/src/ExtensionMarketplace.Codeunit.al index 44ecda2bae..a596e5dc92 100644 --- a/src/System Application/App/Extension Management/src/ExtensionMarketplace.Codeunit.al +++ b/src/System Application/App/Extension Management/src/ExtensionMarketplace.Codeunit.al @@ -29,7 +29,7 @@ codeunit 2501 "Extension Marketplace" { Access = Internal; Permissions = tabledata "Extension Pending Setup" = rimd, -tabledata "Published Application" = r; + tabledata "Published Application" = r; var HttpWebRequest: DotNet HttpWebRequest; diff --git a/src/System Application/App/Feature Key/src/FeatureKeyBuffer.Table.al b/src/System Application/App/Feature Key/src/FeatureKeyBuffer.Table.al index 3d7b85bd4d..7b2f74ea60 100644 --- a/src/System Application/App/Feature Key/src/FeatureKeyBuffer.Table.al +++ b/src/System Application/App/Feature Key/src/FeatureKeyBuffer.Table.al @@ -17,7 +17,7 @@ table 2609 "Feature Key Buffer" InherentPermissions = X; Permissions = tabledata "Feature Data Update Status" = r, tabledata "Feature Dependency" = r, -tabledata "Feature Key" = rm; + tabledata "Feature Key" = rm; fields { diff --git a/src/System Application/App/Feature Key/src/FeatureManagement.Page.al b/src/System Application/App/Feature Key/src/FeatureManagement.Page.al index e0bcfbe68d..90f12046e1 100644 --- a/src/System Application/App/Feature Key/src/FeatureManagement.Page.al +++ b/src/System Application/App/Feature Key/src/FeatureManagement.Page.al @@ -24,7 +24,7 @@ page 2610 "Feature Management" LinksAllowed = false; Extensible = false; Permissions = tabledata "Feature Data Update Status" = r, -tabledata "Feature Key" = rm; + tabledata "Feature Key" = rm; layout { diff --git a/src/System Application/App/Field Selection/permissions/FieldSelectionRead.PermissionSet.al b/src/System Application/App/Field Selection/permissions/FieldSelectionRead.PermissionSet.al index 5931ffd0d2..bbbd125b6f 100644 --- a/src/System Application/App/Field Selection/permissions/FieldSelectionRead.PermissionSet.al +++ b/src/System Application/App/Field Selection/permissions/FieldSelectionRead.PermissionSet.al @@ -12,5 +12,5 @@ permissionset 9806 "Field Selection - Read" Assignable = false; Permissions = tabledata Field = r, -tabledata "Page Data Personalization" = R; + tabledata "Page Data Personalization" = R; } \ No newline at end of file diff --git a/src/System Application/App/Guided Experience/permissions/GuidedExperienceEdit.PermissionSet.al b/src/System Application/App/Guided Experience/permissions/GuidedExperienceEdit.PermissionSet.al index 55ac4b3afb..313b69dabd 100644 --- a/src/System Application/App/Guided Experience/permissions/GuidedExperienceEdit.PermissionSet.al +++ b/src/System Application/App/Guided Experience/permissions/GuidedExperienceEdit.PermissionSet.al @@ -17,7 +17,7 @@ permissionset 1993 "Guided Experience - Edit" "Translation - Edit"; Permissions = tabledata "Checklist Item" = IMD, - tabledata "Checklist Item Role" = IMD, + tabledata "Checklist Item Role" = IMD, // the modify permissions are necessary for the Checklist Item Roles page to work correctly tabledata "Checklist Item User" = IMD, tabledata "Checklist Setup" = IMd, tabledata "Published Application" = imd, diff --git a/src/System Application/App/Guided Experience/permissions/GuidedExperienceRead.PermissionSet.al b/src/System Application/App/Guided Experience/permissions/GuidedExperienceRead.PermissionSet.al index 3fff5a2b11..321c9dad5a 100644 --- a/src/System Application/App/Guided Experience/permissions/GuidedExperienceRead.PermissionSet.al +++ b/src/System Application/App/Guided Experience/permissions/GuidedExperienceRead.PermissionSet.al @@ -21,9 +21,9 @@ permissionset 1991 "Guided Experience - Read" Permissions = tabledata AllObj = r, tabledata AllObjWithCaption = r, -tabledata "All Profile" = r, + tabledata "All Profile" = r, tabledata "Checklist Item" = R, - tabledata "Checklist Item Buffer" = r, + tabledata "Checklist Item Buffer" = r, // needed for Checklist page to be searchable tabledata "Checklist Item Role" = R, tabledata "Checklist Item User" = R, tabledata "Checklist Setup" = R, diff --git a/src/System Application/App/Guided Experience/permissions/GuidedExperienceView.PermissionSet.al b/src/System Application/App/Guided Experience/permissions/GuidedExperienceView.PermissionSet.al index 86291bc850..f78058a28d 100644 --- a/src/System Application/App/Guided Experience/permissions/GuidedExperienceView.PermissionSet.al +++ b/src/System Application/App/Guided Experience/permissions/GuidedExperienceView.PermissionSet.al @@ -18,7 +18,7 @@ permissionset 1992 "Guided Experience - View" Permissions = tabledata AllObj = r, tabledata "Checklist Item" = imd, - tabledata "Checklist Item Role" = imd, + tabledata "Checklist Item Role" = imd, // the modify permissions are necessary for the Checklist Item Roles page to work correctly tabledata "Checklist Item User" = imd, tabledata "Checklist Setup" = im, tabledata "Guided Experience Item" = imd, diff --git a/src/System Application/App/Language/permissions/LanguageObjects.PermissionSet.al b/src/System Application/App/Language/permissions/LanguageObjects.PermissionSet.al index 6afa0487ca..08ef8ed742 100644 --- a/src/System Application/App/Language/permissions/LanguageObjects.PermissionSet.al +++ b/src/System Application/App/Language/permissions/LanguageObjects.PermissionSet.al @@ -11,5 +11,5 @@ permissionset 164 "Language - Objects" Assignable = false; Permissions = page Languages = X, -page "Windows Languages" = X; + page "Windows Languages" = X; } diff --git a/src/System Application/App/Object Selection/permissions/ObjectSelectionRead.PermissionSet.al b/src/System Application/App/Object Selection/permissions/ObjectSelectionRead.PermissionSet.al index 417c367a39..0684a92b74 100644 --- a/src/System Application/App/Object Selection/permissions/ObjectSelectionRead.PermissionSet.al +++ b/src/System Application/App/Object Selection/permissions/ObjectSelectionRead.PermissionSet.al @@ -13,6 +13,6 @@ permissionset 358 "Object Selection - Read" Assignable = false; Permissions = tabledata AllObjWithCaption = r, -tabledata "Page Data Personalization" = R, + tabledata "Page Data Personalization" = R, tabledata "Published Application" = r; } diff --git a/src/System Application/App/Page Action Provider/permissions/PageActionProviderRead.PermissionSet.al b/src/System Application/App/Page Action Provider/permissions/PageActionProviderRead.PermissionSet.al index 1e27660bea..3327b16809 100644 --- a/src/System Application/App/Page Action Provider/permissions/PageActionProviderRead.PermissionSet.al +++ b/src/System Application/App/Page Action Provider/permissions/PageActionProviderRead.PermissionSet.al @@ -14,7 +14,7 @@ permissionset 2916 "Page Action Provider - Read" Assignable = false; Permissions = tabledata "All Profile" = r, -tabledata "Page Action" = r, + tabledata "Page Action" = r, tabledata "Page Data Personalization" = R, tabledata "User Personalization" = r; // DotNet NavPageActionALFunctions requires this } \ No newline at end of file diff --git a/src/System Application/App/Page Action Provider/src/PageActionProviderImpl.Codeunit.al b/src/System Application/App/Page Action Provider/src/PageActionProviderImpl.Codeunit.al index cdbaeb8487..aa0bd2aa09 100644 --- a/src/System Application/App/Page Action Provider/src/PageActionProviderImpl.Codeunit.al +++ b/src/System Application/App/Page Action Provider/src/PageActionProviderImpl.Codeunit.al @@ -19,7 +19,7 @@ codeunit 2916 "Page Action Provider Impl." InherentEntitlements = X; InherentPermissions = X; Permissions = tabledata "All Profile" = r, -tabledata "Page Action" = r, + tabledata "Page Action" = r, tabledata "User Personalization" = r; procedure GetCurrentRoleCenterHomeItems(IncludeViews: Boolean): Text diff --git a/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderObj.PermissionSet.al b/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderObj.PermissionSet.al index 4bce2bc177..a89da5977a 100644 --- a/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderObj.PermissionSet.al +++ b/src/System Application/App/Page Summary Provider/permissions/PageSummaryProviderObj.PermissionSet.al @@ -11,7 +11,7 @@ permissionset 2716 "Page Summary Provider - Obj." Assignable = false; Permissions = table "Page Summary Settings" = X, -codeunit "Page Summary Provider" = X, + codeunit "Page Summary Provider" = X, codeunit "Page Summary Settings" = X, page "Page Summary Settings" = X; } diff --git a/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Page.al b/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Page.al index 79232845da..6cef5cf8c0 100644 --- a/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Page.al +++ b/src/System Application/App/Page Summary Provider/src/PageSummarySettings.Page.al @@ -20,7 +20,7 @@ page 2718 "Page Summary Settings" Extensible = false; AccessByPermission = tabledata "Page Summary Settings" = M; Permissions = tabledata Media = r, -tabledata "Media Resources" = r; + tabledata "Media Resources" = r; UsageCategory = Administration; layout diff --git a/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeObjects.PermissionSet.al b/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeObjects.PermissionSet.al index aa9c68fa4e..12eb85a237 100644 --- a/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeObjects.PermissionSet.al +++ b/src/System Application/App/Privacy Notice/permissions/PrivacyNoticeObjects.PermissionSet.al @@ -11,7 +11,7 @@ permissionset 1563 "Privacy Notice - Objects" Assignable = false; Permissions = table "Privacy Notice" = X, -codeunit "Privacy Notice" = X, + codeunit "Privacy Notice" = X, page "Power Automate Privacy Notice" = X, page "Privacy Notice" = X, page "Privacy Notice Approvals" = X, diff --git a/src/System Application/App/Privacy Notice/src/PrivacyNoticeImpl.Codeunit.al b/src/System Application/App/Privacy Notice/src/PrivacyNoticeImpl.Codeunit.al index 009ba6c718..04e6d3eb6c 100644 --- a/src/System Application/App/Privacy Notice/src/PrivacyNoticeImpl.Codeunit.al +++ b/src/System Application/App/Privacy Notice/src/PrivacyNoticeImpl.Codeunit.al @@ -13,7 +13,7 @@ codeunit 1565 "Privacy Notice Impl." InherentEntitlements = X; InherentPermissions = X; Permissions = tabledata Company = r, -tabledata "Privacy Notice" = im; + tabledata "Privacy Notice" = im; var EmptyGuid: Guid; diff --git a/src/System Application/App/Retention Policy/permissions/RetentionPolicyObjects.PermissionSet.al b/src/System Application/App/Retention Policy/permissions/RetentionPolicyObjects.PermissionSet.al index 395817d4dc..a104f7190e 100644 --- a/src/System Application/App/Retention Policy/permissions/RetentionPolicyObjects.PermissionSet.al +++ b/src/System Application/App/Retention Policy/permissions/RetentionPolicyObjects.PermissionSet.al @@ -13,7 +13,7 @@ permissionset 3906 "Retention Policy - Objects" Permissions = table "Retention Period" = X, table "Retention Policy Setup" = X, table "Retention Policy Setup Line" = X, -codeunit "Apply Retention Policy" = X, + codeunit "Apply Retention Policy" = X, codeunit "Reten. Pol. Allowed Tables" = X, codeunit "Retention Policy Log" = X, codeunit "Retention Policy Setup" = X, diff --git a/src/System Application/App/Security Groups/permissions/SecurityGroupsAdmin.PermissionSet.al b/src/System Application/App/Security Groups/permissions/SecurityGroupsAdmin.PermissionSet.al index 514d504872..6717a4c704 100644 --- a/src/System Application/App/Security Groups/permissions/SecurityGroupsAdmin.PermissionSet.al +++ b/src/System Application/App/Security Groups/permissions/SecurityGroupsAdmin.PermissionSet.al @@ -13,6 +13,6 @@ permissionset 9022 "Security Groups - Admin" IncludedPermissionSets = "Security Groups - Read"; Permissions = tabledata "Access Control" = imd, -tabledata "Security Group" = imd, + tabledata "Security Group" = imd, tabledata User = md; } diff --git a/src/System Application/App/Security Groups/permissions/SecurityGroupsObjects.PermissionSet.al b/src/System Application/App/Security Groups/permissions/SecurityGroupsObjects.PermissionSet.al index cf360b4e6e..84d6002b02 100644 --- a/src/System Application/App/Security Groups/permissions/SecurityGroupsObjects.PermissionSet.al +++ b/src/System Application/App/Security Groups/permissions/SecurityGroupsObjects.PermissionSet.al @@ -11,7 +11,7 @@ permissionset 9031 "Security Groups - Objects" Assignable = false; Permissions = table "Security Group" = X, -codeunit "Security Group" = X, + codeunit "Security Group" = X, page "Copy Security Group" = X, page "New Security Group" = X, page "Sec. Group Permissions Part" = X, diff --git a/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al b/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al index 655aa05bdc..2353949597 100644 --- a/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al +++ b/src/System Application/App/Security Groups/src/SecurityGroupImpl.Codeunit.al @@ -15,7 +15,7 @@ codeunit 9871 "Security Group Impl." InherentEntitlements = X; InherentPermissions = X; Permissions = tabledata "Security Group" = rimd, -tabledata User = rimd, + tabledata User = rimd, tabledata "User Property" = rimd; var From 66415a682ddfa3e417156fe0d506cfb69aad3694 Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Fri, 1 Dec 2023 12:37:16 +0100 Subject: [PATCH 07/10] Fix DotNet triggers --- .../App/Camera and Media Interaction/src/Camera.Page.al | 2 +- .../App/Camera and Media Interaction/src/MediaUpload.Page.al | 2 +- .../App/Geolocation/src/Geolocation.Page.al | 2 +- .../src/Checklist Banner/ChecklistBanner.Page.al | 4 ++-- .../Permission Sets/src/LogActivityPermissions.Codeunit.al | 2 +- 5 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al b/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al index cc1293bf67..d7084bbfcc 100644 --- a/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al +++ b/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al @@ -141,7 +141,7 @@ page 1908 Camera CameraPageImpl.GetPicture(InStream); end; - trigger CameraProvider::"CameraProvider::PictureAvailable"(PictureName: Text; PictureFilePath: Text) + trigger CameraProvider::PictureAvailable"(PictureName: Text; PictureFilePath: Text) begin CameraPageImpl.CameraInteractionOnPictureAvailable(PictureFilePath); CurrPage.Close(); diff --git a/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al b/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al index 06fe5fb887..d5e4b142e8 100644 --- a/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al +++ b/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al @@ -128,7 +128,7 @@ page 1909 "Media Upload" MediaUploadPageImpl.GetMedia(InStream); end; - trigger CameraProvider::"CameraProvider::PictureAvailable"(FileName: Text; FilePath: Text) + trigger CameraProvider::PictureAvailable"(FileName: Text; FilePath: Text) begin MediaUploadPageImpl.MediaInteractionOnPictureAvailable(FilePath); CurrPage.Close(); diff --git a/src/System Application/App/Geolocation/src/Geolocation.Page.al b/src/System Application/App/Geolocation/src/Geolocation.Page.al index cf8d85fe09..8c66b79e73 100644 --- a/src/System Application/App/Geolocation/src/Geolocation.Page.al +++ b/src/System Application/App/Geolocation/src/Geolocation.Page.al @@ -60,7 +60,7 @@ page 7568 Geolocation GeolocationImpl.LocationInteractionOnOpenPage(LocationProvider, LocationAvailable); end; - trigger LocationProvider::"LocationProvider::LocationChanged"(NewLocation: DotNet Location) + trigger LocationProvider::LocationChanged"(NewLocation: DotNet Location) begin GeolocationImpl.LocationInteractionOnLocationAvailable(NewLocation); CurrPage.Close(); diff --git a/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al b/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al index fab87ea86d..fcfdc94d34 100644 --- a/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al +++ b/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al @@ -378,7 +378,7 @@ page 1990 "Checklist Banner" ChecklistImplementation.SetChecklistVisibility(UserId(), false); end; - trigger Tour::"Tour::TourEnded"(PageId: Integer; Completed: Boolean; Data: Text) + trigger Tour::TourEnded"(PageId: Integer; Completed: Boolean; Data: Text) var ChecklistItemCode: Code[300]; begin @@ -387,7 +387,7 @@ page 1990 "Checklist Banner" ChecklistItemCode := 'dummy value'; // this line is here because of bug 409754 end; - trigger Tour::"Tour::SpotlightTourEnded"(PageId: Integer; SpotlightTour: DotNet SpotlightTour; Completed: Boolean; Data: Text) + trigger Tour::SpotlightTourEnded"(PageId: Integer; SpotlightTour: DotNet SpotlightTour; Completed: Boolean; Data: Text) var ChecklistItemCode: Code[300]; begin diff --git a/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al b/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al index aa3a2cf955..cff326f853 100644 --- a/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al +++ b/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al @@ -142,7 +142,7 @@ codeunit 9802 "Log Activity Permissions" begin end; - trigger EventReceiver::"EventReceiver::OnPermissionCheckEvent"(sender: Variant; e: DotNet PermissionCheckEventArgs) + trigger EventReceiver::OnPermissionCheckEvent"(sender: Variant; e: DotNet PermissionCheckEventArgs) begin case e.EventId of 801: From 22776d4eb1163da1938590417362a30b56310d68 Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Fri, 1 Dec 2023 12:38:11 +0100 Subject: [PATCH 08/10] Remove empty lines --- src/System Application/App/Data Compression/src/dotnet.al | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/System Application/App/Data Compression/src/dotnet.al b/src/System Application/App/Data Compression/src/dotnet.al index 4ab4861750..d1f71f16cf 100644 --- a/src/System Application/App/Data Compression/src/dotnet.al +++ b/src/System Application/App/Data Compression/src/dotnet.al @@ -7,8 +7,6 @@ namespace System.IO; dotnet { - - assembly("netstandard") { type("System.IO.Compression.ZipArchive"; "ZipArchive") From a46b79d3c8a277d3a1c204d1e7312d53dd596d58 Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Fri, 1 Dec 2023 12:45:01 +0100 Subject: [PATCH 09/10] remove excessive quotes --- .../App/Camera and Media Interaction/src/Camera.Page.al | 2 +- .../App/Camera and Media Interaction/src/MediaUpload.Page.al | 2 +- .../App/Geolocation/src/Geolocation.Page.al | 2 +- .../src/Checklist Banner/ChecklistBanner.Page.al | 4 ++-- .../Permission Sets/src/LogActivityPermissions.Codeunit.al | 2 +- 5 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al b/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al index d7084bbfcc..0f5e3e00ce 100644 --- a/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al +++ b/src/System Application/App/Camera and Media Interaction/src/Camera.Page.al @@ -141,7 +141,7 @@ page 1908 Camera CameraPageImpl.GetPicture(InStream); end; - trigger CameraProvider::PictureAvailable"(PictureName: Text; PictureFilePath: Text) + trigger CameraProvider::PictureAvailable(PictureName: Text; PictureFilePath: Text) begin CameraPageImpl.CameraInteractionOnPictureAvailable(PictureFilePath); CurrPage.Close(); diff --git a/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al b/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al index d5e4b142e8..3ebb5eb8d2 100644 --- a/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al +++ b/src/System Application/App/Camera and Media Interaction/src/MediaUpload.Page.al @@ -128,7 +128,7 @@ page 1909 "Media Upload" MediaUploadPageImpl.GetMedia(InStream); end; - trigger CameraProvider::PictureAvailable"(FileName: Text; FilePath: Text) + trigger CameraProvider::PictureAvailable(FileName: Text; FilePath: Text) begin MediaUploadPageImpl.MediaInteractionOnPictureAvailable(FilePath); CurrPage.Close(); diff --git a/src/System Application/App/Geolocation/src/Geolocation.Page.al b/src/System Application/App/Geolocation/src/Geolocation.Page.al index 8c66b79e73..9bb0d20e42 100644 --- a/src/System Application/App/Geolocation/src/Geolocation.Page.al +++ b/src/System Application/App/Geolocation/src/Geolocation.Page.al @@ -60,7 +60,7 @@ page 7568 Geolocation GeolocationImpl.LocationInteractionOnOpenPage(LocationProvider, LocationAvailable); end; - trigger LocationProvider::LocationChanged"(NewLocation: DotNet Location) + trigger LocationProvider::LocationChanged(NewLocation: DotNet Location) begin GeolocationImpl.LocationInteractionOnLocationAvailable(NewLocation); CurrPage.Close(); diff --git a/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al b/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al index fcfdc94d34..69db1c5d7f 100644 --- a/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al +++ b/src/System Application/App/Guided Experience/src/Checklist Banner/ChecklistBanner.Page.al @@ -378,7 +378,7 @@ page 1990 "Checklist Banner" ChecklistImplementation.SetChecklistVisibility(UserId(), false); end; - trigger Tour::TourEnded"(PageId: Integer; Completed: Boolean; Data: Text) + trigger Tour::TourEnded(PageId: Integer; Completed: Boolean; Data: Text) var ChecklistItemCode: Code[300]; begin @@ -387,7 +387,7 @@ page 1990 "Checklist Banner" ChecklistItemCode := 'dummy value'; // this line is here because of bug 409754 end; - trigger Tour::SpotlightTourEnded"(PageId: Integer; SpotlightTour: DotNet SpotlightTour; Completed: Boolean; Data: Text) + trigger Tour::SpotlightTourEnded(PageId: Integer; SpotlightTour: DotNet SpotlightTour; Completed: Boolean; Data: Text) var ChecklistItemCode: Code[300]; begin diff --git a/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al b/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al index cff326f853..77549416d3 100644 --- a/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al +++ b/src/System Application/App/Permission Sets/src/LogActivityPermissions.Codeunit.al @@ -142,7 +142,7 @@ codeunit 9802 "Log Activity Permissions" begin end; - trigger EventReceiver::OnPermissionCheckEvent"(sender: Variant; e: DotNet PermissionCheckEventArgs) + trigger EventReceiver::OnPermissionCheckEvent(sender: Variant; e: DotNet PermissionCheckEventArgs) begin case e.EventId of 801: From 74ea1e5d626bc201ceb09204b993ece506b4fa05 Mon Sep 17 00:00:00 2001 From: Andreas Moth Date: Fri, 1 Dec 2023 13:16:33 +0100 Subject: [PATCH 10/10] Fix bad reference to Rec --- .../Custom Permissions/CustomPermissionSetInPlan.Page.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/System Application/App/Azure AD Plan/src/Plan Configuration/Custom Permissions/CustomPermissionSetInPlan.Page.al b/src/System Application/App/Azure AD Plan/src/Plan Configuration/Custom Permissions/CustomPermissionSetInPlan.Page.al index 09ead47497..1ec1d74978 100644 --- a/src/System Application/App/Azure AD Plan/src/Plan Configuration/Custom Permissions/CustomPermissionSetInPlan.Page.al +++ b/src/System Application/App/Azure AD Plan/src/Plan Configuration/Custom Permissions/CustomPermissionSetInPlan.Page.al @@ -76,7 +76,7 @@ page 9058 "Custom Permission Set In Plan" end; // Get the Scope and App ID for a matching Role ID - AggregatePermissionSet.SetRange(Rec."Role ID", Rec."Role ID"); + AggregatePermissionSet.SetRange("Role ID", Rec."Role ID"); AggregatePermissionSet.FindFirst(); if AggregatePermissionSet.Count > 1 then