From 09a6edafda5c508ce56ae1e39c9f237b3ce7d5a1 Mon Sep 17 00:00:00 2001 From: Jose-agg Date: Wed, 4 Feb 2026 12:58:37 +0100 Subject: [PATCH 1/3] Added changes --- .../App/src/Document/EDocument.Page.al | 5 -- .../App/src/Document/EDocuments.Page.al | 13 ---- .../App/src/Document/EDocumentsSetup.Table.al | 64 ------------------- .../Inbound/InboundEDocFactbox.Page.al | 3 +- .../Inbound/InboundEDocuments.Page.al | 8 --- .../Outbound/OutboundEDocuments.Page.al | 9 --- .../Purchase/EDocumentPurchaseDraft.Page.al | 3 - .../App/src/Service/EDocumentService.Table.al | 4 -- 8 files changed, 1 insertion(+), 108 deletions(-) diff --git a/src/Apps/W1/EDocument/App/src/Document/EDocument.Page.al b/src/Apps/W1/EDocument/App/src/Document/EDocument.Page.al index ec029073b5..b928263b81 100644 --- a/src/Apps/W1/EDocument/App/src/Document/EDocument.Page.al +++ b/src/Apps/W1/EDocument/App/src/Document/EDocument.Page.al @@ -311,7 +311,6 @@ page 6121 "E-Document" Caption = 'View file'; ToolTip = 'View the source file.'; Image = ViewDetails; - Visible = NewEDocumentExperienceActive; trigger OnAction() begin @@ -501,14 +500,11 @@ page 6121 "E-Document" } trigger OnOpenPage() - var - EDocumentsSetup: Record "E-Documents Setup"; begin ShowMapToOrder := false; HasErrorsOrWarnings := false; HasErrors := false; IsProcessed := false; - NewEDocumentExperienceActive := EDocumentsSetup.IsNewEDocumentExperienceActive(); if Rec."Entry No" <> 0 then Rec.SetRecFilter(); // Filter the record to only this instance to avoid navigation @@ -632,7 +628,6 @@ page 6121 "E-Document" EDocumentErrorHelper: Codeunit "E-Document Error Helper"; EDocumentHelper: Codeunit "E-Document Processing"; ErrorsAndWarningsNotification: Notification; - NewEDocumentExperienceActive: Boolean; ShowClearanceInfo: Boolean; RecordLinkTxt, StyleStatusTxt : Text; ShowRelink, ShowMapToOrder, HasErrorsOrWarnings, HasErrors, IsIncomingDoc, IsProcessed, SubmitClearanceVisible : Boolean; diff --git a/src/Apps/W1/EDocument/App/src/Document/EDocuments.Page.al b/src/Apps/W1/EDocument/App/src/Document/EDocuments.Page.al index 1013ece46f..baf27df18f 100644 --- a/src/Apps/W1/EDocument/App/src/Document/EDocuments.Page.al +++ b/src/Apps/W1/EDocument/App/src/Document/EDocuments.Page.al @@ -97,7 +97,6 @@ page 6122 "E-Documents" Caption = 'View file'; ToolTip = 'View the source file.'; Image = ViewDetails; - Visible = NewEDocumentExperienceActive; trigger OnAction() begin @@ -111,7 +110,6 @@ page 6122 "E-Documents" { Caption = 'Inbound'; ToolTip = 'View inbound electronic documents.'; - Visible = NewEDocumentExperienceActive; RunObject = Page "Inbound E-Documents"; RunPageMode = View; Image = InwardEntry; @@ -120,7 +118,6 @@ page 6122 "E-Documents" { Caption = 'Outbound'; ToolTip = 'View outbound electronic documents.'; - Visible = NewEDocumentExperienceActive; RunObject = Page "Outbound E-Documents"; Image = OutboundEntry; } @@ -135,16 +132,6 @@ page 6122 "E-Documents" } } - var - NewEDocumentExperienceActive: Boolean; - - trigger OnOpenPage() - var - EDocumentsSetup: Record "E-Documents Setup"; - begin - NewEDocumentExperienceActive := EDocumentsSetup.IsNewEDocumentExperienceActive(); - end; - local procedure NewFromFile() var EDocument: Record "E-Document"; diff --git a/src/Apps/W1/EDocument/App/src/Document/EDocumentsSetup.Table.al b/src/Apps/W1/EDocument/App/src/Document/EDocumentsSetup.Table.al index 34fc6c1358..2f24520d8c 100644 --- a/src/Apps/W1/EDocument/App/src/Document/EDocumentsSetup.Table.al +++ b/src/Apps/W1/EDocument/App/src/Document/EDocumentsSetup.Table.al @@ -4,9 +4,6 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.eServices.EDocument; -using System.Azure.Identity; -using System.Environment; - table 6107 "E-Documents Setup" { Access = Internal; @@ -34,67 +31,6 @@ table 6107 "E-Documents Setup" } } - procedure IsNewEDocumentExperienceActive(): Boolean - var - EnvironmentInformation: Codeunit "Environment Information"; - TenantId: Text; - ListOfAvailableCountries: List of [Text]; - begin - Clear(Rec); - if Rec.FindFirst() then - if Rec."New E-Document Experience" then - exit(true); - - if TryGetAadTenantId(TenantId) then - if TenantId in [ - '7bfacc13-5977-43eb-ae75-63e4cbf78029', - '5d02776e-8cf2-4fae-8cac-a52cfdfbe90f', - 'f0ac72d1-c1b3-4c2a-a196-8fb82cac5934', - '4cde9473-edc6-464d-98c9-921bb36bab03', - '1fe0f01e-1d4a-4e55-86d7-c45a5b9bf1a6', - '62c3bd14-7298-4281-a12a-ec3a78c22957', - 'e5afa896-1f57-4c74-b9cd-65638c0f77da' - ] then - exit(true); - - if EnvironmentInformation.GetEnvironmentSetting('EnableNewEDocumentExperience') <> '' then - exit(true); - - ListOfAvailableCountries := GetListOfNewExperienceCountries(); - ListOfAvailableCountries.Add('W1'); - - exit(ListOfAvailableCountries.Contains(EnvironmentInformation.GetApplicationFamily())); - end; - - internal procedure GetListOfNewExperienceCountries(): List of [Text] - var - CountryList: List of [Text]; - begin - CountryList.Add('AU'); - CountryList.Add('BE'); - CountryList.Add('CA'); - CountryList.Add('DE'); - CountryList.Add('DK'); - CountryList.Add('ES'); - CountryList.Add('FR'); - CountryList.Add('GB'); - CountryList.Add('IT'); - CountryList.Add('NL'); - CountryList.Add('NO'); - CountryList.Add('NZ'); - CountryList.Add('SE'); - CountryList.Add('US'); - exit(CountryList); - end; - - [TryFunction] - local procedure TryGetAadTenantId(var TenantId: Text) - var - AzureADTenant: Codeunit "Azure AD Tenant"; - begin - TenantId := AzureADTenant.GetAadTenantId(); - end; - [InherentPermissions(PermissionObjectType::TableData, Database::"E-Documents Setup", 'I')] internal procedure InsertNewExperienceSetup() begin diff --git a/src/Apps/W1/EDocument/App/src/Document/Inbound/InboundEDocFactbox.Page.al b/src/Apps/W1/EDocument/App/src/Document/Inbound/InboundEDocFactbox.Page.al index 33c702e9fb..46ef84290d 100644 --- a/src/Apps/W1/EDocument/App/src/Document/Inbound/InboundEDocFactbox.Page.al +++ b/src/Apps/W1/EDocument/App/src/Document/Inbound/InboundEDocFactbox.Page.al @@ -144,10 +144,9 @@ page 6108 "Inbound E-Doc. Factbox" trigger OnOpenPage() var EDocument: Record "E-Document"; - EDocumentsSetup: Record "E-Documents Setup"; begin if EDocument.Get(Rec."E-Document Entry No") then; - ImportProcessingStatusVisible := EDocumentsSetup.IsNewEDocumentExperienceActive() and (EDocument.GetEDocumentService().GetImportProcessVersion() = Enum::"E-Document Import Process"::"Version 2.0"); + ImportProcessingStatusVisible := EDocument.GetEDocumentService().GetImportProcessVersion() = Enum::"E-Document Import Process"::"Version 2.0"; end; trigger OnAfterGetCurrRecord() diff --git a/src/Apps/W1/EDocument/App/src/Document/Inbound/InboundEDocuments.Page.al b/src/Apps/W1/EDocument/App/src/Document/Inbound/InboundEDocuments.Page.al index 5fac841168..c870f71fe0 100644 --- a/src/Apps/W1/EDocument/App/src/Document/Inbound/InboundEDocuments.Page.al +++ b/src/Apps/W1/EDocument/App/src/Document/Inbound/InboundEDocuments.Page.al @@ -460,14 +460,6 @@ page 6105 "Inbound E-Documents" AgentTaskStatus := Format(AgentTask.Status); end; - trigger OnOpenPage() - var - EDocumentsSetup: Record "E-Documents Setup"; - begin - if not EDocumentsSetup.IsNewEDocumentExperienceActive() then - Error(''); - end; - #region File Upload Actions local procedure NewFromFile(Files: List of [FileUpload]) diff --git a/src/Apps/W1/EDocument/App/src/Document/Outbound/OutboundEDocuments.Page.al b/src/Apps/W1/EDocument/App/src/Document/Outbound/OutboundEDocuments.Page.al index 0d608a5477..0b260f343c 100644 --- a/src/Apps/W1/EDocument/App/src/Document/Outbound/OutboundEDocuments.Page.al +++ b/src/Apps/W1/EDocument/App/src/Document/Outbound/OutboundEDocuments.Page.al @@ -98,13 +98,4 @@ page 6106 "Outbound E-Documents" actionref(Promoted_EDocumentServices; EDocumentServices) { } } } - - trigger OnOpenPage() - var - EDocumentsSetup: Record "E-Documents Setup"; - begin - if not EDocumentsSetup.IsNewEDocumentExperienceActive() then - Error(''); - end; - } diff --git a/src/Apps/W1/EDocument/App/src/Processing/Import/Purchase/EDocumentPurchaseDraft.Page.al b/src/Apps/W1/EDocument/App/src/Processing/Import/Purchase/EDocumentPurchaseDraft.Page.al index e1234e674b..6a3297d6e3 100644 --- a/src/Apps/W1/EDocument/App/src/Processing/Import/Purchase/EDocumentPurchaseDraft.Page.al +++ b/src/Apps/W1/EDocument/App/src/Processing/Import/Purchase/EDocumentPurchaseDraft.Page.al @@ -477,14 +477,11 @@ page 6181 "E-Document Purchase Draft" trigger OnOpenPage() var - EDocumentsSetup: Record "E-Documents Setup"; EDocumentDataStorage: Record "E-Doc. Data Storage"; EDocumentNotification: Codeunit "E-Document Notification"; EDocPOMatching: Codeunit "E-Doc. PO Matching"; MatchesRemovedMsg: Label 'This e-document was matched to purchase order lines, but the matches are no longer consistent with the current data. The matches have been removed'; begin - if not EDocumentsSetup.IsNewEDocumentExperienceActive() then - Error(''); if EDocumentPurchaseHeader.Get(Rec."Entry No") then; if not EDocPOMatching.IsPOMatchConsistent(EDocumentPurchaseHeader) then begin EDocPOMatching.RemoveAllMatchesForEDocument(EDocumentPurchaseHeader); diff --git a/src/Apps/W1/EDocument/App/src/Service/EDocumentService.Table.al b/src/Apps/W1/EDocument/App/src/Service/EDocumentService.Table.al index 91accb5b6e..659e2e7f86 100644 --- a/src/Apps/W1/EDocument/App/src/Service/EDocumentService.Table.al +++ b/src/Apps/W1/EDocument/App/src/Service/EDocumentService.Table.al @@ -356,11 +356,7 @@ table 6103 "E-Document Service" end; internal procedure GetImportProcessVersion(): Enum "E-Document Import Process" - var - EDocumentsSetup: Record "E-Documents Setup"; begin - if not EDocumentsSetup.IsNewEDocumentExperienceActive() then - exit("E-Document Import Process"::"Version 1.0"); exit(Rec."Import Process"); end; From dd3415647357e53f345506e7e28d2b2f607e85ff Mon Sep 17 00:00:00 2001 From: Jose-agg Date: Wed, 4 Feb 2026 13:21:41 +0100 Subject: [PATCH 2/3] Added changes --- .../Demo Data/1.Setup Data/CreateEDocumentSetup.Codeunit.al | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Apps/W1/EDocument/Demo Data/1.Setup Data/CreateEDocumentSetup.Codeunit.al b/src/Apps/W1/EDocument/Demo Data/1.Setup Data/CreateEDocumentSetup.Codeunit.al index cda857139c..48f7700414 100644 --- a/src/Apps/W1/EDocument/Demo Data/1.Setup Data/CreateEDocumentSetup.Codeunit.al +++ b/src/Apps/W1/EDocument/Demo Data/1.Setup Data/CreateEDocumentSetup.Codeunit.al @@ -62,8 +62,6 @@ codeunit 5374 "Create E-Document Setup" EDocumentsSetup: Record "E-Documents Setup"; EnvironmentInformation: Codeunit "Environment Information"; begin - if EDocumentsSetup.IsNewEDocumentExperienceActive() then - exit; if EnvironmentInformation.IsOnPrem() then EDocumentsSetup.InsertNewExperienceSetup(); end; From 480c233cd2a2abff616515c4c0ed530f71421802 Mon Sep 17 00:00:00 2001 From: Jose-agg Date: Thu, 12 Feb 2026 11:21:47 +0100 Subject: [PATCH 3/3] Obsolete table --- .../Permissions/EDocCoreObjects.PermissionSet.al | 4 ++++ .../App/src/Document/EDocumentsSetup.Table.al | 14 +++++++++++++- .../Processing/EDocumentSubscribers.Codeunit.al | 2 ++ .../1.Setup Data/CreateEDocumentSetup.Codeunit.al | 6 ++++++ .../Test/src/Processing/EDocE2ETest.Codeunit.al | 4 ++++ .../src/Processing/EDocFormatTests.Codeunit.al | 5 ++++- .../src/Processing/EDocProcessTest.Codeunit.al | 4 ++++ .../EDocumentStructuredTests.Codeunit.al | 4 ++++ 8 files changed, 41 insertions(+), 2 deletions(-) diff --git a/src/Apps/W1/EDocument/App/Permissions/EDocCoreObjects.PermissionSet.al b/src/Apps/W1/EDocument/App/Permissions/EDocCoreObjects.PermissionSet.al index f0ba7042ef..a2d73023de 100644 --- a/src/Apps/W1/EDocument/App/Permissions/EDocCoreObjects.PermissionSet.al +++ b/src/Apps/W1/EDocument/App/Permissions/EDocCoreObjects.PermissionSet.al @@ -43,7 +43,11 @@ permissionset 6100 "E-Doc. Core - Objects" table "E-Document Line Mapping" = X, table "E-Document Purchase Header" = X, table "E-Document Purchase Line" = X, +#if not CLEAN28 +#pragma warning disable AL0432 table "E-Documents Setup" = X, +#pragma warning restore AL0432 +#endif table "E-Document Line - Field" = X, table "ED Purchase Line Field Setup" = X, table "E-Doc Sample Purch. Inv File" = X, diff --git a/src/Apps/W1/EDocument/App/src/Document/EDocumentsSetup.Table.al b/src/Apps/W1/EDocument/App/src/Document/EDocumentsSetup.Table.al index 2f24520d8c..244f1dbd8d 100644 --- a/src/Apps/W1/EDocument/App/src/Document/EDocumentsSetup.Table.al +++ b/src/Apps/W1/EDocument/App/src/Document/EDocumentsSetup.Table.al @@ -1,3 +1,5 @@ + +#if not CLEANSCHEMA30 // ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. @@ -10,6 +12,15 @@ table 6107 "E-Documents Setup" InherentEntitlements = RIX; InherentPermissions = RX; ReplicateData = false; +#if not CLEAN28 + ObsoleteReason = 'Obsolete table, only used for storing the new experience flag.'; + ObsoleteState = Pending; + ObsoleteTag = '28.0'; +#else + ObsoleteReason = 'This table is obsolete and should not be used.'; + ObsoleteState = Removed; + ObsoleteTag = '30.0'; +#endif fields { @@ -41,4 +52,5 @@ table 6107 "E-Documents Setup" Rec.Insert(); end; -} \ No newline at end of file +} +#endif \ No newline at end of file diff --git a/src/Apps/W1/EDocument/App/src/Processing/EDocumentSubscribers.Codeunit.al b/src/Apps/W1/EDocument/App/src/Processing/EDocumentSubscribers.Codeunit.al index c992aa71fd..6f67069ee6 100644 --- a/src/Apps/W1/EDocument/App/src/Processing/EDocumentSubscribers.Codeunit.al +++ b/src/Apps/W1/EDocument/App/src/Processing/EDocumentSubscribers.Codeunit.al @@ -405,7 +405,9 @@ codeunit 6103 "E-Document Subscribers" begin DataClassificationEvalData.SetTableFieldsToNormal(Database::"E-Doc. Service Data Exch. Def."); DataClassificationEvalData.SetTableFieldsToNormal(Database::"E-Document"); +#if not CLEAN28 DataClassificationEvalData.SetTableFieldsToNormal(Database::"E-Documents Setup"); +#endif DataClassificationEvalData.SetTableFieldsToNormal(Database::"E-Doc. Data Storage"); DataClassificationEvalData.SetTableFieldsToNormal(Database::"E-Document Integration Log"); DataClassificationEvalData.SetTableFieldsToNormal(Database::"E-Document Log"); diff --git a/src/Apps/W1/EDocument/Demo Data/1.Setup Data/CreateEDocumentSetup.Codeunit.al b/src/Apps/W1/EDocument/Demo Data/1.Setup Data/CreateEDocumentSetup.Codeunit.al index 48f7700414..66e28c15fd 100644 --- a/src/Apps/W1/EDocument/Demo Data/1.Setup Data/CreateEDocumentSetup.Codeunit.al +++ b/src/Apps/W1/EDocument/Demo Data/1.Setup Data/CreateEDocumentSetup.Codeunit.al @@ -7,7 +7,9 @@ namespace Microsoft.eServices.EDocument.DemoData; using Microsoft.eServices.EDocument; using Microsoft.Foundation.Reporting; using System.Automation; +#if not CLEAN28 using System.Environment; +#endif #pragma warning disable AA0247 codeunit 5374 "Create E-Document Setup" @@ -17,7 +19,9 @@ codeunit 5374 "Create E-Document Setup" trigger OnRun() begin +#if not CLEAN28 CreateEDocumentsSetupWithNewExperience(); +#endif CreateEDocService(); CreateWorkflow(); CreateDocSendingProfile(); @@ -57,6 +61,7 @@ codeunit 5374 "Create E-Document Setup" if Workflow.Insert() then; end; +#if not CLEAN28 local procedure CreateEDocumentsSetupWithNewExperience() var EDocumentsSetup: Record "E-Documents Setup"; @@ -65,6 +70,7 @@ codeunit 5374 "Create E-Document Setup" if EnvironmentInformation.IsOnPrem() then EDocumentsSetup.InsertNewExperienceSetup(); end; +#endif local procedure CreateEDocService() var diff --git a/src/Apps/W1/EDocument/Test/src/Processing/EDocE2ETest.Codeunit.al b/src/Apps/W1/EDocument/Test/src/Processing/EDocE2ETest.Codeunit.al index e2fd1795d8..6a48c9a596 100644 --- a/src/Apps/W1/EDocument/Test/src/Processing/EDocE2ETest.Codeunit.al +++ b/src/Apps/W1/EDocument/Test/src/Processing/EDocE2ETest.Codeunit.al @@ -2052,7 +2052,9 @@ codeunit 139624 "E-Doc E2E Test" TransformationRule: Record "Transformation Rule"; EDocument: Record "E-Document"; EDocumentServiceStatus: Record "E-Document Service Status"; +#if not CLEAN28 EDocumentSetup: Record "E-Documents Setup"; +#endif Vendor: Record Vendor; Currency: Record Currency; LibraryERM: Codeunit "Library - ERM"; @@ -2073,7 +2075,9 @@ codeunit 139624 "E-Doc E2E Test" LibraryEDoc.SetupStandardSalesScenario(Customer, EDocumentService, Enum::"E-Document Format"::Mock, Integration); LibraryEDoc.SetupStandardPurchaseScenario(Vendor, EDocumentService, Enum::"E-Document Format"::Mock, Integration); EDocumentService.Modify(); +#if not CLEAN28 EDocumentSetup.InsertNewExperienceSetup(); +#endif // Set a currency that can be used across all localizations Currency.Init(); diff --git a/src/Apps/W1/EDocument/Test/src/Processing/EDocFormatTests.Codeunit.al b/src/Apps/W1/EDocument/Test/src/Processing/EDocFormatTests.Codeunit.al index d33eaa8327..ff786bb957 100644 --- a/src/Apps/W1/EDocument/Test/src/Processing/EDocFormatTests.Codeunit.al +++ b/src/Apps/W1/EDocument/Test/src/Processing/EDocFormatTests.Codeunit.al @@ -104,7 +104,9 @@ codeunit 139519 "E-Doc. Format Tests" TransformationRule: Record "Transformation Rule"; EDocument: Record "E-Document"; EDocDataStorage: Record "E-Doc. Data Storage"; +#if not CLEAN28 EDocumentsSetup: Record "E-Documents Setup"; +#endif EDocumentServiceStatus: Record "E-Document Service Status"; EDocPurchLineFieldSetup: Record "ED Purchase Line Field Setup"; PurchInvHeader: Record "Purch. Inv. Header"; @@ -145,8 +147,9 @@ codeunit 139519 "E-Doc. Format Tests" EDocumentService."Import Process" := "E-Document Import Process"::"Version 2.0"; EDocumentService."Read into Draft Impl." := "E-Doc. Read into Draft"::PEPPOL; EDocumentService.Modify(); +#if not CLEAN28 EDocumentsSetup.InsertNewExperienceSetup(); - +#endif TransformationRule.DeleteAll(); TransformationRule.CreateDefaultTransformations(); diff --git a/src/Apps/W1/EDocument/Test/src/Processing/EDocProcessTest.Codeunit.al b/src/Apps/W1/EDocument/Test/src/Processing/EDocProcessTest.Codeunit.al index 25d665dc35..94dd88128d 100644 --- a/src/Apps/W1/EDocument/Test/src/Processing/EDocProcessTest.Codeunit.al +++ b/src/Apps/W1/EDocument/Test/src/Processing/EDocProcessTest.Codeunit.al @@ -654,7 +654,9 @@ codeunit 139883 "E-Doc Process Test" TransformationRule: Record "Transformation Rule"; EDocument: Record "E-Document"; EDocDataStorage: Record "E-Doc. Data Storage"; +#if not CLEAN28 EDocumentsSetup: Record "E-Documents Setup"; +#endif EDocumentServiceStatus: Record "E-Document Service Status"; EDocPurchLineFieldSetup: Record "ED Purchase Line Field Setup"; PurchInvHeader: Record "Purch. Inv. Header"; @@ -695,7 +697,9 @@ codeunit 139883 "E-Doc Process Test" EDocumentService."Import Process" := "E-Document Import Process"::"Version 2.0"; EDocumentService."Read into Draft Impl." := "E-Doc. Read into Draft"::PEPPOL; EDocumentService.Modify(); +#if not CLEAN28 EDocumentsSetup.InsertNewExperienceSetup(); +#endif TransformationRule.DeleteAll(); TransformationRule.CreateDefaultTransformations(); diff --git a/src/Apps/W1/EDocument/Test/src/Processing/EDocumentStructuredTests.Codeunit.al b/src/Apps/W1/EDocument/Test/src/Processing/EDocumentStructuredTests.Codeunit.al index 20437586c4..c37bf69167 100644 --- a/src/Apps/W1/EDocument/Test/src/Processing/EDocumentStructuredTests.Codeunit.al +++ b/src/Apps/W1/EDocument/Test/src/Processing/EDocumentStructuredTests.Codeunit.al @@ -104,7 +104,9 @@ codeunit 139891 "E-Document Structured Tests" TransformationRule: Record "Transformation Rule"; EDocument: Record "E-Document"; EDocDataStorage: Record "E-Doc. Data Storage"; +#if not CLEAN28 EDocumentsSetup: Record "E-Documents Setup"; +#endif EDocumentServiceStatus: Record "E-Document Service Status"; EDocumentPurchaseHeader: Record "E-Document Purchase Header"; EDocumentPurchaseLine: Record "E-Document Purchase Line"; @@ -133,7 +135,9 @@ codeunit 139891 "E-Document Structured Tests" EDocumentService."Import Process" := "E-Document Import Process"::"Version 2.0"; EDocumentService."Read into Draft Impl." := "E-Doc. Read into Draft"::"PDF Mock"; EDocumentService.Modify(); +#if not CLEAN28 EDocumentsSetup.InsertNewExperienceSetup(); +#endif // Set a currency that can be used across all localizations Currency.Init();