From 35fc038cdc6a91d1c5e4e46b07fccca6fb073295 Mon Sep 17 00:00:00 2001 From: jaymckinney Date: Mon, 9 Dec 2024 10:21:33 -0500 Subject: [PATCH] Always check to see if the new IRS Forms feature is enabled. Initialize the original/old IRS 1099 Forms feature if required. --- .../Codeunits/GPCloudMigrationUS.Codeunit.al | 26 ++++++++++++++----- 1 file changed, 19 insertions(+), 7 deletions(-) diff --git a/Apps/US/HybridGP_US/app/src/Codeunits/GPCloudMigrationUS.Codeunit.al b/Apps/US/HybridGP_US/app/src/Codeunits/GPCloudMigrationUS.Codeunit.al index 5f11fabab8..e68c43215d 100644 --- a/Apps/US/HybridGP_US/app/src/Codeunits/GPCloudMigrationUS.Codeunit.al +++ b/Apps/US/HybridGP_US/app/src/Codeunits/GPCloudMigrationUS.Codeunit.al @@ -3,9 +3,11 @@ namespace Microsoft.DataMigration.GP; using System.Integration; #if not CLEAN25 using System.Environment.Configuration; +using Microsoft.Finance.VAT.Reporting; #endif using Microsoft.Purchases.Vendor; + codeunit 42004 "GP Cloud Migration US" { var @@ -31,6 +33,9 @@ codeunit 42004 "GP Cloud Migration US" begin if GPCompanyAdditionalSettings.GetMigrateVendor1099Enabled() then begin EnsureSupportedReportingYear(); +#if not CLEAN25 + EnsureOriginalIRS1099FeatureInitializedIfNeeded(); +#endif SetupIRSFormsFeatureIfNeeded(); BindSubscription(GPPopulateVendor1099Data); GPPopulateVendor1099Data.Run(); @@ -73,17 +78,10 @@ codeunit 42004 "GP Cloud Migration US" internal procedure IsIRSFormsFeatureEnabled(): Boolean var -#if not CLEAN25 FeatureManagementFacade: Codeunit "Feature Management Facade"; -#endif IsEnabled: Boolean; begin - IsEnabled := true; - -#if not CLEAN25 IsEnabled := FeatureManagementFacade.IsEnabled(IRSFormFeatureKeyIdTok); -#endif - exit(IsEnabled); end; @@ -101,4 +99,18 @@ codeunit 42004 "GP Cloud Migration US" GPIRSFormData.CreateIRSFormsReportingPeriodIfNeeded(ReportingYear); end; + +#if not CLEAN25 + local procedure EnsureOriginalIRS1099FeatureInitializedIfNeeded() + var +#pragma warning disable AL0432 + IRS1099FormBox: Record "IRS 1099 Form-Box"; +#pragma warning restore AL0432 + begin + if IsIRSFormsFeatureEnabled() then + exit; + + IRS1099FormBox.InitIRS1099FormBoxes(); + end; +#endif } \ No newline at end of file