diff --git a/build/scripts/Miapp/.miappsnap/d40e14c7cb3e742594763c1f34cb5f2fce07de6c.json b/build/scripts/Miapp/.miappsnap/d40e14c7cb3e742594763c1f34cb5f2fce07de6c.json new file mode 100644 index 00000000000..d45c1ec8d47 --- /dev/null +++ b/build/scripts/Miapp/.miappsnap/d40e14c7cb3e742594763c1f34cb5f2fce07de6c.json @@ -0,0 +1,7 @@ +[ + "src/Layers/ES/BaseApp/Sales/Pricing/CustInvoiceDisc.Table.al", + "src/Layers/APAC/BaseApp/Sales/Reports/CustomerItemSales.Report.al", + "src/Layers/APAC/BaseApp/Sales/Reports/SalespersonSalesStatistics.Report.al", + "src/Layers/ES/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al", + "src/Layers/IT/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al" +] diff --git a/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Common/CommonModuleAT.Codeunit.al b/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Common/CommonModuleAT.Codeunit.al deleted file mode 100644 index cdd269e64e6..00000000000 --- a/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Common/CommonModuleAT.Codeunit.al +++ /dev/null @@ -1,16 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.DemoData.Common; - -codeunit 11142 "Common Module AT" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Finance/1. Setup Data/CreateVatPostingGroupAT.Codeunit.al b/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Finance/1. Setup Data/CreateVatPostingGroupAT.Codeunit.al index 2de3125e476..6f7ae0364a1 100644 --- a/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Finance/1. Setup Data/CreateVatPostingGroupAT.Codeunit.al +++ b/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Finance/1. Setup Data/CreateVatPostingGroupAT.Codeunit.al @@ -97,24 +97,6 @@ codeunit 11186 "Create VAT Posting Group AT" FinanceModuleSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('This procedure is not used in the current version.', '27.0')] - procedure UpdateGeneralProdPostingGroup() - begin - - end; -#endif - -#if not CLEAN27 - [Obsolete('This procedure is moved to codeunit 5473 "Create VAT Posting Groups".', '27.0')] - procedure NOVAT(): Code[20] - var - CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; - begin - exit(CreateVATPostingGroups.NOVAT()); - end; -#endif - procedure VAT10(): Code[20] begin exit(VAT10Tok); diff --git a/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Inventory/2. Master Data/CreateItemChargeAT.Codeunit.al b/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Inventory/2. Master Data/CreateItemChargeAT.Codeunit.al deleted file mode 100644 index 13eb76331ad..00000000000 --- a/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Inventory/2. Master Data/CreateItemChargeAT.Codeunit.al +++ /dev/null @@ -1,20 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 11165 "Create Item Charge AT" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - -} -#endif \ No newline at end of file diff --git a/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Inventory/2. Master Data/CreateItemTemplateAT.Codeunit.al b/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Inventory/2. Master Data/CreateItemTemplateAT.Codeunit.al deleted file mode 100644 index da2d312d3bd..00000000000 --- a/src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Inventory/2. Master Data/CreateItemTemplateAT.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - - -codeunit 11166 "Create Item Template AT" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - -} -#endif \ No newline at end of file diff --git a/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Common/CommonModuleAU.Codeunit.al b/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Common/CommonModuleAU.Codeunit.al deleted file mode 100644 index 2d9573291e7..00000000000 --- a/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Common/CommonModuleAU.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 17109 "Common Module AU" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Finance/1.Setup Data/CreateAUVATPostingGroups.Codeunit.al b/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Finance/1.Setup Data/CreateAUVATPostingGroups.Codeunit.al index 3b315075563..faaae3a0c9f 100644 --- a/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Finance/1.Setup Data/CreateAUVATPostingGroups.Codeunit.al +++ b/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Finance/1.Setup Data/CreateAUVATPostingGroups.Codeunit.al @@ -83,25 +83,6 @@ codeunit 17121 "Create AU VAT Posting Groups" exit(NonGstTok); end; -#if not CLEAN27 - [Obsolete('Use Gst10() instead.', '27.0')] - procedure Vat10(): Code[20] - begin - exit(Gst10Tok); - end; - - [Obsolete('Use NonGst() instead.', '27.0')] - procedure NoVat(): Code[20] - begin - exit(NonGstTok); - end; - - [Obsolete('Use Gst10() instead.', '27.0')] - procedure Vat15(): Code[20] - begin - exit(Gst10Tok); - end; -#endif var Gst10Tok: Label 'GST10', MaxLength = 20, Locked = true; diff --git a/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Inventory/2.Master Data/CreateAUItemCharge.Codeunit.al b/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Inventory/2.Master Data/CreateAUItemCharge.Codeunit.al deleted file mode 100644 index 2226ecab697..00000000000 --- a/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Inventory/2.Master Data/CreateAUItemCharge.Codeunit.al +++ /dev/null @@ -1,20 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - - -codeunit 17120 "Create AU Item Charge" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Inventory/2.Master Data/CreateAUItemTemplate.Codeunit.al b/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Inventory/2.Master Data/CreateAUItemTemplate.Codeunit.al deleted file mode 100644 index 42c0cc8fdbc..00000000000 --- a/src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Inventory/2.Master Data/CreateAUItemTemplate.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 17122 "Create AU Item Template" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Common/CommonModuleBE.Codeunit.al b/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Common/CommonModuleBE.Codeunit.al deleted file mode 100644 index 6f458068f15..00000000000 --- a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Common/CommonModuleBE.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 11348 "Common Module BE" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Finance/1. Setup Data/CreateVATPostingGroupBE.Codeunit.al b/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Finance/1. Setup Data/CreateVATPostingGroupBE.Codeunit.al index 8021376cc5e..0757db07cc5 100644 --- a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Finance/1. Setup Data/CreateVATPostingGroupBE.Codeunit.al +++ b/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Finance/1. Setup Data/CreateVATPostingGroupBE.Codeunit.al @@ -148,13 +148,6 @@ codeunit 11365 "Create VAT Posting Group BE" until VatPostingSetup.Next() = 0; end; -#if not CLEAN27 - [Obsolete('Use G0() instead', '27.0')] - procedure NOVAT(): Code[20] - begin - exit(G0Tok); - end; -#endif procedure G0(): Code[20] begin diff --git a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Inventory/2. Master Data/CreateItemChargeBE.Codeunit.al b/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Inventory/2. Master Data/CreateItemChargeBE.Codeunit.al deleted file mode 100644 index d6738303708..00000000000 --- a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Inventory/2. Master Data/CreateItemChargeBE.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 11376 "Create Item Charge BE" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Inventory/2. Master Data/CreateItemTemplateBE.Codeunit.al b/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Inventory/2. Master Data/CreateItemTemplateBE.Codeunit.al deleted file mode 100644 index 015d5bfe4b7..00000000000 --- a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Inventory/2. Master Data/CreateItemTemplateBE.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 11377 "Create Item Template BE" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Warehousing/WarehouseModuleSetupBE.Codeunit.al b/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Warehousing/WarehouseModuleSetupBE.Codeunit.al deleted file mode 100644 index 40790c6e7cf..00000000000 --- a/src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Warehousing/WarehouseModuleSetupBE.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Warehousing; - -codeunit 11349 "Warehouse Module Setup BE" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is obsolete, not replacement is needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif diff --git a/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Common/CommonModuleCH.Codeunit.al b/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Common/CommonModuleCH.Codeunit.al deleted file mode 100644 index 2a4c0ceba4e..00000000000 --- a/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Common/CommonModuleCH.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 11582 "Common Module CH" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Finance/1.Setup Data/CreateCHVATPostingGroups.Codeunit.al b/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Finance/1.Setup Data/CreateCHVATPostingGroups.Codeunit.al index a180591c9ea..d1ab924cf75 100644 --- a/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Finance/1.Setup Data/CreateCHVATPostingGroups.Codeunit.al +++ b/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Finance/1.Setup Data/CreateCHVATPostingGroups.Codeunit.al @@ -266,15 +266,6 @@ codeunit 11616 "Create CH VAT Posting Groups" until VATPostingSetup.Next() = 0; end; -#if not CLEAN27 - [Obsolete('This procedure is moved to codeunit 5473 "Create VAT Posting Groups".', '27.0')] - procedure NOVAT(): Code[20] - var - CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; - begin - exit(CreateVATPostingGroups.NOVAT()); - end; -#endif procedure HalfNormal(): Code[20] begin diff --git a/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Inventory/2.Master Data/CreateCHItemCharge.Codeunit.al b/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Inventory/2.Master Data/CreateCHItemCharge.Codeunit.al deleted file mode 100644 index f89978828ae..00000000000 --- a/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Inventory/2.Master Data/CreateCHItemCharge.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 11604 "Create CH Item Charge" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Inventory/2.Master Data/CreateCHItemTemplate.Codeunit.al b/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Inventory/2.Master Data/CreateCHItemTemplate.Codeunit.al deleted file mode 100644 index 5ff5189cd00..00000000000 --- a/src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Inventory/2.Master Data/CreateCHItemTemplate.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 11605 "Create CH Item Template" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/AdvanceLetterTemplatesCZZ.Page.al b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/AdvanceLetterTemplatesCZZ.Page.al index 5debd53a6a5..6435b33fc96 100644 --- a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/AdvanceLetterTemplatesCZZ.Page.al +++ b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/AdvanceLetterTemplatesCZZ.Page.al @@ -64,17 +64,6 @@ page 31179 "Advance Letter Templates CZZ" ApplicationArea = Basic, Suite; ToolTip = 'Specifies automatic post VAT document.'; } -#if not CLEAN27 - field("Automatic Post Non-Ded.VAT CZZ"; Rec."Automatic Post Non-Ded. VAT") - { - ApplicationArea = Basic, Suite; - Visible = false; - Enabled = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'The field is obsolete and will be removed in a future version. Non-deductible VAT must always be posted in advances so this field is useless.'; - } -#endif field("Post VAT Doc. for Rev. Charge"; Rec."Post VAT Doc. for Rev. Charge") { ApplicationArea = Basic, Suite; diff --git a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/PurchAdvLetterEntriesCZZ.Page.al b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/PurchAdvLetterEntriesCZZ.Page.al index 51f7742fad0..4dbaa6dbce4 100644 --- a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/PurchAdvLetterEntriesCZZ.Page.al +++ b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/PurchAdvLetterEntriesCZZ.Page.al @@ -299,42 +299,6 @@ page 31183 "Purch. Adv. Letter Entries CZZ" PurchPostAdvanceLetterCZZ.PostCancelUsageVAT(Rec, true); end; } -#if not CLEAN27 - action(PostNonDeductibleVAT) - { - ApplicationArea = Basic, Suite; - Caption = 'Post Non-Deductible VAT (Obsolete)'; - Enabled = false; - Visible = false; - Image = Post; - ToolTip = 'Post non-deductible VAT.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'The action is obsolete and will be removed in a future version. Non-deductible VAT must always be posted in advances so this field is useless.'; - - trigger OnAction() - begin - PurchPostAdvanceLetterCZZ.PostNonDeductibleVAT(Rec, false); - end; - } - action(PostNonDeductibleVATPreview) - { - ApplicationArea = Basic, Suite; - Caption = 'Post Non-Deductible VAT Preview (Obsolete)'; - Enabled = false; - Visible = false; - Image = ViewPostedOrder; - ToolTip = 'Post non-deductible VAT.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'The action is obsolete and will be removed in a future version. Non-deductible VAT must always be posted in advances so this field is useless.'; - - trigger OnAction() - begin - PurchPostAdvanceLetterCZZ.PostNonDeductibleVAT(Rec, true); - end; - } -#endif } group(Payment) { diff --git a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Reports/SalesInvoicewithAdvCZZ.Report.al b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Reports/SalesInvoicewithAdvCZZ.Report.al index 5ce0d1094cc..ef953481934 100644 --- a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Reports/SalesInvoicewithAdvCZZ.Report.al +++ b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Reports/SalesInvoicewithAdvCZZ.Report.al @@ -688,11 +688,7 @@ report 31018 "Sales - Invoice with Adv. CZZ" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCop) + Customer."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCop) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; diff --git a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Tables/AdvanceLetterTemplateCZZ.Table.al b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Tables/AdvanceLetterTemplateCZZ.Table.al index aadd55ac462..a63c10f4301 100644 --- a/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Tables/AdvanceLetterTemplateCZZ.Table.al +++ b/src/Apps/CZ/AdvancePaymentsLocalization/app/Src/Tables/AdvanceLetterTemplateCZZ.Table.al @@ -111,13 +111,8 @@ table 31003 "Advance Letter Template CZZ" Caption = 'Automatic Post Non-Deductible VAT (Obsolete)'; DataClassification = CustomerContent; ToolTip = 'Specifies whether non-deductible VAT will be applied to the tax documents automatically. If you select NO, the system will ask you if you want to reduce input tax every time you post a tax document for non-deductible VAT. If you select YES, the reduction will be done automatically after the tax document is posted to the prepayment, if a combination of VAT posting groups with non-deductible VAT is set up in it.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'The field is obsolete and will be removed in a future version. Non-deductible VAT must always be posted in advances so this field is useless.'; } #endif diff --git a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/Codeunits/DataClassEvalHandlerCZA.Codeunit.al b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/Codeunits/DataClassEvalHandlerCZA.Codeunit.al index 265179aa6fb..f5e69b69cc8 100644 --- a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/Codeunits/DataClassEvalHandlerCZA.Codeunit.al +++ b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/Codeunits/DataClassEvalHandlerCZA.Codeunit.al @@ -3,9 +3,6 @@ // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ namespace Microsoft.Utilities; -#if not CLEAN27 -using Microsoft.Assembly.History; -#endif using Microsoft.Finance.Dimension; using Microsoft.Finance.GeneralLedger.Ledger; using Microsoft.Inventory.Item; @@ -44,10 +41,6 @@ codeunit 31252 "Data Class. Eval. Handler CZA" ItemJournalLine: Record "Item Journal Line"; ItemLedgerEntry: Record "Item Ledger Entry"; ManufacturingSetup: Record "Manufacturing Setup"; -#if not CLEAN27 - PostedAssemblyHeader: Record "Posted Assembly Header"; - PostedAssemblyLine: Record "Posted Assembly Line"; -#endif StandardItemJournalLine: Record "Standard Item Journal Line"; ValueEntry: Record "Value Entry"; TransferRoute: Record "Transfer Route"; @@ -98,12 +91,6 @@ codeunit 31252 "Data Class. Eval. Handler CZA" DataClassificationMgt.SetFieldToNormal(Database::"Item Ledger Entry", ItemLedgerEntry.FieldNo("Currency Code CZA")); DataClassificationMgt.SetFieldToNormal(Database::"Item Ledger Entry", ItemLedgerEntry.FieldNo("Currency Factor CZA")); DataClassificationMgt.SetFieldToNormal(Database::"Manufacturing Setup", ManufacturingSetup.FieldNo("Exact Cost Rev.Mand. Cons. CZA")); -#if not CLEAN27 -#pragma warning disable AL0432 - DataClassificationMgt.SetFieldToNormal(Database::"Posted Assembly Header", PostedAssemblyHeader.FieldNo("Gen. Bus. Posting Group CZA")); - DataClassificationMgt.SetFieldToNormal(Database::"Posted Assembly Line", PostedAssemblyLine.FieldNo("Gen. Bus. Posting Group CZA")); -#pragma warning restore AL0432 -#endif DataClassificationMgt.SetFieldToNormal(Database::"Standard Item Journal Line", StandardItemJournalLine.FieldNo("New Location Code CZA")); DataClassificationMgt.SetFieldToNormal(Database::"Value Entry", ValueEntry.FieldNo("Invoice-to Source No. CZA")); DataClassificationMgt.SetFieldToNormal(Database::"Value Entry", ValueEntry.FieldNo("Delivery-to Source No. CZA")); diff --git a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/Codeunits/ItemJnlPostLineHandlerCZA.Codeunit.al b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/Codeunits/ItemJnlPostLineHandlerCZA.Codeunit.al index 11a11024681..c9ec4cc797c 100644 --- a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/Codeunits/ItemJnlPostLineHandlerCZA.Codeunit.al +++ b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/Codeunits/ItemJnlPostLineHandlerCZA.Codeunit.al @@ -29,11 +29,7 @@ codeunit 31305 "Item Jnl-Post Line Handler CZA" ItemJnlLine.CheckInventoryPostingGroupCZA(); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Jnl.-Post Line", 'OnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine', '', false, false)] -#else [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Item Jnl.-Post Line", 'OnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine', '', false, false)] -#endif local procedure UpdateGenBusPostingGroupOnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; var OldItemJournalLine: Record "Item Journal Line") begin ItemJournalLine."Gen. Bus. Posting Group" := OldItemJournalLine."Gen. Bus. Posting Group"; diff --git a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/PageExtensions/PostedAssemblyOrderCZA.PageExt.al b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/PageExtensions/PostedAssemblyOrderCZA.PageExt.al index 5a1c55b1460..fd5f1a90d52 100644 --- a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/PageExtensions/PostedAssemblyOrderCZA.PageExt.al +++ b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/PageExtensions/PostedAssemblyOrderCZA.PageExt.al @@ -10,18 +10,6 @@ pageextension 31255 "Posted Assembly Order CZA" extends "Posted Assembly Order" { addlast(Posting) { -#if not CLEAN27 - field("Gen. Bus. Posting Group CZA"; Rec."Gen. Bus. Posting Group CZA") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the code for the General Business Posting Group that applies to the entry.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by "Gen. Bus. Post. Group" field in Posted Assembly Header Name table.'; - Visible = false; - Enabled = false; - } -#endif } } } diff --git a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/PageExtensions/PostedAssemblyOrderSubfCZA.PageExt.al b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/PageExtensions/PostedAssemblyOrderSubfCZA.PageExt.al index 9b841c9fcad..1c1ddab5ce9 100644 --- a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/PageExtensions/PostedAssemblyOrderSubfCZA.PageExt.al +++ b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/PageExtensions/PostedAssemblyOrderSubfCZA.PageExt.al @@ -10,18 +10,6 @@ pageextension 31256 "Posted Assembly Order Subf CZA" extends "Posted Assembly Or { addbefore("Shortcut Dimension 1 Code") { -#if not CLEAN27 - field("Gen. Bus. Posting Group CZA"; Rec."Gen. Bus. Posting Group CZA") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the code for the General Business Posting Group that applies to the entry.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by "Gen. Bus. Post. Group" field in Posted Assembly Line Name table.'; - Enabled = false; - } -#endif } } } diff --git a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/TableExtensions/PostedAssemblyHeaderCZA.TableExt.al b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/TableExtensions/PostedAssemblyHeaderCZA.TableExt.al index c8fd1011d05..62f853e9a0d 100644 --- a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/TableExtensions/PostedAssemblyHeaderCZA.TableExt.al +++ b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/TableExtensions/PostedAssemblyHeaderCZA.TableExt.al @@ -16,13 +16,8 @@ tableextension 31260 "Posted Assembly Header CZA" extends "Posted Assembly Heade Caption = 'Gen. Bus. Posting Group'; TableRelation = "Gen. Business Posting Group"; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Replaced by "Gen. Bus. Posting Group" field in Posted Assembly Header Name table.'; } #endif diff --git a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/TableExtensions/PostedAssemblyLineCZA.TableExt.al b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/TableExtensions/PostedAssemblyLineCZA.TableExt.al index 0f3095e34bd..a4b55fa13bf 100644 --- a/src/Apps/CZ/AdvancedLocalizationPack/app/Src/TableExtensions/PostedAssemblyLineCZA.TableExt.al +++ b/src/Apps/CZ/AdvancedLocalizationPack/app/Src/TableExtensions/PostedAssemblyLineCZA.TableExt.al @@ -16,13 +16,8 @@ tableextension 31261 "Posted Assembly Line CZA" extends "Posted Assembly Line" Caption = 'Gen. Bus. Posting Group'; TableRelation = "Gen. Business Posting Group"; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Replaced by "Gen. Bus. Posting Group" field in Posted Assembly Line Name table.'; } #endif diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankStatementCZB.Page.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankStatementCZB.Page.al index a5e9f0ef9dc..e087c631cfe 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankStatementCZB.Page.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankStatementCZB.Page.al @@ -184,24 +184,6 @@ page 31254 "Bank Statement CZB" { area(Navigation) { -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View the statistics on the selected bank statement.'; - ObsoleteReason = 'The statistics action will be replaced with the BankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.ShowStatistics(); - end; - } -#endif action(BankStatementStatistics) { ApplicationArea = VAT; @@ -210,11 +192,7 @@ page 31254 "Bank Statement CZB" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Bank Statement Statistics CZB"; RunPageOnRec = true; } @@ -382,18 +360,9 @@ page 31254 "Bank Statement CZB" { Caption = 'Bank Statement'; -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the BankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(BankStatementStatistics_Promoted; BankStatementStatistics) { } -#endif } } } diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankStatementsCZB.Page.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankStatementsCZB.Page.al index c5bfe4e8175..7eca54e0d20 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankStatementsCZB.Page.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankStatementsCZB.Page.al @@ -95,24 +95,6 @@ page 31253 "Bank Statements CZB" { area(Navigation) { -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View the statistics on the selected bank statement.'; - ObsoleteReason = 'The statistics action will be replaced with the BankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.ShowStatistics(); - end; - } -#endif action(BankStatementStatistics) { ApplicationArea = VAT; @@ -121,11 +103,7 @@ page 31253 "Bank Statements CZB" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Bank Statement Statistics CZB"; RunPageOnRec = true; } @@ -293,18 +271,9 @@ page 31253 "Bank Statements CZB" { Caption = 'Bank Statement'; -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the BankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(BankStatementStatistics_Promoted; BankStatementStatistics) { } -#endif } } } diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankingDocStatisticsCZB.Page.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankingDocStatisticsCZB.Page.al deleted file mode 100644 index 979ccbd7f97..00000000000 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankingDocStatisticsCZB.Page.al +++ /dev/null @@ -1,72 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Bank.Documents; - -using Microsoft.Bank.BankAccount; - -page 31269 "Banking Doc. Statistics CZB" -{ - Caption = 'Banking Document Statistics'; - Editable = false; - PageType = Card; - ObsoleteReason = 'The Banking Doc. Statistics CZB page will be replaced with the new four pages (Payment Order Statistics CZB, Iss. Pmt. Order Statistics CZB, Bank Statement Statistics CZB, Iss. Bank Stmt. Statistics CZB). The new pages are RunObject compatible and do not need to be run from code.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(content) - { - group(General) - { - Caption = 'General'; - group(Statistics) - { - ShowCaption = false; - field(BegBalance; BegBalance) - { - AutoFormatType = 0; - Caption = 'Beginig Balance'; - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the beginig balance of banking document.'; - } - field(Amount; Amount) - { - AutoFormatType = 0; - Caption = 'Amount'; - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the total amount for banking document lines.'; - } - field(EndBalance; EndBalance) - { - AutoFormatType = 0; - Caption = 'Ending Balance'; - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the ending balance of banking document.'; - } - } - } - } - } - - var - BegBalance: Decimal; - Amount: Decimal; - EndBalance: Decimal; - - procedure SetValues(DocumentBankAccountNo: Code[20]; DocumentDate: Date; DocumentAmount: Decimal) - var - BankAccount: Record "Bank Account"; - begin - BankAccount.Get(DocumentBankAccountNo); - BankAccount.SetFilter("Date Filter", '..%1', CalcDate('<-1D>', DocumentDate)); - BankAccount.CalcFields("Balance at Date"); - BegBalance := BankAccount."Balance at Date"; - Amount := DocumentAmount; - EndBalance := BegBalance + Amount; - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssBankStatementCZB.Page.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssBankStatementCZB.Page.al index c9c9df56ad1..8cd6cd8db34 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssBankStatementCZB.Page.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssBankStatementCZB.Page.al @@ -160,24 +160,6 @@ page 31258 "Iss. Bank Statement CZB" { area(Navigation) { -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View the statistics on the selected bank statement.'; - ObsoleteReason = 'The statistics action will be replaced with the IssBankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.ShowStatistics(); - end; - } -#endif action(IssBankStatementStatistics) { ApplicationArea = VAT; @@ -186,11 +168,7 @@ page 31258 "Iss. Bank Statement CZB" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Iss. Bank Stmt. Statistics CZB"; RunPageOnRec = true; } @@ -318,18 +296,9 @@ page 31258 "Iss. Bank Statement CZB" { Caption = 'Bank Statement'; -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the IssBankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(IssBankStatementStatistics_Promoted; IssBankStatementStatistics) { } -#endif } } } diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssBankStatementsCZB.Page.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssBankStatementsCZB.Page.al index 5771c0335b4..aefdc7d4e60 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssBankStatementsCZB.Page.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssBankStatementsCZB.Page.al @@ -101,24 +101,6 @@ page 31257 "Iss. Bank Statements CZB" { area(Navigation) { -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View the statistics on the selected bank statement.'; - ObsoleteReason = 'The statistics action will be replaced with the IssBankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.ShowStatistics(); - end; - } -#endif action(IssBankStatementStatistics) { ApplicationArea = VAT; @@ -127,11 +109,7 @@ page 31257 "Iss. Bank Statements CZB" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Iss. Bank Stmt. Statistics CZB"; RunPageOnRec = true; } @@ -256,18 +234,9 @@ page 31257 "Iss. Bank Statements CZB" { Caption = 'Bank Statement'; -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the IssBankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(IssBankStatementStatistics_Promoted; IssBankStatementStatistics) { } -#endif } } } diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssPaymentOrderCZB.Page.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssPaymentOrderCZB.Page.al index 5310bafc12a..872fb5b359c 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssPaymentOrderCZB.Page.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssPaymentOrderCZB.Page.al @@ -208,24 +208,6 @@ page 31266 "Iss. Payment Order CZB" { area(Navigation) { -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View the statistics on the selected payment order.'; - ObsoleteReason = 'The statistics action will be replaced with the IssPaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.ShowStatistics(); - end; - } -#endif action(IssPaymentOrderStatistics) { ApplicationArea = VAT; @@ -234,11 +216,7 @@ page 31266 "Iss. Payment Order CZB" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Iss. Pmt. Order Statistics CZB"; RunPageOnRec = true; } @@ -346,18 +324,9 @@ page 31266 "Iss. Payment Order CZB" { Caption = 'Payment Order'; -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the IssPaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(IssPaymentOrderStatistics_Promoted; IssPaymentOrderStatistics) { } -#endif } } } diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssPaymentOrdersCZB.Page.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssPaymentOrdersCZB.Page.al index 641203cdfb8..c167c405a3c 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssPaymentOrdersCZB.Page.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/IssPaymentOrdersCZB.Page.al @@ -104,24 +104,6 @@ page 31265 "Iss. Payment Orders CZB" { area(Navigation) { -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View the statistics on the selected payment order.'; - ObsoleteReason = 'The statistics action will be replaced with the IssPaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.ShowStatistics(); - end; - } -#endif action(IssPaymentOrderStatistics) { ApplicationArea = VAT; @@ -130,11 +112,7 @@ page 31265 "Iss. Payment Orders CZB" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Iss. Pmt. Order Statistics CZB"; RunPageOnRec = true; } @@ -242,18 +220,9 @@ page 31265 "Iss. Payment Orders CZB" { Caption = 'Payment Order'; -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the IssPaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(IssPaymentOrderStatistics_Promoted; IssPaymentOrderStatistics) { } -#endif } } } diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/PaymentOrderCZB.Page.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/PaymentOrderCZB.Page.al index a374e4e5cdf..9ae67af79d2 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/PaymentOrderCZB.Page.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/PaymentOrderCZB.Page.al @@ -228,24 +228,6 @@ page 31262 "Payment Order CZB" ApprovalsMgmt.OpenApprovalEntriesPage(Rec.RecordId); end; } -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View the statistics on the selected payment order.'; - ObsoleteReason = 'The statistics action will be replaced with the PaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.ShowStatistics(); - end; - } -#endif action(PaymentOrderStatistics) { ApplicationArea = VAT; @@ -254,11 +236,7 @@ page 31262 "Payment Order CZB" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Payment Order Statistics CZB"; RunPageOnRec = true; } @@ -570,18 +548,9 @@ page 31262 "Payment Order CZB" { Caption = 'Payment Order'; -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the PaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(PaymentOrderStatistics_Promoted; PaymentOrderStatistics) { } -#endif actionref(Approvals_Promoted; "A&pprovals") { } diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/PaymentOrdersCZB.Page.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/PaymentOrdersCZB.Page.al index dd285e22394..8320cde82bf 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/PaymentOrdersCZB.Page.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/PaymentOrdersCZB.Page.al @@ -135,24 +135,6 @@ page 31261 "Payment Orders CZB" ApprovalEntries.Run(); end; } -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View the statistics on the selected payment order.'; - ObsoleteReason = 'The statistics action will be replaced with the PaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.ShowStatistics(); - end; - } -#endif action(PaymentOrderStatistics) { ApplicationArea = VAT; @@ -161,11 +143,7 @@ page 31261 "Payment Orders CZB" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Payment Order Statistics CZB"; RunPageOnRec = true; } @@ -476,18 +454,9 @@ page 31261 "Payment Orders CZB" { Caption = 'Payment Order'; -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the PaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(PaymentOrderStatistics_Promoted; PaymentOrderStatistics) { } -#endif actionref(Approvals_Promoted; "A&pprovals") { } diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Permissions/CZBankDocumentsObjCZB.PermissionSet.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Permissions/CZBankDocumentsObjCZB.PermissionSet.al index bd480308bd1..7ad197113f1 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Permissions/CZBankDocumentsObjCZB.PermissionSet.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Permissions/CZBankDocumentsObjCZB.PermissionSet.al @@ -43,9 +43,6 @@ permissionset 11792 "CZ Bank Documents - Obj. CZB" Codeunit "Upgrade Tag Definitions CZB" = X, Codeunit "User Setup Adv. Management CZB" = X, Codeunit "Workflow Handler CZB" = X, -#if not CLEAN27 - Page "Banking Doc. Statistics CZB" = X, -#endif Page "Bank Statement CZB" = X, Page "Bank Statement Lines CZB" = X, Page "Bank Statements CZB" = X, diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/BankStatementHeaderCZB.Table.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/BankStatementHeaderCZB.Table.al index 6c84ce192e0..038c4d84d09 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/BankStatementHeaderCZB.Table.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/BankStatementHeaderCZB.Table.al @@ -627,20 +627,6 @@ table 31252 "Bank Statement Header CZB" DocumentAttachment.SaveAttachmentFromStream(DocumentInStream, RecordRef, FileName); DocumentAttachmentMgmt.ShowNotification(RecordRef, 1, true); end; -#if not CLEAN27 - [Obsolete('The statistics action will be replaced with the BankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - - procedure ShowStatistics() - var - BankingDocStatisticsCZB: Page "Banking Doc. Statistics CZB"; - begin - TestField("Bank Account No."); - TestField("Document Date"); - CalcFields(Amount); - BankingDocStatisticsCZB.SetValues("Bank Account No.", "Document Date", Amount); - BankingDocStatisticsCZB.Run(); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeImportBankStatement(var BankStatementHeaderCZB: Record "Bank Statement Header CZB"; var IsHandled: Boolean) diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/IssBankStatementHeaderCZB.Table.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/IssBankStatementHeaderCZB.Table.al index bf8c820bca8..67837005cb1 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/IssBankStatementHeaderCZB.Table.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/IssBankStatementHeaderCZB.Table.al @@ -555,19 +555,6 @@ table 31254 "Iss. Bank Statement Header CZB" CreateGeneralJournalCZB.RunModal(); exit(CreateGeneralJournalCZB.JournalCreated()); end; -#if not CLEAN27 - [Obsolete('The statistics action will be replaced with the IssBankStatementStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure ShowStatistics() - var - BankingDocStatisticsCZB: Page "Banking Doc. Statistics CZB"; - begin - TestField("Bank Account No."); - TestField("Document Date"); - CalcFields(Amount); - BankingDocStatisticsCZB.SetValues("Bank Account No.", "Document Date", Amount); - BankingDocStatisticsCZB.Run(); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCreateJournal(var IssBankStatementHeaderCZB: Record "Iss. Bank Statement Header CZB") diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/IssPaymentOrderHeaderCZB.Table.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/IssPaymentOrderHeaderCZB.Table.al index 6a307bb5398..f7b60522298 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/IssPaymentOrderHeaderCZB.Table.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/IssPaymentOrderHeaderCZB.Table.al @@ -410,19 +410,6 @@ table 31258 "Iss. Payment Order Header CZB" until IssPaymentOrderLineCZB.Next() = 0; end; end; -#if not CLEAN27 - [Obsolete('The statistics action will be replaced with the IssPaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure ShowStatistics() - var - BankingDocStatisticsCZB: Page "Banking Doc. Statistics CZB"; - begin - TestField("Bank Account No."); - TestField("Document Date"); - CalcFields(Amount); - BankingDocStatisticsCZB.SetValues("Bank Account No.", "Document Date", -Amount); - BankingDocStatisticsCZB.Run(); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeExportPmtOrd(var IssPaymentOrderHeaderCZB: Record "Iss. Payment Order Header CZB"; var IsHandled: Boolean) diff --git a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/PaymentOrderHeaderCZB.Table.al b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/PaymentOrderHeaderCZB.Table.al index dbe3350c832..0291782d9ca 100644 --- a/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/PaymentOrderHeaderCZB.Table.al +++ b/src/Apps/CZ/BankingDocumentsLocalization/app/Src/Tables/PaymentOrderHeaderCZB.Table.al @@ -607,19 +607,6 @@ table 31256 "Payment Order Header CZB" exit(Today() - DT2Date("Unreliable Pay. Check DateTime") >= 2); end; -#if not CLEAN27 - [Obsolete('The statistics action will be replaced with the PaymentOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure ShowStatistics() - var - BankingDocStatisticsCZB: Page "Banking Doc. Statistics CZB"; - begin - TestField("Bank Account No."); - TestField("Document Date"); - CalcFields(Amount); - BankingDocStatisticsCZB.SetValues("Bank Account No.", "Document Date", -Amount); - BankingDocStatisticsCZB.Run(); - end; -#endif procedure CheckPaymentOrderIssueRestrictions() begin diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentCZP.Page.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentCZP.Page.al index 1b643b527e4..57044888ddf 100644 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentCZP.Page.al +++ b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentCZP.Page.al @@ -314,25 +314,6 @@ page 31160 "Cash Document CZP" { Caption = 'Cash Document'; Image = Document; -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - RunPageMode = View; - ToolTip = 'View the statistics on the selected cash document.'; - ObsoleteReason = 'The statistics action will be replaced with the CashDocumentStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - CurrPage.CashDocLines.Page.ShowStatistics(); - end; - } -#endif action(CashDocumentStatistics) { ApplicationArea = Basic, Suite; @@ -340,11 +321,7 @@ page 31160 "Cash Document CZP" Image = Statistics; ShortCutKey = 'F7'; ToolTip = 'View the statistics on the selected cash document.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Cash Doc. Statistics CZP"; RunPageLink = "Cash Desk No." = field("Cash Desk No."), "No." = field("No."); } diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentStatisticsCZP.Page.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentStatisticsCZP.Page.al deleted file mode 100644 index 137ee837042..00000000000 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentStatisticsCZP.Page.al +++ /dev/null @@ -1,211 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.CashDesk; - -using Microsoft.Finance.Currency; -using Microsoft.Finance.VAT.Calculation; - -page 31164 "Cash Document Statistics CZP" -{ - Caption = 'Cash Document Statistics'; - Editable = false; - PageType = ListPlus; - SourceTable = "Cash Document Line CZP"; - UsageCategory = None; - ObsoleteReason = 'The Cash Document Statistics CZP page will be replaced with the Cash Doc. Statistics CZP page.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(content) - { - group(Document) - { - Caption = 'Document'; - field("Currency Code"; Rec."Currency Code") - { - ApplicationArea = Basic, Suite; - Editable = false; - Lookup = false; - ToolTip = 'Specifies the currency of amounts on the document.'; - } - field(AmountExclVAT; AmountExclVAT) - { - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - ApplicationArea = Basic, Suite; - Caption = 'Amount Excluding VAT'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is excluding VAT.'; - } - field(VATAmount; VATAmount) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - Caption = 'VAT amount'; - Editable = false; - ToolTip = 'Specifies cash document amount.'; - } - field(AmountInclVAT; AmountInclVAT) - { - AutoFormatExpression = ''; - AutoFormatType = 1; - ApplicationArea = Basic, Suite; - Caption = 'Amount Including VAT'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is including VAT.'; - } - field(AmountExclVATLCY; AmountExclVATLCY) - { - AutoFormatExpression = ''; - AutoFormatType = 1; - ApplicationArea = Basic, Suite; - Caption = 'Amount Excluding VAT (LCY)'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is excluding VAT in the local currency.'; - } - field(VATAmountLCY; VATAmountLCY) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - Caption = 'VAT amount (LCY)'; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is in the local currency.'; - } - field(AmountInclVATLCY; AmountInclVATLCY) - { - AutoFormatExpression = ''; - AutoFormatType = 1; - ApplicationArea = Basic, Suite; - Caption = 'Amount Including VAT (LCY)'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is including VAT in the local currency.'; - } - field(NoOfVATLines_Document; TempVATAmountLine.Count) - { - ApplicationArea = Basic, Suite; - Caption = 'No. of VAT Lines'; - DrillDown = true; - ToolTip = 'Specifies the number of VAT lines.'; - - trigger OnDrillDown() - begin - VATLinesDrillDown(TempVATAmountLine, false); - UpdateHeaderInfo(); - end; - } - } - } - } - - trigger OnAfterGetRecord() - begin - CashDocumentHeaderCZP.Get(Rec."Cash Desk No.", Rec."Cash Document No."); - UpdateLine(TempVATAmountLine); - UpdateHeaderInfo(); - end; - - var - CashDocumentHeaderCZP: Record "Cash Document Header CZP"; - Currency: Record Currency; - TempVATAmountLine: Record "VAT Amount Line" temporary; - VATAmountLines: Page "VAT Amount Lines"; - AllowVATDifference: Boolean; - AmountExclVAT: Decimal; - VATAmount: Decimal; - AmountInclVAT: Decimal; - AmountExclVATLCY: Decimal; - VATAmountLCY: Decimal; - AmountInclVATLCY: Decimal; - - local procedure UpdateHeaderInfo() - var - TotalCashDocumentLineCZP: Record "Cash Document Line CZP"; - begin - TotalCashDocumentLineCZP.Reset(); - TotalCashDocumentLineCZP.SetRange("Cash Desk No.", Rec."Cash Desk No."); - TotalCashDocumentLineCZP.SetRange("Cash Document No.", Rec."Cash Document No."); - - TotalCashDocumentLineCZP.CalcSums( - TotalCashDocumentLineCZP."VAT Base Amount", - TotalCashDocumentLineCZP."Amount Including VAT", - TotalCashDocumentLineCZP."VAT Base Amount (LCY)", - TotalCashDocumentLineCZP."Amount Including VAT (LCY)"); - - AmountExclVAT := TotalCashDocumentLineCZP."VAT Base Amount"; - AmountInclVAT := TotalCashDocumentLineCZP."Amount Including VAT"; - VATAmount := AmountInclVAT - AmountExclVAT; - AmountExclVATLCY := TotalCashDocumentLineCZP."VAT Base Amount (LCY)"; - AmountInclVATLCY := TotalCashDocumentLineCZP."Amount Including VAT (LCY)"; - VATAmountLCY := AmountInclVATLCY - AmountExclVATLCY; - end; - - procedure UpdateLine(var VATAmountLine: Record "VAT Amount Line") - var - CashDocumentLineCZP: Record "Cash Document Line CZP"; - begin - if CashDocumentHeaderCZP."Currency Code" = '' then - Currency.InitRoundingPrecision() - else - Currency.Get(CashDocumentHeaderCZP."Currency Code"); - - VATAmountLine.DeleteAll(); - - CashDocumentLineCZP.SetRange(CashDocumentLineCZP."Cash Desk No.", Rec."Cash Desk No."); - CashDocumentLineCZP.SetRange(CashDocumentLineCZP."Cash Document No.", Rec."Cash Document No."); - CashDocumentLineCZP.SetFilter(CashDocumentLineCZP."Account Type", '>0'); - if CashDocumentLineCZP.FindSet() then - repeat - if CashDocumentLineCZP."VAT Calculation Type" in [CashDocumentLineCZP."VAT Calculation Type"::"Reverse Charge VAT", CashDocumentLineCZP."VAT Calculation Type"::"Sales Tax"] then - CashDocumentLineCZP."VAT %" := 0; - if not VATAmountLine.Get(CashDocumentLineCZP."VAT Identifier", CashDocumentLineCZP."VAT Calculation Type", '', false, CashDocumentLineCZP.Amount >= 0) then begin - VATAmountLine.Init(); - VATAmountLine."VAT Identifier" := CashDocumentLineCZP."VAT Identifier"; - VATAmountLine."VAT Calculation Type" := CashDocumentLineCZP."VAT Calculation Type"; - VATAmountLine."VAT %" := CashDocumentLineCZP."VAT %"; - VATAmountLine.Modified := true; - VATAmountLine.Positive := CashDocumentLineCZP.Amount >= 0; - VATAmountLine.Insert(); - end; - - VATAmountLine."Line Amount" += CashDocumentLineCZP.Amount; - VATAmountLine."VAT Base" += CashDocumentLineCZP."VAT Base Amount"; - VATAmountLine."VAT Amount" += CashDocumentLineCZP."Amount Including VAT" - CashDocumentLineCZP."VAT Base Amount"; - VATAmountLine."Amount Including VAT" += CashDocumentLineCZP."Amount Including VAT"; - VATAmountLine."VAT Difference" += CashDocumentLineCZP."VAT Difference"; - VATAmountLine."VAT Base (LCY) CZL" += CashDocumentLineCZP."VAT Base Amount (LCY)"; - VATAmountLine."VAT Amount (LCY) CZL" += CashDocumentLineCZP."Amount Including VAT (LCY)" - CashDocumentLineCZP."VAT Base Amount (LCY)"; - VATAmountLine.Modify(); - until CashDocumentLineCZP.Next() = 0; - CashDocumentLineCZP.SetRange(CashDocumentLineCZP."Account Type"); - - if VATAmountLine.FindSet() then - repeat - VATAmountLine."Calculated VAT Amount" := VATAmountLine."VAT Amount" - VATAmountLine."VAT Difference"; - VATAmountLine.Modify(); - until VATAmountLine.Next() = 0; - end; - - procedure VATLinesDrillDown(var DrillDownVATAmountLine: Record "VAT Amount Line"; ThisTabAllowsVATEditing: Boolean) - begin - AllowVATDifference := false; - Clear(VATAmountLines); - VATAmountLines.SetTempVATAmountLine(DrillDownVATAmountLine); - VATAmountLines.InitGlobals( - Rec."Currency Code", AllowVATDifference, AllowVATDifference and ThisTabAllowsVATEditing, - CashDocumentHeaderCZP."Amounts Including VAT", false, 0); - VATAmountLines.RunModal(); - VATAmountLines.GetTempVATAmountLine(DrillDownVATAmountLine); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentSubformCZP.Page.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentSubformCZP.Page.al index e4641c800ef..560fef513bd 100644 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentSubformCZP.Page.al +++ b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentSubformCZP.Page.al @@ -577,13 +577,6 @@ page 31161 "Cash Document Subform CZP" DimVisible7: Boolean; DimVisible8: Boolean; UseAllocationAccountNumber: Boolean; -#if not CLEAN27 - [Obsolete('The statistics action will be replaced with the CashDocumentStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure ShowStatistics() - begin - Rec.ExtStatistics(); - end; -#endif procedure UpdatePage(SetSaveRecord: Boolean) begin diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentCZP.Page.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentCZP.Page.al index c37404ed0df..cb7dba5336e 100644 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentCZP.Page.al +++ b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentCZP.Page.al @@ -233,11 +233,7 @@ page 31165 "Posted Cash Document CZP" Image = Statistics; ShortCutKey = 'F7'; ToolTip = 'View the statistics on the selected cash document.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Posted Cash Doc. Stat. CZP"; RunPageLink = "Cash Desk No." = field("Cash Desk No."), "No." = field("No."); } diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentStatCZP.Page.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentStatCZP.Page.al deleted file mode 100644 index 6ed07afd76a..00000000000 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentStatCZP.Page.al +++ /dev/null @@ -1,311 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.CashDesk; - -using Microsoft.Finance.Currency; -using Microsoft.Finance.VAT.Calculation; - -page 31168 "Posted Cash Document Stat. CZP" -{ - Caption = 'Posted Cash Document Statistics'; - DeleteAllowed = false; - InsertAllowed = false; - PageType = ListPlus; - SourceTable = "Posted Cash Document Line CZP"; - UsageCategory = None; - ObsoleteReason = 'The Posted Cash Document Stat. CZP page will be replaced with the Posted Cash Doc. Stat. CZP page.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(content) - { - group(Document) - { - Caption = 'Document'; - field("Currency Code"; Rec."Currency Code") - { - ApplicationArea = Basic, Suite; - Editable = false; - Lookup = false; - ToolTip = 'Specifies the currency of amounts on the document.'; - } - field("AmountExclVAT[1]"; AmountExclVAT[1]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - Caption = 'Amount Excluding VAT'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is excluding VAT.'; - } - field("VATAmount[1]"; VATAmount[1]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - Caption = 'VAT amount'; - Editable = false; - ToolTip = 'Specifies cash document amount.'; - } - field("AmountInclVAT[1]"; AmountInclVAT[1]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - Caption = 'Amount Including VAT'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is including VAT.'; - } - field("AmountExclVATLCY[1]"; AmountExclVATLCY[1]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = ''; - AutoFormatType = 1; - Caption = 'Amount Excluding VAT (LCY)'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is excluding VAT in the local currency.'; - } - field("VATAmountLCY[1]"; VATAmountLCY[1]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - Caption = 'VAT amount (LCY)'; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is in the local currency.'; - } - field("AmountInclVATLCY[1]"; AmountInclVATLCY[1]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = ''; - AutoFormatType = 1; - Caption = 'Amount Including VAT (LCY)'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is including VAT in the local currency.'; - } - field(NoOfVATLines_Document; Temp1VATAmountLine.Count) - { - ApplicationArea = Basic, Suite; - Caption = 'No. of VAT Lines'; - DrillDown = true; - ToolTip = 'Specifies the number of VAT lines.'; - - trigger OnDrillDown() - begin - VATLinesDrillDown(Temp1VATAmountLine, false); - UpdateHeaderInfo(1); - end; - } - } - group("External Document") - { - Caption = 'External Document'; - field(ExternalCurrencyCode; Rec."Currency Code") - { - ApplicationArea = Basic, Suite; - Editable = false; - Lookup = false; - ToolTip = 'Specifies the currency of amounts on the document.'; - } - field("AmountExclVAT[2]"; AmountExclVAT[2]) - { - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - ApplicationArea = Basic, Suite; - Caption = 'Amount Excluding VAT'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is excluding VAT.'; - } - field("VATAmount[2]"; VATAmount[2]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - Caption = 'VAT amount'; - Editable = false; - ToolTip = 'Specifies cash document amount.'; - } - field("AmountInclVAT[2]"; AmountInclVAT[2]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = Rec."Currency Code"; - AutoFormatType = 1; - Caption = 'Amount Including VAT'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is including VAT.'; - } - field("External Document No."; Rec."External Document No.") - { - ApplicationArea = Basic, Suite; - Editable = false; - Style = Strong; - StyleExpr = TRUE; - ToolTip = 'Specifies the number that the vendor uses on the invoice they sent to you or number of receipt.'; - } - field("AmountExclVATLCY[2]"; AmountExclVATLCY[2]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = ''; - AutoFormatType = 1; - Caption = 'Amount Excluding VAT (LCY)'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is excluding VAT in the local currency.'; - } - field("VATAmountLCY[2]"; VATAmountLCY[2]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = ''; - AutoFormatType = 1; - Caption = 'VAT amount (LCY)'; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is in the local currency.'; - } - field("AmountInclVATLCY[2]"; AmountInclVATLCY[2]) - { - ApplicationArea = Basic, Suite; - AutoFormatExpression = ''; - AutoFormatType = 1; - Caption = 'Amount Including VAT (LCY)'; - DrillDown = false; - Editable = false; - ToolTip = 'Specifies cash document amount. The amount is including VAT in the local currency.'; - } - field(NoOfVATLines_External; Temp2VATAmountLine.Count) - { - ApplicationArea = Basic, Suite; - Caption = 'No. of VAT Lines'; - DrillDown = true; - ToolTip = 'Specifies the number of VAT lines.'; - - trigger OnDrillDown() - begin - VATLinesDrillDown(Temp2VATAmountLine, false); - UpdateHeaderInfo(2); - end; - } - } - } - } - - trigger OnAfterGetRecord() - begin - PostedCashDocumentHdrCZP.Get(Rec."Cash Desk No.", Rec."Cash Document No."); - UpdateLine(1, Temp1VATAmountLine); - UpdateLine(2, Temp2VATAmountLine); - UpdateHeaderInfo(1); - UpdateHeaderInfo(2); - end; - - var - PostedCashDocumentHdrCZP: Record "Posted Cash Document Hdr. CZP"; - Currency: Record Currency; - Temp1VATAmountLine: Record "VAT Amount Line" temporary; - Temp2VATAmountLine: Record "VAT Amount Line" temporary; - VATAmountLines: Page "VAT Amount Lines"; - AllowVATDifference: Boolean; - AmountExclVAT: array[2] of Decimal; - VATAmount: array[2] of Decimal; - AmountInclVAT: array[2] of Decimal; - AmountExclVATLCY: array[2] of Decimal; - VATAmountLCY: array[2] of Decimal; - AmountInclVATLCY: array[2] of Decimal; - - local procedure UpdateHeaderInfo(IndexNo: Integer) - var - TotalPostedCashDocumentLineCZP: Record "Posted Cash Document Line CZP"; - begin - TotalPostedCashDocumentLineCZP.Reset(); - TotalPostedCashDocumentLineCZP.SetCurrentKey("Cash Desk No.", "Cash Document No.", "External Document No."); - TotalPostedCashDocumentLineCZP.SetRange("Cash Desk No.", Rec."Cash Desk No."); - TotalPostedCashDocumentLineCZP.SetRange("Cash Document No.", Rec."Cash Document No."); - if IndexNo = 2 then - TotalPostedCashDocumentLineCZP.SetRange("External Document No.", Rec."External Document No."); - - TotalPostedCashDocumentLineCZP.CalcSums( - TotalPostedCashDocumentLineCZP."VAT Base Amount", - TotalPostedCashDocumentLineCZP."Amount Including VAT", - TotalPostedCashDocumentLineCZP."VAT Base Amount (LCY)", - TotalPostedCashDocumentLineCZP."Amount Including VAT (LCY)"); - - AmountExclVAT[IndexNo] := TotalPostedCashDocumentLineCZP."VAT Base Amount"; - AmountInclVAT[IndexNo] := TotalPostedCashDocumentLineCZP."Amount Including VAT"; - VATAmount[IndexNo] := AmountInclVAT[IndexNo] - AmountExclVAT[IndexNo]; - AmountExclVATLCY[IndexNo] := TotalPostedCashDocumentLineCZP."VAT Base Amount (LCY)"; - AmountInclVATLCY[IndexNo] := TotalPostedCashDocumentLineCZP."Amount Including VAT (LCY)"; - VATAmountLCY[IndexNo] := AmountInclVATLCY[IndexNo] - AmountExclVATLCY[IndexNo]; - end; - - procedure UpdateLine(IndexNo: Integer; var VATAmountLine: Record "VAT Amount Line") - var - PostedCashDocumentLineCZP: Record "Posted Cash Document Line CZP"; - begin - if PostedCashDocumentHdrCZP."Currency Code" = '' then - Currency.InitRoundingPrecision() - else - Currency.Get(PostedCashDocumentHdrCZP."Currency Code"); - - VATAmountLine.DeleteAll(); - - PostedCashDocumentLineCZP.SetRange(PostedCashDocumentLineCZP."Cash Desk No.", Rec."Cash Desk No."); - PostedCashDocumentLineCZP.SetRange(PostedCashDocumentLineCZP."Cash Document No.", Rec."Cash Document No."); - PostedCashDocumentLineCZP.SetFilter(PostedCashDocumentLineCZP."Account Type", '>0'); - if IndexNo = 2 then - PostedCashDocumentLineCZP.SetRange(PostedCashDocumentLineCZP."External Document No.", Rec."External Document No."); - if PostedCashDocumentLineCZP.FindSet() then - repeat - if PostedCashDocumentLineCZP."VAT Calculation Type" in [PostedCashDocumentLineCZP."VAT Calculation Type"::"Reverse Charge VAT", PostedCashDocumentLineCZP."VAT Calculation Type"::"Sales Tax"] then - PostedCashDocumentLineCZP."VAT %" := 0; - if not VATAmountLine.Get(PostedCashDocumentLineCZP."VAT Identifier", PostedCashDocumentLineCZP."VAT Calculation Type", '', false, PostedCashDocumentLineCZP.Amount >= 0) then begin - VATAmountLine.Init(); - VATAmountLine."VAT Identifier" := PostedCashDocumentLineCZP."VAT Identifier"; - VATAmountLine."VAT Calculation Type" := PostedCashDocumentLineCZP."VAT Calculation Type"; - VATAmountLine.Positive := PostedCashDocumentLineCZP.Amount >= 0; - VATAmountLine."VAT %" := PostedCashDocumentLineCZP."VAT %"; - VATAmountLine.Modified := true; - VATAmountLine.Insert(); - end; - - VATAmountLine."Line Amount" += PostedCashDocumentLineCZP.Amount; - VATAmountLine."Amount Including VAT" += PostedCashDocumentLineCZP."Amount Including VAT"; - VATAmountLine."VAT Base" += PostedCashDocumentLineCZP."VAT Base Amount"; - VATAmountLine."VAT Amount" += PostedCashDocumentLineCZP."Amount Including VAT" - PostedCashDocumentLineCZP."VAT Base Amount"; - VATAmountLine."Amount Including VAT" += PostedCashDocumentLineCZP."Amount Including VAT"; - VATAmountLine."VAT Difference" += PostedCashDocumentLineCZP."VAT Difference"; - VATAmountLine."VAT Base (LCY) CZL" += PostedCashDocumentLineCZP."VAT Base Amount (LCY)"; - VATAmountLine."VAT Amount (LCY) CZL" += PostedCashDocumentLineCZP."Amount Including VAT (LCY)" - PostedCashDocumentLineCZP."VAT Base Amount (LCY)"; - VATAmountLine.Modify(); - until PostedCashDocumentLineCZP.Next() = 0; - PostedCashDocumentLineCZP.SetRange(PostedCashDocumentLineCZP."Account Type"); - - if VATAmountLine.FindSet() then - repeat - VATAmountLine."Calculated VAT Amount" := VATAmountLine."VAT Amount" - VATAmountLine."VAT Difference"; - VATAmountLine.Modify(); - until VATAmountLine.Next() = 0; - end; - - procedure VATLinesDrillDown(var DrillDownVATAmountLine: Record "VAT Amount Line"; ThisTabAllowsVATEditing: Boolean) - begin - AllowVATDifference := false; - Clear(VATAmountLines); - VATAmountLines.SetTempVATAmountLine(DrillDownVATAmountLine); - VATAmountLines.InitGlobals( - Rec."Currency Code", AllowVATDifference, AllowVATDifference and ThisTabAllowsVATEditing, - PostedCashDocumentHdrCZP."Amounts Including VAT", false, 0); - VATAmountLines.RunModal(); - VATAmountLines.GetTempVATAmountLine(DrillDownVATAmountLine); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentSubfCZP.Page.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentSubfCZP.Page.al index b9562ef684a..5fed514707a 100644 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentSubfCZP.Page.al +++ b/src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentSubfCZP.Page.al @@ -237,24 +237,6 @@ page 31166 "Posted Cash Document Subf. CZP" { Caption = 'Line'; Image = Line; -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Basic, Suite; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View the statistics on the selected cash document.'; - ObsoleteReason = 'The statistics action will be replaced with the PostedCashDocumentStatistics action in Posted Cash Document CZP. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.ExtStatistics(); - end; - } -#endif action(Dimensions) { ApplicationArea = Basic, Suite; diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Permissions/CZCashDeskObjectsCZP.PermissionSet.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Permissions/CZCashDeskObjectsCZP.PermissionSet.al index 41ec34460da..bddde4bcdd8 100644 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Permissions/CZCashDeskObjectsCZP.PermissionSet.al +++ b/src/Apps/CZ/CashDeskLocalization/app/Src/Permissions/CZCashDeskObjectsCZP.PermissionSet.al @@ -57,17 +57,11 @@ permissionset 11782 "CZ Cash Desk - Objects CZP" Page "Cash Document CZP" = X, Page "Cash Document Lines CZP" = X, Page "Cash Document List CZP" = X, -#if not CLEAN27 - Page "Cash Document Statistics CZP" = X, -#endif Page "Cash Doc. Statistics CZP" = X, Page "Cash Document Subform CZP" = X, Page "Currency Nominal Values CZP" = X, Page "Posted Cash Document CZP" = X, Page "Posted Cash Document List CZP" = X, -#if not CLEAN27 - Page "Posted Cash Document Stat. CZP" = X, -#endif Page "Posted Cash Doc. Stat. CZP" = X, Page "Posted Cash Document Subf. CZP" = X, Page "Posted Cash Document Lines CZP" = X, diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Tables/CashDocumentLineCZP.Table.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Tables/CashDocumentLineCZP.Table.al index 9ea1e24241a..7946ee5ac0d 100644 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Tables/CashDocumentLineCZP.Table.al +++ b/src/Apps/CZ/CashDeskLocalization/app/Src/Tables/CashDocumentLineCZP.Table.al @@ -1864,27 +1864,6 @@ table 11733 "Cash Document Line CZP" Validate("VAT Bus. Posting Group", PostedGLAccount."VAT Bus. Posting Group"); Validate("VAT Prod. Posting Group", PostedGLAccount."VAT Prod. Posting Group"); end; -#if not CLEAN27 - [Obsolete('The statistics action will be replaced with the CashDocumentStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure ExtStatistics() - var - CashDocumentLineCZP: Record "Cash Document Line CZP"; - begin - TestField("Cash Desk No."); - TestField("Cash Document No."); - - GetCashDocumentHeaderCZP(); - if CashDocumentHeaderCZP.Status = CashDocumentHeaderCZP.Status::Open then begin - CashDocumentHeaderCZP.VATRounding(); - Commit(); - end; - - CashDocumentLineCZP.SetRange("Cash Desk No.", "Cash Desk No."); - CashDocumentLineCZP.SetRange("Cash Document No.", "Cash Document No."); - CashDocumentLineCZP.SetRange("Line No.", "Line No."); - Page.RunModal(Page::"Cash Document Statistics CZP", CashDocumentLineCZP); - end; -#endif procedure SetHideValidationDialog(NewHideValidationDialog: Boolean) begin diff --git a/src/Apps/CZ/CashDeskLocalization/app/Src/Tables/PostedCashDocumentLineCZP.Table.al b/src/Apps/CZ/CashDeskLocalization/app/Src/Tables/PostedCashDocumentLineCZP.Table.al index 4d011acfcc2..42ced203017 100644 --- a/src/Apps/CZ/CashDeskLocalization/app/Src/Tables/PostedCashDocumentLineCZP.Table.al +++ b/src/Apps/CZ/CashDeskLocalization/app/Src/Tables/PostedCashDocumentLineCZP.Table.al @@ -519,20 +519,4 @@ table 11738 "Posted Cash Document Line CZP" exit(GeneralLedgerSetup."Additional Reporting Currency"); end; -#if not CLEAN27 - [Obsolete('The statistics action will be replaced with the CashDocumentStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure ExtStatistics() - var - PostedCashDocumentLineCZP: Record "Posted Cash Document Line CZP"; - begin - TestField("Cash Desk No."); - TestField("Cash Document No."); - TestField("Line No."); - - PostedCashDocumentLineCZP.SetRange("Cash Desk No.", "Cash Desk No."); - PostedCashDocumentLineCZP.SetRange("Cash Document No.", "Cash Document No."); - PostedCashDocumentLineCZP.SetRange("Line No.", "Line No."); - Page.RunModal(Page::"Posted Cash Document Stat. CZP", PostedCashDocumentLineCZP); - end; -#endif } diff --git a/src/Apps/CZ/CashDeskLocalization/test/Src/CashDeskDocumentsCZP.Codeunit.al b/src/Apps/CZ/CashDeskLocalization/test/Src/CashDeskDocumentsCZP.Codeunit.al index b15de430212..9e5547f2868 100644 --- a/src/Apps/CZ/CashDeskLocalization/test/Src/CashDeskDocumentsCZP.Codeunit.al +++ b/src/Apps/CZ/CashDeskLocalization/test/Src/CashDeskDocumentsCZP.Codeunit.al @@ -494,11 +494,7 @@ codeunit 148070 "Cash Desk Documents CZP" // [WHEN] Open Cash Document Statistics CashDocumentCZP.OpenEdit(); CashDocumentCZP.GoToRecord(CashDocumentHeaderCZP); -#if not CLEAN27 - CashDocumentCZP.Statistics.Invoke(); -#else CashDocumentCZP.CashDocumentStatistics.Invoke(); -#endif // [THEN] Rounding line must be created and rounding amount must be calculated RoundingCashDocumentLineCZP.Reset(); @@ -517,22 +513,14 @@ codeunit 148070 "Cash Desk Documents CZP" CashDocumentLineCZP.Modify(); // [WHEN] Open Cash Document Statistics -#if not CLEAN27 - CashDocumentCZP.Statistics.Invoke(); -#else CashDocumentCZP.CashDocumentStatistics.Invoke(); -#endif // [THEN] Amount in rounding line must be recalculated RoundingCashDocumentLineCZP.FindFirst(); Assert.AreEqual(0.30, RoundingCashDocumentLineCZP.Amount, AmountNotMatchErr); // [WHEN] Open Cash Document Statistics again -#if not CLEAN27 - CashDocumentCZP.Statistics.Invoke(); -#else CashDocumentCZP.CashDocumentStatistics.Invoke(); -#endif // [THEN] Amount in rounding line mustn't be recalculated but the amount must be the same as before RoundingCashDocumentLineCZP.FindFirst(); @@ -654,15 +642,8 @@ codeunit 148070 "Cash Desk Documents CZP" begin Reply := true; end; -#if not CLEAN27 - [ModalPageHandler] - procedure CashDocumentStatisticsCZPModalPageHandler(var CashDocumentStatisticsCZP: TestPage "Cash Document Statistics CZP") - begin - end; -#else [ModalPageHandler] procedure CashDocumentStatisticsCZPModalPageHandler(var CashDocStatisticsCZP: TestPage "Cash Doc. Statistics CZP") begin end; -#endif } diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/DataClassEvalHandlerCZL.Codeunit.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/DataClassEvalHandlerCZL.Codeunit.al index 883bc2ebb95..309153586ed 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/DataClassEvalHandlerCZL.Codeunit.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/DataClassEvalHandlerCZL.Codeunit.al @@ -303,11 +303,6 @@ codeunit 11710 "Data Class. Eval. Handler CZL" DataClassificationMgt.SetFieldToNormal(Database::"G/L Account", GLAccount.FieldNo("Net Change (VAT Date) CZL")); DataClassificationMgt.SetFieldToNormal(Database::"G/L Account", GLAccount.FieldNo("Debit Amount (VAT Date) CZL")); DataClassificationMgt.SetFieldToNormal(Database::"G/L Account", GLAccount.FieldNo("Credit Amount (VAT Date) CZL")); -#if not CLEAN27 -#pragma warning disable AL0432 - DataClassificationMgt.SetFieldToNormal(Database::"G/L Account Net Change", TempGLAccountNetChange.FieldNo("Account Type CZL")); -#pragma warning restore AL0432 -#endif DataClassificationMgt.SetFieldToNormal(Database::"G/L Account Net Change", TempGLAccountNetChange.FieldNo("Acc. Type CZL")); DataClassificationMgt.SetFieldToNormal(Database::"G/L Account Net Change", TempGLAccountNetChange.FieldNo("Account No. CZL")); DataClassificationMgt.SetFieldToNormal(Database::"G/L Account Net Change", TempGLAccountNetChange.FieldNo("Net Change in Jnl. Curr. CZL")); @@ -407,21 +402,11 @@ codeunit 11710 "Data Class. Eval. Handler CZL" DataClassificationMgt.SetFieldToNormal(Database::"Return Shipment Line", ReturnShipmentLine.FieldNo("Tariff No. CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Cr.Memo Header", SalesCrMemoHeader.FieldNo("VAT Currency Factor CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Cr.Memo Header", SalesCrMemoHeader.FieldNo("VAT Currency Code CZL")); -#if not CLEAN27 -#pragma warning disable AL0432 - DataClassificationMgt.SetFieldToNormal(Database::"Sales Cr.Memo Header", SalesCrMemoHeader.FieldNo("Registration No. CZL")); -#pragma warning restore AL0432 -#endif DataClassificationMgt.SetFieldToNormal(Database::"Sales Cr.Memo Header", SalesCrMemoHeader.FieldNo("Tax Registration No. CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Cr.Memo Header", SalesCrMemoHeader.FieldNo("EU 3-Party Intermed. Role CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Cr.Memo Line", SalesCrMemoLine.FieldNo("Tariff No. CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Header", SalesHeader.FieldNo("VAT Currency Factor CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Header", SalesHeader.FieldNo("VAT Currency Code CZL")); -#if not CLEAN27 -#pragma warning disable AL0432 - DataClassificationMgt.SetFieldToNormal(Database::"Sales Header", SalesHeader.FieldNo("Registration No. CZL")); -#pragma warning restore AL0432 -#endif DataClassificationMgt.SetFieldToNormal(Database::"Sales Header", SalesHeader.FieldNo("Tax Registration No. CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Header", SalesHeader.FieldNo("Credit Memo Type CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Header", SalesHeader.FieldNo("EU 3-Party Intermed. Role CZL")); @@ -433,11 +418,6 @@ codeunit 11710 "Data Class. Eval. Handler CZL" DataClassificationMgt.SetFieldToNormal(Database::"Sales Header Archive", SalesHeaderArchive.FieldNo("EU 3-Party Intermed. Role CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Invoice Header", SalesInvoiceHeader.FieldNo("VAT Currency Factor CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Invoice Header", SalesInvoiceHeader.FieldNo("VAT Currency Code CZL")); -#if not CLEAN27 -#pragma warning disable AL0432 - DataClassificationMgt.SetFieldToNormal(Database::"Sales Invoice Header", SalesInvoiceHeader.FieldNo("Registration No. CZL")); -#pragma warning restore AL0432 -#endif DataClassificationMgt.SetFieldToNormal(Database::"Sales Invoice Header", SalesInvoiceHeader.FieldNo("Tax Registration No. CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Invoice Header", SalesInvoiceHeader.FieldNo("EU 3-Party Intermed. Role CZL")); DataClassificationMgt.SetFieldToNormal(Database::"Sales Invoice Line", SalesInvoiceLine.FieldNo("Tariff No. CZL")); diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/ReconciliationHandlerCZL.Codeunit.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/ReconciliationHandlerCZL.Codeunit.al index 42052a654a3..ef713e5e702 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/ReconciliationHandlerCZL.Codeunit.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/ReconciliationHandlerCZL.Codeunit.al @@ -41,27 +41,4 @@ codeunit 31431 "Reconciliation Handler CZL" begin IsHandled := true; end; -#if not CLEAN27 - internal procedure RaiseOnSetSaveNetChangeBeforeModifyGLAccountNetChange(var GLAccountNetChange: Record "G/L Account Net Change"; GenJournalLine: Record "Gen. Journal Line"; NetChangeLCY: Decimal; NetChange: Decimal) - begin - OnSetSaveNetChangeBeforeModifyGLAccountNetChange(GLAccountNetChange, GenJournalLine, NetChangeLCY, NetChange); - end; - - internal procedure RaiseOnSetSaveNetChangeBeforeInsertGLAccountNetChange(var GLAccountNetChange: Record "G/L Account Net Change"; GenJournalLine: Record "Gen. Journal Line"; NetChangeLCY: Decimal; NetChange: Decimal) - begin - OnSetSaveNetChangeBeforeInsertGLAccountNetChange(GLAccountNetChange, GenJournalLine, NetChangeLCY, NetChange); - end; - - [Obsolete('Replaced by OnSaveNetChangeCZLOnBeforeModify event in tableextension 31047 "G/L Account Net Change CZL"', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSaveNetChangeBeforeModifyGLAccountNetChange(var GLAccountNetChange: Record "G/L Account Net Change"; GenJournalLine: Record "Gen. Journal Line"; NetChangeLCY: Decimal; NetChange: Decimal) - begin - end; - - [Obsolete('Replaced by OnSaveNetChangeCZLOnBeforeInsert event in tableextension 31047 "G/L Account Net Change CZL"', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSaveNetChangeBeforeInsertGLAccountNetChange(var GLAccountNetChange: Record "G/L Account Net Change"; GenJournalLine: Record "Gen. Journal Line"; NetChangeLCY: Decimal; NetChange: Decimal) - begin - end; -#endif } diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/SyncDepFldSalesHeaderCZL.Codeunit.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/SyncDepFldSalesHeaderCZL.Codeunit.al deleted file mode 100644 index fd9842487b8..00000000000 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/SyncDepFldSalesHeaderCZL.Codeunit.al +++ /dev/null @@ -1,58 +0,0 @@ -#if not CLEAN27 -#pragma warning disable AL0432 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Utilities; - -using Microsoft.Sales.Document; - -codeunit 31150 "Sync.Dep.Fld-SalesHeader CZL" -{ - Access = Internal; - Permissions = tabledata "Sales Header" = rimd; - - [EventSubscriber(ObjectType::Table, Database::"Sales Header", 'OnBeforeInsertEvent', '', false, false)] - local procedure SyncOnBeforeInsertSalesHeader(var Rec: Record "Sales Header") - begin - SyncDeprecatedFields(Rec); - end; - - [EventSubscriber(ObjectType::Table, Database::"Sales Header", 'OnBeforeModifyEvent', '', false, false)] - local procedure SyncOnBeforeModifySalesHeader(var Rec: Record "Sales Header") - begin - SyncDeprecatedFields(Rec); - end; - - local procedure SyncDeprecatedFields(var Rec: Record "Sales Header") - var - PreviousRecord: Record "Sales Header"; - SyncDepFldUtilities: Codeunit "Sync.Dep.Fld-Utilities"; - PreviousRecordRef: RecordRef; - DepFieldTxt, NewFieldTxt : Text; - begin - if Rec.IsTemporary() then - exit; - if SyncDepFldUtilities.GetPreviousRecord(Rec, PreviousRecordRef) then - PreviousRecordRef.SetTable(PreviousRecord); - DepFieldTxt := Rec."Registration No. CZL"; - NewFieldTxt := Rec."Registration Number"; - SyncDepFldUtilities.SyncFields(DepFieldTxt, NewFieldTxt, PreviousRecord."Registration No. CZL", PreviousRecord."Registration Number"); - Rec."Registration No. CZL" := CopyStr(DepFieldTxt, 1, MaxStrLen(Rec."Registration No. CZL")); - Rec."Registration Number" := CopyStr(NewFieldTxt, 1, MaxStrLen(Rec."Registration Number")); - end; - - [EventSubscriber(ObjectType::Table, Database::"Sales Header", 'OnAfterValidateEvent', 'Registration No. CZL', false, false)] - local procedure SyncOnAfterValidateRegistrationNoCZL(var Rec: Record "Sales Header") - begin - Rec."Registration Number" := Rec."Registration No. CZL"; - end; - - [EventSubscriber(ObjectType::Table, Database::"Sales Header", 'OnAfterValidateEvent', 'Registration Number', false, false)] - local procedure SyncOnAfterValidateVatReportingDate(var Rec: Record "Sales Header") - begin - Rec."Registration No. CZL" := Rec.GetRegistrationNoTrimmedCZL(); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/UpgradeTagDefinitionsCZL.Codeunit.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/UpgradeTagDefinitionsCZL.Codeunit.al index 08a5ef17945..15d6f6a77d3 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/UpgradeTagDefinitionsCZL.Codeunit.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/UpgradeTagDefinitionsCZL.Codeunit.al @@ -41,9 +41,6 @@ codeunit 31016 "Upgrade Tag Definitions CZL" PerCompanyUpgradeTags.Add(GetVATStatementReportExtensionUpgradeTag()); PerCompanyUpgradeTags.Add(GetAllowVATPostingUpgradeTag()); PerCompanyUpgradeTags.Add(GetOriginalVATAmountsInVATEntriesUpgradeTag()); -#if not CLEAN27 - PerCompanyUpgradeTags.Add(GetFunctionalCurrencyUpgradeTag()); -#endif PerCompanyUpgradeTags.Add(GetEnableNonDeductibleVATCZUpgradeTag()); PerCompanyUpgradeTags.Add(GetVATReportUpgradeTag()); PerCompanyUpgradeTags.Add(SetEnableNonDeductibleVATCZUpgradeTag()); @@ -186,13 +183,6 @@ codeunit 31016 "Upgrade Tag Definitions CZL" begin exit('CZL-539623-OriginalVATAmountsInVATEntriesUpgradeTag-20240627'); end; -#if not CLEAN27 - [Obsolete('This function will be removed in a future version.', '27.0')] - procedure GetFunctionalCurrencyUpgradeTag(): Code[250] - begin - exit('CZL-542349-FunctionalCurrencyUpgradeTag-20240718'); - end; -#endif procedure GetEnableNonDeductibleVATCZUpgradeTag(): Code[250] begin diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/PostedSalesCreditMemoCZL.PageExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/PostedSalesCreditMemoCZL.PageExt.al index c1a84f6c80f..74cebc5064f 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/PostedSalesCreditMemoCZL.PageExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/PostedSalesCreditMemoCZL.PageExt.al @@ -55,18 +55,6 @@ pageextension 11735 "Posted Sales Credit Memo CZL" extends "Posted Sales Credit } addlast("Invoice Details") { -#if not CLEAN27 - field("VAT Registration No. CZL"; Rec."VAT Registration No.") - { - ApplicationArea = Basic, Suite; - Editable = false; - ToolTip = 'Specifies the VAT registration number. The field will be used when you do business with partners from EU countries/regions.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by standard "VAT Registration No." field.'; - } -#endif field("Registration No. CZL"; Rec."Registration Number") { ApplicationArea = Basic, Suite; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/PostedSalesInvoiceCZL.PageExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/PostedSalesInvoiceCZL.PageExt.al index 0ba41debc85..43930fc6f54 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/PostedSalesInvoiceCZL.PageExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/PostedSalesInvoiceCZL.PageExt.al @@ -38,18 +38,6 @@ pageextension 11733 "Posted Sales Invoice CZL" extends "Posted Sales Invoice" } addlast("Invoice Details") { -#if not CLEAN27 - field("VAT Registration No. CZL"; Rec."VAT Registration No.") - { - ApplicationArea = Basic, Suite; - Editable = false; - ToolTip = 'Specifies the VAT registration number. The field will be used when you do business with partners from EU countries/regions.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by standard "VAT Registration No." field.'; - } -#endif field("Registration No. CZL"; Rec."Registration Number") { ApplicationArea = Basic, Suite; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/ReconciliationCZL.PageExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/ReconciliationCZL.PageExt.al index 3442cb2fb48..0fb372e5c29 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/ReconciliationCZL.PageExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/ReconciliationCZL.PageExt.al @@ -19,16 +19,6 @@ pageextension 31215 "Reconciliation CZL" extends Reconciliation ApplicationArea = Basic, Suite; ToolTip = 'Specifies the account type that is being reconciled.'; } -#if not CLEAN27 - field("Account Type CZL"; Rec."Account Type CZL") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the account type that is being reconciled.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by "Acc. Type CZL" field.'; - } -#endif field("Account No. CZL"; Rec."Account No. CZL") { ApplicationArea = Basic, Suite; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesCreditMemoCZL.PageExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesCreditMemoCZL.PageExt.al index f63304e5e43..3ed551aad61 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesCreditMemoCZL.PageExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesCreditMemoCZL.PageExt.al @@ -60,26 +60,6 @@ pageextension 11729 "Sales Credit Memo CZL" extends "Sales Credit Memo" } addlast("Credit Memo Details") { -#if not CLEAN27 - field("VAT Registration No. CZL"; Rec."VAT Registration No.") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the VAT registration number. The field will be used when you do business with partners from EU countries/regions.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by standard "VAT Registration No." field.'; - } - field("Registration No. CZL"; Rec."Registration No. CZL") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the registration number of customer.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by standard "Registration Number" field.'; - } -#endif field("Tax Registration No. CZL"; Rec."Tax Registration No. CZL") { ApplicationArea = Basic, Suite; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesInvoiceCZL.PageExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesInvoiceCZL.PageExt.al index 04168934c6f..af6b7425d78 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesInvoiceCZL.PageExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesInvoiceCZL.PageExt.al @@ -48,26 +48,6 @@ pageextension 11728 "Sales Invoice CZL" extends "Sales Invoice" } addlast("Invoice Details") { -#if not CLEAN27 - field("VAT Registration No. CZL"; Rec."VAT Registration No.") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the VAT registration number. The field will be used when you do business with partners from EU countries/regions.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by standard "VAT Registration No." field.'; - } - field("Registration No. CZL"; Rec."Registration No. CZL") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the registration number of customer.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by standard "Registration Number" field.'; - } -#endif field("Tax Registration No. CZL"; Rec."Tax Registration No. CZL") { ApplicationArea = Basic, Suite; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesOrderCZL.PageExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesOrderCZL.PageExt.al index 20672c26a1d..0ceec6ce0b8 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesOrderCZL.PageExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesOrderCZL.PageExt.al @@ -36,17 +36,6 @@ pageextension 11727 "Sales Order CZL" extends "Sales Order" } addlast("Invoice Details") { -#if not CLEAN27 - field("VAT Registration No. CZL"; Rec."VAT Registration No.") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the VAT registration number. The field will be used when you do business with partners from EU countries/regions.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by standard "VAT Registration No." field.'; - } -#endif field("Registration No. CZL"; Rec."Registration Number") { ApplicationArea = Basic, Suite; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesReturnOrderCZL.PageExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesReturnOrderCZL.PageExt.al index cb29c94e087..7c42458ae04 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesReturnOrderCZL.PageExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/PageExtensions/SalesReturnOrderCZL.PageExt.al @@ -61,17 +61,6 @@ pageextension 11730 "Sales Return Order CZL" extends "Sales Return Order" } addlast("Invoice Details") { -#if not CLEAN27 - field("VAT Registration No. CZL"; Rec."VAT Registration No.") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the VAT registration number. The field will be used when you do business with partners from EU countries/regions.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by standard "VAT Registration No." field.'; - } -#endif field("Registration No. CZL"; Rec."Registration Number") { ApplicationArea = Basic, Suite; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/GetVendBankAccCodeCZL.Page.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/GetVendBankAccCodeCZL.Page.al index 42ac5ca14a5..ec28924f192 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/GetVendBankAccCodeCZL.Page.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/GetVendBankAccCodeCZL.Page.al @@ -54,14 +54,6 @@ page 11752 "Get Vend. Bank Acc. Code CZL" begin VendorNo := NewVendorNo; end; -#if not CLEAN27 - [Obsolete('The function is replaced by GetValue with PreferredBankAccount parameter.', '27.0')] - procedure GetValue(var NewVendorBankAccCode: Code[10]; var NewVendorBankAccName: Text[100]) - begin - NewVendorBankAccCode := VendorBankAccCode; - NewVendorBankAccName := VendorBankAccName; - end; -#endif procedure GetValue(var NewVendorBankAccCode: Code[10]; var NewVendorBankAccName: Text[100]; var NewPreferredBankAccount: Boolean) begin diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/VATCtrlReportCardCZL.Page.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/VATCtrlReportCardCZL.Page.al index 8c54435d326..bab830acc94 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/VATCtrlReportCardCZL.Page.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/VATCtrlReportCardCZL.Page.al @@ -138,24 +138,6 @@ page 31110 "VAT Ctrl. Report Card CZL" group("&Report") { Caption = '&Report'; -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = VAT; - Caption = 'Statistics'; - Image = Statistics; - ShortcutKey = 'F7'; - ToolTip = 'View the statistics on the selected VAT Control Report.'; - ObsoleteReason = 'The statistics action will be replaced with the VATCtrlReportStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Page.RunModal(Page::"VAT Ctrl. Report Stat. CZL", Rec); - end; - } -#endif action(VATCtrlReportStatistics) { ApplicationArea = VAT; @@ -164,11 +146,7 @@ page 31110 "VAT Ctrl. Report Card CZL" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information, such as the value of posted entries, for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "VAT Ctrl. Report Stat. CZL"; RunPageOnRec = true; } @@ -328,18 +306,9 @@ page 31110 "VAT Ctrl. Report Card CZL" actionref("Re&open_Promoted"; "Re&open") { } -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the VATCtrlReportStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(VATCtrlReportStatistics_Promoted; VATCtrlReportStatistics) { } -#endif actionref("&Suggest Lines_Promoted"; "&Suggest Lines") { } diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/VATCtrlReportListCZL.Page.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/VATCtrlReportListCZL.Page.al index 58c55cb9685..c30d22b56fd 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/VATCtrlReportListCZL.Page.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Pages/VATCtrlReportListCZL.Page.al @@ -76,24 +76,6 @@ page 31109 "VAT Ctrl. Report List CZL" group("&Report") { Caption = '&Report'; -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = VAT; - Caption = 'Statistics'; - Image = Statistics; - ShortcutKey = 'F7'; - ToolTip = 'View the statistics on the selected VAT Control Report.'; - ObsoleteReason = 'The statistics action will be replaced with the VATCtrlReportStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Page.RunModal(Page::"VAT Ctrl. Report Stat. CZL", Rec); - end; - } -#endif action(VATCtrlReportStatistics) { ApplicationArea = VAT; @@ -102,11 +84,7 @@ page 31109 "VAT Ctrl. Report List CZL" ShortcutKey = 'F7'; Enabled = Rec."No." <> ''; ToolTip = 'View statistical information, such as the value of posted entries, for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "VAT Ctrl. Report Stat. CZL"; RunPageOnRec = true; } @@ -264,18 +242,9 @@ page 31109 "VAT Ctrl. Report List CZL" actionref("Re&open_Promoted"; "Re&open") { } -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the VATCtrlReportStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(VATCtrlReportStatistics_Promoted; VATCtrlReportStatistics) { } -#endif actionref("&Suggest Lines_Promoted"; "&Suggest Lines") { } diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/CZCorePackObjectsCZL.PermissionSet.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/CZCorePackObjectsCZL.PermissionSet.al index 69435b19d9f..05fd694607b 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/CZCorePackObjectsCZL.PermissionSet.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/CZCorePackObjectsCZL.PermissionSet.al @@ -103,9 +103,6 @@ permissionset 11732 "CZ Core Pack - Objects CZL" codeunit "SOAP WS Request Management CZL" = X, codeunit "Source Code Setup Handler CZL" = X, codeunit "Substitute Report Handler CZL" = X, -#if not CLEAN27 - codeunit "Sync.Dep.Fld-SalesHeader CZL" = X, -#endif codeunit "Transfer Line Handler CZL" = X, codeunit "Transformation Rule Mgt. CZL" = X, codeunit "Unreliable Payer Mgt. CZL" = X, diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/CZCorePackReadCZL.PermissionSet.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/CZCorePackReadCZL.PermissionSet.al index 17eafe68c4f..a8f51b08abf 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/CZCorePackReadCZL.PermissionSet.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/CZCorePackReadCZL.PermissionSet.al @@ -50,11 +50,6 @@ permissionset 11730 "CZ Core Pack - Read CZL" tabledata "VAT Ctrl. Report Line CZL" = R, tabledata "VAT Ctrl. Report Section CZL" = R, tabledata "VAT LCY Correction Buffer CZL" = R, -#if not CLEAN27 -#pragma warning disable AL0432 - tabledata "VAT Period CZL" = R, -#pragma warning restore AL0432 -#endif tabledata "VAT Report Entry Link CZL" = R, tabledata "VAT Stmt. Report Line Data CZL" = R, tabledata "VAT Statement Attachment CZL" = R, diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/GeneralLedgerAdminCZL.PermissionSetExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/GeneralLedgerAdminCZL.PermissionSetExt.al index 9f1d91c74bd..d9d762438e4 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/GeneralLedgerAdminCZL.PermissionSetExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Permissions/GeneralLedgerAdminCZL.PermissionSetExt.al @@ -12,11 +12,6 @@ permissionsetextension 11746 "General Ledger - Admin CZL" extends "General Ledge tabledata "VAT Ctrl. Report Line CZL" = RIMD, tabledata "VAT Ctrl. Report Section CZL" = RIMD, tabledata "VAT Ctrl. Report Ent. Link CZL" = RIMD, -#if not CLEAN27 -#pragma warning disable AL0432 - tabledata "VAT Period CZL" = RIMD, -#pragma warning restore AL0432 -#endif tabledata "VAT Statement Attachment CZL" = RIMD, tabledata "VAT Statement Comment Line CZL" = RIMD; } diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/SalesCreditMemoCZL.Report.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/SalesCreditMemoCZL.Report.al index 445ad81b01c..03dbb3fffa0 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/SalesCreditMemoCZL.Report.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/SalesCreditMemoCZL.Report.al @@ -587,11 +587,7 @@ report 31190 "Sales Credit Memo CZL" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopies) + Customer."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/SalesInvoiceCZL.Report.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/SalesInvoiceCZL.Report.al index 5aa7c9f21b5..5010def42c2 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/SalesInvoiceCZL.Report.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/SalesInvoiceCZL.Report.al @@ -623,11 +623,7 @@ report 31189 "Sales Invoice CZL" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopies) + Customer."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/ServiceCreditMemoCZL.Report.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/ServiceCreditMemoCZL.Report.al index 01d00c202a1..bf31d39cb55 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/ServiceCreditMemoCZL.Report.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/ServiceCreditMemoCZL.Report.al @@ -511,11 +511,7 @@ report 31198 "Service Credit Memo CZL" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopies) + Customer."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/ServiceInvoiceCZL.Report.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/ServiceInvoiceCZL.Report.al index 2e1db40f9ea..50af042fb34 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/ServiceInvoiceCZL.Report.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/Reports/ServiceInvoiceCZL.Report.al @@ -552,11 +552,7 @@ report 31197 "Service Invoice CZL" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopies) + Customer."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/GLAccountNetChangeCZL.TableExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/GLAccountNetChangeCZL.TableExt.al index 2d008d49c2c..5d012104027 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/GLAccountNetChangeCZL.TableExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/GLAccountNetChangeCZL.TableExt.al @@ -27,13 +27,8 @@ tableextension 31047 "G/L Account Net Change CZL" extends "G/L Account Net Chang { Caption = 'Account Type (Obsolete)'; DataClassification = SystemMetadata; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Replaced by "Acc. Type CZL" field.'; } #endif @@ -68,14 +63,6 @@ tableextension 31047 "G/L Account Net Change CZL" extends "G/L Account Net Chang keys { -#if not CLEAN27 - key(AccountTypeNoCZL; "Account Type CZL", "Account No. CZL") - { - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Replaced by "Acc. Type CZL" field.'; - } -#endif key(AccTypeNoCZL; "Acc. Type CZL", "Account No. CZL") { } @@ -83,9 +70,6 @@ tableextension 31047 "G/L Account Net Change CZL" extends "G/L Account Net Chang procedure SaveNetChangeCZL(GenJournalLine: Record "Gen. Journal Line") var -#if not CLEAN27 - ReconciliationHandler: Codeunit "Reconciliation Handler CZL"; -#endif NetChangeLCY: Decimal; NetChange: Decimal; begin @@ -101,9 +85,6 @@ tableextension 31047 "G/L Account Net Change CZL" extends "G/L Account Net Chang if FindFirst() then begin UpdateNetChange(NetChangeLCY, NetChange); OnSaveNetChangeCZLOnBeforeModify(Rec, GenJournalLine, NetChangeLCY, NetChange); -#if not CLEAN27 - ReconciliationHandler.RaiseOnSetSaveNetChangeBeforeModifyGLAccountNetChange(Rec, GenJournalLine, NetChangeLCY, NetChange); -#endif Modify(); end else begin Reset(); @@ -113,9 +94,6 @@ tableextension 31047 "G/L Account Net Change CZL" extends "G/L Account Net Chang PopulateFromAccount(); UpdateNetChange(NetChangeLCY, NetChange); OnSaveNetChangeCZLOnBeforeInsert(Rec, GenJournalLine, NetChangeLCY, NetChange); -#if not CLEAN27 - ReconciliationHandler.RaiseOnSetSaveNetChangeBeforeInsertGLAccountNetChange(Rec, GenJournalLine, NetChangeLCY, NetChange); -#endif Insert(); end; end; diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesCrMemoHeaderCZL.TableExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesCrMemoHeaderCZL.TableExt.al index 78faddad3c1..29ec823d02f 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesCrMemoHeaderCZL.TableExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesCrMemoHeaderCZL.TableExt.al @@ -123,13 +123,8 @@ tableextension 11727 "Sales Cr.Memo Header CZL" extends "Sales Cr.Memo Header" { Caption = 'Registration No. (Obsolete)'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Replaced by standard "Registration Number" field.'; } #endif diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesHeaderCZL.TableExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesHeaderCZL.TableExt.al index 1ec41e7a2b9..93152e1578b 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesHeaderCZL.TableExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesHeaderCZL.TableExt.al @@ -231,13 +231,8 @@ tableextension 11703 "Sales Header CZL" extends "Sales Header" { Caption = 'Registration No. (Obsolete)'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Replaced by standard "Registration Number" field.'; } #endif diff --git a/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesInvoiceHeaderCZL.TableExt.al b/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesInvoiceHeaderCZL.TableExt.al index d7c2b88a6fc..ce7882e9add 100644 --- a/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesInvoiceHeaderCZL.TableExt.al +++ b/src/Apps/CZ/CoreLocalizationPack/app/Src/TableExtensions/SalesInvoiceHeaderCZL.TableExt.al @@ -143,13 +143,8 @@ tableextension 11726 "Sales Invoice Header CZL" extends "Sales Invoice Header" { Caption = 'Registration No. (Obsolete)'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Replaced by standard "Registration Number" field.'; } #endif diff --git a/src/Apps/CZ/CoreLocalizationPack/test/Src/VATCtrlReportUTCZL.Codeunit.al b/src/Apps/CZ/CoreLocalizationPack/test/Src/VATCtrlReportUTCZL.Codeunit.al index 4ef7e046d8b..a1200fda166 100644 --- a/src/Apps/CZ/CoreLocalizationPack/test/Src/VATCtrlReportUTCZL.Codeunit.al +++ b/src/Apps/CZ/CoreLocalizationPack/test/Src/VATCtrlReportUTCZL.Codeunit.al @@ -521,11 +521,7 @@ codeunit 148068 "VAT Ctrl. Report UT CZL" VATCtrlReportCardCZL.OpenView(); VATCtrlReportCardCZL.GoToRecord(VATCtrlReportHeaderCZL); -#if not CLEAN27 - VATCtrlReportCardCZL.Statistics.Invoke(); -#else VATCtrlReportCardCZL.VATCtrlReportStatistics.Invoke(); -#endif end; local procedure RunVATCtrlReportTest(var VATCtrlReportHeaderCZL: Record "VAT Ctrl. Report Header CZL") diff --git a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Common/CommonModuleDE.Codeunit.al b/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Common/CommonModuleDE.Codeunit.al deleted file mode 100644 index f493824443f..00000000000 --- a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Common/CommonModuleDE.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 11082 "Common Module DE" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Finance/1.Setup data/CreateDEVATPostingGroups.Codeunit.al b/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Finance/1.Setup data/CreateDEVATPostingGroups.Codeunit.al index 27b6a4d2073..ff8665863ca 100644 --- a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Finance/1.Setup data/CreateDEVATPostingGroups.Codeunit.al +++ b/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Finance/1.Setup data/CreateDEVATPostingGroups.Codeunit.al @@ -159,15 +159,6 @@ codeunit 11379 "Create DE VAT Posting Groups" GLAccount.Modify(true); end; -#if not CLEAN27 - [Obsolete('Use the procedure NOVAT in codeunit 5473 "Create VAT Posting Groups"', '27.0')] - procedure NOVAT(): Code[20] - var - CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; - begin - exit(CreateVATPostingGroups.NOVAT()); - end; -#endif procedure VAT19(): Code[20] begin @@ -179,15 +170,6 @@ codeunit 11379 "Create DE VAT Posting Groups" exit(VAT7Tok); end; -#if not CLEAN27 - [Obsolete('Use the procedure NOVAT in codeunit 5473 "Create VAT Posting Groups"', '27.0')] - procedure Zero(): Code[20] - var - CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; - begin - exit(CreateVATPostingGroups.NOVAT()); - end; -#endif procedure EUPostingGroupST(): Code[20] begin @@ -204,31 +186,6 @@ codeunit 11379 "Create DE VAT Posting Groups" exit(Min7Tok); end; -#if not CLEAN27 - [Obsolete('Use the procedure in W1 instead', '27.0')] - procedure Reduced(): Code[20] - begin - exit(ReducedTok); - end; - - [Obsolete('Use the procedure in W1 instead', '27.0')] - procedure ServRed(): Code[20] - begin - exit(ServRedTok); - end; - - [Obsolete('Use the procedure in W1 instead', '27.0')] - procedure ServNormal(): Code[20] - begin - exit(ServNormTok); - end; - - [Obsolete('Use the procedure in W1 instead', '27.0')] - procedure FullNormal(): Code[20] - begin - exit(FullNormalTok); - end; -#endif var VAT19Tok: Label 'VAT19', MaxLength = 20; @@ -236,12 +193,6 @@ codeunit 11379 "Create DE VAT Posting Groups" EUSTTok: Label 'EUST', MaxLength = 20, Locked = true; Min19Tok: Label 'MIN19', MaxLength = 20, Locked = true; Min7Tok: Label 'MIN7', MaxLength = 20, Locked = true; -#if not CLEAN27 - ReducedTok: Label 'REDUCED', MaxLength = 20, Locked = true; - ServRedTok: Label 'SERV RED', MaxLength = 20, Locked = true; - ServNormTok: Label 'SERV NORM', MaxLength = 20, Locked = true; - FullNormalTok: Label 'FULL NORMAL', MaxLength = 20, Locked = true; -#endif MiscellaneousVATLbl: Label 'Miscellaneous %1 VAT', Comment = '%1=a number specifying the VAT percentage', MaxLength = 100; EUPostingGroupSTLbl: Label 'Einfuhrumsatzsteuer', Locked = true; MinderungDescriptionLbl: Label 'Minderung %1', Locked = true; diff --git a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Inventory/2. Master Data/CreateDEItemCharge.Codeunit.al b/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Inventory/2. Master Data/CreateDEItemCharge.Codeunit.al deleted file mode 100644 index 12adb83a1a1..00000000000 --- a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Inventory/2. Master Data/CreateDEItemCharge.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 11095 "Create DE Item Charge" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Inventory/2. Master Data/CreateDEItemTemplate.Codeunit.al b/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Inventory/2. Master Data/CreateDEItemTemplate.Codeunit.al deleted file mode 100644 index 2d438969636..00000000000 --- a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Inventory/2. Master Data/CreateDEItemTemplate.Codeunit.al +++ /dev/null @@ -1,16 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; -codeunit 11096 "Create DE Item Template" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/WarehouseModuleSetupDE.Codeunit.al b/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/WarehouseModuleSetupDE.Codeunit.al deleted file mode 100644 index 2419f09e56f..00000000000 --- a/src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/WarehouseModuleSetupDE.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Localization; - -codeunit 11083 "Warehouse Module Setup DE" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is obsolete, not replacement is needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/DE/EDocumentDE/app/src/EDocumentServiceDE.PageExt.al b/src/Apps/DE/EDocumentDE/app/src/EDocumentServiceDE.PageExt.al index dbff16c6562..a184bfafbc5 100644 --- a/src/Apps/DE/EDocumentDE/app/src/EDocumentServiceDE.PageExt.al +++ b/src/Apps/DE/EDocumentDE/app/src/EDocumentServiceDE.PageExt.al @@ -9,22 +9,11 @@ pageextension 13915 "E-Document Service DE" extends "E-Document Service" { layout { -#if not CLEAN27 - addafter(ImportParamenters) - { -#pragma warning disable AS0125 - group(Export) - { - ObsoleteState = Pending; - ObsoleteReason = 'Rearranging the fields.'; - ObsoleteTag = '27.0'; -#else addlast(ExportProcessing) { group(BuyerReference) { ShowCaption = false; -#endif field("Buyer Reference Mandatory"; Rec."Buyer Reference Mandatory") { ApplicationArea = All; diff --git a/src/Apps/DE/EDocumentDE/app/src/ZUGFeRD/PostedSalesCrMemo.ReportExt.al b/src/Apps/DE/EDocumentDE/app/src/ZUGFeRD/PostedSalesCrMemo.ReportExt.al index 7c49851e9ff..c969dd30957 100644 --- a/src/Apps/DE/EDocumentDE/app/src/ZUGFeRD/PostedSalesCrMemo.ReportExt.al +++ b/src/Apps/DE/EDocumentDE/app/src/ZUGFeRD/PostedSalesCrMemo.ReportExt.al @@ -28,13 +28,6 @@ reportextension 13919 "Posted Sales Cr.Memo" extends "Standard Sales - Credit Me end; #pragma warning disable AS0072 -#if not CLEAN27 - [Obsolete('Event not used anymore. If you need to know whether the report is being called for ZUGFeRD Export then use IsZUGFeRDPrintProcess in Codeunit "Export ZUGFeRD Document"', '27.2')] - [IntegrationEvent(false, false)] - local procedure OnPreReportOnBeforeInitializePDF(SalesCrMemoHeader: Record "Sales Cr.Memo Header"; var CreateZUGFeRDXML: Boolean) - begin - end; -#endif #pragma warning restore AS0072 } \ No newline at end of file diff --git a/src/Apps/DE/EDocumentDE/app/src/ZUGFeRD/PostedSalesInvoice.ReportExt.al b/src/Apps/DE/EDocumentDE/app/src/ZUGFeRD/PostedSalesInvoice.ReportExt.al index 726811d5726..07284d9dfcf 100644 --- a/src/Apps/DE/EDocumentDE/app/src/ZUGFeRD/PostedSalesInvoice.ReportExt.al +++ b/src/Apps/DE/EDocumentDE/app/src/ZUGFeRD/PostedSalesInvoice.ReportExt.al @@ -26,13 +26,6 @@ reportextension 13918 "Posted Sales Invoice" extends "Standard Sales - Invoice" end; #pragma warning disable AS0072 -#if not CLEAN27 - [Obsolete('Event not used anymore. If you need to know whether the report is being called for ZUGFeRD Export then use IsZUGFeRDPrintProcess in Codeunit "Export ZUGFeRD Document"', '27.2')] - [IntegrationEvent(false, false)] - local procedure OnPreReportOnBeforeInitializePDF(SalesInvHeader: Record "Sales Invoice Header"; var CreateZUGFeRDXML: Boolean) - begin - end; -#endif #pragma warning restore AS0072 } \ No newline at end of file diff --git a/src/Apps/DK/C52012DataMigration/app/src/items/C5ItemMigrator.Codeunit.al b/src/Apps/DK/C52012DataMigration/app/src/items/C5ItemMigrator.Codeunit.al index d1e56d8aa41..262a54d6a68 100644 --- a/src/Apps/DK/C52012DataMigration/app/src/items/C5ItemMigrator.Codeunit.al +++ b/src/Apps/DK/C52012DataMigration/app/src/items/C5ItemMigrator.Codeunit.al @@ -6,10 +6,8 @@ namespace Microsoft.DataMigration.C5; using Microsoft.Inventory.BOM; -#if CLEAN27 using Microsoft.Pricing.Asset; using Microsoft.Pricing.Source; -#endif using System.Integration; codeunit 1867 "C5 Item Migrator" @@ -448,49 +446,6 @@ codeunit 1867 "C5 Item Migrator" until C5InvenPrice.Next() = 0; end; -#if not CLEAN27 - local procedure CreateSalesLineDiscountIfNeeded(C5InvenCustDisc: Record "C5 InvenCustDisc") - var - SalesTypeToSet: Option Customer,"Customer Disc. Group","All Customers",Campaign; - TypeToSet: Option Item,"Item Disc. Group"; - begin - if C5InvenCustDisc.Type <> C5InvenCustDisc.Type::Percent then - exit; - - case C5InvenCustDisc.AccountCode of - C5InvenCustDisc.AccountCode::Specific: - SalesTypeToSet := SalesTypeToSet::Customer; - - C5InvenCustDisc.AccountCode::Group: - begin - CreateNavCustDiscGroupIfNeeded(C5InvenCustDisc.AccountRelation); // to make sure the group exists - SalesTypeToSet := SalesTypeToSet::"Customer Disc. Group"; - end; - else - exit; - end; - - case C5InvenCustDisc.ItemCode of - C5InvenCustDisc.ItemCode::Specific: - TypeToSet := TypeToSet::Item; - - C5InvenCustDisc.ItemCode::Group: - begin - CreateItemDiscGroupIfNeeded(C5InvenCustDisc.ItemRelation); // to make sure the group exists - TypeToSet := TypeToSet::"Item Disc. Group"; - end; - else - exit; - end; - - UninitializedItemDataMigrationFacade.CreateSalesLineDiscountIfNeeded( - SalesTypeToSet, - C5InvenCustDisc.AccountRelation, - TypeToSet, - C5InvenCustDisc.ItemRelation, - C5InvenCustDisc.Rate_); - end; -#else local procedure CreateSalesLineDiscountIfNeeded(C5InvenCustDisc: Record "C5 InvenCustDisc") var SalesTypeToSet: Enum "Price Source Type"; @@ -533,7 +488,6 @@ codeunit 1867 "C5 Item Migrator" C5InvenCustDisc.Rate_, 0); end; -#endif local procedure CreateNavCustDiscGroupIfNeeded(C5CustDiscountGroupCode: Code[10]) var @@ -558,25 +512,6 @@ codeunit 1867 "C5 Item Migrator" UninitializedItemDataMigrationFacade.CreateItemDiscGroupIfNeeded(C5DiscountGroupCode, GroupDescription); end; -#if not CLEAN27 - local procedure CreateNavSalesPriceIfNeeded(C5InvenPrice: Record "C5 InvenPrice") - var - SalesType: Option Customer,"Customer Price Group","All Customers",Campaign; - begin - CreateCustomerPriceGroupIfNeeded(C5InvenPrice.PriceGroup); - - UninitializedItemDataMigrationFacade.CreateSalesPriceIfNeeded( - SalesType::"Customer Price Group", - C5InvenPrice.PriceGroup, - C5InvenPrice.ItemNumber, - C5InvenPrice.Price, - C5InvenPrice.Currency, - 0D, - '', - 0, - ''); - end; -#else local procedure CreateNavSalesPriceIfNeeded(C5InvenPrice: Record "C5 InvenPrice") var SalesType: Enum "Price Source Type"; @@ -592,7 +527,6 @@ codeunit 1867 "C5 Item Migrator" '', '', 0, C5InvenPrice.Price); end; -#endif local procedure CreateCustomerPriceGroupIfNeeded(C5InvenPriceGroupTxt: Code[10]): Code[10] var diff --git a/src/Apps/DK/C52012DataMigration/test/src/C5ItemMigratorTest.Codeunit.al b/src/Apps/DK/C52012DataMigration/test/src/C5ItemMigratorTest.Codeunit.al index 5da9c525c6e..f7d3dc59142 100644 --- a/src/Apps/DK/C52012DataMigration/test/src/C5ItemMigratorTest.Codeunit.al +++ b/src/Apps/DK/C52012DataMigration/test/src/C5ItemMigratorTest.Codeunit.al @@ -239,12 +239,7 @@ codeunit 148005 "C5 Item Migrator Test" DefaultDimension: Record "Default Dimension"; DimensionValue: Record "Dimension Value"; CustomerDiscountGroup: Record "Customer Discount Group"; -#if not CLEAN27 - SalesLineDiscount: Record "Sales Line Discount"; - SalesPrice: Record "Sales Price"; -#else PriceListLine: Record "Price List Line"; -#endif CustomerPriceGroup: Record "Customer Price Group"; GenJournalLine: Record "Gen. Journal Line"; C5InvenBom: Record "C5 InvenBOM"; @@ -258,17 +253,10 @@ codeunit 148005 "C5 Item Migrator Test" CustomerDiscountGroup.DeleteAll(); Vendor.DeleteAll(); TariffNumber.DeleteAll(); -#if not CLEAN27 - SalesLineDiscount.DeleteAll(); -#endif ItemTrackingCode.DeleteAll(); DefaultDimension.DeleteAll(); DimensionValue.DeleteAll(); -#if not CLEAN27 - SalesPrice.DeleteAll(); -#else PriceListLine.DeleteAll(); -#endif CustomerPriceGroup.DeleteAll(); GenJournalLine.DeleteAll(); C5InvenBom.DeleteAll(); @@ -493,12 +481,7 @@ codeunit 148005 "C5 Item Migrator Test" ItemTrackingCode: Record "Item Tracking Code"; DefaultDimension: Record "Default Dimension"; CustomerDiscountGroup: Record "Customer Discount Group"; -#if not CLEAN27 - SalesLineDiscount: Record "Sales Line Discount"; - SalesPrice: Record "Sales Price"; -#else PriceListLine: Record "Price List Line"; -#endif CustomerPriceGroup: Record "Customer Price Group"; GenProductPostingSetup: Record "General Posting Setup"; InventoryPostingSetup: Record "Inventory Posting Setup"; @@ -529,21 +512,12 @@ codeunit 148005 "C5 Item Migrator Test" Assert.AreEqual('Super amazing discount cust', CustomerDiscountGroup.Description, 'CustomerDiscountGroup.Description'); // check inven cust disc -#if not CLEAN27 - SalesLineDiscount.SetRange(Type, SalesLineDiscount.Type::Item); - SalesLineDiscount.SetRange(Code, ItemNumTxt); - SalesLineDiscount.SetRange("Sales Type", SalesLineDiscount."Sales Type"::"Customer Disc. Group"); - SalesLineDiscount.SetRange("Sales Code", 'SuperC'); - SalesLineDiscount.SetRange("Line Discount %", 12.1); - Assert.IsFalse(SalesLineDiscount.IsEmpty(), 'The discount was not created.'); -#else PriceListLine.SetRange("Asset Type", "Price Asset Type"::Item); PriceListLine.SetRange("Asset No.", ItemNumTxt); PriceListLine.SetRange("Source Type", "Price Source Type"::"Customer Disc. Group"); PriceListLine.SetRange("Source No.", 'SuperC'); PriceListLine.SetRange("Line Discount %", 12.1); Assert.IsFalse(PriceListLine.IsEmpty(), 'The discount was not created.'); -#endif Assert.AreEqual(Item."Costing Method"::FIFO, Item."Costing Method", 'Costing Method incorrect'); Assert.AreEqual(111.11, Item."Unit Cost", 'Unit Cost incorrect'); @@ -585,14 +559,6 @@ codeunit 148005 "C5 Item Migrator Test" Assert.IsTrue(Item.PreventNegativeInventory(), 'PreventNegativeInventory incorrect'); // check price is created -#if not CLEAN27 - SalesPrice.SetRange("Sales Code", 'PREMIUM'); - SalesPrice.SetRange("Sales Type", SalesPrice."Sales Type"::"Customer Price Group"); - SalesPrice.SetRange("Item No.", ItemNumTxt); - SalesPrice.SetRange("Unit Price", 1600.80); - SalesPrice.SetRange("Currency Code", 'EUR'); - Assert.IsFalse(SalesPrice.IsEmpty(), 'The price was not created.'); -#else PriceListLine.SetRange("Source No.", 'PREMIUM'); PriceListLine.SetRange("Source Type", "Price Source Type"::"Customer Price Group"); PriceListLine.SetRange("Asset Type", "Price Asset Type"::Item); @@ -600,7 +566,6 @@ codeunit 148005 "C5 Item Migrator Test" PriceListLine.SetRange("Unit Price", 1600.80); PriceListLine.SetRange("Currency Code", 'EUR'); Assert.IsFalse(PriceListLine.IsEmpty(), 'The discount was not created.'); -#endif // check customer price group is created CustomerPriceGroup.Get('Premium'); diff --git a/src/Apps/DK/ContosoCoffeeDemoDatasetDK/app/DemoData/Common/CommonModuleDK.Codeunit.al b/src/Apps/DK/ContosoCoffeeDemoDatasetDK/app/DemoData/Common/CommonModuleDK.Codeunit.al deleted file mode 100644 index fc7addc1150..00000000000 --- a/src/Apps/DK/ContosoCoffeeDemoDatasetDK/app/DemoData/Common/CommonModuleDK.Codeunit.al +++ /dev/null @@ -1,18 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 13701 "Common Module DK" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - -} -#endif \ No newline at end of file diff --git a/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Common/CommonModuleES.Codeunit.al b/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Common/CommonModuleES.Codeunit.al deleted file mode 100644 index b0d3dba20bd..00000000000 --- a/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Common/CommonModuleES.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 10782 "Common Module ES" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Finance/1.Setup Data/CreateESVATPostingGroups.Codeunit.al b/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Finance/1.Setup Data/CreateESVATPostingGroups.Codeunit.al index 8828593c79c..b5a3ee5023b 100644 --- a/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Finance/1.Setup Data/CreateESVATPostingGroups.Codeunit.al +++ b/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Finance/1.Setup Data/CreateESVATPostingGroups.Codeunit.al @@ -76,15 +76,6 @@ codeunit 10794 "Create ES VAT Posting Groups" exit(NoTaxTok); end; -#if not CLEAN27 - [Obsolete('Use NoVat in codeunit 5473 "Create VAT Posting Groups" instead', '27.0')] - procedure NoVat(): Code[20] - var - CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; - begin - exit(CreateVATPostingGroups.NOVAT()); - end; -#endif procedure Vat7(): Code[20] begin diff --git a/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Inventory/2.Master Data/CreateESItemCharge.Codeunit.al b/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Inventory/2.Master Data/CreateESItemCharge.Codeunit.al deleted file mode 100644 index 8cac9ae583f..00000000000 --- a/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Inventory/2.Master Data/CreateESItemCharge.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 10801 "Create ES Item Charge" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Inventory/2.Master Data/CreateESItemTemplate.Codeunit.al b/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Inventory/2.Master Data/CreateESItemTemplate.Codeunit.al deleted file mode 100644 index 47d548ed387..00000000000 --- a/src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Inventory/2.Master Data/CreateESItemTemplate.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 10802 "Create ES Item Template" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/FI/ContosoCoffeeDemoDatasetFI/app/DemoData/Common/CommonModuleFI.Codeunit.al b/src/Apps/FI/ContosoCoffeeDemoDatasetFI/app/DemoData/Common/CommonModuleFI.Codeunit.al deleted file mode 100644 index 9269191adb6..00000000000 --- a/src/Apps/FI/ContosoCoffeeDemoDatasetFI/app/DemoData/Common/CommonModuleFI.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 13404 "Common Module FI" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/FR/ContosoCoffeeDemoDatasetFR/app/DemoData/Common/CommonModuleFR.Codeunit.al b/src/Apps/FR/ContosoCoffeeDemoDatasetFR/app/DemoData/Common/CommonModuleFR.Codeunit.al deleted file mode 100644 index b7646bb52ad..00000000000 --- a/src/Apps/FR/ContosoCoffeeDemoDatasetFR/app/DemoData/Common/CommonModuleFR.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 10856 "Common Module FR" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/FR/ContosoCoffeeDemoDatasetFR/app/DemoData/Warehousing/WarehouseModuleSetupFR.Codeunit.al b/src/Apps/FR/ContosoCoffeeDemoDatasetFR/app/DemoData/Warehousing/WarehouseModuleSetupFR.Codeunit.al deleted file mode 100644 index 5eff28cc833..00000000000 --- a/src/Apps/FR/ContosoCoffeeDemoDatasetFR/app/DemoData/Warehousing/WarehouseModuleSetupFR.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Warehousing; - -codeunit 10858 "Warehouse Module Setup FR" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is obsolete, not replacement is needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif diff --git a/src/Apps/FR/PaymentManagementFR/app/src/Codeunits/PaymentMgtSubscribersFR.Codeunit.al b/src/Apps/FR/PaymentManagementFR/app/src/Codeunits/PaymentMgtSubscribersFR.Codeunit.al index 71e6ace39cb..2eac2f65967 100644 --- a/src/Apps/FR/PaymentManagementFR/app/src/Codeunits/PaymentMgtSubscribersFR.Codeunit.al +++ b/src/Apps/FR/PaymentManagementFR/app/src/Codeunits/PaymentMgtSubscribersFR.Codeunit.al @@ -393,9 +393,7 @@ codeunit 10838 "PaymentMgt Subscribers FR" else UnrealCVLedgEntryBuffer.SetRange("Payment Slip No.", GenJnlLine."Document No."); UnrealCVLedgEntryBuffer.SetRange("Applies-to ID", GenJnlLine."Applies-to ID"); -#pragma warning disable AL0667 - if UnrealCVLedgEntryBuffer.FindSet(true, false) then -#pragma warning restore AL0667 + if UnrealCVLedgEntryBuffer.FindSet(true) then repeat OldCustLedgEntry.Get(UnrealCVLedgEntryBuffer."Entry No."); OldCustLedgEntry.CalcFields( @@ -443,9 +441,7 @@ codeunit 10838 "PaymentMgt Subscribers FR" else UnrealCVLedgEntryBuffer.SetRange("Payment Slip No.", GenJnlLine."Document No."); UnrealCVLedgEntryBuffer.SetRange("Applies-to ID", GenJnlLine."Applies-to ID"); -#pragma warning disable AL0667 - if UnrealCVLedgEntryBuffer.FindSet(true, false) then -#pragma warning restore AL0667 + if UnrealCVLedgEntryBuffer.FindSet(true) then repeat OldVendLedgEntry.Get(UnrealCVLedgEntryBuffer."Entry No."); OldVendLedgEntry.CalcFields( diff --git a/src/Apps/GB/ContosoCoffeeDemoDatasetGB/app/DemoData/Finance/1.Setup Data/CreateGBVATReportSetup.Codeunit.al b/src/Apps/GB/ContosoCoffeeDemoDatasetGB/app/DemoData/Finance/1.Setup Data/CreateGBVATReportSetup.Codeunit.al deleted file mode 100644 index eb1e2579788..00000000000 --- a/src/Apps/GB/ContosoCoffeeDemoDatasetGB/app/DemoData/Finance/1.Setup Data/CreateGBVATReportSetup.Codeunit.al +++ /dev/null @@ -1,32 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Finance; - -codeunit 10542 "Create GB VAT Report Setup" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - - trigger OnRun() - begin - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - procedure GovTalkVersion(): Code[10] - begin - exit(GovTalkVersionTok); - end; - - var - GovTalkVersionTok: Label 'GOVTALK', MaxLength = 10; -} -#endif diff --git a/src/Apps/GB/ContosoCoffeeDemoDatasetGB/app/DemoData/GBContosoLocalization.Codeunit.al b/src/Apps/GB/ContosoCoffeeDemoDatasetGB/app/DemoData/GBContosoLocalization.Codeunit.al index e86e7f16938..cd58b6c2cd1 100644 --- a/src/Apps/GB/ContosoCoffeeDemoDatasetGB/app/DemoData/GBContosoLocalization.Codeunit.al +++ b/src/Apps/GB/ContosoCoffeeDemoDatasetGB/app/DemoData/GBContosoLocalization.Codeunit.al @@ -93,9 +93,6 @@ codeunit 11487 "GB Contoso Localization" CreateGBGenPostingSetup.UpdateGenPostingSetup(); CreateGBVATPostingGroup.UpdateVATPostingSetup(); Codeunit.Run(Codeunit::"Create GB Column Layout Name"); -#if not CLEAN27 - Codeunit.Run(Codeunit::"Create GB VAT Report Setup"); -#endif Codeunit.Run(Codeunit::"Create GB VAT Statement"); Codeunit.Run(Codeunit::"Create GB Gen. Journal Batch"); end; @@ -127,9 +124,6 @@ codeunit 11487 "GB Contoso Localization" CreateGBVendorPostingGroup: Codeunit "Create GB Vendor Posting Group"; CreateGBCustPostingGroup: Codeunit "Create GB Cust Posting Group"; CreateGBCustomer: Codeunit "Create GB Customer"; -#if not CLEAN27 - CreateGBVATReportSetup: Codeunit "Create GB VAT Report Setup"; -#endif CreateGBSalesDimensionValue: Codeunit "Create GB Sales DimensionValue"; CreateGBFAPostingGroup: Codeunit "Create GB FA Posting Group"; CreateGBResource: Codeunit "Create GB Resource"; @@ -168,9 +162,6 @@ codeunit 11487 "GB Contoso Localization" if ContosoDemoDataLevel = Enum::"Contoso Demo Data Level"::"Master Data" then Codeunit.Run(Codeunit::"Create Allocation Account GB"); BindSubscription(CreateGBResource); -#if not CLEAN27 - BindSubscription(CreateGBVATReportSetup); -#endif BindSubscription(CreateGBAnalysisViews); BindSubscription(CreateGBVATPostingGroup); BindSubscription(CreateGBAccScheduleLine); @@ -193,9 +184,6 @@ codeunit 11487 "GB Contoso Localization" CreateGBVendorPostingGroup: Codeunit "Create GB Vendor Posting Group"; CreateGBCustPostingGroup: Codeunit "Create GB Cust Posting Group"; CreateGBCustomer: Codeunit "Create GB Customer"; -#if not CLEAN27 - CreateGBVATReportSetup: Codeunit "Create GB VAT Report Setup"; -#endif CreateGBSalesDimensionValue: Codeunit "Create GB Sales DimensionValue"; CreateGBFAPostingGroup: Codeunit "Create GB FA Posting Group"; CreateGBResource: Codeunit "Create GB Resource"; @@ -233,9 +221,6 @@ codeunit 11487 "GB Contoso Localization" begin UnbindSubscription(CreateGBResource); UnbindSubscription(CreateGBAnalysisViews); -#if not CLEAN27 - UnbindSubscription(CreateGBVATReportSetup); -#endif UnbindSubscription(CreateGBVATPostingGroup); UnbindSubscription(CreateGBVATSetupPostGrp); UnbindSubscription(CreateGBVATStatement); diff --git a/src/Apps/GB/GovTalk/app/src/Codeunits/FeatureGovTalk.Codeunit.al b/src/Apps/GB/GovTalk/app/src/Codeunits/FeatureGovTalk.Codeunit.al deleted file mode 100644 index f685dbf6bfc..00000000000 --- a/src/Apps/GB/GovTalk/app/src/Codeunits/FeatureGovTalk.Codeunit.al +++ /dev/null @@ -1,198 +0,0 @@ -#if not CLEAN27 -/// -/// GovTalk Feature will be moved to a separate app. -/// -namespace Microsoft.Finance.VAT.GovTalk; - -using Microsoft.Finance.VAT.Reporting; -using Microsoft.Foundation.Company; -using Microsoft.Foundation.Navigate; -using System.Environment.Configuration; -using System.Upgrade; - -codeunit 10526 "Feature - GovTalk" implements "Feature Data Update" -{ - Access = Internal; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'Feature GovTalk will be enabled by default in version 30.0.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - var - TempDocumentEntry: Record "Document Entry" temporary; - DescriptionTxt: Label 'Existing records in GB BaseApp fields will be copied to GovTalk App fields'; - - procedure IsDataUpdateRequired(): Boolean; - begin - CountRecords(); - if TempDocumentEntry.IsEmpty() then begin - SetUpgradeTag(false); - exit(false); - end; - exit(true); - end; - - procedure ReviewData(); - var - DataUpgradeOverview: Page "Data Upgrade Overview"; - begin - Commit(); - Clear(DataUpgradeOverview); - DataUpgradeOverview.Set(TempDocumentEntry); - DataUpgradeOverview.RunModal(); - end; - - procedure AfterUpdate(FeatureDataUpdateStatus: Record "Feature Data Update Status") - begin - // The data update runs per company, and the framework has already set the status of the company that - // was updated. The status of the other companies must stay Pending until their own data is migrated. - SetUpgradeTag(true); - end; - - procedure UpdateData(FeatureDataUpdateStatus: Record "Feature Data Update Status"); - var - FeatureDataUpdateMgt: Codeunit "Feature Data Update Mgt."; - StartDateTime: DateTime; - EndDateTime: DateTime; - begin - StartDateTime := CurrentDateTime; - FeatureDataUpdateMgt.LogTask(FeatureDataUpdateStatus, 'Upgrade GovTalk', StartDateTime); - UpgradeGovTalk(); - EndDateTime := CurrentDateTime; - FeatureDataUpdateMgt.LogTask(FeatureDataUpdateStatus, 'Upgrade GovTalk', EndDateTime); - end; - - procedure GetTaskDescription() TaskDescription: Text; - begin - TaskDescription := DescriptionTxt; - end; - - local procedure CountRecords() - var - CompanyInfo: Record "Company Information"; - ECSLVATReportLine: Record "ECSL VAT Report Line"; - VATReportsConfiguration: Record "VAT Reports Configuration"; - VATReportHeader: Record "VAT Report Header"; - begin - TempDocumentEntry.Reset(); - TempDocumentEntry.DeleteAll(); - - InsertDocumentEntry(Database::"Company Information", CompanyInfo.TableCaption, CompanyInfo.Count()); - InsertDocumentEntry(Database::"ECSL VAT Report Line", ECSLVATReportLine.TableCaption, ECSLVATReportLine.Count()); - InsertDocumentEntry(Database::"VAT Reports Configuration", VATReportsConfiguration.TableCaption, VATReportsConfiguration.Count()); - InsertDocumentEntry(Database::"VAT Report Header", VATReportHeader.TableCaption, VATReportHeader.Count()); - end; - - local procedure InsertDocumentEntry(TableID: Integer; TableName: Text; RecordCount: Integer) - begin - if RecordCount = 0 then - exit; - - TempDocumentEntry.Init(); - TempDocumentEntry."Entry No." += 1; - TempDocumentEntry."Table ID" := TableID; - TempDocumentEntry."Table Name" := CopyStr(TableName, 1, MaxStrLen(TempDocumentEntry."Table Name")); - TempDocumentEntry."No. of Records" := RecordCount; - TempDocumentEntry.Insert(); - end; - - local procedure UpgradeGovTalkMessage() - var - GovTalkMessageGB: Record "GovTalk Message"; -#pragma warning disable AL0797 - GovTalkMessage: Record "GovTalkMessage"; -#pragma warning restore AL0797 - begin - if GovTalkMessage.FindSet() then - repeat - GovTalkMessageGB.TransferFields(GovTalkMessage); - GovTalkMessageGB.Insert(); - until GovTalkMessage.Next() = 0; - end; - - local procedure UpgradeGovTalkMsgParts() - var - GovTalkMsgPartsGB: Record "GovTalk Msg. Parts"; - GovTalkMsgParts: Record "GovTalk Message Parts"; - begin - if GovTalkMsgParts.FindSet() then - repeat - GovTalkMsgPartsGB.TransferFields(GovTalkMsgParts); - GovTalkMsgPartsGB.Insert(); - until GovTalkMsgParts.Next() = 0; - end; - - local procedure UpgradeGovTalkSetup() - var - GovTalkSetupGB: Record "Gov Talk Setup"; -#pragma warning disable AL0797 - GovTalkSetup: Record "GovTalk Setup"; -#pragma warning restore AL0797 - begin - if GovTalkSetup.FindSet() then - repeat - GovTalkSetupGB.TransferFields(GovTalkSetup); - GovTalkSetupGB.Insert(); - until GovTalkSetup.Next() = 0; - end; - - local procedure UpgradeGovTalk() - var - CompanyInfo: Record "Company Information"; - ECSLVATReportLine: Record "ECSL VAT Report Line"; - VATReportsConfiguration: Record "VAT Reports Configuration"; - VATReportHeader: Record "VAT Report Header"; - begin - UpgradeGovTalkMessage(); - UpgradeGovTalkMsgParts(); - UpgradeGovTalkSetup(); - if CompanyInfo.FindSet() then - repeat -#pragma warning disable AL0432 - CompanyInfo."Branch Number GB" := CompanyInfo."Branch Number"; -#pragma warning restore AL0432 - CompanyInfo.Modify(); - until CompanyInfo.Next() = 0; - - if ECSLVATReportLine.FindSet() then - repeat -#pragma warning disable AL0432 - ECSLVATReportLine."Line Status GB" := ECSLVATReportLine."Line Status"; - ECSLVATReportLine."XML Part Id GB" := ECSLVATReportLine."XML Part Id"; -#pragma warning restore AL0432 - ECSLVATReportLine.Modify(); - until ECSLVATReportLine.Next() = 0; - - if VATReportsConfiguration.FindSet() then - repeat -#pragma warning disable AL0432 - VATReportsConfiguration."Content Max Lines GB" := VATReportsConfiguration."Content Max Lines"; -#pragma warning restore AL0432 - VATReportsConfiguration.Modify(); - until VATReportsConfiguration.Next() = 0; - - if VATReportHeader.FindSet() then - repeat - if VATReportHeader.Status.AsInteger() = 7 then - VATReportHeader.Status := VATReportHeader.Status::"Part. Accepted"; - VATReportHeader.Modify(); - until VATReportHeader.Next() = 0; - end; - - local procedure SetUpgradeTag(DataUpgradeExecuted: Boolean) - var - UpgradeTag: Codeunit "Upgrade Tag"; - UpgTagGovTalk: Codeunit "Upg. Tag GovTalk"; - begin - // Set the upgrade tag to indicate that the data update is executed/skipped and the feature is enabled. - // This is needed when the feature is enabled by default in a future version, to skip the data upgrade. - if UpgradeTag.HasUpgradeTag(UpgTagGovTalk.GetGovTalkUpgradeTag()) then - exit; - - UpgradeTag.SetUpgradeTag(UpgTagGovTalk.GetGovTalkUpgradeTag()); - if not DataUpgradeExecuted then - UpgradeTag.SetSkippedUpgrade(UpgTagGovTalk.GetGovTalkUpgradeTag(), true); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalk.Codeunit.al b/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalk.Codeunit.al deleted file mode 100644 index 2616b888ed1..00000000000 --- a/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalk.Codeunit.al +++ /dev/null @@ -1,37 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.GovTalk; - -using System.Environment.Configuration; - -codeunit 10568 GovTalk -{ - Access = Internal; - InherentEntitlements = X; - InherentPermissions = X; - - var - FeatureKeyIdTok: Label 'GovTalk', Locked = true; - - procedure IsEnabled() Enabled: Boolean - var - FeatureManagementFacade: Codeunit "Feature Management Facade"; - begin - Enabled := FeatureManagementFacade.IsEnabled(FeatureKeyIdTok); - OnAfterCheckFeatureEnabled(Enabled); - end; - - procedure GetFeatureKeyId(): Text - begin - exit(FeatureKeyIdTok); - end; - - [IntegrationEvent(true, false)] - local procedure OnAfterCheckFeatureEnabled(var IsEnabled: Boolean) - begin - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalkMessageManagement.Codeunit.al b/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalkMessageManagement.Codeunit.al index 0fdc9c08d44..8b0aa8dd538 100644 --- a/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalkMessageManagement.Codeunit.al +++ b/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalkMessageManagement.Codeunit.al @@ -421,15 +421,6 @@ codeunit 10569 "GovTalk Message Management" TempBlob.CreateOutStream(BlobOutStream); MemoryStream.WriteTo(BlobOutStream); MemoryStream.Close(); -#if not CLEAN27 -#pragma warning disable AL0432 - if MessageType = MessageType::Submission then - VATReportArchive.ArchiveSubmissionMessage( - VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", TempBlob, XMLPartID) - else - VATReportArchive.ArchiveResponseMessage( - VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", TempBlob, XMLPartID); -#else if VATReportArchive.Get(VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", XMLPartID) then if MessageType = MessageType::Submission then begin VATReportArchive.SetXMLPartID(XMLPartID); @@ -439,7 +430,6 @@ codeunit 10569 "GovTalk Message Management" VATReportArchive.ArchiveResponseMessage( VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", TempBlob); #pragma warning restore AL0432 -#endif end; [Scope('OnPrem')] diff --git a/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalkSubscribers.Codeunit.al b/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalkSubscribers.Codeunit.al index 59247f6e0cf..8ad071e07a0 100644 --- a/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalkSubscribers.Codeunit.al +++ b/src/Apps/GB/GovTalk/app/src/Codeunits/GovTalkSubscribers.Codeunit.al @@ -22,35 +22,12 @@ codeunit 10503 "GovTalk Subscribers" begin end; -#if not CLEAN27 -#pragma warning disable AL0432 - [Obsolete('Event will be removed in a future release', '27.0')] - [EventSubscriber(ObjectType::Page, Page::"ECSL Report", 'OnBeforeDeleteErrors', '', false, false)] - local procedure OnBeforeDeleteErrors(var IsHandled: Boolean) - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - IsHandled := true; - end; -#pragma warning restore AL0432 -#endif [EventSubscriber(ObjectType::Page, Page::"ECSL Report", 'OnBeforeCheckForErrors', '', false, false)] local procedure OnAfterCheckForErrors(var ErrorsExist: Boolean; ErrorMessage: Record "Error Message"; TempErrorMessage: Record "Error Message" temporary) var GovTalkSetup: Record "Gov Talk Setup"; -#if not CLEAN27 - TempErrorMessage2: Record "Error Message" temporary; - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - TempErrorMessage := TempErrorMessage2; - if not GovTalk.IsEnabled() then - exit; -#endif ErrorMessage.SetRange("Context Record ID", GovTalkSetup.RecordId); ErrorMessage.CopyToTemp(TempErrorMessage); end; @@ -59,14 +36,7 @@ codeunit 10503 "GovTalk Subscribers" local procedure OnAfterClassifyCountrySpecificTables() var DataClassificationEvalData: Codeunit "Data Classification Eval. Data"; -#if not CLEAN27 - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif DataClassificationEvalData.SetTableFieldsToNormal(DATABASE::"GovTalk Message"); DataClassificationEvalData.SetTableFieldsToNormal(DATABASE::"Gov Talk Setup"); DataClassificationEvalData.SetTableFieldsToNormal(DATABASE::"GovTalk Msg. Parts"); @@ -74,15 +44,7 @@ codeunit 10503 "GovTalk Subscribers" [EventSubscriber(ObjectType::Report, Report::"EC Sales List", 'OnAfterVATEntryNext', '', false, false)] local procedure OnAfterVATEntryNext(ResetVATEntry: Boolean; var sender: Report "EC Sales List"; "VAT Entry": Record "VAT Entry") -#if not CLEAN27 - var - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif sender.SetNewGroupStarted(ResetVATEntry); sender.SetPrevVATRegNo("VAT Entry"."VAT Registration No."); sender.UpdateXMLFileRTCGB(); @@ -90,15 +52,7 @@ codeunit 10503 "GovTalk Subscribers" [EventSubscriber(ObjectType::Report, Report::"EC Sales List", 'OnBeforeSetGrouping', '', false, false)] local procedure OnBeforeSetGrouping(ReportLayout: Option "Separate &Lines","Column with &Amount"; NotEUTrdPartyAmt: Decimal; Grouping: Option NotEUTrdPartyAmt,NotEUTrdPartyAmtService,EUTrdPartyAmt,EUTrdPartyAmtService; NotEUTrdPartyAmtService: Decimal; EUTrdPartyAmt: Decimal; EUTrdPartyAmtService: Decimal; var sender: Report "EC Sales List") -#if not CLEAN27 - var - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif if ReportLayout = ReportLayout::"Separate &Lines" then begin if NotEUTrdPartyAmt <> 0 then begin Grouping := Grouping::NotEUTrdPartyAmt; @@ -122,72 +76,10 @@ codeunit 10503 "GovTalk Subscribers" sender.SetNotEUTrdPartyAmtService(NotEUTrdPartyAmtService); end; -#if not CLEAN27 -#pragma warning disable AL0432 - [Obsolete('Event will be removed in a future release', '27.0')] - [EventSubscriber(ObjectType::Report, Report::"EC Sales List", 'OnBeforeUpdateXMLFileRTC', '', false, false)] - local procedure OnBeforeUpdateXMLFileRTC(var IsHandled: Boolean) - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - IsHandled := true; - end; - - [EventSubscriber(ObjectType::Report, Report::"EC Sales List", 'OnBeforeSaveXMLFile', '', false, false)] - local procedure OnBeforeSaveXMLFile(var IsHandled: Boolean) - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - IsHandled := true; - end; - - [EventSubscriber(ObjectType::Report, Report::"EC Sales List", 'OnBeforePostingDateError', '', false, false)] - local procedure OnBeforePostingDateError(var IsHandled: Boolean) - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - IsHandled := true; - end; - - [EventSubscriber(ObjectType::Report, Report::"EC Sales List", 'OnBeforeCreateXMLDocument', '', false, false)] - local procedure OnBeforeCreateXMLDocument(var IsHandled: Boolean) - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - IsHandled := true; - end; - - [EventSubscriber(ObjectType::Codeunit, Codeunit::"EC Sales List Suggest Lines", 'OnBeforeIsApplicableEntry', '', false, false)] - local procedure OnBeforeIsApplicableEntry(var IsHandled: Boolean) - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - IsHandled := true; - end; -#pragma warning restore AL0432 -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"EC Sales List Suggest Lines", 'OnBeforeAddOrUpdateECLLine', '', false, false)] local procedure OnBeforeAddOrUpdateECLLine(EUVATEntries: Query "EU VAT Entries"; var ECSLVATReportLine: Record "ECSL VAT Report Line"; var IsHandled: Boolean) -#if not CLEAN27 - var - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif if not IsApplicableEntry(EUVATEntries) then IsHandled := true; @@ -226,46 +118,7 @@ codeunit 10503 "GovTalk Subscribers" exit(true); end; -#if not CLEAN27 -#pragma warning disable AL0432 - [Obsolete('Event will be removed in a future release', '27.0')] - [EventSubscriber(ObjectType::Table, Database::"VAT Report Archive", 'OnBeforeVATReportArchiveGet', '', false, false)] - local procedure OnBeforeVATReportArchiveGet(var IsHandled: Boolean; VATReportTypeValue: Option; VATReportNoValue: Code[20]) - var - VATReportArchive: Record "VAT Report Archive"; - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - if not VATReportArchive.Get(VATReportTypeValue, VATReportNoValue) then - IsHandled := true; - end; - [EventSubscriber(ObjectType::Table, Database::"VAT Report Archive", 'OnBeforeArchiveResponseMessage', '', false, false)] - local procedure OnBeforeArchiveResponseMessage(var IsHandled: Boolean; VATReportTypeValue: Option; VATReportNoValue: Code[20]; var VATReportArchive: Record "VAT Report Archive") - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - if VATReportArchive.Get(VATReportTypeValue, VATReportNoValue) then - IsHandled := true; - end; - - [EventSubscriber(ObjectType::Table, Database::"VAT Report Archive", 'OnBeforeNoSubmissionMessageAvailableError', '', false, false)] - local procedure OnBeforeNoSubmissionMessageAvailableError(var IsHandled: Boolean; var VATReportArchive: Record "VAT Report Archive"; VATReportTypeValue: Option; VATReportNoValue: Code[20]) - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - if VATReportArchive.Get(VATReportTypeValue, VATReportNoValue) then - IsHandled := true; - end; -#pragma warning restore AL0432 -#endif - -#if CLEAN27 [EventSubscriber(ObjectType::Table, Database::"VAT Report Archive", 'OnAfterNoSubmissionMessageAvailableError', '', false, false)] local procedure OnAfterNoSubmissionMessageAvailableError(var VATReportArchive: Record "VAT Report Archive"; var Rec: Record "VAT Report Archive"; VATReportTypeValue: Option; VATReportNoValue: Code[20]) var @@ -279,53 +132,29 @@ codeunit 10503 "GovTalk Subscribers" if not VATReportArchive.Get(VATReportTypeValue, VATReportNoValue, Rec."Xml Part ID") then Error(NoSubmissionMessageAvailableErr); end; -#endif [EventSubscriber(ObjectType::Page, Page::"VAT Report", 'OnBeforeDownloadSubmissionMessage', '', false, false)] local procedure OnBeforeDownloadSubmissionMessage(var IsHandled: Boolean; var VATReportHeader: Record "VAT Report Header") var -#if CLEAN27 VATReportArchive: Record "VAT Report Archive"; -#endif -#if not CLEAN27 - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif -#if CLEAN27 IsHandled := true; VATReportArchive.SetDummyGuid(true); VATReportArchive.DownloadSubmissionMessage(VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No."); VATReportArchive.SetDummyGuid(false); -#endif end; [EventSubscriber(ObjectType::Page, Page::"VAT Report", 'OnBeforeDownloadResponseMessage', '', false, false)] local procedure OnBeforeDownloadResponseMessage(var IsHandled: Boolean; var VATReportHeader: Record "VAT Report Header") var -#if CLEAN27 VATReportArchive: Record "VAT Report Archive"; -#endif -#if not CLEAN27 - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif -#if CLEAN27 IsHandled := true; VATReportArchive.SetDummyGuid(true); VATReportArchive.DownloadResponseMessage(VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No."); VATReportArchive.SetDummyGuid(false); -#endif end; -#if CLEAN27 [EventSubscriber(ObjectType::Table, Database::"VAT Report Archive", 'OnAfterNoResponseMessageAvailableError', '', false, false)] local procedure OnAfterNoResponseMessageAvailableError(var VATReportArchive: Record "VAT Report Archive"; var Rec: Record "VAT Report Archive"; VATReportTypeValue: Option; VATReportNoValue: Code[20]) var @@ -339,75 +168,25 @@ codeunit 10503 "GovTalk Subscribers" if not VATReportArchive.Get(VATReportTypeValue, VATReportNoValue, Rec."Xml Part ID") then Error(NoSubmissionMessageAvailableErr); end; -#endif -#if not CLEAN27 -#pragma warning disable AL0432 - [Obsolete('Event will be removed in a future release', '27.0')] - [EventSubscriber(ObjectType::Table, Database::"VAT Report Archive", 'OnBeforeNoResponseMessageAvailableError', '', false, false)] - local procedure OnBeforeNoResponseMessageAvailableError(var IsHandled: Boolean; var VATReportArchive: Record "VAT Report Archive"; VATReportTypeValue: Option; VATReportNoValue: Code[20]) - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - if VATReportArchive.Get(VATReportTypeValue, VATReportNoValue) then - IsHandled := true; - end; -#pragma warning restore AL0432 -#endif -#if CLEAN27 [EventSubscriber(ObjectType::Table, Database::"VAT Report Archive", 'OnAfterInitVATReportArchive', '', false, false)] local procedure OnAfterInitVATReportArchive(var VATReportArchive: Record "VAT Report Archive"; var Rec: Record "VAT Report Archive") begin VATReportArchive."Xml Part ID" := Rec.GetXMLPartID(); end; -#endif [EventSubscriber(ObjectType::Report, Report::"VAT Report Request Page", 'OnBeforeVATStatementLineFindSet', '', false, false)] local procedure OnBeforeVATStatementLineFindSet(var VATStatementLine: Record "VAT Statement Line"; VATReportHeader: Record "VAT Report Header") -#if not CLEAN27 - var - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif if VATStatementLine.Count() <> 9 then Error(WrongVATSatementSetupErr, VATReportHeader."Statement Template Name", VATReportHeader."Statement Name"); end; -#if not CLEAN27 -#pragma warning disable AL0432 - [Obsolete('Event will be removed in a future release', '27.0')] - [EventSubscriber(ObjectType::Report, Report::"VAT Report Request Page", 'OnBeforeVATStatementLineFindSet2', '', false, false)] - local procedure OnBeforeVATStatementLineFindSet2(var VATStatementLine: Record "VAT Statement Line"; VATReportHeader: Record "VAT Report Header"; var IsHandled: Boolean) - var - GovTalk: Codeunit GovTalk; - begin - if GovTalk.IsEnabled() then - exit; - IsHandled := true; - if VATStatementLine.Count() <> 9 then - Error(WrongVATSatementSetupErr, VATReportHeader."Statement Template Name", VATReportHeader."Statement Name"); - end; -#pragma warning restore AL0432 -#endif [EventSubscriber(ObjectType::Report, Report::"VAT Report Request Page", 'OnBeforeCalcLineTotalWithBase', '', false, false)] local procedure OnBeforeCalcLineTotalWithBase(var VATStatementReportLine: Record "VAT Statement Report Line"; VATStatementLine: Record "VAT Statement Line"; VATReportHeader: Record "VAT Report Header") -#if not CLEAN27 - var - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif VATStatementReportLine.Init(); VATStatementReportLine.Validate("Box No.", VATStatementLine."Box No."); if not CheckBoxNo(VATStatementReportLine) then diff --git a/src/Apps/GB/GovTalk/app/src/Codeunits/InstallGovTalk.Codeunit.al b/src/Apps/GB/GovTalk/app/src/Codeunits/InstallGovTalk.Codeunit.al index dfc6115998b..922fc21b38b 100644 --- a/src/Apps/GB/GovTalk/app/src/Codeunits/InstallGovTalk.Codeunit.al +++ b/src/Apps/GB/GovTalk/app/src/Codeunits/InstallGovTalk.Codeunit.al @@ -1,4 +1,3 @@ -#if CLEAN27 // ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. @@ -54,5 +53,4 @@ codeunit 10560 "Install GovTalk" UpgradeTag.SetUpgradeTag(UpgTagGovTalk.GetGovTalkUpgradeTag()); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/GovTalk/app/src/Codeunits/UpgradeGovTalk.Codeunit.al b/src/Apps/GB/GovTalk/app/src/Codeunits/UpgradeGovTalk.Codeunit.al index 7a1d24a9419..4992c4eda80 100644 --- a/src/Apps/GB/GovTalk/app/src/Codeunits/UpgradeGovTalk.Codeunit.al +++ b/src/Apps/GB/GovTalk/app/src/Codeunits/UpgradeGovTalk.Codeunit.al @@ -1,4 +1,3 @@ -#if CLEAN27 // ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. @@ -54,5 +53,4 @@ codeunit 10587 "Upgrade GovTalk" UpgradeTag.SetUpgradeTag(UpgTagGovTalk.GetGovTalkUpgradeTag()); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/GovTalk/app/src/EnumExtensions/FeatureGovTalk.EnumExt.al b/src/Apps/GB/GovTalk/app/src/EnumExtensions/FeatureGovTalk.EnumExt.al deleted file mode 100644 index a836c6fb627..00000000000 --- a/src/Apps/GB/GovTalk/app/src/EnumExtensions/FeatureGovTalk.EnumExt.al +++ /dev/null @@ -1,21 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Setup; - -using Microsoft.Finance.VAT.GovTalk; -using System.Environment.Configuration; - -enumextension 10554 "Feature - GovTalk" extends "Feature To Update" -{ - value(10554; GovTalk) - { - Implementation = "Feature Data Update" = "Feature - GovTalk"; - ObsoleteState = Pending; - ObsoleteReason = 'Feature GovTalk will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/GovTalk/app/src/PageExtensions/CompanyInformation.PageExt.al b/src/Apps/GB/GovTalk/app/src/PageExtensions/CompanyInformation.PageExt.al index 6882c27d2fc..caf211101e7 100644 --- a/src/Apps/GB/GovTalk/app/src/PageExtensions/CompanyInformation.PageExt.al +++ b/src/Apps/GB/GovTalk/app/src/PageExtensions/CompanyInformation.PageExt.al @@ -10,14 +10,6 @@ pageextension 10526 "Company Information" extends "Company Information" { layout { -#if not CLEAN27 -#pragma warning disable AL0432 - modify("Branch Number") - { - Visible = not FeatureEnabled; - } -#pragma warning restore AL0432 -#endif addafter(Shipping) { group(Statutory_) @@ -27,23 +19,9 @@ pageextension 10526 "Company Information" extends "Company Information" { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the three-digit numeric branch number.'; -#if not CLEAN27 - Visible = FeatureEnabled; -#endif } } } } -#if not CLEAN27 - trigger OnOpenPage() - var - GovTalk: Codeunit GovTalk; - begin - FeatureEnabled := GovTalk.IsEnabled(); - end; - - var - FeatureEnabled: Boolean; -#endif } \ No newline at end of file diff --git a/src/Apps/GB/GovTalk/app/src/PageExtensions/ECSLReport.PageExt.al b/src/Apps/GB/GovTalk/app/src/PageExtensions/ECSLReport.PageExt.al index d4bac596614..e9efb042a42 100644 --- a/src/Apps/GB/GovTalk/app/src/PageExtensions/ECSLReport.PageExt.al +++ b/src/Apps/GB/GovTalk/app/src/PageExtensions/ECSLReport.PageExt.al @@ -21,14 +21,7 @@ pageextension 10504 "ECSL Report" extends "ECSL Report" trigger OnAfterGetCurrRecord() var GovTalkSetup: Record "Gov Talk Setup"; -#if not CLEAN27 - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif DeleteErrors(DummyCompanyInformation.RecordId); DeleteErrors(GovTalkSetup.RecordId); end; diff --git a/src/Apps/GB/GovTalk/app/src/PageExtensions/VATReportLog.PageExt.al b/src/Apps/GB/GovTalk/app/src/PageExtensions/VATReportLog.PageExt.al index cbce893619a..aa59b50b726 100644 --- a/src/Apps/GB/GovTalk/app/src/PageExtensions/VATReportLog.PageExt.al +++ b/src/Apps/GB/GovTalk/app/src/PageExtensions/VATReportLog.PageExt.al @@ -12,31 +12,12 @@ pageextension 10519 "VAT Report Log" extends "VAT Report Log" { modify("Download Submission Message") { -#if not CLEAN27 - Visible = DownloadMessage; -#else Visible = true; -#endif } modify("Download Response Message") { -#if not CLEAN27 - Visible = DownloadMessage; -#else Visible = true; -#endif } } -#if not CLEAN27 - trigger OnOpenPage() - var - GovTalk: Codeunit GovTalk; - begin - DownloadMessage := GovTalk.IsEnabled(); - end; - - var - DownloadMessage: Boolean; -#endif } \ No newline at end of file diff --git a/src/Apps/GB/GovTalk/app/src/PageExtensions/VATReportsConfiguration.PageExt.al b/src/Apps/GB/GovTalk/app/src/PageExtensions/VATReportsConfiguration.PageExt.al index a566c5eb9f0..b1fc788eabd 100644 --- a/src/Apps/GB/GovTalk/app/src/PageExtensions/VATReportsConfiguration.PageExt.al +++ b/src/Apps/GB/GovTalk/app/src/PageExtensions/VATReportsConfiguration.PageExt.al @@ -10,12 +10,6 @@ pageextension 10525 "VAT Reports Configuration" extends "VAT Reports Configurati { layout { -#if not CLEAN27 - modify("Validate Codeunit Caption") - { - Visible = false; - } -#endif addafter("Validate Codeunit Caption") { field("Content Max Lines GB"; Rec."Content Max Lines GB") @@ -23,9 +17,6 @@ pageextension 10525 "VAT Reports Configuration" extends "VAT Reports Configurati ApplicationArea = Basic, Suite; Caption = 'Max. No. of Lines'; ToolTip = 'Specifies the maximum number of lines in each message.'; -#if not CLEAN27 - Visible = FeatureEnabled; -#endif trigger OnValidate() begin @@ -42,19 +33,8 @@ pageextension 10525 "VAT Reports Configuration" extends "VAT Reports Configurati } } -#if not CLEAN27 - trigger OnOpenPage() - var - GovTalk: Codeunit GovTalk; - begin - FeatureEnabled := GovTalk.IsEnabled(); - end; -#endif var -#if not CLEAN27 - FeatureEnabled: Boolean; -#endif NotApplicableErr: Label 'This value is only applicable for EC Sales list report.'; MinValueErr: Label 'The value of Max. No. of Lines must be bigger than zero.'; } \ No newline at end of file diff --git a/src/Apps/GB/GovTalk/app/src/ReportExtensions/ECSalesList.ReportExt.al b/src/Apps/GB/GovTalk/app/src/ReportExtensions/ECSalesList.ReportExt.al index 8a48032a94d..67292750372 100644 --- a/src/Apps/GB/GovTalk/app/src/ReportExtensions/ECSalesList.ReportExt.al +++ b/src/Apps/GB/GovTalk/app/src/ReportExtensions/ECSalesList.ReportExt.al @@ -13,9 +13,7 @@ using System.Utilities; reportextension 10504 "EC Sales List" extends "EC Sales List" { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/ECSalesListGB.rdlc'; -#endif dataset { modify("VAT Entry") @@ -23,15 +21,7 @@ reportextension 10504 "EC Sales List" extends "EC Sales List" RequestFilterFields = "VAT Bus. Posting Group", "VAT Prod. Posting Group", "VAT Reporting Date", "EU Service"; trigger OnBeforePostDataItem() -#if not CLEAN27 - var - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif UpdateXMLFileRTCGB(); end; } @@ -52,12 +42,6 @@ reportextension 10504 "EC Sales List" extends "EC Sales List" { layout { -#if not CLEAN27 - modify("Create XML File") - { - Visible = false; - } -#endif addafter(ReportLayout) { field("Create XML File GB"; "Create XML File") @@ -65,20 +49,9 @@ reportextension 10504 "EC Sales List" extends "EC Sales List" ApplicationArea = Basic, Suite; Caption = 'Create XML File'; ToolTip = 'Specifies the calculated tax and base amounts, and creates the sales VAT advance notification XML document that will be sent to the tax authority.'; -#if not CLEAN27 - Visible = CreateXMLVisible; -#endif trigger OnValidate() -#if not CLEAN27 - var - GovTalk: Codeunit GovTalk; -#endif begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif CreateXMLFileOnAfterValidate(); end; } @@ -87,34 +60,13 @@ reportextension 10504 "EC Sales List" extends "EC Sales List" trigger OnOpenPage() begin -#if not CLEAN27 - CreateXMLVisible := GovTalk.IsEnabled(); -#endif XMLFileEnable := "Create XML File"; end; } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'EC Sales List GB localization'; - LayoutFile = './src/ReportExtensions/ECSalesListGB.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature GovTalk will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif trigger OnPostReport() begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif if "Create XML File" then SaveXMLFileGB(); end; @@ -123,10 +75,6 @@ reportextension 10504 "EC Sales List" extends "EC Sales List" var PeriodEnd: Date; begin -#if not CLEAN27 - if not GovTalk.IsEnabled() then - exit; -#endif PeriodStart := "VAT Entry".GetRangeMin("Posting Date"); PeriodEnd := "VAT Entry".GetRangeMax("Posting Date"); @@ -143,10 +91,6 @@ reportextension 10504 "EC Sales List" extends "EC Sales List" var Calendar: Record Date; -#if not CLEAN27 - GovTalk: Codeunit GovTalk; - CreateXMLVisible: Boolean; -#endif XMLOut: DotNet XmlDocument; XMLCurrNode: DotNet XmlNode; Attribute: DotNet XmlAttribute; diff --git a/src/Apps/GB/GovTalk/test/src/RegularTests/GovTalkVATRequestPageTests.Codeunit.al b/src/Apps/GB/GovTalk/test/src/RegularTests/GovTalkVATRequestPageTests.Codeunit.al index 66ad61e3fe1..d8507579644 100644 --- a/src/Apps/GB/GovTalk/test/src/RegularTests/GovTalkVATRequestPageTests.Codeunit.al +++ b/src/Apps/GB/GovTalk/test/src/RegularTests/GovTalkVATRequestPageTests.Codeunit.al @@ -12,9 +12,6 @@ codeunit 148001 "GovTalk VAT Request Page Tests" Subtype = Test; TestType = IntegrationTest; TestPermissions = Disabled; -#if not CLEAN27 - EventSubscriberInstance = Manual; -#endif var LibraryERM: Codeunit "Library - ERM"; @@ -37,9 +34,6 @@ codeunit 148001 "GovTalk VAT Request Page Tests" // [SCENARIO 614191] VAT Report Request Page successfully processes VAT statement with exactly 9 lines Initialize(); -#if not CLEAN27 - Bindsubscription(this); -#endif // [GIVEN] VAT statement template "T" and name "N" with 9 VAT statement lines with Box No. 1-9 and 5 VAT statement lines without Box No. CreateVATStatementWithLines(VATStatementName, 9); CreateVATReturn(VATReportHeader); @@ -53,9 +47,6 @@ codeunit 148001 "GovTalk VAT Request Page Tests" VATStatementReportLine.SetRange("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"); Assert.RecordCount(VATStatementReportLine, 9); -#if not CLEAN27 - Unbindsubscription(this); -#endif LibraryVariableStorage.AssertEmpty(); end; @@ -68,9 +59,6 @@ codeunit 148001 "GovTalk VAT Request Page Tests" begin // [SCENARIO 614191] VAT Report Request Page fails when VAT statement has less than 9 lines and 5 VAT statement lines without Box No. Initialize(); -#if not CLEAN27 - Bindsubscription(this); -#endif // [GIVEN] VAT statement template "T" and name "N" with 8 VAT statement lines with Box No. 1-8 CreateVATStatementWithLines(VATStatementName, 8); CreateVATReturn(VATReportHeader); @@ -82,9 +70,6 @@ codeunit 148001 "GovTalk VAT Request Page Tests" // [THEN] Error is thrown indicating wrong VAT statement setup Assert.ExpectedError(StrSubstNo(WrongVATStatementSetupErr, VATStatementName."Statement Template Name", VATStatementName.Name)); -#if not CLEAN27 - Unbindsubscription(this); -#endif LibraryVariableStorage.AssertEmpty(); end; @@ -97,9 +82,6 @@ codeunit 148001 "GovTalk VAT Request Page Tests" begin // [SCENARIO 614191] VAT Report Request Page fails when VAT statement has more than 9 lines and 5 VAT statement lines without Box No. Initialize(); -#if not CLEAN27 - Bindsubscription(this); -#endif // [GIVEN] VAT statement template "T" and name "N" with 10 VAT statement lines with Box No. 1-10 CreateVATStatementWithLines(VATStatementName, 10); CreateVATReturn(VATReportHeader); @@ -111,99 +93,9 @@ codeunit 148001 "GovTalk VAT Request Page Tests" // [THEN] Error is thrown indicating wrong VAT statement setup Assert.ExpectedError(StrSubstNo(WrongVATStatementSetupErr, VATStatementName."Statement Template Name", VATStatementName.Name)); -#if not CLEAN27 - Unbindsubscription(this); -#endif LibraryVariableStorage.AssertEmpty(); end; -#if not CLEAN27 -#pragma warning disable AS0018 - [Test] - [HandlerFunctions('SuggestLinesRPH')] - [Obsolete('These tests are not required anymore', '27.0')] - procedure VATStatementLineCountEqualsNineViaObsoleteEvent() - var - VATReportHeader: Record "VAT Report Header"; - VATStatementName: Record "VAT Statement Name"; - VATStatementReportLine: Record "VAT Statement Report Line"; - begin - // [SCENARIO 614191] VAT Report Request Page successfully processes VAT statement with exactly 9 lines via obsolete event - Initialize(); - - // [GIVEN] VAT statement template "T" and name "N" with 9 VAT statement lines with Box No. 1-9 and 5 VAT statement lines without Box No., GovTalk feature is disabled - CreateVATStatementWithLines(VATStatementName, 9); - CreateVATReturn(VATReportHeader); - EnqueueVATStatementValues(VATStatementName); - - // [WHEN] VAT Report Request Page is run for VAT return "R" - SuggestLines(VATReportHeader); - - // [THEN] VAT return "R" is generated without errors - VATStatementReportLine.SetRange("VAT Report No.", VATReportHeader."No."); - VATStatementReportLine.SetRange("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"); - Assert.RecordCount(VATStatementReportLine, 9); - - LibraryVariableStorage.AssertEmpty(); - end; - - [Test] - [HandlerFunctions('SuggestLinesRPH')] - [Obsolete('These tests are not required anymore', '27.0')] - procedure VATStatementLineCountLessThanNineViaObsoleteEvent() - var - VATReportHeader: Record "VAT Report Header"; - VATStatementName: Record "VAT Statement Name"; - begin - // [SCENARIO 614191] VAT Report Request Page fails when VAT statement has less than 9 lines via obsolete event - Initialize(); - - // [GIVEN] VAT statement template "T" and name "N" with 8 VAT statement lines with Box No. 1-8 and 5 VAT statement lines without Box No., GovTalk feature is disabled - CreateVATStatementWithLines(VATStatementName, 8); - CreateVATReturn(VATReportHeader); - EnqueueVATStatementValues(VATStatementName); - - // [WHEN] VAT Report Request Page is run for VAT return "R" - asserterror SuggestLines(VATReportHeader); - - // [THEN] Error is thrown indicating wrong VAT statement setup - Assert.ExpectedError(StrSubstNo(WrongVATStatementSetupErr, VATStatementName."Statement Template Name", VATStatementName.Name)); - - LibraryVariableStorage.AssertEmpty(); - end; - - [Test] - [HandlerFunctions('SuggestLinesRPH')] - [Obsolete('These tests are not required anymore', '27.0')] - procedure VATStatementLineCountMoreThanNineViaObsoleteEvent() - var - VATReportHeader: Record "VAT Report Header"; - VATStatementName: Record "VAT Statement Name"; - begin - // [SCENARIO 614191] VAT Report Request Page fails when VAT statement has more than 9 lines via obsolete event - Initialize(); - - // [GIVEN] VAT statement template "T" and name "N" with 10 VAT statement lines with Box No. 1-10 and 5 VAT statement lines without Box No., GovTalk feature is disabled - CreateVATStatementWithLines(VATStatementName, 10); - CreateVATReturn(VATReportHeader); - EnqueueVATStatementValues(VATStatementName); - - // [WHEN] VAT Report Request Page is run for VAT return "R" - asserterror SuggestLines(VATReportHeader); - - // [THEN] Error is thrown indicating wrong VAT statement setup - Assert.ExpectedError(StrSubstNo(WrongVATStatementSetupErr, VATStatementName."Statement Template Name", VATStatementName.Name)); - - LibraryVariableStorage.AssertEmpty(); - end; - - [EventSubscriber(ObjectType::Codeunit, Codeunit::GovTalk, OnAfterCheckFeatureEnabled, '', false, false)] - local procedure OnAfterCheckFeatureEnabled(var IsEnabled: Boolean) - begin - IsEnabled := true; - end; -#pragma warning restore AS0018 -#endif local procedure Initialize() var diff --git a/src/Apps/GB/GovTalk/test/src/RegularTests/UTCOMPANYGovTalk.Codeunit.al b/src/Apps/GB/GovTalk/test/src/RegularTests/UTCOMPANYGovTalk.Codeunit.al index f3050aeecb8..99061ee2770 100644 --- a/src/Apps/GB/GovTalk/test/src/RegularTests/UTCOMPANYGovTalk.Codeunit.al +++ b/src/Apps/GB/GovTalk/test/src/RegularTests/UTCOMPANYGovTalk.Codeunit.al @@ -11,9 +11,6 @@ codeunit 144036 "UTCOMPANY GovTalk" Subtype = Test; TestPermissions = Disabled; TestType = IntegrationTest; -#if not CLEAN27 - EventSubscriberInstance = Manual; -#endif var LibraryRandom: Codeunit "Library - Random"; @@ -27,18 +24,12 @@ codeunit 144036 "UTCOMPANY GovTalk" CompanyInformationPage: TestPage "Company Information"; BranchNumberValue: Text; begin -#if not CLEAN27 - BindSubscription(this); -#endif BranchNumberValue := '009'; // This is a valid two-digit branch number for GB. CompanyInformationPage.OpenEdit(); CompanyInformationPage."Branch Number GB".SetValue(BranchNumberValue); CompanyInformationPage.Close(); CompanyInformation.Get(); CompanyInformation.TestField("Branch Number GB", BranchNumberValue); -#if not CLEAN27 - UnbindSubscription(this); -#endif end; [Test] @@ -60,12 +51,5 @@ codeunit 144036 "UTCOMPANY GovTalk" CompanyInformation.Modify(); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::GovTalk, OnAfterCheckFeatureEnabled, '', false, false)] - local procedure OnAfterCheckFeatureEnabled(var IsEnabled: Boolean) - begin - IsEnabled := true; - end; -#endif } diff --git a/src/Apps/GB/GovTalk/test/src/RegularTests/UTREPPurchaseSalesGovTalk.Codeunit.al b/src/Apps/GB/GovTalk/test/src/RegularTests/UTREPPurchaseSalesGovTalk.Codeunit.al index 84232145c18..36dba06a51c 100644 --- a/src/Apps/GB/GovTalk/test/src/RegularTests/UTREPPurchaseSalesGovTalk.Codeunit.al +++ b/src/Apps/GB/GovTalk/test/src/RegularTests/UTREPPurchaseSalesGovTalk.Codeunit.al @@ -13,9 +13,6 @@ codeunit 144035 "UT REP Purchase Sales GovTalk" Subtype = Test; TestPermissions = Disabled; TestType = IntegrationTest; -#if not CLEAN27 - EventSubscriberInstance = Manual; -#endif var Assert: Codeunit Assert; @@ -31,9 +28,6 @@ codeunit 144035 "UT REP Purchase Sales GovTalk" // [FEATURE] [ECSL] [Application Area] [UI] [UT] // [SCENARIO 331168] ReportLayout and "Create XML File" fields are enabled on EC Sales List Request page when Application Area = #basic Initialize(); -#if not CLEAN27 - BindSubscription(this); -#endif // [GIVEN] Enabled Application Area = #basic setup LibraryApplicationArea.EnableBasicSetup(); @@ -43,9 +37,6 @@ codeunit 144035 "UT REP Purchase Sales GovTalk" // [THEN] ReportLayout and "Create XML File" fields are enabled (check in RPH) REPORT.Run(REPORT::"EC Sales List"); LibraryApplicationArea.DisableApplicationAreaSetup(); -#if not CLEAN27 - UnbindSubscription(this); -#endif end; [Test] @@ -56,9 +47,6 @@ codeunit 144035 "UT REP Purchase Sales GovTalk" // [FEATURE] [ECSL] [Application Area] [UI] [UT] // [SCENARIO 331168] ReportLayout and "Create XML File" fields are enabled on EC Sales List Request page when Application Area = #suite Initialize(); -#if not CLEAN27 - BindSubscription(this); -#endif // [GIVEN] Enabled Application Area = #suite setup LibraryApplicationArea.EnableFoundationSetup(); Commit(); @@ -67,9 +55,6 @@ codeunit 144035 "UT REP Purchase Sales GovTalk" // [THEN] ReportLayout and "Create XML File" fields are enabled (check in RPH) REPORT.Run(REPORT::"EC Sales List"); LibraryApplicationArea.DisableApplicationAreaSetup(); -#if not CLEAN27 - UnbindSubscription(this); -#endif end; [RequestPageHandler] @@ -105,12 +90,5 @@ codeunit 144035 "UT REP Purchase Sales GovTalk" LibraryReportValidation.DeleteObjectOptions(CurrentSaveValuesId); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::GovTalk, OnAfterCheckFeatureEnabled, '', false, false)] - local procedure OnAfterCheckFeatureEnabled(var IsEnabled: Boolean) - begin - IsEnabled := true; - end; -#endif } diff --git a/src/Apps/GB/PostingDateCheckOnPosting/app/src/Codeunits/PostingDateCheck.Codeunit.al b/src/Apps/GB/PostingDateCheckOnPosting/app/src/Codeunits/PostingDateCheck.Codeunit.al deleted file mode 100644 index 40c00acff9e..00000000000 --- a/src/Apps/GB/PostingDateCheckOnPosting/app/src/Codeunits/PostingDateCheck.Codeunit.al +++ /dev/null @@ -1,37 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.SalesPurch.Setup; - -using System.Environment.Configuration; - -codeunit 10504 "Posting Date Check" -{ - Access = Internal; - InherentEntitlements = X; - InherentPermissions = X; - - var - FeatureKeyIdTok: Label 'PostingDateCheck', Locked = true; - - procedure IsEnabled() Enabled: Boolean - var - FeatureManagementFacade: Codeunit "Feature Management Facade"; - begin - Enabled := FeatureManagementFacade.IsEnabled(FeatureKeyIdTok); - OnAfterCheckFeatureEnabled(Enabled); - end; - - procedure GetFeatureKeyId(): Text - begin - exit(FeatureKeyIdTok); - end; - - [IntegrationEvent(true, false)] - local procedure OnAfterCheckFeatureEnabled(var IsEnabled: Boolean) - begin - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/PostingDateCheckOnPosting/app/src/TableExtensions/PurchasesPayablesSetup.TableExt.al b/src/Apps/GB/PostingDateCheckOnPosting/app/src/TableExtensions/PurchasesPayablesSetup.TableExt.al index 1dee3757c8d..e4d986e0d23 100644 --- a/src/Apps/GB/PostingDateCheckOnPosting/app/src/TableExtensions/PurchasesPayablesSetup.TableExt.al +++ b/src/Apps/GB/PostingDateCheckOnPosting/app/src/TableExtensions/PurchasesPayablesSetup.TableExt.al @@ -8,16 +8,9 @@ using Microsoft.Purchases.Setup; tableextension 10510 "Purchases & Payables Setup" extends "Purchases & Payables Setup" { -#if not CLEAN27 - var - PostingDateCheck: Codeunit "Posting Date Check"; -#endif trigger OnInsert() begin -#if not CLEAN27 - if PostingDateCheck.IsEnabled() then -#endif "Posting Date Check on Posting" := true; end; } \ No newline at end of file diff --git a/src/Apps/GB/PostingDateCheckOnPosting/app/src/TableExtensions/SalesReceivablesSetup.TableExt.al b/src/Apps/GB/PostingDateCheckOnPosting/app/src/TableExtensions/SalesReceivablesSetup.TableExt.al index 15aee8cce6d..f4fd4d0cbd5 100644 --- a/src/Apps/GB/PostingDateCheckOnPosting/app/src/TableExtensions/SalesReceivablesSetup.TableExt.al +++ b/src/Apps/GB/PostingDateCheckOnPosting/app/src/TableExtensions/SalesReceivablesSetup.TableExt.al @@ -8,16 +8,9 @@ using Microsoft.Sales.Setup; tableextension 10511 "Sales & Receivables Setup" extends "Sales & Receivables Setup" { -#if not CLEAN27 - var - PostingDateCheck: Codeunit "Posting Date Check"; -#endif trigger OnInsert() begin -#if not CLEAN27 - if PostingDateCheck.IsEnabled() then -#endif "Posting Date Check on Posting" := true; end; } \ No newline at end of file diff --git a/src/Apps/GB/ReportsGB/app/src/Codeunits/FeatureReportsGB.Codeunit.al b/src/Apps/GB/ReportsGB/app/src/Codeunits/FeatureReportsGB.Codeunit.al deleted file mode 100644 index 3875f78a5af..00000000000 --- a/src/Apps/GB/ReportsGB/app/src/Codeunits/FeatureReportsGB.Codeunit.al +++ /dev/null @@ -1,77 +0,0 @@ -#if not CLEAN27 -/// -/// Reports GB Feature will be moved to a separate app. -/// -namespace Microsoft.Finance.VAT.Setup; - -using System.Environment.Configuration; -using System.Upgrade; - -codeunit 10580 "Feature - Reports GB" implements "Feature Data Update" -{ - Access = Internal; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - var - UpgTagReportsGB: Codeunit "Upg. Tag Reports GB"; - DescriptionTxt: Label 'Report layouts will be updated to contain GB localization functionality'; - - procedure IsDataUpdateRequired(): Boolean - var - UpgradeTag: Codeunit "Upgrade Tag"; - begin - if UpgradeTag.HasUpgradeTag(UpgTagReportsGB.GetReportsGBUpgradeTag()) then - exit(false); - exit(true); - end; - - procedure ReviewData() - begin - - end; - - procedure UpdateData(FeatureDataUpdateStatus: Record "Feature Data Update Status") - var - FeatureDataUpdateMgt: Codeunit "Feature Data Update Mgt."; - ReportsGBHelperProcedures: Codeunit "Reports GB Helper Procedures"; - StartDateTime: DateTime; - EndDateTime: DateTime; - begin - StartDateTime := CurrentDateTime; - FeatureDataUpdateMgt.LogTask(FeatureDataUpdateStatus, 'Upgrade Reports GB', StartDateTime); - ReportsGBHelperProcedures.SetDefaultReportLayouts(); - EndDateTime := CurrentDateTime; - FeatureDataUpdateMgt.LogTask(FeatureDataUpdateStatus, 'Upgrade Reports GB', EndDateTime); - end; - - procedure AfterUpdate(FeatureDataUpdateStatus: Record "Feature Data Update Status") - begin - // The data update runs per company, and the framework has already set the status of the company that - // was updated. The status of the other companies must stay Pending until their own data is migrated. - SetUpgradeTag(true); - end; - - procedure GetTaskDescription() TaskDescription: Text - begin - TaskDescription := DescriptionTxt; - end; - - local procedure SetUpgradeTag(DataUpgradeExecuted: Boolean) - var - UpgradeTag: Codeunit "Upgrade Tag"; - begin - // Set the upgrade tag to indicate that the data update is executed/skipped and the feature is enabled. - // This is needed when the feature is enabled by default in a future version, to skip the data upgrade. - if UpgradeTag.HasUpgradeTag(UpgTagReportsGB.GetReportsGBUpgradeTag()) then - exit; - - UpgradeTag.SetUpgradeTag(UpgTagReportsGB.GetReportsGBUpgradeTag()); - if not DataUpgradeExecuted then - UpgradeTag.SetSkippedUpgrade(UpgTagReportsGB.GetReportsGBUpgradeTag(), true); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/ReportsGB/app/src/Codeunits/InstallReportsGB.Codeunit.al b/src/Apps/GB/ReportsGB/app/src/Codeunits/InstallReportsGB.Codeunit.al index 17a377697f8..1f12421f985 100644 --- a/src/Apps/GB/ReportsGB/app/src/Codeunits/InstallReportsGB.Codeunit.al +++ b/src/Apps/GB/ReportsGB/app/src/Codeunits/InstallReportsGB.Codeunit.al @@ -1,4 +1,3 @@ -#if CLEAN27 // ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. @@ -36,5 +35,4 @@ codeunit 10593 "Install Reports GB" ReportsGBHelperProcedures.SetDefaultReportLayouts(); UpgradeTag.SetUpgradeTag(UpgTagReportsGB.GetReportsGBUpgradeTag()); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/ReportsGB/app/src/Codeunits/ReportsGB.Codeunit.al b/src/Apps/GB/ReportsGB/app/src/Codeunits/ReportsGB.Codeunit.al deleted file mode 100644 index 74bea6d25e0..00000000000 --- a/src/Apps/GB/ReportsGB/app/src/Codeunits/ReportsGB.Codeunit.al +++ /dev/null @@ -1,37 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Setup; - -using System.Environment.Configuration; - -codeunit 10584 "Reports GB" -{ - Access = Internal; - InherentEntitlements = X; - InherentPermissions = X; - - var - FeatureKeyIdTok: Label 'ReportsGB', Locked = true; - - procedure IsEnabled() Enabled: Boolean - var - FeatureManagementFacade: Codeunit "Feature Management Facade"; - begin - Enabled := FeatureManagementFacade.IsEnabled(FeatureKeyIdTok); - OnAfterCheckFeatureEnabled(Enabled); - end; - - procedure GetFeatureKeyId(): Text - begin - exit(FeatureKeyIdTok); - end; - - [IntegrationEvent(true, false)] - local procedure OnAfterCheckFeatureEnabled(var IsEnabled: Boolean) - begin - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/ReportsGB/app/src/Codeunits/UpgradeReportsGB.Codeunit.al b/src/Apps/GB/ReportsGB/app/src/Codeunits/UpgradeReportsGB.Codeunit.al index 47549287a9d..a65531fd19c 100644 --- a/src/Apps/GB/ReportsGB/app/src/Codeunits/UpgradeReportsGB.Codeunit.al +++ b/src/Apps/GB/ReportsGB/app/src/Codeunits/UpgradeReportsGB.Codeunit.al @@ -1,4 +1,3 @@ -#if CLEAN27 // ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. @@ -36,5 +35,4 @@ codeunit 10582 "Upgrade Reports GB" ReportsGBHelperProcedures.SetDefaultReportLayouts(); UpgradeTag.SetUpgradeTag(UpgTagReportsGB.GetReportsGBUpgradeTag()); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/ReportsGB/app/src/EnumExtensions/FeatureReportsGB.EnumExt.al b/src/Apps/GB/ReportsGB/app/src/EnumExtensions/FeatureReportsGB.EnumExt.al deleted file mode 100644 index d2980d8ed53..00000000000 --- a/src/Apps/GB/ReportsGB/app/src/EnumExtensions/FeatureReportsGB.EnumExt.al +++ /dev/null @@ -1,23 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Setup; - -using System.Environment.Configuration; - - -enumextension 10580 "Feature - ReportsGB" extends "Feature To Update" -{ -#pragma warning disable AS0072 - value(10580; ReportsGB) - { - Implementation = "Feature Data Update" = "Feature - Reports GB"; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } -#pragma warning restore AS0072 -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/ReportsGB/app/src/PageExtensions/ReportLayoutsGB.PageExt.al b/src/Apps/GB/ReportsGB/app/src/PageExtensions/ReportLayoutsGB.PageExt.al index 9515c73faa3..77f77acf7c7 100644 --- a/src/Apps/GB/ReportsGB/app/src/PageExtensions/ReportLayoutsGB.PageExt.al +++ b/src/Apps/GB/ReportsGB/app/src/PageExtensions/ReportLayoutsGB.PageExt.al @@ -1,26 +1,2 @@ #pragma warning disable AS0029 -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Setup; - -using Microsoft.Shared.Report; - -pageextension 10580 "Report Layouts GB" extends "Report Layouts" -{ - - ObsoleteTag = '28.0'; - ObsoleteReason = 'The functionality is enforced.'; - ObsoleteState = Pending; - trigger OnOpenPage() - var - ReportsGB: Codeunit "Reports GB"; - begin - if not ReportsGB.IsEnabled() then - Rec.SetFilter(Name, '<>GBlocalizationLayout'); - end; -} -#endif #pragma warning restore AS0029 \ No newline at end of file diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/BankAccountList.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/BankAccountList.ReportExt.al index 84df879bb14..6e5af1a1166 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/BankAccountList.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/BankAccountList.ReportExt.al @@ -6,9 +6,7 @@ namespace Microsoft.Bank.Reports; reportextension 10582 "Bank Account - List" extends "Bank Account - List" { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/BankAccountList.rdlc'; -#endif dataset { add("Bank Account") @@ -22,18 +20,4 @@ reportextension 10582 "Bank Account - List" extends "Bank Account - List" } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Bank Account List GB localization'; - LayoutFile = './src/ReportExtensions/BankAccountList.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif } diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/CashFlowDimensionsDetail.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/CashFlowDimensionsDetail.ReportExt.al index a135775053b..1bc4d64edab 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/CashFlowDimensionsDetail.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/CashFlowDimensionsDetail.ReportExt.al @@ -8,9 +8,7 @@ using Microsoft.CashFlow.Forecast; reportextension 10589 "Cash Flow Dimensions - Detail" extends "Cash Flow Dimensions - Detail" { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/CashFlowDimensionsDetail.rdlc'; -#endif dataset { add("Analysis View") @@ -138,20 +136,6 @@ reportextension 10589 "Cash Flow Dimensions - Detail" extends "Cash Flow Dimensi } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Cash Flow Dimensions - Detail GB localization'; - LayoutFile = './src/ReportExtensions/CashFlowDimensionsDetail.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif var TempCFForecastEntry: Record "Cash Flow Forecast Entry" temporary; diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/FinanceChargeMemo.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/FinanceChargeMemo.ReportExt.al index 2e38d799a3f..1056197d64a 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/FinanceChargeMemo.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/FinanceChargeMemo.ReportExt.al @@ -12,9 +12,7 @@ using Microsoft.Sales.Setup; reportextension 10585 "Finance Charge Memo" extends "Finance Charge Memo" { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/FinanceChargeMemo.rdlc'; -#endif dataset { add(Integer) @@ -96,20 +94,6 @@ reportextension 10585 "Finance Charge Memo" extends "Finance Charge Memo" } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Finance Charge Memo GB localization'; - LayoutFile = './src/ReportExtensions/FinanceChargeMemo.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif var GLSetup: Record "General Ledger Setup"; diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/FixedAssetProjectedValue.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/FixedAssetProjectedValue.ReportExt.al index a87898ae294..2cf0a20700b 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/FixedAssetProjectedValue.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/FixedAssetProjectedValue.ReportExt.al @@ -12,9 +12,7 @@ using Microsoft.FixedAssets.Ledger; reportextension 10583 "Fixed Asset - Projected Value" extends "Fixed Asset - Projected Value" #pragma warning restore AL0432 { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/FixedAssetProjectedValue.rdlc'; -#endif dataset { add("Fixed Asset") @@ -128,20 +126,6 @@ reportextension 10583 "Fixed Asset - Projected Value" extends "Fixed Asset - Pro } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Fixed Asset Projected Value GB localization'; - LayoutFile = './src/ReportExtensions/FixedAssetProjectedValue.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif var DeprBook: Record "Depreciation Book"; diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseDocumentTest.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseDocumentTest.ReportExt.al index e981f737041..4c7a8dc63bc 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseDocumentTest.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseDocumentTest.ReportExt.al @@ -8,9 +8,7 @@ using Microsoft.Purchases.Reports; reportextension 10580 "Purchase Document - Test" extends "Purchase Document - Test" { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/PurchaseDocumentTestGB.rdlc'; -#endif dataset { add(PageCounter) @@ -55,20 +53,6 @@ reportextension 10580 "Purchase Document - Test" extends "Purchase Document - Te } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Purchase Document Test GB localization'; - LayoutFile = './src/ReportExtensions/PurchaseDocumentTestGB.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif var ReverseChargeCaption_Control1040006Lbl: Label 'Reverse Charge'; diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseQuote.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseQuote.ReportExt.al index bb6484d4242..3c694de1c2d 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseQuote.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseQuote.ReportExt.al @@ -11,9 +11,7 @@ using System.Utilities; reportextension 10587 "Purchase - Quote" extends "Purchase - Quote" { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/PurchaseQuote.rdlc'; -#endif dataset { add(CopyLoop) @@ -149,20 +147,6 @@ reportextension 10587 "Purchase - Quote" extends "Purchase - Quote" } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Purchase Quote GB localization'; - LayoutFile = './src/ReportExtensions/PurchaseQuote.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif var ShipmentMethod: Record "Shipment Method"; diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseReceipt.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseReceipt.ReportExt.al index a4d0cbe49e9..e814b2562c3 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseReceipt.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/PurchaseReceipt.ReportExt.al @@ -6,9 +6,7 @@ namespace Microsoft.Purchases.History; reportextension 10588 "Purchase - Receipt" extends "Purchase - Receipt" { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/PurchaseReceipt.rdlc'; -#endif dataset { add(CopyLoop) @@ -58,20 +56,6 @@ reportextension 10588 "Purchase - Receipt" extends "Purchase - Receipt" } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Purchase Receipt GB localization'; - LayoutFile = './src/ReportExtensions/PurchaseReceipt.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif var BankBranchNoCaptionLbl: Label 'Bank Branch No.'; diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/Reminder.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/Reminder.ReportExt.al index ae08d0a1924..23af4939bf6 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/Reminder.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/Reminder.ReportExt.al @@ -9,9 +9,7 @@ using Microsoft.Sales.Setup; reportextension 10584 Reminder extends Reminder { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/Reminder.rdlc'; -#endif dataset { add("Issued Reminder Header") @@ -87,20 +85,6 @@ reportextension 10584 Reminder extends Reminder } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Reminder GB localization'; - LayoutFile = './src/ReportExtensions/Reminder.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif var GLSetup: Record "General Ledger Setup"; diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/SalesDocumentTest.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/SalesDocumentTest.ReportExt.al index 749d5f27a5e..7b9f1eab8cf 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/SalesDocumentTest.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/SalesDocumentTest.ReportExt.al @@ -9,9 +9,7 @@ using Microsoft.Sales.Setup; reportextension 10581 "Sales Document - Test" extends "Sales Document - Test" { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/SalesDocumentTestGB.rdlc'; -#endif dataset { add(PageCounter) @@ -88,20 +86,6 @@ reportextension 10581 "Sales Document - Test" extends "Sales Document - Test" } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Sales Document Test GB localization'; - LayoutFile = './src/ReportExtensions/SalesDocumentTestGB.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif trigger OnPreReport() begin diff --git a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/SalesShipment.ReportExt.al b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/SalesShipment.ReportExt.al index 5c77dd2f2cf..08cd93e12e2 100644 --- a/src/Apps/GB/ReportsGB/app/src/ReportExtensions/SalesShipment.ReportExt.al +++ b/src/Apps/GB/ReportsGB/app/src/ReportExtensions/SalesShipment.ReportExt.al @@ -9,9 +9,7 @@ using System.Utilities; reportextension 10586 "Sales - Shipment" extends "Sales - Shipment" { -#if CLEAN27 RDLCLayout = './src/ReportExtensions/SalesShipment.rdlc'; -#endif dataset { add("Sales Shipment Header") @@ -99,20 +97,6 @@ reportextension 10586 "Sales - Shipment" extends "Sales - Shipment" } } -#if not CLEAN27 - rendering - { - layout(GBlocalizationLayout) - { - Type = RDLC; - Caption = 'Sales Shipment GB localization'; - LayoutFile = './src/ReportExtensions/SalesShipment.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reports GB will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } - } -#endif var CompanyInfoBankBranchNoCaptionLbl: Label 'Bank Branch No.'; diff --git a/src/Apps/GB/ReportsGB/app/src/Reports/SalesInvoice.Report.al b/src/Apps/GB/ReportsGB/app/src/Reports/SalesInvoice.Report.al index d1f88e788a1..64c627a7e80 100644 --- a/src/Apps/GB/ReportsGB/app/src/Reports/SalesInvoice.Report.al +++ b/src/Apps/GB/ReportsGB/app/src/Reports/SalesInvoice.Report.al @@ -736,13 +736,7 @@ report 10583 "Sales - Invoice" trigger OnPreDataItem() begin -#if not CLEAN27 -#pragma warning disable AL0432 - NoOfLoops := Abs(NumberOfCopies) + Cust."Invoice Copies" + 1; -#pragma warning restore AL0432 -#else NoOfLoops := Abs(NumberOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; CopyText := ''; diff --git a/src/Apps/GB/ReportsGB/test/src/Codeunits/UTREPACCPERFixedAsset.Codeunit.al b/src/Apps/GB/ReportsGB/test/src/Codeunits/UTREPACCPERFixedAsset.Codeunit.al index eb9a8db9f91..a25d7391032 100644 --- a/src/Apps/GB/ReportsGB/test/src/Codeunits/UTREPACCPERFixedAsset.Codeunit.al +++ b/src/Apps/GB/ReportsGB/test/src/Codeunits/UTREPACCPERFixedAsset.Codeunit.al @@ -301,46 +301,6 @@ codeunit 144021 "UT REP ACCPER - Fixed Asset" LibraryReportDataset.AssertElementWithValueExists('TotalBookValue_1_', Amount); end; -#if not CLEAN27 - [Obsolete('Not used anymore', '28.0')] - [Test] - [HandlerFunctions('FAProjectedValWithProjectedDisposalReqPageHandler')] - - procedure OnAfterGetRecFATrueProjectedDisposalFAProjectedVal() - begin - // Purpose of the test is to validate Fixed Asset - OnAfterGetRecord Trigger of Report 10560 (FA - Projected Value) with Projected Disposal as True. - Initialize(); - RunFAProjectedValAfterPostFAGLJnlWithProjectedDisposal(true); // Projected Disposal as True. - end; - - [Obsolete('Not used anymore', '28.0')] - [Test] - [HandlerFunctions('FAProjectedValWithProjectedDisposalReqPageHandler')] - - procedure OnAfterGetRecFAFalseProjectedDisposalFAProjectedVal() - begin - // Purpose of the test is to validate Fixed Asset - OnAfterGetRecord Trigger of Report 10560 (FA - Projected Value) with Projected Disposal as False. - Initialize(); - RunFAProjectedValAfterPostFAGLJnlWithProjectedDisposal(false); // Projected Disposal as False. - end; - - local procedure RunFAProjectedValAfterPostFAGLJnlWithProjectedDisposal(ProjectedDisposal: Boolean) - var - FixedAsset: Record "Fixed Asset"; - GroupTotals: Option " ","FA Class","FA Subclass","FA Location","Main Asset","Global Dimension 1","Global Dimension 2","FA Posting Group"; - begin - // Setup: Post FA G/L Journals With FA Depreciation Book. Transaction Model is Autocommit because explicit commit used in Code unit ID: 13, Gen. Jnl.-Post Batch. - PostFAGLJournalsWithFADepreciationBook(FixedAsset, GroupTotals, LibraryRandom.RandDec(10, 2)); // Take Random Amount. - LibraryVariableStorage.Enqueue(ProjectedDisposal); // Enqueue for FAProjectedValWithProjectedDisposalReqPageHandler. - - // Exercise. - REPORT.Run(REPORT::"FA - Projected Value GB"); - - // Verify. - LibraryReportDataset.LoadDataSetFile(); - LibraryReportDataset.AssertElementWithValueExists('DoProjectedDisposal', ProjectedDisposal); - end; -#endif local procedure Initialize() begin diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/FeatureReverseChargeVAT.Codeunit.al b/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/FeatureReverseChargeVAT.Codeunit.al deleted file mode 100644 index 687ea9ef9fa..00000000000 --- a/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/FeatureReverseChargeVAT.Codeunit.al +++ /dev/null @@ -1,244 +0,0 @@ -#if not CLEAN27 -/// -/// Reverse Charge VAT Feature will be moved to a separate app. -/// -namespace Microsoft.Finance.VAT.Setup; - -using Microsoft.Finance.GeneralLedger.Setup; -using Microsoft.Foundation.Navigate; -using Microsoft.Inventory.Item; -using Microsoft.Purchases.Document; -using Microsoft.Purchases.History; -using Microsoft.Purchases.Setup; -using Microsoft.Sales.Document; -using Microsoft.Sales.History; -using Microsoft.Sales.Setup; -using System.Environment.Configuration; -using System.Upgrade; - -codeunit 10553 "Feature - Reverse Charge VAT" implements "Feature Data Update" -{ - Access = Internal; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'Feature Reverse Charge VAT will be enabled by default in version 30.0.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - var - TempDocumentEntry: Record "Document Entry" temporary; - DescriptionTxt: Label 'Existing records in GB BaseApp fields will be copied to Reverse Charge VAT App fields'; - - procedure IsDataUpdateRequired(): Boolean; - begin - CountRecords(); - if TempDocumentEntry.IsEmpty() then begin - SetUpgradeTag(false); - exit(false); - end; - exit(true); - end; - - procedure ReviewData(); - var - DataUpgradeOverview: Page "Data Upgrade Overview"; - begin - Commit(); - Clear(DataUpgradeOverview); - DataUpgradeOverview.Set(TempDocumentEntry); - DataUpgradeOverview.RunModal(); - end; - - procedure AfterUpdate(FeatureDataUpdateStatus: Record "Feature Data Update Status") - begin - // The data update runs per company, and the framework has already set the status of the company that - // was updated. The status of the other companies must stay Pending until their own data is migrated. - SetUpgradeTag(true); - end; - - procedure UpdateData(FeatureDataUpdateStatus: Record "Feature Data Update Status"); - var - FeatureDataUpdateMgt: Codeunit "Feature Data Update Mgt."; - StartDateTime: DateTime; - EndDateTime: DateTime; - begin - StartDateTime := CurrentDateTime; - FeatureDataUpdateMgt.LogTask(FeatureDataUpdateStatus, 'Upgrade Reverse Charge VAT', StartDateTime); - UpgradeReverseChargeVAT(); - EndDateTime := CurrentDateTime; - FeatureDataUpdateMgt.LogTask(FeatureDataUpdateStatus, 'Upgrade Reverse Charge VAT', EndDateTime); - end; - - procedure GetTaskDescription() TaskDescription: Text; - begin - TaskDescription := DescriptionTxt; - end; - - local procedure CountRecords() - var - GLSetup: Record "General Ledger Setup"; - Item: Record Item; - ItemTempl: Record "Item Templ."; - PurchaseLine: Record "Purchase Line"; - PurchaseSetup: Record "Purchases & Payables Setup"; - PurchCrMemoLine: Record "Purch. Cr. Memo Line"; - PurchInvLine: Record "Purch. Inv. Line"; - SalesCrMemoLine: Record "Sales Cr.Memo Line"; - SalesInvLine: Record "Sales Invoice Line"; - SalesLine: Record "Sales Line"; - SalesSetup: Record "Sales & Receivables Setup"; - begin - TempDocumentEntry.Reset(); - TempDocumentEntry.DeleteAll(); - - InsertDocumentEntry(Database::"General Ledger Setup", GLSetup.TableCaption, GLSetup.Count()); - InsertDocumentEntry(Database::Item, Item.TableCaption, Item.Count()); - InsertDocumentEntry(Database::"Item Templ.", ItemTempl.TableCaption, ItemTempl.Count()); - InsertDocumentEntry(Database::"Purchase Line", PurchaseLine.TableCaption, PurchaseLine.Count()); - InsertDocumentEntry(Database::"Purchases & Payables Setup", PurchaseSetup.TableCaption, PurchaseSetup.Count()); - InsertDocumentEntry(Database::"Purch. Cr. Memo Line", PurchCrMemoLine.TableCaption, PurchCrMemoLine.Count()); - InsertDocumentEntry(Database::"Purch. Inv. Line", PurchInvLine.TableCaption, PurchInvLine.Count()); - InsertDocumentEntry(Database::"Sales Cr.Memo Line", SalesCrMemoLine.TableCaption, SalesCrMemoLine.Count()); - InsertDocumentEntry(Database::"Sales Invoice Line", SalesInvLine.TableCaption, SalesInvLine.Count()); - InsertDocumentEntry(Database::"Sales Line", SalesLine.TableCaption, SalesLine.Count()); - InsertDocumentEntry(Database::"Sales & Receivables Setup", SalesSetup.TableCaption, SalesSetup.Count()); - end; - - local procedure InsertDocumentEntry(TableID: Integer; TableName: Text; RecordCount: Integer) - begin - if RecordCount = 0 then - exit; - - TempDocumentEntry.Init(); - TempDocumentEntry."Entry No." += 1; - TempDocumentEntry."Table ID" := TableID; - TempDocumentEntry."Table Name" := CopyStr(TableName, 1, MaxStrLen(TempDocumentEntry."Table Name")); - TempDocumentEntry."No. of Records" := RecordCount; - TempDocumentEntry.Insert(); - end; - - local procedure UpgradeReverseChargeVAT() - var - GLSetup: Record "General Ledger Setup"; - Item: Record Item; - ItemTempl: Record "Item Templ."; - PurchaseLine: Record "Purchase Line"; - PurchaseSetup: Record "Purchases & Payables Setup"; - PurchCrMemoLine: Record "Purch. Cr. Memo Line"; - PurchInvLine: Record "Purch. Inv. Line"; - SalesCrMemoLine: Record "Sales Cr.Memo Line"; - SalesInvLine: Record "Sales Invoice Line"; - SalesLine: Record "Sales Line"; - SalesSetup: Record "Sales & Receivables Setup"; - begin - if GLSetup.Get() then begin -#pragma warning disable AL0432 - GLSetup."Threshold applies GB" := GLSetup."Threshold applies"; - GLSetup."Threshold Amount GB" := GLSetup."Threshold Amount"; -#pragma warning restore AL0432 - GLSetup.Modify(); - end; - - if Item.FindSet() then - repeat -#pragma warning disable AL0432 - Item."Reverse Charge Applies GB" := Item."Reverse Charge Applies"; -#pragma warning restore AL0432 - Item.Modify(); - until Item.Next() = 0; - - if ItemTempl.FindSet() then - repeat -#pragma warning disable AL0432 - ItemTempl."Reverse Charge Applies GB" := ItemTempl."Reverse Charge Applies"; -#pragma warning restore AL0432 - ItemTempl.Modify(); - until ItemTempl.Next() = 0; - - if PurchaseLine.FindSet() then - repeat -#pragma warning disable AL0432 - PurchaseLine."Reverse Charge Item GB" := PurchaseLine."Reverse Charge Item"; -#pragma warning restore AL0432 - PurchaseLine.Modify(); - until PurchaseLine.Next() = 0; - - if PurchaseSetup.Get() then begin -#pragma warning disable AL0432 - PurchaseSetup."Reverse Charge VAT Post. Gr." := PurchaseSetup."Reverse Charge VAT Posting Gr."; - PurchaseSetup."Domestic Vendors GB" := PurchaseSetup."Domestic Vendors"; -#pragma warning restore AL0432 - PurchaseSetup.Modify(); - end; - - if PurchCrMemoLine.FindSet() then - repeat -#pragma warning disable AL0432 - PurchCrMemoLine."Reverse Charge Item GB" := PurchCrMemoLine."Reverse Charge Item"; - PurchCrMemoLine."Reverse Charge GB" := PurchCrMemoLine."Reverse Charge"; -#pragma warning restore AL0432 - PurchCrMemoLine.Modify(); - until PurchCrMemoLine.Next() = 0; - - if PurchInvLine.FindSet() then - repeat -#pragma warning disable AL0432 - PurchInvLine."Reverse Charge Item GB" := PurchInvLine."Reverse Charge Item"; - PurchInvLine."Reverse Charge GB" := PurchInvLine."Reverse Charge"; -#pragma warning restore AL0432 - PurchInvLine.Modify(); - until PurchInvLine.Next() = 0; - - if SalesCrMemoLine.FindSet() then - repeat -#pragma warning disable AL0432 - SalesCrMemoLine."Reverse Charge Item GB" := SalesCrMemoLine."Reverse Charge Item"; - SalesCrMemoLine."Reverse Charge GB" := SalesCrMemoLine."Reverse Charge"; -#pragma warning restore AL0432 - SalesCrMemoLine.Modify(); - until SalesCrMemoLine.Next() = 0; - - if SalesInvLine.FindSet() then - repeat -#pragma warning disable AL0432 - SalesInvLine."Reverse Charge Item GB" := SalesInvLine."Reverse Charge Item"; - SalesInvLine."Reverse Charge GB" := SalesInvLine."Reverse Charge"; -#pragma warning restore AL0432 - SalesInvLine.Modify(); - until SalesInvLine.Next() = 0; - - if SalesLine.FindSet() then - repeat -#pragma warning disable AL0432 - SalesLine."Reverse Charge Item GB" := SalesLine."Reverse Charge Item"; - SalesLine."Reverse Charge GB" := SalesLine."Reverse Charge"; -#pragma warning restore AL0432 - SalesLine.Modify(); - until SalesLine.Next() = 0; - - if SalesSetup.Get() then begin -#pragma warning disable AL0432 - SalesSetup."Reverse Charge VAT Post. Gr." := SalesSetup."Reverse Charge VAT Posting Gr."; - SalesSetup."Domestic Customers GB" := SalesSetup."Domestic Customers"; - SalesSetup."Invoice Wording GB" := SalesSetup."Invoice Wording"; -#pragma warning restore AL0432 - SalesSetup.Modify(); - end; - end; - - local procedure SetUpgradeTag(DataUpgradeExecuted: Boolean) - var - UpgradeTag: Codeunit "Upgrade Tag"; - UpgTagReverseChargeVAT: Codeunit "Upg. Tag Reverse Charge VAT"; - begin - // Set the upgrade tag to indicate that the data update is executed/skipped and the feature is enabled. - // This is needed when the feature is enabled by default in a future version, to skip the data upgrade. - if UpgradeTag.HasUpgradeTag(UpgTagReverseChargeVAT.GetReverseChargeVATUpgradeTag()) then - exit; - - UpgradeTag.SetUpgradeTag(UpgTagReverseChargeVAT.GetReverseChargeVATUpgradeTag()); - if not DataUpgradeExecuted then - UpgradeTag.SetSkippedUpgrade(UpgTagReverseChargeVAT.GetReverseChargeVATUpgradeTag(), true); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/ReverseChargeVATGB.Codeunit.al b/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/ReverseChargeVATGB.Codeunit.al deleted file mode 100644 index fb99826e8e2..00000000000 --- a/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/ReverseChargeVATGB.Codeunit.al +++ /dev/null @@ -1,37 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Setup; - -using System.Environment.Configuration; - -codeunit 10549 "Reverse Charge VAT GB" -{ - Access = Internal; - InherentEntitlements = X; - InherentPermissions = X; - - var - FeatureKeyIdTok: Label 'VATReverseCharge', Locked = true; - - procedure IsEnabled() Enabled: Boolean - var - FeatureManagementFacade: Codeunit "Feature Management Facade"; - begin - Enabled := FeatureManagementFacade.IsEnabled(FeatureKeyIdTok); - OnAfterCheckFeatureEnabled(Enabled); - end; - - procedure GetFeatureKeyId(): Text - begin - exit(FeatureKeyIdTok); - end; - - [IntegrationEvent(true, false)] - local procedure OnAfterCheckFeatureEnabled(var IsEnabled: Boolean) - begin - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/UpgTagReverseChargeVAT.Codeunit.al b/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/UpgTagReverseChargeVAT.Codeunit.al deleted file mode 100644 index 309a704de39..00000000000 --- a/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/UpgTagReverseChargeVAT.Codeunit.al +++ /dev/null @@ -1,28 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Setup; - -using System.Upgrade; - -codeunit 10556 "Upg. Tag Reverse Charge VAT" -{ - ObsoleteReason = 'Feature Reverse Charge VAT will be enabled by default in version 30.0.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Access = Internal; - - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade Tag", 'OnGetPerCompanyUpgradeTags', '', false, false)] - local procedure RegisterPerCompanyTags(var PerCompanyUpgradeTags: List of [Code[250]]) - begin - PerCompanyUpgradeTags.Add(GetReverseChargeVATUpgradeTag()); - end; - - internal procedure GetReverseChargeVATUpgradeTag(): Code[250] - begin - exit('MS-572379-ReverseChargeVATUpgradeTag-20250416'); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/UpgradeReverseChargeVAT.Codeunit.al b/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/UpgradeReverseChargeVAT.Codeunit.al deleted file mode 100644 index 972db2d98a3..00000000000 --- a/src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/UpgradeReverseChargeVAT.Codeunit.al +++ /dev/null @@ -1,87 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Setup; - -using Microsoft.Finance.GeneralLedger.Setup; -using Microsoft.Finance.VAT.Calculation; -using Microsoft.Inventory.Item; -using Microsoft.Purchases.Document; -using Microsoft.Purchases.History; -using Microsoft.Purchases.Setup; -using Microsoft.Sales.Document; -using Microsoft.Sales.History; -using Microsoft.Sales.Setup; -using System.Upgrade; - -codeunit 10554 "Upgrade Reverse Charge VAT" -{ - Access = Internal; - Subtype = Upgrade; - - var - UpgradeTag: Codeunit "Upgrade Tag"; - UpgTagReverseChargeVAT: Codeunit "Upg. Tag Reverse Charge VAT"; - - trigger OnUpgradePerCompany() - var - CurrentModuleInfo: ModuleInfo; - begin - NavApp.GetCurrentModuleInfo(CurrentModuleInfo); - if CurrentModuleInfo.AppVersion().Major() < 30 then - exit; - - UpgradeReverseChargeVAT(); - end; - - local procedure UpgradeReverseChargeVAT() - begin - if UpgradeTag.HasUpgradeTag(UpgTagReverseChargeVAT.GetReverseChargeVATUpgradeTag()) then - exit; - - TransferFields(Database::"General Ledger Setup", 10507, 10500); // 10507 - the new field "Threshold applies GB", 10500; the existing field "Threshold applies"; - TransferFields(Database::"General Ledger Setup", 10508, 10501); // 10508 - the new field "Threshold Amount GB", 10501; the existing field "Threshold Amount"; - TransferFields(Database::Item, 10507, 10500); // 10507 - the new field "Reverse Charge Applies GB", 10500; the existing field "Reverse Charge Applies"; - TransferFields(Database::"Item Templ.", 10507, 10500); // 10507 - the new field "Reverse Charge Applies GB", 10500; the existing field "Reverse Charge Applies"; - TransferFields(Database::"Purchase Line", 10507, 10500); // 10507 - the new field "Reverse Charge Item GB", 10500; the existing field "Reverse Charge Item"; - TransferFields(Database::"Purchases & Payables Setup", 10507, 10501); // 10507 - the new field "Reverse Charge VAT Post. Gr.", 10501; the existing field "Reverse Charge VAT Posting Gr."; - TransferFields(Database::"Purchases & Payables Setup", 10508, 10502); // 10508 - the new field "Domestic Vendors GB", 10502; the existing field "Domestic Vendors"; - TransferFields(Database::"Purch. Cr. Memo Line", 10507, 10500); // 10507 - the new field "Reverse Charge Item GB", 10500; the existing field "Reverse Charge Item"; - TransferFields(Database::"Purch. Cr. Memo Line", 10508, 10501); // 10508 - the new field "Reverse Charge GB", 10501; the existing field "Reverse Charge"; - TransferFields(Database::"Purch. Inv. Line", 10507, 10500); // 10507 - the new field "Reverse Charge Item GB", 10500; the existing field "Reverse Charge Item"; - TransferFields(Database::"Purch. Inv. Line", 10508, 10501); // 10508 - the new field "Reverse Charge GB", 10501; the existing field "Reverse Charge"; - TransferFields(Database::"Sales Cr.Memo Line", 10507, 10500); // 10507 - the new field "Reverse Charge Item GB", 10500; the existing field "Reverse Charge Item"; - TransferFields(Database::"Sales Cr.Memo Line", 10508, 10501); // 10508 - the new field "Reverse Charge GB", 10501; the existing field "Reverse Charge"; - TransferFields(Database::"Sales Invoice Line", 10507, 10500); // 10507 - the new field "Reverse Charge Item GB", 10500; the existing field "Reverse Charge Item"; - TransferFields(Database::"Sales Invoice Line", 10508, 10501); // 10508 - the new field "Reverse Charge GB", 10501; the existing field "Reverse Charge"; - TransferFields(Database::"Sales Line", 10507, 10500); // 10507 - the new field "Reverse Charge Item GB", 10500; the existing field "Reverse Charge Item"; - TransferFields(Database::"Sales Line", 10508, 10501); // 10508 - the new field "Reverse Charge GB", 10501; the existing field "Reverse Charge"; - TransferFields(Database::"Sales & Receivables Setup", 10507, 10501); // 10507 - the new field "Reverse Charge VAT Post. Gr.", 10501; the existing field "Reverse Charge VAT Posting Gr."; - TransferFields(Database::"Sales & Receivables Setup", 10508, 10502); // 10508 - the new field "Domestic Customers GB", 10502; the existing field "Domestic Customers"; - TransferFields(Database::"Sales & Receivables Setup", 10509, 10503); // 10509 - the new field "Invoice Wording GB", 10503; the existing field "Invoice Wording"; - TransferFields(Database::"VAT Amount Line", 10507, 10500); // 10507 - the new field "Reverse Charge GB", 10500; the existing field "Reverse Charge"; - - UpgradeTag.SetUpgradeTag(UpgTagReverseChargeVAT.GetReverseChargeVATUpgradeTag()); - end; - - local procedure TransferFields(TableId: Integer; SourceFieldNo: Integer; TargetFieldNo: Integer) - var - RecRef: RecordRef; - TargetFieldRef: FieldRef; - SourceFieldRef: FieldRef; - begin - RecRef.Open(TableId, false); - SourceFieldRef := RecRef.Field(SourceFieldNo); - SourceFieldRef.SetFilter('<>%1', ''); - - if RecRef.FindSet() then - repeat - TargetFieldRef := RecRef.Field(TargetFieldNo); - TargetFieldRef.VALUE := SourceFieldRef.VALUE; - RecRef.Modify(false); - until RecRef.Next() = 0; - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/EnumExtensions/FeatureReverseChargeVAT.EnumExt.al b/src/Apps/GB/ReverseChargeVAT/app/src/EnumExtensions/FeatureReverseChargeVAT.EnumExt.al deleted file mode 100644 index adffe0650fa..00000000000 --- a/src/Apps/GB/ReverseChargeVAT/app/src/EnumExtensions/FeatureReverseChargeVAT.EnumExt.al +++ /dev/null @@ -1,26 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Setup; - -using System.Environment.Configuration; - -enumextension 10553 "Feature - Reverse Charge VAT" extends "Feature To Update" -{ -#pragma warning disable AS0082 -#pragma warning disable AS0125 -#pragma warning disable AS0072 - value(10553; VATReverseCharge) - { - Implementation = "Feature Data Update" = "Feature - Reverse Charge VAT"; - ObsoleteState = Pending; - ObsoleteReason = 'Feature Reverse Charge VAT will be enabled by default in version 30.0.'; - ObsoleteTag = '27.0'; - } -#pragma warning restore AS0082 -#pragma warning restore AS0125 -#pragma warning disable AS0072 -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/GeneralLedgerSetup.PageExt.al b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/GeneralLedgerSetup.PageExt.al index 0c9f9bb8116..65f2489b627 100644 --- a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/GeneralLedgerSetup.PageExt.al +++ b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/GeneralLedgerSetup.PageExt.al @@ -10,44 +10,16 @@ pageextension 10549 "General Ledger Setup" extends "General Ledger Setup" { layout { -#if not CLEAN27 -#pragma warning disable AL0432 - modify("Reverse Charge") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#pragma warning disable AL0432 - modify("Threshold applies") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#pragma warning disable AL0432 - modify(ThresholdAmount) -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#endif addafter(Application) { group("Reverse Charge GB") { Caption = 'Reverse Charge'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif field("Threshold applies GB"; Rec."Threshold applies GB") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies whether or not the program is setup to process Reverse Charge invoices.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif trigger OnValidate() begin @@ -63,30 +35,17 @@ pageextension 10549 "General Ledger Setup" extends "General Ledger Setup" Caption = 'Threshold Amount'; Enabled = ThresholdAmountEnable; ToolTip = 'Specifies the de minimis rule amount determined by the tax authorities.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; -#endif } } } } var -#if not CLEAN27 - IsNewFeatureEnabled: Boolean; -#endif ThresholdAmountEnable: Boolean; trigger OnOpenPage() var -#if not CLEAN27 - ReverseChargeVAT: Codeunit "Reverse Charge VAT GB"; -#endif begin -#if not CLEAN27 - IsNewFeatureEnabled := ReverseChargeVAT.IsEnabled(); - ThresholdAmountEnable := Rec."Threshold applies GB" and IsNewFeatureEnabled; -#endif ThresholdAmountEnable := Rec."Threshold applies GB"; end; } \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemCard.PageExt.al b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemCard.PageExt.al index dc77069c280..478f66d6610 100644 --- a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemCard.PageExt.al +++ b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemCard.PageExt.al @@ -10,39 +10,15 @@ pageextension 10552 "Item Card" extends "Item Card" { layout { -#if not CLEAN27 -#pragma warning disable AL0432 - modify("Reverse Charge Applies") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#endif addafter("VAT Bus. Posting Gr. (Price)") { field("Reverse Charge Applies GB"; Rec."Reverse Charge Applies GB") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies if this item is subject to reverse charge.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } } } -#if not CLEAN27 - var - IsNewFeatureEnabled: Boolean; -#endif -#if not CLEAN27 - trigger OnOpenPage() - var - ReverseChargeVAT: Codeunit "Reverse Charge VAT GB"; - begin - IsNewFeatureEnabled := ReverseChargeVAT.IsEnabled(); - end; -#endif } \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemList.PageExt.al b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemList.PageExt.al index 7d0f8d30056..ccc5dac4837 100644 --- a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemList.PageExt.al +++ b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemList.PageExt.al @@ -10,39 +10,15 @@ pageextension 10553 "Item List" extends "Item List" { layout { -#if not CLEAN27 -#pragma warning disable AL0432 - modify("Reverse Charge Applies") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#endif addafter("Item Tracking Code") { field("Reverse Charge Applies GB"; Rec."Reverse Charge Applies GB") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies if this item is subject to reverse charge.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } } } -#if not CLEAN27 - var - IsNewFeatureEnabled: Boolean; -#endif -#if not CLEAN27 - trigger OnOpenPage() - var - ReverseChargeVAT: Codeunit "Reverse Charge VAT GB"; - begin - IsNewFeatureEnabled := ReverseChargeVAT.IsEnabled(); - end; -#endif } \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemTemplCard.PageExt.al b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemTemplCard.PageExt.al index 43002ea5187..b8b03bdb5ae 100644 --- a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemTemplCard.PageExt.al +++ b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/ItemTemplCard.PageExt.al @@ -10,39 +10,15 @@ pageextension 10554 "Item Templ. Card" extends "Item Templ. Card" { layout { -#if not CLEAN27 -#pragma warning disable AL0432 - modify("Reverse Charge Applies") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#endif addafter("VAT Bus. Posting Gr. (Price)") { field("Reverse Charge Applies GB"; Rec."Reverse Charge Applies GB") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies if this item is subject to reverse charge.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } } } -#if not CLEAN27 - var - IsNewFeatureEnabled: Boolean; -#endif -#if not CLEAN27 - trigger OnOpenPage() - var - ReverseChargeVAT: Codeunit "Reverse Charge VAT GB"; - begin - IsNewFeatureEnabled := ReverseChargeVAT.IsEnabled(); - end; -#endif } \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/PurchasesPayablesSetup.PageExt.al b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/PurchasesPayablesSetup.PageExt.al index 431172b8360..0e079ce3955 100644 --- a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/PurchasesPayablesSetup.PageExt.al +++ b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/PurchasesPayablesSetup.PageExt.al @@ -10,68 +10,24 @@ pageextension 10556 "Purchases & Payables Setup" extends "Purchases & Payables S { layout { -#if not CLEAN27 -#pragma warning disable AL0432 - modify("Reverse Charge") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#pragma warning disable AL0432 - modify("Reverse Charge VAT Posting Gr.") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#pragma warning disable AL0432 - modify("Domestic Vendors") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#endif addafter("Background Posting") { group("Reverse Charge GB") { Caption = 'Reverse Charge'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif field("Reverse Charge VAT Post. Gr."; Rec."Reverse Charge VAT Post. Gr.") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the VAT Business Posting Group code for reverse charge VAT.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } field("Domestic Vendors GB"; Rec."Domestic Vendors GB") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the VAT Business Posting Group code for domestic UK vendors.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } } } } -#if not CLEAN27 - var - IsNewFeatureEnabled: Boolean; -#endif -#if not CLEAN27 - trigger OnOpenPage() - var - ReverseChargeVAT: Codeunit "Reverse Charge VAT GB"; - begin - IsNewFeatureEnabled := ReverseChargeVAT.IsEnabled(); - end; -#endif } \ No newline at end of file diff --git a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/SalesReceivablesSetup.PageExt.al b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/SalesReceivablesSetup.PageExt.al index 51c79dbf14b..d80add38458 100644 --- a/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/SalesReceivablesSetup.PageExt.al +++ b/src/Apps/GB/ReverseChargeVAT/app/src/PageExtensions/SalesReceivablesSetup.PageExt.al @@ -10,83 +10,29 @@ pageextension 10557 "Sales & Receivables Setup" extends "Sales & Receivables Set { layout { -#if not CLEAN27 -#pragma warning disable AL0432 - modify("Reverse Charge") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#pragma warning disable AL0432 - modify("Reverse Charge VAT Posting Gr.") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#pragma warning disable AL0432 - modify("Domestic Customers") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#pragma warning disable AL0432 - modify("Invoice Wording") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#endif addafter("Background Posting") { group("Reverse Charge GB") { Caption = 'Reverse Charge'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif field("Reverse Charge VAT Post. Gr."; Rec."Reverse Charge VAT Post. Gr.") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the VAT Business Posting Group code for reverse charge VAT.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } field("Domestic Customers GB"; Rec."Domestic Customers GB") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the VAT Business Posting Group code for domestic UK customers.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } field("Invoice Wording GB"; Rec."Invoice Wording GB") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the text that is printed on the invoice indicating that the invoice is a reverse charge transaction.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } } } } -#if not CLEAN27 - var - IsNewFeatureEnabled: Boolean; -#endif -#if not CLEAN27 - trigger OnOpenPage() - var - ReverseChargeVAT: Codeunit "Reverse Charge VAT GB"; - begin - IsNewFeatureEnabled := ReverseChargeVAT.IsEnabled(); - end; -#endif } \ No newline at end of file diff --git a/src/Apps/GB/UKMakingTaxDigital/app/src/MTDMgt.Codeunit.al b/src/Apps/GB/UKMakingTaxDigital/app/src/MTDMgt.Codeunit.al index c6f4c474066..b898181f84a 100644 --- a/src/Apps/GB/UKMakingTaxDigital/app/src/MTDMgt.Codeunit.al +++ b/src/Apps/GB/UKMakingTaxDigital/app/src/MTDMgt.Codeunit.al @@ -465,19 +465,11 @@ codeunit 10530 "MTD Mgt." VATReportArchive: Record "VAT Report Archive"; TempBlob: Codeunit "Temp Blob"; OutStream: OutStream; -#if not CLEAN27 - DummyGUID: Guid; -#endif begin TempBlob.CreateOutStream(OutStream, TEXTENCODING::UTF8); OutStream.WriteText(MessageText); -#if not CLEAN27 -#pragma warning disable AL0432 - VATReportArchive.ArchiveResponseMessage(VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", TempBlob, DummyGUID); -#else VATReportArchive.ArchiveResponseMessage(VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", TempBlob); #pragma warning restore AL0432 -#endif end; internal procedure CheckReturnPeriodLink(VATReportHeader: Record "VAT Report Header") diff --git a/src/Apps/GB/UKMakingTaxDigital/app/src/RunCodeunits/MTDCreateReturnContent.Codeunit.al b/src/Apps/GB/UKMakingTaxDigital/app/src/RunCodeunits/MTDCreateReturnContent.Codeunit.al index 779028f6c10..823910f8f71 100644 --- a/src/Apps/GB/UKMakingTaxDigital/app/src/RunCodeunits/MTDCreateReturnContent.Codeunit.al +++ b/src/Apps/GB/UKMakingTaxDigital/app/src/RunCodeunits/MTDCreateReturnContent.Codeunit.al @@ -27,13 +27,8 @@ codeunit 10531 "MTD Create Return Content" TempBlob.CreateOutStream(OutStream, TEXTENCODING::UTF8); OutStream.WriteText(RequestJson); -#if not CLEAN27 -#pragma warning disable AL0432 - VATReportArchive.ArchiveSubmissionMessage("VAT Report Config. Code".AsInteger(), "No.", TempBlob, DummyGUID); -#else VATReportArchive.ArchiveSubmissionMessage("VAT Report Config. Code".AsInteger(), "No.", TempBlob); #pragma warning restore AL0432 -#endif end; local procedure CreateReturnContent(VATReportHeader: Record "VAT Report Header"): Text; diff --git a/src/Apps/GB/UKMakingTaxDigital/app/src/RunCodeunits/MTDSubmitReturn.Codeunit.al b/src/Apps/GB/UKMakingTaxDigital/app/src/RunCodeunits/MTDSubmitReturn.Codeunit.al index c26767b566e..b931ee319ed 100644 --- a/src/Apps/GB/UKMakingTaxDigital/app/src/RunCodeunits/MTDSubmitReturn.Codeunit.al +++ b/src/Apps/GB/UKMakingTaxDigital/app/src/RunCodeunits/MTDSubmitReturn.Codeunit.al @@ -46,13 +46,8 @@ codeunit 10532 "MTD Submit Return" TempBlob.CreateOutStream(OutStream, TEXTENCODING::UTF8); OutStream.Write(CombineSubmissionRequestResponse(RequestJson, ResponseJson)); VATReportArchive.Delete(); -#if not CLEAN27 -#pragma warning disable AL0432 - VATReportArchive.ArchiveSubmissionMessage("VAT Report Config. Code".AsInteger(), "No.", TempBlob, DummyGUID); -#else VATReportArchive.ArchiveSubmissionMessage("VAT Report Config. Code".AsInteger(), "No.", TempBlob); #pragma warning restore AL0432 -#endif if SubmitSuccess then begin // Mark as Submitted VATReportMediator.Submit(Rec); diff --git a/src/Apps/GB/UKMakingTaxDigital/test/src/MTDTestReturns.Codeunit.al b/src/Apps/GB/UKMakingTaxDigital/test/src/MTDTestReturns.Codeunit.al index 09936514d3d..3110f219979 100644 --- a/src/Apps/GB/UKMakingTaxDigital/test/src/MTDTestReturns.Codeunit.al +++ b/src/Apps/GB/UKMakingTaxDigital/test/src/MTDTestReturns.Codeunit.al @@ -443,19 +443,11 @@ codeunit 148087 "MTDTestReturns" VATReportArchive: Record "VAT Report Archive"; TempBlob: Codeunit "Temp Blob"; OutStream: OutStream; -#if not CLEAN27 - DummyGUID: Guid; -#endif begin TempBlob.CreateOutStream(OutStream, TextEncoding::UTF8); Outstream.Write(MessageText); -#if not CLEAN27 -#pragma warning disable AL0432 - VATReportArchive.ArchiveSubmissionMessage(VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", TempBlob, DummyGUID); -#else VATReportArchive.ArchiveSubmissionMessage(VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", TempBlob); #pragma warning restore AL0432 -#endif end; local procedure MockVATReportWithStatementSetup(var VATReportHeader: Record "VAT Report Header") diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/BankAccountCard.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/BankAccountCard.PageExt.al index 4371dccf586..55a7dbba709 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/BankAccountCard.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/BankAccountCard.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.Bank.BankAccount; @@ -97,5 +96,4 @@ pageextension 50000 "Bank Account Card" extends "Bank Account Card" begin HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CompanyInformation.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CompanyInformation.PageExt.al index e07f1f98aea..4448cc56fc1 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CompanyInformation.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CompanyInformation.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.Foundation.Address; @@ -157,5 +156,4 @@ pageextension 50003 "Company Information" extends "Company Information" begin HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ContactAltAddressCard.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ContactAltAddressCard.PageExt.al index bb65c5fe18f..f26ee475f77 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ContactAltAddressCard.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ContactAltAddressCard.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.CRM.Contact; @@ -98,5 +97,4 @@ pageextension 50001 "Contact Alt. Address Card" extends "Contact Alt. Address Ca begin HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ContactCard.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ContactCard.PageExt.al index 3de45d61e79..f961e77b057 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ContactCard.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ContactCard.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.CRM.Contact; @@ -98,5 +97,4 @@ pageextension 50002 "Contact Card" extends "Contact Card" begin HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CustomerBankAccountCard.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CustomerBankAccountCard.PageExt.al index 6e519d69685..dc3c1dc602a 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CustomerBankAccountCard.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CustomerBankAccountCard.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.Foundation.Address; @@ -99,5 +98,4 @@ pageextension 50007 "Customer Bank Account Card" extends "Customer Bank Account begin HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CustomerCard.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CustomerCard.PageExt.al index ef62d1de402..0e361dd3bff 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CustomerCard.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/CustomerCard.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.Foundation.Address; @@ -98,5 +97,4 @@ pageextension 50008 "Customer Card" extends "Customer Card" if GuiAllowed() then HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/EmployeeCard.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/EmployeeCard.PageExt.al index 0cb594ade0c..a44e837b8a4 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/EmployeeCard.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/EmployeeCard.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.Foundation.Address; @@ -97,5 +96,4 @@ pageextension 50004 "Employee Card" extends "Employee Card" begin HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/LocationCard.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/LocationCard.PageExt.al index fe9ea5bb794..d884f220b7d 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/LocationCard.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/LocationCard.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.Foundation.Address; @@ -98,5 +97,4 @@ pageextension 50010 "Location Card" extends "Location Card" begin HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ResourceCard.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ResourceCard.PageExt.al index e7c234914b7..1ff7e8a9726 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ResourceCard.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ResourceCard.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.Foundation.Address; @@ -91,5 +90,4 @@ pageextension 50005 "Resource Card" extends "Resource Card" begin HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ShiptoAddress.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ShiptoAddress.PageExt.al index 0851886300a..35ca85f9693 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ShiptoAddress.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/ShiptoAddress.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.Foundation.Address; @@ -97,5 +96,4 @@ pageextension 50009 "Ship-to Address" extends "Ship-to Address" begin HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/VendorCard.PageExt.al b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/VendorCard.PageExt.al index 89e34b468c7..3cf20ccb910 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/VendorCard.PageExt.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/app/src/PageExt/VendorCard.PageExt.al @@ -2,7 +2,6 @@ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ -#if CLEAN27 namespace app.app; using Microsoft.Foundation.Address; @@ -98,5 +97,4 @@ pageextension 50006 "Vendor Card" extends "Vendor Card" if GuiAllowed() then HandleAddressLookupVisibility(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/test/src/TestUKPostcode.Codeunit.al b/src/Apps/GB/UKPostcodeGetAddressIO/test/src/TestUKPostcode.Codeunit.al index ee768e34601..f14cc41ff1a 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/test/src/TestUKPostcode.Codeunit.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/test/src/TestUKPostcode.Codeunit.al @@ -1,4 +1,3 @@ -#if CLEAN27 codeunit 139500 "Test UK Postcode" { Subtype = Test; @@ -272,4 +271,3 @@ codeunit 139500 "Test UK Postcode" end; } -#endif diff --git a/src/Apps/GB/UKPostcodeGetAddressIO/test/src/TestUKPostcodePages.Codeunit.al b/src/Apps/GB/UKPostcodeGetAddressIO/test/src/TestUKPostcodePages.Codeunit.al index a57cebeb27a..6f006afe0fa 100644 --- a/src/Apps/GB/UKPostcodeGetAddressIO/test/src/TestUKPostcodePages.Codeunit.al +++ b/src/Apps/GB/UKPostcodeGetAddressIO/test/src/TestUKPostcodePages.Codeunit.al @@ -1,4 +1,3 @@ -#if CLEAN27 codeunit 139501 "Test UK Postcode Pages" { Subtype = Test; @@ -1843,5 +1842,4 @@ codeunit 139501 "Test UK Postcode Pages" PostcodeSelectAddress.GotoKey(3); PostcodeSelectAddress.OK().Invoke(); end; -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/GB/VATReporting/app/Permissions/VATReportingObjects.PermissionSet.al b/src/Apps/GB/VATReporting/app/Permissions/VATReportingObjects.PermissionSet.al index 8289a277c98..53e9280ce45 100644 --- a/src/Apps/GB/VATReporting/app/Permissions/VATReportingObjects.PermissionSet.al +++ b/src/Apps/GB/VATReporting/app/Permissions/VATReportingObjects.PermissionSet.al @@ -9,9 +9,6 @@ permissionset 10544 "VAT Reporting - Objects" Access = Internal; Assignable = false; Permissions = -#if not CLEAN27 - codeunit "VAT Audit GB" = X, -#endif report "VAT Audit GB" = X, report "VAT Entry Exception Report GB" = X; } \ No newline at end of file diff --git a/src/Apps/GB/VATReporting/app/src/Codeunits/VATAuditGB.Codeunit.al b/src/Apps/GB/VATReporting/app/src/Codeunits/VATAuditGB.Codeunit.al deleted file mode 100644 index 3815240435e..00000000000 --- a/src/Apps/GB/VATReporting/app/src/Codeunits/VATAuditGB.Codeunit.al +++ /dev/null @@ -1,37 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using System.Environment.Configuration; - -codeunit 10544 "VAT Audit GB" -{ - Access = Internal; - InherentEntitlements = X; - InherentPermissions = X; - - var - FeatureKeyIdTok: Label 'PrintVATAuditReports', Locked = true; - - procedure IsEnabled() Result: Boolean - var - FeatureManagementFacade: Codeunit "Feature Management Facade"; - begin - Result := FeatureManagementFacade.IsEnabled(FeatureKeyIdTok); - OnAfterCheckFeatureEnabled(Result); - end; - - procedure GetFeatureKeyId(): Text - begin - exit(FeatureKeyIdTok); - end; - - [IntegrationEvent(true, false)] - local procedure OnAfterCheckFeatureEnabled(var IsEnabled: Boolean) - begin - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/GB/VATReporting/app/src/PageExtensions/VATStatement.PageExt.al b/src/Apps/GB/VATReporting/app/src/PageExtensions/VATStatement.PageExt.al index ac67788f0a3..c87bb627012 100644 --- a/src/Apps/GB/VATReporting/app/src/PageExtensions/VATStatement.PageExt.al +++ b/src/Apps/GB/VATReporting/app/src/PageExtensions/VATStatement.PageExt.al @@ -10,20 +10,6 @@ pageextension 10548 "VAT Statement" extends "VAT Statement" { actions { -#if not CLEAN27 -#pragma warning disable AL0432 - modify("VAT Audit Report") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#pragma warning disable AL0432 - modify("VAT Entry Exception Report") -#pragma warning restore AL0432 - { - Visible = not IsNewFeatureEnabled; - } -#endif addfirst(reporting) { action("VAT Audit Report GB") @@ -33,10 +19,6 @@ pageextension 10548 "VAT Statement" extends "VAT Statement" Image = "Report"; RunObject = Report "VAT Audit GB"; ToolTip = 'Export the data required for auditing in a comma-separated value (CSV) file format.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } action("VAT Entry Exception Report GB") { @@ -45,10 +27,6 @@ pageextension 10548 "VAT Statement" extends "VAT Statement" Image = "Report"; RunObject = Report "VAT Entry Exception Report GB"; ToolTip = 'Print the Exception report so that you can document and show differences in VAT amounts to tax authorities.'; -#if not CLEAN27 - Visible = IsNewFeatureEnabled; - Enabled = IsNewFeatureEnabled; -#endif } } addfirst(Category_Report) @@ -62,17 +40,5 @@ pageextension 10548 "VAT Statement" extends "VAT Statement" } } -#if not CLEAN27 - var - IsNewFeatureEnabled: Boolean; -#endif -#if not CLEAN27 - trigger OnOpenPage() - var - VATAuditReportsGBFeature: Codeunit "VAT Audit GB"; - begin - IsNewFeatureEnabled := VATAuditReportsGBFeature.IsEnabled(); - end; -#endif } \ No newline at end of file diff --git a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/CessUseCaseSetup.Codeunit.al b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/CessUseCaseSetup.Codeunit.al index 3d6f68622f4..33b313a5116 100644 --- a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/CessUseCaseSetup.Codeunit.al +++ b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/CessUseCaseSetup.Codeunit.al @@ -4,9 +4,6 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Finance.TaxEngine.JsonExchange; -#if not CLEAN27 -using Microsoft.Finance.GST.Base; -#endif codeunit 18009 "Cess Use Case Setup" { [EventSubscriber(ObjectType::Codeunit, Codeunit::"Tax Engine Assisted Setup", 'OnSetupUseCases', '', false, false)] @@ -21,26 +18,6 @@ codeunit 18009 "Cess Use Case Setup" ImportGSTUseCase.ImportUseCases(ImportGSTUseCase.GetResourceForUseCase(GSTCessResFileLbl)); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade GST Tax Config", 'OnUpgradeGSTUseCases', '', false, false)] - local procedure OnUpgradeGSTUseCases(CaseID: Guid; var UseCaseConfig: Text; var IsHandled: Boolean) - begin - if IsHandled then - exit; - - UseCaseConfig := GetText(CaseID); - if UseCaseConfig <> '' then - IsHandled := true; - end; - - local procedure GetText(CaseId: Guid): Text - var - CessTaxTypeSetup: Codeunit "Cess Tax Type Setup"; - IsHandled: Boolean; - begin - exit(CessTaxTypeSetup.GetConfig(CaseId, IsHandled)) - end; -#endif var GSTCessResFileLbl: Label 'GSTCESS', MaxLength = 20; diff --git a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTBaseTaxEngineSetup.Codeunit.al b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTBaseTaxEngineSetup.Codeunit.al index 03aa0fc2443..f6bde7b0889 100644 --- a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTBaseTaxEngineSetup.Codeunit.al +++ b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTBaseTaxEngineSetup.Codeunit.al @@ -4,9 +4,6 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Finance.TaxEngine.JsonExchange; -#if not CLEAN27 -using Microsoft.Finance.GST.Base; -#endif codeunit 18004 "GST Base Tax Engine Setup" { [EventSubscriber(ObjectType::Codeunit, Codeunit::"Tax Engine Assisted Setup", 'OnSetupTaxTypes', '', false, false)] @@ -47,18 +44,6 @@ codeunit 18004 "GST Base Tax Engine Setup" ImportGSTUseCase.ImportUseCases(ImportGSTUseCase.GetResourceForUseCase(GSTResFileLbl)); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade GST Tax Config", 'OnUpgradeGSTUseCases', '', false, false)] - local procedure OnUpgradeGSTUseCases(CaseID: Guid; var UseCaseConfig: Text; var IsHandled: Boolean) - begin - if IsHandled then - exit; - - UseCaseConfig := GetText(CaseID); - if UseCaseConfig <> '' then - IsHandled := true; - end; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Tax Engine Assisted Setup", 'OnGetTaxTypeConfig', '', false, false)] local procedure OnGetTaxTypeConfig(TaxType: Code[20]; var ConfigText: Text; var IsHandled: Boolean) var @@ -95,14 +80,6 @@ codeunit 18004 "GST Base Tax Engine Setup" Configtext := GetConfig(CaseID, IsHandled); end; -#if not CLEAN27 - local procedure GetText(CaseId: Guid): Text - var - IsHandled: Boolean; - begin - exit(GetConfig(CaseId, IsHandled)) - end; -#endif procedure GetConfig(CaseID: Guid; var Handled: Boolean): Text var diff --git a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTTDSTCSUseCaseSetup.Codeunit.al b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTTDSTCSUseCaseSetup.Codeunit.al index 3d06d1122d3..dfd57e52dc4 100644 --- a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTTDSTCSUseCaseSetup.Codeunit.al +++ b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTTDSTCSUseCaseSetup.Codeunit.al @@ -4,9 +4,6 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Finance.TaxEngine.JsonExchange; -#if not CLEAN27 -using Microsoft.Finance.GST.Base; -#endif codeunit 18014 "GST TDS TCS Use Case Setup" { [EventSubscriber(ObjectType::Codeunit, Codeunit::"Tax Engine Assisted Setup", 'OnSetupUseCases', '', false, false)] @@ -21,26 +18,6 @@ codeunit 18014 "GST TDS TCS Use Case Setup" ImportGSTUseCase.ImportUseCases(ImportGSTUseCase.GetResourceForUseCase(GSTTDSTCSResFileLbl)); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade GST Tax Config", 'OnUpgradeGSTUseCases', '', false, false)] - local procedure OnUpgradeGSTUseCases(CaseID: Guid; var UseCaseConfig: Text; var IsHandled: Boolean) - begin - if IsHandled then - exit; - - UseCaseConfig := GetText(CaseID); - if UseCaseConfig <> '' then - IsHandled := true; - end; - - local procedure GetText(CaseId: Guid): Text - var - GSTTDSTCSTaxTypeSetup: Codeunit "GST TDS TCS Tax Type Setup"; - IsHandled: Boolean; - begin - exit(GSTTDSTCSTaxTypeSetup.GetConfig(CaseId, IsHandled)); - end; -#endif var GSTTDSTCSResFileLbl: Label 'GSTTDSTCS', MaxLength = 20; diff --git a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTTaxTypeData.Codeunit.al b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTTaxTypeData.Codeunit.al index d194027726f..2edb6188d3f 100644 --- a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTTaxTypeData.Codeunit.al +++ b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTTaxTypeData.Codeunit.al @@ -19,953 +19,6 @@ codeunit 18005 "GST Tax Type Data" exit(GSTTaxTypeLbl); end; -#if not CLEAN27 - [Obsolete('Removal of procedure as all Use cases covered in GSTBaseTaxEngineSetup Codeunit', '27.0')] - procedure GetConfig(CaseID: Guid; var Handled: Boolean): Text - var - "{F37442C1-AB50-445F-A7C3-8DCA84931B69}Lbl": Label 'GST Use Cases'; - "{28E2DDFD-2F63-47CB-986C-8E6F5D2356F3}Lbl": Label 'GST Use Cases'; - "{D460C15F-47A6-41A4-9B9F-8EA3738C2E40}Lbl": Label 'GST Use Cases'; - "{7B096619-70FB-4622-9E57-8EAE58DC1AB1}Lbl": Label 'GST Use Cases'; - "{1FF813B4-1776-4717-8C56-8F0E684ACE73}Lbl": Label 'GST Use Cases'; - "{4DD701D1-41A9-432E-9E95-8F8D08AB2C67}Lbl": Label 'GST Use Cases'; - "{EC4815D3-A78F-4C4F-8C64-8FE9AF09050C}Lbl": Label 'GST Use Cases'; - "{7859624E-8AFD-4A64-B361-900053C11266}Lbl": Label 'GST Use Cases'; - "{DF783FC9-39C3-492B-B94F-90BCF26C04E5}Lbl": Label 'GST Use Cases'; - "{17ED9604-C26D-496C-B2F4-9124166CF719}Lbl": Label 'GST Use Cases'; - "{BCB4C9B2-E212-4971-BE8C-914BC1DAAB1B}Lbl": Label 'GST Use Cases'; - "{DBE9B77E-9171-4F5C-A7CA-9156126D34FC}Lbl": Label 'GST Use Cases'; - "{26260269-B2BE-4D01-AF43-91BCE15FFF05}Lbl": Label 'GST Use Cases'; - "{4C68E757-379A-4FD3-A58A-91F57954A9FC}Lbl": Label 'GST Use Cases'; - "{293882EE-DEB8-47A9-BAF1-9221422B247A}Lbl": Label 'GST Use Cases'; - "{AB2BDB68-471C-4EC0-B43A-92920239FBF9}Lbl": Label 'GST Use Cases'; - "{674E08E2-EB2A-4C3D-924B-9370C6ED3DBF}Lbl": Label 'GST Use Cases'; - "{58CCF42B-75BE-422F-90A5-93E52B2CC817}Lbl": Label 'GST Use Cases'; - "{F9A5047E-5B27-41E4-AF68-9497E3B52FAE}Lbl": Label 'GST Use Cases'; - "{0C3618F6-08BD-417F-8744-94A415595940}Lbl": Label 'GST Use Cases'; - "{812E9032-CA16-4FAB-A80B-94CD7BC5EB8D}Lbl": Label 'GST Use Cases'; - "{B2047EB4-AD5D-4E8B-BFFC-94FB1C4EED34}Lbl": Label 'GST Use Cases'; - "{8011782D-C645-47CC-AE43-94FEFE437125}Lbl": Label 'GST Use Cases'; - "{BBBBD283-C64C-4AFE-A14E-950791E18CF8}Lbl": Label 'GST Use Cases'; - "{7DBFAC05-5315-4A5F-B5BE-962A065F7D93}Lbl": Label 'GST Use Cases'; - "{36207D8F-34B2-4AF3-83EC-96642DA44DFB}Lbl": Label 'GST Use Cases'; - "{F5EA246D-523F-4FFA-B316-967933F01C16}Lbl": Label 'GST Use Cases'; - "{FDC07938-011D-4291-9888-9685DCBF09E6}Lbl": Label 'GST Use Cases'; - "{99AB0C39-33A7-47F5-8659-968DBAEEA2F2}Lbl": Label 'GST Use Cases'; - "{2961B717-F882-4174-A7D0-98737C7F49A2}Lbl": Label 'GST Use Cases'; - "{580975ED-52DE-4EF9-BD94-99425C52B570}Lbl": Label 'GST Use Cases'; - "{FDB8B33F-E905-48C4-9191-994768C75A69}Lbl": Label 'GST Use Cases'; - "{135115A7-1D82-4528-959B-9A35775455CD}Lbl": Label 'GST Use Cases'; - "{EB39C2FC-37D8-4778-8B44-9A45DDA46B2E}Lbl": Label 'GST Use Cases'; - "{8A057230-A2A9-4E59-8101-9A947A8D8B91}Lbl": Label 'GST Use Cases'; - "{A8C8864E-5E75-431A-90D6-9AAB47623BA6}Lbl": Label 'GST Use Cases'; - "{1FFB6082-63D3-4AF8-A83B-9AE92D2010E2}Lbl": Label 'GST Use Cases'; - "{40E9E837-E785-42A1-B8ED-9B27D43D1FFC}Lbl": Label 'GST Use Cases'; - "{2026E996-050E-4647-8D77-9B2E8FF1B068}Lbl": Label 'GST Use Cases'; - "{FA5B2691-7B6B-43B4-92F1-9B6D10A216E4}Lbl": Label 'GST Use Cases'; - "{D52A2660-896C-4F50-B98F-9BB270E16A75}Lbl": Label 'GST Use Cases'; - "{783D79C8-B103-439F-9F75-9CB53B347C73}Lbl": Label 'GST Use Cases'; - "{34D44752-1655-43CC-8DD8-9CBA775C5554}Lbl": Label 'GST Use Cases'; - "{0A055D50-A23B-48A5-BADA-9D00D97EED3B}Lbl": Label 'GST Use Cases'; - "{938B00CD-0C55-4E7E-9E88-9D26724E10E2}Lbl": Label 'GST Use Cases'; - "{24BF4F23-3693-4E31-ADDA-9D2F91057CA2}Lbl": Label 'GST Use Cases'; - "{1A8DCBD9-6A50-4C2F-9364-9DB967B50A24}Lbl": Label 'GST Use Cases'; - "{2D2466D5-E651-49FE-A00C-9DE16690874C}Lbl": Label 'GST Use Cases'; - "{B47FAAA7-7D45-45F8-930F-9E124266E402}Lbl": Label 'GST Use Cases'; - "{F3CD2FC6-4CEE-47EF-B0F5-9EB3E46CE74B}Lbl": Label 'GST Use Cases'; - "{0C04EF8F-6F19-4C41-928B-9F32605898A8}Lbl": Label 'GST Use Cases'; - "{7422E62E-F5A5-46C6-8A2D-9F9F4C082C91}Lbl": Label 'GST Use Cases'; - "{851F544F-7349-4E29-AF19-A0B3B72AB0AC}Lbl": Label 'GST Use Cases'; - "{23C292E2-9704-4112-9AB6-A2FCBDDFFA6A}Lbl": Label 'GST Use Cases'; - "{997C3EE3-8453-43F1-A179-A32B19EFD8B8}Lbl": Label 'GST Use Cases'; - "{B8EE2ED8-F29F-465D-B6DC-A3A2A4BB1B3D}Lbl": Label 'GST Use Cases'; - "{A52E9652-EFC8-4950-B8C1-A41D887AF962}Lbl": Label 'GST Use Cases'; - "{A6239FAB-E9D2-4FFC-90CC-A5D7858C4CD8}Lbl": Label 'GST Use Cases'; - "{77D07467-2180-4712-814A-A6292F8D5E59}Lbl": Label 'GST Use Cases'; - "{B03B25F1-806F-4CE3-86A2-A65BBE1F8360}Lbl": Label 'GST Use Cases'; - "{DA8551C9-79B9-423C-801E-A8C868788300}Lbl": Label 'GST Use Cases'; - "{9568C93C-FC46-477D-B554-A8EACAEAF21A}Lbl": Label 'GST Use Cases'; - "{079237F7-FA64-40B5-8BE7-A92428550117}Lbl": Label 'GST Use Cases'; - "{4911101A-A3D1-4596-836C-A9EB2F2CB24C}Lbl": Label 'GST Use Cases'; - "{387B69F6-70EC-4BCC-A4C0-AA1CFAB0D356}Lbl": Label 'GST Use Cases'; - "{9E59D4DD-C975-4F42-B5A2-AA98AC93FB7F}Lbl": Label 'GST Use Cases'; - "{DBD883FC-4DD3-4C9C-B9AC-AAAF07FF4F3E}Lbl": Label 'GST Use Cases'; - "{A4044120-D393-4525-88F4-AB1A71F2E49C}Lbl": Label 'GST Use Cases'; - "{DA972CCF-D97D-4379-9704-AB397FA9E08F}Lbl": Label 'GST Use Cases'; - "{E52D7679-7E9C-4623-9CA7-AB704EF2465C}Lbl": Label 'GST Use Cases'; - "{BE0C902C-E9FC-4548-B8C7-AB70E21388BC}Lbl": Label 'GST Use Cases'; - "{CAC3F49D-59DD-4F1A-B0F3-AC28F7552973}Lbl": Label 'GST Use Cases'; - "{62AD7817-C30F-4EC6-B68C-AC4828B07DF8}Lbl": Label 'GST Use Cases'; - "{429F37B1-0D9F-4B5A-BC3F-AC53F994BC32}Lbl": Label 'GST Use Cases'; - "{B5C09EE0-1CF9-4818-AADB-AC5E95626AE9}Lbl": Label 'GST Use Cases'; - "{C215F153-718E-4936-BA99-ACB4E2F2BBC4}Lbl": Label 'GST Use Cases'; - "{EF5146EB-771F-4DCE-80E7-ACC0B606829F}Lbl": Label 'GST Use Cases'; - "{7647BA98-B553-41F7-8E2B-AE17EB85A560}Lbl": Label 'GST Use Cases'; - "{9B55505A-A2FE-4D77-8E6D-AEF8E1080D2C}Lbl": Label 'GST Use Cases'; - "{C6B64855-0CA9-4749-B21E-AF9FA0AB33D4}Lbl": Label 'GST Use Cases'; - "{8E7F4564-7BCD-46AA-B833-B040CD01B88D}Lbl": Label 'GST Use Cases'; - "{8B75A47C-8DD2-45C8-99D9-B04E18C531D5}Lbl": Label 'GST Use Cases'; - "{1005E09C-7F65-4E7A-AC0C-B071C455A412}Lbl": Label 'GST Use Cases'; - "{AF13E308-74EA-4A38-86B9-B0EA0DCE1972}Lbl": Label 'GST Use Cases'; - "{D66CD2EC-C8A4-48B9-A634-B14161E0E03B}Lbl": Label 'GST Use Cases'; - "{200C22B1-5DC0-4A80-B377-B14F9613D061}Lbl": Label 'GST Use Cases'; - "{C97F63C3-79EB-44D6-8AEA-B1710A9BBCE9}Lbl": Label 'GST Use Cases'; - "{2E85F2F7-2ED8-42CC-95F5-B20D32DB41AC}Lbl": Label 'GST Use Cases'; - "{34A74D02-F64A-4329-B0B3-B20E07D5A79A}Lbl": Label 'GST Use Cases'; - "{636979B2-6B57-49C6-B0B8-B306261B3304}Lbl": Label 'GST Use Cases'; - "{B0D75B5B-C42D-4381-80D8-B312BD2360AE}Lbl": Label 'GST Use Cases'; - "{207FA1CE-712A-475E-AC05-B36812DDE2C8}Lbl": Label 'GST Use Cases'; - "{D0059E3B-4B5F-44E3-B2AD-B3DB74C1CEC4}Lbl": Label 'GST Use Cases'; - "{C57B60DB-22D0-43D5-8460-B47D9F11AFC2}Lbl": Label 'GST Use Cases'; - "{BC7B8A8E-B343-439B-B240-B5D7D0253CC7}Lbl": Label 'GST Use Cases'; - "{66A65EDD-B06A-4817-84C4-B61B035AC7EE}Lbl": Label 'GST Use Cases'; - "{7C939AC1-1919-4919-A0D0-B62E3C72B382}Lbl": Label 'GST Use Cases'; - "{26B7CC70-0C7D-4FD2-B00A-B7845C289215}Lbl": Label 'GST Use Cases'; - "{5388F401-5CDE-4918-A9B0-B7B134235921}Lbl": Label 'GST Use Cases'; - "{BE4AF8DF-BB6D-432C-B598-B7B481D8D826}Lbl": Label 'GST Use Cases'; - "{B7D173ED-4B8F-4F13-95B8-B7C4890B3623}Lbl": Label 'GST Use Cases'; - "{67139569-E084-4255-A8A9-B8147D430C66}Lbl": Label 'GST Use Cases'; - "{5DAE448C-0BD5-4DC3-9BF9-B846921D2C71}Lbl": Label 'GST Use Cases'; - "{C3901ECF-9316-49A7-9897-B8C52A5A66A0}Lbl": Label 'GST Use Cases'; - "{F4BF9B77-886E-439D-A30B-B93AFF84A663}Lbl": Label 'GST Use Cases'; - "{5305AA1D-CF40-43CC-B9E3-B9471E33DCB3}Lbl": Label 'GST Use Cases'; - "{E73369B2-7A52-46D6-909F-BA116399AF39}Lbl": Label 'GST Use Cases'; - "{96DED9E5-9F22-4F8C-A19D-BA22CA433E0C}Lbl": Label 'GST Use Cases'; - "{CFC3D6F5-144A-4731-8658-BA626457624A}Lbl": Label 'GST Use Cases'; - "{C7563021-CD85-4519-ADFB-BA848CA3022F}Lbl": Label 'GST Use Cases'; - "{5DC7836A-BA61-4738-8506-BA91EC982903}Lbl": Label 'GST Use Cases'; - "{4CB74CDB-63C8-492B-8819-BA937750388D}Lbl": Label 'GST Use Cases'; - "{6F745F19-1955-4DAA-A3C4-BAC6D6326232}Lbl": Label 'GST Use Cases'; - "{853FC9A7-4D6E-4511-8207-BB18D1FFC0E8}Lbl": Label 'GST Use Cases'; - "{7E6E164B-CB38-4B5A-ADAA-BB51CAEEA5A7}Lbl": Label 'GST Use Cases'; - "{EC7AE7B0-93FA-42C2-9717-BBD2E8FC4D4C}Lbl": Label 'GST Use Cases'; - "{2E358EDE-097D-4846-A45B-BC2C1AE07FE9}Lbl": Label 'GST Use Cases'; - "{4D9AEA2D-B94B-40CC-B9D9-BC8D6FA19425}Lbl": Label 'GST Use Cases'; - "{A49C7425-A602-4445-873D-BCA89D3C2330}Lbl": Label 'GST Use Cases'; - "{6CFFB9A1-521E-4D60-AAFB-BDB044405A2A}Lbl": Label 'GST Use Cases'; - "{08F3F188-43F5-441F-AB95-BE332651AD3D}Lbl": Label 'GST Use Cases'; - "{AD7D62C2-213F-4288-9506-BE3D205DBB95}Lbl": Label 'GST Use Cases'; - "{F85B9211-93F9-4443-9784-BE52C220CE24}Lbl": Label 'GST Use Cases'; - "{20C477FD-F60A-4D5C-B919-BF3082993511}Lbl": Label 'GST Use Cases'; - "{4BFBD63E-F561-4C68-AB29-BF4139D24F49}Lbl": Label 'GST Use Cases'; - "{1E1FA21A-35D9-4D34-9EA7-BF9E0EDAA41E}Lbl": Label 'GST Use Cases'; - "{77160361-37A9-43BD-A71B-BFA6853D1CFB}Lbl": Label 'GST Use Cases'; - "{B8F32E0D-5D5E-4B84-AE3A-C0D4520470D3}Lbl": Label 'GST Use Cases'; - "{D659C67C-2384-417C-AE8F-C0E925C7535A}Lbl": Label 'GST Use Cases'; - "{B8ACD224-FC70-4037-86AD-C18AA5DA085F}Lbl": Label 'GST Use Cases'; - "{8B6ADE91-D482-4071-B431-C299292EF2BF}Lbl": Label 'GST Use Cases'; - "{C2730DF7-9769-4732-819E-C39124E5E3F8}Lbl": Label 'GST Use Cases'; - "{DAC31111-29F4-4C8F-BEEC-C3B31668DAF8}Lbl": Label 'GST Use Cases'; - "{6C9258C7-AF9C-43E4-A015-C4253265F37E}Lbl": Label 'GST Use Cases'; - "{DD3CF85B-64EA-4DD4-A626-C472E3B3B072}Lbl": Label 'GST Use Cases'; - "{94FF400C-34A8-4760-A4E5-C4B367739FA3}Lbl": Label 'GST Use Cases'; - "{5DA99FBE-AAAE-4DE9-8E7F-C4E15FC778B0}Lbl": Label 'GST Use Cases'; - "{3835C90E-1BDF-4C46-B50E-C5375ED24ED4}Lbl": Label 'GST Use Cases'; - "{5F7E0B6C-3D83-418C-9829-C5E5E52460C6}Lbl": Label 'GST Use Cases'; - "{A26AB5CA-52E6-4626-A426-C656627502E4}Lbl": Label 'GST Use Cases'; - "{F56F247A-8E36-496E-8672-C6FE2C81CE7B}Lbl": Label 'GST Use Cases'; - "{CB0F4A5D-EE91-402C-AA30-C8B724D7DCC5}Lbl": Label 'GST Use Cases'; - "{24E498DD-9DFB-4097-9F32-C8EBD49B8D22}Lbl": Label 'GST Use Cases'; - "{45189151-3ACF-421C-8984-C932DC8A3A2A}Lbl": Label 'GST Use Cases'; - "{4D6EF305-AE45-4735-9E9A-C9428D139D38}Lbl": Label 'GST Use Cases'; - "{21811F58-E56B-4A1B-B6DA-C9BD8EECC3AD}Lbl": Label 'GST Use Cases'; - "{2D1A7414-2844-4128-B026-CA683BCEA058}Lbl": Label 'GST Use Cases'; - "{56D375F9-6B43-4460-B0F6-CAB18F44DE92}Lbl": Label 'GST Use Cases'; - "{6EC9FAFD-8029-4B9C-8899-CB3C494682D1}Lbl": Label 'GST Use Cases'; - "{744B47C3-E4C1-4AC4-A37E-CBA3102A59A1}Lbl": Label 'GST Use Cases'; - "{A170BEEF-350A-4B43-B333-CBEA1D197E1B}Lbl": Label 'GST Use Cases'; - "{4529A161-49CC-44B6-95BA-CC141FA794B1}Lbl": Label 'GST Use Cases'; - "{E6D39823-CCCC-43DC-BD7E-CC6EEEBDB5EB}Lbl": Label 'GST Use Cases'; - "{2870E307-F77D-421B-B852-CE120813380F}Lbl": Label 'GST Use Cases'; - "{8314CDF7-853B-4DEA-A6DF-CE478FB1D3BD}Lbl": Label 'GST Use Cases'; - "{5CB02A72-982F-4AD6-A762-CE881DC52ACC}Lbl": Label 'GST Use Cases'; - "{77D351AF-2B06-49FB-B72A-CF9980E31A43}Lbl": Label 'GST Use Cases'; - "{D8632F51-FEDB-4AF9-8A25-CFE374BD12BA}Lbl": Label 'GST Use Cases'; - "{C8652C10-76BA-489E-985D-CFFC24D6276B}Lbl": Label 'GST Use Cases'; - "{BF9D05ED-BF8A-4BC8-9195-D008E4E381FB}Lbl": Label 'GST Use Cases'; - "{5265955A-2DE6-49CD-AFBE-D314E2D049FB}Lbl": Label 'GST Use Cases'; - "{0EE4D825-CC7B-458D-9165-D32635F56F41}Lbl": Label 'GST Use Cases'; - "{A1895816-94BF-4F67-819E-D3898920FAF5}Lbl": Label 'GST Use Cases'; - "{BECB23D8-56A1-4EB4-BF02-D3903BC14DF1}Lbl": Label 'GST Use Cases'; - "{94D31994-F430-4825-A72E-D41F51F63952}Lbl": Label 'GST Use Cases'; - "{AB0E6CA2-960E-4D6F-A7C6-D461F268627F}Lbl": Label 'GST Use Cases'; - "{4852FE50-F64A-454F-B43F-D46FE4BABECB}Lbl": Label 'GST Use Cases'; - "{67F7C66D-5296-4A5F-A85F-D4B91D1DBF97}Lbl": Label 'GST Use Cases'; - "{0B9F94CE-1C82-4FF7-9EF7-D51E156A0286}Lbl": Label 'GST Use Cases'; - "{2ED393A6-3B1D-49AC-9DBB-D5836930F61C}Lbl": Label 'GST Use Cases'; - "{BC238FA9-CAD7-43AB-8E7E-D6FFC7035EE9}Lbl": Label 'GST Use Cases'; - "{F69C2334-D38A-4CC1-B701-D7DC4C3B7CA9}Lbl": Label 'GST Use Cases'; - "{54CB1855-9AD0-4A47-9777-D811C7FA1FDE}Lbl": Label 'GST Use Cases'; - "{AE939960-28B0-426C-B5D7-D8535B9AE3C9}Lbl": Label 'GST Use Cases'; - "{70D71513-B8AE-4D89-8CD0-D87618FA224C}Lbl": Label 'GST Use Cases'; - "{2DD5FDF7-2C49-42FF-8CD9-D8929A5A3728}Lbl": Label 'GST Use Cases'; - "{C9CE4C92-F6CD-4B97-BD13-D8EE824D7D66}Lbl": Label 'GST Use Cases'; - "{06A818C9-817D-4983-B8D9-D96759380A68}Lbl": Label 'GST Use Cases'; - "{DF134523-53D1-4137-B091-D9C5E1DB8D64}Lbl": Label 'GST Use Cases'; - "{C0774889-632D-4799-AA04-DA25EB643832}Lbl": Label 'GST Use Cases'; - "{E474605D-6956-438B-95F2-DA5BE6A6D741}Lbl": Label 'GST Use Cases'; - "{FA492219-9C2F-4986-B773-DAA35CA74796}Lbl": Label 'GST Use Cases'; - "{FFBBBCDE-50F5-4D02-8B40-DAD63ED1491E}Lbl": Label 'GST Use Cases'; - "{7B91DD35-F410-4971-A2BC-DBCB67520105}Lbl": Label 'GST Use Cases'; - "{5D419270-CBAE-42FB-A135-DC1693C77985}Lbl": Label 'GST Use Cases'; - "{7EE4EB63-5718-4880-80D7-DC82790F804D}Lbl": Label 'GST Use Cases'; - "{ADF43278-38CD-463B-8E08-DD604EC3C50C}Lbl": Label 'GST Use Cases'; - "{F6932043-6A5A-4F55-B06A-DD7F76AFB52B}Lbl": Label 'GST Use Cases'; - "{68AE0437-E71F-4AC5-8729-DDD40410D69D}Lbl": Label 'GST Use Cases'; - "{3F866E90-A452-405A-A993-DE4D815A7A2D}Lbl": Label 'GST Use Cases'; - "{FCB154BF-A72A-43A0-87AB-DF80DEAB4F1C}Lbl": Label 'GST Use Cases'; - "{47F223C1-06BE-4BD6-A98A-E001F8CE436E}Lbl": Label 'GST Use Cases'; - "{700AF8A2-1315-41BC-9FE9-E00FB826DC80}Lbl": Label 'GST Use Cases'; - "{287ED69D-1488-4A48-BA50-E063EC8EF915}Lbl": Label 'GST Use Cases'; - "{2A85CD62-7897-47FF-808B-E0A11131071F}Lbl": Label 'GST Use Cases'; - "{F1AFD035-5F0A-4DD2-B15E-E0EEF0BA43D7}Lbl": Label 'GST Use Cases'; - "{A7619228-F860-4E03-B21E-E0F01EFF6C52}Lbl": Label 'GST Use Cases'; - "{7B9EA3AF-2235-44F9-AE67-E0F9F74740E6}Lbl": Label 'GST Use Cases'; - "{38BC1AAB-3066-483F-811E-E147662D48C6}Lbl": Label 'GST Use Cases'; - "{AE574FA3-E537-4FC1-9F8D-E16EF5D7A40E}Lbl": Label 'GST Use Cases'; - "{CF4626CB-7022-41C6-95C6-E1FE28C8C370}Lbl": Label 'GST Use Cases'; - "{869FF9BE-3EA8-424B-973E-E27D6E370807}Lbl": Label 'GST Use Cases'; - "{43D94D4C-82EA-4A44-B80F-E297292CAA10}Lbl": Label 'GST Use Cases'; - "{D2E1CF7B-EA38-4EB3-82C3-E2E6949625D3}Lbl": Label 'GST Use Cases'; - "{77DC6AF2-5D31-4450-8F78-E2F7383B9EAB}Lbl": Label 'GST Use Cases'; - "{F8591F7C-5D5C-4976-B5F1-E3248733EBC5}Lbl": Label 'GST Use Cases'; - "{FF5D43D6-C93E-42D5-9CD3-E3FCA99E77DD}Lbl": Label 'GST Use Cases'; - "{DBFAD9E1-15D2-44E9-9305-E453D15DE128}Lbl": Label 'GST Use Cases'; - "{C340D02B-697D-414F-9082-E4CC9B4B2A3B}Lbl": Label 'GST Use Cases'; - "{02670909-9C35-49DA-B64F-E5EA4602693E}Lbl": Label 'GST Use Cases'; - "{A4A0C6C8-FE70-4DA2-9E3D-E5F0CCA93A22}Lbl": Label 'GST Use Cases'; - "{EE5198CD-9648-49CF-97C5-E71A9843EE27}Lbl": Label 'GST Use Cases'; - "{4E53918C-16B7-4834-86DE-E7422FC21E83}Lbl": Label 'GST Use Cases'; - "{0CCFD5FB-95C8-4189-ACFF-E7D9AE1DB368}Lbl": Label 'GST Use Cases'; - "{26405773-06F9-4F36-B6B1-E80AA9987628}Lbl": Label 'GST Use Cases'; - "{FED218A8-8C3F-43D9-BBD5-E8BCBB30D8BD}Lbl": Label 'GST Use Cases'; - "{E277B92E-D047-425F-B44D-E8EA58FAEE5C}Lbl": Label 'GST Use Cases'; - "{3167AE22-C71D-4734-8391-E918A2A23775}Lbl": Label 'GST Use Cases'; - "{75C41C76-22FC-479E-836E-E9C838FF3320}Lbl": Label 'GST Use Cases'; - "{6A75BFF5-C880-498F-AC1D-E9CF9BE7F888}Lbl": Label 'GST Use Cases'; - "{E1067E83-D7A7-4D9C-B8E0-EA0285CCA2CD}Lbl": Label 'GST Use Cases'; - "{4490AC87-E83B-44C4-A6A8-EAF2650E8773}Lbl": Label 'GST Use Cases'; - "{739B3C04-8659-438B-B9D5-EB62435B9025}Lbl": Label 'GST Use Cases'; - "{10E9D621-B3A8-49E2-BAA1-EB7D535C0712}Lbl": Label 'GST Use Cases'; - "{325D0E84-286F-437E-BFE1-EBB6F575AD39}Lbl": Label 'GST Use Cases'; - "{0751F148-5E1D-4EFB-9008-ECB2F2F6704D}Lbl": Label 'GST Use Cases'; - "{C6AAB568-68A3-4D8A-A708-ECD7EFD9A3EE}Lbl": Label 'GST Use Cases'; - "{7D7F45D3-E214-47D5-8CD5-ED31E8F4092F}Lbl": Label 'GST Use Cases'; - "{81A83FF9-D7EB-4B5F-A2AE-ED346B7A9079}Lbl": Label 'GST Use Cases'; - "{BAEC40C3-3C56-4B4F-95C9-ED6E1E39A019}Lbl": Label 'GST Use Cases'; - "{BD845B37-5E0F-4EF3-94CB-ED972B71A3C1}Lbl": Label 'GST Use Cases'; - "{0282EB09-4676-4A39-B2EC-EDC9568BA92B}Lbl": Label 'GST Use Cases'; - "{C2D132AB-4A23-47FC-9A25-EEB973689456}Lbl": Label 'GST Use Cases'; - "{8D8A9485-D248-4B9B-AB8C-EEDB746B190C}Lbl": Label 'GST Use Cases'; - "{B33DCDC5-21C3-4019-96E3-EF513EAED95E}Lbl": Label 'GST Use Cases'; - "{512B21D6-5395-499F-A2BE-EF6D24385C89}Lbl": Label 'GST Use Cases'; - "{67527223-25F5-48B0-A0C2-F0064BD92F18}Lbl": Label 'GST Use Cases'; - "{C60D4ED2-E3FC-41BC-BB8D-F1B521984712}Lbl": Label 'GST Use Cases'; - "{72511E89-CA1E-4749-8648-F1EFD6F61D44}Lbl": Label 'GST Use Cases'; - "{F4A8CF06-D6CE-4263-ACF3-F1FBB744FBFB}Lbl": Label 'GST Use Cases'; - "{12EFA340-BD17-487B-A7CC-F23993B289CF}Lbl": Label 'GST Use Cases'; - "{99E193A6-6A7C-4035-BCC1-F2BC49DC4F86}Lbl": Label 'GST Use Cases'; - "{A43577AE-11F7-4DF9-9EEF-F317ED83ADD4}Lbl": Label 'GST Use Cases'; - "{2167C0D3-971D-481A-86BA-F45FB92025FB}Lbl": Label 'GST Use Cases'; - "{A8A42D6F-2A47-4175-8ED8-F482D64554C6}Lbl": Label 'GST Use Cases'; - "{C2FE3376-EDB2-4C3E-A82D-F49D27D292DE}Lbl": Label 'GST Use Cases'; - "{A0CED092-3AAD-4121-A5A2-F4DEAC316621}Lbl": Label 'GST Use Cases'; - "{4F992CE7-BB8C-4129-923A-F53A771DF231}Lbl": Label 'GST Use Cases'; - "{FC1AEFDA-0537-4D94-A576-F542B6710B71}Lbl": Label 'GST Use Cases'; - "{9A744701-39FF-4CFF-AA72-F5856E82FBF4}Lbl": Label 'GST Use Cases'; - "{AA3E77B0-A08A-4756-90E5-F6561C7D4B9B}Lbl": Label 'GST Use Cases'; - "{36A5E0EC-E197-4102-8FF0-F6DC9B4A47C1}Lbl": Label 'GST Use Cases'; - "{1A9545C6-CCD5-4B44-9450-F70C9B3F08B7}Lbl": Label 'GST Use Cases'; - "{ABA6F00E-B423-49DF-8DF5-F74950011703}Lbl": Label 'GST Use Cases'; - "{BB9814B7-D039-49BC-BF5D-F80127620CAE}Lbl": Label 'GST Use Cases'; - "{62216594-6660-492B-ACA0-F8BD3893DE49}Lbl": Label 'GST Use Cases'; - "{EC2138A1-46D7-430B-B335-F8D6C345BB16}Lbl": Label 'GST Use Cases'; - "{A2153C07-E791-4821-9542-F9C6C3737BAF}Lbl": Label 'GST Use Cases'; - "{F857355F-9134-460C-89C8-FB0845206988}Lbl": Label 'GST Use Cases'; - "{AECAE480-71C8-41C4-B247-FB33DFC9C039}Lbl": Label 'GST Use Cases'; - "{46CB3503-286F-43C3-9B04-FBBD5F2CBAF0}Lbl": Label 'GST Use Cases'; - "{0B9DBB2B-8F9C-496E-B373-FC5A4BD43F96}Lbl": Label 'GST Use Cases'; - "{78A245B3-3BAB-4347-B09A-FDE73A600BB2}Lbl": Label 'GST Use Cases'; - "{CF221DCD-487C-4B3C-BBC4-FE16B6667E76}Lbl": Label 'GST Use Cases'; - "{1B728E5D-4A32-4E32-A2AA-FE3673AFC2CD}Lbl": Label 'GST Use Cases'; - "{F3E7CEF3-5437-42EC-9DED-FE81F994FFCB}Lbl": Label 'GST Use Cases'; - "{041E1938-9B6A-4173-937C-FF0FDC0E7309}Lbl": Label 'GST Use Cases'; - "{D68B3FE8-78C6-492D-AC1A-FFA29F17A50D}Lbl": Label 'GST Use Cases'; - "{4F6B53B9-9961-4F29-8151-33C5D413CF58}Lbl": Label 'GST Use Cases'; - "{C7BA99E0-7A62-41C9-93C4-36BDAD52C328}Lbl": Label 'GST Use Cases'; - "{4934B903-2938-4ED9-994C-36F89B08E352}Lbl": Label 'GST Use Cases'; - "{7E781F55-9A83-4206-B18A-46C2CA5E8573}Lbl": Label 'GST Use Cases'; - "{9154D0D0-5D85-40BE-889D-764E65F8691C}Lbl": Label 'GST Use Cases'; - "{FB4C68ED-BD93-4229-B1BB-91163250C066}Lbl": Label 'GST Use Cases'; - "{8F83C983-4368-45FF-9319-952826F72162}Lbl": Label 'GST Use Cases'; - "{1C3087C6-66E1-4D66-8133-DF7F13FDB0D5}Lbl": Label 'GST Use Cases'; - "{A4C57AB8-DBFF-473C-B2A3-739975737950}Lbl": Label 'GST Use Cases'; - "{D187D562-E011-4879-839D-A3CB824D11EC}Lbl": Label 'GST Use Cases'; - "{1DE560C5-73C9-4476-9447-80FC42CD492C}Lbl": Label 'GST Use Cases'; - "{13217522-8F07-4C15-9787-8B1840E8CC40}Lbl": Label 'GST Use Cases'; - "{C6AFDFC6-874B-4B14-BCC9-8FC5B4992157}Lbl": Label 'GST Use Cases'; - "{8153E2CA-FD9A-4A9F-A0E4-A657636F83DB}Lbl": Label 'GST Use Cases'; - "{8139E94E-D43E-4C24-B6B3-C59F55737321}Lbl": Label 'GST Use Cases'; - "{5043629A-E2D7-4E0D-AD7F-C9D505507D01}Lbl": Label 'GST Use Cases'; - "{C447C36E-72FA-4FEA-A49C-F976FE57275D}Lbl": Label 'GST Use Cases'; - "{FA8E63F5-19A9-4940-AD59-DB7067BE069A}Lbl": Label 'GST Use Cases'; - "{A18E31F4-0E06-42B6-B8E0-282B42CA2A28}Lbl": Label 'GST Use Cases'; - "{A744EF89-44A8-4CE0-81F8-3D8094623CD1}Lbl": Label 'GST Use Cases'; - "{58789CA5-0F23-4972-B1FE-3EE6E8BC19A1}Lbl": Label 'GST Use Cases'; - "{1DD8BB1A-1AA9-4B82-9F6A-80F26AA8675D}Lbl": Label 'GST Use Cases'; - "{2c3d6b6c-5f5b-4728-b00f-28df4fa04939}Lbl": Label 'GST Use Cases'; - "{e449e955-a401-4c0d-9db6-3920da89d68e}Lbl": Label 'GST Use Cases'; - begin - Handled := true; - - case CaseID of - '{F37442C1-AB50-445F-A7C3-8DCA84931B69}': - exit("{F37442C1-AB50-445F-A7C3-8DCA84931B69}Lbl"); - '{28E2DDFD-2F63-47CB-986C-8E6F5D2356F3}': - exit("{28E2DDFD-2F63-47CB-986C-8E6F5D2356F3}Lbl"); - '{D460C15F-47A6-41A4-9B9F-8EA3738C2E40}': - exit("{D460C15F-47A6-41A4-9B9F-8EA3738C2E40}Lbl"); - '{7B096619-70FB-4622-9E57-8EAE58DC1AB1}': - exit("{7B096619-70FB-4622-9E57-8EAE58DC1AB1}Lbl"); - '{1FF813B4-1776-4717-8C56-8F0E684ACE73}': - exit("{1FF813B4-1776-4717-8C56-8F0E684ACE73}Lbl"); - '{4DD701D1-41A9-432E-9E95-8F8D08AB2C67}': - exit("{4DD701D1-41A9-432E-9E95-8F8D08AB2C67}Lbl"); - '{EC4815D3-A78F-4C4F-8C64-8FE9AF09050C}': - exit("{EC4815D3-A78F-4C4F-8C64-8FE9AF09050C}Lbl"); - '{7859624E-8AFD-4A64-B361-900053C11266}': - exit("{7859624E-8AFD-4A64-B361-900053C11266}Lbl"); - '{DF783FC9-39C3-492B-B94F-90BCF26C04E5}': - exit("{DF783FC9-39C3-492B-B94F-90BCF26C04E5}Lbl"); - '{17ED9604-C26D-496C-B2F4-9124166CF719}': - exit("{17ED9604-C26D-496C-B2F4-9124166CF719}Lbl"); - end; - case CaseID of - '{BCB4C9B2-E212-4971-BE8C-914BC1DAAB1B}': - exit("{BCB4C9B2-E212-4971-BE8C-914BC1DAAB1B}Lbl"); - '{DBE9B77E-9171-4F5C-A7CA-9156126D34FC}': - exit("{DBE9B77E-9171-4F5C-A7CA-9156126D34FC}Lbl"); - '{26260269-B2BE-4D01-AF43-91BCE15FFF05}': - exit("{26260269-B2BE-4D01-AF43-91BCE15FFF05}Lbl"); - '{4C68E757-379A-4FD3-A58A-91F57954A9FC}': - exit("{4C68E757-379A-4FD3-A58A-91F57954A9FC}Lbl"); - '{293882EE-DEB8-47A9-BAF1-9221422B247A}': - exit("{293882EE-DEB8-47A9-BAF1-9221422B247A}Lbl"); - '{AB2BDB68-471C-4EC0-B43A-92920239FBF9}': - exit("{AB2BDB68-471C-4EC0-B43A-92920239FBF9}Lbl"); - '{674E08E2-EB2A-4C3D-924B-9370C6ED3DBF}': - exit("{674E08E2-EB2A-4C3D-924B-9370C6ED3DBF}Lbl"); - '{58CCF42B-75BE-422F-90A5-93E52B2CC817}': - exit("{58CCF42B-75BE-422F-90A5-93E52B2CC817}Lbl"); - '{F9A5047E-5B27-41E4-AF68-9497E3B52FAE}': - exit("{F9A5047E-5B27-41E4-AF68-9497E3B52FAE}Lbl"); - '{0C3618F6-08BD-417F-8744-94A415595940}': - exit("{0C3618F6-08BD-417F-8744-94A415595940}Lbl"); - end; - case CaseID of - '{812E9032-CA16-4FAB-A80B-94CD7BC5EB8D}': - exit("{812E9032-CA16-4FAB-A80B-94CD7BC5EB8D}Lbl"); - '{B2047EB4-AD5D-4E8B-BFFC-94FB1C4EED34}': - exit("{B2047EB4-AD5D-4E8B-BFFC-94FB1C4EED34}Lbl"); - '{8011782D-C645-47CC-AE43-94FEFE437125}': - exit("{8011782D-C645-47CC-AE43-94FEFE437125}Lbl"); - '{BBBBD283-C64C-4AFE-A14E-950791E18CF8}': - exit("{BBBBD283-C64C-4AFE-A14E-950791E18CF8}Lbl"); - '{7DBFAC05-5315-4A5F-B5BE-962A065F7D93}': - exit("{7DBFAC05-5315-4A5F-B5BE-962A065F7D93}Lbl"); - '{36207D8F-34B2-4AF3-83EC-96642DA44DFB}': - exit("{36207D8F-34B2-4AF3-83EC-96642DA44DFB}Lbl"); - '{F5EA246D-523F-4FFA-B316-967933F01C16}': - exit("{F5EA246D-523F-4FFA-B316-967933F01C16}Lbl"); - '{FDC07938-011D-4291-9888-9685DCBF09E6}': - exit("{FDC07938-011D-4291-9888-9685DCBF09E6}Lbl"); - '{99AB0C39-33A7-47F5-8659-968DBAEEA2F2}': - exit("{99AB0C39-33A7-47F5-8659-968DBAEEA2F2}Lbl"); - '{2961B717-F882-4174-A7D0-98737C7F49A2}': - exit("{2961B717-F882-4174-A7D0-98737C7F49A2}Lbl"); - end; - case CaseID of - '{580975ED-52DE-4EF9-BD94-99425C52B570}': - exit("{580975ED-52DE-4EF9-BD94-99425C52B570}Lbl"); - '{FDB8B33F-E905-48C4-9191-994768C75A69}': - exit("{FDB8B33F-E905-48C4-9191-994768C75A69}Lbl"); - '{135115A7-1D82-4528-959B-9A35775455CD}': - exit("{135115A7-1D82-4528-959B-9A35775455CD}Lbl"); - '{EB39C2FC-37D8-4778-8B44-9A45DDA46B2E}': - exit("{EB39C2FC-37D8-4778-8B44-9A45DDA46B2E}Lbl"); - '{8A057230-A2A9-4E59-8101-9A947A8D8B91}': - exit("{8A057230-A2A9-4E59-8101-9A947A8D8B91}Lbl"); - '{A8C8864E-5E75-431A-90D6-9AAB47623BA6}': - exit("{A8C8864E-5E75-431A-90D6-9AAB47623BA6}Lbl"); - '{1FFB6082-63D3-4AF8-A83B-9AE92D2010E2}': - exit("{1FFB6082-63D3-4AF8-A83B-9AE92D2010E2}Lbl"); - '{40E9E837-E785-42A1-B8ED-9B27D43D1FFC}': - exit("{40E9E837-E785-42A1-B8ED-9B27D43D1FFC}Lbl"); - '{2026E996-050E-4647-8D77-9B2E8FF1B068}': - exit("{2026E996-050E-4647-8D77-9B2E8FF1B068}Lbl"); - '{FA5B2691-7B6B-43B4-92F1-9B6D10A216E4}': - exit("{FA5B2691-7B6B-43B4-92F1-9B6D10A216E4}Lbl"); - end; - case CaseID of - '{D52A2660-896C-4F50-B98F-9BB270E16A75}': - exit("{D52A2660-896C-4F50-B98F-9BB270E16A75}Lbl"); - '{783D79C8-B103-439F-9F75-9CB53B347C73}': - exit("{783D79C8-B103-439F-9F75-9CB53B347C73}Lbl"); - '{34D44752-1655-43CC-8DD8-9CBA775C5554}': - exit("{34D44752-1655-43CC-8DD8-9CBA775C5554}Lbl"); - '{0A055D50-A23B-48A5-BADA-9D00D97EED3B}': - exit("{0A055D50-A23B-48A5-BADA-9D00D97EED3B}Lbl"); - '{938B00CD-0C55-4E7E-9E88-9D26724E10E2}': - exit("{938B00CD-0C55-4E7E-9E88-9D26724E10E2}Lbl"); - '{24BF4F23-3693-4E31-ADDA-9D2F91057CA2}': - exit("{24BF4F23-3693-4E31-ADDA-9D2F91057CA2}Lbl"); - '{1A8DCBD9-6A50-4C2F-9364-9DB967B50A24}': - exit("{1A8DCBD9-6A50-4C2F-9364-9DB967B50A24}Lbl"); - '{2D2466D5-E651-49FE-A00C-9DE16690874C}': - exit("{2D2466D5-E651-49FE-A00C-9DE16690874C}Lbl"); - '{B47FAAA7-7D45-45F8-930F-9E124266E402}': - exit("{B47FAAA7-7D45-45F8-930F-9E124266E402}Lbl"); - '{F3CD2FC6-4CEE-47EF-B0F5-9EB3E46CE74B}': - exit("{F3CD2FC6-4CEE-47EF-B0F5-9EB3E46CE74B}Lbl"); - end; - case CaseID of - '{0C04EF8F-6F19-4C41-928B-9F32605898A8}': - exit("{0C04EF8F-6F19-4C41-928B-9F32605898A8}Lbl"); - '{7422E62E-F5A5-46C6-8A2D-9F9F4C082C91}': - exit("{7422E62E-F5A5-46C6-8A2D-9F9F4C082C91}Lbl"); - '{851F544F-7349-4E29-AF19-A0B3B72AB0AC}': - exit("{851F544F-7349-4E29-AF19-A0B3B72AB0AC}Lbl"); - '{23C292E2-9704-4112-9AB6-A2FCBDDFFA6A}': - exit("{23C292E2-9704-4112-9AB6-A2FCBDDFFA6A}Lbl"); - '{997C3EE3-8453-43F1-A179-A32B19EFD8B8}': - exit("{997C3EE3-8453-43F1-A179-A32B19EFD8B8}Lbl"); - '{B8EE2ED8-F29F-465D-B6DC-A3A2A4BB1B3D}': - exit("{B8EE2ED8-F29F-465D-B6DC-A3A2A4BB1B3D}Lbl"); - '{A52E9652-EFC8-4950-B8C1-A41D887AF962}': - exit("{A52E9652-EFC8-4950-B8C1-A41D887AF962}Lbl"); - '{A6239FAB-E9D2-4FFC-90CC-A5D7858C4CD8}': - exit("{A6239FAB-E9D2-4FFC-90CC-A5D7858C4CD8}Lbl"); - '{77D07467-2180-4712-814A-A6292F8D5E59}': - exit("{77D07467-2180-4712-814A-A6292F8D5E59}Lbl"); - '{B03B25F1-806F-4CE3-86A2-A65BBE1F8360}': - exit("{B03B25F1-806F-4CE3-86A2-A65BBE1F8360}Lbl"); - end; - case CaseID of - '{DA8551C9-79B9-423C-801E-A8C868788300}': - exit("{DA8551C9-79B9-423C-801E-A8C868788300}Lbl"); - '{9568C93C-FC46-477D-B554-A8EACAEAF21A}': - exit("{9568C93C-FC46-477D-B554-A8EACAEAF21A}Lbl"); - '{079237F7-FA64-40B5-8BE7-A92428550117}': - exit("{079237F7-FA64-40B5-8BE7-A92428550117}Lbl"); - '{4911101A-A3D1-4596-836C-A9EB2F2CB24C}': - exit("{4911101A-A3D1-4596-836C-A9EB2F2CB24C}Lbl"); - '{387B69F6-70EC-4BCC-A4C0-AA1CFAB0D356}': - exit("{387B69F6-70EC-4BCC-A4C0-AA1CFAB0D356}Lbl"); - '{9E59D4DD-C975-4F42-B5A2-AA98AC93FB7F}': - exit("{9E59D4DD-C975-4F42-B5A2-AA98AC93FB7F}Lbl"); - '{DBD883FC-4DD3-4C9C-B9AC-AAAF07FF4F3E}': - exit("{DBD883FC-4DD3-4C9C-B9AC-AAAF07FF4F3E}Lbl"); - '{A4044120-D393-4525-88F4-AB1A71F2E49C}': - exit("{A4044120-D393-4525-88F4-AB1A71F2E49C}Lbl"); - '{DA972CCF-D97D-4379-9704-AB397FA9E08F}': - exit("{DA972CCF-D97D-4379-9704-AB397FA9E08F}Lbl"); - '{E52D7679-7E9C-4623-9CA7-AB704EF2465C}': - exit("{E52D7679-7E9C-4623-9CA7-AB704EF2465C}Lbl"); - end; - case CaseID of - '{BE0C902C-E9FC-4548-B8C7-AB70E21388BC}': - exit("{BE0C902C-E9FC-4548-B8C7-AB70E21388BC}Lbl"); - '{CAC3F49D-59DD-4F1A-B0F3-AC28F7552973}': - exit("{CAC3F49D-59DD-4F1A-B0F3-AC28F7552973}Lbl"); - '{62AD7817-C30F-4EC6-B68C-AC4828B07DF8}': - exit("{62AD7817-C30F-4EC6-B68C-AC4828B07DF8}Lbl"); - '{429F37B1-0D9F-4B5A-BC3F-AC53F994BC32}': - exit("{429F37B1-0D9F-4B5A-BC3F-AC53F994BC32}Lbl"); - '{B5C09EE0-1CF9-4818-AADB-AC5E95626AE9}': - exit("{B5C09EE0-1CF9-4818-AADB-AC5E95626AE9}Lbl"); - '{C215F153-718E-4936-BA99-ACB4E2F2BBC4}': - exit("{C215F153-718E-4936-BA99-ACB4E2F2BBC4}Lbl"); - '{EF5146EB-771F-4DCE-80E7-ACC0B606829F}': - exit("{EF5146EB-771F-4DCE-80E7-ACC0B606829F}Lbl"); - '{7647BA98-B553-41F7-8E2B-AE17EB85A560}': - exit("{7647BA98-B553-41F7-8E2B-AE17EB85A560}Lbl"); - '{9B55505A-A2FE-4D77-8E6D-AEF8E1080D2C}': - exit("{9B55505A-A2FE-4D77-8E6D-AEF8E1080D2C}Lbl"); - '{C6B64855-0CA9-4749-B21E-AF9FA0AB33D4}': - exit("{C6B64855-0CA9-4749-B21E-AF9FA0AB33D4}Lbl"); - end; - case CaseID of - '{8E7F4564-7BCD-46AA-B833-B040CD01B88D}': - exit("{8E7F4564-7BCD-46AA-B833-B040CD01B88D}Lbl"); - '{8B75A47C-8DD2-45C8-99D9-B04E18C531D5}': - exit("{8B75A47C-8DD2-45C8-99D9-B04E18C531D5}Lbl"); - '{1005E09C-7F65-4E7A-AC0C-B071C455A412}': - exit("{1005E09C-7F65-4E7A-AC0C-B071C455A412}Lbl"); - '{AF13E308-74EA-4A38-86B9-B0EA0DCE1972}': - exit("{AF13E308-74EA-4A38-86B9-B0EA0DCE1972}Lbl"); - '{D66CD2EC-C8A4-48B9-A634-B14161E0E03B}': - exit("{D66CD2EC-C8A4-48B9-A634-B14161E0E03B}Lbl"); - '{200C22B1-5DC0-4A80-B377-B14F9613D061}': - exit("{200C22B1-5DC0-4A80-B377-B14F9613D061}Lbl"); - '{C97F63C3-79EB-44D6-8AEA-B1710A9BBCE9}': - exit("{C97F63C3-79EB-44D6-8AEA-B1710A9BBCE9}Lbl"); - '{2E85F2F7-2ED8-42CC-95F5-B20D32DB41AC}': - exit("{2E85F2F7-2ED8-42CC-95F5-B20D32DB41AC}Lbl"); - '{34A74D02-F64A-4329-B0B3-B20E07D5A79A}': - exit("{34A74D02-F64A-4329-B0B3-B20E07D5A79A}Lbl"); - '{636979B2-6B57-49C6-B0B8-B306261B3304}': - exit("{636979B2-6B57-49C6-B0B8-B306261B3304}Lbl"); - end; - case CaseID of - '{B0D75B5B-C42D-4381-80D8-B312BD2360AE}': - exit("{B0D75B5B-C42D-4381-80D8-B312BD2360AE}Lbl"); - '{207FA1CE-712A-475E-AC05-B36812DDE2C8}': - exit("{207FA1CE-712A-475E-AC05-B36812DDE2C8}Lbl"); - '{D0059E3B-4B5F-44E3-B2AD-B3DB74C1CEC4}': - exit("{D0059E3B-4B5F-44E3-B2AD-B3DB74C1CEC4}Lbl"); - '{C57B60DB-22D0-43D5-8460-B47D9F11AFC2}': - exit("{C57B60DB-22D0-43D5-8460-B47D9F11AFC2}Lbl"); - '{BC7B8A8E-B343-439B-B240-B5D7D0253CC7}': - exit("{BC7B8A8E-B343-439B-B240-B5D7D0253CC7}Lbl"); - '{66A65EDD-B06A-4817-84C4-B61B035AC7EE}': - exit("{66A65EDD-B06A-4817-84C4-B61B035AC7EE}Lbl"); - '{7C939AC1-1919-4919-A0D0-B62E3C72B382}': - exit("{7C939AC1-1919-4919-A0D0-B62E3C72B382}Lbl"); - '{26B7CC70-0C7D-4FD2-B00A-B7845C289215}': - exit("{26B7CC70-0C7D-4FD2-B00A-B7845C289215}Lbl"); - '{5388F401-5CDE-4918-A9B0-B7B134235921}': - exit("{5388F401-5CDE-4918-A9B0-B7B134235921}Lbl"); - '{BE4AF8DF-BB6D-432C-B598-B7B481D8D826}': - exit("{BE4AF8DF-BB6D-432C-B598-B7B481D8D826}Lbl"); - end; - case CaseID of - '{B7D173ED-4B8F-4F13-95B8-B7C4890B3623}': - exit("{B7D173ED-4B8F-4F13-95B8-B7C4890B3623}Lbl"); - '{67139569-E084-4255-A8A9-B8147D430C66}': - exit("{67139569-E084-4255-A8A9-B8147D430C66}Lbl"); - '{5DAE448C-0BD5-4DC3-9BF9-B846921D2C71}': - exit("{5DAE448C-0BD5-4DC3-9BF9-B846921D2C71}Lbl"); - '{C3901ECF-9316-49A7-9897-B8C52A5A66A0}': - exit("{C3901ECF-9316-49A7-9897-B8C52A5A66A0}Lbl"); - '{F4BF9B77-886E-439D-A30B-B93AFF84A663}': - exit("{F4BF9B77-886E-439D-A30B-B93AFF84A663}Lbl"); - '{5305AA1D-CF40-43CC-B9E3-B9471E33DCB3}': - exit("{5305AA1D-CF40-43CC-B9E3-B9471E33DCB3}Lbl"); - '{E73369B2-7A52-46D6-909F-BA116399AF39}': - exit("{E73369B2-7A52-46D6-909F-BA116399AF39}Lbl"); - '{96DED9E5-9F22-4F8C-A19D-BA22CA433E0C}': - exit("{96DED9E5-9F22-4F8C-A19D-BA22CA433E0C}Lbl"); - '{CFC3D6F5-144A-4731-8658-BA626457624A}': - exit("{CFC3D6F5-144A-4731-8658-BA626457624A}Lbl"); - '{C7563021-CD85-4519-ADFB-BA848CA3022F}': - exit("{C7563021-CD85-4519-ADFB-BA848CA3022F}Lbl"); - end; - case CaseID of - '{5DC7836A-BA61-4738-8506-BA91EC982903}': - exit("{5DC7836A-BA61-4738-8506-BA91EC982903}Lbl"); - '{4CB74CDB-63C8-492B-8819-BA937750388D}': - exit("{4CB74CDB-63C8-492B-8819-BA937750388D}Lbl"); - '{6F745F19-1955-4DAA-A3C4-BAC6D6326232}': - exit("{6F745F19-1955-4DAA-A3C4-BAC6D6326232}Lbl"); - '{853FC9A7-4D6E-4511-8207-BB18D1FFC0E8}': - exit("{853FC9A7-4D6E-4511-8207-BB18D1FFC0E8}Lbl"); - '{7E6E164B-CB38-4B5A-ADAA-BB51CAEEA5A7}': - exit("{7E6E164B-CB38-4B5A-ADAA-BB51CAEEA5A7}Lbl"); - '{EC7AE7B0-93FA-42C2-9717-BBD2E8FC4D4C}': - exit("{EC7AE7B0-93FA-42C2-9717-BBD2E8FC4D4C}Lbl"); - '{2E358EDE-097D-4846-A45B-BC2C1AE07FE9}': - exit("{2E358EDE-097D-4846-A45B-BC2C1AE07FE9}Lbl"); - '{4D9AEA2D-B94B-40CC-B9D9-BC8D6FA19425}': - exit("{4D9AEA2D-B94B-40CC-B9D9-BC8D6FA19425}Lbl"); - '{A49C7425-A602-4445-873D-BCA89D3C2330}': - exit("{A49C7425-A602-4445-873D-BCA89D3C2330}Lbl"); - '{6CFFB9A1-521E-4D60-AAFB-BDB044405A2A}': - exit("{6CFFB9A1-521E-4D60-AAFB-BDB044405A2A}Lbl"); - end; - case CaseID of - '{08F3F188-43F5-441F-AB95-BE332651AD3D}': - exit("{08F3F188-43F5-441F-AB95-BE332651AD3D}Lbl"); - '{AD7D62C2-213F-4288-9506-BE3D205DBB95}': - exit("{AD7D62C2-213F-4288-9506-BE3D205DBB95}Lbl"); - '{F85B9211-93F9-4443-9784-BE52C220CE24}': - exit("{F85B9211-93F9-4443-9784-BE52C220CE24}Lbl"); - '{20C477FD-F60A-4D5C-B919-BF3082993511}': - exit("{20C477FD-F60A-4D5C-B919-BF3082993511}Lbl"); - '{4BFBD63E-F561-4C68-AB29-BF4139D24F49}': - exit("{4BFBD63E-F561-4C68-AB29-BF4139D24F49}Lbl"); - '{1E1FA21A-35D9-4D34-9EA7-BF9E0EDAA41E}': - exit("{1E1FA21A-35D9-4D34-9EA7-BF9E0EDAA41E}Lbl"); - '{77160361-37A9-43BD-A71B-BFA6853D1CFB}': - exit("{77160361-37A9-43BD-A71B-BFA6853D1CFB}Lbl"); - '{B8F32E0D-5D5E-4B84-AE3A-C0D4520470D3}': - exit("{B8F32E0D-5D5E-4B84-AE3A-C0D4520470D3}Lbl"); - '{D659C67C-2384-417C-AE8F-C0E925C7535A}': - exit("{D659C67C-2384-417C-AE8F-C0E925C7535A}Lbl"); - '{B8ACD224-FC70-4037-86AD-C18AA5DA085F}': - exit("{B8ACD224-FC70-4037-86AD-C18AA5DA085F}Lbl"); - end; - case CaseID of - '{8B6ADE91-D482-4071-B431-C299292EF2BF}': - exit("{8B6ADE91-D482-4071-B431-C299292EF2BF}Lbl"); - '{C2730DF7-9769-4732-819E-C39124E5E3F8}': - exit("{C2730DF7-9769-4732-819E-C39124E5E3F8}Lbl"); - '{DAC31111-29F4-4C8F-BEEC-C3B31668DAF8}': - exit("{DAC31111-29F4-4C8F-BEEC-C3B31668DAF8}Lbl"); - '{6C9258C7-AF9C-43E4-A015-C4253265F37E}': - exit("{6C9258C7-AF9C-43E4-A015-C4253265F37E}Lbl"); - '{DD3CF85B-64EA-4DD4-A626-C472E3B3B072}': - exit("{DD3CF85B-64EA-4DD4-A626-C472E3B3B072}Lbl"); - '{94FF400C-34A8-4760-A4E5-C4B367739FA3}': - exit("{94FF400C-34A8-4760-A4E5-C4B367739FA3}Lbl"); - '{5DA99FBE-AAAE-4DE9-8E7F-C4E15FC778B0}': - exit("{5DA99FBE-AAAE-4DE9-8E7F-C4E15FC778B0}Lbl"); - '{3835C90E-1BDF-4C46-B50E-C5375ED24ED4}': - exit("{3835C90E-1BDF-4C46-B50E-C5375ED24ED4}Lbl"); - '{5F7E0B6C-3D83-418C-9829-C5E5E52460C6}': - exit("{5F7E0B6C-3D83-418C-9829-C5E5E52460C6}Lbl"); - '{A26AB5CA-52E6-4626-A426-C656627502E4}': - exit("{A26AB5CA-52E6-4626-A426-C656627502E4}Lbl"); - end; - case CaseID of - '{F56F247A-8E36-496E-8672-C6FE2C81CE7B}': - exit("{F56F247A-8E36-496E-8672-C6FE2C81CE7B}Lbl"); - '{CB0F4A5D-EE91-402C-AA30-C8B724D7DCC5}': - exit("{CB0F4A5D-EE91-402C-AA30-C8B724D7DCC5}Lbl"); - '{24E498DD-9DFB-4097-9F32-C8EBD49B8D22}': - exit("{24E498DD-9DFB-4097-9F32-C8EBD49B8D22}Lbl"); - '{45189151-3ACF-421C-8984-C932DC8A3A2A}': - exit("{45189151-3ACF-421C-8984-C932DC8A3A2A}Lbl"); - '{4D6EF305-AE45-4735-9E9A-C9428D139D38}': - exit("{4D6EF305-AE45-4735-9E9A-C9428D139D38}Lbl"); - '{21811F58-E56B-4A1B-B6DA-C9BD8EECC3AD}': - exit("{21811F58-E56B-4A1B-B6DA-C9BD8EECC3AD}Lbl"); - '{2D1A7414-2844-4128-B026-CA683BCEA058}': - exit("{2D1A7414-2844-4128-B026-CA683BCEA058}Lbl"); - '{56D375F9-6B43-4460-B0F6-CAB18F44DE92}': - exit("{56D375F9-6B43-4460-B0F6-CAB18F44DE92}Lbl"); - '{6EC9FAFD-8029-4B9C-8899-CB3C494682D1}': - exit("{6EC9FAFD-8029-4B9C-8899-CB3C494682D1}Lbl"); - '{744B47C3-E4C1-4AC4-A37E-CBA3102A59A1}': - exit("{744B47C3-E4C1-4AC4-A37E-CBA3102A59A1}Lbl"); - end; - case CaseID of - '{A170BEEF-350A-4B43-B333-CBEA1D197E1B}': - exit("{A170BEEF-350A-4B43-B333-CBEA1D197E1B}Lbl"); - '{4529A161-49CC-44B6-95BA-CC141FA794B1}': - exit("{4529A161-49CC-44B6-95BA-CC141FA794B1}Lbl"); - '{E6D39823-CCCC-43DC-BD7E-CC6EEEBDB5EB}': - exit("{E6D39823-CCCC-43DC-BD7E-CC6EEEBDB5EB}Lbl"); - '{2870E307-F77D-421B-B852-CE120813380F}': - exit("{2870E307-F77D-421B-B852-CE120813380F}Lbl"); - '{8314CDF7-853B-4DEA-A6DF-CE478FB1D3BD}': - exit("{8314CDF7-853B-4DEA-A6DF-CE478FB1D3BD}Lbl"); - '{5CB02A72-982F-4AD6-A762-CE881DC52ACC}': - exit("{5CB02A72-982F-4AD6-A762-CE881DC52ACC}Lbl"); - '{77D351AF-2B06-49FB-B72A-CF9980E31A43}': - exit("{77D351AF-2B06-49FB-B72A-CF9980E31A43}Lbl"); - '{D8632F51-FEDB-4AF9-8A25-CFE374BD12BA}': - exit("{D8632F51-FEDB-4AF9-8A25-CFE374BD12BA}Lbl"); - '{C8652C10-76BA-489E-985D-CFFC24D6276B}': - exit("{C8652C10-76BA-489E-985D-CFFC24D6276B}Lbl"); - '{BF9D05ED-BF8A-4BC8-9195-D008E4E381FB}': - exit("{BF9D05ED-BF8A-4BC8-9195-D008E4E381FB}Lbl"); - end; - case CaseID of - '{5265955A-2DE6-49CD-AFBE-D314E2D049FB}': - exit("{5265955A-2DE6-49CD-AFBE-D314E2D049FB}Lbl"); - '{0EE4D825-CC7B-458D-9165-D32635F56F41}': - exit("{0EE4D825-CC7B-458D-9165-D32635F56F41}Lbl"); - '{A1895816-94BF-4F67-819E-D3898920FAF5}': - exit("{A1895816-94BF-4F67-819E-D3898920FAF5}Lbl"); - '{BECB23D8-56A1-4EB4-BF02-D3903BC14DF1}': - exit("{BECB23D8-56A1-4EB4-BF02-D3903BC14DF1}Lbl"); - '{94D31994-F430-4825-A72E-D41F51F63952}': - exit("{94D31994-F430-4825-A72E-D41F51F63952}Lbl"); - '{AB0E6CA2-960E-4D6F-A7C6-D461F268627F}': - exit("{AB0E6CA2-960E-4D6F-A7C6-D461F268627F}Lbl"); - '{4852FE50-F64A-454F-B43F-D46FE4BABECB}': - exit("{4852FE50-F64A-454F-B43F-D46FE4BABECB}Lbl"); - '{67F7C66D-5296-4A5F-A85F-D4B91D1DBF97}': - exit("{67F7C66D-5296-4A5F-A85F-D4B91D1DBF97}Lbl"); - '{0B9F94CE-1C82-4FF7-9EF7-D51E156A0286}': - exit("{0B9F94CE-1C82-4FF7-9EF7-D51E156A0286}Lbl"); - '{2ED393A6-3B1D-49AC-9DBB-D5836930F61C}': - exit("{2ED393A6-3B1D-49AC-9DBB-D5836930F61C}Lbl"); - end; - case CaseID of - '{BC238FA9-CAD7-43AB-8E7E-D6FFC7035EE9}': - exit("{BC238FA9-CAD7-43AB-8E7E-D6FFC7035EE9}Lbl"); - '{F69C2334-D38A-4CC1-B701-D7DC4C3B7CA9}': - exit("{F69C2334-D38A-4CC1-B701-D7DC4C3B7CA9}Lbl"); - '{54CB1855-9AD0-4A47-9777-D811C7FA1FDE}': - exit("{54CB1855-9AD0-4A47-9777-D811C7FA1FDE}Lbl"); - '{AE939960-28B0-426C-B5D7-D8535B9AE3C9}': - exit("{AE939960-28B0-426C-B5D7-D8535B9AE3C9}Lbl"); - '{70D71513-B8AE-4D89-8CD0-D87618FA224C}': - exit("{70D71513-B8AE-4D89-8CD0-D87618FA224C}Lbl"); - '{2DD5FDF7-2C49-42FF-8CD9-D8929A5A3728}': - exit("{2DD5FDF7-2C49-42FF-8CD9-D8929A5A3728}Lbl"); - '{C9CE4C92-F6CD-4B97-BD13-D8EE824D7D66}': - exit("{C9CE4C92-F6CD-4B97-BD13-D8EE824D7D66}Lbl"); - '{06A818C9-817D-4983-B8D9-D96759380A68}': - exit("{06A818C9-817D-4983-B8D9-D96759380A68}Lbl"); - '{DF134523-53D1-4137-B091-D9C5E1DB8D64}': - exit("{DF134523-53D1-4137-B091-D9C5E1DB8D64}Lbl"); - '{C0774889-632D-4799-AA04-DA25EB643832}': - exit("{C0774889-632D-4799-AA04-DA25EB643832}Lbl"); - end; - case CaseID of - '{E474605D-6956-438B-95F2-DA5BE6A6D741}': - exit("{E474605D-6956-438B-95F2-DA5BE6A6D741}Lbl"); - '{FA492219-9C2F-4986-B773-DAA35CA74796}': - exit("{FA492219-9C2F-4986-B773-DAA35CA74796}Lbl"); - '{FFBBBCDE-50F5-4D02-8B40-DAD63ED1491E}': - exit("{FFBBBCDE-50F5-4D02-8B40-DAD63ED1491E}Lbl"); - '{7B91DD35-F410-4971-A2BC-DBCB67520105}': - exit("{7B91DD35-F410-4971-A2BC-DBCB67520105}Lbl"); - '{5D419270-CBAE-42FB-A135-DC1693C77985}': - exit("{5D419270-CBAE-42FB-A135-DC1693C77985}Lbl"); - '{7EE4EB63-5718-4880-80D7-DC82790F804D}': - exit("{7EE4EB63-5718-4880-80D7-DC82790F804D}Lbl"); - '{ADF43278-38CD-463B-8E08-DD604EC3C50C}': - exit("{ADF43278-38CD-463B-8E08-DD604EC3C50C}Lbl"); - '{F6932043-6A5A-4F55-B06A-DD7F76AFB52B}': - exit("{F6932043-6A5A-4F55-B06A-DD7F76AFB52B}Lbl"); - '{68AE0437-E71F-4AC5-8729-DDD40410D69D}': - exit("{68AE0437-E71F-4AC5-8729-DDD40410D69D}Lbl"); - '{3F866E90-A452-405A-A993-DE4D815A7A2D}': - exit("{3F866E90-A452-405A-A993-DE4D815A7A2D}Lbl"); - end; - case CaseID of - '{FCB154BF-A72A-43A0-87AB-DF80DEAB4F1C}': - exit("{FCB154BF-A72A-43A0-87AB-DF80DEAB4F1C}Lbl"); - '{47F223C1-06BE-4BD6-A98A-E001F8CE436E}': - exit("{47F223C1-06BE-4BD6-A98A-E001F8CE436E}Lbl"); - '{700AF8A2-1315-41BC-9FE9-E00FB826DC80}': - exit("{700AF8A2-1315-41BC-9FE9-E00FB826DC80}Lbl"); - '{287ED69D-1488-4A48-BA50-E063EC8EF915}': - exit("{287ED69D-1488-4A48-BA50-E063EC8EF915}Lbl"); - '{2A85CD62-7897-47FF-808B-E0A11131071F}': - exit("{2A85CD62-7897-47FF-808B-E0A11131071F}Lbl"); - '{F1AFD035-5F0A-4DD2-B15E-E0EEF0BA43D7}': - exit("{F1AFD035-5F0A-4DD2-B15E-E0EEF0BA43D7}Lbl"); - '{A7619228-F860-4E03-B21E-E0F01EFF6C52}': - exit("{A7619228-F860-4E03-B21E-E0F01EFF6C52}Lbl"); - '{7B9EA3AF-2235-44F9-AE67-E0F9F74740E6}': - exit("{7B9EA3AF-2235-44F9-AE67-E0F9F74740E6}Lbl"); - '{38BC1AAB-3066-483F-811E-E147662D48C6}': - exit("{38BC1AAB-3066-483F-811E-E147662D48C6}Lbl"); - '{AE574FA3-E537-4FC1-9F8D-E16EF5D7A40E}': - exit("{AE574FA3-E537-4FC1-9F8D-E16EF5D7A40E}Lbl"); - end; - case CaseID of - '{CF4626CB-7022-41C6-95C6-E1FE28C8C370}': - exit("{CF4626CB-7022-41C6-95C6-E1FE28C8C370}Lbl"); - '{869FF9BE-3EA8-424B-973E-E27D6E370807}': - exit("{869FF9BE-3EA8-424B-973E-E27D6E370807}Lbl"); - '{43D94D4C-82EA-4A44-B80F-E297292CAA10}': - exit("{43D94D4C-82EA-4A44-B80F-E297292CAA10}Lbl"); - '{D2E1CF7B-EA38-4EB3-82C3-E2E6949625D3}': - exit("{D2E1CF7B-EA38-4EB3-82C3-E2E6949625D3}Lbl"); - '{77DC6AF2-5D31-4450-8F78-E2F7383B9EAB}': - exit("{77DC6AF2-5D31-4450-8F78-E2F7383B9EAB}Lbl"); - '{F8591F7C-5D5C-4976-B5F1-E3248733EBC5}': - exit("{F8591F7C-5D5C-4976-B5F1-E3248733EBC5}Lbl"); - '{FF5D43D6-C93E-42D5-9CD3-E3FCA99E77DD}': - exit("{FF5D43D6-C93E-42D5-9CD3-E3FCA99E77DD}Lbl"); - '{DBFAD9E1-15D2-44E9-9305-E453D15DE128}': - exit("{DBFAD9E1-15D2-44E9-9305-E453D15DE128}Lbl"); - '{C340D02B-697D-414F-9082-E4CC9B4B2A3B}': - exit("{C340D02B-697D-414F-9082-E4CC9B4B2A3B}Lbl"); - '{02670909-9C35-49DA-B64F-E5EA4602693E}': - exit("{02670909-9C35-49DA-B64F-E5EA4602693E}Lbl"); - end; - case CaseID of - '{A4A0C6C8-FE70-4DA2-9E3D-E5F0CCA93A22}': - exit("{A4A0C6C8-FE70-4DA2-9E3D-E5F0CCA93A22}Lbl"); - '{EE5198CD-9648-49CF-97C5-E71A9843EE27}': - exit("{EE5198CD-9648-49CF-97C5-E71A9843EE27}Lbl"); - '{4E53918C-16B7-4834-86DE-E7422FC21E83}': - exit("{4E53918C-16B7-4834-86DE-E7422FC21E83}Lbl"); - '{0CCFD5FB-95C8-4189-ACFF-E7D9AE1DB368}': - exit("{0CCFD5FB-95C8-4189-ACFF-E7D9AE1DB368}Lbl"); - '{26405773-06F9-4F36-B6B1-E80AA9987628}': - exit("{26405773-06F9-4F36-B6B1-E80AA9987628}Lbl"); - '{FED218A8-8C3F-43D9-BBD5-E8BCBB30D8BD}': - exit("{FED218A8-8C3F-43D9-BBD5-E8BCBB30D8BD}Lbl"); - '{E277B92E-D047-425F-B44D-E8EA58FAEE5C}': - exit("{E277B92E-D047-425F-B44D-E8EA58FAEE5C}Lbl"); - '{3167AE22-C71D-4734-8391-E918A2A23775}': - exit("{3167AE22-C71D-4734-8391-E918A2A23775}Lbl"); - '{75C41C76-22FC-479E-836E-E9C838FF3320}': - exit("{75C41C76-22FC-479E-836E-E9C838FF3320}Lbl"); - '{6A75BFF5-C880-498F-AC1D-E9CF9BE7F888}': - exit("{6A75BFF5-C880-498F-AC1D-E9CF9BE7F888}Lbl"); - end; - case CaseID of - '{E1067E83-D7A7-4D9C-B8E0-EA0285CCA2CD}': - exit("{E1067E83-D7A7-4D9C-B8E0-EA0285CCA2CD}Lbl"); - '{4490AC87-E83B-44C4-A6A8-EAF2650E8773}': - exit("{4490AC87-E83B-44C4-A6A8-EAF2650E8773}Lbl"); - '{739B3C04-8659-438B-B9D5-EB62435B9025}': - exit("{739B3C04-8659-438B-B9D5-EB62435B9025}Lbl"); - '{10E9D621-B3A8-49E2-BAA1-EB7D535C0712}': - exit("{10E9D621-B3A8-49E2-BAA1-EB7D535C0712}Lbl"); - '{325D0E84-286F-437E-BFE1-EBB6F575AD39}': - exit("{325D0E84-286F-437E-BFE1-EBB6F575AD39}Lbl"); - '{0751F148-5E1D-4EFB-9008-ECB2F2F6704D}': - exit("{0751F148-5E1D-4EFB-9008-ECB2F2F6704D}Lbl"); - '{C6AAB568-68A3-4D8A-A708-ECD7EFD9A3EE}': - exit("{C6AAB568-68A3-4D8A-A708-ECD7EFD9A3EE}Lbl"); - '{7D7F45D3-E214-47D5-8CD5-ED31E8F4092F}': - exit("{7D7F45D3-E214-47D5-8CD5-ED31E8F4092F}Lbl"); - '{81A83FF9-D7EB-4B5F-A2AE-ED346B7A9079}': - exit("{81A83FF9-D7EB-4B5F-A2AE-ED346B7A9079}Lbl"); - '{BAEC40C3-3C56-4B4F-95C9-ED6E1E39A019}': - exit("{BAEC40C3-3C56-4B4F-95C9-ED6E1E39A019}Lbl"); - end; - case CaseID of - '{BD845B37-5E0F-4EF3-94CB-ED972B71A3C1}': - exit("{BD845B37-5E0F-4EF3-94CB-ED972B71A3C1}Lbl"); - '{0282EB09-4676-4A39-B2EC-EDC9568BA92B}': - exit("{0282EB09-4676-4A39-B2EC-EDC9568BA92B}Lbl"); - '{C2D132AB-4A23-47FC-9A25-EEB973689456}': - exit("{C2D132AB-4A23-47FC-9A25-EEB973689456}Lbl"); - '{8D8A9485-D248-4B9B-AB8C-EEDB746B190C}': - exit("{8D8A9485-D248-4B9B-AB8C-EEDB746B190C}Lbl"); - '{B33DCDC5-21C3-4019-96E3-EF513EAED95E}': - exit("{B33DCDC5-21C3-4019-96E3-EF513EAED95E}Lbl"); - '{512B21D6-5395-499F-A2BE-EF6D24385C89}': - exit("{512B21D6-5395-499F-A2BE-EF6D24385C89}Lbl"); - '{67527223-25F5-48B0-A0C2-F0064BD92F18}': - exit("{67527223-25F5-48B0-A0C2-F0064BD92F18}Lbl"); - '{C60D4ED2-E3FC-41BC-BB8D-F1B521984712}': - exit("{C60D4ED2-E3FC-41BC-BB8D-F1B521984712}Lbl"); - '{72511E89-CA1E-4749-8648-F1EFD6F61D44}': - exit("{72511E89-CA1E-4749-8648-F1EFD6F61D44}Lbl"); - '{F4A8CF06-D6CE-4263-ACF3-F1FBB744FBFB}': - exit("{F4A8CF06-D6CE-4263-ACF3-F1FBB744FBFB}Lbl"); - end; - case CaseID of - '{12EFA340-BD17-487B-A7CC-F23993B289CF}': - exit("{12EFA340-BD17-487B-A7CC-F23993B289CF}Lbl"); - '{99E193A6-6A7C-4035-BCC1-F2BC49DC4F86}': - exit("{99E193A6-6A7C-4035-BCC1-F2BC49DC4F86}Lbl"); - '{A43577AE-11F7-4DF9-9EEF-F317ED83ADD4}': - exit("{A43577AE-11F7-4DF9-9EEF-F317ED83ADD4}Lbl"); - '{2167C0D3-971D-481A-86BA-F45FB92025FB}': - exit("{2167C0D3-971D-481A-86BA-F45FB92025FB}Lbl"); - '{A8A42D6F-2A47-4175-8ED8-F482D64554C6}': - exit("{A8A42D6F-2A47-4175-8ED8-F482D64554C6}Lbl"); - '{C2FE3376-EDB2-4C3E-A82D-F49D27D292DE}': - exit("{C2FE3376-EDB2-4C3E-A82D-F49D27D292DE}Lbl"); - '{A0CED092-3AAD-4121-A5A2-F4DEAC316621}': - exit("{A0CED092-3AAD-4121-A5A2-F4DEAC316621}Lbl"); - '{4F992CE7-BB8C-4129-923A-F53A771DF231}': - exit("{4F992CE7-BB8C-4129-923A-F53A771DF231}Lbl"); - '{FC1AEFDA-0537-4D94-A576-F542B6710B71}': - exit("{FC1AEFDA-0537-4D94-A576-F542B6710B71}Lbl"); - '{9A744701-39FF-4CFF-AA72-F5856E82FBF4}': - exit("{9A744701-39FF-4CFF-AA72-F5856E82FBF4}Lbl"); - end; - case CaseID of - '{AA3E77B0-A08A-4756-90E5-F6561C7D4B9B}': - exit("{AA3E77B0-A08A-4756-90E5-F6561C7D4B9B}Lbl"); - '{36A5E0EC-E197-4102-8FF0-F6DC9B4A47C1}': - exit("{36A5E0EC-E197-4102-8FF0-F6DC9B4A47C1}Lbl"); - '{1A9545C6-CCD5-4B44-9450-F70C9B3F08B7}': - exit("{1A9545C6-CCD5-4B44-9450-F70C9B3F08B7}Lbl"); - '{ABA6F00E-B423-49DF-8DF5-F74950011703}': - exit("{ABA6F00E-B423-49DF-8DF5-F74950011703}Lbl"); - '{BB9814B7-D039-49BC-BF5D-F80127620CAE}': - exit("{BB9814B7-D039-49BC-BF5D-F80127620CAE}Lbl"); - '{62216594-6660-492B-ACA0-F8BD3893DE49}': - exit("{62216594-6660-492B-ACA0-F8BD3893DE49}Lbl"); - '{EC2138A1-46D7-430B-B335-F8D6C345BB16}': - exit("{EC2138A1-46D7-430B-B335-F8D6C345BB16}Lbl"); - '{A2153C07-E791-4821-9542-F9C6C3737BAF}': - exit("{A2153C07-E791-4821-9542-F9C6C3737BAF}Lbl"); - '{F857355F-9134-460C-89C8-FB0845206988}': - exit("{F857355F-9134-460C-89C8-FB0845206988}Lbl"); - '{AECAE480-71C8-41C4-B247-FB33DFC9C039}': - exit("{AECAE480-71C8-41C4-B247-FB33DFC9C039}Lbl"); - end; - case CaseID of - '{46CB3503-286F-43C3-9B04-FBBD5F2CBAF0}': - exit("{46CB3503-286F-43C3-9B04-FBBD5F2CBAF0}Lbl"); - '{0B9DBB2B-8F9C-496E-B373-FC5A4BD43F96}': - exit("{0B9DBB2B-8F9C-496E-B373-FC5A4BD43F96}Lbl"); - '{78A245B3-3BAB-4347-B09A-FDE73A600BB2}': - exit("{78A245B3-3BAB-4347-B09A-FDE73A600BB2}Lbl"); - '{CF221DCD-487C-4B3C-BBC4-FE16B6667E76}': - exit("{CF221DCD-487C-4B3C-BBC4-FE16B6667E76}Lbl"); - '{1B728E5D-4A32-4E32-A2AA-FE3673AFC2CD}': - exit("{1B728E5D-4A32-4E32-A2AA-FE3673AFC2CD}Lbl"); - '{F3E7CEF3-5437-42EC-9DED-FE81F994FFCB}': - exit("{F3E7CEF3-5437-42EC-9DED-FE81F994FFCB}Lbl"); - '{041E1938-9B6A-4173-937C-FF0FDC0E7309}': - exit("{041E1938-9B6A-4173-937C-FF0FDC0E7309}Lbl"); - '{D68B3FE8-78C6-492D-AC1A-FFA29F17A50D}': - exit("{D68B3FE8-78C6-492D-AC1A-FFA29F17A50D}Lbl"); - end; - case CaseID of - '{4F6B53B9-9961-4F29-8151-33C5D413CF58}': - exit("{4F6B53B9-9961-4F29-8151-33C5D413CF58}Lbl"); - '{C7BA99E0-7A62-41C9-93C4-36BDAD52C328}': - exit("{C7BA99E0-7A62-41C9-93C4-36BDAD52C328}Lbl"); - '{4934B903-2938-4ED9-994C-36F89B08E352}': - exit("{4934B903-2938-4ED9-994C-36F89B08E352}Lbl"); - '{7E781F55-9A83-4206-B18A-46C2CA5E8573}': - exit("{7E781F55-9A83-4206-B18A-46C2CA5E8573}Lbl"); - '{9154D0D0-5D85-40BE-889D-764E65F8691C}': - exit("{9154D0D0-5D85-40BE-889D-764E65F8691C}Lbl"); - '{FB4C68ED-BD93-4229-B1BB-91163250C066}': - exit("{FB4C68ED-BD93-4229-B1BB-91163250C066}Lbl"); - '{8F83C983-4368-45FF-9319-952826F72162}': - exit("{8F83C983-4368-45FF-9319-952826F72162}Lbl"); - '{1C3087C6-66E1-4D66-8133-DF7F13FDB0D5}': - exit("{1C3087C6-66E1-4D66-8133-DF7F13FDB0D5}Lbl"); - end; - case CaseID of - '{A4C57AB8-DBFF-473C-B2A3-739975737950}': - exit("{A4C57AB8-DBFF-473C-B2A3-739975737950}Lbl"); - '{D187D562-E011-4879-839D-A3CB824D11EC}': - exit("{D187D562-E011-4879-839D-A3CB824D11EC}Lbl"); - '{1DE560C5-73C9-4476-9447-80FC42CD492C}': - exit("{1DE560C5-73C9-4476-9447-80FC42CD492C}Lbl"); - '{13217522-8F07-4C15-9787-8B1840E8CC40}': - exit("{13217522-8F07-4C15-9787-8B1840E8CC40}Lbl"); - '{C6AFDFC6-874B-4B14-BCC9-8FC5B4992157}': - exit("{C6AFDFC6-874B-4B14-BCC9-8FC5B4992157}Lbl"); - '{8153E2CA-FD9A-4A9F-A0E4-A657636F83DB}': - exit("{8153E2CA-FD9A-4A9F-A0E4-A657636F83DB}Lbl"); - '{8139E94E-D43E-4C24-B6B3-C59F55737321}': - exit("{8139E94E-D43E-4C24-B6B3-C59F55737321}Lbl"); - '{5043629A-E2D7-4E0D-AD7F-C9D505507D01}': - exit("{5043629A-E2D7-4E0D-AD7F-C9D505507D01}Lbl"); - '{C447C36E-72FA-4FEA-A49C-F976FE57275D}': - exit("{C447C36E-72FA-4FEA-A49C-F976FE57275D}Lbl"); - '{FA8E63F5-19A9-4940-AD59-DB7067BE069A}': - exit("{FA8E63F5-19A9-4940-AD59-DB7067BE069A}Lbl"); - end; - case CaseID of - '{A18E31F4-0E06-42B6-B8E0-282B42CA2A28}': - exit("{A18E31F4-0E06-42B6-B8E0-282B42CA2A28}Lbl"); - '{A744EF89-44A8-4CE0-81F8-3D8094623CD1}': - exit("{A744EF89-44A8-4CE0-81F8-3D8094623CD1}Lbl"); - '{58789CA5-0F23-4972-B1FE-3EE6E8BC19A1}': - exit("{58789CA5-0F23-4972-B1FE-3EE6E8BC19A1}Lbl"); - '{1DD8BB1A-1AA9-4B82-9F6A-80F26AA8675D}': - exit("{1DD8BB1A-1AA9-4B82-9F6A-80F26AA8675D}Lbl"); - '{2c3d6b6c-5f5b-4728-b00f-28df4fa04939}': - exit("{2c3d6b6c-5f5b-4728-b00f-28df4fa04939}Lbl"); - '{e449e955-a401-4c0d-9db6-3920da89d68e}': - exit("{e449e955-a401-4c0d-9db6-3920da89d68e}Lbl"); - end; - - Handled := false; - end; -#endif var GSTTaxTypeLbl: Label 'GST Tax Type place holder'; diff --git a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTUseCaseConfig.Codeunit.al b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTUseCaseConfig.Codeunit.al deleted file mode 100644 index b6cf07dd197..00000000000 --- a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTUseCaseConfig.Codeunit.al +++ /dev/null @@ -1,454 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -// This codeunit is no longer needed as we will use Resources for use cases -namespace Microsoft.Finance.TaxEngine.JsonExchange; - -codeunit 18000 "GST Use Case Config" -{ - ObsoleteTag = '27.0'; - ObsoleteState = Pending; - ObsoleteReason = 'Removal of procedure as all Use cases covered in GSTBaseTaxEngineSetup Codeunit'; - procedure GetConfig(CaseID: Guid; var Handled: Boolean): Text - var - "{9fe211a9-770a-4396-be84-b9625d975180}Lbl": Label 'GST Use Cases'; - "{04ba2f8d-9562-4551-8a98-c61ce5509b47}Lbl": Label 'GST Use Cases'; - "{fec46768-8566-4c39-ae1d-62b0fd83d5d6}Lbl": Label 'GST Use Cases'; - "{f7997b96-631e-456d-9fa2-028adec745c1}Lbl": Label 'GST Use Cases'; - "{47aa3c60-6575-4f87-8022-29790bb97a11}Lbl": Label 'GST Use Cases'; - "{21a2dffa-df09-4531-be3f-dfc7e50f3d1e}Lbl": Label 'GST Use Cases'; - "{8e9e924f-0be8-4862-bdfe-39cb23848b3c}Lbl": Label 'GST Use Cases'; - "{c9f94259-ea6b-481b-aaf1-8d8f9f025902}Lbl": Label 'GST Use Cases'; - "{b7a4d05e-75c4-47f5-b502-9510b13e2dea}Lbl": Label 'GST Use Cases'; - "{19625bab-02b9-42e1-80ef-fed88d13ff40}Lbl": Label 'GST Use Cases'; - "{56966b10-de93-4980-a9fe-1cbb5de6359b}Lbl": Label 'GST Use Cases'; - "{5e2d969d-2a4b-4288-900b-7d1527f80a8e}Lbl": Label 'GST Use Cases'; - "{2e66dc31-92bb-4928-83e5-6f87fc544a85}Lbl": Label 'GST Use Cases'; - "{b4b3ee78-57ec-4ee8-8f51-e7b868cf34b9}Lbl": Label 'GST Use Cases'; - "{90643bb8-1beb-40c8-81b3-e6a3c5075c45}Lbl": Label 'GST Use Cases'; - "{55bea8b4-15ed-47b2-ad24-157ba39467ee}Lbl": Label 'GST Use Cases'; - "{0c6ee2b8-335f-4420-9b76-aebf773bb40c}Lbl": Label 'GST Use Cases'; - "{10d6a0fe-f802-4235-b438-3a29b7c853ed}Lbl": Label 'GST Use Cases'; - "{7e48e18f-d907-423a-bc62-256d7cfaa089}Lbl": Label 'GST Use Cases'; - "{ccd1bd07-0a33-4dab-9a3e-e66956e0f98b}Lbl": Label 'GST Use Cases'; - "{7642fecb-8bee-4127-9523-47ecb7d29dc4}Lbl": Label 'GST Use Cases'; - "{f1a5130e-021a-40f9-8282-82cbfee3ff07}Lbl": Label 'GST Use Cases'; - "{65746f4e-a835-4278-98ca-b6ab0d0cbf6b}Lbl": Label 'GST Use Cases'; - "{a515d68a-a496-4a81-8f4e-ec21f207d5ff}Lbl": Label 'GST Use Cases'; - "{79a59a19-401f-444f-a3c4-f8cbba06d4b0}Lbl": Label 'GST Use Cases'; - "{8b9b630b-1ac7-49a1-ba60-3a415b97c2bc}Lbl": Label 'GST Use Cases'; - "{7601e944-f060-482e-b620-cf8555d00bb9}Lbl": Label 'GST Use Cases'; - "{040a5713-75a6-4fd3-bca9-7a335d697933}Lbl": Label 'GST Use Cases'; - "{4b185dab-793d-4c0a-a303-417a61ac9b96}Lbl": Label 'GST Use Cases'; - "{4fd977c3-86db-46a1-aeef-a0a176f23be1}Lbl": Label 'GST Use Cases'; - "{bc63870d-585e-4c07-a6a6-44de28f260be}Lbl": Label 'GST Use Cases'; - "{6333f9d2-02b8-4ff1-88ee-386041b7fca4}Lbl": Label 'GST Use Cases'; - "{03d7d334-04d2-4ec5-ae88-a67c1409c8be}Lbl": Label 'GST Use Cases'; - "{9e8f612a-6306-4cd0-aa63-8f443733b9b5}Lbl": Label 'GST Use Cases'; - "{cf89d22f-0cd8-4e3c-a01c-6c159e03e5e6}Lbl": Label 'GST Use Cases'; - "{14fc3d2c-3daf-4c04-aa69-6ae47d0d7552}Lbl": Label 'GST Use Cases'; - "{59157e34-743f-4293-a662-1a9c3d916178}Lbl": Label 'GST Use Cases'; - "{d6d5aacf-3fc9-4e46-ac66-66cb29d5293e}Lbl": Label 'GST Use Cases'; - "{291465b9-0c22-48b5-9eea-4006cc372b1a}Lbl": Label 'GST Use Cases'; - "{c69c8c2b-3445-476c-80ed-776ec67b06d3}Lbl": Label 'GST Use Cases'; - "{08eacbe7-7b68-4b7b-8bce-8d5d4fad80f0}Lbl": Label 'GST Use Cases'; - "{e8acbb6b-eaaf-46c6-a4ea-efb502d8e110}Lbl": Label 'GST Use Cases'; - "{5860dc76-ae27-4a12-808d-667172bef336}Lbl": Label 'GST Use Cases'; - "{a4a8c87f-d458-4dd2-b8e9-8393220fdd2d}Lbl": Label 'GST Use Cases'; - "{d9aa8d5e-8135-47aa-a722-6356873cf5ef}Lbl": Label 'GST Use Cases'; - "{a0d756a0-dc72-49f9-a1f9-b926242c6ad2}Lbl": Label 'GST Use Cases'; - "{bfb628d6-4413-4628-b619-013ef3255ce9}Lbl": Label 'GST Use Cases'; - "{a4b4b64c-1d4c-48ee-88e9-4bbc4f05eae8}Lbl": Label 'GST Use Cases'; - "{8d8429d6-2b1a-4081-900e-9d19c312335e}Lbl": Label 'GST Use Cases'; - "{dc79d469-98cd-45ff-adbb-27dff74d2672}Lbl": Label 'GST Use Cases'; - "{84992760-0362-488c-8d49-0de8065f945c}Lbl": Label 'GST Use Cases'; - "{10ca76a8-8de4-419a-8220-3dd88d8f8747}Lbl": Label 'GST Use Cases'; - "{b8757b78-d36c-4ab7-b532-353006120046}Lbl": Label 'GST Use Cases'; - "{5131a9e4-a281-496f-9af2-e60dc7d88a50}Lbl": Label 'GST Use Cases'; - "{7aff7259-d09b-4c62-8575-34bedee4a72c}Lbl": Label 'GST Use Cases'; - "{e786a7d6-1147-46f6-bb75-1223aac92007}Lbl": Label 'GST Use Cases'; - "{ea505d2c-22a0-4b4b-b20f-18a0e1ae2c02}Lbl": Label 'GST Use Cases'; - "{fbbceafb-3b22-4d36-969e-84ab2cdc7859}Lbl": Label 'GST Use Cases'; - "{c8ba6ca4-7e8c-4053-980d-451fe32d8efa}Lbl": Label 'GST Use Cases'; - "{13827c55-0612-40ef-bed1-62d7605b9d68}Lbl": Label 'GST Use Cases'; - "{92cd1d91-1d76-46d8-b2e1-c62c54e62191}Lbl": Label 'GST Use Cases'; - "{efb5634e-c341-4922-9bc9-1ce76ad61d79}Lbl": Label 'GST Use Cases'; - "{40c0504c-93d7-4ec1-a4b8-7fe82c224be4}Lbl": Label 'GST Use Cases'; - "{3eaea83a-b986-4c1e-9231-edeac919de2f}Lbl": Label 'GST Use Cases'; - "{bb38433a-2ae4-492d-8380-d8b5a6f80135}Lbl": Label 'GST Use Cases'; - "{81345ec6-231d-4274-95d2-302ffe85b903}Lbl": Label 'GST Use Cases'; - "{747b1a95-df79-4286-a38b-a6f98f2d2de1}Lbl": Label 'GST Use Cases'; - "{fc888469-0e29-48ba-b417-07d5943d7c45}Lbl": Label 'GST Use Cases'; - "{31f4991c-5e91-4af3-b911-39f985bf48c1}Lbl": Label 'GST Use Cases'; - "{3397dbb8-098b-4a52-9bfa-e24a12b5f9e7}Lbl": Label 'GST Use Cases'; - "{6c740bb7-2090-4e02-8611-2fd65cc51465}Lbl": Label 'GST Use Cases'; - "{0dd3f665-8d52-487d-a200-9bd69db0a4a2}Lbl": Label 'GST Use Cases'; - "{be591554-5098-41fd-a200-5b5b48c19083}Lbl": Label 'GST Use Cases'; - "{6807fdac-8bcb-4b1a-84ff-882c6a9c15b7}Lbl": Label 'GST Use Cases'; - "{8b4b45ec-5b92-4383-935b-de2e70579ca8}Lbl": Label 'GST Use Cases'; - "{a8b33288-ca54-4dc6-b3e4-a14e3cca4efc}Lbl": Label 'GST Use Cases'; - "{dba2caa4-8ee2-4dd0-b413-383101db034e}Lbl": Label 'GST Use Cases'; - "{8e881e89-87c1-4745-9529-b82a784e83be}Lbl": Label 'GST Use Cases'; - "{1f48109a-8444-4862-b9da-190182b3fbac}Lbl": Label 'GST Use Cases'; - "{3ad6ddbc-a132-4aba-b216-73133b85604a}Lbl": Label 'GST Use Cases'; - "{17da0fc6-fc3f-4ab5-a2c7-34d00b649941}Lbl": Label 'GST Use Cases'; - "{741172e2-8b2d-461d-9081-71145f1316df}Lbl": Label 'GST Use Cases'; - "{29c6fb1d-f01c-426f-ac3e-76e9122fdb69}Lbl": Label 'GST Use Cases'; - "{49fe20a3-c985-4427-98a7-cbc3119c73f7}Lbl": Label 'GST Use Cases'; - "{913aae94-3aef-4f6d-80db-f30ff5e5c067}Lbl": Label 'GST Use Cases'; - "{6cc7879a-5af1-4fd6-8713-7ecf54abc412}Lbl": Label 'GST Use Cases'; - "{858ca47f-fa82-4485-91a5-12b2ebf36d6f}Lbl": Label 'GST Use Cases'; - "{5629ebaa-46b2-4dd7-9511-1d6e697a6b0a}Lbl": Label 'GST Use Cases'; - "{44130b2e-fba8-47de-bf1f-af9145ac13bd}Lbl": Label 'GST Use Cases'; - "{53d88a93-5ce2-427c-81f0-6dcfc36f579f}Lbl": Label 'GST Use Cases'; - "{97120cfc-a3a4-4545-8a71-881473ed33c7}Lbl": Label 'GST Use Cases'; - "{23f3d552-5b8b-47a9-b217-903567666bce}Lbl": Label 'GST Use Cases'; - "{14586eff-720d-4670-b023-ea4fbff96b99}Lbl": Label 'GST Use Cases'; - "{861e4175-2832-49d7-8af3-96e6c19f8e68}Lbl": Label 'GST Use Cases'; - "{220890e5-a6c0-4719-83c5-e2247ef9bec3}Lbl": Label 'GST Use Cases'; - "{4bfa98d3-cef3-4573-b464-9e897eb9d4ae}Lbl": Label 'GST Use Cases'; - "{f0e83015-3886-4263-a0b7-a97ba3b7753c}Lbl": Label 'GST Use Cases'; - "{fd5fd103-5251-4063-92c9-ccfe016b971b}Lbl": Label 'GST Use Cases'; - "{5582b9b9-2c0c-4036-a0e1-ed20495d47af}Lbl": Label 'GST Use Cases'; - "{307349c1-c724-4cb8-8878-7587cc2617ec}Lbl": Label 'GST Use Cases'; - "{c3755aff-81d3-4b1a-85b2-b2c8a60f9eaa}Lbl": Label 'GST Use Cases'; - "{0e655e71-19d9-4a10-8a28-fe4afba2a7c7}Lbl": Label 'GST Use Cases'; - "{f4c6236c-3805-4826-88fd-eac2659389b0}Lbl": Label 'GST Use Cases'; - "{10bbeeb9-e622-4899-b4e0-c000ca753e54}Lbl": Label 'GST Use Cases'; - "{adf93fbf-84bb-4dc9-8b87-eadde08829f0}Lbl": Label 'GST Use Cases'; - "{3c1d2a94-cbae-4190-be50-ad56cf9218d9}Lbl": Label 'GST Use Cases'; - "{103e8a37-530c-4fff-bb01-d298e7df9ffc}Lbl": Label 'GST Use Cases'; - "{02a9b37f-66a8-446a-b5b0-703d594ff934}Lbl": Label 'GST Use Cases'; - "{9654c77e-d850-4aa2-9a47-fb003b1574b2}Lbl": Label 'GST Use Cases'; - "{6924daf8-60f6-4c42-9266-200033c6d3f4}Lbl": Label 'GST Use Cases'; - "{11d160cf-fd98-4c47-928b-9f4125f584a9}Lbl": Label 'GST Use Cases'; - "{b3793372-9ad2-4f36-ba5c-3af13be44f2d}Lbl": Label 'GST Use Cases'; - "{cf0f6dea-a530-45b3-8b1b-cf86879e9eda}Lbl": Label 'GST Use Cases'; - "{0561985a-b2f9-4c9c-be39-7d6ae423104e}Lbl": Label 'GST Use Cases'; - "{51cd0a49-e8df-42a3-9180-84d1a7076a42}Lbl": Label 'GST Use Cases'; - "{da8695b6-d7d7-41e9-be59-c26a19d03c2c}Lbl": Label 'GST Use Cases'; - "{270f6442-0097-437d-9f91-5c15bd9eab4d}Lbl": Label 'GST Use Cases'; - "{abf997c4-d467-4f97-94cd-10afe3a66b3a}Lbl": Label 'GST Use Cases'; - "{902158a0-97d5-4075-943e-3b30b800fb78}Lbl": Label 'GST Use Cases'; - "{4116f9d4-1957-46d1-bced-580bd21c0908}Lbl": Label 'GST Use Cases'; - "{05cee5ad-ff50-479c-922c-1c51fe10f724}Lbl": Label 'GST Use Cases'; - "{f356e0fe-23c7-4d81-a149-3659f2cefbb4}Lbl": Label 'GST Use Cases'; - "{7e2f85f6-ffba-45fe-80b5-39b654365acd}Lbl": Label 'GST Use Cases'; - "{88f1a4b3-dcac-499a-bd7a-a5eba3ef3cb4}Lbl": Label 'GST Use Cases'; - "{1f11a81c-0551-4b07-aa30-23da57e0fe16}Lbl": Label 'GST Use Cases'; - "{ebfdb89b-5f22-4386-87ca-72157cbf122d}Lbl": Label 'GST Use Cases'; - "{321e0f7b-a15d-4ce6-9c11-bf3fd3dee918}Lbl": Label 'GST Use Cases'; - "{4f2fb4b9-25be-4c8c-8d77-7e3d63f9db40}Lbl": Label 'GST Use Cases'; - "{cf902413-8c5a-4677-b070-1583ff5c13a4}Lbl": Label 'GST Use Cases'; - "{63842fed-75f4-44c8-897f-6d350858a29a}Lbl": Label 'GST Use Cases'; - "{bda9c3af-6736-46fb-b84c-ed078ea8f1b1}Lbl": Label 'GST Use Cases'; - "{fadca984-0c4e-4ae6-9acc-2bf4f9adc17a}Lbl": Label 'GST Use Cases'; - "{b7321e84-d1d2-4c4c-857c-b0fb5658d87d}Lbl": Label 'GST Use Cases'; - "{bace2666-3667-442b-9d81-bb46e6091905}Lbl": Label 'GST Use Cases'; - begin - Handled := true; - - case CaseID of - '{9fe211a9-770a-4396-be84-b9625d975180}': - exit("{9fe211a9-770a-4396-be84-b9625d975180}Lbl"); - '{04ba2f8d-9562-4551-8a98-c61ce5509b47}': - exit("{04ba2f8d-9562-4551-8a98-c61ce5509b47}Lbl"); - '{fec46768-8566-4c39-ae1d-62b0fd83d5d6}': - exit("{fec46768-8566-4c39-ae1d-62b0fd83d5d6}Lbl"); - '{f7997b96-631e-456d-9fa2-028adec745c1}': - exit("{f7997b96-631e-456d-9fa2-028adec745c1}Lbl"); - '{47aa3c60-6575-4f87-8022-29790bb97a11}': - exit("{47aa3c60-6575-4f87-8022-29790bb97a11}Lbl"); - '{21a2dffa-df09-4531-be3f-dfc7e50f3d1e}': - exit("{21a2dffa-df09-4531-be3f-dfc7e50f3d1e}Lbl"); - '{8e9e924f-0be8-4862-bdfe-39cb23848b3c}': - exit("{8e9e924f-0be8-4862-bdfe-39cb23848b3c}Lbl"); - '{c9f94259-ea6b-481b-aaf1-8d8f9f025902}': - exit("{c9f94259-ea6b-481b-aaf1-8d8f9f025902}Lbl"); - '{b7a4d05e-75c4-47f5-b502-9510b13e2dea}': - exit("{b7a4d05e-75c4-47f5-b502-9510b13e2dea}Lbl"); - '{19625bab-02b9-42e1-80ef-fed88d13ff40}': - exit("{19625bab-02b9-42e1-80ef-fed88d13ff40}Lbl"); - '{56966b10-de93-4980-a9fe-1cbb5de6359b}': - exit("{56966b10-de93-4980-a9fe-1cbb5de6359b}Lbl"); - end; - - case CaseID of - '{5e2d969d-2a4b-4288-900b-7d1527f80a8e}': - exit("{5e2d969d-2a4b-4288-900b-7d1527f80a8e}Lbl"); - '{2e66dc31-92bb-4928-83e5-6f87fc544a85}': - exit("{2e66dc31-92bb-4928-83e5-6f87fc544a85}Lbl"); - '{b4b3ee78-57ec-4ee8-8f51-e7b868cf34b9}': - exit("{b4b3ee78-57ec-4ee8-8f51-e7b868cf34b9}Lbl"); - '{90643bb8-1beb-40c8-81b3-e6a3c5075c45}': - exit("{90643bb8-1beb-40c8-81b3-e6a3c5075c45}Lbl"); - '{55bea8b4-15ed-47b2-ad24-157ba39467ee}': - exit("{55bea8b4-15ed-47b2-ad24-157ba39467ee}Lbl"); - '{0c6ee2b8-335f-4420-9b76-aebf773bb40c}': - exit("{0c6ee2b8-335f-4420-9b76-aebf773bb40c}Lbl"); - '{10d6a0fe-f802-4235-b438-3a29b7c853ed}': - exit("{10d6a0fe-f802-4235-b438-3a29b7c853ed}Lbl"); - '{7e48e18f-d907-423a-bc62-256d7cfaa089}': - exit("{7e48e18f-d907-423a-bc62-256d7cfaa089}Lbl"); - '{ccd1bd07-0a33-4dab-9a3e-e66956e0f98b}': - exit("{ccd1bd07-0a33-4dab-9a3e-e66956e0f98b}Lbl"); - '{7642fecb-8bee-4127-9523-47ecb7d29dc4}': - exit("{7642fecb-8bee-4127-9523-47ecb7d29dc4}Lbl"); - '{f1a5130e-021a-40f9-8282-82cbfee3ff07}': - exit("{f1a5130e-021a-40f9-8282-82cbfee3ff07}Lbl"); - end; - - case CaseID of - '{65746f4e-a835-4278-98ca-b6ab0d0cbf6b}': - exit("{65746f4e-a835-4278-98ca-b6ab0d0cbf6b}Lbl"); - '{a515d68a-a496-4a81-8f4e-ec21f207d5ff}': - exit("{a515d68a-a496-4a81-8f4e-ec21f207d5ff}Lbl"); - '{79a59a19-401f-444f-a3c4-f8cbba06d4b0}': - exit("{79a59a19-401f-444f-a3c4-f8cbba06d4b0}Lbl"); - '{8b9b630b-1ac7-49a1-ba60-3a415b97c2bc}': - exit("{8b9b630b-1ac7-49a1-ba60-3a415b97c2bc}Lbl"); - '{7601e944-f060-482e-b620-cf8555d00bb9}': - exit("{7601e944-f060-482e-b620-cf8555d00bb9}Lbl"); - '{040a5713-75a6-4fd3-bca9-7a335d697933}': - exit("{040a5713-75a6-4fd3-bca9-7a335d697933}Lbl"); - '{4b185dab-793d-4c0a-a303-417a61ac9b96}': - exit("{4b185dab-793d-4c0a-a303-417a61ac9b96}Lbl"); - '{4fd977c3-86db-46a1-aeef-a0a176f23be1}': - exit("{4fd977c3-86db-46a1-aeef-a0a176f23be1}Lbl"); - '{bc63870d-585e-4c07-a6a6-44de28f260be}': - exit("{bc63870d-585e-4c07-a6a6-44de28f260be}Lbl"); - end; - - case CaseID of - '{6333f9d2-02b8-4ff1-88ee-386041b7fca4}': - exit("{6333f9d2-02b8-4ff1-88ee-386041b7fca4}Lbl"); - '{03d7d334-04d2-4ec5-ae88-a67c1409c8be}': - exit("{03d7d334-04d2-4ec5-ae88-a67c1409c8be}Lbl"); - '{9e8f612a-6306-4cd0-aa63-8f443733b9b5}': - exit("{9e8f612a-6306-4cd0-aa63-8f443733b9b5}Lbl"); - '{cf89d22f-0cd8-4e3c-a01c-6c159e03e5e6}': - exit("{cf89d22f-0cd8-4e3c-a01c-6c159e03e5e6}Lbl"); - '{14fc3d2c-3daf-4c04-aa69-6ae47d0d7552}': - exit("{14fc3d2c-3daf-4c04-aa69-6ae47d0d7552}Lbl"); - '{59157e34-743f-4293-a662-1a9c3d916178}': - exit("{59157e34-743f-4293-a662-1a9c3d916178}Lbl"); - '{d6d5aacf-3fc9-4e46-ac66-66cb29d5293e}': - exit("{d6d5aacf-3fc9-4e46-ac66-66cb29d5293e}Lbl"); - '{291465b9-0c22-48b5-9eea-4006cc372b1a}': - exit("{291465b9-0c22-48b5-9eea-4006cc372b1a}Lbl"); - '{c69c8c2b-3445-476c-80ed-776ec67b06d3}': - exit("{c69c8c2b-3445-476c-80ed-776ec67b06d3}Lbl"); - '{08eacbe7-7b68-4b7b-8bce-8d5d4fad80f0}': - exit("{08eacbe7-7b68-4b7b-8bce-8d5d4fad80f0}Lbl"); - '{e8acbb6b-eaaf-46c6-a4ea-efb502d8e110}': - exit("{e8acbb6b-eaaf-46c6-a4ea-efb502d8e110}Lbl"); - '{5860dc76-ae27-4a12-808d-667172bef336}': - exit("{5860dc76-ae27-4a12-808d-667172bef336}Lbl"); - '{a4a8c87f-d458-4dd2-b8e9-8393220fdd2d}': - exit("{a4a8c87f-d458-4dd2-b8e9-8393220fdd2d}Lbl"); - '{d9aa8d5e-8135-47aa-a722-6356873cf5ef}': - exit("{d9aa8d5e-8135-47aa-a722-6356873cf5ef}Lbl"); - '{a0d756a0-dc72-49f9-a1f9-b926242c6ad2}': - exit("{a0d756a0-dc72-49f9-a1f9-b926242c6ad2}Lbl"); - end; - - case CaseID of - '{bfb628d6-4413-4628-b619-013ef3255ce9}': - exit("{bfb628d6-4413-4628-b619-013ef3255ce9}Lbl"); - '{a4b4b64c-1d4c-48ee-88e9-4bbc4f05eae8}': - exit("{a4b4b64c-1d4c-48ee-88e9-4bbc4f05eae8}Lbl"); - '{8d8429d6-2b1a-4081-900e-9d19c312335e}': - exit("{8d8429d6-2b1a-4081-900e-9d19c312335e}Lbl"); - '{dc79d469-98cd-45ff-adbb-27dff74d2672}': - exit("{dc79d469-98cd-45ff-adbb-27dff74d2672}Lbl"); - '{84992760-0362-488c-8d49-0de8065f945c}': - exit("{84992760-0362-488c-8d49-0de8065f945c}Lbl"); - '{10ca76a8-8de4-419a-8220-3dd88d8f8747}': - exit("{10ca76a8-8de4-419a-8220-3dd88d8f8747}Lbl"); - '{b8757b78-d36c-4ab7-b532-353006120046}': - exit("{b8757b78-d36c-4ab7-b532-353006120046}Lbl"); - '{5131a9e4-a281-496f-9af2-e60dc7d88a50}': - exit("{5131a9e4-a281-496f-9af2-e60dc7d88a50}Lbl"); - '{7aff7259-d09b-4c62-8575-34bedee4a72c}': - exit("{7aff7259-d09b-4c62-8575-34bedee4a72c}Lbl"); - '{e786a7d6-1147-46f6-bb75-1223aac92007}': - exit("{e786a7d6-1147-46f6-bb75-1223aac92007}Lbl"); - '{ea505d2c-22a0-4b4b-b20f-18a0e1ae2c02}': - exit("{ea505d2c-22a0-4b4b-b20f-18a0e1ae2c02}Lbl"); - '{fbbceafb-3b22-4d36-969e-84ab2cdc7859}': - exit("{fbbceafb-3b22-4d36-969e-84ab2cdc7859}Lbl"); - '{c8ba6ca4-7e8c-4053-980d-451fe32d8efa}': - exit("{c8ba6ca4-7e8c-4053-980d-451fe32d8efa}Lbl"); - '{13827c55-0612-40ef-bed1-62d7605b9d68}': - exit("{13827c55-0612-40ef-bed1-62d7605b9d68}Lbl"); - '{92cd1d91-1d76-46d8-b2e1-c62c54e62191}': - exit("{92cd1d91-1d76-46d8-b2e1-c62c54e62191}Lbl"); - end; - - case CaseID of - '{efb5634e-c341-4922-9bc9-1ce76ad61d79}': - exit("{efb5634e-c341-4922-9bc9-1ce76ad61d79}Lbl"); - '{40c0504c-93d7-4ec1-a4b8-7fe82c224be4}': - exit("{40c0504c-93d7-4ec1-a4b8-7fe82c224be4}Lbl"); - '{3eaea83a-b986-4c1e-9231-edeac919de2f}': - exit("{3eaea83a-b986-4c1e-9231-edeac919de2f}Lbl"); - '{bb38433a-2ae4-492d-8380-d8b5a6f80135}': - exit("{bb38433a-2ae4-492d-8380-d8b5a6f80135}Lbl"); - '{81345ec6-231d-4274-95d2-302ffe85b903}': - exit("{81345ec6-231d-4274-95d2-302ffe85b903}Lbl"); - '{747b1a95-df79-4286-a38b-a6f98f2d2de1}': - exit("{747b1a95-df79-4286-a38b-a6f98f2d2de1}Lbl"); - '{fc888469-0e29-48ba-b417-07d5943d7c45}': - exit("{fc888469-0e29-48ba-b417-07d5943d7c45}Lbl"); - '{31f4991c-5e91-4af3-b911-39f985bf48c1}': - exit("{31f4991c-5e91-4af3-b911-39f985bf48c1}Lbl"); - '{3397dbb8-098b-4a52-9bfa-e24a12b5f9e7}': - exit("{3397dbb8-098b-4a52-9bfa-e24a12b5f9e7}Lbl"); - '{6c740bb7-2090-4e02-8611-2fd65cc51465}': - exit("{6c740bb7-2090-4e02-8611-2fd65cc51465}Lbl"); - '{0dd3f665-8d52-487d-a200-9bd69db0a4a2}': - exit("{0dd3f665-8d52-487d-a200-9bd69db0a4a2}Lbl"); - '{be591554-5098-41fd-a200-5b5b48c19083}': - exit("{be591554-5098-41fd-a200-5b5b48c19083}Lbl"); - '{6807fdac-8bcb-4b1a-84ff-882c6a9c15b7}': - exit("{6807fdac-8bcb-4b1a-84ff-882c6a9c15b7}Lbl"); - '{8b4b45ec-5b92-4383-935b-de2e70579ca8}': - exit("{8b4b45ec-5b92-4383-935b-de2e70579ca8}Lbl"); - '{a8b33288-ca54-4dc6-b3e4-a14e3cca4efc}': - exit("{a8b33288-ca54-4dc6-b3e4-a14e3cca4efc}Lbl"); - end; - - case CaseID of - '{dba2caa4-8ee2-4dd0-b413-383101db034e}': - exit("{dba2caa4-8ee2-4dd0-b413-383101db034e}Lbl"); - '{8e881e89-87c1-4745-9529-b82a784e83be}': - exit("{8e881e89-87c1-4745-9529-b82a784e83be}Lbl"); - '{1f48109a-8444-4862-b9da-190182b3fbac}': - exit("{1f48109a-8444-4862-b9da-190182b3fbac}Lbl"); - '{3ad6ddbc-a132-4aba-b216-73133b85604a}': - exit("{3ad6ddbc-a132-4aba-b216-73133b85604a}Lbl"); - '{17da0fc6-fc3f-4ab5-a2c7-34d00b649941}': - exit("{17da0fc6-fc3f-4ab5-a2c7-34d00b649941}Lbl"); - '{741172e2-8b2d-461d-9081-71145f1316df}': - exit("{741172e2-8b2d-461d-9081-71145f1316df}Lbl"); - '{29c6fb1d-f01c-426f-ac3e-76e9122fdb69}': - exit("{29c6fb1d-f01c-426f-ac3e-76e9122fdb69}Lbl"); - '{49fe20a3-c985-4427-98a7-cbc3119c73f7}': - exit("{49fe20a3-c985-4427-98a7-cbc3119c73f7}Lbl"); - '{913aae94-3aef-4f6d-80db-f30ff5e5c067}': - exit("{913aae94-3aef-4f6d-80db-f30ff5e5c067}Lbl"); - '{6cc7879a-5af1-4fd6-8713-7ecf54abc412}': - exit("{6cc7879a-5af1-4fd6-8713-7ecf54abc412}Lbl"); - '{858ca47f-fa82-4485-91a5-12b2ebf36d6f}': - exit("{858ca47f-fa82-4485-91a5-12b2ebf36d6f}Lbl"); - '{5629ebaa-46b2-4dd7-9511-1d6e697a6b0a}': - exit("{5629ebaa-46b2-4dd7-9511-1d6e697a6b0a}Lbl"); - '{44130b2e-fba8-47de-bf1f-af9145ac13bd}': - exit("{44130b2e-fba8-47de-bf1f-af9145ac13bd}Lbl"); - '{53d88a93-5ce2-427c-81f0-6dcfc36f579f}': - exit("{53d88a93-5ce2-427c-81f0-6dcfc36f579f}Lbl"); - '{97120cfc-a3a4-4545-8a71-881473ed33c7}': - exit("{97120cfc-a3a4-4545-8a71-881473ed33c7}Lbl"); - end; - - case CaseID of - '{23f3d552-5b8b-47a9-b217-903567666bce}': - exit("{23f3d552-5b8b-47a9-b217-903567666bce}Lbl"); - '{14586eff-720d-4670-b023-ea4fbff96b99}': - exit("{14586eff-720d-4670-b023-ea4fbff96b99}Lbl"); - '{861e4175-2832-49d7-8af3-96e6c19f8e68}': - exit("{861e4175-2832-49d7-8af3-96e6c19f8e68}Lbl"); - '{220890e5-a6c0-4719-83c5-e2247ef9bec3}': - exit("{220890e5-a6c0-4719-83c5-e2247ef9bec3}Lbl"); - '{4bfa98d3-cef3-4573-b464-9e897eb9d4ae}': - exit("{4bfa98d3-cef3-4573-b464-9e897eb9d4ae}Lbl"); - '{f0e83015-3886-4263-a0b7-a97ba3b7753c}': - exit("{f0e83015-3886-4263-a0b7-a97ba3b7753c}Lbl"); - '{fd5fd103-5251-4063-92c9-ccfe016b971b}': - exit("{fd5fd103-5251-4063-92c9-ccfe016b971b}Lbl"); - '{5582b9b9-2c0c-4036-a0e1-ed20495d47af}': - exit("{5582b9b9-2c0c-4036-a0e1-ed20495d47af}Lbl"); - '{307349c1-c724-4cb8-8878-7587cc2617ec}': - exit("{307349c1-c724-4cb8-8878-7587cc2617ec}Lbl"); - '{c3755aff-81d3-4b1a-85b2-b2c8a60f9eaa}': - exit("{c3755aff-81d3-4b1a-85b2-b2c8a60f9eaa}Lbl"); - '{0e655e71-19d9-4a10-8a28-fe4afba2a7c7}': - exit("{0e655e71-19d9-4a10-8a28-fe4afba2a7c7}Lbl"); - '{f4c6236c-3805-4826-88fd-eac2659389b0}': - exit("{f4c6236c-3805-4826-88fd-eac2659389b0}Lbl"); - '{10bbeeb9-e622-4899-b4e0-c000ca753e54}': - exit("{10bbeeb9-e622-4899-b4e0-c000ca753e54}Lbl"); - '{adf93fbf-84bb-4dc9-8b87-eadde08829f0}': - exit("{adf93fbf-84bb-4dc9-8b87-eadde08829f0}Lbl"); - '{3c1d2a94-cbae-4190-be50-ad56cf9218d9}': - exit("{3c1d2a94-cbae-4190-be50-ad56cf9218d9}Lbl"); - end; - - case CaseID of - '{103e8a37-530c-4fff-bb01-d298e7df9ffc}': - exit("{103e8a37-530c-4fff-bb01-d298e7df9ffc}Lbl"); - '{02a9b37f-66a8-446a-b5b0-703d594ff934}': - exit("{02a9b37f-66a8-446a-b5b0-703d594ff934}Lbl"); - '{9654c77e-d850-4aa2-9a47-fb003b1574b2}': - exit("{9654c77e-d850-4aa2-9a47-fb003b1574b2}Lbl"); - '{6924daf8-60f6-4c42-9266-200033c6d3f4}': - exit("{6924daf8-60f6-4c42-9266-200033c6d3f4}Lbl"); - '{11d160cf-fd98-4c47-928b-9f4125f584a9}': - exit("{11d160cf-fd98-4c47-928b-9f4125f584a9}Lbl"); - '{b3793372-9ad2-4f36-ba5c-3af13be44f2d}': - exit("{b3793372-9ad2-4f36-ba5c-3af13be44f2d}Lbl"); - '{cf0f6dea-a530-45b3-8b1b-cf86879e9eda}': - exit("{cf0f6dea-a530-45b3-8b1b-cf86879e9eda}Lbl"); - '{0561985a-b2f9-4c9c-be39-7d6ae423104e}': - exit("{0561985a-b2f9-4c9c-be39-7d6ae423104e}Lbl"); - '{51cd0a49-e8df-42a3-9180-84d1a7076a42}': - exit("{51cd0a49-e8df-42a3-9180-84d1a7076a42}Lbl"); - '{da8695b6-d7d7-41e9-be59-c26a19d03c2c}': - exit("{da8695b6-d7d7-41e9-be59-c26a19d03c2c}Lbl"); - '{270f6442-0097-437d-9f91-5c15bd9eab4d}': - exit("{270f6442-0097-437d-9f91-5c15bd9eab4d}Lbl"); - '{abf997c4-d467-4f97-94cd-10afe3a66b3a}': - exit("{abf997c4-d467-4f97-94cd-10afe3a66b3a}Lbl"); - '{902158a0-97d5-4075-943e-3b30b800fb78}': - exit("{902158a0-97d5-4075-943e-3b30b800fb78}Lbl"); - '{4116f9d4-1957-46d1-bced-580bd21c0908}': - exit("{4116f9d4-1957-46d1-bced-580bd21c0908}Lbl"); - '{05cee5ad-ff50-479c-922c-1c51fe10f724}': - exit("{05cee5ad-ff50-479c-922c-1c51fe10f724}Lbl"); - end; - - case CaseID of - '{f356e0fe-23c7-4d81-a149-3659f2cefbb4}': - exit("{f356e0fe-23c7-4d81-a149-3659f2cefbb4}Lbl"); - '{7e2f85f6-ffba-45fe-80b5-39b654365acd}': - exit("{7e2f85f6-ffba-45fe-80b5-39b654365acd}Lbl"); - '{88f1a4b3-dcac-499a-bd7a-a5eba3ef3cb4}': - exit("{88f1a4b3-dcac-499a-bd7a-a5eba3ef3cb4}Lbl"); - '{1f11a81c-0551-4b07-aa30-23da57e0fe16}': - exit("{1f11a81c-0551-4b07-aa30-23da57e0fe16}Lbl"); - '{ebfdb89b-5f22-4386-87ca-72157cbf122d}': - exit("{ebfdb89b-5f22-4386-87ca-72157cbf122d}Lbl"); - '{321e0f7b-a15d-4ce6-9c11-bf3fd3dee918}': - exit("{321e0f7b-a15d-4ce6-9c11-bf3fd3dee918}Lbl"); - '{4f2fb4b9-25be-4c8c-8d77-7e3d63f9db40}': - exit("{4f2fb4b9-25be-4c8c-8d77-7e3d63f9db40}Lbl"); - '{cf902413-8c5a-4677-b070-1583ff5c13a4}': - exit("{cf902413-8c5a-4677-b070-1583ff5c13a4}Lbl"); - '{63842fed-75f4-44c8-897f-6d350858a29a}': - exit("{63842fed-75f4-44c8-897f-6d350858a29a}Lbl"); - '{bda9c3af-6736-46fb-b84c-ed078ea8f1b1}': - exit("{bda9c3af-6736-46fb-b84c-ed078ea8f1b1}Lbl"); - '{fadca984-0c4e-4ae6-9acc-2bf4f9adc17a}': - exit("{fadca984-0c4e-4ae6-9acc-2bf4f9adc17a}Lbl"); - '{b7321e84-d1d2-4c4c-857c-b0fb5658d87d}': - exit("{b7321e84-d1d2-4c4c-857c-b0fb5658d87d}Lbl"); - '{bace2666-3667-442b-9d81-bb46e6091905}': - exit("{bace2666-3667-442b-9d81-bb46e6091905}Lbl"); - end; - - Handled := false; - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTUseCaseLabels.Codeunit.al b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTUseCaseLabels.Codeunit.al deleted file mode 100644 index 684d4c0b84c..00000000000 --- a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTUseCaseLabels.Codeunit.al +++ /dev/null @@ -1,527 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -// This codeunit is no longer needed as we will use Resources for use cases -namespace Microsoft.Finance.TaxEngine.JsonExchange; - -codeunit 18019 "GST Use Case Labels" -{ - ObsoleteTag = '27.0'; - ObsoleteState = Pending; - ObsoleteReason = 'Removal of procedure as all Use cases covered in GSTBaseTaxEngineSetup Codeunit'; - - procedure GetConfig(CaseID: Guid; var Handled: Boolean): Text - var - "{5577B8ED-6471-4480-AD5A-63BA31696AB7}Lbl": Label 'GST Use Cases'; - "{A274F11C-332F-4EE3-AC91-2E2D95E9E2B6}Lbl": Label 'GST Use Cases'; - "{F6EB6D82-74A5-413E-BE36-9308F41811A3}Lbl": Label 'GST Use Cases'; - "{7759D07C-F691-4738-8FB8-F682B03DA922}Lbl": Label 'GST Use Cases'; - "{65C755B4-E396-453F-9425-896AFF64D1B3}Lbl": Label 'GST Use Cases'; - "{0D76D452-CCE9-473B-998A-71EDADD459AE}Lbl": Label 'GST Use Cases'; - "{A8B3F6FB-A42D-4767-BD3D-D4C9BB11AEAA}Lbl": Label 'GST Use Cases'; - "{B86AA24C-78CF-4F29-BD88-E17580D6992B}Lbl": Label 'GST Use Cases'; - "{679E7F9F-9AAC-4CC5-A263-904ECC708057}Lbl": Label 'GST Use Cases'; - "{1B2046C2-4264-4272-A998-085B20832B87}Lbl": Label 'GST Use Cases'; - "{998A15E8-B4E6-460E-A89C-239F276E9B3C}Lbl": Label 'GST Use Cases'; - "{FFBADC05-CF47-4787-B31A-EB85F88CACE8}Lbl": Label 'GST Use Cases'; - "{35C8BFED-ED88-46B7-AFE8-9F2C58421857}Lbl": Label 'GST Use Cases'; - "{E0AA74AA-F401-4115-B768-D41BB661B532}Lbl": Label 'GST Use Cases'; - "{51395C06-549D-40B5-98C5-A7F6B73AF427}Lbl": Label 'GST Use Cases'; - "{131AC7D7-6079-4C25-A3A6-CEAC66A6203D}Lbl": Label 'GST Use Cases'; - "{F759EFFB-61F9-4B84-B9CD-01E2616A7B85}Lbl": Label 'GST Use Cases'; - "{F023887D-C599-4FE6-89E7-49C257DC208C}Lbl": Label 'GST Use Cases'; - "{E75A7A67-D332-41BE-B7EA-61C8BF69E9F7}Lbl": Label 'GST Use Cases'; - "{1440B152-A710-4982-86C0-5C27FEF4A7D6}Lbl": Label 'GST Use Cases'; - "{BB48AD27-2942-4C4A-B19C-4A7E76E181DA}Lbl": Label 'GST Use Cases'; - "{d8792403-fbc9-455c-8a3a-c67dafdb6e53}Lbl": Label 'GST Use Cases'; - "{e607f91d-d6e7-459a-801a-cbb9c7f8ce89}Lbl": Label 'GST Use Cases'; - "{aa85ef19-5f94-438e-adc4-a9acf0dcb0c1}Lbl": Label 'GST Use Cases'; - "{4738101c-19e3-418c-a19d-61e67100d199}Lbl": Label 'GST Use Cases'; - "{4e1d5479-c527-4295-a0c1-7d82d94860f6}Lbl": Label 'GST Use Cases'; - "{0628d305-f863-48e9-986e-0570995f7002}Lbl": Label 'GST Use Cases'; - "{f643a772-5ca6-4cc5-913c-9188c52df8e0}Lbl": Label 'GST Use Cases'; - "{0321474a-abd0-45db-8cea-b586a5cb7f49}Lbl": Label 'GST Use Cases'; - "{d22c3484-e0de-473f-9d62-2bb1dd4b10b9}Lbl": Label 'GST Use Cases'; - "{2ff34432-5a9d-4c71-af8b-6dddc92f0a85}Lbl": Label 'GST Use Cases'; - "{fd76eb64-c01a-48c0-9f8e-3ee2e17be515}Lbl": Label 'GST Use Cases'; - "{D500E259-42B6-4346-BA2F-D76ECB9AFEE1}Lbl": Label 'GST Use Cases'; - "{EFF7E856-EF6B-4EC0-9AAE-C2E07B6CB15B}Lbl": Label 'GST Use Cases'; - "{4083d3d9-1f73-48ed-abd1-12c0559d270f}Lbl": Label 'GST Use Cases'; - "{609f72cc-c49f-43f1-ab52-e56ed173368b}Lbl": Label 'GST Use Cases'; - "{7F8B0021-4099-48C9-80BB-D977917CEA9E}Lbl": Label 'GST Use Cases'; - "{882cb936-42d9-4c2d-bfd9-028d5f5d3337}Lbl": Label 'GST Use Cases'; - "{40065229-e7d9-4c0a-a0eb-5de70dd4e9af}Lbl": Label 'GST Use Cases'; - "{57a0b7f8-e6c5-4cc4-89ad-11a14af3c68b}Lbl": Label 'GST Use Cases'; - "{E62B6029-1BFA-456D-8D43-306AB7C78589}Lbl": Label 'GST Use Cases'; - "{4B114178-6589-41CD-907E-8C46CCDFE895}Lbl": Label 'GST Use Cases'; - "{969F9BE2-D2C0-4DB5-BD38-F9DAC8AB8173}Lbl": Label 'GST Use Cases'; - "{e9ed8cb8-e0bd-4e8a-88a5-1aa7348acf20}Lbl": Label 'GST Use Cases'; - "{e28ed0e6-8917-4d81-ad22-29d13fe94091}Lbl": Label 'GST Use Cases'; - "{e65ce6aa-c447-466e-a3fe-154d3f5a76dc}Lbl": Label 'GST Use Cases'; - "{929eb05f-45b5-4f4f-9dd4-61afab36f21b}Lbl": Label 'GST Use Cases'; - "{a2608a05-d116-4475-b690-a6e26170bc2c}Lbl": Label 'GST Use Cases'; - "{c502f69b-f76d-4d72-b7fc-a272a252590b}Lbl": Label 'GST Use Cases'; - "{7be46e73-ef21-4766-b4f2-34558460a2c9}Lbl": Label 'GST Use Cases'; - "{2c82cf3d-40b2-4fcc-8f04-e649dadd1619}Lbl": Label 'GST Use Cases'; - "{1f930cb5-93a8-4be9-b412-b9b44f1fbe2b}Lbl": Label 'GST Use Cases'; - "{71177393-f102-466e-ac36-1a460bc1c3e9}Lbl": Label 'GST Use Cases'; - "{5fb236fb-7619-48a1-92d0-bd12f5c8a5c0}Lbl": Label 'GST Use Cases'; - "{a030c0c9-951c-4818-8a68-c6d5917c31bf}Lbl": Label 'GST Use Cases'; - "{0bd7bb2e-38e6-4254-82cb-713f429d787c}Lbl": Label 'GST Use Cases'; - "{b66179f8-e62e-45f8-9de3-5351c859f85d}Lbl": Label 'GST Use Cases'; - "{2f7b1f64-56f5-48c9-a6b2-a5f7f2bf8a2f}Lbl": Label 'GST Use Cases'; - "{332a3e45-c1c8-423a-9063-b55efa585045}Lbl": Label 'GST Use Cases'; - "{74e6e05f-641d-4857-8f88-c48783b29b3e}Lbl": Label 'GST Use Cases'; - "{8a58255b-97c9-4691-9dbf-1c041d4433db}Lbl": Label 'GST Use Cases'; - "{8ee30985-1662-4a16-b9b1-2c36589f4f94}Lbl": Label 'GST Use Cases'; - "{1dd024d8-c5d0-44dc-bd2e-3b4a395f33fe}Lbl": Label 'GST Use Cases'; - "{478e0789-2184-4644-8165-3b5169084277}Lbl": Label 'GST Use Cases'; - "{afccc11e-97b1-4627-8dfd-4184537e2509}Lbl": Label 'GST Use Cases'; - "{66a099c8-9660-498e-9beb-61296a76cfaf}Lbl": Label 'GST Use Cases'; - "{8b96f1e1-fc2c-48fd-ad1e-62986961ac0d}Lbl": Label 'GST Use Cases'; - "{cce6e98e-5330-48ba-b42e-70e2bde3e45b}Lbl": Label 'GST Use Cases'; - "{718c2339-648b-4fc6-a496-737b12176d01}Lbl": Label 'GST Use Cases'; - "{0abf122d-4ed5-4820-8411-7c39147b2819}Lbl": Label 'GST Use Cases'; - "{fcc8aa84-e16b-4d3f-a139-946089738fb0}Lbl": Label 'GST Use Cases'; - "{e365b9af-953a-462b-a562-9b494d0b84b9}Lbl": Label 'GST Use Cases'; - "{e6b10245-e536-41cf-a9cc-aa043113f6f4}Lbl": Label 'GST Use Cases'; - "{666a5198-99ba-4ec0-a89a-c991109bbc0f}Lbl": Label 'GST Use Cases'; - "{679f358f-4db0-4587-9f0c-ce643b16a152}Lbl": Label 'GST Use Cases'; - "{e246f7fe-de34-4e3c-bd3b-d8943d9b966c}Lbl": Label 'GST Use Cases'; - "{4fa8a9f3-d8c5-4b20-acb0-f52bfe013a01}Lbl": Label 'GST Use Cases'; - "{cd837506-8d55-4e71-8576-fa6b9934a6bb}Lbl": Label 'GST Use Cases'; - "{2a0e0c4e-331f-42b3-96d2-f9cff01e6fc1}Lbl": Label 'GST Use Cases'; - "{c4dd33b4-d4db-4f30-8c86-e2045b473c57}Lbl": Label 'GST Use Cases'; - "{bfb5b4f3-bbc1-4a5b-9b7c-c3572578cd78}Lbl": Label 'GST Use Cases'; - "{38f58d78-84d4-40d9-be77-cd33c02b49af}Lbl": Label 'GST Use Cases'; - "{38583b1e-682c-4b06-bb69-005849014e82}Lbl": Label 'GST Use Cases'; - "{0e9f08c2-7cf2-4ac1-afb4-57ac8383e732}Lbl": Label 'GST Use Cases'; - "{3a542488-e9a7-41e5-bf0b-c73f9c82a8db}Lbl": Label 'GST Use Cases'; - "{c85088e3-672f-4f2e-b1ef-19cbdfa5460b}Lbl": Label 'GST Use Cases'; - "{d2457d2f-2b0e-4f56-bf93-007e245c4ff8}Lbl": Label 'GST Use Cases'; - "{6a0a47a2-4a0f-4ccd-ac63-a70c76e05091}Lbl": Label 'GST Use Cases'; - "{e5053eeb-44d1-4552-8084-67d72a90cecb}Lbl": Label 'GST Use Cases'; - "{1eb264e9-24dd-43ec-a17f-e623bf565203}Lbl": Label 'GST Use Cases'; - "{03418ffd-0af9-48f5-a500-ec48bf9de4e5}Lbl": Label 'GST Use Cases'; - "{da3fc765-67aa-4232-8c30-6ce3e6e6dfdc}Lbl": Label 'GST Use Cases'; - "{714e77d3-c569-418a-a932-dbff272d3b92}Lbl": Label 'GST Use Cases'; - "{d50e350f-963c-4c3c-9e78-08f12ab7d8f0}Lbl": Label 'GST Use Cases'; - "{ffcc9396-d3c4-4a81-bde8-23070bf8976f}Lbl": Label 'GST Use Cases'; - "{21e3248f-92c2-444c-b7e9-b48218ad918a}Lbl": Label 'GST Use Cases'; - "{1988b611-abd4-44c4-9cb5-67bb88e0002c}Lbl": Label 'GST Use Cases'; - "{700cf31e-e4a1-4183-aef6-7c572c34c8ad}Lbl": Label 'GST Use Cases'; - "{13352a4d-eeab-4fea-a778-0bdad73b550c}Lbl": Label 'GST Use Cases'; - "{07ac553c-0e84-41e3-b04a-19b63c3bcf75}Lbl": Label 'GST Use Cases'; - "{2bf5b2fe-2191-416d-b63f-47052716fc1b}Lbl": Label 'GST Use Cases'; - "{df5e22a4-bd3c-4c80-b6d3-9f667c8037dd}Lbl": Label 'GST Use Cases'; - "{8fcf5988-06c7-44e2-a7bd-a5a9b40cdef8}Lbl": Label 'GST Use Cases'; - "{67fecb97-a3fa-4fc9-8a80-e214c3df4ca9}Lbl": Label 'GST Use Cases'; - "{b8a8c947-5ba0-45b4-b8a4-33088f25782f}Lbl": Label 'GST Use Cases'; - "{1A135F44-7A65-49A6-A08A-C87D453E5837}Lbl": Label 'GST Use Cases'; - "{d9172942-78eb-4305-950c-c9dec70f16e6}Lbl": Label 'GST Use Cases'; - "{9d6c4ac2-81d1-47e7-8c7c-494f20f1719f}Lbl": Label 'GST Use Cases'; - "{9cbcec6f-a01b-422b-8aab-4b6bc90ec959}Lbl": Label 'GST Use Cases'; - "{bfcc5c7f-f391-44d5-84f1-1d72dc7a9dec}Lbl": Label 'GST Use Cases'; - "{b95176d6-58ff-487c-a25b-26e433d85356}Lbl": Label 'GST Use Cases'; - "{13e5d66f-422b-4830-992b-39c740d6d560}Lbl": Label 'GST Use Cases'; - "{8e537871-c8f7-4e07-8b32-84411c668443}Lbl": Label 'GST Use Cases'; - "{bc9a772f-dbf9-4f4f-8607-212dc829c005}Lbl": Label 'GST Use Cases'; - "{d7a29410-a685-41b6-a8f9-268d65f062b6}Lbl": Label 'GST Use Cases'; - "{4dc1d2dc-a8f8-4443-a563-348b8e8961c1}Lbl": Label 'GST Use Cases'; - "{85dae7d1-95ac-4fd1-b1e0-5ffd980481bf}Lbl": Label 'GST Use Cases'; - "{0e1a782b-cf1f-4cf0-8797-a1310519b1db}Lbl": Label 'GST Use Cases'; - "{05312e80-be4e-4eb1-9a1e-af55ea4d8e3d}Lbl": Label 'GST Use Cases'; - "{55b6317f-25f3-4c73-8aa5-afa3ec519c88}Lbl": Label 'GST Use Cases'; - "{3e14881b-db97-473e-9a0b-c8a0a2d604c1}Lbl": Label 'GST Use Cases'; - "{0cf4326b-fd68-4ae6-b52a-cd2aa2f2a788}Lbl": Label 'GST Use Cases'; - "{d2c0bc32-d71c-4fec-a3fc-63a0586da3d6}Lbl": Label 'GST Use Cases'; - "{0410bc8a-0231-4947-8ed6-982a68846120}Lbl": Label 'GST Use Cases'; - "{8e20fc81-1137-41b3-a90e-ae86cd66f718}Lbl": Label 'GST Use Cases'; - "{3277542b-b49c-4ccd-b661-f72c71ced698}Lbl": Label 'GST Use Cases'; - "{1bae51d1-ad26-40f8-bfd2-156024a23a7b}Lbl": Label 'GST Use Cases'; - "{364eaba8-df5d-4174-951e-9c9b375830d6}Lbl": Label 'GST Use Cases'; - "{62275f50-6f85-4ea6-aa4f-0bacf20cf65e}Lbl": Label 'GST Use Cases'; - "{ab179237-ef7c-4bb1-9406-46b7b6dd1449}Lbl": Label 'GST Use Cases'; - "{8df66c94-890c-4007-9341-18d0565000fe}Lbl": Label 'GST Use Cases'; - "{DF167294-5878-44C6-9220-01D93BEA09FF}Lbl": Label 'GST Use Cases'; - "{89071509-bf13-4ed5-a45d-8d938dfef265}Lbl": Label 'GST Use Cases'; - "{7bdd3ee0-29ae-4c15-a879-1dbf13ada019}Lbl": Label 'GST Use Cases'; - "{fbedc063-63ea-4fed-a3dd-8b5e175031cd}Lbl": Label 'GST Use Cases'; - "{055aee33-1301-4b59-ba0d-e76d2d542b34}Lbl": Label 'GST Use Cases'; - "{d279be29-1cb8-4f96-ba2c-0348368d0879}Lbl": Label 'GST Use Cases'; - "{f4f11b85-700b-4880-9a73-740ff36c4160}Lbl": Label 'GST Use Cases'; - "{ce65aeff-0248-437e-b8a6-87c60e49efd4}Lbl": Label 'GST Use Cases'; - "{0ebd8b25-3c27-46ae-8cd7-4e870db1315b}Lbl": Label 'GST Use Cases'; - "{97437c0c-3e99-4d15-9378-34ac4b8fd002}Lbl": Label 'GST Use Cases'; - "{9CF523A9-24DB-4928-A3CB-8DC5FCA4AF69}Lbl": Label 'GST Use Cases'; - "{e8b90257-9f0d-42f4-a340-13a648d11829}Lbl": Label 'GST Use Cases'; - "{874048a6-575b-456f-a2e7-26532da3f1ca}Lbl": Label 'GST Use Cases'; - "{9304251b-68e9-41d1-a6fd-00424ab38ee6}Lbl": Label 'GST Use Cases'; - "{7d71fa6f-572e-4c61-b3cb-297e4521e1a9}Lbl": Label 'GST Use Cases'; - "{E587BDAC-2C08-42CA-9657-B3EA423F30E7}Lbl": Label 'GST Use Cases'; - "{F0AB5767-48C9-4F01-A346-D6CAA74EFCED}Lbl": Label 'GST Use Cases'; - "{7C76E97A-E248-4CFE-82A9-18EB754ED886}Lbl": Label 'GST Use Cases'; - "{A5676558-7FDC-4CEC-B562-37829B285BE3}Lbl": Label 'GST Use Cases'; - "{e2d6e80e-d1e5-43fc-a060-2dee839cbba8}Lbl": Label 'GST Use Cases'; - "{c246affb-b99e-4d9b-8278-39a30cc7e26f}Lbl": Label 'GST Use Cases'; - "{486c52cb-591d-4538-9b21-505cb3f7ad9a}Lbl": Label 'GST Use Cases'; - "{687fe3eb-c604-4e95-a9a8-c231edb2d269}Lbl": Label 'GST Use Cases'; - "{f5f82273-fcf2-4165-a7a8-c46d44f45d4b}Lbl": Label 'GST Use Cases'; - "{1dd2dee4-08e3-42a8-b120-d28fc546f0a3}Lbl": Label 'GST Use Cases'; - begin - Handled := true; - - case CaseID of - '{5577B8ED-6471-4480-AD5A-63BA31696AB7}': - exit("{5577B8ED-6471-4480-AD5A-63BA31696AB7}Lbl"); - '{A274F11C-332F-4EE3-AC91-2E2D95E9E2B6}': - exit("{A274F11C-332F-4EE3-AC91-2E2D95E9E2B6}Lbl"); - '{F6EB6D82-74A5-413E-BE36-9308F41811A3}': - exit("{F6EB6D82-74A5-413E-BE36-9308F41811A3}Lbl"); - '{7759D07C-F691-4738-8FB8-F682B03DA922}': - exit("{7759D07C-F691-4738-8FB8-F682B03DA922}Lbl"); - '{65C755B4-E396-453F-9425-896AFF64D1B3}': - exit("{65C755B4-E396-453F-9425-896AFF64D1B3}Lbl"); - '{0D76D452-CCE9-473B-998A-71EDADD459AE}': - exit("{0D76D452-CCE9-473B-998A-71EDADD459AE}Lbl"); - '{A8B3F6FB-A42D-4767-BD3D-D4C9BB11AEAA}': - exit("{A8B3F6FB-A42D-4767-BD3D-D4C9BB11AEAA}Lbl"); - '{B86AA24C-78CF-4F29-BD88-E17580D6992B}': - exit("{B86AA24C-78CF-4F29-BD88-E17580D6992B}Lbl"); - '{679E7F9F-9AAC-4CC5-A263-904ECC708057}': - exit("{679E7F9F-9AAC-4CC5-A263-904ECC708057}Lbl"); - '{1B2046C2-4264-4272-A998-085B20832B87}': - exit("{1B2046C2-4264-4272-A998-085B20832B87}Lbl"); - '{998A15E8-B4E6-460E-A89C-239F276E9B3C}': - exit("{998A15E8-B4E6-460E-A89C-239F276E9B3C}Lbl"); - end; - case CaseID of - '{FFBADC05-CF47-4787-B31A-EB85F88CACE8}': - exit("{FFBADC05-CF47-4787-B31A-EB85F88CACE8}Lbl"); - '{35C8BFED-ED88-46B7-AFE8-9F2C58421857}': - exit("{35C8BFED-ED88-46B7-AFE8-9F2C58421857}Lbl"); - '{E0AA74AA-F401-4115-B768-D41BB661B532}': - exit("{E0AA74AA-F401-4115-B768-D41BB661B532}Lbl"); - '{51395C06-549D-40B5-98C5-A7F6B73AF427}': - exit("{51395C06-549D-40B5-98C5-A7F6B73AF427}Lbl"); - '{131AC7D7-6079-4C25-A3A6-CEAC66A6203D}': - exit("{131AC7D7-6079-4C25-A3A6-CEAC66A6203D}Lbl"); - '{F759EFFB-61F9-4B84-B9CD-01E2616A7B85}': - exit("{F759EFFB-61F9-4B84-B9CD-01E2616A7B85}Lbl"); - '{F023887D-C599-4FE6-89E7-49C257DC208C}': - exit("{F023887D-C599-4FE6-89E7-49C257DC208C}Lbl"); - '{E75A7A67-D332-41BE-B7EA-61C8BF69E9F7}': - exit("{E75A7A67-D332-41BE-B7EA-61C8BF69E9F7}Lbl"); - '{1440B152-A710-4982-86C0-5C27FEF4A7D6}': - exit("{1440B152-A710-4982-86C0-5C27FEF4A7D6}Lbl"); - '{BB48AD27-2942-4C4A-B19C-4A7E76E181DA}': - exit("{BB48AD27-2942-4C4A-B19C-4A7E76E181DA}Lbl"); - '{d8792403-fbc9-455c-8a3a-c67dafdb6e53}': - exit("{d8792403-fbc9-455c-8a3a-c67dafdb6e53}Lbl"); - '{e607f91d-d6e7-459a-801a-cbb9c7f8ce89}': - exit("{e607f91d-d6e7-459a-801a-cbb9c7f8ce89}Lbl"); - '{aa85ef19-5f94-438e-adc4-a9acf0dcb0c1}': - exit("{aa85ef19-5f94-438e-adc4-a9acf0dcb0c1}Lbl"); - '{4738101c-19e3-418c-a19d-61e67100d199}': - exit("{4738101c-19e3-418c-a19d-61e67100d199}Lbl"); - '{4e1d5479-c527-4295-a0c1-7d82d94860f6}': - exit("{4e1d5479-c527-4295-a0c1-7d82d94860f6}Lbl"); - end; - case CaseID of - '{0628d305-f863-48e9-986e-0570995f7002}': - exit("{0628d305-f863-48e9-986e-0570995f7002}Lbl"); - '{f643a772-5ca6-4cc5-913c-9188c52df8e0}': - exit("{f643a772-5ca6-4cc5-913c-9188c52df8e0}Lbl"); - '{0321474a-abd0-45db-8cea-b586a5cb7f49}': - exit("{0321474a-abd0-45db-8cea-b586a5cb7f49}Lbl"); - '{d22c3484-e0de-473f-9d62-2bb1dd4b10b9}': - exit("{d22c3484-e0de-473f-9d62-2bb1dd4b10b9}Lbl"); - '{2ff34432-5a9d-4c71-af8b-6dddc92f0a85}': - exit("{2ff34432-5a9d-4c71-af8b-6dddc92f0a85}Lbl"); - '{fd76eb64-c01a-48c0-9f8e-3ee2e17be515}': - exit("{fd76eb64-c01a-48c0-9f8e-3ee2e17be515}Lbl"); - '{D500E259-42B6-4346-BA2F-D76ECB9AFEE1}': - exit("{D500E259-42B6-4346-BA2F-D76ECB9AFEE1}Lbl"); - '{EFF7E856-EF6B-4EC0-9AAE-C2E07B6CB15B}': - exit("{EFF7E856-EF6B-4EC0-9AAE-C2E07B6CB15B}Lbl"); - '{4083d3d9-1f73-48ed-abd1-12c0559d270f}': - exit("{4083d3d9-1f73-48ed-abd1-12c0559d270f}Lbl"); - '{609f72cc-c49f-43f1-ab52-e56ed173368b}': - exit("{609f72cc-c49f-43f1-ab52-e56ed173368b}Lbl"); - '{7F8B0021-4099-48C9-80BB-D977917CEA9E}': - exit("{7F8B0021-4099-48C9-80BB-D977917CEA9E}Lbl"); - end; - case CaseID of - '{882cb936-42d9-4c2d-bfd9-028d5f5d3337}': - exit("{882cb936-42d9-4c2d-bfd9-028d5f5d3337}Lbl"); - '{40065229-e7d9-4c0a-a0eb-5de70dd4e9af}': - exit("{40065229-e7d9-4c0a-a0eb-5de70dd4e9af}Lbl"); - '{57a0b7f8-e6c5-4cc4-89ad-11a14af3c68b}': - exit("{57a0b7f8-e6c5-4cc4-89ad-11a14af3c68b}Lbl"); - '{E62B6029-1BFA-456D-8D43-306AB7C78589}': - exit("{E62B6029-1BFA-456D-8D43-306AB7C78589}Lbl"); - '{4B114178-6589-41CD-907E-8C46CCDFE895}': - exit("{4B114178-6589-41CD-907E-8C46CCDFE895}Lbl"); - '{969F9BE2-D2C0-4DB5-BD38-F9DAC8AB8173}': - exit("{969F9BE2-D2C0-4DB5-BD38-F9DAC8AB8173}Lbl"); - '{e9ed8cb8-e0bd-4e8a-88a5-1aa7348acf20}': - exit("{e9ed8cb8-e0bd-4e8a-88a5-1aa7348acf20}Lbl"); - '{e28ed0e6-8917-4d81-ad22-29d13fe94091}': - exit("{e28ed0e6-8917-4d81-ad22-29d13fe94091}Lbl"); - '{e65ce6aa-c447-466e-a3fe-154d3f5a76dc}': - exit("{e65ce6aa-c447-466e-a3fe-154d3f5a76dc}Lbl"); - '{929eb05f-45b5-4f4f-9dd4-61afab36f21b}': - exit("{929eb05f-45b5-4f4f-9dd4-61afab36f21b}Lbl"); - '{a2608a05-d116-4475-b690-a6e26170bc2c}': - exit("{a2608a05-d116-4475-b690-a6e26170bc2c}Lbl"); - '{c502f69b-f76d-4d72-b7fc-a272a252590b}': - exit("{c502f69b-f76d-4d72-b7fc-a272a252590b}Lbl"); - '{7be46e73-ef21-4766-b4f2-34558460a2c9}': - exit("{7be46e73-ef21-4766-b4f2-34558460a2c9}Lbl"); - end; - - case CaseID of - '{2c82cf3d-40b2-4fcc-8f04-e649dadd1619}': - exit("{2c82cf3d-40b2-4fcc-8f04-e649dadd1619}Lbl"); - '{1f930cb5-93a8-4be9-b412-b9b44f1fbe2b}': - exit("{1f930cb5-93a8-4be9-b412-b9b44f1fbe2b}Lbl"); - '{71177393-f102-466e-ac36-1a460bc1c3e9}': - exit("{71177393-f102-466e-ac36-1a460bc1c3e9}Lbl"); - '{5fb236fb-7619-48a1-92d0-bd12f5c8a5c0}': - exit("{5fb236fb-7619-48a1-92d0-bd12f5c8a5c0}Lbl"); - '{a030c0c9-951c-4818-8a68-c6d5917c31bf}': - exit("{a030c0c9-951c-4818-8a68-c6d5917c31bf}Lbl"); - '{0bd7bb2e-38e6-4254-82cb-713f429d787c}': - exit("{0bd7bb2e-38e6-4254-82cb-713f429d787c}Lbl"); - '{b66179f8-e62e-45f8-9de3-5351c859f85d}': - exit("{b66179f8-e62e-45f8-9de3-5351c859f85d}Lbl"); - '{2f7b1f64-56f5-48c9-a6b2-a5f7f2bf8a2f}': - exit("{2f7b1f64-56f5-48c9-a6b2-a5f7f2bf8a2f}Lbl"); - '{332a3e45-c1c8-423a-9063-b55efa585045}': - exit("{332a3e45-c1c8-423a-9063-b55efa585045}Lbl"); - '{74e6e05f-641d-4857-8f88-c48783b29b3e}': - exit("{74e6e05f-641d-4857-8f88-c48783b29b3e}Lbl"); - end; - - case CaseID of - '{8a58255b-97c9-4691-9dbf-1c041d4433db}': - exit("{8a58255b-97c9-4691-9dbf-1c041d4433db}Lbl"); - '{8ee30985-1662-4a16-b9b1-2c36589f4f94}': - exit("{8ee30985-1662-4a16-b9b1-2c36589f4f94}Lbl"); - '{1dd024d8-c5d0-44dc-bd2e-3b4a395f33fe}': - exit("{1dd024d8-c5d0-44dc-bd2e-3b4a395f33fe}Lbl"); - '{478e0789-2184-4644-8165-3b5169084277}': - exit("{478e0789-2184-4644-8165-3b5169084277}Lbl"); - '{afccc11e-97b1-4627-8dfd-4184537e2509}': - exit("{afccc11e-97b1-4627-8dfd-4184537e2509}Lbl"); - '{66a099c8-9660-498e-9beb-61296a76cfaf}': - exit("{66a099c8-9660-498e-9beb-61296a76cfaf}Lbl"); - '{8b96f1e1-fc2c-48fd-ad1e-62986961ac0d}': - exit("{8b96f1e1-fc2c-48fd-ad1e-62986961ac0d}Lbl"); - '{cce6e98e-5330-48ba-b42e-70e2bde3e45b}': - exit("{cce6e98e-5330-48ba-b42e-70e2bde3e45b}Lbl"); - '{718c2339-648b-4fc6-a496-737b12176d01}': - exit("{718c2339-648b-4fc6-a496-737b12176d01}Lbl"); - '{0abf122d-4ed5-4820-8411-7c39147b2819}': - exit("{0abf122d-4ed5-4820-8411-7c39147b2819}Lbl"); - end; - - case CaseID of - '{fcc8aa84-e16b-4d3f-a139-946089738fb0}': - exit("{fcc8aa84-e16b-4d3f-a139-946089738fb0}Lbl"); - '{e365b9af-953a-462b-a562-9b494d0b84b9}': - exit("{e365b9af-953a-462b-a562-9b494d0b84b9}Lbl"); - '{e6b10245-e536-41cf-a9cc-aa043113f6f4}': - exit("{e6b10245-e536-41cf-a9cc-aa043113f6f4}Lbl"); - '{666a5198-99ba-4ec0-a89a-c991109bbc0f}': - exit("{666a5198-99ba-4ec0-a89a-c991109bbc0f}Lbl"); - '{679f358f-4db0-4587-9f0c-ce643b16a152}': - exit("{679f358f-4db0-4587-9f0c-ce643b16a152}Lbl"); - '{e246f7fe-de34-4e3c-bd3b-d8943d9b966c}': - exit("{e246f7fe-de34-4e3c-bd3b-d8943d9b966c}Lbl"); - '{4fa8a9f3-d8c5-4b20-acb0-f52bfe013a01}': - exit("{4fa8a9f3-d8c5-4b20-acb0-f52bfe013a01}Lbl"); - '{cd837506-8d55-4e71-8576-fa6b9934a6bb}': - exit("{cd837506-8d55-4e71-8576-fa6b9934a6bb}Lbl"); - '{2a0e0c4e-331f-42b3-96d2-f9cff01e6fc1}': - exit("{2a0e0c4e-331f-42b3-96d2-f9cff01e6fc1}Lbl"); - '{c4dd33b4-d4db-4f30-8c86-e2045b473c57}': - exit("{c4dd33b4-d4db-4f30-8c86-e2045b473c57}Lbl"); - end; - - case CaseID of - '{bfb5b4f3-bbc1-4a5b-9b7c-c3572578cd78}': - exit("{bfb5b4f3-bbc1-4a5b-9b7c-c3572578cd78}Lbl"); - '{38f58d78-84d4-40d9-be77-cd33c02b49af}': - exit("{38f58d78-84d4-40d9-be77-cd33c02b49af}Lbl"); - '{38583b1e-682c-4b06-bb69-005849014e82}': - exit("{38583b1e-682c-4b06-bb69-005849014e82}Lbl"); - '{0e9f08c2-7cf2-4ac1-afb4-57ac8383e732}': - exit("{0e9f08c2-7cf2-4ac1-afb4-57ac8383e732}Lbl"); - '{3a542488-e9a7-41e5-bf0b-c73f9c82a8db}': - exit("{3a542488-e9a7-41e5-bf0b-c73f9c82a8db}Lbl"); - '{c85088e3-672f-4f2e-b1ef-19cbdfa5460b}': - exit("{c85088e3-672f-4f2e-b1ef-19cbdfa5460b}Lbl"); - '{d2457d2f-2b0e-4f56-bf93-007e245c4ff8}': - exit("{d2457d2f-2b0e-4f56-bf93-007e245c4ff8}Lbl"); - '{6a0a47a2-4a0f-4ccd-ac63-a70c76e05091}': - exit("{6a0a47a2-4a0f-4ccd-ac63-a70c76e05091}Lbl"); - '{e5053eeb-44d1-4552-8084-67d72a90cecb}': - exit("{e5053eeb-44d1-4552-8084-67d72a90cecb}Lbl"); - '{1eb264e9-24dd-43ec-a17f-e623bf565203}': - exit("{1eb264e9-24dd-43ec-a17f-e623bf565203}Lbl"); - end; - - case CaseID of - '{03418ffd-0af9-48f5-a500-ec48bf9de4e5}': - exit("{03418ffd-0af9-48f5-a500-ec48bf9de4e5}Lbl"); - '{da3fc765-67aa-4232-8c30-6ce3e6e6dfdc}': - exit("{da3fc765-67aa-4232-8c30-6ce3e6e6dfdc}Lbl"); - '{714e77d3-c569-418a-a932-dbff272d3b92}': - exit("{714e77d3-c569-418a-a932-dbff272d3b92}Lbl"); - '{d50e350f-963c-4c3c-9e78-08f12ab7d8f0}': - exit("{d50e350f-963c-4c3c-9e78-08f12ab7d8f0}Lbl"); - '{ffcc9396-d3c4-4a81-bde8-23070bf8976f}': - exit("{ffcc9396-d3c4-4a81-bde8-23070bf8976f}Lbl"); - '{21e3248f-92c2-444c-b7e9-b48218ad918a}': - exit("{21e3248f-92c2-444c-b7e9-b48218ad918a}Lbl"); - '{1988b611-abd4-44c4-9cb5-67bb88e0002c}': - exit("{1988b611-abd4-44c4-9cb5-67bb88e0002c}Lbl"); - '{700cf31e-e4a1-4183-aef6-7c572c34c8ad}': - exit("{700cf31e-e4a1-4183-aef6-7c572c34c8ad}Lbl"); - '{13352a4d-eeab-4fea-a778-0bdad73b550c}': - exit("{13352a4d-eeab-4fea-a778-0bdad73b550c}Lbl"); - '{07ac553c-0e84-41e3-b04a-19b63c3bcf75}': - exit("{07ac553c-0e84-41e3-b04a-19b63c3bcf75}Lbl"); - '{2bf5b2fe-2191-416d-b63f-47052716fc1b}': - exit("{2bf5b2fe-2191-416d-b63f-47052716fc1b}Lbl"); - '{df5e22a4-bd3c-4c80-b6d3-9f667c8037dd}': - exit("{df5e22a4-bd3c-4c80-b6d3-9f667c8037dd}Lbl"); - '{8fcf5988-06c7-44e2-a7bd-a5a9b40cdef8}': - exit("{8fcf5988-06c7-44e2-a7bd-a5a9b40cdef8}Lbl"); - '{67fecb97-a3fa-4fc9-8a80-e214c3df4ca9}': - exit("{67fecb97-a3fa-4fc9-8a80-e214c3df4ca9}Lbl"); - end; - - case CaseID of - '{b8a8c947-5ba0-45b4-b8a4-33088f25782f}': - exit("{b8a8c947-5ba0-45b4-b8a4-33088f25782f}Lbl"); - '{1A135F44-7A65-49A6-A08A-C87D453E5837}': - exit("{1A135F44-7A65-49A6-A08A-C87D453E5837}Lbl"); - '{d9172942-78eb-4305-950c-c9dec70f16e6}': - exit("{d9172942-78eb-4305-950c-c9dec70f16e6}Lbl"); - '{9d6c4ac2-81d1-47e7-8c7c-494f20f1719f}': - exit("{9d6c4ac2-81d1-47e7-8c7c-494f20f1719f}Lbl"); - '{9cbcec6f-a01b-422b-8aab-4b6bc90ec959}': - exit("{9cbcec6f-a01b-422b-8aab-4b6bc90ec959}Lbl"); - '{bfcc5c7f-f391-44d5-84f1-1d72dc7a9dec}': - exit("{bfcc5c7f-f391-44d5-84f1-1d72dc7a9dec}Lbl"); - '{b95176d6-58ff-487c-a25b-26e433d85356}': - exit("{b95176d6-58ff-487c-a25b-26e433d85356}Lbl"); - '{13e5d66f-422b-4830-992b-39c740d6d560}': - exit("{13e5d66f-422b-4830-992b-39c740d6d560}Lbl"); - '{8e537871-c8f7-4e07-8b32-84411c668443}': - exit("{8e537871-c8f7-4e07-8b32-84411c668443}Lbl"); - '{bc9a772f-dbf9-4f4f-8607-212dc829c005}': - exit("{bc9a772f-dbf9-4f4f-8607-212dc829c005}Lbl"); - end; - - case CaseID of - '{d7a29410-a685-41b6-a8f9-268d65f062b6}': - exit("{d7a29410-a685-41b6-a8f9-268d65f062b6}Lbl"); - '{4dc1d2dc-a8f8-4443-a563-348b8e8961c1}': - exit("{4dc1d2dc-a8f8-4443-a563-348b8e8961c1}Lbl"); - '{85dae7d1-95ac-4fd1-b1e0-5ffd980481bf}': - exit("{85dae7d1-95ac-4fd1-b1e0-5ffd980481bf}Lbl"); - '{0e1a782b-cf1f-4cf0-8797-a1310519b1db}': - exit("{0e1a782b-cf1f-4cf0-8797-a1310519b1db}Lbl"); - '{05312e80-be4e-4eb1-9a1e-af55ea4d8e3d}': - exit("{05312e80-be4e-4eb1-9a1e-af55ea4d8e3d}Lbl"); - '{55b6317f-25f3-4c73-8aa5-afa3ec519c88}': - exit("{55b6317f-25f3-4c73-8aa5-afa3ec519c88}Lbl"); - '{3e14881b-db97-473e-9a0b-c8a0a2d604c1}': - exit("{3e14881b-db97-473e-9a0b-c8a0a2d604c1}Lbl"); - '{0cf4326b-fd68-4ae6-b52a-cd2aa2f2a788}': - exit("{0cf4326b-fd68-4ae6-b52a-cd2aa2f2a788}Lbl"); - '{d2c0bc32-d71c-4fec-a3fc-63a0586da3d6}': - exit("{d2c0bc32-d71c-4fec-a3fc-63a0586da3d6}Lbl"); - '{0410bc8a-0231-4947-8ed6-982a68846120}': - exit("{0410bc8a-0231-4947-8ed6-982a68846120}Lbl"); - '{8e20fc81-1137-41b3-a90e-ae86cd66f718}': - exit("{8e20fc81-1137-41b3-a90e-ae86cd66f718}Lbl"); - '{3277542b-b49c-4ccd-b661-f72c71ced698}': - exit("{3277542b-b49c-4ccd-b661-f72c71ced698}Lbl"); - end; - - case CaseID of - '{1bae51d1-ad26-40f8-bfd2-156024a23a7b}': - exit("{1bae51d1-ad26-40f8-bfd2-156024a23a7b}Lbl"); - '{364eaba8-df5d-4174-951e-9c9b375830d6}': - exit("{364eaba8-df5d-4174-951e-9c9b375830d6}Lbl"); - '{62275f50-6f85-4ea6-aa4f-0bacf20cf65e}': - exit("{62275f50-6f85-4ea6-aa4f-0bacf20cf65e}Lbl"); - '{ab179237-ef7c-4bb1-9406-46b7b6dd1449}': - exit("{ab179237-ef7c-4bb1-9406-46b7b6dd1449}Lbl"); - '{8df66c94-890c-4007-9341-18d0565000fe}': - exit("{8df66c94-890c-4007-9341-18d0565000fe}Lbl"); - '{DF167294-5878-44C6-9220-01D93BEA09FF}': - exit("{DF167294-5878-44C6-9220-01D93BEA09FF}Lbl"); - '{89071509-bf13-4ed5-a45d-8d938dfef265}': - exit("{89071509-bf13-4ed5-a45d-8d938dfef265}Lbl"); - '{7bdd3ee0-29ae-4c15-a879-1dbf13ada019}': - exit("{7bdd3ee0-29ae-4c15-a879-1dbf13ada019}Lbl"); - '{fbedc063-63ea-4fed-a3dd-8b5e175031cd}': - exit("{fbedc063-63ea-4fed-a3dd-8b5e175031cd}Lbl"); - '{055aee33-1301-4b59-ba0d-e76d2d542b34}': - exit("{055aee33-1301-4b59-ba0d-e76d2d542b34}Lbl"); - '{d279be29-1cb8-4f96-ba2c-0348368d0879}': - exit("{d279be29-1cb8-4f96-ba2c-0348368d0879}Lbl"); - '{f4f11b85-700b-4880-9a73-740ff36c4160}': - exit("{f4f11b85-700b-4880-9a73-740ff36c4160}Lbl"); - '{ce65aeff-0248-437e-b8a6-87c60e49efd4}': - exit("{ce65aeff-0248-437e-b8a6-87c60e49efd4}Lbl"); - '{0ebd8b25-3c27-46ae-8cd7-4e870db1315b}': - exit("{0ebd8b25-3c27-46ae-8cd7-4e870db1315b}Lbl"); - '{97437c0c-3e99-4d15-9378-34ac4b8fd002}': - exit("{97437c0c-3e99-4d15-9378-34ac4b8fd002}Lbl"); - end; - - case CaseID of - '{9CF523A9-24DB-4928-A3CB-8DC5FCA4AF69}': - exit("{9CF523A9-24DB-4928-A3CB-8DC5FCA4AF69}Lbl"); - '{e8b90257-9f0d-42f4-a340-13a648d11829}': - exit("{e8b90257-9f0d-42f4-a340-13a648d11829}Lbl"); - '{874048a6-575b-456f-a2e7-26532da3f1ca}': - exit("{874048a6-575b-456f-a2e7-26532da3f1ca}Lbl"); - '{9304251b-68e9-41d1-a6fd-00424ab38ee6}': - exit("{9304251b-68e9-41d1-a6fd-00424ab38ee6}Lbl"); - '{7d71fa6f-572e-4c61-b3cb-297e4521e1a9}': - exit("{7d71fa6f-572e-4c61-b3cb-297e4521e1a9}Lbl"); - '{E587BDAC-2C08-42CA-9657-B3EA423F30E7}': - exit("{E587BDAC-2C08-42CA-9657-B3EA423F30E7}Lbl"); - '{F0AB5767-48C9-4F01-A346-D6CAA74EFCED}': - exit("{F0AB5767-48C9-4F01-A346-D6CAA74EFCED}Lbl"); - '{7C76E97A-E248-4CFE-82A9-18EB754ED886}': - exit("{7C76E97A-E248-4CFE-82A9-18EB754ED886}Lbl"); - '{A5676558-7FDC-4CEC-B562-37829B285BE3}': - exit("{A5676558-7FDC-4CEC-B562-37829B285BE3}Lbl"); - '{e2d6e80e-d1e5-43fc-a060-2dee839cbba8}': - exit("{e2d6e80e-d1e5-43fc-a060-2dee839cbba8}Lbl"); - '{c246affb-b99e-4d9b-8278-39a30cc7e26f}': - exit("{c246affb-b99e-4d9b-8278-39a30cc7e26f}Lbl"); - '{486c52cb-591d-4538-9b21-505cb3f7ad9a}': - exit("{486c52cb-591d-4538-9b21-505cb3f7ad9a}Lbl"); - '{687fe3eb-c604-4e95-a9a8-c231edb2d269}': - exit("{687fe3eb-c604-4e95-a9a8-c231edb2d269}Lbl"); - '{f5f82273-fcf2-4165-a7a8-c46d44f45d4b}': - exit("{f5f82273-fcf2-4165-a7a8-c46d44f45d4b}Lbl"); - '{1dd2dee4-08e3-42a8-b120-d28fc546f0a3}': - exit("{1dd2dee4-08e3-42a8-b120-d28fc546f0a3}Lbl"); - end; - - Handled := false; - end; -} -#endif diff --git a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/UpgradeGSTTaxConfig.Codeunit.al b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/UpgradeGSTTaxConfig.Codeunit.al index 6c4ec28b411..0cca6663b69 100644 --- a/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/UpgradeGSTTaxConfig.Codeunit.al +++ b/src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/UpgradeGSTTaxConfig.Codeunit.al @@ -34,13 +34,6 @@ codeunit 18016 "Upgrade GST Tax Config" TaxBaseTaxEngineSetup.UpgradeUseCaseTree(); end; -#if not CLEAN27 - [Obsolete('The event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnUpgradeGSTUseCases(CaseID: Guid; var UseCaseConfig: Text; var IsHandled: Boolean) - begin - end; -#endif var GSTTaxConfiguration: Codeunit "GST Tax Configuration"; } diff --git a/src/Apps/IN/INGST/app/GSTPurchase/src/Codeunit/GSTPurchaseSubscribers.codeunit.al b/src/Apps/IN/INGST/app/GSTPurchase/src/Codeunit/GSTPurchaseSubscribers.codeunit.al index 3608a556ea5..80afb51473c 100644 --- a/src/Apps/IN/INGST/app/GSTPurchase/src/Codeunit/GSTPurchaseSubscribers.codeunit.al +++ b/src/Apps/IN/INGST/app/GSTPurchase/src/Codeunit/GSTPurchaseSubscribers.codeunit.al @@ -828,7 +828,7 @@ codeunit 18080 "GST Purchase Subscribers" begin PurchaseLine.SetRange("Document Type", DocumentType); PurchaseLine.SetRange("Document No.", DocumentNo); - if PurchaseLine.FindSet(true, false) then + if PurchaseLine.FindSet(true) then repeat PurchaseLine.Supplementary := Supplementary; PurchaseLine.Modify(true); diff --git a/src/Apps/IN/INGST/app/GSTSales/src/Codeunit/GSTSalesValidation.Codeunit.al b/src/Apps/IN/INGST/app/GSTSales/src/Codeunit/GSTSalesValidation.Codeunit.al index 1436dae3537..ab69e93bc6a 100644 --- a/src/Apps/IN/INGST/app/GSTSales/src/Codeunit/GSTSalesValidation.Codeunit.al +++ b/src/Apps/IN/INGST/app/GSTSales/src/Codeunit/GSTSalesValidation.Codeunit.al @@ -1006,7 +1006,7 @@ codeunit 18143 "GST Sales Validation" begin SalesLine.SetRange("Document Type", SalesHeader."Document Type"); SalesLine.SetRange("Document No.", SalesHeader."No."); - if SalesLine.FindSet(true, false) then + if SalesLine.FindSet(true) then repeat SalesLine."Invoice Type" := SalesHeader."Invoice Type"; SalesLine.Modify(true); diff --git a/src/Apps/IN/INGST/app/GSTServiceTransfer/src/codeunit/ServiceTransferPost.codeunit.al b/src/Apps/IN/INGST/app/GSTServiceTransfer/src/codeunit/ServiceTransferPost.codeunit.al index a9ea111f1da..ca122dcbcd8 100644 --- a/src/Apps/IN/INGST/app/GSTServiceTransfer/src/codeunit/ServiceTransferPost.codeunit.al +++ b/src/Apps/IN/INGST/app/GSTServiceTransfer/src/codeunit/ServiceTransferPost.codeunit.al @@ -201,7 +201,7 @@ codeunit 18350 "Service Transfer Post" ServiceTransferLine.SetRange("Document No.", ServiceTransferHeader."No."); ServiceTransferLine.SetFilter("Transfer From G/L Account No.", '<>%1', ''); - if ServiceTransferLine.FindSet(true, false) then + if ServiceTransferLine.FindSet(true) then repeat InsertDetailedGSTLedgEntryServiceTransfer( ServiceTransferLine, ServiceTransferHeader, diff --git a/src/Apps/IN/INReports/app/src/report/PurchaseDocumentTestGST.Report.al b/src/Apps/IN/INReports/app/src/report/PurchaseDocumentTestGST.Report.al index 410b2dc9473..1725d8f0818 100644 --- a/src/Apps/IN/INReports/app/src/report/PurchaseDocumentTestGST.Report.al +++ b/src/Apps/IN/INReports/app/src/report/PurchaseDocumentTestGST.Report.al @@ -2340,7 +2340,7 @@ report 18022 "Purchase Document - Test GST" if PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None then OldVendLedgEntry.SetRange("Currency Code", "Purchase Header"."Currency Code"); - if OldVendLedgEntry.FindSet(false, false) then + if OldVendLedgEntry.FindSet() then repeat AppliedAmountLCY := Abs(AppliedAmountLCY); if RemainingAmount > 0 then diff --git a/src/Apps/IN/INReports/app/src/report/SalesInvoiceINGST.Report.al b/src/Apps/IN/INReports/app/src/report/SalesInvoiceINGST.Report.al index af66af0bb6d..29e79d744be 100644 --- a/src/Apps/IN/INReports/app/src/report/SalesInvoiceINGST.Report.al +++ b/src/Apps/IN/INReports/app/src/report/SalesInvoiceINGST.Report.al @@ -877,11 +877,7 @@ report 18016 "Sales - Invoice IN GST" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopy) + Cust."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopy) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; diff --git a/src/Apps/IN/INVoucherInterface/app/src/codeunit/CheckManagementSubscriber.Codeunit.al b/src/Apps/IN/INVoucherInterface/app/src/codeunit/CheckManagementSubscriber.Codeunit.al index 74de4f7c7f1..e0bc550a3f4 100644 --- a/src/Apps/IN/INVoucherInterface/app/src/codeunit/CheckManagementSubscriber.Codeunit.al +++ b/src/Apps/IN/INVoucherInterface/app/src/codeunit/CheckManagementSubscriber.Codeunit.al @@ -212,7 +212,7 @@ codeunit 18970 "Check Management Subscriber" GenJournalLine."Financial Void" := true; GenJnlPostLine.UnapplyCustLedgEntry(GenJournalLine, PaymentDetailedCustLedgEntry); - if OrigPaymentCustLedgerEntry.FindSet(true, false) then + if OrigPaymentCustLedgerEntry.FindSet(true) then repeat MakeAppliesID(AppliesID, CheckLedgerEntry."Document No."); OrigPaymentCustLedgerEntry."Applies-to ID" := AppliesID; @@ -532,7 +532,7 @@ codeunit 18970 "Check Management Subscriber" GenJournalLine."Financial Void" := true; GenJnlPostLine.UnapplyVendLedgEntry(GenJournalLine, PayDetailedVendorLedgEntry); - OrigPaymentVendorLedgerEntry.FindSet(true, false); + OrigPaymentVendorLedgerEntry.FindSet(true); repeat MakeAppliesID(AppliesID, CheckLedgerEntry."Document No."); OrigPaymentVendorLedgerEntry."Applies-to ID" := AppliesID; diff --git a/src/Apps/IN/INVoucherInterface/test/src/LibraryVoucherInterface.Codeunit.al b/src/Apps/IN/INVoucherInterface/test/src/LibraryVoucherInterface.Codeunit.al index 6322180abb8..dbe1df960b2 100644 --- a/src/Apps/IN/INVoucherInterface/test/src/LibraryVoucherInterface.Codeunit.al +++ b/src/Apps/IN/INVoucherInterface/test/src/LibraryVoucherInterface.Codeunit.al @@ -23,7 +23,7 @@ codeunit 18995 "Library Voucher Interface" begin ChequeNo := LibUtility.GenerateRandomCode(GenJnlLine.FieldNo("Cheque No."), DATABASE::"Gen. Journal Line"); GenJnlLine.SetRange("Document No.", DocumentNo); - if GenJnlLine.FindSet(true, false) then begin + if GenJnlLine.FindSet(true) then begin GenJnlLine.ModifyAll("Cheque No.", ChequeNo); GenJnlLine.ModifyAll("Cheque Date", CalcDate('< +1D>', WorkDate()), true); end; diff --git a/src/Apps/IS/ContosoCoffeeDemoDatasetIS/app/DemoData/Common/CommonModuleIS.Codeunit.al b/src/Apps/IS/ContosoCoffeeDemoDatasetIS/app/DemoData/Common/CommonModuleIS.Codeunit.al deleted file mode 100644 index 0f1c4345406..00000000000 --- a/src/Apps/IS/ContosoCoffeeDemoDatasetIS/app/DemoData/Common/CommonModuleIS.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 14605 "Common Module IS" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Common/CommonModuleIT.Codeunit.al b/src/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Common/CommonModuleIT.Codeunit.al deleted file mode 100644 index e942d63021b..00000000000 --- a/src/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Common/CommonModuleIT.Codeunit.al +++ /dev/null @@ -1,38 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -using Microsoft.Finance.VAT.Setup; - -codeunit 12169 "Common Module IT" -{ - InherentEntitlements = X; - InherentPermissions = X; - Permissions = tabledata "VAT Identifier" = rim; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - [Obsolete('Procedure is moved to codeunit 12220 "Contoso VAT Identifier"', '27.0')] - procedure InsertVATIdentifier(VATCode: Code[20]; Description: Text[50]) - var - VATIdentifier: Record "VAT Identifier"; - Exists: Boolean; - begin - if VATIdentifier.Get(VATCode) then - Exists := true; - - VATIdentifier.Validate(Code, VATCode); - VATIdentifier.Validate(Description, Description); - - if Exists then - VATIdentifier.Modify(true) - else - VATIdentifier.Insert(true); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/IT/ServiceDeclarationIT/app/Permissions/ServDeclITObjects.PermissionSetExt.al b/src/Apps/IT/ServiceDeclarationIT/app/Permissions/ServDeclITObjects.PermissionSetExt.al index 5aa6bb45c45..cfc17a869d5 100644 --- a/src/Apps/IT/ServiceDeclarationIT/app/Permissions/ServDeclITObjects.PermissionSetExt.al +++ b/src/Apps/IT/ServiceDeclarationIT/app/Permissions/ServDeclITObjects.PermissionSetExt.al @@ -10,8 +10,5 @@ permissionsetextension 12214 "Serv. Decl. IT - Objects" extends "Serv. Decl. - O page "Serv. Decl. Lines IT" = X, codeunit "Serv. Decl. Exp. Ext. IT" = X, -#if not CLEAN27 - codeunit "Serv. Decl. Get Totals IT" = X, -#endif codeunit "Service Declaration Mgt. IT" = X; } diff --git a/src/Apps/IT/ServiceDeclarationIT/app/src/ServDeclGetTotalsIT.Codeunit.al b/src/Apps/IT/ServiceDeclarationIT/app/src/ServDeclGetTotalsIT.Codeunit.al deleted file mode 100644 index a7a35004d22..00000000000 --- a/src/Apps/IT/ServiceDeclarationIT/app/src/ServDeclGetTotalsIT.Codeunit.al +++ /dev/null @@ -1,42 +0,0 @@ -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -#if not CLEAN27 -namespace Microsoft.Service.Reports; - -using System.IO; - -codeunit 12215 "Serv. Decl. Get Totals IT" -{ - TableNo = "Data Exch."; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Calculating the sum of rounded values is moved to codeunit 12214 "Serv. Decl. Exp. Ext. IT".'; - - trigger OnRun() - var - DataExchField: Record "Data Exch. Field"; - DataExchFieldMapping: Record "Data Exch. Field Mapping"; - LocalServiceDeclarationMgt: Codeunit "Service Declaration Mgt. IT"; - DecVar: Decimal; - TotalRoundedAmount: Integer; - begin - TotalRoundedAmount := 0; - DataExchFieldMapping.SetRange("Data Exch. Def Code", Rec."Data Exch. Def Code"); - DataExchFieldMapping.SetRange("Data Exch. Line Def Code", Rec."Data Exch. Line Def Code"); - DataExchFieldMapping.SetRange("Field ID", 12220); - if DataExchFieldMapping.FindLast() then begin - DataExchField.SetRange("Data Exch. No.", Rec."Entry No."); - DataExchField.SetRange("Column No.", DataExchFieldMapping."Column No."); - if DataExchField.FindSet() then - repeat - Evaluate(DecVar, DataExchField.GetValue().TrimStart('0')); - TotalRoundedAmount += Round(DecVar, 1); - until DataExchField.Next() = 0; - end; - - LocalServiceDeclarationMgt.SetTotals(TotalRoundedAmount, DataExchField."Line No."); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/IT/ServiceDeclarationIT/app/src/ServiceDeclarationMgtIT.Codeunit.al b/src/Apps/IT/ServiceDeclarationIT/app/src/ServiceDeclarationMgtIT.Codeunit.al index daf38e74796..740824ea4bb 100644 --- a/src/Apps/IT/ServiceDeclarationIT/app/src/ServiceDeclarationMgtIT.Codeunit.al +++ b/src/Apps/IT/ServiceDeclarationIT/app/src/ServiceDeclarationMgtIT.Codeunit.al @@ -21,9 +21,6 @@ codeunit 12216 "Service Declaration Mgt. IT" SingleInstance = true; var -#if not CLEAN27 - TotalRoundedAmount, LineCount : Integer; -#endif ServDeclDataExchPurchaseCodeLbl: Label 'SERVDECLITP-2023', Locked = true; ServDeclDataExchSaleCodeLbl: Label 'SERVDECLITS-2023', Locked = true; ServDeclDataExchPurchaseCorrectionCodeLbl: Label 'SERVDECLITPC-2023', Locked = true; @@ -295,21 +292,6 @@ codeunit 12216 "Service Declaration Mgt. IT" exit(CodeParameter); end; -#if not CLEAN27 - [Obsolete('Pending removal.', '27.0')] - internal procedure SetTotals(TotalRoundedAmount2: Integer; LineCount2: Integer) - begin - TotalRoundedAmount := TotalRoundedAmount2; - LineCount := LineCount2; - end; - - [Obsolete('Pending removal.', '27.0')] - internal procedure GetTotals(var TotalRoundedAmount2: Integer; var LineCount2: Integer) - begin - TotalRoundedAmount2 := TotalRoundedAmount; - LineCount2 := LineCount; - end; -#endif internal procedure GetPurchaseDataExchDefinition(): Text begin diff --git a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Common/CommonModuleMX.Codeunit.al b/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Common/CommonModuleMX.Codeunit.al deleted file mode 100644 index 658c8fc6d28..00000000000 --- a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Common/CommonModuleMX.Codeunit.al +++ /dev/null @@ -1,18 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 14095 "Common Module MX" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - -} -#endif \ No newline at end of file diff --git a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Finance/1.Setup Data/CreateVATPostingGroupsMX.Codeunit.al b/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Finance/1.Setup Data/CreateVATPostingGroupsMX.Codeunit.al index 96956940181..f49c9e110ea 100644 --- a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Finance/1.Setup Data/CreateVATPostingGroupsMX.Codeunit.al +++ b/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Finance/1.Setup Data/CreateVATPostingGroupsMX.Codeunit.al @@ -69,15 +69,6 @@ codeunit 14107 "Create VAT Posting Groups MX" FinanceModuleSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Use NoVAT() in codeunit 5473 "Create VAT Posting Groups" instead.', '27.0')] - procedure NOVAT(): Code[20] - var - CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; - begin - exit(CreateVATPostingGroups.NOVAT()); - end; -#endif procedure VAT16(): Code[20] begin diff --git a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Finance/2.Master Data/CreateMXGLAccounts.Codeunit.al b/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Finance/2.Master Data/CreateMXGLAccounts.Codeunit.al index a05dfea03aa..8986ea3d11d 100644 --- a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Finance/2.Master Data/CreateMXGLAccounts.Codeunit.al +++ b/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Finance/2.Master Data/CreateMXGLAccounts.Codeunit.al @@ -536,27 +536,6 @@ codeunit 14099 "Create MX GL Accounts" end; end; -#if not CLEAN27 - [Obsolete('This procedure is obsolete and no longer needed', '27.0')] - procedure UpdateVATProdPostingGroupOnGL() - var - GLAccount: Record "G/L Account"; - CreateVATPostingGroupsMX: Codeunit "Create VAT Posting Groups MX"; - CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; - begin - GLAccount.SetFilter("VAT Prod. Posting Group", '<>%1', ''); - if GLAccount.FindSet() then - repeat - if GLAccount."VAT Prod. Posting Group" = CreateVATPostingGroups.Reduced() then - GLAccount.Validate("VAT Prod. Posting Group", CreateVATPostingGroupsMX.VAT8()); - if GLAccount."VAT Prod. Posting Group" = CreateVATPostingGroups.Standard() then - GLAccount.Validate("VAT Prod. Posting Group", CreateVATPostingGroupsMX.VAT16()); - if GLAccount."VAT Prod. Posting Group" = CreateVATPostingGroups.Zero() then - GLAccount.Validate("VAT Prod. Posting Group", CreateVATPostingGroupsMX.NOVAT()); - GLAccount.Modify(true); - until GLAccount.Next() = 0; - end; -#endif local procedure UpdateGLAccounts(GLAccountCategory: Record "G/L Account Category"; FromGLAccountNo: Code[20]; ToGLAccountNo: Code[20]) var diff --git a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Inventory/1.Setup Data/CreateItemChargeMX.Codeunit.al b/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Inventory/1.Setup Data/CreateItemChargeMX.Codeunit.al deleted file mode 100644 index 84726d58775..00000000000 --- a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Inventory/1.Setup Data/CreateItemChargeMX.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 14122 "Create Item Charge MX" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Inventory/2.Master Data/CreateItemTemplateMX.Codeunit.al b/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Inventory/2.Master Data/CreateItemTemplateMX.Codeunit.al deleted file mode 100644 index 530db33fcac..00000000000 --- a/src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Inventory/2.Master Data/CreateItemTemplateMX.Codeunit.al +++ /dev/null @@ -1,18 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 14123 "Create Item Template MX" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - -} -#endif \ No newline at end of file diff --git a/src/Apps/NA/MX_DIOT/app/src/Processing/DIOTDataManagement.Codeunit.al b/src/Apps/NA/MX_DIOT/app/src/Processing/DIOTDataManagement.Codeunit.al index 7ff4c214cdf..846d1a0955f 100644 --- a/src/Apps/NA/MX_DIOT/app/src/Processing/DIOTDataManagement.Codeunit.al +++ b/src/Apps/NA/MX_DIOT/app/src/Processing/DIOTDataManagement.Codeunit.al @@ -68,24 +68,6 @@ codeunit 27021 "DIOT Data Management" NegativeAmountErr: Label 'The amount for Concept No. %1 for Vendor with No. = %2 is negative, which is not valid.', Comment = '%1 = DIOT Concept No. Field Value; %2 = Vendor No. Field Value'; NoDataMsg: Label 'There are no VAT Entries for configured concepts in the specified date range.'; -#if not CLEAN27 - [Obsolete('Use GetTypeOfOperationCode(TypeOfOperation: Enum) instead.', '27.0')] - procedure GetTypeOfOperationCode(TypeOfOperation: Option): code[2] - var - DummyVendor: Record Vendor; - begin - case (TypeOfOperation) of - DummyVendor."DIOT Type of Operation"::"Prof. Services".AsInteger(): - exit('03'); - DummyVendor."DIOT Type of Operation"::"Lease and Rent".AsInteger(): - exit('06'); - DummyVendor."DIOT Type of Operation"::Others.AsInteger(): - exit('85'); - else - exit(''); - end; - end; -#endif procedure GetTypeOfOperationCode(TypeOfOperation: Enum "DIOT Type of Operation"): Text[2] begin case TypeOfOperation of diff --git a/src/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/Common/CommonModuleNL.Codeunit.al b/src/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/Common/CommonModuleNL.Codeunit.al deleted file mode 100644 index 4f931f5440f..00000000000 --- a/src/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/Common/CommonModuleNL.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.CRM; - -codeunit 11495 "Common Module NL" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/Warehousing/WarehouseModuleSetupNL.Codeunit.al b/src/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/Warehousing/WarehouseModuleSetupNL.Codeunit.al deleted file mode 100644 index 222b6be8bab..00000000000 --- a/src/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/Warehousing/WarehouseModuleSetupNL.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Warehousing; - -codeunit 11496 "Warehouse Module Setup NL" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is obsolete, not replacement is needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Common/CommonModuleNO.Codeunit.al b/src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Common/CommonModuleNO.Codeunit.al deleted file mode 100644 index e8d594acbb1..00000000000 --- a/src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Common/CommonModuleNO.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 10662 "Common Module NO" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Inventory/2.Master Data/CreateItemChargeNO.Codeunit.al b/src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Inventory/2.Master Data/CreateItemChargeNO.Codeunit.al deleted file mode 100644 index b40597e8524..00000000000 --- a/src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Inventory/2.Master Data/CreateItemChargeNO.Codeunit.al +++ /dev/null @@ -1,20 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 10717 "Create Item Charge NO" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - -} -#endif \ No newline at end of file diff --git a/src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Inventory/2.Master Data/CreateItemTemplateNO.Codeunit.al b/src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Inventory/2.Master Data/CreateItemTemplateNO.Codeunit.al deleted file mode 100644 index bb15d6fcdac..00000000000 --- a/src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Inventory/2.Master Data/CreateItemTemplateNO.Codeunit.al +++ /dev/null @@ -1,18 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 10718 "Create Item Template NO" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - -} -#endif \ No newline at end of file diff --git a/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Common/CommonModuleNZ.Codeunit.al b/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Common/CommonModuleNZ.Codeunit.al deleted file mode 100644 index 7edadbca060..00000000000 --- a/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Common/CommonModuleNZ.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - -codeunit 17107 "Common Module NZ" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Finance/1.Setup Data/CreateNZVATPostingGroup.Codeunit.al b/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Finance/1.Setup Data/CreateNZVATPostingGroup.Codeunit.al index 901277c18e2..cf006ec601c 100644 --- a/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Finance/1.Setup Data/CreateNZVATPostingGroup.Codeunit.al +++ b/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Finance/1.Setup Data/CreateNZVATPostingGroup.Codeunit.al @@ -103,15 +103,6 @@ codeunit 17124 "Create NZ VAT Posting Group" exit(MiscTok); end; -#if not CLEAN27 - [Obsolete('This procedure is moved to codeunit 5473 "Create VAT Posting Groups".', '27.0')] - procedure NoVAT(): Code[20] - var - CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; - begin - exit(CreateVATPostingGroups.NOVAT()); - end; -#endif procedure VAT15(): Code[20] begin diff --git a/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Inventory/2.Master Data/CreateNZItemCharge.Codeunit.al b/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Inventory/2.Master Data/CreateNZItemCharge.Codeunit.al deleted file mode 100644 index 73b9ae168be..00000000000 --- a/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Inventory/2.Master Data/CreateNZItemCharge.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 17127 "Create NZ Item Charge" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Inventory/2.Master Data/CreateNZItemTemplate.Codeunit.al b/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Inventory/2.Master Data/CreateNZItemTemplate.Codeunit.al deleted file mode 100644 index 16982261e7f..00000000000 --- a/src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Inventory/2.Master Data/CreateNZItemTemplate.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 17128 "Create NZ Item Template" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Common/CommonModuleSE.Codeunit.al b/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Common/CommonModuleSE.Codeunit.al deleted file mode 100644 index 7ec6207b922..00000000000 --- a/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Common/CommonModuleSE.Codeunit.al +++ /dev/null @@ -1,18 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Common; - - -codeunit 11202 "Common Module SE" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Finance/1.Setup Data/CreateVatPostingGroupsSE.Codeunit.al b/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Finance/1.Setup Data/CreateVatPostingGroupsSE.Codeunit.al index 9ae3a4823ea..2ff8c89eb97 100644 --- a/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Finance/1.Setup Data/CreateVatPostingGroupsSE.Codeunit.al +++ b/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Finance/1.Setup Data/CreateVatPostingGroupsSE.Codeunit.al @@ -76,15 +76,6 @@ codeunit 11207 "Create Vat Posting Groups SE" ContosoPostingSetup.SetOverwriteData(false); end; -#if not CLEAN27 - [Obsolete('This procedure is moved to codeunit 5473 "Create VAT Posting Groups".', '27.0')] - procedure NoVat(): Code[20] - var - CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; - begin - exit(CreateVATPostingGroups.NoVAT()); - end; -#endif procedure Only(): Code[20] begin diff --git a/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Inventory/2.Master Data/CreateItemChargeSE.Codeunit.al b/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Inventory/2.Master Data/CreateItemChargeSE.Codeunit.al deleted file mode 100644 index 28c9c4424c2..00000000000 --- a/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Inventory/2.Master Data/CreateItemChargeSE.Codeunit.al +++ /dev/null @@ -1,19 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 11220 "Create Item Charge SE" -{ - SingleInstance = true; - EventSubscriberInstance = Manual; - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Inventory/2.Master Data/CreateItemTemplateSE.Codeunit.al b/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Inventory/2.Master Data/CreateItemTemplateSE.Codeunit.al deleted file mode 100644 index be99cbe21c8..00000000000 --- a/src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Inventory/2.Master Data/CreateItemTemplateSE.Codeunit.al +++ /dev/null @@ -1,17 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -namespace Microsoft.DemoData.Inventory; - -codeunit 11219 "Create Item Template SE" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif \ No newline at end of file diff --git a/src/Apps/US/IRS1096/app/src/Processing/IRS1096FormMgt.Codeunit.al b/src/Apps/US/IRS1096/app/src/Processing/IRS1096FormMgt.Codeunit.al index cb643a450a2..48ec3abc77f 100644 --- a/src/Apps/US/IRS1096/app/src/Processing/IRS1096FormMgt.Codeunit.al +++ b/src/Apps/US/IRS1096/app/src/Processing/IRS1096FormMgt.Codeunit.al @@ -187,13 +187,6 @@ codeunit 10016 "IRS 1096 Form Mgt." '', VideoCategory::FinancialReporting, AssistedSetupHelpTxt); end; -#if not CLEAN27 - [Obsolete('This event is no longer used.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetGeneral1099CodeFromVendLedgEntry(VendLedgEntry: Record "Vendor Ledger Entry"; var IRSCode: Code[20]; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnAfterCheckFeatureEnabled(var IsEnabled: Boolean) begin diff --git a/src/Apps/W1/BankDeposits/app/src/pages/PostedBankDepositList.Page.al b/src/Apps/W1/BankDeposits/app/src/pages/PostedBankDepositList.Page.al index 1228ece3423..f4ef4f4b2d2 100644 --- a/src/Apps/W1/BankDeposits/app/src/pages/PostedBankDepositList.Page.al +++ b/src/Apps/W1/BankDeposits/app/src/pages/PostedBankDepositList.Page.al @@ -71,18 +71,6 @@ page 1696 "Posted Bank Deposit List" ToolTip = 'Specifies the currency code of the bank account that the deposit was deposited in.'; Visible = false; } -#if not CLEAN27 - field(Reversed; Rec.IsReversed()) - { - ApplicationArea = Suite; - Editable = false; - Caption = 'Reversed'; - ObsoleteState = Pending; - ObsoleteReason = 'Removing this field from the list to improve performance. Use the Reversed field on the Posted Bank Deposit card page.'; - ObsoleteTag = '27.0'; - ToolTip = 'Specifies if transactions from the corresponding G/L Register have been reversed.'; - } -#endif field("Language Code"; Rec."Language Code") { ApplicationArea = Basic, Suite; diff --git a/src/Apps/W1/BasicExperience/app/src/codeunit/BasicMgmtBF.Codeunit.al b/src/Apps/W1/BasicExperience/app/src/codeunit/BasicMgmtBF.Codeunit.al index 03a40b17324..4eb83deb0f5 100644 --- a/src/Apps/W1/BasicExperience/app/src/codeunit/BasicMgmtBF.Codeunit.al +++ b/src/Apps/W1/BasicExperience/app/src/codeunit/BasicMgmtBF.Codeunit.al @@ -43,7 +43,7 @@ codeunit 20601 "Basic Mgmt BF" AllProfile.SetRange(Enabled, true); AllProfile.SetFilter("Profile ID", AllProfileFilterTxt); - if AllProfile.FindSet(true, false) then + if AllProfile.FindSet(true) then repeat if not IsAssignedToGroupsOrUsers(AllProfile) then begin // Disable Role Center, which is not assigned to Groups Or Users. It is not possible to disable Role Center which is in use. AllProfile.Enabled := false; diff --git a/src/Apps/W1/BasicExperience/test/src/TestBasicBF.Codeunit.al b/src/Apps/W1/BasicExperience/test/src/TestBasicBF.Codeunit.al index 5b0bda28b3b..2c37b5a6e13 100644 --- a/src/Apps/W1/BasicExperience/test/src/TestBasicBF.Codeunit.al +++ b/src/Apps/W1/BasicExperience/test/src/TestBasicBF.Codeunit.al @@ -165,7 +165,7 @@ codeunit 139502 "Test Basic BF" Field.SetRange(TableNo, ApplicationAreaSetupRecordRef.Number); Field.SetRange(Type, Field.Type::Boolean); Field.SetFilter(ObsoleteState, '<>%1', Field.ObsoleteState::Removed); - if Field.FindSet(false, false) then + if Field.FindSet() then repeat ApplicationAreaSetupFieldRef := ApplicationAreaSetupRecordRef.Field(Field."No."); case ApplicationAreaSetupFieldRef.Name() of @@ -219,7 +219,7 @@ codeunit 139502 "Test Basic BF" Clear(AllProfile); AllProfile.SetRange(Enabled, true); AllProfile.SetFilter("Profile ID", AllProfileFilterTxt); - if AllProfile.FindSet(false, false) then + if AllProfile.FindSet() then repeat AllProfile.TestField(Enabled, false); until AllProfile.Next() = 0; diff --git a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Common/1.Setup Data/CreateCommonPostingGroup.Codeunit.al b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Common/1.Setup Data/CreateCommonPostingGroup.Codeunit.al index d6bfcb0f28e..53e2a4ec89d 100644 --- a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Common/1.Setup Data/CreateCommonPostingGroup.Codeunit.al +++ b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Common/1.Setup Data/CreateCommonPostingGroup.Codeunit.al @@ -37,9 +37,6 @@ codeunit 5134 "Create Common Posting Group" var CreatePostingGroup: Codeunit "Create Posting Groups"; -#if not CLEAN27 - CreateVATPostingGroup: Codeunit "Create VAT Posting Groups"; -#endif DomesticCustomerVendorLbl: Label 'Domestic customers and vendors', MaxLength = 100; RawMaterialsLbl: Label 'Raw Materials', MaxLength = 100; ResaleLbl: Label 'Resale', MaxLength = 100; @@ -68,37 +65,6 @@ codeunit 5134 "Create Common Posting Group" exit(CreatePostingGroup.DomesticPostingGroup()); end; -#if not CLEAN27 - [Obsolete('procedure is moved to codeunit 5252 "Create Posting Groups"', '27.0')] - procedure EU(): Code[20] - begin - exit(CreatePostingGroup.EUPostingGroup()); - end; - - [Obsolete('procedure is moved to codeunit 5252 "Create Posting Groups"', '27.0')] - procedure Export(): Code[20] - begin - exit(CreatePostingGroup.ExportPostingGroup()); - end; - - [Obsolete('procedure is moved to codeunit 5473 "Create VAT Posting Groups"', '27.0')] - procedure ZeroVAT(): Code[20] - begin - exit(CreateVATPostingGroup.NoVAT()); - end; - - [Obsolete('procedure is moved to codeunit 5473 "Create VAT Posting Groups"', '27.0')] - procedure ReducedVAT(): Code[20] - begin - exit(CreateVATPostingGroup.Reduced()); - end; - - [Obsolete('procedure is moved to codeunit 5473 "Create VAT Posting Groups"', '27.0')] - procedure StandardVAT(): Code[20] - begin - exit(CreateVATPostingGroup.Standard()); - end; -#endif procedure Retail(): Code[20] begin diff --git a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/1.Setup data/CreateVATPostingGroups.Codeunit.al b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/1.Setup data/CreateVATPostingGroups.Codeunit.al index 97a3ff2df58..21eb1014dee 100644 --- a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/1.Setup data/CreateVATPostingGroups.Codeunit.al +++ b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/1.Setup data/CreateVATPostingGroups.Codeunit.al @@ -169,13 +169,6 @@ codeunit 5473 "Create VAT Posting Groups" exit(ExportTok); end; -#if not CLEAN27 - [Obsolete('Zero() is now replaced with NoVAT() instead', '27.0')] - procedure Zero(): Code[20] - begin - exit(NoVATTok); - end; -#endif procedure NoVAT(): Code[20] begin diff --git a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Foundation/1.Setup data/CreateNoSeries.Codeunit.al b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Foundation/1.Setup data/CreateNoSeries.Codeunit.al index 27e348a3e77..7708c02160f 100644 --- a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Foundation/1.Setup data/CreateNoSeries.Codeunit.al +++ b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Foundation/1.Setup data/CreateNoSeries.Codeunit.al @@ -200,31 +200,6 @@ codeunit 5278 "Create No. Series" exit('I-SHPT+'); end; -#if not CLEAN27 - [Obsolete('The procedure is moved into "Create Job No Series" codeunit 5195.', '27.0')] - procedure JobJournal(): Code[20] - var - CreateJobNoSeries: Codeunit Microsoft.DemoData.Jobs."Create Job No Series"; - begin - exit(CreateJobNoSeries.JobJournal()); - end; - - [Obsolete('The procedure is moved into "Create Job No Series" codeunit 5195.', '27.0')] - procedure RecurringJobJournal(): Code[20] - var - CreateJobNoSeries: Codeunit Microsoft.DemoData.Jobs."Create Job No Series"; - begin - exit(CreateJobNoSeries.RecurringJobJournal()); - end; - - [Obsolete('The procedure is moved into "Create Job No Series" codeunit 5195.', '27.0')] - procedure JobWIP(): Code[20] - var - CreateJobNoSeries: Codeunit Microsoft.DemoData.Jobs."Create Job No Series"; - begin - exit(CreateJobNoSeries.JobWIP()); - end; -#endif procedure JobPriceList(): Code[20] begin diff --git a/src/Apps/W1/EDocument/App/Permissions/EDocCoreBasic.PermissionSet.al b/src/Apps/W1/EDocument/App/Permissions/EDocCoreBasic.PermissionSet.al deleted file mode 100644 index 694bf4c6d0f..00000000000 --- a/src/Apps/W1/EDocument/App/Permissions/EDocCoreBasic.PermissionSet.al +++ /dev/null @@ -1,40 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.eServices.EDocument; - -using Microsoft.eServices.EDocument.IO.Peppol; -using Microsoft.EServices.EDocument.OrderMatch; -using Microsoft.eServices.EDocument.Processing.Import.Purchase; -using Microsoft.eServices.EDocument.Service.Participant; - -permissionset 6103 "E-Doc. Core - Basic" -{ - Access = Public; - Assignable = true; - Caption = 'E-Document - Basic'; - ObsoleteReason = 'Replaced by "E-Doc. Core - User" and "E-Doc. Core - Admin"'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - IncludedPermissionSets = "E-Doc. Core - Read"; - - Permissions = - tabledata "E-Doc. Mapping" = im, - tabledata "E-Doc. Mapping Log" = im, - tabledata "E-Doc. Data Storage" = im, - tabledata "E-Document" = im, - tabledata "E-Document Log" = im, - tabledata "E-Document Service" = im, - tabledata "E-Document Service Status" = im, - tabledata "E-Document Integration Log" = im, - tabledata "E-Doc. Service Data Exch. Def." = im, - tabledata "E-Doc. Service Supported Type" = im, - tabledata "E-Doc. Imported Line" = imd, - tabledata "E-Doc. Order Match" = imd, - tabledata "Service Participant" = imd, - tabledata "E-Doc Sample Purch. Inv File" = imd; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/EDocument/App/Permissions/EDocCoreEdit.PermissionSet.al b/src/Apps/W1/EDocument/App/Permissions/EDocCoreEdit.PermissionSet.al deleted file mode 100644 index 6594492dcaa..00000000000 --- a/src/Apps/W1/EDocument/App/Permissions/EDocCoreEdit.PermissionSet.al +++ /dev/null @@ -1,55 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.eServices.EDocument; - -using Microsoft.eServices.EDocument.IO.Peppol; -using Microsoft.EServices.EDocument.OrderMatch; -#if not CLEAN29 -using Microsoft.eServices.EDocument.OrderMatch.Copilot; -#endif -using Microsoft.eServices.EDocument.Processing.Import; -using Microsoft.eServices.EDocument.Processing.Import.Purchase; -using Microsoft.EServices.EDocument.Processing.Import.Sales; -using Microsoft.eServices.EDocument.Service.Participant; - -permissionset 6102 "E-Doc. Core - Edit" -{ - Access = Public; - Assignable = true; - Caption = 'E-Document - Edit'; - ObsoleteReason = 'Use "E-Doc. Core - User" instead.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - IncludedPermissionSets = "E-Doc. Core - Read"; - - Permissions = - tabledata "E-Doc. Mapping" = IMD, - tabledata "E-Doc. Mapping Log" = IMD, - tabledata "E-Doc. Data Storage" = IMD, - tabledata "E-Document" = IMD, - tabledata "E-Document Log" = IMD, - tabledata "E-Document Service" = IMD, - tabledata "E-Document Service Status" = IMD, - tabledata "E-Document Integration Log" = IMD, - tabledata "E-Doc. Service Data Exch. Def." = IMD, - tabledata "E-Doc. Service Supported Type" = IMD, - tabledata "E-Doc. Imported Line" = IMD, - tabledata "E-Doc. Order Match" = IMD, - tabledata "Service Participant" = IMD, - tabledata "E-Doc. Import Parameters" = IMD, -#if not CLEAN29 - tabledata "E-Doc. PO Match Prop. Buffer" = IMD, -#endif - tabledata "E-Document Header Mapping" = IMD, - tabledata "E-Document Line Mapping" = IMD, - tabledata "E-Document Purchase Header" = IMD, - tabledata "E-Document Purchase Line" = IMD, - tabledata "E-Document Sales Header" = IMD, - tabledata "E-Document Sales Line" = IMD, - tabledata "E-Doc Sample Purch. Inv File" = IMD; -} -#endif diff --git a/src/Apps/W1/EDocument/App/src/ControlAddIn/PDFViewer.ControlAddIn.al b/src/Apps/W1/EDocument/App/src/ControlAddIn/PDFViewer.ControlAddIn.al deleted file mode 100644 index 239968b3675..00000000000 --- a/src/Apps/W1/EDocument/App/src/ControlAddIn/PDFViewer.ControlAddIn.al +++ /dev/null @@ -1,29 +0,0 @@ -#if not CLEAN27 -#pragma warning disable AA0247 -controladdin "PDF Viewer" -#pragma warning restore AA0247 -{ - ObsoleteReason = 'Replaced by platform support'; - ObsoleteTag = '27.0'; - ObsoleteState = Pending; - - Scripts = - 'https://cdn-bc.dynamics.com/common/js/pdfjs-4.10.38/pdf.min.mjs', - 'script.js'; - - StartupScript = 'startup.js'; - StyleSheets = 'stylesheet.css'; - - HorizontalStretch = true; - VerticalStretch = true; - VerticalShrink = true; - HorizontalShrink = true; - RequestedHeight = 800; - - event ControlAddinReady(); - procedure LoadPDF(PDFDocument: Text); - procedure NextPage(); - procedure PreviousPage(); - procedure SetVisible(IsVisible: Boolean); -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/EDocument/App/src/Document/EDocument.Table.al b/src/Apps/W1/EDocument/App/src/Document/EDocument.Table.al index a65781e1187..4bea914573c 100644 --- a/src/Apps/W1/EDocument/App/src/Document/EDocument.Table.al +++ b/src/Apps/W1/EDocument/App/src/Document/EDocument.Table.al @@ -13,9 +13,6 @@ using Microsoft.eServices.EDocument.Processing.Message; using Microsoft.Finance.Currency; using Microsoft.Foundation.Attachment; using Microsoft.Foundation.Reporting; -#if not CLEAN27 -using Microsoft.Purchases.Document; -#endif using Microsoft.Utilities; using System.Automation; using System.IO; @@ -431,14 +428,8 @@ table 6121 "E-Document" EDocImportedLine: Record "E-Doc. Imported Line"; EDocumentMessage: Record "E-Document Message"; EDocumentServiceStatus: Record "E-Document Service Status"; -#if not CLEAN27 - PurchaseHeader: Record "Purchase Header"; -#endif EDocumentErrorHelper: Codeunit "E-Document Error Helper"; IProcessStructuredData: Interface IProcessStructuredData; -#if not CLEAN27 - NullGuid: Guid; -#endif begin EDocumentErrorHelper.ClearErrorMessages(Rec); @@ -471,12 +462,6 @@ table 6121 "E-Document" if not EDocumentMessage.IsEmpty() then EDocumentMessage.DeleteAll(true); -#if not CLEAN27 - // Version 1 processing cleanup - // Can be removed soon as version 1 is fully migrated to version 2 - PurchaseHeader.SetRange("E-Document Link", Rec.SystemId); - PurchaseHeader.ModifyAll("E-Document Link", NullGuid, false); -#endif // Version 2 processing cleanup IProcessStructuredData := Rec."Process Draft Impl."; @@ -549,13 +534,6 @@ table 6121 "E-Document" if EDocumentService.Get(GetEDocumentServiceStatus()."E-Document Service Code") then; end; -#if not CLEAN27 - [Obsolete('Use flow field "Import Processing Status"', '27.0')] - procedure GetEDocumentImportProcessingStatus(): Enum "Import E-Doc. Proc. Status" - begin - exit(GetEDocumentServiceStatus()."Import Processing Status"); - end; -#endif internal procedure ToString(): Text begin exit(StrSubstNo(ToStringLbl, SystemId, "Document Record ID", "Workflow Step Instance ID", "Job Queue Entry ID")); 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 8d5d7426843..f40bffff200 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 @@ -68,73 +68,9 @@ page 6108 "Inbound E-Doc. Factbox" Caption = 'Created By'; ToolTip = 'Specifies the user who created the document'; } -#if not CLEAN27 - group(PDF) - { - ObsoleteReason = 'Replaced by "Inbound E-Doc. Picture"'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - Visible = false; - ShowCaption = false; - usercontrol(PDFViewer; "PDF Viewer") - { - ObsoleteReason = 'Replaced by "Inbound E-Doc. Picture"'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - ApplicationArea = All; - Visible = false; - } - } -#endif } } -#if not CLEAN27 - actions - { - area(Processing) - { - action(NextPdfPage) - { - ObsoleteReason = 'Replaced by "Inbound E-Doc. Picture"'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - Caption = 'Next pdf page'; - ToolTip = 'Next pdf page'; - ApplicationArea = All; - Visible = false; - Enabled = false; - Image = NextRecord; - - trigger OnAction() - begin - CurrPage.PDFViewer.NextPage(); - end; - } - action(PreviousPdfPage) - { - ObsoleteReason = 'Replaced by "Inbound E-Doc. Picture"'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - Caption = 'Previous pdf page'; - ToolTip = 'Previous pdf page'; - ApplicationArea = All; - Visible = false; - Enabled = false; - Image = PreviousRecord; - - trigger OnAction() - begin - CurrPage.PDFViewer.PreviousPage(); - end; - } - } - } -#endif var ImportProcessingStatusVisible: Boolean; 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 e30ade668ac..72f1c256ba4 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 @@ -257,27 +257,6 @@ page 6105 "Inbound E-Documents" NewFromFile(Files); end; } -#if not CLEAN27 -#pragma warning disable AA0194, AL0432 - action(ViewMailMessage) - { - ApplicationArea = Basic, Suite; - Caption = 'View e-mail message'; - ToolTip = 'View the source e-mail message.'; - Image = Email; - Visible = EmailVisibilityFlag; - ObsoleteReason = 'Will be removed in future versions'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - var - begin - // Temporary solution to keep page not extensible. - end; - } -#pragma warning restore AA0194 -#endif action(AnalyzeDocument) { ApplicationArea = Basic, Suite; @@ -401,14 +380,6 @@ page 6105 "Inbound E-Documents" } } actionref(Promoted_ViewFile; ViewFile) { } -#if not CLEAN27 - actionref(Promoted_ViewMailMessage; ViewMailMessage) - { - ObsoleteReason = 'Will be removed in future versions'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif actionref(Promoted_EDocumentServices; EDocumentServices) { } } } @@ -450,9 +421,6 @@ page 6105 "Inbound E-Documents" HasPdf := false; if EDocDataStorage.Get(Rec."Unstructured Data Entry No.") then HasPdf := EDocDataStorage."File Format" = Enum::"E-Doc. File Format"::PDF; -#if not CLEAN27 - SetEmailActionsVisibility(); -#endif end; local procedure PopulateSenderName() @@ -619,12 +587,6 @@ page 6105 "Inbound E-Documents" DocumentTypeStyleTxt := 'Ambiguous'; end; -#if not CLEAN27 - local procedure SetEmailActionsVisibility() - begin - EmailVisibilityFlag := Rec.GetEDocumentService()."Service Integration V2".AsInteger() = 6383; // Outlook Integration - end; -#endif var EDocDataStorage: Record "E-Doc. Data Storage"; @@ -635,7 +597,4 @@ page 6105 "Inbound E-Documents" RecordLinkTxt, DocumentNameTxt, DocumentTypeStyleTxt, ConfirmedVendorTxt, AgentTaskStatus : Text; SenderNameTxt: Text; HasPdf: Boolean; -#if not CLEAN27 - EmailVisibilityFlag: Boolean; -#endif } diff --git a/src/Apps/W1/EDocument/App/src/Processing/EDocImport.Codeunit.al b/src/Apps/W1/EDocument/App/src/Processing/EDocImport.Codeunit.al index 38acccab577..1e28e0cb8e5 100644 --- a/src/Apps/W1/EDocument/App/src/Processing/EDocImport.Codeunit.al +++ b/src/Apps/W1/EDocument/App/src/Processing/EDocImport.Codeunit.al @@ -938,19 +938,6 @@ codeunit 6140 "E-Doc. Import" local procedure OnAfterPrepareReceivedDoc(var EDocument: Record "E-Document"; var TempBlob: Codeunit "Temp Blob"; SourceDocumentHeader: RecordRef; SourceDocumentLine: RecordRef; TempEDocMapping: Record "E-Doc. Mapping" temporary); begin end; -#if not CLEAN27 - [Obsolete('This event is not raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeUpdateDocument(var EDocument: Record "E-Document"; var TempDocumentHeader: RecordRef; var TempDocumentLine: RecordRef; var DocumentHeader: RecordRef) - begin - end; - - [Obsolete('This event is not raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterUpdateDocument(var EDocument: Record "E-Document"; var TempDocumentHeader: RecordRef; var TempDocumentLine: RecordRef; var DocumentHeader: RecordRef) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCreateDocument(var EDocument: Record "E-Document"; var TempDocumentHeader: RecordRef; var TempDocumentLine: RecordRef; var DocumentHeader: RecordRef) begin diff --git a/src/Apps/W1/EDocument/App/src/Processing/Import/EDocHistoricalMatchingSetup.Table.al b/src/Apps/W1/EDocument/App/src/Processing/Import/EDocHistoricalMatchingSetup.Table.al index cd7531dc22d..b25c86cd3b0 100644 --- a/src/Apps/W1/EDocument/App/src/Processing/Import/EDocHistoricalMatchingSetup.Table.al +++ b/src/Apps/W1/EDocument/App/src/Processing/Import/EDocHistoricalMatchingSetup.Table.al @@ -13,13 +13,8 @@ table 6113 "EDoc Historical Matching Setup" ReplicateData = false; ObsoleteReason = 'Replaced with experiment-based matching.'; #pragma warning disable AS0072 // this change is backported to 27.x -#if not CLEAN27 - ObsoleteTag = '27.0'; - ObsoleteState = Pending; -#else ObsoleteTag = '30.0'; ObsoleteState = Removed; -#endif #pragma warning restore AS0072 fields diff --git a/src/Apps/W1/EDocument/App/src/Processing/Import/EDocumentLineMapping.Table.al b/src/Apps/W1/EDocument/App/src/Processing/Import/EDocumentLineMapping.Table.al index 2dff90b6c16..37f0ad7ef06 100644 --- a/src/Apps/W1/EDocument/App/src/Processing/Import/EDocumentLineMapping.Table.al +++ b/src/Apps/W1/EDocument/App/src/Processing/Import/EDocumentLineMapping.Table.al @@ -95,13 +95,7 @@ table 6105 "E-Document Line Mapping" TableRelation = "Dimension Value".Code where("Global Dimension No." = const(2), Blocked = const(false)); } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(10; "Item Reference No."; Code[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Item Reference No.'; ToolTip = 'Specifies the item reference number.'; diff --git a/src/Apps/W1/EDocumentConnectors/Avalara/App/src/Connection/ConnectionSetup.Table.al b/src/Apps/W1/EDocumentConnectors/Avalara/App/src/Connection/ConnectionSetup.Table.al index 10ac8fb9379..b2bad71980c 100644 --- a/src/Apps/W1/EDocumentConnectors/Avalara/App/src/Connection/ConnectionSetup.Table.al +++ b/src/Apps/W1/EDocumentConnectors/Avalara/App/src/Connection/ConnectionSetup.Table.al @@ -76,21 +76,6 @@ table 6372 "Connection Setup" Caption = 'Send Mode'; DataClassification = CustomerContent; -#if not CLEAN27 -#pragma warning disable AL0432 - trigger OnValidate() - begin - case Rec."Avalara Send Mode" of - Enum::"Avalara Send Mode"::Production: - Rec."Send Mode" := Rec."Send Mode"::Production; - Enum::"Avalara Send Mode"::Test: - Rec."Send Mode" := Rec."Send Mode"::Test; - Enum::"Avalara Send Mode"::Certification: - Rec."Send Mode" := Rec."Send Mode"::Certification; - end; - end; -#pragma warning restore AL0432 -#endif } #if not CLEANSCHEMA30 #pragma warning disable AL0432, AS0105 @@ -100,13 +85,8 @@ table 6372 "Connection Setup" Caption = 'Send Mode'; DataClassification = EndUserIdentifiableInformation; ObsoleteReason = 'Use "Avalara Send Mode" instead.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } #endif } diff --git a/src/Apps/W1/EDocumentConnectors/Avalara/App/src/Connection/ConnectionSetupCard.Page.al b/src/Apps/W1/EDocumentConnectors/Avalara/App/src/Connection/ConnectionSetupCard.Page.al index b13a7451980..4b692e2810c 100644 --- a/src/Apps/W1/EDocumentConnectors/Avalara/App/src/Connection/ConnectionSetupCard.Page.al +++ b/src/Apps/W1/EDocumentConnectors/Avalara/App/src/Connection/ConnectionSetupCard.Page.al @@ -98,18 +98,6 @@ page 6372 "Connection Setup Card" ShowMandatory = true; ToolTip = 'Specifies the send mode.'; } -#if not CLEAN27 - field("Send Mode"; Rec."Send Mode") - { - ApplicationArea = Basic, Suite; - ObsoleteReason = 'Use "Avalara Send Mode" instead.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ShowMandatory = true; - ToolTip = 'Specifies the send mode.'; - Visible = false; - } -#endif } } } diff --git a/src/Apps/W1/EDocumentConnectors/Microsoft365/app/src/OutlookProcessing.Codeunit.al b/src/Apps/W1/EDocumentConnectors/Microsoft365/app/src/OutlookProcessing.Codeunit.al index e20e4713e46..c8d1ccbbc6b 100644 --- a/src/Apps/W1/EDocumentConnectors/Microsoft365/app/src/OutlookProcessing.Codeunit.al +++ b/src/Apps/W1/EDocumentConnectors/Microsoft365/app/src/OutlookProcessing.Codeunit.al @@ -439,18 +439,6 @@ codeunit 6385 "Outlook Processing" EmailInbox.Copy(this.RetrievedEmailInbox); end; -#if not CLEAN27 -#pragma warning disable AL0432 - [EventSubscriber(ObjectType::Page, Page::"Inbound E-Documents", OnAfterActionEvent, ViewMailMessage, false, false)] - local procedure OnAfterViewEmailMessageAction(var Rec: Record "E-Document") - var - OutlookIntegrationImpl: Codeunit "Outlook Integration Impl."; - begin - if (Rec."Outlook Mail Message Id" <> '') then - HyperLink(StrSubstNo(OutlookIntegrationImpl.WebLinkText(), Rec."Outlook Mail Message Id")) - end; -#pragma warning restore AL0432 -#endif local procedure GetOutlookCategoryDescription(EDocumentService: Record "E-Document Service"): Text var diff --git a/src/Apps/W1/ExcelReports/App/src/Financials/TrialBalance.Codeunit.al b/src/Apps/W1/ExcelReports/App/src/Financials/TrialBalance.Codeunit.al index 32d6a211fb6..d9fdf3165fc 100644 --- a/src/Apps/W1/ExcelReports/App/src/Financials/TrialBalance.Codeunit.al +++ b/src/Apps/W1/ExcelReports/App/src/Financials/TrialBalance.Codeunit.al @@ -5,14 +5,8 @@ namespace Microsoft.Finance.ExcelReports; -#if not CLEAN27 -using Microsoft.Finance.Consolidation; -#endif using Microsoft.Finance.Dimension; using Microsoft.Finance.GeneralLedger.Account; -#if not CLEAN27 -using System.Environment.Configuration; -#endif codeunit 4410 "Trial Balance" { @@ -38,155 +32,11 @@ codeunit 4410 "Trial Balance" begin if GLAccount.IsEmpty() then exit; -#if not CLEAN27 - if IsPerformantTrialBalanceFeatureActive() then - InsertTrialBalanceReportDataFromQueries(GLAccount, Dimension1Values, Dimension2Values, TrialBalanceData) - else - InsertTrialBalanceReportDataLooping(GLAccount, Dimension1Values, Dimension2Values, TrialBalanceData); -#else InsertTrialBalanceReportDataFromQueries(GLAccount, Dimension1Values, Dimension2Values, TrialBalanceData); -#endif end; -#if not CLEAN27 - local procedure IsPerformantTrialBalanceFeatureActive() Active: Boolean - var - FeatureManagementFacade: Codeunit "Feature Management Facade"; - begin -#pragma warning disable AL0432 - OnIsPerformantTrialBalanceFeatureActive(Active); -#pragma warning restore AL0432 - if Active then - exit(Active); - exit(FeatureManagementFacade.IsEnabled('EXRPerformantTrialBalance')); - end; -#endif #region Looping approach - to be removed -#if not CLEAN27 - local procedure InsertTrialBalanceReportDataLooping(var GLAccount: Record "G/L Account"; var Dimension1Values: Record "Dimension Value" temporary; var Dimension2Values: Record "Dimension Value" temporary; var TrialBalanceData: Record "EXR Trial Balance Buffer") - var - DimensionValue: Record "Dimension Value"; - BusinessUnitFilters, Dimension1Filters, Dimension2Filters : List of [Code[20]]; - begin - DimensionValue.SetRange("Global Dimension No.", 1); - InsertDimensionFiltersFromDimensionValues(DimensionValue, Dimension1Filters); - DimensionValue.SetRange("Global Dimension No.", 2); - InsertDimensionFiltersFromDimensionValues(DimensionValue, Dimension2Filters); - if GlobalBreakdownByBusinessUnit then - InsertBusinessUnitFilters(BusinessUnitFilters); - - Clear(TrialBalanceData); - TrialBalanceData.DeleteAll(); - repeat - InsertBreakdownForGLAccount(GLAccount, Dimension1Filters, Dimension2Filters, BusinessUnitFilters, TrialBalanceData, Dimension1Values, Dimension2Values); - until GLAccount.Next() = 0; - end; - - local procedure InsertBusinessUnitFilters(var BusinessUnitFilters: List of [Code[20]]) - var - BusinessUnit: Record "Business Unit"; - begin - BusinessUnitFilters.Add(''); - if not BusinessUnit.FindSet() then - exit; - repeat - BusinessUnitFilters.Add(BusinessUnit.Code); - until BusinessUnit.Next() = 0; - end; - - local procedure InsertDimensionFiltersFromDimensionValues(var DimensionValue: Record "Dimension Value"; var DimensionFilters: List of [Code[20]]) - var - IsHandled: Boolean; - begin - IsHandled := false; -#pragma warning disable AL0432 - OnBeforeInsertDimensionFiltersFromDimensionValues(DimensionValue, DimensionFilters, IsHandled); -#pragma warning restore AL0432 - if IsHandled then - exit; - DimensionFilters.Add(''); - if not DimensionValue.FindSet() then - exit; - repeat - DimensionFilters.Add(DimensionValue.Code); - until DimensionValue.Next() = 0; - end; - - local procedure InsertBreakdownForGLAccount(var GLAccount: Record "G/L Account"; Dimension1Filters: List of [Code[20]]; Dimension2Filters: List of [Code[20]]; BusinessUnitCodeFilters: List of [Code[20]]; var TrialBalanceData: Record "EXR Trial Balance Buffer"; var Dimension1Values: Record "Dimension Value" temporary; var Dimension2Values: Record "Dimension Value" temporary) - var - i, j, k : Integer; - begin - for i := 1 to Dimension1Filters.Count do - for j := 1 to Dimension2Filters.Count do - if GlobalBreakdownByBusinessUnit then - for k := 1 to BusinessUnitCodeFilters.Count do - InsertGLAccountTotalsForFilters(Dimension1Filters.Get(i), Dimension2Filters.Get(j), BusinessUnitCodeFilters.Get(k), GLAccount, TrialBalanceData, Dimension1Values, Dimension2Values) - else - InsertGLAccountTotalsForFilters(Dimension1Filters.Get(i), Dimension2Filters.Get(j), GLAccount, TrialBalanceData, Dimension1Values, Dimension2Values) - end; - - local procedure InsertGLAccountTotalsForFilters(Dimension1ValueCode: Code[20]; Dimension2ValueCode: Code[20]; var GLAccount: Record "G/L Account"; var TrialBalanceData: Record "EXR Trial Balance Buffer"; var Dimension1Values: Record "Dimension Value" temporary; var Dimension2Values: Record "Dimension Value" temporary) - begin - InsertGLAccountTotalsForFilters(Dimension1ValueCode, Dimension2ValueCode, '', GLAccount, TrialBalanceData, Dimension1Values, Dimension2Values); - end; - - local procedure InsertGLAccountTotalsForFilters(Dimension1ValueCode: Code[20]; Dimension2ValueCode: Code[20]; BusinessUnitCode: Code[20]; var GLAccount: Record "G/L Account"; var TrialBalanceData: Record "EXR Trial Balance Buffer"; var Dimension1Values: Record "Dimension Value" temporary; var Dimension2Values: Record "Dimension Value" temporary) - var - LocalGlAccount: Record "G/L Account"; - begin - LocalGlAccount.Copy(GLAccount); - LocalGLAccount.SetFilter("Global Dimension 1 Filter", '= ''%1''', Dimension1ValueCode); - LocalGLAccount.SetFilter("Global Dimension 2 Filter", '= ''%1''', Dimension2ValueCode); - if GlobalBreakdownByBusinessUnit then - LocalGLAccount.SetFilter("Business Unit Filter", '= %1', BusinessUnitCode); - InsertTrialBalanceDataForGLAccountWithFilters(LocalGlAccount, Dimension1ValueCode, Dimension2ValueCode, BusinessUnitCode, TrialBalanceData, Dimension1Values, Dimension2Values); - end; - - local procedure InsertTrialBalanceDataForGLAccountWithFilters(var GLAccount: Record "G/L Account"; Dimension1ValueCode: Code[20]; Dimension2ValueCode: Code[20]; BusinessUnitCode: Code[20]; var TrialBalanceData: Record "EXR Trial Balance Buffer"; var Dimension1Values: Record "Dimension Value" temporary; var Dimension2Values: Record "Dimension Value" temporary) - var - GLAccount2: Record "G/L Account"; - begin - Clear(TrialBalanceData); - if GLAccount.GetFilter("Date Filter") <> '' then begin - GLAccount2.Copy(GLAccount); - GLAccount2.SetFilter("Date Filter", '..%1', ClosingDate(GLAccount2.GetRangeMin("Date Filter") - 1)); - GLAccount2.CalcFields("Balance at Date", "Add.-Currency Balance at Date", "Debit Amount", "Credit Amount", "Add.-Currency Debit Amount", "Add.-Currency Credit Amount"); - TrialBalanceData."Starting Balance" := GLAccount2."Balance at Date"; - TrialBalanceData."Starting Balance (Debit)" := GLAccount2."Debit Amount"; - TrialBalanceData."Starting Balance (Credit)" := GLAccount2."Credit Amount"; - TrialBalanceData."Starting Balance (ACY)" := GLAccount2."Add.-Currency Balance at Date"; - TrialBalanceData."Starting Balance (Debit) (ACY)" := GLAccount2."Add.-Currency Debit Amount"; - TrialBalanceData."Starting Balance (Credit)(ACY)" := GLAccount2."Add.-Currency Credit Amount"; - end; - GlAccount.CalcFields("Net Change", "Balance at Date", "Additional-Currency Net Change", "Add.-Currency Balance at Date", "Budgeted Amount", "Budget at Date", "Debit Amount", "Credit Amount", "Add.-Currency Debit Amount", "Add.-Currency Credit Amount"); - TrialBalanceData."G/L Account No." := GlAccount."No."; - TrialBalanceData."Dimension 1 Code" := Dimension1ValueCode; - TrialBalanceData."Dimension 2 Code" := Dimension2ValueCode; - TrialBalanceData."Business Unit Code" := BusinessUnitCode; - TrialBalanceData."Net Change" := GLAccount."Net Change"; - TrialBalanceData."Net Change (Debit)" := GLAccount."Debit Amount"; - TrialBalanceData."Net Change (Credit)" := GLAccount."Credit Amount"; - TrialBalanceData.Balance := GLAccount."Balance at Date"; - TrialBalanceData."Balance (Debit)" := TrialBalanceData."Starting Balance (Debit)" + TrialBalanceData."Net Change (Debit)"; - TrialBalanceData."Balance (Credit)" := TrialBalanceData."Starting Balance (Credit)" + TrialBalanceData."Net Change (Credit)"; - TrialBalanceData."Net Change (ACY)" := GLAccount."Additional-Currency Net Change"; - TrialBalanceData."Net Change (Debit) (ACY)" := GLAccount."Add.-Currency Debit Amount"; - TrialBalanceData."Net Change (Credit) (ACY)" := GLAccount."Add.-Currency Credit Amount"; - TrialBalanceData."Balance (ACY)" := GLAccount."Add.-Currency Balance at Date"; - TrialBalanceData."Balance (Debit) (ACY)" := TrialBalanceData."Starting Balance (Debit) (ACY)" + TrialBalanceData."Net Change (Debit) (ACY)"; - TrialBalanceData."Balance (Credit) (ACY)" := TrialBalanceData."Starting Balance (Credit)(ACY)" + TrialBalanceData."Net Change (Credit) (ACY)"; - TrialBalanceData.Validate("Budget (Net)", GLAccount."Budgeted Amount"); - TrialBalanceData.Validate("Budget (Bal. at Date)", GLAccount."Budget at Date"); - TrialBalanceData.CalculateBudgetComparisons(); - TrialBalanceData.CheckAllZero(); - if not TrialBalanceData."All Zero" then begin - TrialBalanceData.Insert(true); - InsertUsedDimensionValue(1, TrialBalanceData."Dimension 1 Code", Dimension1Values); - InsertUsedDimensionValue(2, TrialBalanceData."Dimension 2 Code", Dimension2Values); - end; - end; -#endif #endregion #region Query-based approach local procedure InsertTrialBalanceReportDataFromQueries(var GLAccount: Record "G/L Account"; var Dimension1Values: Record "Dimension Value" temporary; var Dimension2Values: Record "Dimension Value" temporary; var TrialBalanceData: Record "EXR Trial Balance Buffer") @@ -551,17 +401,4 @@ codeunit 4410 "Trial Balance" end; #endregion -#if not CLEAN27 - [IntegrationEvent(true, false)] - [Obsolete('This event is no longer called in the query based retrieval of the trial balance. ', '28.0')] - local procedure OnBeforeInsertDimensionFiltersFromDimensionValues(var DimensionValue: Record "Dimension Value"; var DimensionFilters: List of [Code[20]]; var IsHandled: Boolean) - begin - end; - - [Obsolete('This event is temporary to try the functionality before it''s officially released as a feature in feature management.', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnIsPerformantTrialBalanceFeatureActive(var Active: Boolean) - begin - end; -#endif } diff --git a/src/Apps/W1/ExcelReports/Test/src/TrialBalanceExcelReports.Codeunit.al b/src/Apps/W1/ExcelReports/Test/src/TrialBalanceExcelReports.Codeunit.al index 5dac6db4e90..6ec015e8b2e 100644 --- a/src/Apps/W1/ExcelReports/Test/src/TrialBalanceExcelReports.Codeunit.al +++ b/src/Apps/W1/ExcelReports/Test/src/TrialBalanceExcelReports.Codeunit.al @@ -1036,14 +1036,5 @@ codeunit 139544 "Trial Balance Excel Reports" EXRConsolidatedTrialBalance.OK().Invoke(); end; -#if not CLEAN27 -#pragma warning disable AL0432 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Trial Balance", OnIsPerformantTrialBalanceFeatureActive, '', false, false)] - local procedure OnIsPerformantTrialBalanceFeatureActive(var Active: Boolean) - begin - Active := true; - end; -#pragma warning restore AL0432 -#endif } diff --git a/src/Apps/W1/ImageAnalysis/app/src/codeunits/ImageAnalyzerExtMgt.Codeunit.al b/src/Apps/W1/ImageAnalysis/app/src/codeunits/ImageAnalyzerExtMgt.Codeunit.al index 492c8704626..61ed6b1ca66 100644 --- a/src/Apps/W1/ImageAnalysis/app/src/codeunits/ImageAnalyzerExtMgt.Codeunit.al +++ b/src/Apps/W1/ImageAnalysis/app/src/codeunits/ImageAnalyzerExtMgt.Codeunit.al @@ -30,9 +30,6 @@ codeunit 2027 "Image Analyzer Ext. Mgt." NeverShowAgainTxt: Label 'Don''t tell me again'; ImageAnalysisCategoryLbl: Label 'Image Analysis', Locked = true; ImageAnalysisEnabledLbl: Label 'Image Analysis enabled.', Locked = true; -#if not CLEAN27 - EnableNotificationSentLbl: Label 'Enable notification sent.', Locked = true; -#endif ImageAnalysisSuccesfulLbl: Label 'Image successfully analyzed.', Locked = true; CategoryAssignedLbl: Label 'Category was assigned.', Locked = true; AttributeAssignedLbl: Label 'Attribute was assigned.', Locked = true; @@ -281,13 +278,6 @@ codeunit 2027 "Image Analyzer Ext. Mgt." exit('e54eb2c9-ebc2-4934-91d9-97af900e89b5'); end; -#if not CLEAN27 - [Obsolete('The event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSendEnableNotification() - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnSuccessfullyAnalyseImage() begin @@ -304,13 +294,6 @@ codeunit 2027 "Image Analyzer Ext. Mgt." Session.LogMessage('00001K6', ImageAnalysisEnabledLbl, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', ImageAnalysisCategoryLbl); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Image Analyzer Ext. Mgt.", 'OnSendEnableNotification', '', false, false)] - local procedure OnSendEnableNotificationSubscriber() - begin - Session.LogMessage('00001K7', EnableNotificationSentLbl, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', ImageAnalysisCategoryLbl); - end; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Image Analyzer Ext. Mgt.", 'OnSuccessfullyAnalyseImage', '', false, false)] local procedure OnSuccessfullyAnalyseImageSubscriber() begin diff --git a/src/Apps/W1/Intrastat/app/src/Processing/IntrastatReportManagement.Codeunit.al b/src/Apps/W1/Intrastat/app/src/Processing/IntrastatReportManagement.Codeunit.al index 6a0b0ca6dfe..687b1f264b1 100644 --- a/src/Apps/W1/Intrastat/app/src/Processing/IntrastatReportManagement.Codeunit.al +++ b/src/Apps/W1/Intrastat/app/src/Processing/IntrastatReportManagement.Codeunit.al @@ -610,57 +610,6 @@ codeunit 4810 IntrastatReportManagement IntrastatReportHeader.Modify(); end; -#if not CLEAN27 - [Obsolete('Use ExportOneDataExchangeDef(IntrastatReportHeader: Record "Intrastat Report Header"; DataExchDefCode: Code[20]; ExportType: Integer; var DataExch: Record "Data Exch."; MaxNoOfLines: Integer)', '27.0')] - procedure ExportOneDataExchangeDef(IntrastatReportHeader: Record "Intrastat Report Header"; DataExchDefCode: Code[20]; ExportType: Integer; var DataExch: Record "Data Exch.") - var - DataExchFieldGrouping: Record "Data Exch. Field Grouping"; - IntrastatReportLine: Record "Intrastat Report Line"; - DataExchMapping: Record "Data Exch. Mapping"; - DataExchDef: Record "Data Exch. Def"; - RecordRefSrc: RecordRef; - OutStreamFilters: OutStream; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeExportOneDataExchangeDef(IntrastatReportHeader, DataExchDefCode, ExportType, DataExch, IsHandled); - if not IsHandled then begin - DataExchMapping.SetRange("Data Exch. Def Code", DataExchDefCode); - DataExchMapping.SetRange("Table ID", Database::"Intrastat Report Line"); - if not DataExchMapping.FindFirst() then - Error(NoDataExchMappingErr, DataExchMapping.TableCaption, DataExchDef.TableCaption, DataExchDefCode); - - if DataExchMapping."Key Index" <> 0 then begin - RecordRefSrc.GetTable(IntrastatReportLine); - RecordRefSrc.CurrentKeyIndex(DataExchMapping."Key Index"); - RecordRefSrc.SetTable(IntrastatReportLine); - end; - - IntrastatReportLine.SetRange("Intrastat No.", IntrastatReportHeader."No."); - if ExportType = 1 then // Receipt - IntrastatReportLine.SetRange(Type, IntrastatReportLine.Type::Receipt); - if ExportType = 2 then // Shipment - IntrastatReportLine.SetRange(Type, IntrastatReportLine.Type::Shipment); - OnBeforeExportIntrastatReportLines(IntrastatReportLine, IntrastatReportHeader); - - if not IntrastatReportLine.IsEmpty then begin - DataExchFieldGrouping.SetRange("Data Exch. Def Code", DataExchMapping."Data Exch. Def Code"); - DataExchFieldGrouping.SetRange("Data Exch. Line Def Code", DataExchMapping."Data Exch. Line Def Code"); - DataExchFieldGrouping.SetRange("Table ID", DataExchMapping."Table ID"); - SetInternalRefNo(IntrastatReportLine, DataExchFieldGrouping, IntrastatReportHeader); - - DataExch.Init(); - DataExch."Data Exch. Def Code" := DataExchMapping."Data Exch. Def Code"; - DataExch."Data Exch. Line Def Code" := DataExchMapping."Data Exch. Line Def Code"; - DataExch."Table Filters".CreateOutStream(OutStreamFilters); - OutStreamFilters.WriteText(IntrastatReportLine.GetView(false)); - if DataExch.Insert(true) then - DataExch.ExportFromDataExch(DataExchMapping); - DataExch.Modify(true); - end; - end; - end; -#endif procedure ExportOneDataExchangeDef(IntrastatReportHeader: Record "Intrastat Report Header"; DataExchDefCode: Code[20]; ExportType: Integer; var DataExch: Record "Data Exch."; MaxNoOfLines: Integer) var diff --git a/src/Apps/W1/LatePaymentPredictor/app/src/LatePaymentUpgrade.Codeunit.al b/src/Apps/W1/LatePaymentPredictor/app/src/LatePaymentUpgrade.Codeunit.al deleted file mode 100644 index 46a9f9eb9d8..00000000000 --- a/src/Apps/W1/LatePaymentPredictor/app/src/LatePaymentUpgrade.Codeunit.al +++ /dev/null @@ -1,11 +0,0 @@ -#if not CLEAN27 -namespace Microsoft.Finance.Latepayment; - -codeunit 1958 "Late Payment Upgrade" -{ - Subtype = Upgrade; - ObsoleteReason = 'This codeunit is obsolete, no replacement is needed.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -} -#endif diff --git a/src/Apps/W1/LatePaymentPredictor/app/src/Permissions/LatePaymentObjects.PermissionSet.al b/src/Apps/W1/LatePaymentPredictor/app/src/Permissions/LatePaymentObjects.PermissionSet.al index d395aaa049b..5a19491809d 100644 --- a/src/Apps/W1/LatePaymentPredictor/app/src/Permissions/LatePaymentObjects.PermissionSet.al +++ b/src/Apps/W1/LatePaymentPredictor/app/src/Permissions/LatePaymentObjects.PermissionSet.al @@ -8,9 +8,6 @@ permissionset 8311 "LatePayment - Objects" Caption = 'LatePaymentPredictor - Objects'; Permissions = codeunit "Late Payment Install" = X, -#if not CLEAN27 - codeunit "Late Payment Upgrade" = X, -#endif page "LP Machine Learning Setup" = X, table "LP Machine Learning Setup" = X, table "LP ML Input Data" = X, diff --git a/src/Apps/W1/PowerBIReports/App/Core/PermissionSets/PowerBIEmbeddedObjects.PermissionSet.al b/src/Apps/W1/PowerBIReports/App/Core/PermissionSets/PowerBIEmbeddedObjects.PermissionSet.al index 83805ed5f8b..c5c1dc53ce1 100644 --- a/src/Apps/W1/PowerBIReports/App/Core/PermissionSets/PowerBIEmbeddedObjects.PermissionSet.al +++ b/src/Apps/W1/PowerBIReports/App/Core/PermissionSets/PowerBIEmbeddedObjects.PermissionSet.al @@ -120,21 +120,6 @@ permissionset 36955 "Power BI Embedded - Objects" page "Sales and Cost forecast" = X, page "Billing Schedule" = X, #pragma warning restore AL0432 -#endif -#if not CLEAN27 -#pragma warning disable AL0432 - page "Sustainability Overview" = X, - page "Realized Emissions vs Target" = X, - page "Realized Emissions vs Baseline" = X, - page "Water and Waste Analysis" = X, - page "Emissions by Cat and Scope" = X, - page "CO2e Analysis" = X, - page "Journey to Net Zero Carbon" = X, - page "Social Analysis" = X, - page "Sustainability Report" = X, - page "CO2e Key Influences" = X, - page "CO2e Decomposition Tree" = X, -#pragma warning restore AL0432 #endif page "PBI Work Center Statistics" = X, page "PBI Machine Center Statistics" = X, diff --git a/src/Apps/W1/PowerBIReports/App/Core/PermissionSets/PowerBiReportBasic.PermissionSet.al b/src/Apps/W1/PowerBIReports/App/Core/PermissionSets/PowerBiReportBasic.PermissionSet.al index 2b2f92823bd..4796f9a18da 100644 --- a/src/Apps/W1/PowerBIReports/App/Core/PermissionSets/PowerBiReportBasic.PermissionSet.al +++ b/src/Apps/W1/PowerBIReports/App/Core/PermissionSets/PowerBiReportBasic.PermissionSet.al @@ -103,11 +103,6 @@ permissionset 36951 "PowerBi Report Basic" query "Purchase Lines - Outstanding" = X, query "Purchase Lines - PBI API" = X, query "Requisition Lines" = X, -#if not CLEAN27 -#pragma warning disable AL0432 - query "Sales Line - PBI API" = X, -#pragma warning restore AL0432 -#endif query "Sales Line V2 - PBI API" = X, query "Sales Line - Item Outstanding" = X, query "Sales Line - Item Shipped" = X, @@ -119,12 +114,6 @@ permissionset 36951 "PowerBi Report Basic" query "Service Lines - Order" = X, query "Transfer Lines" = X, query "Value Entries - Item" = X, -#if not CLEAN27 -#pragma warning disable AL0432 - query "Value Entries - Purch." = X, - query "Value Entries - Sales" = X, -#pragma warning restore AL0432 -#endif query "Sales Value Entries - PBI API" = X, query "Purch. Value Entries - PBI API" = X, query "Vendor Ledg. Entries - PBI API" = X, diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Purchasing/APIs/ValueEntriesPurch.Query.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Purchasing/APIs/ValueEntriesPurch.Query.al deleted file mode 100644 index 50c9fd20595..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Purchasing/APIs/ValueEntriesPurch.Query.al +++ /dev/null @@ -1,87 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Purchases.PowerBIReports; - -using Microsoft.Inventory.Ledger; - -query 37000 "Value Entries - Purch." -{ - Access = Internal; - QueryType = API; - AboutText = 'Provides access to purchase value entries for item purchases including cost amounts, invoiced quantities, and dimension data. This API has been replaced by query 37023 Purch. Value Entries - PBI API.'; - Caption = 'Power BI Purchase Value Entries'; - APIPublisher = 'microsoft'; - APIGroup = 'analytics'; - ApiVersion = 'v0.5'; - EntityName = 'purchaseValueEntry'; - EntitySetName = 'purchaseValueEntries'; - DataAccessIntent = ReadOnly; - ObsoleteState = Pending; - ObsoleteReason = 'Replaced by the new query 37023 "Purch. Value Entries - PBI API".'; - ObsoleteTag = '27.0'; - - elements - { - dataitem(PurchValueEntry; "Item Ledger Entry") - { - DataItemTableFilter = "Entry Type" = const(Purchase); - column(itemLedgerEntryNo; "Entry No.") - { - } - dataitem(ValueEntry; "Value Entry") - { - DataItemLink = "Item Ledger Entry No." = PurchValueEntry."Entry No."; - column(entryNo; "Entry No.") - { - } - column(entryType; "Entry Type") - { - } - column(documentNo; "Document No.") - { - } - column(documentType; "Document Type") - { - } - column(vendorNo; "Source No.") - { - } - column(postingDate; "Posting Date") - { - } - column(itemNo; "Item No.") - { - } - column(locationCode; "Location Code") - { - } - column(dimensionSetID; "Dimension Set ID") - { - } - column(invoicedQuantity; "Invoiced Quantity") - { - } - column(costAmountActual; "Cost Amount (Actual)") - { - } - column(salespersonPurchaserCode; "Salespers./Purch. Code") - { - } - } - } - } - - trigger OnBeforeOpen() - var - PBIMgt: Codeunit "Purchases Filter Helper"; - DateFilterText: Text; - begin - DateFilterText := PBIMgt.GenerateItemPurchasesReportDateFilter(); - if DateFilterText <> '' then - CurrQuery.SetFilter(postingDate, DateFilterText); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sales/APIs/SalesLinePBIAPI.Query.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sales/APIs/SalesLinePBIAPI.Query.al deleted file mode 100644 index d3a01230e1e..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sales/APIs/SalesLinePBIAPI.Query.al +++ /dev/null @@ -1,89 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Sales.PowerBIReports; - -using Microsoft.Sales.Document; - -query 37019 "Sales Line - PBI API" -{ - Access = Internal; - QueryType = API; - AboutText = 'Provides access to open sales document lines for items including quantities, amounts, and delivery dates. This API has been replaced by query 37024 Sales Line V2 - PBI API.'; - Caption = 'Power BI Sales Lines'; - APIPublisher = 'microsoft'; - APIGroup = 'analytics'; - ApiVersion = 'v0.5'; - EntityName = 'salesLine'; - EntitySetName = 'salesLines'; - DataAccessIntent = ReadOnly; - ObsoleteState = Pending; - ObsoleteReason = 'Replaced by the new query 37024 "Sales Line V2 - PBI API".'; - ObsoleteTag = '27.0'; - - elements - { - dataitem(SalesHeader; "Sales Header") - { - column(orderNo; "No.") { } - column(documentType; "Document Type") { } - column(billToCustomerNo; "Bill-to Customer No.") { } - column(sellToCustomerNo; "Sell-to Customer No.") { } - column(salespersonCode; "Salesperson Code") { } - column(opportunityNo; "Opportunity No.") { } - column(quoteNo; "Quote No.") { } - column(quoteValidUntilDate; "Quote Valid Until Date") { } - column(orderDate; "Order Date") { } - column(documentDate; "Document Date") { } - column(dueDate; "Due Date") { } - column(campaignNo; "Campaign No.") { } - dataitem(SalesLine; "Sales Line") - { - DataItemLink = "Document Type" = SalesHeader."Document Type", "Document No." = SalesHeader."No."; - DataItemTableFilter = Type = const(Item); - column(postingDate; "Posting Date") { } - column(salesLineDocumentType; "Document Type") { } - column(documentNo; "Document No.") { } - column(lineNo; "Line No.") { } - column(itemNo; "No.") { } - column(locationCode; "Location Code") { } - column(quantityBase; "Quantity (Base)") { } - column(outstandingQtyBase; "Outstanding Qty. (Base)") { } - column(outstandingAmountLCY; "Outstanding Amount (LCY)") { } - column(amount; Amount) { } - column(unitCostLCY; "Unit Cost (LCY)") { } - column(outstandingQuantity; "Outstanding Quantity") { } - column(returnReasonCode; "Return Reason Code") { } - column(shipmentDate; "Shipment Date") { } - column(plannedShipmentDate; "Planned Shipment Date") { } - column(plannedDeliveryDate; "Planned Delivery Date") { } - column(requestedDeliveryDate; "Requested Delivery Date") { } - column(promisedDeliveryDate; "Promised Delivery Date") { } - column(dimensionSetID; "Dimension Set ID") { } - column(returnQtyRcdNotInvd; "Return Qty. Rcd. Not Invd.") { } - column(returnQtyReceivedBase; "Return Qty. Received (Base)") { } - column(returnQtyToReceiveBase; "Return Qty. to Receive (Base)") { } - column(returnRcdNotInvdLCY; "Return Rcd. Not Invd. (LCY)") { } - column(quantityShippedBase; "Qty. Shipped (Base)") { } - column(quantityToShipBase; "Qty. to Ship (Base)") { } - column(qtyShippedNotInvdBase; "Qty. Shipped Not Invd. (Base)") { } - column(shippedNotInvoicedLCYNoVAT; "Shipped Not Inv. (LCY) No VAT") { } - column(shippedNotInvoiced; "Shipped Not Invoiced") { } - column(quantityInvoiced; "Quantity Invoiced") { } - } - } - } - - trigger OnBeforeOpen() - var - PBIMgt: Codeunit "Sales Filter Helper"; - DateFilterText: Text; - begin - DateFilterText := PBIMgt.GenerateItemSalesReportDateFilter(); - if DateFilterText <> '' then - CurrQuery.SetFilter(orderDate, DateFilterText); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sales/APIs/ValueEntriesSales.Query.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sales/APIs/ValueEntriesSales.Query.al deleted file mode 100644 index d38dd889cce..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sales/APIs/ValueEntriesSales.Query.al +++ /dev/null @@ -1,66 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Sales.PowerBIReports; - -using Microsoft.Inventory.Ledger; - -query 37005 "Value Entries - Sales" -{ - Access = Internal; - QueryType = API; - AboutText = 'Provides access to sales value entries including sales amounts, cost amounts, and invoiced quantities. This API has been replaced by query 37025 Sales Value Entries - PBI API.'; - Caption = 'Power BI Sales Value Entries'; - APIPublisher = 'microsoft'; - APIGroup = 'analytics'; - ApiVersion = 'v0.5'; - EntityName = 'salesValueEntry'; - EntitySetName = 'salesValueEntries'; - DataAccessIntent = ReadOnly; - ObsoleteState = Pending; - ObsoleteReason = 'Replaced by the new query 37025 "Sales Value Entries - PBI API".'; - ObsoleteTag = '27.0'; - - elements - { - dataitem(SalesValueEntry; "Item Ledger Entry") - { - DataItemTableFilter = "Entry Type" = const(Sale); - column(itemLedgerEntryNo; "Entry No.") { } - dataitem(Value_Entry; "Value Entry") - { - DataItemLink = "Item Ledger Entry No." = SalesValueEntry."Entry No."; - column(entryNo; "Entry No.") { } - column(entryType; "Entry Type") { } - column(documentNo; "Document No.") { } - column(documentType; "Document Type") { } - column(invoicedQuantity; "Invoiced Quantity") { } - column(salesAmountActual; "Sales Amount (Actual)") { } - column(costAmountActual; "Cost Amount (Actual)") { } - column(costAmountNonInvtbl; "Cost Amount (Non-Invtbl.)") { } - column(costPostedToGL; "Cost Posted to G/L") { } - column(customerNo; "Source No.") { } - column(postingDate; "Posting Date") { } - column(documentDate; "Document Date") { } - column(itemNo; "Item No.") { } - column(locationCode; "Location Code") { } - column(dimensionSetID; "Dimension Set ID") { } - column(salespersonPurchaserCode; "Salespers./Purch. Code") { } - column(returnReasonCode; "Return Reason Code") { } - } - } - } - - trigger OnBeforeOpen() - var - PBIMgt: Codeunit "Sales Filter Helper"; - DateFilterText: Text; - begin - DateFilterText := PBIMgt.GenerateItemSalesReportDateFilter(); - if DateFilterText <> '' then - CurrQuery.SetFilter(postingDate, DateFilterText); - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eAnalysis.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eAnalysis.Page.al deleted file mode 100644 index d8ae85ffa3f..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eAnalysis.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37089 "CO2e Analysis" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'CO2e Analysis'; - AboutTitle = 'About CO2e Analysis'; - AboutText = 'The CO2e Analysis report provides detailed insight into you CO2e Emissions and how you are purchasing Carbon Credit.'; - ObsoleteReason = 'Please use and extend page "CO2e Analysis Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label '3d1fa8eae4e214542edd', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eDecompositionTree.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eDecompositionTree.Page.al deleted file mode 100644 index 5da6fb83c4c..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eDecompositionTree.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37108 "CO2e Decomposition Tree" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'CO2e Decomposition Tree'; - AboutTitle = 'About CO2e Decomposition Tree'; - AboutText = 'The CO2e Decomposition Tree report breaks down CO2e emission metrics into its key contributing components to help users understand what is driving changes in CO2 emissions and why.'; - ObsoleteReason = 'Please use and extend page "CO2e Decomp. Tree Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label 'bac4712acce8c3ba0213', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eKeyInfluences.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eKeyInfluences.Page.al deleted file mode 100644 index 51b941611fb..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eKeyInfluences.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37093 "CO2e Key Influences" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'CO2e Key Influences'; - AboutTitle = 'About CO2e Key Influences'; - AboutText = 'The CO2e Key Influencers report identifies the key factors driving CO2e emission increases, highlighting the most impactful variables and trends based on the sustainability account categories.'; - ObsoleteReason = 'Please use and extend page "CO2e Key Influences Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label '6305c2799c0d6e6072b5', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/EmissionsbyCatandScope.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/EmissionsbyCatandScope.Page.al deleted file mode 100644 index 4afed94c16a..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/EmissionsbyCatandScope.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37088 "Emissions by Cat and Scope" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'Emissions by Category and Scope'; - AboutTitle = 'About Emissions by Category and Scope'; - AboutText = 'The Emissions by Scope report breakdowns each emission type and showcases this based on the Account Category and the Scope so you can see how each account and scope is tracking.'; - ObsoleteReason = 'Please use and extend page "Emissions by Cat and Scope PBI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label '723552ce7d04d22dc0c5', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/JourneytoNetZeroCarbon.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/JourneytoNetZeroCarbon.Page.al deleted file mode 100644 index 5562d827ba0..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/JourneytoNetZeroCarbon.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37090 "Journey to Net Zero Carbon" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'Journey to Net Zero Carbon'; - AboutTitle = 'About Journey to Net Zero Carbon'; - AboutText = 'The Journey to Net Zero highlights the journey to net zero within an organization.'; - ObsoleteReason = 'Please use and extend page "To Net Zero Carbon Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label '1782621aa0d0e087ed20', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/RealizedEmissionsvsBaseline.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/RealizedEmissionsvsBaseline.Page.al deleted file mode 100644 index 6fc99a02a7f..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/RealizedEmissionsvsBaseline.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37086 "Realized Emissions vs Baseline" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'Realized Emissions vs. Baseline'; - AboutTitle = 'About Realized Emissions vs. Baseline'; - AboutText = 'The Realized Emissions by Bassline report breaks down your carbon emissions and allows for comparison against a defined baseline period. This allows you to track your progress against the baseline and monitor trends against a previous period.'; - ObsoleteReason = 'Please use and extend page "Emissions vs Baseline Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label '56c99409880d5002ad2e', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/RealizedEmissionsvsTarget.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/RealizedEmissionsvsTarget.Page.al deleted file mode 100644 index 016c083eeec..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/RealizedEmissionsvsTarget.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37085 "Realized Emissions vs Target" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'Realized Emissions vs. Target'; - AboutTitle = 'About Realized Emissions vs. Target'; - AboutText = 'The Realized Emissions by Target report breaks down your carbon emissions and allows for comparison against the target. This allows you to effectively monitor planned progress and drive continuous improvement to sustainability goals.'; - ObsoleteReason = 'Please use and extend page "Emissions vs Target Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label 'b5e269104115da14c7e4', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SocialAnalysis.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SocialAnalysis.Page.al deleted file mode 100644 index 89263d9c2f2..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SocialAnalysis.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37091 "Social Analysis" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'Social Analysis'; - AboutTitle = 'About Social Analysis'; - AboutText = 'The Social Analysis report displays employee details as part of Social reporting for ESG. '; - ObsoleteReason = 'Please use and extend page "Social Analysis Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label 'df5c90f3b0b177923932', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SustainabilityOverview.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SustainabilityOverview.Page.al deleted file mode 100644 index db42975bdee..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SustainabilityOverview.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37084 "Sustainability Overview" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'Sustainability Overview'; - AboutTitle = 'About Sustainability Overview'; - AboutText = 'The Sustainability Overview gives you a high-level view of all the key sustainability metrics.'; - ObsoleteReason = 'Please use and extend page "Sust. Overview Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label '0b23e0ca6a2516847ca8', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SustainabilityReport.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SustainabilityReport.Page.al deleted file mode 100644 index d166069aa51..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SustainabilityReport.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37092 "Sustainability Report" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'Sustainability Report'; - AboutTitle = 'About Sustainability Report'; - AboutText = 'The Sustainability Report offers a view of all Sustainability report pages embedded into a single page for easy access. '; - ObsoleteReason = 'Please use and extend page "Sustainability Report Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label '', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/WaterandWasteAnalysis.Page.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/WaterandWasteAnalysis.Page.al deleted file mode 100644 index 0b352ab0124..00000000000 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/WaterandWasteAnalysis.Page.al +++ /dev/null @@ -1,64 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.PowerBIReports; - -using System.Integration.PowerBI; - -page 37087 "Water and Waste Analysis" -{ - UsageCategory = ReportsAndAnalysis; - ApplicationArea = All; - PageType = UserControlHost; - Caption = 'Water and Waste Analysis'; - AboutTitle = 'About Water and Waste Analysis'; - AboutText = 'The Water and Waste Analysis allows you to effectively monitor your water and waste usage by different metrics such as Water Type, Intensity Type, and Responsibility Center.'; - ObsoleteReason = 'Please use and extend page "Water and Waste Power BI" on the Sustainability app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(Content) - { - usercontrol(PowerBIAddin; PowerBIManagement) - { - ApplicationArea = All; - - trigger ControlAddInReady() - begin - SetupHelper.InitializeEmbeddedAddin(CurrPage.PowerBIAddin, ReportId, ReportPageLbl); - end; - - trigger ReportLoaded(ReportFilters: Text; ActivePageName: Text; ActivePageFilters: Text; CorrelationId: Text) - begin - SetupHelper.LogReportLoaded(CorrelationId); - end; - - trigger ErrorOccurred(Operation: Text; ErrorText: Text) - begin - SetupHelper.LogError(Operation, ErrorText); - SetupHelper.ShowPowerBIErrorNotification(Operation, ErrorText); - end; - } - } - } - - var - SetupHelper: Codeunit "Power BI Report Setup"; - ReportId: Guid; - ReportPageLbl: Label 'a8f44c103130e497d67d', Locked = true; - - trigger OnOpenPage() - var - PowerBIReportsSetup: Record "PowerBI Reports Setup"; - begin - SetupHelper.EnsureUserAcceptedPowerBITerms(); -#pragma warning disable AL0801 - ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#pragma warning restore AL0801 - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/SetupSustainability.TableExt.al b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/SetupSustainability.TableExt.al index 24d791cebbc..eeb5d3e401f 100644 --- a/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/SetupSustainability.TableExt.al +++ b/src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/SetupSustainability.TableExt.al @@ -17,13 +17,8 @@ tableextension 36957 "Setup - Sustainability" extends "PowerBI Reports Setup" OptionCaption = ' ,Start/End Date,Relative Date'; OptionMembers = " ","Start/End Date","Relative Date"; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = PendingMove; - ObsoleteTag = '27.0'; -#else ObsoleteState = Moved; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Tableextension moved to the Sustainability app, please add it to your dependencies'; MovedTo = 'b3780cd9-f8f8-4a83-a4d5-0c2ad87b28af'; } @@ -31,13 +26,8 @@ tableextension 36957 "Setup - Sustainability" extends "PowerBI Reports Setup" { Caption = 'Sustainability Report Start Date'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = PendingMove; - ObsoleteTag = '27.0'; -#else ObsoleteState = Moved; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Tableextension moved to the Sustainability app, please add it to your dependencies'; MovedTo = 'b3780cd9-f8f8-4a83-a4d5-0c2ad87b28af'; } @@ -45,13 +35,8 @@ tableextension 36957 "Setup - Sustainability" extends "PowerBI Reports Setup" { Caption = 'Sustainability Report End Date'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = PendingMove; - ObsoleteTag = '27.0'; -#else ObsoleteState = Moved; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Tableextension moved to the Sustainability app, please add it to your dependencies'; MovedTo = 'b3780cd9-f8f8-4a83-a4d5-0c2ad87b28af'; } @@ -59,13 +44,8 @@ tableextension 36957 "Setup - Sustainability" extends "PowerBI Reports Setup" { Caption = 'Sustainability Report Date Formula'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = PendingMove; - ObsoleteTag = '27.0'; -#else ObsoleteState = Moved; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Tableextension moved to the Sustainability app, please add it to your dependencies'; MovedTo = 'b3780cd9-f8f8-4a83-a4d5-0c2ad87b28af'; } @@ -73,13 +53,8 @@ tableextension 36957 "Setup - Sustainability" extends "PowerBI Reports Setup" { Caption = 'Sustainability Report ID'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = PendingMove; - ObsoleteTag = '27.0'; -#else ObsoleteState = Moved; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Tableextension moved to the Sustainability app, please add it to your dependencies'; MovedTo = 'b3780cd9-f8f8-4a83-a4d5-0c2ad87b28af'; } @@ -87,13 +62,8 @@ tableextension 36957 "Setup - Sustainability" extends "PowerBI Reports Setup" { Caption = 'Sustainability Report Name'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteState = PendingMove; - ObsoleteTag = '27.0'; -#else ObsoleteState = Moved; ObsoleteTag = '30.0'; -#endif ObsoleteReason = 'Tableextension moved to the Sustainability app, please add it to your dependencies'; MovedTo = 'b3780cd9-f8f8-4a83-a4d5-0c2ad87b28af'; } diff --git a/src/Apps/W1/PowerBIReports/Test Library/PowerBIAPIEndpoints.Enum.al b/src/Apps/W1/PowerBIReports/Test Library/PowerBIAPIEndpoints.Enum.al index 533220d865b..6c6204f699e 100644 --- a/src/Apps/W1/PowerBIReports/Test Library/PowerBIAPIEndpoints.Enum.al +++ b/src/Apps/W1/PowerBIReports/Test Library/PowerBIAPIEndpoints.Enum.al @@ -171,20 +171,6 @@ enum 139793 "PowerBI API Endpoints" value(58; "Work Center Groups") { } -#if not CLEAN27 - value(59; "Employee Ledger Entry") - { - ObsoleteReason = 'API Endpoint directly retrieved in Sustainability tests'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - value(60; "Sustainability Ledger Entry") - { - ObsoleteReason = 'API Endpoint directly retrieved in Sustainability tests'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif value(62; "Opportunity") { } @@ -209,14 +195,6 @@ enum 139793 "PowerBI API Endpoints" value(69; "Close Opporturnity Codes") { } -#if not CLEAN27 - value(70; "Sustainability Goals") - { - ObsoleteReason = 'API Endpoint directly retrieved in Sustainability tests'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif value(71; Resources) { } diff --git a/src/Apps/W1/PowerBIReports/Test Library/PowerBIFilterScenarios.Enum.al b/src/Apps/W1/PowerBIReports/Test Library/PowerBIFilterScenarios.Enum.al index acd8d3a39fd..958bada0778 100644 --- a/src/Apps/W1/PowerBIReports/Test Library/PowerBIFilterScenarios.Enum.al +++ b/src/Apps/W1/PowerBIReports/Test Library/PowerBIFilterScenarios.Enum.al @@ -30,13 +30,4 @@ enum 139792 "PowerBI Filter Scenarios" { Caption = 'Finance Date'; } -#if not CLEAN27 - value(7; "Sustainability Date") - { - Caption = 'Sustainability Date'; - ObsoleteReason = 'Unused, tests for the configured filter in the sustainability tests app.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif } \ No newline at end of file diff --git a/src/Apps/W1/ReviewGLEntries/app/permissions/ReviewGLEntriesRead.PermissionSet.al b/src/Apps/W1/ReviewGLEntries/app/permissions/ReviewGLEntriesRead.PermissionSet.al index 0a935960e27..fa7c93b40a1 100644 --- a/src/Apps/W1/ReviewGLEntries/app/permissions/ReviewGLEntriesRead.PermissionSet.al +++ b/src/Apps/W1/ReviewGLEntries/app/permissions/ReviewGLEntriesRead.PermissionSet.al @@ -13,10 +13,5 @@ permissionset 22219 "Review G/L Entries - Read" IncludedPermissionSets = "Review G/L Entries - Objects"; Permissions = tabledata "G/L Entry Review Log" = r, -#if not CLEAN27 -#pragma warning disable AL0432 - tabledata "G/L Entry Review Entry" = r, -#pragma warning restore AL0432 -#endif tabledata "G/L Entry Review Setup" = r; } \ No newline at end of file diff --git a/src/Apps/W1/ReviewGLEntries/app/permissions/ReviewGLEntriesView.PermissionSet.al b/src/Apps/W1/ReviewGLEntries/app/permissions/ReviewGLEntriesView.PermissionSet.al index 40be952e21a..e49757f3ec7 100644 --- a/src/Apps/W1/ReviewGLEntries/app/permissions/ReviewGLEntriesView.PermissionSet.al +++ b/src/Apps/W1/ReviewGLEntries/app/permissions/ReviewGLEntriesView.PermissionSet.al @@ -13,10 +13,5 @@ permissionset 22220 "Review G/L Entries - View" IncludedPermissionSets = "Review G/L Entries - Read"; Permissions = tabledata "G/L Entry Review Log" = imd, -#if not CLEAN27 -#pragma warning disable AL0432 - tabledata "G/L Entry Review Entry" = imd, -#pragma warning restore AL0432 -#endif tabledata "G/L Entry Review Setup" = imd; } \ No newline at end of file diff --git a/src/Apps/W1/ReviewGLEntries/app/src/codeunits/ReviewGLEntry.Codeunit.al b/src/Apps/W1/ReviewGLEntries/app/src/codeunits/ReviewGLEntry.Codeunit.al index a57193b8089..e057554e597 100644 --- a/src/Apps/W1/ReviewGLEntries/app/src/codeunits/ReviewGLEntry.Codeunit.al +++ b/src/Apps/W1/ReviewGLEntries/app/src/codeunits/ReviewGLEntry.Codeunit.al @@ -9,11 +9,6 @@ codeunit 22200 "Review G/L Entry" implements "G/L Entry Reviewer" { Permissions = TableData "G/L Entry" = rm, TableData "G/L Entry Review Setup" = ri, -#if not CLEAN27 -#pragma warning disable AL0432 - TableData "G/L Entry Review Entry" = rid, -#pragma warning restore AL0432 -#endif TableData "G/L Entry Review Log" = rid; var @@ -28,11 +23,6 @@ codeunit 22200 "Review G/L Entry" implements "G/L Entry Reviewer" GLEntrySnapshot: Record "G/L Entry"; TempGLEntry: Record "G/L Entry" temporary; GLEntryReviewLog: Record "G/L Entry Review Log"; -#if not CLEAN27 -#pragma warning disable AL0432 - GLEntryReviewEntry: Record "G/L Entry Review Entry"; -#pragma warning restore AL0432 -#endif FeatureTelemetry: Codeunit "Feature Telemetry"; UserName: Code[50]; Identifier: Integer; @@ -82,11 +72,6 @@ codeunit 22200 "Review G/L Entry" implements "G/L Entry Reviewer" GLEntryToProcess.Modify(true); end; until TempGLEntry.Next() = 0; -#if not CLEAN27 -#pragma warning disable AL0432 - OnAfterReviewEntries(GLEntry, GLEntryReviewEntry); -#pragma warning restore AL0432 -#endif OnAfterReviewEntriesLog(GLEntry, GLEntryReviewLog); @@ -232,15 +217,6 @@ codeunit 22200 "Review G/L Entry" implements "G/L Entry Reviewer" end; end; -#if not CLEAN27 -#pragma warning disable AL0432 - [Obsolete('Use the event OnAfterReviewEntriesLog instead.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterReviewEntries(var GLEntry: Record "G/L Entry"; var GLEntryReviewEntry: Record "G/L Entry Review Entry") - begin - end; -#pragma warning restore AL0432 -#endif [IntegrationEvent(false, false)] local procedure OnAfterReviewEntriesLog(var GLEntry: Record "G/L Entry"; var GLEntryReviewLog: Record "G/L Entry Review Log") diff --git a/src/Apps/W1/ReviewGLEntries/app/src/tables/GLEntryReviewEntry.Table.al b/src/Apps/W1/ReviewGLEntries/app/src/tables/GLEntryReviewEntry.Table.al index d4c27af163e..11674063f1a 100644 --- a/src/Apps/W1/ReviewGLEntries/app/src/tables/GLEntryReviewEntry.Table.al +++ b/src/Apps/W1/ReviewGLEntries/app/src/tables/GLEntryReviewEntry.Table.al @@ -6,13 +6,8 @@ using Microsoft.Finance.GeneralLedger.Ledger; table 22216 "G/L Entry Review Entry" { ObsoleteReason = 'Use "G/L Entry Review Log" instead.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif fields { diff --git a/src/Apps/W1/SalesOrderAgent/app/src/Integration/SOAgent.codeunit.al b/src/Apps/W1/SalesOrderAgent/app/src/Integration/SOAgent.codeunit.al deleted file mode 100644 index 707f734d4ac..00000000000 --- a/src/Apps/W1/SalesOrderAgent/app/src/Integration/SOAgent.codeunit.al +++ /dev/null @@ -1,28 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ - -#pragma warning disable AS0007 -namespace Microsoft.Agent.SalesOrderAgent; - -codeunit 4583 "SO Agent" -{ - InherentEntitlements = X; - InherentPermissions = X; - ObsoleteReason = 'This codeunit is no longer used.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - /// - /// Limit cannot be greater than 100 - /// - /// Limit of the number of emails that can be processed in 24 hours - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used. There is no limit on the number of emails that can be processed in 24 hours.', '27.0')] - internal procedure OnGetEmailProcessLimitPer24Hours(var limit: Integer) - begin - end; -} -#endif \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcItemJnlPostLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcItemJnlPostLineExt.Codeunit.al index 82705d121ec..ced8ff4c09b 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcItemJnlPostLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcItemJnlPostLineExt.Codeunit.al @@ -46,13 +46,7 @@ codeunit 20515 "Subc. ItemJnlPostLine Ext" UpdateCapLedgerEntry(CapLedgEntry, ItemJournalLine); end; -#if not CLEAN27 -#pragma warning disable AL0432 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Jnl.-Post Line", OnAfterPostOutput, '', false, false)] -#pragma warning restore AL0432 -#else [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Item Jnl.-Post Line", OnAfterPostOutput, '', false, false)] -#endif local procedure OnAfterPostOutput(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record "Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line") begin #if not CLEAN29 diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcBOMTreeExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcBOMTreeExt.Codeunit.al index a26483575e7..dc2ea2d7343 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcBOMTreeExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcBOMTreeExt.Codeunit.al @@ -10,13 +10,7 @@ using Microsoft.Manufacturing.Routing; codeunit 20521 "Subc. Calc BOM Tree Ext." { -#if not CLEAN27 -#pragma warning disable AL0432 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Calculate BOM Tree", OnBeforeCalcRoutingLineCosts, '', false, false)] -#pragma warning restore AL0432 -#else [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Calculate BOM Tree", OnBeforeCalcRoutingLineCosts, '', false, false)] -#endif local procedure OnBeforeCalcRoutingLineCosts(var RoutingLine: Record "Routing Line"; var LotSize: Decimal; var ScrapPct: Decimal; ParentItem: Record Item) var SubcSessionState: Codeunit "Subc. Session State"; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCarryOutActionExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCarryOutActionExt.Codeunit.al index 44c0afc1765..5aebce518c1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCarryOutActionExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCarryOutActionExt.Codeunit.al @@ -10,13 +10,7 @@ using Microsoft.Manufacturing.Document; codeunit 20523 "Subc. Carry Out Action Ext." { -#if not CLEAN27 -#pragma warning disable AL0432 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Carry Out Action", OnAfterTransferPlanningComp, '', false, false)] -#pragma warning restore AL0432 -#else [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Carry Out Action", OnAfterTransferPlanningComp, '', false, false)] -#endif local procedure OnAfterTransferPlanningComp(var PlanningComponent: Record "Planning Component"; var ProdOrderComponent: Record "Prod. Order Component") #if not CLEAN29 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al index fc710439f78..cfd62e0d85b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al @@ -20,13 +20,7 @@ codeunit 20518 "Subc. Planning Line Mgmt Ext." SubcFeatureFlagHandler: Codeunit "Subc. Feature Flag Handler"; #pragma warning restore AL0432 #endif -#if not CLEAN27 -#pragma warning disable AL0432 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Planning Line Management", OnAfterTransferRtngLine, '', false, false)] -#pragma warning restore AL0432 -#else [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Planning Line Management", OnAfterTransferRtngLine, '', false, false)] -#endif local procedure OnAfterTransferRtngLine(var ReqLine: Record "Requisition Line"; var RoutingLine: Record "Routing Line"; var PlanningRoutingLine: Record "Planning Routing Line") var SubcPriceManagement: Codeunit "Subc. Price Management"; diff --git a/src/Apps/W1/Subcontracting/Test/Libraries/SubcLibraryMfgManagement.Codeunit.al b/src/Apps/W1/Subcontracting/Test/Libraries/SubcLibraryMfgManagement.Codeunit.al index b70768c58d3..867b64f65cb 100644 --- a/src/Apps/W1/Subcontracting/Test/Libraries/SubcLibraryMfgManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/Libraries/SubcLibraryMfgManagement.Codeunit.al @@ -8,9 +8,7 @@ using Microsoft.Finance.GeneralLedger.Setup; using Microsoft.Inventory.Item; using Microsoft.Inventory.Journal; using Microsoft.Inventory.Requisition; -#if CLEAN27 using Microsoft.Inventory.Setup; -#endif using Microsoft.Manufacturing.Capacity; using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.MachineCenter; @@ -39,9 +37,7 @@ codeunit 139984 "Subc. Library Mfg. Management" local procedure CreateManufacturingSetup() var MfgSetup: Record "Manufacturing Setup"; -#if CLEAN27 InventorySetup: Record "Inventory Setup"; -#endif begin if not MfgSetup.Get() then MfgSetup.Insert(); @@ -58,13 +54,6 @@ codeunit 139984 "Subc. Library Mfg. Management" MfgSetup."Work Center Nos." := LibraryERM.CreateNoSeriesCode(); MfgSetup."Routing Nos." := LibraryERM.CreateNoSeriesCode(); MfgSetup."Production BOM Nos." := LibraryERM.CreateNoSeriesCode(); -#if not CLEAN27 -#pragma warning disable AL0432 - MfgSetup."Combined MPS/MRP Calculation" := true; - Evaluate(MfgSetup."Default Safety Lead Time", '<1D>'); -#pragma warning restore AL0432 - MfgSetup.Modify(); -#else if not InventorySetup.Get() then begin InventorySetup.Init(); InventorySetup.Insert(); @@ -72,7 +61,6 @@ codeunit 139984 "Subc. Library Mfg. Management" Evaluate(InventorySetup."Default Safety Lead Time", '<1D>'); InventorySetup.Modify(); end; -#endif end; procedure CreateWorkCenterWithFixedCost(var WorkCenter: Record "Work Center"; ShopCalendarCode: Code[10]; DirectUnitCost: Decimal) diff --git a/src/Apps/W1/Subscription Billing/App/APIs/Pages/CustomerContractsAPI.Page.al b/src/Apps/W1/Subscription Billing/App/APIs/Pages/CustomerContractsAPI.Page.al index 50883ab7e50..75b5cc15e07 100644 --- a/src/Apps/W1/Subscription Billing/App/APIs/Pages/CustomerContractsAPI.Page.al +++ b/src/Apps/W1/Subscription Billing/App/APIs/Pages/CustomerContractsAPI.Page.al @@ -156,14 +156,6 @@ page 8024 "Customer Contracts API" field(descriptionPreview; Rec."Description Preview") { } -#if not CLEAN27 - field(withoutContractDeferrals; Rec."Without Contract Deferrals") - { - ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field(createContractDeferrals; Rec."Create Contract Deferrals") { } diff --git a/src/Apps/W1/Subscription Billing/App/APIs/Pages/VendorContractsAPI.Page.al b/src/Apps/W1/Subscription Billing/App/APIs/Pages/VendorContractsAPI.Page.al index 4f25fe7eadd..f70828fbc58 100644 --- a/src/Apps/W1/Subscription Billing/App/APIs/Pages/VendorContractsAPI.Page.al +++ b/src/Apps/W1/Subscription Billing/App/APIs/Pages/VendorContractsAPI.Page.al @@ -135,14 +135,6 @@ page 8023 "Vendor Contracts API" field(contractType; Rec."Contract Type") { } -#if not CLEAN27 - field(withoutContractDeferrals; Rec."Without Contract Deferrals") - { - ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field(createContractDeferrals; Rec."Create Contract Deferrals") { } diff --git a/src/Apps/W1/Subscription Billing/App/Base/Pages/ContractTypes.Page.al b/src/Apps/W1/Subscription Billing/App/Base/Pages/ContractTypes.Page.al index a6422618501..081f46d655b 100644 --- a/src/Apps/W1/Subscription Billing/App/Base/Pages/ContractTypes.Page.al +++ b/src/Apps/W1/Subscription Billing/App/Base/Pages/ContractTypes.Page.al @@ -31,16 +31,6 @@ page 8054 "Contract Types" { ToolTip = 'Specifies that the contract elements of the Customer Subscription Contracts with this Subscription Contract Type are billed on a common key date.'; } -#if not CLEAN27 - field(DefaultWithoutContractDeferrals; Rec."Def. Without Contr. Deferrals") - { - ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Visible = false; - ToolTip = 'Specifies the default value for the associated field in the contract.'; - } -#endif field(ContractDeferrals; Rec."Create Contract Deferrals") { ToolTip = 'Specifies the default value for the associated field in the contract.'; diff --git a/src/Apps/W1/Subscription Billing/App/Base/Tables/SubscriptionBillingCue.Table.al b/src/Apps/W1/Subscription Billing/App/Base/Tables/SubscriptionBillingCue.Table.al index 3e9132f15b7..5d424c2f683 100644 --- a/src/Apps/W1/Subscription Billing/App/Base/Tables/SubscriptionBillingCue.Table.al +++ b/src/Apps/W1/Subscription Billing/App/Base/Tables/SubscriptionBillingCue.Table.al @@ -120,13 +120,8 @@ table 8070 "Subscription Billing Cue" Editable = false; FieldClass = FlowFilter; ObsoleteReason = 'Removed as projects are not relevant in context of Subscription Billing'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '28.0'; -#else ObsoleteState = Removed; ObsoleteTag = '31.0'; -#endif } #endif field(22; Overdue; Integer) diff --git a/src/Apps/W1/Subscription Billing/App/Base/Tables/SubscriptionContractType.Table.al b/src/Apps/W1/Subscription Billing/App/Base/Tables/SubscriptionContractType.Table.al index 189292255c1..8f4f923e38e 100644 --- a/src/Apps/W1/Subscription Billing/App/Base/Tables/SubscriptionContractType.Table.al +++ b/src/Apps/W1/Subscription Billing/App/Base/Tables/SubscriptionContractType.Table.al @@ -33,13 +33,8 @@ table 8053 "Subscription Contract Type" field(4; "Def. Without Contr. Deferrals"; Boolean) { ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif Caption = 'Default Without Contract Deferrals'; } #endif diff --git a/src/Apps/W1/Subscription Billing/App/Customer Contracts/Pages/CustomerContract.Page.al b/src/Apps/W1/Subscription Billing/App/Customer Contracts/Pages/CustomerContract.Page.al index 61c1a370189..00664c4e521 100644 --- a/src/Apps/W1/Subscription Billing/App/Customer Contracts/Pages/CustomerContract.Page.al +++ b/src/Apps/W1/Subscription Billing/App/Customer Contracts/Pages/CustomerContract.Page.al @@ -205,19 +205,6 @@ page 8052 "Customer Contract" Importance = Additional; ToolTip = 'Specifies the ID of the user who is responsible for the document.'; } -#if not CLEAN27 - field("Without Contract Deferrals"; Rec."Without Contract Deferrals") - { - ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ApplicationArea = Suite; - Importance = Additional; - QuickEntry = false; - Visible = false; - ToolTip = 'Specifies whether deferrals should be generated for the contract. If the field is activated, no deferrals are generated and the invoices are posted directly to profit or loss.'; - } -#endif field("Create Contract Deferrals"; Rec."Create Contract Deferrals") { ApplicationArea = Suite; diff --git a/src/Apps/W1/Subscription Billing/App/Customer Contracts/Tables/CustomerSubscriptionContract.Table.al b/src/Apps/W1/Subscription Billing/App/Customer Contracts/Tables/CustomerSubscriptionContract.Table.al index eb546eb340c..a9289d307c5 100644 --- a/src/Apps/W1/Subscription Billing/App/Customer Contracts/Tables/CustomerSubscriptionContract.Table.al +++ b/src/Apps/W1/Subscription Billing/App/Customer Contracts/Tables/CustomerSubscriptionContract.Table.al @@ -848,13 +848,8 @@ table 8052 "Customer Subscription Contract" field(8051; "Without Contract Deferrals"; Boolean) { ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif Caption = 'Without Contract Deferrals'; } #endif diff --git a/src/Apps/W1/Subscription Billing/App/Import/Pages/ImportedCustomerContracts.Page.al b/src/Apps/W1/Subscription Billing/App/Import/Pages/ImportedCustomerContracts.Page.al index 6a903595dde..8ab367a78ad 100644 --- a/src/Apps/W1/Subscription Billing/App/Import/Pages/ImportedCustomerContracts.Page.al +++ b/src/Apps/W1/Subscription Billing/App/Import/Pages/ImportedCustomerContracts.Page.al @@ -54,16 +54,6 @@ page 8013 "Imported Customer Contracts" { ToolTip = 'Specifies the ID of the user who is responsible for the document.'; } -#if not CLEAN27 - field("Without Contract Deferrals"; Rec."Without Contract Deferrals") - { - ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Visible = false; - ToolTip = 'Specifies whether deferrals should be generated for the contract. If the field is activated, no deferrals are generated and the invoices are posted directly to profit or loss.'; - } -#endif field("Create Contract Deferrals"; Rec."Create Contract Deferrals") { ToolTip = 'Specifies whether to generate contract deferrals for the contract in general. The field affects only Subscription lines assigned to the contract for which the field "Create Contract Deferrals" is set to Contract-dependent.'; diff --git a/src/Apps/W1/Subscription Billing/App/Import/Tables/ImportedCustSubContract.Table.al b/src/Apps/W1/Subscription Billing/App/Import/Tables/ImportedCustSubContract.Table.al index 854ab75297a..f4f681ad4f3 100644 --- a/src/Apps/W1/Subscription Billing/App/Import/Tables/ImportedCustSubContract.Table.al +++ b/src/Apps/W1/Subscription Billing/App/Import/Tables/ImportedCustSubContract.Table.al @@ -157,13 +157,8 @@ table 8010 "Imported Cust. Sub. Contract" field(14; "Without Contract Deferrals"; Boolean) { ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif Caption = 'Without Contract Deferrals'; } #endif diff --git a/src/Apps/W1/Subscription Billing/App/Vendor Contracts/Pages/VendorContract.Page.al b/src/Apps/W1/Subscription Billing/App/Vendor Contracts/Pages/VendorContract.Page.al index 28b6bd0bafa..59732f2e0d2 100644 --- a/src/Apps/W1/Subscription Billing/App/Vendor Contracts/Pages/VendorContract.Page.al +++ b/src/Apps/W1/Subscription Billing/App/Vendor Contracts/Pages/VendorContract.Page.al @@ -187,19 +187,6 @@ page 8070 "Vendor Contract" Importance = Additional; ToolTip = 'Specifies the ID of the user who is responsible for the document.'; } -#if not CLEAN27 - field("Without Contract Deferrals"; Rec."Without Contract Deferrals") - { - ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ApplicationArea = Suite; - Importance = Additional; - QuickEntry = false; - Visible = false; - ToolTip = 'Specifies whether deferrals should be generated for the contract. If the field is activated, no deferrals are generated and the invoices are posted directly to profit or loss.'; - } -#endif field("Create Contract Deferrals"; Rec."Create Contract Deferrals") { ApplicationArea = Suite; diff --git a/src/Apps/W1/Subscription Billing/App/Vendor Contracts/Tables/VendorSubscriptionContract.Table.al b/src/Apps/W1/Subscription Billing/App/Vendor Contracts/Tables/VendorSubscriptionContract.Table.al index dbcdb0c6a69..57be24f381d 100644 --- a/src/Apps/W1/Subscription Billing/App/Vendor Contracts/Tables/VendorSubscriptionContract.Table.al +++ b/src/Apps/W1/Subscription Billing/App/Vendor Contracts/Tables/VendorSubscriptionContract.Table.al @@ -699,13 +699,8 @@ table 8063 "Vendor Subscription Contract" { Caption = 'Without Contract Deferrals'; ObsoleteReason = 'Removed in favor of Create Contract Deferrals.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } #endif field(8053; "Billing Rhythm Filter"; DateFormula) diff --git a/src/Apps/W1/Sustainability/app/src/Manufacturing/SustManufacturingSubscriber.Codeunit.al b/src/Apps/W1/Sustainability/app/src/Manufacturing/SustManufacturingSubscriber.Codeunit.al index 3d4d8c0f24a..e542cacb37d 100644 --- a/src/Apps/W1/Sustainability/app/src/Manufacturing/SustManufacturingSubscriber.Codeunit.al +++ b/src/Apps/W1/Sustainability/app/src/Manufacturing/SustManufacturingSubscriber.Codeunit.al @@ -183,11 +183,7 @@ codeunit 6254 "Sust. Manufacturing Subscriber" Rec.UpdateSustainabilityEmission(Rec); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Jnl.-Post Line", 'OnPostOutputOnBeforePostItem', '', false, false)] -#else [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Item Jnl.-Post Line", 'OnPostOutputOnBeforePostItem', '', false, false)] -#endif local procedure OnPostOutputOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record "Prod. Order Line"; var IsHandled: Boolean) begin if IsHandled then @@ -233,33 +229,21 @@ codeunit 6254 "Sust. Manufacturing Subscriber" ItemJournalLine.Validate("Sust. Account No.", ''); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Jnl.-Post Line", 'OnPostConsumptionOnBeforeCalcRemainingQuantity', '', false, false)] -#else [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Item Jnl.-Post Line", 'OnPostConsumptionOnBeforeCalcRemainingQuantity', '', false, false)] -#endif local procedure OnPostConsumptionOnBeforeCalcRemainingQuantity(var ProdOrderComp: Record "Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var QtyToPost: Decimal) begin if (ItemJnlLine."Sust. Account No." <> '') and (QtyToPost <> 0) then ProdOrderComp."Posted Total CO2e" += ItemJnlLine.GetPostingSign(ItemJnlLine.IsGHGCreditLine()) * ItemJnlLine."Total CO2e"; end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Jnl.-Post Line", 'OnPostOutputOnBeforeProdOrderRtngLineModify', '', false, false)] -#else [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Item Jnl.-Post Line", 'OnPostOutputOnBeforeProdOrderRtngLineModify', '', false, false)] -#endif local procedure OnPostOutputOnBeforeProdOrderRtngLineModify(var ProdOrderRoutingLine: Record "Prod. Order Routing Line"; var ItemJournalLine: Record "Item Journal Line") begin if (ItemJournalLine."Sust. Account No." <> '') then ProdOrderRoutingLine."Posted Total CO2e" += ItemJournalLine.GetPostingSign(ItemJournalLine.IsGHGCreditLine()) * ItemJournalLine."Total CO2e"; end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Jnl.-Post Line", 'OnBeforeProdOrderLineModify', '', false, false)] -#else [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Item Jnl.-Post Line", 'OnBeforeProdOrderLineModify', '', false, false)] -#endif local procedure OnBeforeProdOrderLineModify(var ProdOrderLine: Record "Prod. Order Line"; ItemJournalLine: Record "Item Journal Line") begin if (ItemJournalLine."Sust. Account No." <> '') then diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eAnalysisPowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eAnalysisPowerBI.Page.al index 401deba4a9b..e2f1c372a59 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eAnalysisPowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eAnalysisPowerBI.Page.al @@ -48,13 +48,7 @@ page 6299 "CO2e Analysis Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eDecompTreePowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eDecompTreePowerBI.Page.al index 447d703c5b8..e8efab17884 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eDecompTreePowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eDecompTreePowerBI.Page.al @@ -48,13 +48,7 @@ page 6303 "CO2e Decomp. Tree Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eKeyInfluencesPowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eKeyInfluencesPowerBI.Page.al index 74d25675ef8..b319e01dd25 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eKeyInfluencesPowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/CO2eKeyInfluencesPowerBI.Page.al @@ -48,13 +48,7 @@ page 6304 "CO2e Key Influences Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsbyCatandScopePBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsbyCatandScopePBI.Page.al index 01e2b9054af..42c9a938104 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsbyCatandScopePBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsbyCatandScopePBI.Page.al @@ -48,13 +48,7 @@ page 6305 "Emissions by Cat and Scope PBI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsvsBaselinePowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsvsBaselinePowerBI.Page.al index 6685950823b..570645c3efd 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsvsBaselinePowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsvsBaselinePowerBI.Page.al @@ -48,13 +48,7 @@ page 6306 "Emissions vs Baseline Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsvsTargetPowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsvsTargetPowerBI.Page.al index 8e61c713d6a..c1252e5240f 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsvsTargetPowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/EmissionsvsTargetPowerBI.Page.al @@ -48,13 +48,7 @@ page 6277 "Emissions vs Target Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SocialAnalysisPowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SocialAnalysisPowerBI.Page.al index b94e9dbf5d5..8c0eba0ebba 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SocialAnalysisPowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SocialAnalysisPowerBI.Page.al @@ -48,13 +48,7 @@ page 6278 "Social Analysis Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SustOverviewPowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SustOverviewPowerBI.Page.al index 73bfeac567e..e8ff96d5f01 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SustOverviewPowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SustOverviewPowerBI.Page.al @@ -48,13 +48,7 @@ page 6279 "Sust. Overview Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SustainabilityReportPowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SustainabilityReportPowerBI.Page.al index 1f7401d82f5..827a14a7c04 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SustainabilityReportPowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/SustainabilityReportPowerBI.Page.al @@ -48,13 +48,7 @@ page 6316 "Sustainability Report Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/ToNetZeroCarbonPowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/ToNetZeroCarbonPowerBI.Page.al index b6155936573..ead37023636 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/ToNetZeroCarbonPowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/ToNetZeroCarbonPowerBI.Page.al @@ -48,13 +48,7 @@ page 6317 "To Net Zero Carbon Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/WaterandWastePowerBI.Page.al b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/WaterandWastePowerBI.Page.al index b145e6131c9..8ac8c68e44e 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/WaterandWastePowerBI.Page.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/Embedded/WaterandWastePowerBI.Page.al @@ -48,13 +48,7 @@ page 6319 "Water and Waste Power BI" PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin SetupHelper.EnsureUserAcceptedPowerBITerms(); -#if not CLEAN27 -#pragma warning disable AL0801 -#endif ReportId := SetupHelper.GetReportIdAndEnsureSetup(CurrPage.Caption(), PowerBIReportsSetup.FieldNo("Sustainability Report ID")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/PBISustainFilterHelper.Codeunit.al b/src/Apps/W1/Sustainability/app/src/PowerBI/PBISustainFilterHelper.Codeunit.al index da19f82b97d..8722dae4ad2 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/PBISustainFilterHelper.Codeunit.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/PBISustainFilterHelper.Codeunit.al @@ -12,9 +12,6 @@ codeunit 6281 "PBI Sustain. Filter Helper" RelativeFilterLbl: Label '%1..', Locked = true; FilterTxt: Text; begin -#if not CLEAN27 -#pragma warning disable AL0801 -#endif if PBISetup.Get() then case PBISetup."Sustainability Load Date Type" of PBISetup."Sustainability Load Date Type"::"Start/End Date": @@ -33,9 +30,6 @@ codeunit 6281 "PBI Sustain. Filter Helper" exit(''); end; exit(''); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; [EventSubscriber(ObjectType::Codeunit, Codeunit::Initialization, OnGettingSetupFieldsToAuditFromPowerBIReportsSetup, '', false, false)] @@ -43,14 +37,8 @@ codeunit 6281 "PBI Sustain. Filter Helper" var PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin -#if not CLEAN27 -#pragma warning disable AL0801 -#endif if not FieldsMonitored.Contains(PowerBIReportsSetup.FieldNo("Sustainability Report Id")) then FieldsMonitored.Add(PowerBIReportsSetup.FieldNo("Sustainability Report Id")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } \ No newline at end of file diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/PBISustainabilityApp.Codeunit.al b/src/Apps/W1/Sustainability/app/src/PowerBI/PBISustainabilityApp.Codeunit.al index e770974a538..371e2676bbb 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/PBISustainabilityApp.Codeunit.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/PBISustainabilityApp.Codeunit.al @@ -39,25 +39,13 @@ codeunit 6287 "PBI Sustainability App" implements "Power BI Deployable Report", var PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin -#if not CLEAN27 -#pragma warning disable AL0801 -#endif exit(PowerBIReportsSetup.FieldNo("Sustainability Report Id")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; procedure GetSetupReportNameFieldNo(): Integer var PowerBIReportsSetup: Record "PowerBI Reports Setup"; begin -#if not CLEAN27 -#pragma warning disable AL0801 -#endif exit(PowerBIReportsSetup.FieldNo("Sustainability Report Name")); -#if not CLEAN27 -#pragma warning restore AL0801 -#endif end; } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/PowerBISetupSust.TableExt.al b/src/Apps/W1/Sustainability/app/src/PowerBI/PowerBISetupSust.TableExt.al index 8ed2894ec31..419289d545d 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/PowerBISetupSust.TableExt.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/PowerBISetupSust.TableExt.al @@ -1,4 +1,3 @@ -#if CLEAN27 namespace Microsoft.Sustainability.PowerBIReports; using Microsoft.PowerBIReports; @@ -46,5 +45,4 @@ tableextension 6262 "Power BI Setup - Sust." extends "PowerBI Reports Setup" MovedFrom = 'e4e86220-cac0-4ec3-b853-7c2fa610399d'; } } -} -#endif \ No newline at end of file +} \ No newline at end of file diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/SustPBIAssistedSetup.PageExt.al b/src/Apps/W1/Sustainability/app/src/PowerBI/SustPBIAssistedSetup.PageExt.al index 96112559b99..e8330e2208d 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/SustPBIAssistedSetup.PageExt.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/SustPBIAssistedSetup.PageExt.al @@ -7,9 +7,6 @@ pageextension 6264 "Sust. PBI Assisted Setup" extends "PowerBI Assisted Setup" { addlast(Step5) { -#if not CLEAN27 -#pragma warning disable AL0801 -#endif group(SustainabilityReportSetup) { @@ -98,9 +95,6 @@ pageextension 6264 "Sust. PBI Assisted Setup" extends "PowerBI Assisted Setup" } } } -#if not CLEAN27 -#pragma warning restore AL0801 -#endif } } diff --git a/src/Apps/W1/Sustainability/app/src/PowerBI/SustPBIReportsSetup.PageExt.al b/src/Apps/W1/Sustainability/app/src/PowerBI/SustPBIReportsSetup.PageExt.al index fe38e9e20b8..1f129e33264 100644 --- a/src/Apps/W1/Sustainability/app/src/PowerBI/SustPBIReportsSetup.PageExt.al +++ b/src/Apps/W1/Sustainability/app/src/PowerBI/SustPBIReportsSetup.PageExt.al @@ -8,9 +8,6 @@ pageextension 6261 "Sust. PBI Reports Setup" extends "PowerBI Reports Setup" { addbefore(Dimensions) { -#if not CLEAN27 -#pragma warning disable AL0801 -#endif group(SustainabilityReport) { Caption = 'Sustainability Report'; @@ -65,9 +62,6 @@ pageextension 6261 "Sust. PBI Reports Setup" extends "PowerBI Reports Setup" } } } -#if not CLEAN27 -#pragma warning restore AL0801 -#endif } } } \ No newline at end of file diff --git a/src/Apps/W1/Sustainability/test/src/PowerBISustainabilityTest.Codeunit.al b/src/Apps/W1/Sustainability/test/src/PowerBISustainabilityTest.Codeunit.al index ea161283989..e91d24174c6 100644 --- a/src/Apps/W1/Sustainability/test/src/PowerBISustainabilityTest.Codeunit.al +++ b/src/Apps/W1/Sustainability/test/src/PowerBISustainabilityTest.Codeunit.al @@ -213,9 +213,6 @@ codeunit 148215 "PowerBI Sustainability Test" VerifySustainabilityGoal(Response, SustainabilityGoal); end; -#if not CLEAN27 -#pragma warning disable AL0801 -#endif [Test] procedure TestGenerateSustainabilityReportDateFilter_StartEndDate() var @@ -336,9 +333,6 @@ codeunit 148215 "PowerBI Sustainability Test" Assert.IsFalse(IsEndDateVisible, StrSubstNo(FieldShownMsg, PowerBIReportsSetup."Sustainability End Date".Caption())); Assert.IsFalse(IsDateFormulaVisible, StrSubstNo(FieldShownMsg, PowerBIReportsSetup."Sustainability Date Formula".Caption())); end; -#if not CLEAN27 -#pragma warning restore AL0801 -#endif local procedure RecreatePBISetup() var diff --git a/src/Apps/W1/VATGroupManagement/app/src/Codeunits/VATGroupHelperFunctions.Codeunit.al b/src/Apps/W1/VATGroupManagement/app/src/Codeunits/VATGroupHelperFunctions.Codeunit.al index 98a3b490a14..56c184b5870 100644 --- a/src/Apps/W1/VATGroupManagement/app/src/Codeunits/VATGroupHelperFunctions.Codeunit.al +++ b/src/Apps/W1/VATGroupManagement/app/src/Codeunits/VATGroupHelperFunctions.Codeunit.al @@ -31,7 +31,7 @@ codeunit 4701 "VAT Group Helper Functions" VATStatementReportLine.SetRange("VAT Report No.", VATReportHeader."No."); VATStatementReportLine.SetRange("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"); - if VATStatementReportLine.FindSet(true, false) then + if VATStatementReportLine.FindSet(true) then repeat VATStatementReportLine."Representative Amount" := VATStatementReportLine.Amount; VATStatementReportLine.Modify(); diff --git a/src/Layers/APAC/BaseApp/Bank/BankAccount/BankAccount.Table.al b/src/Layers/APAC/BaseApp/Bank/BankAccount/BankAccount.Table.al index c2976fa6567..d9e568aea0f 100644 --- a/src/Layers/APAC/BaseApp/Bank/BankAccount/BankAccount.Table.al +++ b/src/Layers/APAC/BaseApp/Bank/BankAccount/BankAccount.Table.al @@ -721,13 +721,7 @@ table 270 "Bank Account" /// /// Website URL for the bank or financial institution. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/APAC/BaseApp/CRM/Contact/Contact.Table.al b/src/Layers/APAC/BaseApp/CRM/Contact/Contact.Table.al index 9457e655b24..111a955caad 100644 --- a/src/Layers/APAC/BaseApp/CRM/Contact/Contact.Table.al +++ b/src/Layers/APAC/BaseApp/CRM/Contact/Contact.Table.al @@ -364,13 +364,7 @@ table 5050 Contact SetSearchEmail(); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the contact''s web site.'; diff --git a/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al b/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al index 3dd14def47b..680bbbb059d 100644 --- a/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al +++ b/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al @@ -956,17 +956,6 @@ table 17 "G/L Entry" LastTransactionNo := FieldNoValues.Get(2); end; -#if not CLEAN27 - /// - /// Gets the additional reporting currency code from General Ledger Setup. - /// - /// Additional reporting currency code - [Obsolete('use GetAdditionalReportingCurrencyCode instead', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; -#endif /// /// Opens the Value Entries page showing item ledger entries related to this G/L entry. /// diff --git a/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al b/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al index 343cefe325e..64921776b6a 100644 --- a/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al +++ b/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al @@ -10103,7 +10103,7 @@ codeunit 12 "Gen. Jnl.-Post Line" WHTEntry.Reset(); WHTEntry.SetCurrentKey("Document No.", "Posting Date"); WHTEntry.SetRange("Document No.", DocNo); - if WHTEntry.FindSet(true, false) then + if WHTEntry.FindSet(true) then repeat WHTPostingSetup.Get(WHTEntry."WHT Bus. Posting Group", WHTEntry."WHT Prod. Posting Group"); if (WHTPostingSetup."Realized WHT Type" = WHTPostingSetup."Realized WHT Type"::Invoice) or diff --git a/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al b/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al index 9a75dda0bcc..ed2b5b04ba7 100644 --- a/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al +++ b/src/Layers/APAC/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al @@ -472,17 +472,11 @@ page 118 "General Ledger Setup" { ApplicationArea = Basic, Suite; Caption = 'Default View by'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Neg. Amount Format"; Rec."Fin. Rep. Neg. Amount Format") { ApplicationArea = Basic, Suite; Caption = 'Default Negative Amount Format'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Company Logo Pos."; Rec."Fin. Rep. Company Logo Pos.") { @@ -1045,11 +1039,6 @@ page 118 "General Ledger Setup" trigger OnOpenPage() var -#if not CLEAN27 -#pragma warning disable AL0432 - FeatureFinancialReportDef: Codeunit "Feature - Fin. Report Default"; -#pragma warning restore AL0432 -#endif begin Rec.Reset(); if not Rec.Get() then begin @@ -1061,9 +1050,6 @@ page 118 "General Ledger Setup" IsJournalTemplatesVisible := Rec."Journal Templ. Name Mandatory"; UpdateControls(); -#if not CLEAN27 - FinancialReportDefaultsEnabled := FeatureFinancialReportDef.IsDefaultsFeatureEnabled(); -#endif end; var @@ -1077,9 +1063,6 @@ page 118 "General Ledger Setup" BAStobeLodgedasaGroupEnable: Boolean; "BAS Group CompanyEnable": Boolean; "BAS GST Division FactorEnable": Boolean; -#if not CLEAN27 - FinancialReportDefaultsEnabled: Boolean; -#endif #pragma warning disable AA0074 Text001: Label 'Do you want to change all open entries for every customer and vendor that are not blocked?'; Text002: Label 'If you delete the additional reporting currency, future general ledger entries are posted in LCY only. Deleting the additional reporting currency does not affect already posted general ledger entries.\\Are you sure that you want to delete the additional reporting currency?'; diff --git a/src/Layers/APAC/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/APAC/BaseApp/Foundation/Company/CompanyInformation.Table.al index 29b9c42c411..9f9c25252b1 100644 --- a/src/Layers/APAC/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/APAC/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -307,13 +307,7 @@ table 79 "Company Information" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(35; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies your company''s web site.'; @@ -503,13 +497,7 @@ table 79 "Company Information" ToolTip = 'Specifies how dates based on calendar and calendar-related documents are calculated.'; InitValue = '1Y'; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(11620; ABN; Text[13]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'ABN'; Numeric = true; diff --git a/src/Layers/APAC/BaseApp/Inventory/Costing/InventoryAdjustment.Codeunit.al b/src/Layers/APAC/BaseApp/Inventory/Costing/InventoryAdjustment.Codeunit.al index d76789243ff..119cb4e615a 100644 --- a/src/Layers/APAC/BaseApp/Inventory/Costing/InventoryAdjustment.Codeunit.al +++ b/src/Layers/APAC/BaseApp/Inventory/Costing/InventoryAdjustment.Codeunit.al @@ -3540,13 +3540,6 @@ codeunit 5895 "Inventory Adjustment" implements "Inventory Adjustment", "Cost Ad begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterSetParameters(var CostAdjustmentParameter: Record "Cost Adjustment Parameter") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnExcludeAvgCostOnValuationDateOnAfterGetItemApplicationTrace(var OutbndValueEntry: Record "Value Entry"; var OutbndEntryItemApplicationTrace: Record "Item Application Trace") begin diff --git a/src/Layers/APAC/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al b/src/Layers/APAC/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al index d3dfdf8a421..697258d7ab7 100644 --- a/src/Layers/APAC/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al +++ b/src/Layers/APAC/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al @@ -718,14 +718,6 @@ table 32 "Item Ledger Entry" exit(FindRecordManagement.GetLastEntryIntFieldValue(Rec, FieldNo("Entry No."))) end; -#if not CLEAN27 - [Obsolete('Please use GetAdditionalReportingCurrencyCode instead.', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; - -#endif procedure GetAdditionalReportingCurrencyCode(): Code[10] begin if not GLSetupRead then begin diff --git a/src/Layers/APAC/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/APAC/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index 457a943b291..30723d30534 100644 --- a/src/Layers/APAC/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/APAC/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -32,9 +32,6 @@ codeunit 22 "Item Jnl.-Post Line" TableData "Item Register" = rimd, TableData "Phys. Inventory Ledger Entry" = rimd, TableData "Item Application Entry" = rimd, -#if not CLEAN28 - TableData Microsoft.Manufacturing.Document."Prod. Order Capacity Need" = rimd, -#endif TableData "Stockkeeping Unit" = rimd, TableData "Value Entry" = rimd, TableData "Avg. Cost Adjmt. Entry Point" = rim, @@ -937,34 +934,9 @@ codeunit 22 "Item Jnl.-Post Line" OnAfterItemValuePosting(GlobalValueEntry, ItemJnlLine, Item); end; -#if not CLEAN27 - /// - /// Posts the consumption of the component in a production order. - /// - /// Production order being posted. - /// Production order line being posted. - /// Production order component to post. - /// Production order routing line. This record is only used on events. - /// Previous item journal line from which new one will be initialized. - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - procedure PostFlushedConsumption(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line") - var - MfgItemJnlPostLine: Codeunit "Mfg. Item Jnl.-Post Line"; - ItemJnlPostLine: Variant; - begin - ItemJnlPostLine := this; - MfgItemJnlPostLine.PostFlushedConsumption( - ItemJnlLine, ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, ItemJnlPostLine); - end; -#endif internal procedure PostFlushedConsumptionItemJnlLine(var ItemJnlLine2: Record "Item Journal Line"; CombinedDimSetID: Integer) var -#if not CLEAN27 - ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; - ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; - ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; -#endif PostItemJnlLine: Boolean; DimsAreTaken: Boolean; TrackingSpecExists: Boolean; @@ -973,12 +945,6 @@ codeunit 22 "Item Jnl.-Post Line" TrackingSpecExists := ItemTrackingMgt.RetrieveItemTracking(ItemJnlLine2, TempTrackingSpecification); OnPostFlushedConsumptionItemJnlLineOnBeforeSetupSplitJnlLine(ItemJnlLine2, TempTrackingSpecification, TrackingSpecExists); -#if not CLEAN27 - ProdOrder.Get(ProdOrder.Status::Released, ItemJnlLine2."Order No."); - ProdOrderLine.Get(ProdOrder.Status::Released, ItemJnlLine2."Order No.", ItemJnlLine2."Order Line No."); - ProdOrderComp.Get(ProdOrder.Status::Released, ItemJnlLine2."Order No.", ItemJnlLine2."Order Line No.", ItemJnlLine2."Prod. Order Comp. Line No."); - OnPostFlushedConsumpOnBeforeSetupSplitJnlLine(ItemJnlLine2, ProdOrder, ProdOrderLine, ProdOrderComp, TempTrackingSpecification, TrackingSpecExists); -#endif PostItemJnlLine := SetupSplitJnlLine(ItemJnlLine2, TrackingSpecExists); while SplitItemJnlLine(ItemJnlLine2, PostItemJnlLine) do begin @@ -987,9 +953,6 @@ codeunit 22 "Item Jnl.-Post Line" if not DimsAreTaken then begin ItemJnlLine2."Dimension Set ID" := CombinedDimSetID; OnPostFlushedConsumptionItemJnlLineOnAfterSetDimensionSetID(ItemJnlLine); -#if not CLEAN27 - OnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJnlLine, ProdOrderLine); -#endif DimsAreTaken := true; end; ItemJnlCheckLine.RunCheck(ItemJnlLine2); @@ -4866,13 +4829,6 @@ codeunit 22 "Item Jnl.-Post Line" /// /// If the journal line is a transfer, it also checks for new serial, lot and package numbers to be assigned during the posting. /// -#if not CLEAN27 - [Obsolete('Replaced by same procedure with parameters ItemJnlLine', '27.0')] - procedure CheckItemTracking() - begin - CheckItemTracking(ItemJnlLine); - end; -#endif procedure CheckItemTracking(var ItemJnlLine2: Record "Item Journal Line") var @@ -5073,19 +5029,6 @@ codeunit 22 "Item Jnl.-Post Line" exit(PostToGL); end; -#if not CLEAN27 - /// - /// Determines if the next operation number exists on the provided production order routing line. - /// - /// Production order routing line to check. - /// True if next operation number exists, otherwise false. - [Obsolete('Moved to table ProdOrderRoutingLine', '27.0')] - procedure NextOperationExist(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"): Boolean - begin - OnBeforeNextOperationExist(ProdOrderRtngLine); - exit(ProdOrderRtngLine."Next Operation No." <> ''); - end; -#endif local procedure UpdateAdjmtProperties(ValueEntry: Record "Value Entry"; OriginalPostingDate: Date) begin @@ -6204,18 +6147,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"); - begin - OnAfterFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGetItem(var Item: Record Item; ItemNo: Code[20]; Unconditionally: Boolean; var HasGotItem: Boolean; var IsHandled: Boolean) @@ -6232,31 +6163,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostFlushedConsump(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line") - begin - OnAfterPostFlushedConsump(ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostFlushedConsump(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterPostConsumption(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine2: Record "Item Journal Line"); - begin - OnAfterPostConsumption(ProdOrderComp, ItemJnlLine2); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostConsumption(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeInsertPhysInvtLedgEntry(var PhysInventoryLedgerEntry: Record "Phys. Inventory Ledger Entry"; ItemJournalLine: Record "Item Journal Line"; LastSplitItemJournalLine: Record "Item Journal Line") @@ -6353,18 +6260,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeInsertConsumpEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; var ModifyProdOrderComp: Boolean; var ItemJnlLine: Record "Item Journal Line"; var TempSplitItemJnlLine: Record "Item Journal Line" temporary) - begin - OnBeforeInsertConsumpEntry(ProdOrderComponent, QtyBase, ModifyProdOrderComp, ItemJnlLine, TempSplitItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeInsertConsumpEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; var ModifyProdOrderComp: Boolean; var ItemJnlLine: Record "Item Journal Line"; var TempSplitItemJnlLine: Record "Item Journal Line" temporary) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterItemApplnEntryInsert(var ItemApplicationEntry: Record "Item Application Entry"; GlobalItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry") @@ -6381,18 +6276,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeNextOperationExist(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnBeforeNextOperationExist(ProdOrderRoutingLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeNextOperationExist(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean; CalledFromAdjustment: Boolean; ItemRegister: Record "Item Register") @@ -6419,44 +6302,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostOutput(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line") - begin - OnAfterPostOutput(ItemLedgerEntry, ProdOrderLine, ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostOutput(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeProdOrderRtngLineModify(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; var LastOperation: Boolean) - begin - OnPostOutputOnBeforeProdOrderRtngLineModify(ProdOrderRoutingLine, ProdOrderLine, ItemJournalLine, LastOperation); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeProdOrderRtngLineModify(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; var LastOperation: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterProdOrderRtngLineSetFilters(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnPostOutputOnAfterProdOrderRtngLineSetFilters(ProdOrderRtngLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterProdOrderRtngLineSetFilters(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCheckPostingCostToGL(var PostCostToGL: Boolean) @@ -6473,31 +6320,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"; LastOperation: Boolean); - begin - OnBeforeFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine, LastOperation); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnBeforeFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"; LastOperation: Boolean); - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforePostFlushedConsumpItemJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - OnBeforePostFlushedConsumpItemJnlLine(ItemJournalLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostFlushedConsumpItemJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterUpdateOldItemLedgerEntryRemainingQuantity(var OldItemLedgerEntry: Record "Item Ledger Entry"; AppliedQuantity: Decimal; var GlobalItemLedgEntry: Record "Item Ledger Entry"; var AverageTransfer: Boolean) @@ -6614,18 +6437,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCallFlushOperation(var ItemJnlLine2: Record "Item Journal Line"; var ShouldFlushOperation: Boolean); - begin - OnBeforeCallFlushOperation(ItemJnlLine2, ShouldFlushOperation); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCallFlushOperation(var ItemJnlLine: Record "Item Journal Line"; var ShouldFlushOperation: Boolean); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCheckSerialNo(ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean; var SkipSerialNoQtyValidation: Boolean) @@ -6642,18 +6453,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostFlushedConsump(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean); - begin - OnBeforePostFlushedConsump(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostFlushedConsump(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean); - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnBeforeInitValueEntry(var ValueEntry: Record "Value Entry"; var ValueEntryNo: Integer; var ItemJournalLine: Record "Item Journal Line") @@ -6705,31 +6504,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeProdOrderCompModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ItemJournalLine: Record "Item Journal Line") - begin - OnBeforeProdOrderCompModify(ProdOrderComponent, ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeProdOrderCompModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeProdOrderLineModify(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJournalLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - OnBeforeProdOrderLineModify(ProdOrderLine, ItemJournalLine, ItemLedgEntryNo); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeProdOrderLineModify(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJournalLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeRoundAmtValueEntry(var ValueEntry: Record "Value Entry"; Currency: Record Currency; Item: Record Item; var IsHandled: Boolean) @@ -6789,18 +6564,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; ReTrack: Boolean) - begin - OnBeforeUpdateProdOrderLine(ProdOrderLine, ItemJournalLine, ReTrack); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; ReTrack: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeUpdateUnitCost(var ValueEntry: Record "Value Entry"; var IsHandled: Boolean; ItemJournalLine: Record "Item Journal Line") @@ -6877,44 +6640,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReTrack: Boolean; var ItemJournalLine: Record "Item Journal Line") - begin - OnAfterUpdateProdOrderLine(ProdOrderLine, ReTrack, ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReTrack: Boolean; var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterInsertConsumpEntry(var WarehouseJournalLine: Record "Warehouse Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; PostWhseJnlLine: Boolean; var ItemJnlLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - OnAfterInsertConsumpEntry(WarehouseJournalLine, ProdOrderComponent, QtyBase, PostWhseJnlLine, ItemJnlLine, ItemLedgEntryNo); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterInsertConsumpEntry(var WarehouseJournalLine: Record "Warehouse Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; PostWhseJnlLine: Boolean; var ItemJnlLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnApplyCapNeedOnAfterSetFilters(var ProdOrderCapNeed: Record Microsoft.Manufacturing.Document."Prod. Order Capacity Need"; ItemJnlLine: Record "Item Journal Line"); - begin - OnApplyCapNeedOnAfterSetFilters(ProdOrderCapNeed, ItemJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnApplyCapNeedOnAfterSetFilters(var ProdOrderCapNeed: Record Microsoft.Manufacturing.Document."Prod. Order Capacity Need"; ItemJnlLine: Record "Item Journal Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnApplyItemLedgEntryOnAfterCalcAppliedQty(OldItemLedgEntry: Record "Item Ledger Entry"; ItemLedgEntry: Record "Item Ledger Entry"; var AppliedQty: Decimal) @@ -6956,44 +6683,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry: Record "Item Ledger Entry"; var IsHandled: Boolean) - begin - OnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry: Record "Item Ledger Entry"; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnFlushOperationOnAfterProdOrderCompSetFilters(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnFlushOperationOnAfterProdOrderCompSetFilters(ProdOrderComponent, OldItemJournalLine, ProdOrderRoutingLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnFlushOperationOnAfterProdOrderCompSetFilters(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnFlushOperationOnBeforeCheckRoutingLinkCode(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ItemJournalLine: Record "Item Journal Line"; LastOperation: Boolean) - begin - OnFlushOperationOnBeforeCheckRoutingLinkCode(ProductionOrder, ProdOrderLine, ProdOrderRoutingLine, ItemJournalLine, LastOperation); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnFlushOperationOnBeforeCheckRoutingLinkCode(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ItemJournalLine: Record "Item Journal Line"; LastOperation: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnGetValuationDateOnAfterOldValueEntrySetFilters(var OldValueEntry: Record "Value Entry"; ValueEntry: Record "Value Entry"; OldItemLedgEntry: Record "Item Ledger Entry") @@ -7060,18 +6751,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnInsertConsumpEntryOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; PostWhseJnlLine: Boolean; var WarehouseJournalLine: Record "Warehouse Journal Line") - begin - OnInsertConsumpEntryOnBeforePostItem(ItemJournalLine, ProdOrderComponent, PostWhseJnlLine, WarehouseJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertConsumpEntryOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; PostWhseJnlLine: Boolean; var WarehouseJournalLine: Record "Warehouse Journal Line") - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnInsertOHValueEntryOnBeforeInsertValueEntry(var ValueEntry: Record "Value Entry"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean; var GlobalItemLedgEntry: Record "Item Ledger Entry"; var ValueEntryNo: Integer) @@ -7133,158 +6812,26 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnAfterCalcQtyToPost(ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ActOutputQtyBase: Decimal; var QtyToPost: Decimal; var OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var CompItem: Record Item) - begin - OnPostFlushedConsumpOnAfterCalcQtyToPost(ProductionOrder, ProdOrderLine, ProdOrderComponent, ActOutputQtyBase, QtyToPost, OldItemJournalLine, ProdOrderRoutingLine, CompItem); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnAfterCalcQtyToPost(ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ActOutputQtyBase: Decimal; var QtyToPost: Decimal; var OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var CompItem: Record Item) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; var OldItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; CompItem: record Item) - begin - OnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(ItemJournalLine, OldItemJournalLine, ProdOrderLine, ProdOrderComponent, CompItem); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; var OldItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; CompItem: record Item) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var OutputQtyBase: Decimal) - begin - OnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, OutputQtyBase); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var OutputQtyBase: Decimal) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJournalLine, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnBeforeSetupSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var TrackingSpecExists: Boolean) - begin - OnPostFlushedConsumpOnBeforeSetupSplitJnlLine(ItemJournalLine, ProdOrder, ProdOrderLine, ProdOrderComp, TempTrackingSpecification, TrackingSpecExists); - end; - - [Obsolete('Replaced by event OnPostFlushedConsumptionItemJnlLineOnBeforeSetupSplitJnlLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnBeforeSetupSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var TrackingSpecExists: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostFlushedConsumptionItemJnlLineOnBeforeSetupSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var TrackingSpecExists: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - OnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJournalLine, ProdOrderLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostFlushedConsumptionItemJnlLineOnAfterSetDimensionSetID(ItemJournalLine: Record "Item Journal Line") begin end; -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnAfterInsertEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostConsumptionOnAfterInsertEntry(ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnAfterInsertEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnAfterFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostConsumptionOnAfterFindProdOrderComp(ProdOrderComp); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnAfterFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NewRemainingQuantity: Decimal; QtyToPost: Decimal) - begin - OnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComponent, NewRemainingQuantity, QtyToPost); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NewRemainingQuantity: Decimal; QtyToPost: Decimal) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeCheckOrderType(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnPostConsumptionOnBeforeCheckOrderType(ProdOrderComponent, ItemJournalLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeCheckOrderType(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeFindSetProdOrderComp(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line") - begin - OnPostConsumptionOnBeforeFindSetProdOrderComp(ProdOrderComponent, ItemJournalLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeFindSetProdOrderComp(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostItemOnAfterGetSKU(var ItemJnlLine: Record "Item Journal Line"; var SKUExists: Boolean; var IsHandled: Boolean) @@ -7301,122 +6848,14 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterInsertCapLedgEntry(ItemJournalLine: Record "Item Journal Line"; var SkipPost: Boolean) - begin - OnPostOutputOnAfterInsertCapLedgEntry(ItemJournalLine, SkipPost); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterInsertCapLedgEntry(ItemJournalLine: Record "Item Journal Line"; var SkipPost: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterInsertCostValueEntries(ItemJournalLine: Record "Item Journal Line"; var CapLedgEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; CalledFromAdjustment: Boolean; PostToGL: Boolean) - begin - OnPostOutputOnAfterInsertCostValueEntries(ItemJournalLine, CapLedgEntry, CalledFromAdjustment, PostToGL); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterInsertCostValueEntries(ItemJournalLine: Record "Item Journal Line"; var CapLedgEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; CalledFromAdjustment: Boolean; PostToGL: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterSetMfgUnitCost(var ItemJournalLine: Record "Item Journal Line"; var MfgUnitCost: Decimal; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - OnPostOutputOnAfterSetMfgUnitCost(ItemJournalLine, MfgUnitCost, ProdOrderLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterSetMfgUnitCost(var ItemJournalLine: Record "Item Journal Line"; var MfgUnitCost: Decimal; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterUpdateAmounts(var ItemJournalLine: Record "Item Journal Line") - begin - OnPostOutputOnAfterUpdateAmounts(ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterUpdateAmounts(var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var WhseJnlLine: Record "Warehouse Journal Line"; var GlobalItemLedgEntry: Record "Item Ledger Entry"); - begin - OnPostOutputOnAfterUpdateProdOrderLine(ItemJournalLine, WhseJnlLine, GlobalItemLedgEntry); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var WhseJnlLine: Record "Warehouse Journal Line"; var GlobalItemLedgEntry: Record "Item Ledger Entry"); - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnPostOutputOnBeforeUpdateProdOrderLine(ItemJournalLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - OnPostOutputOnAfterCreateWhseJnlLine(ItemJournalLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line"; var PostWhseJnlLine: Boolean) - begin - OnPostOutputOnBeforeCreateWhseJnlLine(ItemJournalLine, PostWhseJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line"; var PostWhseJnlLine: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - OnPostOutputOnBeforePostItem(ItemJournalLine, ProdOrderLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostSplitJnlLineOnBeforeSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var ItemJournalLineToPost: Record "Item Journal Line"; var PostItemJournalLine: Boolean; DisableItemTracking: Boolean) @@ -7531,18 +6970,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterCalcCapQty(var ItemJnlLine: Record "Item Journal Line"; var CapQty: Decimal) - begin - OnAfterCalcCapQty(ItemJnlLine, CapQty); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterCalcCapQty(var ItemJnlLine: Record "Item Journal Line"; var CapQty: Decimal) - begin - end; -#endif /// /// Prepares provided item journal line for posting and copies it to the global ItemJnlLine record. @@ -8110,70 +7537,10 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterCheckItemTrackingOfComp(TempHandlingSpecification: Record "Tracking Specification"; ItemJnlLine: Record "Item Journal Line") - begin - OnAfterCheckItemTrackingOfComp(TempHandlingSpecification, ItemJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterCheckItemTrackingOfComp(TempHandlingSpecification: Record "Tracking Specification"; ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeGetOutputProdOrder(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforeGetOutputProdOrder(ProdOrder, ItemJnlLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetOutputProdOrder(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeGetOutputProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforeGetOutputProdOrderLine(ProdOrderLine, ItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetOutputProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeGetProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; OrderNo: Code[20]; OrderLineNo: Integer; var IsHandled: Boolean) - begin - OnBeforeGetProdOrderLine(ProdOrderLine, OrderNo, OrderLineNo, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; OrderNo: Code[20]; OrderLineNo: Integer; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeGetProdOrderRoutingLine(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforeGetProdOrderRoutingLine(ProdOrderRoutingLine, OldItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetProdOrderRoutingLine(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeIsNotInternalWhseMovement(ItemJnlLine: Record "Item Journal Line"; var Result: Boolean; var IsHandled: Boolean) @@ -8195,44 +7562,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostOutput(var ItemJnlLine: Record "Item Journal Line") - begin - OnBeforePostOutput(ItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostOutput(var ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforePostOutputUpdateProdOrderRtngLine(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforePostOutputUpdateProdOrderRtngLine(ProdOrderRtngLine, ItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostOutputUpdateProdOrderRtngLine(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(var CapLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; ItemJnlLine: Record "Item Journal Line") - begin - OnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(CapLedgerEntry, ItemJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(var CapLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCheckExpirationDateOnAfterCalcSumLot(var SumLot: Decimal; SignFactor: Integer; var TempTrackingSpecification: Record "Tracking Specification" temporary; var SkipNewExpirationDateCheck: Boolean) @@ -8434,44 +7765,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var TempHandlingSpecification: Record "Tracking Specification"; RemQtyToPost: Decimal; UseItemTrackingApplication: Boolean; LastLoop: Boolean; var IsHandled: Boolean) - begin - OnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(ProdOrderComp, ItemJnlLine, TempHandlingSpecification, RemQtyToPost, UseItemTrackingApplication, LastLoop, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var TempHandlingSpecification: Record "Tracking Specification"; RemQtyToPost: Decimal; UseItemTrackingApplication: Boolean; LastLoop: Boolean; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeCalcRemainingQuantity(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var NewRemainingQty: Decimal; var QtyToPost: Decimal; var IsHandled: Boolean; var RemQtyToPost: Decimal) - begin - OnPostConsumptionOnBeforeCalcRemainingQuantity(ProdOrderComp, ItemJnlLine, NewRemainingQty, QtyToPost, IsHandled, RemQtyToPost); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeCalcRemainingQuantity(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var NewRemainingQty: Decimal; var QtyToPost: Decimal; var IsHandled: Boolean; var RemQtyToPost: Decimal) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(var ItemJnlLine: Record "Item Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(ItemJnlLine, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(var ItemJnlLine: Record "Item Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnSetItemAdjmtPropertiesOnBeforeCheckModifyItem(var Item2: Record Item; var ModifyItem: Boolean) @@ -8553,18 +7848,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostOutputForProdOrder(var ItemJnlLine: Record "Item Journal Line"; var LastOperation: Boolean; var IsHandled: Boolean) - begin - OnBeforePostOutputForProdOrder(ItemJnlLine, LastOperation, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostOutputForProdOrder(var ItemJnlLine: Record "Item Journal Line"; var LastOperation: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostItemOnAfterCheckCostingMethodStandard(var Item: Record Item; var ItemJnlLine: Record "Item Journal Line") @@ -8661,36 +7944,12 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeReservationExists(ItemJnlLine: Record "Item Journal Line"; var Result: Boolean; var IsHandled: Boolean) - begin - OnBeforeReservationExists(ItemJnlLine, Result, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeReservationExists(ItemJnlLine: Record "Item Journal Line"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUndoQuantityPostingOnAfterCalcShouldInsertCorrValueEntry(OldItemLedgEntry: Record "Item Ledger Entry"; var ShouldInsertCorrValueEntries: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeGetMfgAmounts(var ItemJnlLine: Record "Item Journal Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean) - begin - OnPostOutputOnBeforeGetMfgAmounts(ItemJnlLine, ProdOrder, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeGetMfgAmounts(var ItemJnlLine: Record "Item Journal Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUpdateAvgCostAdjmtBufferOnAfterSetValueEntry(var ValueEntry: Record "Value Entry"; OldItemLedgEntry: Record "Item Ledger Entry") @@ -8722,18 +7981,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnCorrectOutputValuationDateOnBeforeValueEntryFindSet(var ValueEntry: Record "Value Entry") - begin - OnCorrectOutputValuationDateOnBeforeValueEntryFindSet(ValueEntry); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCorrectOutputValuationDateOnBeforeValueEntryFindSet(var ValueEntry: Record "Value Entry") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnApplyItemLedgEntryOnAfterTestFirstApplyItemLedgEntry(OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemLedgerEntry: Record "Item Ledger Entry") @@ -8855,18 +8102,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeInsertCostValueEntries(var ItemJournalLine: Record "Item Journal Line"; var CapacityLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; var ValuedQty: Decimal; var DirCostAmt: Decimal; var IndirCostAmt: Decimal) - begin - OnPostOutputOnBeforeInsertCostValueEntries(ItemJournalLine, CapacityLedgerEntry, ValuedQty, DirCostAmt, IndirCostAmt); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnPostOutputOnBeforeInsertCostValueEntries(var ItemJournalLine: Record "Item Journal Line"; var CapacityLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; var ValuedQty: Decimal; var DirCostAmt: Decimal; var IndirCostAmt: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUpdateItemApplnEntryOnAfterFilterItemApplicationEntry(var ItemApplnEntry: Record "Item Application Entry") @@ -8883,31 +8118,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeOnApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var PostedSetupTime: Decimal; var PostedRunTime: Decimal; var IsHandled: Boolean) - begin - OnBeforeOnApplyCapNeed(ItemJnlLine, PostedSetupTime, PostedRunTime, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeOnApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var PostedSetupTime: Decimal; var PostedRunTime: Decimal; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputForProdOrderOnAfterApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var ValuedQty: Decimal) - begin - OnPostOutputForProdOrderOnAfterApplyCapNeed(ItemJnlLine, ValuedQty); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputForProdOrderOnAfterApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var ValuedQty: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeReApply(ItemLedgerEntry: Record "Item Ledger Entry"; ApplyWith: Integer; var IsHandled: Boolean) diff --git a/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/SalesTaxInvoice.Report.al b/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/SalesTaxInvoice.Report.al index 0aebc0b5308..08e2aa3761b 100644 --- a/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/SalesTaxInvoice.Report.al +++ b/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/SalesTaxInvoice.Report.al @@ -694,11 +694,7 @@ report 28072 "Sales - Tax Invoice" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopies) + Cust."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; CopyText := ''; diff --git a/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/SalesTaxInvoiceHeader.Table.al b/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/SalesTaxInvoiceHeader.Table.al index 3ef31384511..908831d9c55 100644 --- a/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/SalesTaxInvoiceHeader.Table.al +++ b/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/SalesTaxInvoiceHeader.Table.al @@ -427,13 +427,7 @@ table 28071 "Sales Tax Invoice Header" Caption = 'Shipping Agent Code'; TableRelation = "Shipping Agent"; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; } diff --git a/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/WHTManagement.Codeunit.al b/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/WHTManagement.Codeunit.al index fbc1ff9579d..c7a0bf4d5cb 100644 --- a/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/WHTManagement.Codeunit.al +++ b/src/Layers/APAC/BaseApp/Local/FinancialMgt/WithholdingTax/WHTManagement.Codeunit.al @@ -128,7 +128,7 @@ codeunit 28040 WHTManagement TempVendLedgEntry1.Reset(); SetVendAppliesToFilter(TempVendLedgEntry1, GenJnlLine); TempVendLedgEntry1.SetFilter("Document Type", '<>%1', TempVendLedgEntry1."Document Type"::" "); - if TempVendLedgEntry1.FindSet(true, false) then + if TempVendLedgEntry1.FindSet(true) then repeat TempVendLedgEntry1.CalcFields( Amount, "Amount (LCY)", "Remaining Amount", "Remaining Amt. (LCY)", @@ -271,7 +271,7 @@ codeunit 28040 WHTManagement TotAmt := Abs(GenJnlLine.Amount); TempCustLedgEntry1.Reset(); SetCustAppliesToFilter(TempCustLedgEntry1, GenJnlLine); - if TempCustLedgEntry1.FindSet(true, false) then + if TempCustLedgEntry1.FindSet(true) then repeat TempCustLedgEntry1.CalcFields( Amount, @@ -2463,7 +2463,7 @@ codeunit 28040 WHTManagement RemainingAmt := 0; TempVendLedgEntry1.Reset(); TempVendLedgEntry1.SetRange("Applies-to ID", TempGenJnlLine."Applies-to ID"); - if TempVendLedgEntry1.FindSet(true, false) then + if TempVendLedgEntry1.FindSet(true) then repeat TempVendLedgEntry1.CalcFields( Amount, "Amount (LCY)", "Remaining Amount", "Remaining Amt. (LCY)", @@ -5209,7 +5209,7 @@ codeunit 28040 WHTManagement if GenJnlLine."Applies-to Doc. No." = '' then begin TempVendLedgEntry1.SetRange("Applies-to ID", GenJnlLine."Document No."); TempVendLedgEntry1.SetRange(Open, true); - if TempVendLedgEntry1.FindSet(true, false) then + if TempVendLedgEntry1.FindSet(true) then repeat TempVendLedgEntry1.CalcFields( Amount, @@ -5403,7 +5403,7 @@ codeunit 28040 WHTManagement else TempCustLedgEntry1.SetRange("Applies-to ID", GenJnlLine."Document No."); TempCustLedgEntry1.SetFilter("Document No.", '<>%1', GenJnlLine."Document No."); - if TempCustLedgEntry1.FindSet(true, false) then + if TempCustLedgEntry1.FindSet(true) then repeat TempCustLedgEntry1.CalcFields( Amount, diff --git a/src/Layers/APAC/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/APAC/BaseApp/Purchases/Posting/PurchPost.Codeunit.al index bd69a41b0d4..8f17844f4c9 100644 --- a/src/Layers/APAC/BaseApp/Purchases/Posting/PurchPost.Codeunit.al +++ b/src/Layers/APAC/BaseApp/Purchases/Posting/PurchPost.Codeunit.al @@ -9639,18 +9639,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader2: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - OnAfterPostItemJnlLineCopyProdOrder(ItemJnlLine, PurchLine, PurchRcptHeader2, QtyToBeReceived, CommitIsSupressed, QtyToBeInvoiced); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterPostItemJnlLineItemCharges(PurchHeader: Record "Purchase Header"; PurchLine: Record "Purchase Line") @@ -10182,18 +10170,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - OnBeforePostItemJnlLineCopyProdOrder(PurchLine, ItemJnlLine, QtyToBeReceived, QtyToBeInvoiced, CommitIsSupressed, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnBeforePostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; PreviewMode: Boolean; CommitIsSupressed: Boolean; var HideProgressWindow: Boolean; var ItemJnlPostLine: Codeunit "Item Jnl.-Post Line"; var IsHandled: Boolean) @@ -11722,19 +11698,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]) - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnInsertPostedHeadersOnAfterInvoice(var PurchaseHeader: Record "Purchase Header"; var GenJournalLine: Record "Gen. Journal Line"; var GenJnlLineDocType: Enum "Gen. Journal Document Type"; var GenJnlLineDocNo: Code[20]; var GenJnlLineExtDocNo: Code[35]; var IsHandled: Boolean) begin diff --git a/src/Layers/APAC/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al b/src/Layers/APAC/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al index 76f691db774..81055b7c6d2 100644 --- a/src/Layers/APAC/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al +++ b/src/Layers/APAC/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al @@ -50,16 +50,6 @@ page 460 "Purchases & Payables Setup" { ApplicationArea = Basic, Suite; } -#if not CLEAN27 - field("Create Item from Item No."; Rec."Create Item from Item No.") - { - ApplicationArea = Basic, Suite; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("Copy Vendor Name to Entries"; Rec."Copy Vendor Name to Entries") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/APAC/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al b/src/Layers/APAC/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al index 220d948d44f..ad5a2e33cdd 100644 --- a/src/Layers/APAC/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al +++ b/src/Layers/APAC/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al @@ -345,13 +345,8 @@ table 312 "Purchases & Payables Setup" Caption = 'Create Item from Item No.'; ToolTip = 'Specifies if the system will suggest to create a new item when no item matches the number that you enter in the No. Field on purchase lines.'; ObsoleteReason = 'Discontinued function'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '29.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif field(58; "Copy Vendor Name to Entries"; Boolean) diff --git a/src/Layers/APAC/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/APAC/BaseApp/Purchases/Vendor/Vendor.Table.al index b1248e2ced2..290bfeb319f 100644 --- a/src/Layers/APAC/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/APAC/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -932,13 +932,7 @@ table 23 Vendor MailManagement.CheckValidEmailAddresses("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/APAC/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al b/src/Layers/APAC/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al index 101d5dcb926..eaf8a377155 100644 --- a/src/Layers/APAC/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al +++ b/src/Layers/APAC/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al @@ -199,13 +199,7 @@ table 288 "Vendor Bank Account" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/APAC/BaseApp/Purchases/Vendor/VendorTempl.Table.al b/src/Layers/APAC/BaseApp/Purchases/Vendor/VendorTempl.Table.al index 0a0de841e36..31428fd8950 100644 --- a/src/Layers/APAC/BaseApp/Purchases/Vendor/VendorTempl.Table.al +++ b/src/Layers/APAC/BaseApp/Purchases/Vendor/VendorTempl.Table.al @@ -312,13 +312,7 @@ table 1383 "Vendor Templ." ToolTip = 'Specifies the vendor''s email address.'; ExtendedDatatype = EMail; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/APAC/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al b/src/Layers/APAC/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al index 706ee9687d2..9cb019c3414 100644 --- a/src/Layers/APAC/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al @@ -836,13 +836,7 @@ table 5107 "Sales Header Archive" /// /// Specifies the tracking number assigned by the shipping carrier for package tracking purposes. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/APAC/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/APAC/BaseApp/Sales/Customer/Customer.Table.al index db93536b671..910d55b1f39 100644 --- a/src/Layers/APAC/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/Customer/Customer.Table.al @@ -591,13 +591,8 @@ table 18 Customer { Caption = 'Invoice Copies'; ObsoleteReason = 'This field is not used consequently and hence does not work as expected. It should be retired.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } #endif /// @@ -1326,13 +1321,7 @@ table 18 Customer /// /// Specifies the customer's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; OptimizeForTextSearch = true; @@ -5158,4 +5147,4 @@ table 18 Customer begin end; -} +} \ No newline at end of file diff --git a/src/Layers/APAC/BaseApp/Sales/Customer/CustomerTempl.Table.al b/src/Layers/APAC/BaseApp/Sales/Customer/CustomerTempl.Table.al index 9aed7515752..b7e56d5781f 100644 --- a/src/Layers/APAC/BaseApp/Sales/Customer/CustomerTempl.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/Customer/CustomerTempl.Table.al @@ -534,13 +534,7 @@ table 1381 "Customer Templ." /// /// Specifies the default website URL for customers created from this template. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; @@ -935,4 +929,4 @@ table 1381 "Customer Templ." local procedure OnCopyTemplateOnBeforeModify(SourceCustomerTempl: Record "Customer Templ."; SavedCustomerTempl: Record "Customer Templ."; var CustomerTempl: Record "Customer Templ.") begin end; -} +} \ No newline at end of file diff --git a/src/Layers/APAC/BaseApp/Sales/Document/SalesHeader.Table.al b/src/Layers/APAC/BaseApp/Sales/Document/SalesHeader.Table.al index 9cff15854dc..be7c1f1f5d1 100644 --- a/src/Layers/APAC/BaseApp/Sales/Document/SalesHeader.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/Document/SalesHeader.Table.al @@ -2111,13 +2111,7 @@ table 36 "Sales Header" /// /// Specifies the package tracking number from the shipping agent. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -13061,20 +13055,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before validating the bill-to name. - /// - /// The sales header record being validated. - /// The customer record. - /// Set to true to skip the default validation logic. - /// The previous version of the sales header record. - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateBillToName(var SalesHeader: Record "Sales Header"; var Customer: Record Customer; var IsHandled: Boolean; xSalesHeader: Record "Sales Header") - begin - end; -#endif /// /// Raised before validating tax liable when validating the ship-to code. /// @@ -14030,19 +14010,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before checking if the document is not fully cancelled. - /// - /// The sales credit memo header record. - /// The result indicating whether the document is not fully cancelled. - /// Set to true to skip the default check logic. - [Obsolete('Removed Not used anymore.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeIsNotFullyCancelled(var SalesCrMemoHeader: Record "Sales Cr.Memo Header"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif /// /// Raised after the credit limit check. @@ -14107,17 +14074,6 @@ table 36 "Sales Header" end; -#if not CLEAN27 - /// - /// Raised after setting sales line filters when calculating outstanding quantity base. - /// - /// The sales line record with filters applied. - [Obsolete('Not used anymore due to new implementation that uses Query. Replaced by OnBeforeCalculateReservableOutstandingQuantityBase.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcOutstandingQuantityBaseOnAfterSalesLineSetFilters(var SalesLine: Record "Sales Line") - begin - end; -#endif /// /// Raised before calculating the reservable outstanding quantity base. diff --git a/src/Layers/APAC/BaseApp/Sales/History/ReturnReceiptHeader.Table.al b/src/Layers/APAC/BaseApp/Sales/History/ReturnReceiptHeader.Table.al index 633ea5875b8..b835b162334 100644 --- a/src/Layers/APAC/BaseApp/Sales/History/ReturnReceiptHeader.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/History/ReturnReceiptHeader.Table.al @@ -714,13 +714,7 @@ table 6660 "Return Receipt Header" /// /// Specifies the tracking number for the return shipment package. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/APAC/BaseApp/Sales/History/SalesCrMemoHeader.Table.al b/src/Layers/APAC/BaseApp/Sales/History/SalesCrMemoHeader.Table.al index 71b54216941..cb37cfb043f 100644 --- a/src/Layers/APAC/BaseApp/Sales/History/SalesCrMemoHeader.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/History/SalesCrMemoHeader.Table.al @@ -746,13 +746,7 @@ table 114 "Sales Cr.Memo Header" /// /// Specifies the tracking number for the shipped package. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/APAC/BaseApp/Sales/History/SalesInvoiceHeader.Table.al b/src/Layers/APAC/BaseApp/Sales/History/SalesInvoiceHeader.Table.al index a7a5aef1ae3..898378742c4 100644 --- a/src/Layers/APAC/BaseApp/Sales/History/SalesInvoiceHeader.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/History/SalesInvoiceHeader.Table.al @@ -772,13 +772,7 @@ table 112 "Sales Invoice Header" /// /// Specifies the tracking number for tracking shipped packages. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/APAC/BaseApp/Sales/Posting/SalesPost.Codeunit.al b/src/Layers/APAC/BaseApp/Sales/Posting/SalesPost.Codeunit.al index c0f851ef0c2..4b597d1a82c 100644 --- a/src/Layers/APAC/BaseApp/Sales/Posting/SalesPost.Codeunit.al +++ b/src/Layers/APAC/BaseApp/Sales/Posting/SalesPost.Codeunit.al @@ -13772,13 +13772,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetAmountsForDeferral(SalesLine: Record "Sales Line"; var AmtToDefer: Decimal; var AmtToDeferACY: Decimal; var DeferralAccount: Code[20]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostJobContractLineBeforeTestFields(var SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; var IsHandled: Boolean) begin @@ -13984,19 +13977,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]; var SalesHeader: Record "Sales Header") - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostInvoiceOnAfterPostLines(var SalesHeader: Record "Sales Header"; SrcCode: Code[10]; GenJnlLineDocType: Enum "Gen. Journal Document Type"; GenJnlLineDocNo: Code[20]; GenJnlLineExtDocNo: Code[35]; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line") begin diff --git a/src/Layers/APAC/BaseApp/Sales/Reports/CustomerItemSales.Report.al b/src/Layers/APAC/BaseApp/Sales/Reports/CustomerItemSales.Report.al index e66e62da193..dedf577c515 100644 --- a/src/Layers/APAC/BaseApp/Sales/Reports/CustomerItemSales.Report.al +++ b/src/Layers/APAC/BaseApp/Sales/Reports/CustomerItemSales.Report.al @@ -19,10 +19,10 @@ report 113 "Customer/Item Sales" ApplicationArea = Basic, Suite; Caption = 'Customer/Item Sales'; ToolTip = 'View a list of item sales for each customer during a selected time period. The report contains information on quantity, sales amount, profit, and possible discounts. It can be used, for example, to analyze a company''s customer groups.'; - PreviewMode = PrintLayout; - UsageCategory = ReportsAndAnalysis; DataAccessIntent = ReadOnly; DefaultRenderingLayout = RDLCLayout; + PreviewMode = PrintLayout; + UsageCategory = ReportsAndAnalysis; dataset { diff --git a/src/Layers/APAC/BaseApp/Sales/Reports/SalespersonSalesStatistics.Report.al b/src/Layers/APAC/BaseApp/Sales/Reports/SalespersonSalesStatistics.Report.al index 269f9fe4082..e32a3585cbc 100644 --- a/src/Layers/APAC/BaseApp/Sales/Reports/SalespersonSalesStatistics.Report.al +++ b/src/Layers/APAC/BaseApp/Sales/Reports/SalespersonSalesStatistics.Report.al @@ -18,9 +18,9 @@ report 114 "Salesperson - Sales Statistics" ApplicationArea = Basic, Suite; Caption = 'Salesperson - Sales Statistics'; ToolTip = 'View amounts for sales, profit, invoice discount, and payment discount, as well as profit percentage, for each salesperson for a selected period. The report also shows the adjusted profit and adjusted profit percentage, which reflect any changes to the original costs of the items in the sales.'; + DefaultRenderingLayout = RDLCLayout; PreviewMode = PrintLayout; UsageCategory = ReportsAndAnalysis; - DefaultRenderingLayout = RDLCLayout; dataset { diff --git a/src/Layers/APAC/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al b/src/Layers/APAC/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al index d6eea69f620..39d7866f84a 100644 --- a/src/Layers/APAC/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al +++ b/src/Layers/APAC/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al @@ -70,16 +70,6 @@ page 459 "Sales & Receivables Setup" { ApplicationArea = Basic, Suite; } -#if not CLEAN27 - field("Create Item from Item No."; Rec."Create Item from Item No.") - { - ApplicationArea = Basic, Suite; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("Create Item from Description"; Rec."Create Item from Description") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/APAC/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al b/src/Layers/APAC/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al index 3161024fd11..3779d153cfe 100644 --- a/src/Layers/APAC/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al +++ b/src/Layers/APAC/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al @@ -572,13 +572,8 @@ table 311 "Sales & Receivables Setup" Caption = 'Create Item from Item No.'; ToolTip = 'Specifies if the system will suggest to create a new item when no item matches the number that you enter in the No. Field on sales lines.'; ObsoleteReason = 'Discontinued function'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '29.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif /// diff --git a/src/Layers/APAC/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al b/src/Layers/APAC/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al index 25936288779..a397b7518a3 100644 --- a/src/Layers/APAC/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al +++ b/src/Layers/APAC/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al @@ -1087,15 +1087,6 @@ codeunit 130512 "Library - Purchase" PurchasesPayablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - PurchasesPayablesSetup.Get(); - PurchasesPayablesSetup.Validate("Create Item from Item No.", NewValue); - PurchasesPayablesSetup.Modify(true); - end; -#endif procedure SetDefaultPostingDateWorkDate() begin PurchasesPayablesSetup.Get(); diff --git a/src/Layers/APAC/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al b/src/Layers/APAC/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al index 07c57b7930b..9d69f10a18a 100644 --- a/src/Layers/APAC/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al +++ b/src/Layers/APAC/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al @@ -1774,15 +1774,6 @@ codeunit 130509 "Library - Sales" SalesReceivablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - SalesReceivablesSetup.Get(); - SalesReceivablesSetup.Validate("Create Item from Item No.", NewValue); - SalesReceivablesSetup.Modify(true); - end; -#endif /// /// Sets the Create Item from Description option in Sales and Receivables Setup. /// diff --git a/src/Layers/APAC/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al b/src/Layers/APAC/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al index 4f0acad15f0..6b7cdbd681c 100644 --- a/src/Layers/APAC/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al +++ b/src/Layers/APAC/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al @@ -6016,9 +6016,6 @@ codeunit 134902 "ERM Account Schedule" begin // [SCENARIO] When using parentheses as negative format, a negative amount should be displayed with parentheses on the page Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif GLSetup.Get(); // [GIVEN] An account schedule line with negative value @@ -6110,9 +6107,6 @@ codeunit 134902 "ERM Account Schedule" begin // [SCENARIO] Account Schedule defaults negative format option from GL Setup Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif // [GIVEN] GL Setup negative amount format is set minus sign GLSetup.Get(); @@ -6151,9 +6145,6 @@ codeunit 134902 "ERM Account Schedule" begin // [SCENARIO] Account Schedule defaults negative format option from GL Setup Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif // [GIVEN] GL Setup negative amount format is set parentheses GLSetup.Get(); @@ -6185,9 +6176,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Day. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Day); @@ -6200,9 +6188,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Week. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Week); @@ -6215,9 +6200,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Month. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Month); @@ -6230,9 +6212,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Quarter. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Quarter); @@ -6245,9 +6224,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Year. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Year); @@ -6277,18 +6253,6 @@ codeunit 134902 "ERM Account Schedule" AccScheduleOverview.OK().Invoke(); end; -#if not CLEAN27 - local procedure EnabledFinancialReportDefaultsFeature() - var - FeatureKey: Record "Feature Key"; - FeatureFinancialReportDef: Codeunit "Feature - Fin. Report Default"; - begin - if FeatureKey.Get(FeatureFinancialReportDef.GetFinancialReportDefaultsFeatureKey()) then begin - FeatureKey.Enabled := FeatureKey.Enabled::"All Users"; - FeatureKey.Modify(); - end; - end; -#endif [Test] procedure ColumnLayoutGLAccountTotaling() diff --git a/src/Layers/APAC/Tests/Misc/ReportSelectionsTests.Codeunit.al b/src/Layers/APAC/Tests/Misc/ReportSelectionsTests.Codeunit.al index c9e9a721337..644060b9dbd 100644 --- a/src/Layers/APAC/Tests/Misc/ReportSelectionsTests.Codeunit.al +++ b/src/Layers/APAC/Tests/Misc/ReportSelectionsTests.Codeunit.al @@ -360,128 +360,6 @@ codeunit 134421 "Report Selections Tests" // Verify is within handler end; -#if not CLEAN27 - [Test] - [Scope('OnPrem')] - procedure TestHTMLEmailBodyLoad() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - TempEmailItem: Record "Email Item" temporary; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - DummyEmailAddress: Text[250]; - begin - // Validates that EmailItem loads the body from the HTML file - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetupReportSelections(true, true); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", DummyEmailAddress); - GetEmailItem(TempEmailItem, TempEmailItem."Message Type"::"From Email Body Template", FileName, false); - - // Verify - Assert.IsTrue(TempEmailItem.GetBodyText() <> '', 'Expected text in the body of the EmailItem'); - end; - - [Test] - [Scope('OnPrem')] - procedure TestEmailAddressSelectionDefaultLayoutOld() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - Customer: Record Customer; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - EmailAddress: Text[80]; - begin - // Validates that EmailItem gathers the customer's email address when one is not defined in the custom layouts - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetupReportSelections(true, true); - - Customer.Get(SalesInvoiceHeader."Bill-to Customer No."); - Customer."E-Mail" := CustomerEmailTxt; - Customer.Modify(true); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", EmailAddress); - - // Verify - Assert.IsTrue( - EmailAddress = CustomerEmailTxt, StrSubstNo('Destination email address does not match expected address %1', CustomerEmailTxt)); - end; - - [Test] - [Scope('OnPrem')] - procedure TestEmailAddressSelectionCustomLayoutOld() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - EmailAddress: Text[80]; - begin - // Validates that EmailItem gathers the custom layout email address when one is defined. - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetUpCustomEmail(SalesInvoiceHeader, CustomLayoutEmailTxt, true); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", EmailAddress); - - // Verify - Assert.IsTrue( - EmailAddress = CustomLayoutEmailTxt, - StrSubstNo('Destination email address does not match expected address %1', CustomLayoutEmailTxt)); - end; - - [Test] - [Scope('OnPrem')] - procedure TestEmailAddressSelectionCustomAddressNoLayoutOld() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - EmailAddress: Text[80]; - begin - // Validates that the email address in the dialog is from the Customer when set in a custom report selection - // and when the custom report selection does not specify the email body. - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetUpCustomEmail(SalesInvoiceHeader, CustomLayoutEmailTxt, false); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", EmailAddress); - - // Verify - Assert.IsTrue( - EmailAddress = CustomLayoutEmailTxt, - StrSubstNo('Destination email address does not match expected address %1', CustomLayoutEmailTxt)); - end; -#endif [Test] [Scope('OnPrem')] @@ -3052,14 +2930,6 @@ codeunit 134421 "Report Selections Tests" end; end; -#if not CLEAN27 - local procedure GetEmailItem(var EmailItem: Record "Email Item"; MessageType: Integer; BodyFilePath: Text[250]; Plaintext: Boolean) - begin - EmailItem.Validate("Plaintext Formatted", Plaintext); - EmailItem.Validate("Message Type", MessageType); - EmailItem.Validate("Body File Path", BodyFilePath); - end; -#endif local procedure GetEmailItem(var EmailItem: Record "Email Item"; MessageType: Option "Custom Message","From Email Body Template"; var EmailBody: Codeunit "Temp Blob") begin diff --git a/src/Layers/AT/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/AT/BaseApp/Foundation/Company/CompanyInformation.Table.al index f1c227ae563..afb637db7b6 100644 --- a/src/Layers/AT/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/AT/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -310,13 +310,7 @@ table 79 "Company Information" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(35; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies your company''s web site.'; @@ -1002,16 +996,9 @@ table 79 "Company Information" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateShipToCity(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeValidateShipToPostCode(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) begin end; -} +} \ No newline at end of file diff --git a/src/Layers/AU/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al b/src/Layers/AU/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al index b6b6c964e29..421ada9a79f 100644 --- a/src/Layers/AU/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al +++ b/src/Layers/AU/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al @@ -1774,15 +1774,6 @@ codeunit 130509 "Library - Sales" SalesReceivablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - SalesReceivablesSetup.Get(); - SalesReceivablesSetup.Validate("Create Item from Item No.", NewValue); - SalesReceivablesSetup.Modify(true); - end; -#endif /// /// Sets the Create Item from Description option in Sales and Receivables Setup. /// diff --git a/src/Layers/BE/BaseApp/Bank/BankAccount/BankAccount.Table.al b/src/Layers/BE/BaseApp/Bank/BankAccount/BankAccount.Table.al index 42e9997b53f..ad27c5b8f7c 100644 --- a/src/Layers/BE/BaseApp/Bank/BankAccount/BankAccount.Table.al +++ b/src/Layers/BE/BaseApp/Bank/BankAccount/BankAccount.Table.al @@ -721,13 +721,7 @@ table 270 "Bank Account" /// /// Website URL for the bank or financial institution. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/BE/BaseApp/CRM/Contact/Contact.Table.al b/src/Layers/BE/BaseApp/CRM/Contact/Contact.Table.al index a3019f3f26c..f3dd5e66457 100644 --- a/src/Layers/BE/BaseApp/CRM/Contact/Contact.Table.al +++ b/src/Layers/BE/BaseApp/CRM/Contact/Contact.Table.al @@ -365,13 +365,7 @@ table 5050 Contact SetSearchEmail(); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the contact''s web site.'; diff --git a/src/Layers/BE/BaseApp/Finance/Dimension/DimensionManagement.Codeunit.al b/src/Layers/BE/BaseApp/Finance/Dimension/DimensionManagement.Codeunit.al index 207f5dc6ef6..aa3ed9463bf 100644 --- a/src/Layers/BE/BaseApp/Finance/Dimension/DimensionManagement.Codeunit.al +++ b/src/Layers/BE/BaseApp/Finance/Dimension/DimensionManagement.Codeunit.al @@ -4058,13 +4058,6 @@ codeunit 408 DimensionManagement begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTypeToTableID5(Type: Integer; var TableId: Integer) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGetDimensionSetID(var TempDimSetEntry: Record "Dimension Set Entry" temporary) begin diff --git a/src/Layers/BE/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al b/src/Layers/BE/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al index 40394620de7..5159103c7c5 100644 --- a/src/Layers/BE/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al +++ b/src/Layers/BE/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al @@ -952,17 +952,6 @@ table 17 "G/L Entry" LastTransactionNo := FieldNoValues.Get(2); end; -#if not CLEAN27 - /// - /// Gets the additional reporting currency code from General Ledger Setup. - /// - /// Additional reporting currency code - [Obsolete('use GetAdditionalReportingCurrencyCode instead', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; -#endif /// /// Opens the Value Entries page showing item ledger entries related to this G/L entry. /// diff --git a/src/Layers/BE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al b/src/Layers/BE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al index a42042f2027..ee6de57c058 100644 --- a/src/Layers/BE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al +++ b/src/Layers/BE/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al @@ -493,17 +493,11 @@ page 118 "General Ledger Setup" { ApplicationArea = Basic, Suite; Caption = 'Default View by'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Neg. Amount Format"; Rec."Fin. Rep. Neg. Amount Format") { ApplicationArea = Basic, Suite; Caption = 'Default Negative Amount Format'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Company Logo Pos."; Rec."Fin. Rep. Company Logo Pos.") { @@ -919,11 +913,6 @@ page 118 "General Ledger Setup" trigger OnOpenPage() var -#if not CLEAN27 -#pragma warning disable AL0432 - FeatureFinancialReportDef: Codeunit "Feature - Fin. Report Default"; -#pragma warning restore AL0432 -#endif begin Rec.Reset(); if not Rec.Get() then begin @@ -934,17 +923,11 @@ page 118 "General Ledger Setup" IsJournalTemplatesVisible := Rec."Journal Templ. Name Mandatory"; -#if not CLEAN27 - FinancialReportDefaultsEnabled := FeatureFinancialReportDef.IsDefaultsFeatureEnabled(); -#endif end; var xGeneralLedgerSetup: Record "General Ledger Setup"; IsJournalTemplatesVisible: Boolean; -#if not CLEAN27 - FinancialReportDefaultsEnabled: Boolean; -#endif #pragma warning disable AA0074 Text001: Label 'Do you want to change all open entries for every customer and vendor that are not blocked?'; diff --git a/src/Layers/BE/BaseApp/Finance/VAT/Reporting/VATStatementLine.Table.al b/src/Layers/BE/BaseApp/Finance/VAT/Reporting/VATStatementLine.Table.al index 1591e538451..1fb2e3a1924 100644 --- a/src/Layers/BE/BaseApp/Finance/VAT/Reporting/VATStatementLine.Table.al +++ b/src/Layers/BE/BaseApp/Finance/VAT/Reporting/VATStatementLine.Table.al @@ -272,14 +272,6 @@ table 256 "VAT Statement Line" GeneralLedgerSetup: Record "General Ledger Setup"; GeneralLedgerSetupRead: Boolean; -#if not CLEAN27 - [Obsolete('use GetAdditionalReportingCurrencyCode instead', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; -#endif - procedure GetAdditionalReportingCurrencyCode(): Code[10] begin if not GeneralLedgerSetupRead then begin diff --git a/src/Layers/BE/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/BE/BaseApp/Foundation/Company/CompanyInformation.Table.al index eb32cca9999..43ff08e4796 100644 --- a/src/Layers/BE/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/BE/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -304,13 +304,7 @@ table 79 "Company Information" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(35; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies your company''s web site.'; @@ -935,13 +929,6 @@ table 79 "Company Information" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateShipToCity(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeValidateShipToPostCode(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) begin diff --git a/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATAnnualListingDisk.Report.al b/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATAnnualListingDisk.Report.al index 763e7355230..5c4ab113b59 100644 --- a/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATAnnualListingDisk.Report.al +++ b/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATAnnualListingDisk.Report.al @@ -433,7 +433,7 @@ report 11309 "VAT Annual Listing - Disk" XMLNewChild: DotNet XmlNode; CustSequenceNum: Integer; begin - if Buffer.FindSet(true, false) then + if Buffer.FindSet(true) then repeat CustSequenceNum := CustSequenceNum + 1; XMLDOMMgt.AddElement(XMLCurrNode, 'Client', '', xmlnsClientListingConsignment, XMLNewChild); diff --git a/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATSummaryBuffer.Table.al b/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATSummaryBuffer.Table.al index d0a3a1efff2..dbec68d2700 100644 --- a/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATSummaryBuffer.Table.al +++ b/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATSummaryBuffer.Table.al @@ -131,13 +131,6 @@ table 11303 "VAT Summary Buffer" Next(); end; -#if not CLEAN27 - [Obsolete('use GetAdditionalReportingCurrencyCode instead', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()); - end; -#endif procedure GetAdditionalReportingCurrencyCode(): Code[10] begin if not GLSetupRead then begin diff --git a/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATVIESDeclarationDiskBE.Report.al b/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATVIESDeclarationDiskBE.Report.al index 1e575ac4947..1995a28053b 100644 --- a/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATVIESDeclarationDiskBE.Report.al +++ b/src/Layers/BE/BaseApp/Local/FinancialMgt/VAT/VATVIESDeclarationDiskBE.Report.al @@ -528,7 +528,7 @@ report 11315 "VAT-VIES Declaration Disk BE" INTERVATHelper.AddElementPeriod(XMLCurrNode, Choice, Vquarter, Vyear, ''); XMLCurrNode := XMLCurrNode.ParentNode; - if Buffer.FindSet(true, false) then + if Buffer.FindSet(true) then repeat CustSequenceNum := CustSequenceNum + 1; AddCustomersList(XMLCurrNode, CustSequenceNum); diff --git a/src/Layers/BE/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/BE/BaseApp/Purchases/Posting/PurchPost.Codeunit.al index e113b245c71..8e36a76a360 100644 --- a/src/Layers/BE/BaseApp/Purchases/Posting/PurchPost.Codeunit.al +++ b/src/Layers/BE/BaseApp/Purchases/Posting/PurchPost.Codeunit.al @@ -9205,18 +9205,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader2: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - OnAfterPostItemJnlLineCopyProdOrder(ItemJnlLine, PurchLine, PurchRcptHeader2, QtyToBeReceived, CommitIsSupressed, QtyToBeInvoiced); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterPostItemJnlLineItemCharges(PurchHeader: Record "Purchase Header"; PurchLine: Record "Purchase Line") @@ -9748,18 +9736,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - OnBeforePostItemJnlLineCopyProdOrder(PurchLine, ItemJnlLine, QtyToBeReceived, QtyToBeInvoiced, CommitIsSupressed, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnBeforePostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; PreviewMode: Boolean; CommitIsSupressed: Boolean; var HideProgressWindow: Boolean; var ItemJnlPostLine: Codeunit "Item Jnl.-Post Line"; var IsHandled: Boolean) @@ -11288,19 +11264,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]) - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnInsertPostedHeadersOnAfterInvoice(var PurchaseHeader: Record "Purchase Header"; var GenJournalLine: Record "Gen. Journal Line"; var GenJnlLineDocType: Enum "Gen. Journal Document Type"; var GenJnlLineDocNo: Code[20]; var GenJnlLineExtDocNo: Code[35]; var IsHandled: Boolean) begin diff --git a/src/Layers/BE/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/BE/BaseApp/Purchases/Vendor/Vendor.Table.al index da5904206f4..346b04d04c2 100644 --- a/src/Layers/BE/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/BE/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -934,13 +934,7 @@ table 23 Vendor MailManagement.CheckValidEmailAddresses("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/BE/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al b/src/Layers/BE/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al index cb37201b801..b2ce012bb3e 100644 --- a/src/Layers/BE/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al +++ b/src/Layers/BE/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al @@ -200,13 +200,7 @@ table 288 "Vendor Bank Account" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/BE/BaseApp/Purchases/Vendor/VendorTempl.Table.al b/src/Layers/BE/BaseApp/Purchases/Vendor/VendorTempl.Table.al index bbd05d8e37a..c861cf6615f 100644 --- a/src/Layers/BE/BaseApp/Purchases/Vendor/VendorTempl.Table.al +++ b/src/Layers/BE/BaseApp/Purchases/Vendor/VendorTempl.Table.al @@ -311,13 +311,7 @@ table 1383 "Vendor Templ." ToolTip = 'Specifies the vendor''s email address.'; ExtendedDatatype = EMail; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/BE/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al b/src/Layers/BE/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al index 95dcd3a7f45..9f30b7c18a7 100644 --- a/src/Layers/BE/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al +++ b/src/Layers/BE/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al @@ -835,13 +835,7 @@ table 5107 "Sales Header Archive" /// /// Specifies the tracking number assigned by the shipping carrier for package tracking purposes. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/BE/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/BE/BaseApp/Sales/Customer/Customer.Table.al index 8ee6b0a285d..76cca2b8ea7 100644 --- a/src/Layers/BE/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/BE/BaseApp/Sales/Customer/Customer.Table.al @@ -591,13 +591,8 @@ table 18 Customer { Caption = 'Invoice Copies'; ObsoleteReason = 'This field is not used consequently and hence does not work as expected. It should be retired.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } #endif /// @@ -1329,13 +1324,7 @@ table 18 Customer /// /// Specifies the customer's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; OptimizeForTextSearch = true; diff --git a/src/Layers/BE/BaseApp/Sales/Customer/CustomerBankAccount.Table.al b/src/Layers/BE/BaseApp/Sales/Customer/CustomerBankAccount.Table.al index 4d1f87d66e0..682db93795a 100644 --- a/src/Layers/BE/BaseApp/Sales/Customer/CustomerBankAccount.Table.al +++ b/src/Layers/BE/BaseApp/Sales/Customer/CustomerBankAccount.Table.al @@ -263,13 +263,7 @@ table 287 "Customer Bank Account" /// /// Specifies the bank's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; diff --git a/src/Layers/BE/BaseApp/Sales/Customer/CustomerTempl.Table.al b/src/Layers/BE/BaseApp/Sales/Customer/CustomerTempl.Table.al index 1f2c579e6fb..7cc09e58291 100644 --- a/src/Layers/BE/BaseApp/Sales/Customer/CustomerTempl.Table.al +++ b/src/Layers/BE/BaseApp/Sales/Customer/CustomerTempl.Table.al @@ -533,13 +533,7 @@ table 1381 "Customer Templ." /// /// Specifies the default website URL for customers created from this template. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; @@ -907,4 +901,4 @@ table 1381 "Customer Templ." local procedure OnCopyTemplateOnBeforeModify(SourceCustomerTempl: Record "Customer Templ."; SavedCustomerTempl: Record "Customer Templ."; var CustomerTempl: Record "Customer Templ.") begin end; -} +} \ No newline at end of file diff --git a/src/Layers/BE/BaseApp/Sales/Document/SalesHeader.Table.al b/src/Layers/BE/BaseApp/Sales/Document/SalesHeader.Table.al index 76e931d8d08..7ae9756a3c9 100644 --- a/src/Layers/BE/BaseApp/Sales/Document/SalesHeader.Table.al +++ b/src/Layers/BE/BaseApp/Sales/Document/SalesHeader.Table.al @@ -2109,13 +2109,7 @@ table 36 "Sales Header" /// /// Specifies the package tracking number from the shipping agent. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -12922,20 +12916,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before validating the bill-to name. - /// - /// The sales header record being validated. - /// The customer record. - /// Set to true to skip the default validation logic. - /// The previous version of the sales header record. - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateBillToName(var SalesHeader: Record "Sales Header"; var Customer: Record Customer; var IsHandled: Boolean; xSalesHeader: Record "Sales Header") - begin - end; -#endif /// /// Raised before validating tax liable when validating the ship-to code. /// @@ -13891,19 +13871,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before checking if the document is not fully cancelled. - /// - /// The sales credit memo header record. - /// The result indicating whether the document is not fully cancelled. - /// Set to true to skip the default check logic. - [Obsolete('Removed Not used anymore.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeIsNotFullyCancelled(var SalesCrMemoHeader: Record "Sales Cr.Memo Header"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif /// /// Raised after the credit limit check. @@ -13968,17 +13935,6 @@ table 36 "Sales Header" end; -#if not CLEAN27 - /// - /// Raised after setting sales line filters when calculating outstanding quantity base. - /// - /// The sales line record with filters applied. - [Obsolete('Not used anymore due to new implementation that uses Query. Replaced by OnBeforeCalculateReservableOutstandingQuantityBase.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcOutstandingQuantityBaseOnAfterSalesLineSetFilters(var SalesLine: Record "Sales Line") - begin - end; -#endif /// /// Raised before calculating the reservable outstanding quantity base. diff --git a/src/Layers/BE/BaseApp/Sales/History/ReturnReceiptHeader.Table.al b/src/Layers/BE/BaseApp/Sales/History/ReturnReceiptHeader.Table.al index b1335eac567..47db77bf02a 100644 --- a/src/Layers/BE/BaseApp/Sales/History/ReturnReceiptHeader.Table.al +++ b/src/Layers/BE/BaseApp/Sales/History/ReturnReceiptHeader.Table.al @@ -713,13 +713,7 @@ table 6660 "Return Receipt Header" /// /// Specifies the tracking number for the return shipment package. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/BE/BaseApp/Sales/History/SalesCrMemoHeader.Table.al b/src/Layers/BE/BaseApp/Sales/History/SalesCrMemoHeader.Table.al index 5c655d3c39f..271d57def71 100644 --- a/src/Layers/BE/BaseApp/Sales/History/SalesCrMemoHeader.Table.al +++ b/src/Layers/BE/BaseApp/Sales/History/SalesCrMemoHeader.Table.al @@ -745,13 +745,7 @@ table 114 "Sales Cr.Memo Header" /// /// Specifies the tracking number for the shipped package. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/BE/BaseApp/Sales/History/SalesInvoiceHeader.Table.al b/src/Layers/BE/BaseApp/Sales/History/SalesInvoiceHeader.Table.al index 45898266717..62be5d8b88c 100644 --- a/src/Layers/BE/BaseApp/Sales/History/SalesInvoiceHeader.Table.al +++ b/src/Layers/BE/BaseApp/Sales/History/SalesInvoiceHeader.Table.al @@ -771,13 +771,7 @@ table 112 "Sales Invoice Header" /// /// Specifies the tracking number for tracking shipped packages. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/BE/BaseApp/Sales/History/SalesShipmentHeader.Table.al b/src/Layers/BE/BaseApp/Sales/History/SalesShipmentHeader.Table.al index 96f5ad2662c..108ea27ebdb 100644 --- a/src/Layers/BE/BaseApp/Sales/History/SalesShipmentHeader.Table.al +++ b/src/Layers/BE/BaseApp/Sales/History/SalesShipmentHeader.Table.al @@ -729,13 +729,7 @@ table 110 "Sales Shipment Header" /// /// Specifies the tracking number for tracking shipped packages. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/BE/BaseApp/Sales/Posting/SalesPost.Codeunit.al b/src/Layers/BE/BaseApp/Sales/Posting/SalesPost.Codeunit.al index 2d89ac863f3..b38fb1a0fcb 100644 --- a/src/Layers/BE/BaseApp/Sales/Posting/SalesPost.Codeunit.al +++ b/src/Layers/BE/BaseApp/Sales/Posting/SalesPost.Codeunit.al @@ -13456,13 +13456,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetAmountsForDeferral(SalesLine: Record "Sales Line"; var AmtToDefer: Decimal; var AmtToDeferACY: Decimal; var DeferralAccount: Code[20]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostJobContractLineBeforeTestFields(var SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; var IsHandled: Boolean) begin @@ -13668,19 +13661,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]; var SalesHeader: Record "Sales Header") - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostInvoiceOnAfterPostLines(var SalesHeader: Record "Sales Header"; SrcCode: Code[10]; GenJnlLineDocType: Enum "Gen. Journal Document Type"; GenJnlLineDocNo: Code[20]; GenJnlLineExtDocNo: Code[35]; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line") begin diff --git a/src/Layers/BE/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al b/src/Layers/BE/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al index 21231ab5761..a5391b7d6a2 100644 --- a/src/Layers/BE/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al +++ b/src/Layers/BE/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al @@ -571,13 +571,8 @@ table 311 "Sales & Receivables Setup" Caption = 'Create Item from Item No.'; ToolTip = 'Specifies if the system will suggest to create a new item when no item matches the number that you enter in the No. Field on sales lines.'; ObsoleteReason = 'Discontinued function'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '29.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif /// diff --git a/src/Layers/BE/BaseApp/Service/Local/History/ServiceInvoiceBE.Report.al b/src/Layers/BE/BaseApp/Service/Local/History/ServiceInvoiceBE.Report.al index 6f3ad7b9024..6f9107c5258 100644 --- a/src/Layers/BE/BaseApp/Service/Local/History/ServiceInvoiceBE.Report.al +++ b/src/Layers/BE/BaseApp/Service/Local/History/ServiceInvoiceBE.Report.al @@ -722,11 +722,7 @@ report 11321 "Service - Invoice (BE)" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopies) + Cust."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; CopyText := ''; diff --git a/src/Layers/BE/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al b/src/Layers/BE/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al index 55e28588b45..65820ba9719 100644 --- a/src/Layers/BE/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al +++ b/src/Layers/BE/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al @@ -518,34 +518,6 @@ codeunit 131332 "Library - Cash Flow Helper" OnAfterCreatePurchaseLine(PurchaseHeader, GLAccount); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure CreateSpecificServiceOrder(var ServiceHeader: Record "Service Header"; PaymentTermsCode: Code[10]; CFPaymentTermsCode: Code[10]) - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.CreateSpecificServiceOrder(ServiceHeader, PaymentTermsCode, CFPaymentTermsCode); - end; -#endif - -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure CreateDefaultServiceOrder(var ServiceHeader: Record "Service Header") - begin - CreateSpecificServiceOrder(ServiceHeader, '', ''); - end; -#endif - -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure CreateServiceLines(ServiceHeader: Record "Service Header") - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.CreateServiceLines(ServiceHeader); - end; -#endif - procedure CreatePrepaymentAccount(GeneralPostingSetup: Record "General Posting Setup"; VATBusPostingGroup: Code[20]; VATProdPostingGroup: Code[20]): Code[20] var GLAccount: Record "G/L Account"; diff --git a/src/Layers/BE/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al b/src/Layers/BE/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al index 1f9cf9593af..88dcf3d962d 100644 --- a/src/Layers/BE/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al +++ b/src/Layers/BE/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al @@ -1096,15 +1096,6 @@ codeunit 130512 "Library - Purchase" PurchasesPayablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - PurchasesPayablesSetup.Get(); - PurchasesPayablesSetup.Validate("Create Item from Item No.", NewValue); - PurchasesPayablesSetup.Modify(true); - end; -#endif procedure SetDefaultPostingDateWorkDate() begin PurchasesPayablesSetup.Get(); diff --git a/src/Layers/BE/Tests/Local/PaymentDiscount.Codeunit.al b/src/Layers/BE/Tests/Local/PaymentDiscount.Codeunit.al index beeb605a7c6..f7afa12a66d 100644 --- a/src/Layers/BE/Tests/Local/PaymentDiscount.Codeunit.al +++ b/src/Layers/BE/Tests/Local/PaymentDiscount.Codeunit.al @@ -533,70 +533,6 @@ codeunit 144001 "Payment Discount" TempPrepmtInvLineBuf.TestField("VAT Base Amount", Round(SalesLine.Amount * (1 - (SalesHeader."Payment Discount %" / 100)))); end; -#if not CLEAN27 - [Test] - [Scope('OnPrem')] - [HandlerFunctions('ServiceInvoiceStatisticsPageHandler')] - procedure PaymentDiscInVATAmtLineOfServInvoice() - var - ServHeader: Record "Service Header"; - ServiceInvoiceHeader: Record "Service Invoice Header"; - PostedServiceInvoice: TestPage "Posted Service Invoice"; - ExpectedAmount: Decimal; - begin - // [FEATURE] [Service Invoice] - // [SCENARIO 375681] "VAT Base (Lowered)" should be shown in Statistics of Posted Service Invoice and contain VAT Base excluding Payment Discount - - // [GIVEN] Posted Service Invoice having 1000 VAT Base and 2% Payment Discount - CreateServDocWithPricesInclVAT(ServHeader, ServHeader."Document Type"::Order, false); - ExpectedAmount := - Round(GetServVATBase(ServHeader) * (1 - ServHeader."Payment Discount %" / 100), LibraryERM.GetAmountRoundingPrecision()); - LibraryService.PostServiceOrder(ServHeader, true, false, true); - ServiceInvoiceHeader.SetFilter("Order No.", ServHeader."No."); - ServiceInvoiceHeader.FindFirst(); - - // [WHEN] Open Posted Service Invoice Statistics - LibraryVariableStorage.Enqueue(ExpectedAmount); - PostedServiceInvoice.OpenEdit(); - PostedServiceInvoice.GotoRecord(ServiceInvoiceHeader); - PostedServiceInvoice.Statistics.Invoke(); - PostedServiceInvoice.Close(); - - // [THEN] "VAT Base (Lowered)" equals to 980, calculated as 1000 * (1 - 0,02) - // Validation in page handler - end; - - [Test] - [Scope('OnPrem')] - [HandlerFunctions('ServiceCreditMemoStatisticsPageHandler')] - procedure PaymentDiscInVATAmtLineOfServCrMemo() - var - ServHeader: Record "Service Header"; - ServiceCrMemoHeader: Record "Service Cr.Memo Header"; - PostedServiceCreditMemo: TestPage "Posted Service Credit Memo"; - ExpectedAmount: Decimal; - begin - // [FEATURE] [Service Cr Memo] - // [SCENARIO 375789] "VAT Base (Lowered)" should be shown in Statistics of Posted Service Credit Memo and contain VAT Base excluding Payment Discount - - // [GIVEN] Posted Service Credit Memo having 1000 VAT Base and 2% VAT Base Discount - CreateServCrMemo(ServHeader); - ExpectedAmount := - Round(GetServVATBase(ServHeader) * (1 - ServHeader."VAT Base Discount %" / 100), LibraryERM.GetAmountRoundingPrecision()); - LibraryService.PostServiceOrder(ServHeader, true, false, true); - ServiceCrMemoHeader.Get(ServHeader."Last Posting No."); - - // [WHEN] Open Posted Service Credit Memo Statistics - LibraryVariableStorage.Enqueue(ExpectedAmount); - PostedServiceCreditMemo.OpenEdit(); - PostedServiceCreditMemo.GotoRecord(ServiceCrMemoHeader); - PostedServiceCreditMemo.Statistics.Invoke(); - PostedServiceCreditMemo.Close(); - - // [THEN] "VAT Base (Lowered)" equals to 980, calculated as 1000 * (1 - 0,02) - // Validation in page handler - end; -#endif [Test] [Scope('OnPrem')] [HandlerFunctions('ServiceInvoiceStatisticsPageHandlerNM')] @@ -1321,27 +1257,7 @@ codeunit 144001 "Payment Discount" VATEntry.FindFirst(); VATEntry.TestField("Base Before Pmt. Disc.", Amount); end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceInvoiceStatisticsPageHandler(var ServiceInvoiceStatistics: TestPage "Service Invoice Statistics") - var - ExpectedAmount: Variant; - begin - LibraryVariableStorage.Dequeue(ExpectedAmount); - ServiceInvoiceStatistics.Subform."VAT Base (Lowered)".AssertEquals(ExpectedAmount); - end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceCreditMemoStatisticsPageHandler(var ServiceCreditMemoStatistics: TestPage "Service Credit Memo Statistics") - var - ExpectedAmount: Variant; - begin - LibraryVariableStorage.Dequeue(ExpectedAmount); - ServiceCreditMemoStatistics.Subform."VAT Base (Lowered)".AssertEquals(ExpectedAmount); - end; -#endif [PageHandler] [Scope('OnPrem')] procedure ServiceInvoiceStatisticsPageHandlerNM(var ServiceInvoiceStatistics: TestPage "Service Invoice Statistics") diff --git a/src/Layers/CA/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al b/src/Layers/CA/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al index 31f90be5c59..07fc97a1db2 100644 --- a/src/Layers/CA/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al +++ b/src/Layers/CA/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al @@ -1098,15 +1098,6 @@ codeunit 130512 "Library - Purchase" PurchasesPayablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - PurchasesPayablesSetup.Get(); - PurchasesPayablesSetup.Validate("Create Item from Item No.", NewValue); - PurchasesPayablesSetup.Modify(true); - end; -#endif procedure SetDefaultPostingDateWorkDate() begin PurchasesPayablesSetup.Get(); diff --git a/src/Layers/CA/Tests/Local/ERMSalesPurchaseDocument.Codeunit.al b/src/Layers/CA/Tests/Local/ERMSalesPurchaseDocument.Codeunit.al index 9a156ee7f5b..d43ed030ebb 100644 --- a/src/Layers/CA/Tests/Local/ERMSalesPurchaseDocument.Codeunit.al +++ b/src/Layers/CA/Tests/Local/ERMSalesPurchaseDocument.Codeunit.al @@ -953,48 +953,6 @@ codeunit 142053 "ERM Sales/Purchase Document" CreateICOutboxJnlLineWithTax(TaxDetail."Tax Type"::"Sales and Use Tax", true); end; -#if not CLEAN27 - [Test] - [HandlerFunctions('PurchaseInvoiceStatsModalPageHandler')] - [Scope('OnPrem')] - procedure VerifyTotalInclTaxOnPurchInvStatistics() - var - PurchaseHeader: Record "Purchase Header"; - PostedDocumentNo: Code[20]; - begin - // [FEATURE] [Purchase] [Invoice] [Statistics] - // Setup: Create Tax detail with Jurisdiction and Post Purchase Invoice. - Initialize(); - CreatePurchaseDocumentWithTaxAreaCode(PurchaseHeader, PurchaseHeader."Document Type"::Invoice); - PostedDocumentNo := LibraryPurchase.PostPurchaseDocument(PurchaseHeader, true, true); - - // Exercise: Post Purchase Invoice - OpenPostedInvoiceStatistics(PostedDocumentNo); - - // Verification has been done in handler PurchaseInvoiceStatsModalPageHandler - end; - - [Test] - [HandlerFunctions('PurchaseCreditMemoStatsModalPageHandler')] - [Scope('OnPrem')] - procedure VerifyTotalIncTaxOnCreditMemoStatistics() - var - PurchaseHeader: Record "Purchase Header"; - PostedDocumentNo: Code[20]; - begin - // [FEATURE] [Purchase] [Credit Memo] [Statistics] - // Setup: Create Tax detail with Jurisdiction and Post Purchase Credit Memo. - Initialize(); - CreatePurchaseDocumentWithTaxAreaCode(PurchaseHeader, PurchaseHeader."Document Type"::"Credit Memo"); - PurchaseHeader.Validate("Vendor Cr. Memo No.", LibraryUtility.GenerateGUID()); - PostedDocumentNo := LibraryPurchase.PostPurchaseDocument(PurchaseHeader, true, true); - - // Exercise: Post Purchase Credit Memo - OpenPostedPurchCreditMemoStatistics(PostedDocumentNo); - - // Verification has been done in handler PurchaseCreditMemoStatsModalPageHandler - end; -#endif [Test] [HandlerFunctions('PurchaseInvoiceStatsModalPageHandlerNM')] [Scope('OnPrem')] @@ -2813,33 +2771,6 @@ codeunit 142053 "ERM Sales/Purchase Document" PostedSalesShipments."&Print".Invoke(); end; -#if not CLEAN27 - local procedure OpenPostedInvoiceStatistics(PostesInvoiceNo: Code[20]) - var - PurchInvHeader: Record "Purch. Inv. Header"; - PostedPurchaseInvoice: TestPage "Posted Purchase Invoice"; - begin - PurchInvHeader.Get(PostesInvoiceNo); - PurchInvHeader.CalcFields("Amount Including VAT"); - LibraryVariableStorage.Enqueue(PurchInvHeader."Amount Including VAT"); - PostedPurchaseInvoice.OpenEdit(); - PostedPurchaseInvoice.FILTER.SetFilter("No.", PostesInvoiceNo); - PostedPurchaseInvoice.Statistics.Invoke(); - end; - - local procedure OpenPostedPurchCreditMemoStatistics(PostesInvoiceNo: Code[20]) - var - PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr."; - PostedPurchaswCreditMemo: TestPage "Posted Purchase Credit Memo"; - begin - PurchCrMemoHdr.Get(PostesInvoiceNo); - PurchCrMemoHdr.CalcFields("Amount Including VAT"); - LibraryVariableStorage.Enqueue(PurchCrMemoHdr."Amount Including VAT"); - PostedPurchaswCreditMemo.OpenEdit(); - PostedPurchaswCreditMemo.FILTER.SetFilter("No.", PostesInvoiceNo); - PostedPurchaswCreditMemo.Statistics.Invoke(); - end; -#endif local procedure OpenPostedInvoiceStatsNM(PostesInvoiceNo: Code[20]) var PurchInvHeader: Record "Purch. Inv. Header"; @@ -3139,27 +3070,6 @@ codeunit 142053 "ERM Sales/Purchase Document" SalesShipment.SaveAsXml(LibraryReportDataset.GetParametersFileName(), LibraryReportDataset.GetFileName()); end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure PurchaseInvoiceStatsModalPageHandler(var PurchaseInvoiceStats: TestPage "Purchase Invoice Stats.") - var - AmountInclVAT: Variant; - begin - LibraryVariableStorage.Dequeue(AmountInclVAT); - PurchaseInvoiceStats.AmountInclVAT.AssertEquals(AmountInclVAT); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure PurchaseCreditMemoStatsModalPageHandler(var PurchCreditMemoStats: TestPage "Purch. Credit Memo Stats.") - var - AmountInclVAT: Variant; - begin - LibraryVariableStorage.Dequeue(AmountInclVAT); - PurchCreditMemoStats.AmountInclVAT.AssertEquals(AmountInclVAT); - end; -#endif [PageHandler] [Scope('OnPrem')] procedure PurchaseInvoiceStatsModalPageHandlerNM(var PurchaseInvoiceStats: TestPage "Purchase Invoice Stats.") diff --git a/src/Layers/CA/Tests/Local/ERMSalesPurchaseTax.Codeunit.al b/src/Layers/CA/Tests/Local/ERMSalesPurchaseTax.Codeunit.al index 41ab34acf4a..4e54ee390b1 100644 --- a/src/Layers/CA/Tests/Local/ERMSalesPurchaseTax.Codeunit.al +++ b/src/Layers/CA/Tests/Local/ERMSalesPurchaseTax.Codeunit.al @@ -1175,64 +1175,6 @@ codeunit 142050 "ERM Sales/Purchase Tax" NotificationLifecycleMgt.RecallAllNotifications(); end; -#if not CLEAN27 - [Test] - [HandlerFunctions('ServiceOrderStatsPageHandler,SalesTaxLinesSubformDynPageHandler')] - [Scope('OnPrem')] - procedure VATLinesUsingStatisticsOnServiceOrderTaxLiable() - var - ServiceHeader: Record "Service Header"; - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - Tax: Decimal; - TaxAmount: Decimal; - begin - // Verify values on Sales Tax Lines page using Service Order Statistics page. - - // Setup: Create Service Order and find Service Line. - Initialize(); - Tax := CreateAndModifyServiceLine(ServiceHeader, ServiceHeader."Document Type"::Order); - FindServiceLine(ServiceLine, ServiceHeader."Customer No."); - TaxAmount := ServiceLine."Line Amount" * Tax / 100; - LibraryVariableStorage.Enqueue(TaxAmount); // Enqueue value for SalesTaxLinesSubformDynPageHandler. - LibraryVariableStorage.Enqueue(ServiceLine."Tax Group Code"); // Enqueue value for SalesTaxLinesSubformDynPageHandler. - LibraryVariableStorage.Enqueue(ServiceLine."Line Amount"); // Enqueue value for SalesTaxLinesSubformDynPageHandler. - LibraryVariableStorage.Enqueue(ServiceLine."Line Amount" + TaxAmount); // Enqueue value for SalesTaxLinesSubformDynPageHandler. - OpenServiceOrderPage(ServiceHeader, ServiceOrder); - - // Exercise. - ServiceOrder.Statistics.Invoke(); // Invoke to open Service Order Statistics page. - - // Verify: Verify values on Sales Tax Lines Subform Dyn page. Verification done in SalesTaxLinesSubformDynPageHandler. - end; - - [Test] - [HandlerFunctions('ServiceCrMemoStatisticsPageHandler')] - [Scope('OnPrem')] - procedure StatisticsOnServiceCrMemoUsingTaxLiable() - var - ServiceHeader: Record "Service Header"; - ServiceLine: Record "Service Line"; - ServiceCreditMemo: TestPage "Service Credit Memo"; - Tax: Decimal; - TaxAmount: Decimal; - begin - // Verify Tax Amount on Sales Credit Memo Statistics page. - - // Setup: Create Service Credit Memo and open Service Credit Memo page. - Initialize(); - Tax := CreateServiceDocument(ServiceLine, ServiceHeader."Document Type"::"Credit Memo"); - ServiceHeader.Get(ServiceLine."Document Type", ServiceLine."Document No."); - TaxAmount := ServiceLine."Line Amount" * Tax / 100; - LibraryVariableStorage.Enqueue(TaxAmount); // Enqueue value for ServiceCrMemoStatisticsPageHandler. - OpenServiceCrMemoPage(ServiceHeader, ServiceCreditMemo); - - // Exercise. - ServiceCreditMemo.Statistics.Invoke(); // Invoke to open Service Order Statistics page. - - // Verify: Verify Tax Amount on Service Credit Memo Statistics page. Verification done in ServiceCrMemoStatisticsPageHandler. - end; -#endif [Test] [HandlerFunctions('ServiceOrderStatsPageHandlerNM,SalesTaxLinesSubformDynPageHandler')] [Scope('OnPrem')] @@ -4054,24 +3996,6 @@ codeunit 142050 "ERM Sales/Purchase Tax" SalesTaxLinesSubformDyn."Amount Including Tax".AssertEquals(AmountIncludingTax); end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceOrderStatsPageHandler(var ServiceOrderStats: TestPage "Service Order Stats.") - begin - ServiceOrderStats."TempSalesTaxLine1.COUNT".DrillDown(); // Drilldown to open Service Tax Lines Subform Dyn page. - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceCrMemoStatisticsPageHandler(var ServiceStats: TestPage "Service Stats.") - var - VATAmount: Variant; - begin - LibraryVariableStorage.Dequeue(VATAmount); - ServiceStats.VATAmount.AssertEquals(VATAmount); - end; -#endif [PageHandler] [Scope('OnPrem')] procedure ServiceOrderStatsPageHandlerNM(var ServiceOrderStats: TestPage "Service Order Stats.") diff --git a/src/Layers/CA/Tests/Local/ERMSalesPurchaseTaxII.Codeunit.al b/src/Layers/CA/Tests/Local/ERMSalesPurchaseTaxII.Codeunit.al index 9f38a9de902..d5d5baa3d03 100644 --- a/src/Layers/CA/Tests/Local/ERMSalesPurchaseTaxII.Codeunit.al +++ b/src/Layers/CA/Tests/Local/ERMSalesPurchaseTaxII.Codeunit.al @@ -334,55 +334,6 @@ codeunit 142051 "ERM Sales/Purchase Tax II" 'VATAmountLine__VAT_Amount_', Round(PurchaseLine."Line Amount" * PurchaseLine."VAT %" / 100)); end; -#if not CLEAN27 - [Test] - [HandlerFunctions('ServiceOrderStatsTestPageHandler')] - [Scope('OnPrem')] - procedure StatisticsServiceOrderTaxAmount() - var - ServiceHeader: Record "Service Header"; - ServiceOrder: TestPage "Service Order"; - TaxAmount: Decimal; - begin - // Verify Tax Amount on Service Order Statistics. - - // Setup: Create Service Order and open Service Order page. - Initialize(); - TaxAmount := CreateServiceDocumentWithCurrency(ServiceHeader, ServiceHeader."Document Type"::Order); - LibraryVariableStorage.Enqueue(ServiceHeader."Currency Code"); - LibraryVariableStorage.Enqueue(TaxAmount); - OpenServiceOrderPage(ServiceHeader, ServiceOrder); - - // Exercise. - ServiceOrder.Statistics.Invoke(); - - // Verify: Verify Tax Amount on Service Order Statistics. Verification done in ServiceOrderStatsTestPageHandler. - end; - - [Test] - [HandlerFunctions('ServiceStatsTestPageHandler')] - [Scope('OnPrem')] - procedure StatisticsServiceInvoiceTaxAmount() - var - ServiceHeader: Record "Service Header"; - ServiceInvoice: TestPage "Service Invoice"; - TaxAmount: Decimal; - begin - // Verify Tax Amount on Service Invoice Statistics. - - // Setup: Create Service Invoice and open Service Invoice page. - Initialize(); - TaxAmount := CreateServiceDocumentWithCurrency(ServiceHeader, ServiceHeader."Document Type"::Invoice); - LibraryVariableStorage.Enqueue(ServiceHeader."Currency Code"); - LibraryVariableStorage.Enqueue(TaxAmount); - OpenServiceInvoicePage(ServiceHeader, ServiceInvoice); - - // Exercise. - ServiceInvoice.Statistics.Invoke(); - - // Verify: Verify Tax Amount on Service Invoice Statistics. Verification done in ServiceStatsTestPageHandler. - end; -#endif [Test] [HandlerFunctions('ServiceOrderStatsTestPageHandlerNM')] [Scope('OnPrem')] @@ -6591,36 +6542,7 @@ codeunit 142051 "ERM Sales/Purchase Tax II" LibraryVariableStorage.Dequeue(TaxAmount); PurchaseStats.TaxAmount.AssertEquals(TaxAmount); end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceOrderStatsTestPageHandler(var ServiceOrderStats: TestPage "Service Order Stats.") - var - Currency: Record Currency; - CurrencyCode: Variant; - TaxAmount: Variant; - begin - LibraryVariableStorage.Dequeue(CurrencyCode); - LibraryVariableStorage.Dequeue(TaxAmount); - Currency.Get(CurrencyCode); - Assert.AreNearlyEqual( - TaxAmount, ServiceOrderStats.TaxAmount.AsDecimal(), Currency."Amount Rounding Precision", TaxAmountMustMatchErr); - end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceStatsTestPageHandler(var ServiceStats: TestPage "Service Stats.") - var - Currency: Record Currency; - CurrencyCode: Variant; - TaxAmount: Variant; - begin - LibraryVariableStorage.Dequeue(CurrencyCode); - LibraryVariableStorage.Dequeue(TaxAmount); - Currency.Get(CurrencyCode); - Assert.AreNearlyEqual(TaxAmount, ServiceStats.VATAmount.AsDecimal(), Currency."Amount Rounding Precision", TaxAmountMustMatchErr); - end; -#endif [PageHandler] [Scope('OnPrem')] procedure ServiceOrderStatsTestPageHandlerNM(var ServiceOrderStats: TestPage "Service Order Stats.") diff --git a/src/Layers/CH/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al b/src/Layers/CH/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al index 9492bfa72c1..879e5f62af5 100644 --- a/src/Layers/CH/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al +++ b/src/Layers/CH/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al @@ -924,17 +924,6 @@ table 17 "G/L Entry" LastTransactionNo := FieldNoValues.Get(2); end; -#if not CLEAN27 - /// - /// Gets the additional reporting currency code from General Ledger Setup. - /// - /// Additional reporting currency code - [Obsolete('use GetAdditionalReportingCurrencyCode instead', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; -#endif /// /// Opens the Value Entries page showing item ledger entries related to this G/L entry. /// diff --git a/src/Layers/CH/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/CH/BaseApp/Foundation/Company/CompanyInformation.Table.al index 4883eea7386..97ce9285653 100644 --- a/src/Layers/CH/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/CH/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -311,13 +311,7 @@ table 79 "Company Information" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(35; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies your company''s web site.'; @@ -992,16 +986,9 @@ table 79 "Company Information" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateShipToCity(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeValidateShipToPostCode(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) begin end; -} +} \ No newline at end of file diff --git a/src/Layers/CH/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al b/src/Layers/CH/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al index 915a1af88f4..12470f81739 100644 --- a/src/Layers/CH/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al +++ b/src/Layers/CH/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al @@ -731,14 +731,6 @@ table 32 "Item Ledger Entry" exit(FindRecordManagement.GetLastEntryIntFieldValue(Rec, FieldNo("Entry No."))) end; -#if not CLEAN27 - [Obsolete('Please use GetAdditionalReportingCurrencyCode instead.', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; - -#endif procedure GetAdditionalReportingCurrencyCode(): Code[10] begin if not GLSetupRead then begin diff --git a/src/Layers/CH/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/CH/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index ef8a6b5ebb2..91c93343e8b 100644 --- a/src/Layers/CH/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/CH/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -32,9 +32,6 @@ codeunit 22 "Item Jnl.-Post Line" TableData "Item Register" = rimd, TableData "Phys. Inventory Ledger Entry" = rimd, TableData "Item Application Entry" = rimd, -#if not CLEAN28 - TableData Microsoft.Manufacturing.Document."Prod. Order Capacity Need" = rimd, -#endif TableData "Stockkeeping Unit" = rimd, TableData "Value Entry" = rimd, TableData "Avg. Cost Adjmt. Entry Point" = rim, @@ -937,34 +934,9 @@ codeunit 22 "Item Jnl.-Post Line" OnAfterItemValuePosting(GlobalValueEntry, ItemJnlLine, Item); end; -#if not CLEAN27 - /// - /// Posts the consumption of the component in a production order. - /// - /// Production order being posted. - /// Production order line being posted. - /// Production order component to post. - /// Production order routing line. This record is only used on events. - /// Previous item journal line from which new one will be initialized. - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - procedure PostFlushedConsumption(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line") - var - MfgItemJnlPostLine: Codeunit "Mfg. Item Jnl.-Post Line"; - ItemJnlPostLine: Variant; - begin - ItemJnlPostLine := this; - MfgItemJnlPostLine.PostFlushedConsumption( - ItemJnlLine, ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, ItemJnlPostLine); - end; -#endif internal procedure PostFlushedConsumptionItemJnlLine(var ItemJnlLine2: Record "Item Journal Line"; CombinedDimSetID: Integer) var -#if not CLEAN27 - ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; - ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; - ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; -#endif PostItemJnlLine: Boolean; DimsAreTaken: Boolean; TrackingSpecExists: Boolean; @@ -973,12 +945,6 @@ codeunit 22 "Item Jnl.-Post Line" TrackingSpecExists := ItemTrackingMgt.RetrieveItemTracking(ItemJnlLine2, TempTrackingSpecification); OnPostFlushedConsumptionItemJnlLineOnBeforeSetupSplitJnlLine(ItemJnlLine2, TempTrackingSpecification, TrackingSpecExists); -#if not CLEAN27 - ProdOrder.Get(ProdOrder.Status::Released, ItemJnlLine2."Order No."); - ProdOrderLine.Get(ProdOrder.Status::Released, ItemJnlLine2."Order No.", ItemJnlLine2."Order Line No."); - ProdOrderComp.Get(ProdOrder.Status::Released, ItemJnlLine2."Order No.", ItemJnlLine2."Order Line No.", ItemJnlLine2."Prod. Order Comp. Line No."); - OnPostFlushedConsumpOnBeforeSetupSplitJnlLine(ItemJnlLine2, ProdOrder, ProdOrderLine, ProdOrderComp, TempTrackingSpecification, TrackingSpecExists); -#endif PostItemJnlLine := SetupSplitJnlLine(ItemJnlLine2, TrackingSpecExists); while SplitItemJnlLine(ItemJnlLine2, PostItemJnlLine) do begin @@ -987,9 +953,6 @@ codeunit 22 "Item Jnl.-Post Line" if not DimsAreTaken then begin ItemJnlLine2."Dimension Set ID" := CombinedDimSetID; OnPostFlushedConsumptionItemJnlLineOnAfterSetDimensionSetID(ItemJnlLine); -#if not CLEAN27 - OnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJnlLine, ProdOrderLine); -#endif DimsAreTaken := true; end; ItemJnlCheckLine.RunCheck(ItemJnlLine2); @@ -4838,13 +4801,6 @@ codeunit 22 "Item Jnl.-Post Line" /// /// If the journal line is a transfer, it also checks for new serial, lot and package numbers to be assigned during the posting. /// -#if not CLEAN27 - [Obsolete('Replaced by same procedure with parameters ItemJnlLine', '27.0')] - procedure CheckItemTracking() - begin - CheckItemTracking(ItemJnlLine); - end; -#endif procedure CheckItemTracking(var ItemJnlLine2: Record "Item Journal Line") var @@ -5045,19 +5001,6 @@ codeunit 22 "Item Jnl.-Post Line" exit(PostToGL); end; -#if not CLEAN27 - /// - /// Determines if the next operation number exists on the provided production order routing line. - /// - /// Production order routing line to check. - /// True if next operation number exists, otherwise false. - [Obsolete('Moved to table ProdOrderRoutingLine', '27.0')] - procedure NextOperationExist(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"): Boolean - begin - OnBeforeNextOperationExist(ProdOrderRtngLine); - exit(ProdOrderRtngLine."Next Operation No." <> ''); - end; -#endif local procedure UpdateAdjmtProperties(ValueEntry: Record "Value Entry"; OriginalPostingDate: Date) begin @@ -6175,18 +6118,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"); - begin - OnAfterFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGetItem(var Item: Record Item; ItemNo: Code[20]; Unconditionally: Boolean; var HasGotItem: Boolean; var IsHandled: Boolean) @@ -6203,31 +6134,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostFlushedConsump(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line") - begin - OnAfterPostFlushedConsump(ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostFlushedConsump(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterPostConsumption(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine2: Record "Item Journal Line"); - begin - OnAfterPostConsumption(ProdOrderComp, ItemJnlLine2); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostConsumption(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeInsertPhysInvtLedgEntry(var PhysInventoryLedgerEntry: Record "Phys. Inventory Ledger Entry"; ItemJournalLine: Record "Item Journal Line"; LastSplitItemJournalLine: Record "Item Journal Line") @@ -6324,18 +6231,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeInsertConsumpEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; var ModifyProdOrderComp: Boolean; var ItemJnlLine: Record "Item Journal Line"; var TempSplitItemJnlLine: Record "Item Journal Line" temporary) - begin - OnBeforeInsertConsumpEntry(ProdOrderComponent, QtyBase, ModifyProdOrderComp, ItemJnlLine, TempSplitItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeInsertConsumpEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; var ModifyProdOrderComp: Boolean; var ItemJnlLine: Record "Item Journal Line"; var TempSplitItemJnlLine: Record "Item Journal Line" temporary) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterItemApplnEntryInsert(var ItemApplicationEntry: Record "Item Application Entry"; GlobalItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry") @@ -6352,18 +6247,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeNextOperationExist(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnBeforeNextOperationExist(ProdOrderRoutingLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeNextOperationExist(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean; CalledFromAdjustment: Boolean; ItemRegister: Record "Item Register") @@ -6390,44 +6273,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostOutput(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line") - begin - OnAfterPostOutput(ItemLedgerEntry, ProdOrderLine, ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostOutput(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeProdOrderRtngLineModify(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; var LastOperation: Boolean) - begin - OnPostOutputOnBeforeProdOrderRtngLineModify(ProdOrderRoutingLine, ProdOrderLine, ItemJournalLine, LastOperation); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeProdOrderRtngLineModify(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; var LastOperation: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterProdOrderRtngLineSetFilters(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnPostOutputOnAfterProdOrderRtngLineSetFilters(ProdOrderRtngLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterProdOrderRtngLineSetFilters(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCheckPostingCostToGL(var PostCostToGL: Boolean) @@ -6444,31 +6291,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"; LastOperation: Boolean); - begin - OnBeforeFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine, LastOperation); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnBeforeFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"; LastOperation: Boolean); - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforePostFlushedConsumpItemJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - OnBeforePostFlushedConsumpItemJnlLine(ItemJournalLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostFlushedConsumpItemJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterUpdateOldItemLedgerEntryRemainingQuantity(var OldItemLedgerEntry: Record "Item Ledger Entry"; AppliedQuantity: Decimal; var GlobalItemLedgEntry: Record "Item Ledger Entry"; var AverageTransfer: Boolean) @@ -6585,18 +6408,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCallFlushOperation(var ItemJnlLine2: Record "Item Journal Line"; var ShouldFlushOperation: Boolean); - begin - OnBeforeCallFlushOperation(ItemJnlLine2, ShouldFlushOperation); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCallFlushOperation(var ItemJnlLine: Record "Item Journal Line"; var ShouldFlushOperation: Boolean); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCheckSerialNo(ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean; var SkipSerialNoQtyValidation: Boolean) @@ -6613,18 +6424,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostFlushedConsump(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean); - begin - OnBeforePostFlushedConsump(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostFlushedConsump(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean); - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnBeforeInitValueEntry(var ValueEntry: Record "Value Entry"; var ValueEntryNo: Integer; var ItemJournalLine: Record "Item Journal Line") @@ -6676,31 +6475,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeProdOrderCompModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ItemJournalLine: Record "Item Journal Line") - begin - OnBeforeProdOrderCompModify(ProdOrderComponent, ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeProdOrderCompModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeProdOrderLineModify(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJournalLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - OnBeforeProdOrderLineModify(ProdOrderLine, ItemJournalLine, ItemLedgEntryNo); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeProdOrderLineModify(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJournalLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeRoundAmtValueEntry(var ValueEntry: Record "Value Entry"; Currency: Record Currency; Item: Record Item; var IsHandled: Boolean) @@ -6760,18 +6535,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; ReTrack: Boolean) - begin - OnBeforeUpdateProdOrderLine(ProdOrderLine, ItemJournalLine, ReTrack); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; ReTrack: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeUpdateUnitCost(var ValueEntry: Record "Value Entry"; var IsHandled: Boolean; ItemJournalLine: Record "Item Journal Line") @@ -6848,44 +6611,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReTrack: Boolean; var ItemJournalLine: Record "Item Journal Line") - begin - OnAfterUpdateProdOrderLine(ProdOrderLine, ReTrack, ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReTrack: Boolean; var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterInsertConsumpEntry(var WarehouseJournalLine: Record "Warehouse Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; PostWhseJnlLine: Boolean; var ItemJnlLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - OnAfterInsertConsumpEntry(WarehouseJournalLine, ProdOrderComponent, QtyBase, PostWhseJnlLine, ItemJnlLine, ItemLedgEntryNo); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterInsertConsumpEntry(var WarehouseJournalLine: Record "Warehouse Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; PostWhseJnlLine: Boolean; var ItemJnlLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnApplyCapNeedOnAfterSetFilters(var ProdOrderCapNeed: Record Microsoft.Manufacturing.Document."Prod. Order Capacity Need"; ItemJnlLine: Record "Item Journal Line"); - begin - OnApplyCapNeedOnAfterSetFilters(ProdOrderCapNeed, ItemJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnApplyCapNeedOnAfterSetFilters(var ProdOrderCapNeed: Record Microsoft.Manufacturing.Document."Prod. Order Capacity Need"; ItemJnlLine: Record "Item Journal Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnApplyItemLedgEntryOnAfterCalcAppliedQty(OldItemLedgEntry: Record "Item Ledger Entry"; ItemLedgEntry: Record "Item Ledger Entry"; var AppliedQty: Decimal) @@ -6927,44 +6654,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry: Record "Item Ledger Entry"; var IsHandled: Boolean) - begin - OnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry: Record "Item Ledger Entry"; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnFlushOperationOnAfterProdOrderCompSetFilters(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnFlushOperationOnAfterProdOrderCompSetFilters(ProdOrderComponent, OldItemJournalLine, ProdOrderRoutingLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnFlushOperationOnAfterProdOrderCompSetFilters(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnFlushOperationOnBeforeCheckRoutingLinkCode(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ItemJournalLine: Record "Item Journal Line"; LastOperation: Boolean) - begin - OnFlushOperationOnBeforeCheckRoutingLinkCode(ProductionOrder, ProdOrderLine, ProdOrderRoutingLine, ItemJournalLine, LastOperation); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnFlushOperationOnBeforeCheckRoutingLinkCode(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ItemJournalLine: Record "Item Journal Line"; LastOperation: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnGetValuationDateOnAfterOldValueEntrySetFilters(var OldValueEntry: Record "Value Entry"; ValueEntry: Record "Value Entry"; OldItemLedgEntry: Record "Item Ledger Entry") @@ -7031,18 +6722,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnInsertConsumpEntryOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; PostWhseJnlLine: Boolean; var WarehouseJournalLine: Record "Warehouse Journal Line") - begin - OnInsertConsumpEntryOnBeforePostItem(ItemJournalLine, ProdOrderComponent, PostWhseJnlLine, WarehouseJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertConsumpEntryOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; PostWhseJnlLine: Boolean; var WarehouseJournalLine: Record "Warehouse Journal Line") - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnInsertOHValueEntryOnBeforeInsertValueEntry(var ValueEntry: Record "Value Entry"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean; var GlobalItemLedgEntry: Record "Item Ledger Entry"; var ValueEntryNo: Integer) @@ -7104,158 +6783,26 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnAfterCalcQtyToPost(ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ActOutputQtyBase: Decimal; var QtyToPost: Decimal; var OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var CompItem: Record Item) - begin - OnPostFlushedConsumpOnAfterCalcQtyToPost(ProductionOrder, ProdOrderLine, ProdOrderComponent, ActOutputQtyBase, QtyToPost, OldItemJournalLine, ProdOrderRoutingLine, CompItem); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnAfterCalcQtyToPost(ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ActOutputQtyBase: Decimal; var QtyToPost: Decimal; var OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var CompItem: Record Item) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; var OldItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; CompItem: record Item) - begin - OnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(ItemJournalLine, OldItemJournalLine, ProdOrderLine, ProdOrderComponent, CompItem); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; var OldItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; CompItem: record Item) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var OutputQtyBase: Decimal) - begin - OnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, OutputQtyBase); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var OutputQtyBase: Decimal) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJournalLine, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnBeforeSetupSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var TrackingSpecExists: Boolean) - begin - OnPostFlushedConsumpOnBeforeSetupSplitJnlLine(ItemJournalLine, ProdOrder, ProdOrderLine, ProdOrderComp, TempTrackingSpecification, TrackingSpecExists); - end; - - [Obsolete('Replaced by event OnPostFlushedConsumptionItemJnlLineOnBeforeSetupSplitJnlLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnBeforeSetupSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var TrackingSpecExists: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostFlushedConsumptionItemJnlLineOnBeforeSetupSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var TrackingSpecExists: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - OnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJournalLine, ProdOrderLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostFlushedConsumptionItemJnlLineOnAfterSetDimensionSetID(ItemJournalLine: Record "Item Journal Line") begin end; -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnAfterInsertEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostConsumptionOnAfterInsertEntry(ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnAfterInsertEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnAfterFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostConsumptionOnAfterFindProdOrderComp(ProdOrderComp); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnAfterFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NewRemainingQuantity: Decimal; QtyToPost: Decimal) - begin - OnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComponent, NewRemainingQuantity, QtyToPost); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NewRemainingQuantity: Decimal; QtyToPost: Decimal) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeCheckOrderType(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnPostConsumptionOnBeforeCheckOrderType(ProdOrderComponent, ItemJournalLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeCheckOrderType(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeFindSetProdOrderComp(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line") - begin - OnPostConsumptionOnBeforeFindSetProdOrderComp(ProdOrderComponent, ItemJournalLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeFindSetProdOrderComp(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostItemOnAfterGetSKU(var ItemJnlLine: Record "Item Journal Line"; var SKUExists: Boolean; var IsHandled: Boolean) @@ -7272,122 +6819,14 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterInsertCapLedgEntry(ItemJournalLine: Record "Item Journal Line"; var SkipPost: Boolean) - begin - OnPostOutputOnAfterInsertCapLedgEntry(ItemJournalLine, SkipPost); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterInsertCapLedgEntry(ItemJournalLine: Record "Item Journal Line"; var SkipPost: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterInsertCostValueEntries(ItemJournalLine: Record "Item Journal Line"; var CapLedgEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; CalledFromAdjustment: Boolean; PostToGL: Boolean) - begin - OnPostOutputOnAfterInsertCostValueEntries(ItemJournalLine, CapLedgEntry, CalledFromAdjustment, PostToGL); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterInsertCostValueEntries(ItemJournalLine: Record "Item Journal Line"; var CapLedgEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; CalledFromAdjustment: Boolean; PostToGL: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterSetMfgUnitCost(var ItemJournalLine: Record "Item Journal Line"; var MfgUnitCost: Decimal; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - OnPostOutputOnAfterSetMfgUnitCost(ItemJournalLine, MfgUnitCost, ProdOrderLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterSetMfgUnitCost(var ItemJournalLine: Record "Item Journal Line"; var MfgUnitCost: Decimal; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterUpdateAmounts(var ItemJournalLine: Record "Item Journal Line") - begin - OnPostOutputOnAfterUpdateAmounts(ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterUpdateAmounts(var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var WhseJnlLine: Record "Warehouse Journal Line"; var GlobalItemLedgEntry: Record "Item Ledger Entry"); - begin - OnPostOutputOnAfterUpdateProdOrderLine(ItemJournalLine, WhseJnlLine, GlobalItemLedgEntry); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var WhseJnlLine: Record "Warehouse Journal Line"; var GlobalItemLedgEntry: Record "Item Ledger Entry"); - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnPostOutputOnBeforeUpdateProdOrderLine(ItemJournalLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - OnPostOutputOnAfterCreateWhseJnlLine(ItemJournalLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line"; var PostWhseJnlLine: Boolean) - begin - OnPostOutputOnBeforeCreateWhseJnlLine(ItemJournalLine, PostWhseJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line"; var PostWhseJnlLine: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - OnPostOutputOnBeforePostItem(ItemJournalLine, ProdOrderLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostSplitJnlLineOnBeforeSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var ItemJournalLineToPost: Record "Item Journal Line"; var PostItemJournalLine: Boolean; DisableItemTracking: Boolean) @@ -7502,18 +6941,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterCalcCapQty(var ItemJnlLine: Record "Item Journal Line"; var CapQty: Decimal) - begin - OnAfterCalcCapQty(ItemJnlLine, CapQty); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterCalcCapQty(var ItemJnlLine: Record "Item Journal Line"; var CapQty: Decimal) - begin - end; -#endif /// /// Prepares provided item journal line for posting and copies it to the global ItemJnlLine record. @@ -8081,70 +7508,10 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterCheckItemTrackingOfComp(TempHandlingSpecification: Record "Tracking Specification"; ItemJnlLine: Record "Item Journal Line") - begin - OnAfterCheckItemTrackingOfComp(TempHandlingSpecification, ItemJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterCheckItemTrackingOfComp(TempHandlingSpecification: Record "Tracking Specification"; ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeGetOutputProdOrder(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforeGetOutputProdOrder(ProdOrder, ItemJnlLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetOutputProdOrder(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeGetOutputProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforeGetOutputProdOrderLine(ProdOrderLine, ItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetOutputProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeGetProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; OrderNo: Code[20]; OrderLineNo: Integer; var IsHandled: Boolean) - begin - OnBeforeGetProdOrderLine(ProdOrderLine, OrderNo, OrderLineNo, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; OrderNo: Code[20]; OrderLineNo: Integer; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeGetProdOrderRoutingLine(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforeGetProdOrderRoutingLine(ProdOrderRoutingLine, OldItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetProdOrderRoutingLine(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeIsNotInternalWhseMovement(ItemJnlLine: Record "Item Journal Line"; var Result: Boolean; var IsHandled: Boolean) @@ -8166,44 +7533,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostOutput(var ItemJnlLine: Record "Item Journal Line") - begin - OnBeforePostOutput(ItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostOutput(var ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforePostOutputUpdateProdOrderRtngLine(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforePostOutputUpdateProdOrderRtngLine(ProdOrderRtngLine, ItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostOutputUpdateProdOrderRtngLine(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(var CapLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; ItemJnlLine: Record "Item Journal Line") - begin - OnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(CapLedgerEntry, ItemJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(var CapLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCheckExpirationDateOnAfterCalcSumLot(var SumLot: Decimal; SignFactor: Integer; var TempTrackingSpecification: Record "Tracking Specification" temporary; var SkipNewExpirationDateCheck: Boolean) @@ -8405,44 +7736,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var TempHandlingSpecification: Record "Tracking Specification"; RemQtyToPost: Decimal; UseItemTrackingApplication: Boolean; LastLoop: Boolean; var IsHandled: Boolean) - begin - OnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(ProdOrderComp, ItemJnlLine, TempHandlingSpecification, RemQtyToPost, UseItemTrackingApplication, LastLoop, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var TempHandlingSpecification: Record "Tracking Specification"; RemQtyToPost: Decimal; UseItemTrackingApplication: Boolean; LastLoop: Boolean; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeCalcRemainingQuantity(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var NewRemainingQty: Decimal; var QtyToPost: Decimal; var IsHandled: Boolean; var RemQtyToPost: Decimal) - begin - OnPostConsumptionOnBeforeCalcRemainingQuantity(ProdOrderComp, ItemJnlLine, NewRemainingQty, QtyToPost, IsHandled, RemQtyToPost); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeCalcRemainingQuantity(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var NewRemainingQty: Decimal; var QtyToPost: Decimal; var IsHandled: Boolean; var RemQtyToPost: Decimal) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(var ItemJnlLine: Record "Item Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(ItemJnlLine, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(var ItemJnlLine: Record "Item Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnSetItemAdjmtPropertiesOnBeforeCheckModifyItem(var Item2: Record Item; var ModifyItem: Boolean) @@ -8524,18 +7819,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostOutputForProdOrder(var ItemJnlLine: Record "Item Journal Line"; var LastOperation: Boolean; var IsHandled: Boolean) - begin - OnBeforePostOutputForProdOrder(ItemJnlLine, LastOperation, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostOutputForProdOrder(var ItemJnlLine: Record "Item Journal Line"; var LastOperation: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostItemOnAfterCheckCostingMethodStandard(var Item: Record Item; var ItemJnlLine: Record "Item Journal Line") @@ -8632,36 +7915,12 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeReservationExists(ItemJnlLine: Record "Item Journal Line"; var Result: Boolean; var IsHandled: Boolean) - begin - OnBeforeReservationExists(ItemJnlLine, Result, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeReservationExists(ItemJnlLine: Record "Item Journal Line"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUndoQuantityPostingOnAfterCalcShouldInsertCorrValueEntry(OldItemLedgEntry: Record "Item Ledger Entry"; var ShouldInsertCorrValueEntries: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeGetMfgAmounts(var ItemJnlLine: Record "Item Journal Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean) - begin - OnPostOutputOnBeforeGetMfgAmounts(ItemJnlLine, ProdOrder, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeGetMfgAmounts(var ItemJnlLine: Record "Item Journal Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUpdateAvgCostAdjmtBufferOnAfterSetValueEntry(var ValueEntry: Record "Value Entry"; OldItemLedgEntry: Record "Item Ledger Entry") @@ -8693,18 +7952,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnCorrectOutputValuationDateOnBeforeValueEntryFindSet(var ValueEntry: Record "Value Entry") - begin - OnCorrectOutputValuationDateOnBeforeValueEntryFindSet(ValueEntry); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCorrectOutputValuationDateOnBeforeValueEntryFindSet(var ValueEntry: Record "Value Entry") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnApplyItemLedgEntryOnAfterTestFirstApplyItemLedgEntry(OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemLedgerEntry: Record "Item Ledger Entry") @@ -8826,18 +8073,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeInsertCostValueEntries(var ItemJournalLine: Record "Item Journal Line"; var CapacityLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; var ValuedQty: Decimal; var DirCostAmt: Decimal; var IndirCostAmt: Decimal) - begin - OnPostOutputOnBeforeInsertCostValueEntries(ItemJournalLine, CapacityLedgerEntry, ValuedQty, DirCostAmt, IndirCostAmt); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnPostOutputOnBeforeInsertCostValueEntries(var ItemJournalLine: Record "Item Journal Line"; var CapacityLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; var ValuedQty: Decimal; var DirCostAmt: Decimal; var IndirCostAmt: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUpdateItemApplnEntryOnAfterFilterItemApplicationEntry(var ItemApplnEntry: Record "Item Application Entry") @@ -8854,31 +8089,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeOnApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var PostedSetupTime: Decimal; var PostedRunTime: Decimal; var IsHandled: Boolean) - begin - OnBeforeOnApplyCapNeed(ItemJnlLine, PostedSetupTime, PostedRunTime, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeOnApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var PostedSetupTime: Decimal; var PostedRunTime: Decimal; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputForProdOrderOnAfterApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var ValuedQty: Decimal) - begin - OnPostOutputForProdOrderOnAfterApplyCapNeed(ItemJnlLine, ValuedQty); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputForProdOrderOnAfterApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var ValuedQty: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeReApply(ItemLedgerEntry: Record "Item Ledger Entry"; ApplyWith: Integer; var IsHandled: Boolean) diff --git a/src/Layers/CH/BaseApp/Local/Bank/Payment/SalesInvoiceESR.Report.al b/src/Layers/CH/BaseApp/Local/Bank/Payment/SalesInvoiceESR.Report.al index 289660b94ab..e726e911caf 100644 --- a/src/Layers/CH/BaseApp/Local/Bank/Payment/SalesInvoiceESR.Report.al +++ b/src/Layers/CH/BaseApp/Local/Bank/Payment/SalesInvoiceESR.Report.al @@ -491,11 +491,7 @@ report 3010532 "Sales Invoice ESR" begin OutputNo := 1; CopyTxt := ''; -#if not CLEAN27 - CopiesToPrint := ReqCopies + Cust."Invoice Copies" + 1; -#else CopiesToPrint := ReqCopies + 1; -#endif SetRange(Number, 1, CopiesToPrint); // Integer table end; diff --git a/src/Layers/CH/BaseApp/Local/Sales/Document/SalesPickingList.Report.al b/src/Layers/CH/BaseApp/Local/Sales/Document/SalesPickingList.Report.al index 31b33270466..a33504b176a 100644 --- a/src/Layers/CH/BaseApp/Local/Sales/Document/SalesPickingList.Report.al +++ b/src/Layers/CH/BaseApp/Local/Sales/Document/SalesPickingList.Report.al @@ -7,9 +7,6 @@ namespace Microsoft.Sales.Document; using Microsoft.Foundation.Address; using Microsoft.Foundation.Company; using Microsoft.Foundation.Reporting; -#if not CLEAN27 -using Microsoft.Sales.Customer; -#endif using System.Utilities; report 11512 "Sales Picking List" @@ -237,11 +234,7 @@ report 11512 "Sales Picking List" trigger OnPreDataItem() begin CopyTxt := ''; -#if not CLEAN27 - CopiesToPrint := ReqCopies + Customer."Invoice Copies" + 1; -#else CopiesToPrint := ReqCopies + 1; -#endif SetRange(Number, 1, CopiesToPrint); // Integer table OutputNo := 1; @@ -295,9 +288,6 @@ report 11512 "Sales Picking List" var CompanyInfo: Record "Company Information"; -#if not CLEAN27 - Customer: Record Customer; -#endif FormatAdr: Codeunit "Format Address"; Adr: array[8] of Text[100]; CompanyAdr: array[8] of Text[100]; diff --git a/src/Layers/CH/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/CH/BaseApp/Purchases/Posting/PurchPost.Codeunit.al index 8ad0bc703d7..70670fb91a0 100644 --- a/src/Layers/CH/BaseApp/Purchases/Posting/PurchPost.Codeunit.al +++ b/src/Layers/CH/BaseApp/Purchases/Posting/PurchPost.Codeunit.al @@ -9188,18 +9188,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader2: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - OnAfterPostItemJnlLineCopyProdOrder(ItemJnlLine, PurchLine, PurchRcptHeader2, QtyToBeReceived, CommitIsSupressed, QtyToBeInvoiced); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterPostItemJnlLineItemCharges(PurchHeader: Record "Purchase Header"; PurchLine: Record "Purchase Line") @@ -9731,18 +9719,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - OnBeforePostItemJnlLineCopyProdOrder(PurchLine, ItemJnlLine, QtyToBeReceived, QtyToBeInvoiced, CommitIsSupressed, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnBeforePostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; PreviewMode: Boolean; CommitIsSupressed: Boolean; var HideProgressWindow: Boolean; var ItemJnlPostLine: Codeunit "Item Jnl.-Post Line"; var IsHandled: Boolean) @@ -11276,19 +11252,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]) - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnInsertPostedHeadersOnAfterInvoice(var PurchaseHeader: Record "Purchase Header"; var GenJournalLine: Record "Gen. Journal Line"; var GenJnlLineDocType: Enum "Gen. Journal Document Type"; var GenJnlLineDocNo: Code[20]; var GenJnlLineExtDocNo: Code[35]; var IsHandled: Boolean) begin diff --git a/src/Layers/CH/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/CH/BaseApp/Purchases/Vendor/Vendor.Table.al index ec08bbe0d52..97d0bce9b94 100644 --- a/src/Layers/CH/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/CH/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -931,13 +931,7 @@ table 23 Vendor MailManagement.CheckValidEmailAddresses("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/CH/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al b/src/Layers/CH/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al index 285047cb309..394a5739d50 100644 --- a/src/Layers/CH/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al +++ b/src/Layers/CH/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al @@ -202,13 +202,7 @@ table 288 "Vendor Bank Account" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/CH/BaseApp/Purchases/Vendor/VendorTempl.Table.al b/src/Layers/CH/BaseApp/Purchases/Vendor/VendorTempl.Table.al index 551a62a70ae..f9d6643806f 100644 --- a/src/Layers/CH/BaseApp/Purchases/Vendor/VendorTempl.Table.al +++ b/src/Layers/CH/BaseApp/Purchases/Vendor/VendorTempl.Table.al @@ -311,13 +311,7 @@ table 1383 "Vendor Templ." ToolTip = 'Specifies the vendor''s email address.'; ExtendedDatatype = EMail; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/CH/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al b/src/Layers/CH/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al index cb9ecb4a114..d8c17881888 100644 --- a/src/Layers/CH/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al +++ b/src/Layers/CH/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al @@ -835,13 +835,7 @@ table 5107 "Sales Header Archive" /// /// Specifies the tracking number assigned by the shipping carrier for package tracking purposes. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/CH/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/CH/BaseApp/Sales/Customer/Customer.Table.al index 40e2dc9fdbf..d7294515c57 100644 --- a/src/Layers/CH/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/CH/BaseApp/Sales/Customer/Customer.Table.al @@ -590,13 +590,8 @@ table 18 Customer { Caption = 'Invoice Copies'; ObsoleteReason = 'This field is not used consequently and hence does not work as expected. It should be retired.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } #endif /// @@ -1325,13 +1320,7 @@ table 18 Customer /// /// Specifies the customer's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; OptimizeForTextSearch = true; @@ -5082,4 +5071,4 @@ table 18 Customer begin end; -} +} \ No newline at end of file diff --git a/src/Layers/CH/BaseApp/Sales/Customer/CustomerBankAccount.Table.al b/src/Layers/CH/BaseApp/Sales/Customer/CustomerBankAccount.Table.al index 419d809c72a..392aea35277 100644 --- a/src/Layers/CH/BaseApp/Sales/Customer/CustomerBankAccount.Table.al +++ b/src/Layers/CH/BaseApp/Sales/Customer/CustomerBankAccount.Table.al @@ -265,13 +265,7 @@ table 287 "Customer Bank Account" /// /// Specifies the bank's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; diff --git a/src/Layers/CH/BaseApp/Sales/Customer/CustomerTempl.Table.al b/src/Layers/CH/BaseApp/Sales/Customer/CustomerTempl.Table.al index 94f8767029f..1dcb3405d4c 100644 --- a/src/Layers/CH/BaseApp/Sales/Customer/CustomerTempl.Table.al +++ b/src/Layers/CH/BaseApp/Sales/Customer/CustomerTempl.Table.al @@ -533,13 +533,7 @@ table 1381 "Customer Templ." /// /// Specifies the default website URL for customers created from this template. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; @@ -899,4 +893,4 @@ table 1381 "Customer Templ." local procedure OnCopyTemplateOnBeforeModify(SourceCustomerTempl: Record "Customer Templ."; SavedCustomerTempl: Record "Customer Templ."; var CustomerTempl: Record "Customer Templ.") begin end; -} +} \ No newline at end of file diff --git a/src/Layers/CH/BaseApp/Sales/Document/SalesHeader.Table.al b/src/Layers/CH/BaseApp/Sales/Document/SalesHeader.Table.al index be0373b1aa2..8f9fe553f40 100644 --- a/src/Layers/CH/BaseApp/Sales/Document/SalesHeader.Table.al +++ b/src/Layers/CH/BaseApp/Sales/Document/SalesHeader.Table.al @@ -2107,13 +2107,7 @@ table 36 "Sales Header" /// /// Specifies the package tracking number from the shipping agent. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -12977,20 +12971,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before validating the bill-to name. - /// - /// The sales header record being validated. - /// The customer record. - /// Set to true to skip the default validation logic. - /// The previous version of the sales header record. - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateBillToName(var SalesHeader: Record "Sales Header"; var Customer: Record Customer; var IsHandled: Boolean; xSalesHeader: Record "Sales Header") - begin - end; -#endif /// /// Raised before validating tax liable when validating the ship-to code. /// @@ -13946,19 +13926,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before checking if the document is not fully cancelled. - /// - /// The sales credit memo header record. - /// The result indicating whether the document is not fully cancelled. - /// Set to true to skip the default check logic. - [Obsolete('Removed Not used anymore.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeIsNotFullyCancelled(var SalesCrMemoHeader: Record "Sales Cr.Memo Header"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif /// /// Raised after the credit limit check. @@ -14023,17 +13990,6 @@ table 36 "Sales Header" end; -#if not CLEAN27 - /// - /// Raised after setting sales line filters when calculating outstanding quantity base. - /// - /// The sales line record with filters applied. - [Obsolete('Not used anymore due to new implementation that uses Query. Replaced by OnBeforeCalculateReservableOutstandingQuantityBase.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcOutstandingQuantityBaseOnAfterSalesLineSetFilters(var SalesLine: Record "Sales Line") - begin - end; -#endif /// /// Raised before calculating the reservable outstanding quantity base. diff --git a/src/Layers/CH/BaseApp/Sales/Posting/SalesPost.Codeunit.al b/src/Layers/CH/BaseApp/Sales/Posting/SalesPost.Codeunit.al index aa9087f9a4c..53701e91613 100644 --- a/src/Layers/CH/BaseApp/Sales/Posting/SalesPost.Codeunit.al +++ b/src/Layers/CH/BaseApp/Sales/Posting/SalesPost.Codeunit.al @@ -13529,13 +13529,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetAmountsForDeferral(SalesLine: Record "Sales Line"; var AmtToDefer: Decimal; var AmtToDeferACY: Decimal; var DeferralAccount: Code[20]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostJobContractLineBeforeTestFields(var SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; var IsHandled: Boolean) begin @@ -13741,19 +13734,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]; var SalesHeader: Record "Sales Header") - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostInvoiceOnAfterPostLines(var SalesHeader: Record "Sales Header"; SrcCode: Code[10]; GenJnlLineDocType: Enum "Gen. Journal Document Type"; GenJnlLineDocNo: Code[20]; GenJnlLineExtDocNo: Code[35]; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line") begin diff --git a/src/Layers/CH/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al b/src/Layers/CH/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al index 573f30a81ab..667a07ae897 100644 --- a/src/Layers/CH/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al +++ b/src/Layers/CH/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al @@ -75,16 +75,6 @@ page 459 "Sales & Receivables Setup" { ApplicationArea = Basic, Suite; } -#if not CLEAN27 - field("Create Item from Item No."; Rec."Create Item from Item No.") - { - ApplicationArea = Basic, Suite; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("Create Item from Description"; Rec."Create Item from Description") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/CH/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al b/src/Layers/CH/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al index b719bcdb71c..088878a735e 100644 --- a/src/Layers/CH/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al +++ b/src/Layers/CH/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al @@ -571,13 +571,8 @@ table 311 "Sales & Receivables Setup" Caption = 'Create Item from Item No.'; ToolTip = 'Specifies if the system will suggest to create a new item when no item matches the number that you enter in the No. Field on sales lines.'; ObsoleteReason = 'Discontinued function'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '29.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif /// diff --git a/src/Layers/CH/BaseApp/Service/Local/Bank/Payment/ServiceInvoiceESR.Report.al b/src/Layers/CH/BaseApp/Service/Local/Bank/Payment/ServiceInvoiceESR.Report.al index 009e3bc6c14..48b59953d31 100644 --- a/src/Layers/CH/BaseApp/Service/Local/Bank/Payment/ServiceInvoiceESR.Report.al +++ b/src/Layers/CH/BaseApp/Service/Local/Bank/Payment/ServiceInvoiceESR.Report.al @@ -702,11 +702,7 @@ report 3010534 "Service - Invoice ESR" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopies) + Cust."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; CopyText := ''; diff --git a/src/Layers/CH/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al b/src/Layers/CH/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al index a0b7360ada1..46240d56d4f 100644 --- a/src/Layers/CH/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al +++ b/src/Layers/CH/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al @@ -1769,15 +1769,6 @@ codeunit 130509 "Library - Sales" SalesReceivablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - SalesReceivablesSetup.Get(); - SalesReceivablesSetup.Validate("Create Item from Item No.", NewValue); - SalesReceivablesSetup.Modify(true); - end; -#endif /// /// Sets the Create Item from Description option in Sales and Receivables Setup. /// diff --git a/src/Layers/CZ/BaseApp/Sales/Document/SalesHeader.Table.al b/src/Layers/CZ/BaseApp/Sales/Document/SalesHeader.Table.al index 5ebd9b3bc33..e347acbc3fb 100644 --- a/src/Layers/CZ/BaseApp/Sales/Document/SalesHeader.Table.al +++ b/src/Layers/CZ/BaseApp/Sales/Document/SalesHeader.Table.al @@ -2105,13 +2105,7 @@ table 36 "Sales Header" /// /// Specifies the package tracking number from the shipping agent. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -12892,20 +12886,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before validating the bill-to name. - /// - /// The sales header record being validated. - /// The customer record. - /// Set to true to skip the default validation logic. - /// The previous version of the sales header record. - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateBillToName(var SalesHeader: Record "Sales Header"; var Customer: Record Customer; var IsHandled: Boolean; xSalesHeader: Record "Sales Header") - begin - end; -#endif /// /// Raised before validating tax liable when validating the ship-to code. /// @@ -13861,19 +13841,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before checking if the document is not fully cancelled. - /// - /// The sales credit memo header record. - /// The result indicating whether the document is not fully cancelled. - /// Set to true to skip the default check logic. - [Obsolete('Removed Not used anymore.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeIsNotFullyCancelled(var SalesCrMemoHeader: Record "Sales Cr.Memo Header"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif /// /// Raised after the credit limit check. @@ -13938,17 +13905,6 @@ table 36 "Sales Header" end; -#if not CLEAN27 - /// - /// Raised after setting sales line filters when calculating outstanding quantity base. - /// - /// The sales line record with filters applied. - [Obsolete('Not used anymore due to new implementation that uses Query. Replaced by OnBeforeCalculateReservableOutstandingQuantityBase.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcOutstandingQuantityBaseOnAfterSalesLineSetFilters(var SalesLine: Record "Sales Line") - begin - end; -#endif /// /// Raised before calculating the reservable outstanding quantity base. diff --git a/src/Layers/CZ/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al b/src/Layers/CZ/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al index d45c1ef5735..e8325c52c09 100644 --- a/src/Layers/CZ/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al +++ b/src/Layers/CZ/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al @@ -1088,15 +1088,6 @@ codeunit 130512 "Library - Purchase" PurchasesPayablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - PurchasesPayablesSetup.Get(); - PurchasesPayablesSetup.Validate("Create Item from Item No.", NewValue); - PurchasesPayablesSetup.Modify(true); - end; -#endif procedure SetDefaultPostingDateWorkDate() begin PurchasesPayablesSetup.Get(); diff --git a/src/Layers/CZ/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al b/src/Layers/CZ/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al index 26792448271..bb28aa71d81 100644 --- a/src/Layers/CZ/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al +++ b/src/Layers/CZ/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al @@ -6060,9 +6060,6 @@ codeunit 134902 "ERM Account Schedule" begin // [SCENARIO] When using parentheses as negative format, a negative amount should be displayed with parentheses on the page Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif GLSetup.Get(); // [GIVEN] An account schedule line with negative value @@ -6154,9 +6151,6 @@ codeunit 134902 "ERM Account Schedule" begin // [SCENARIO] Account Schedule defaults negative format option from GL Setup Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif // [GIVEN] GL Setup negative amount format is set minus sign GLSetup.Get(); @@ -6195,9 +6189,6 @@ codeunit 134902 "ERM Account Schedule" begin // [SCENARIO] Account Schedule defaults negative format option from GL Setup Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif // [GIVEN] GL Setup negative amount format is set parentheses GLSetup.Get(); @@ -6229,9 +6220,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Day. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Day); @@ -6244,9 +6232,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Week. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Week); @@ -6259,9 +6244,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Month. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Month); @@ -6274,9 +6256,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Quarter. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Quarter); @@ -6289,9 +6268,6 @@ codeunit 134902 "ERM Account Schedule" begin // Check that correct values updated in the newly created column on Account Schedule Overview Page when the default View by is set to Year. Initialize(); -#if not CLEAN27 - EnabledFinancialReportDefaultsFeature(); -#endif LibraryLowerPermissions.SetFinancialReporting(); LibraryLowerPermissions.AddO365Setup(); AccountScheduleOverviewByPeriod(ViewByRef::Year); @@ -6321,18 +6297,6 @@ codeunit 134902 "ERM Account Schedule" AccScheduleOverview.OK().Invoke(); end; -#if not CLEAN27 - local procedure EnabledFinancialReportDefaultsFeature() - var - FeatureKey: Record "Feature Key"; - FeatureFinancialReportDef: Codeunit "Feature - Fin. Report Default"; - begin - if FeatureKey.Get(FeatureFinancialReportDef.GetFinancialReportDefaultsFeatureKey()) then begin - FeatureKey.Enabled := FeatureKey.Enabled::"All Users"; - FeatureKey.Modify(); - end; - end; -#endif [Test] procedure ColumnLayoutGLAccountTotaling() diff --git a/src/Layers/CZ/Tests/Misc/ReportSelectionsTests.Codeunit.al b/src/Layers/CZ/Tests/Misc/ReportSelectionsTests.Codeunit.al index b36ffb2e851..e26cc69ecb3 100644 --- a/src/Layers/CZ/Tests/Misc/ReportSelectionsTests.Codeunit.al +++ b/src/Layers/CZ/Tests/Misc/ReportSelectionsTests.Codeunit.al @@ -361,128 +361,6 @@ codeunit 134421 "Report Selections Tests" // Verify is within handler end; -#if not CLEAN27 - [Test] - [Scope('OnPrem')] - procedure TestHTMLEmailBodyLoad() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - TempEmailItem: Record "Email Item" temporary; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - DummyEmailAddress: Text[250]; - begin - // Validates that EmailItem loads the body from the HTML file - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetupReportSelections(true, true); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", DummyEmailAddress); - GetEmailItem(TempEmailItem, TempEmailItem."Message Type"::"From Email Body Template", FileName, false); - - // Verify - Assert.IsTrue(TempEmailItem.GetBodyText() <> '', 'Expected text in the body of the EmailItem'); - end; - - [Test] - [Scope('OnPrem')] - procedure TestEmailAddressSelectionDefaultLayoutOld() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - Customer: Record Customer; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - EmailAddress: Text[80]; - begin - // Validates that EmailItem gathers the customer's email address when one is not defined in the custom layouts - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetupReportSelections(true, true); - - Customer.Get(SalesInvoiceHeader."Bill-to Customer No."); - Customer."E-Mail" := CustomerEmailTxt; - Customer.Modify(true); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", EmailAddress); - - // Verify - Assert.IsTrue( - EmailAddress = CustomerEmailTxt, StrSubstNo('Destination email address does not match expected address %1', CustomerEmailTxt)); - end; - - [Test] - [Scope('OnPrem')] - procedure TestEmailAddressSelectionCustomLayoutOld() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - EmailAddress: Text[80]; - begin - // Validates that EmailItem gathers the custom layout email address when one is defined. - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetUpCustomEmail(SalesInvoiceHeader, CustomLayoutEmailTxt, true); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", EmailAddress); - - // Verify - Assert.IsTrue( - EmailAddress = CustomLayoutEmailTxt, - StrSubstNo('Destination email address does not match expected address %1', CustomLayoutEmailTxt)); - end; - - [Test] - [Scope('OnPrem')] - procedure TestEmailAddressSelectionCustomAddressNoLayoutOld() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - EmailAddress: Text[80]; - begin - // Validates that the email address in the dialog is from the Customer when set in a custom report selection - // and when the custom report selection does not specify the email body. - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetUpCustomEmail(SalesInvoiceHeader, CustomLayoutEmailTxt, false); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", EmailAddress); - - // Verify - Assert.IsTrue( - EmailAddress = CustomLayoutEmailTxt, - StrSubstNo('Destination email address does not match expected address %1', CustomLayoutEmailTxt)); - end; -#endif [Test] [Scope('OnPrem')] @@ -3040,14 +2918,6 @@ codeunit 134421 "Report Selections Tests" end; end; -#if not CLEAN27 - local procedure GetEmailItem(var EmailItem: Record "Email Item"; MessageType: Integer; BodyFilePath: Text[250]; Plaintext: Boolean) - begin - EmailItem.Validate("Plaintext Formatted", Plaintext); - EmailItem.Validate("Message Type", MessageType); - EmailItem.Validate("Body File Path", BodyFilePath); - end; -#endif local procedure GetEmailItem(var EmailItem: Record "Email Item"; MessageType: Option "Custom Message","From Email Body Template"; var EmailBody: Codeunit "Temp Blob") begin diff --git a/src/Layers/DACH/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/DACH/BaseApp/Foundation/Company/CompanyInformation.Table.al index 3c51153c866..76c9b3f6387 100644 --- a/src/Layers/DACH/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/DACH/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -311,13 +311,7 @@ table 79 "Company Information" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(35; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies your company''s web site.'; @@ -984,16 +978,9 @@ table 79 "Company Information" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateShipToCity(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeValidateShipToPostCode(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) begin end; -} +} \ No newline at end of file diff --git a/src/Layers/DACH/BaseApp/Inventory/Setup/InventorySetup.Table.al b/src/Layers/DACH/BaseApp/Inventory/Setup/InventorySetup.Table.al index cdac34b7a9b..04f808b37a6 100644 --- a/src/Layers/DACH/BaseApp/Inventory/Setup/InventorySetup.Table.al +++ b/src/Layers/DACH/BaseApp/Inventory/Setup/InventorySetup.Table.al @@ -108,52 +108,16 @@ table 313 "Inventory Setup" Caption = 'Current Demand Forecast'; ToolTip = 'Specifies the name of the relevant demand forecast to use to calculate a plan.'; TableRelation = Microsoft.Manufacturing.Forecast."Production Forecast Name".Name; -#if not CLEAN27 - trigger OnValidate() - var - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; - begin - if "Current Demand Forecast" <> xRec."Current Demand Forecast" then begin - ManufacturingSetup.Get(); - ManufacturingSetup.Validate("Current Production Forecast", "Current Demand Forecast"); - ManufacturingSetup.Modify(); - end; - end; -#endif } field(36; "Use Forecast on Variants"; Boolean) { Caption = 'Use forecast on variants'; ToolTip = 'Specifies that actual demand for the selected demand forecast is nettet for the specified item variant. If you leave the check box empty, the program regards the demand forecast as valid for all variants.'; -#if not CLEAN27 - trigger OnValidate() - var - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; - begin - if "Use Forecast on Variants" <> xRec."Use Forecast on Variants" then begin - ManufacturingSetup.Get(); - ManufacturingSetup.Validate("Use Forecast on Variants", "Use Forecast on Variants"); - ManufacturingSetup.Modify(); - end; - end; -#endif } field(37; "Use Forecast on Locations"; Boolean) { Caption = 'Use forecast on locations'; ToolTip = 'Specifies that actual demand for the selected demand forecast is nettet for the specified location only. If you leave the check box empty, the program regards the demand forecast as valid for all locations.'; -#if not CLEAN27 - trigger OnValidate() - var - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; - begin - if "Use Forecast on Locations" <> xRec."Use Forecast on Locations" then begin - ManufacturingSetup.Get(); - ManufacturingSetup.Validate("Use Forecast on Locations", "Use Forecast on Locations"); - ManufacturingSetup.Modify(); - end; - end; -#endif } field(38; "Combined MPS/MRP Calculation"; Boolean) { @@ -161,18 +125,6 @@ table 313 "Inventory Setup" Caption = 'Combined MPS/MRP Calculation'; ToolTip = 'Specifies if both master production schedule and material requirements plan are run when you choose the Calc. Regenerative Plan action in the planning worksheet.'; InitValue = true; -#if not CLEAN27 - trigger OnValidate() - var - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; - begin - if "Combined MPS/MRP Calculation" <> xRec."Combined MPS/MRP Calculation" then begin - ManufacturingSetup.Get(); - ManufacturingSetup.Validate("Combined MPS/MRP Calculation", "Combined MPS/MRP Calculation"); - ManufacturingSetup.Modify(); - end; - end; -#endif } field(40; "Prevent Negative Inventory"; Boolean) { @@ -186,35 +138,11 @@ table 313 "Inventory Setup" ToolTip = 'Specifies a percentage of an item''s lot size by which an existing supply must change before a planning suggestion is made.'; DecimalPlaces = 1 : 1; MinValue = 0; -#if not CLEAN27 - trigger OnValidate() - var - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; - begin - if "Default Dampener %" <> xRec."Default Dampener %" then begin - ManufacturingSetup.Get(); - ManufacturingSetup.Validate("Default Dampener %", "Default Dampener %"); - ManufacturingSetup.Modify(); - end; - end; -#endif } field(42; "Default Safety Lead Time"; DateFormula) { Caption = 'Default Safety Lead Time'; ToolTip = 'Specifies a time period that is added to the lead time of all items that do not have another value specified in the Safety Lead Time field.'; -#if not CLEAN27 - trigger OnValidate() - var - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; - begin - if "Default Safety Lead Time" <> xRec."Default Safety Lead Time" then begin - ManufacturingSetup.Get(); - ManufacturingSetup.Validate("Default Safety Lead Time", "Default Safety Lead Time"); - ManufacturingSetup.Modify(); - end; - end; -#endif } field(43; "Blank Overflow Level"; Option) { @@ -222,18 +150,6 @@ table 313 "Inventory Setup" ToolTip = 'Specifies how the planning system should react if the Overflow Level field on the item or SKU card is empty.'; OptionCaption = 'Allow Default Calculation,Use Item/SKU Values Only'; OptionMembers = "Allow Default Calculation","Use Item/SKU Values Only"; -#if not CLEAN27 - trigger OnValidate() - var - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; - begin - if "Blank Overflow Level" <> xRec."Blank Overflow Level" then begin - ManufacturingSetup.Get(); - ManufacturingSetup.Validate("Blank Overflow Level", "Blank Overflow Level"); - ManufacturingSetup.Modify(); - end; - end; -#endif } field(44; "Default Dampener Period"; DateFormula) { @@ -242,19 +158,9 @@ table 313 "Inventory Setup" trigger OnValidate() var -#if not CLEAN27 - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; -#endif CalendarMgt: Codeunit "Calendar Management"; begin CalendarMgt.CheckDateFormulaPositive("Default Dampener Period"); -#if not CLEAN27 - if "Default Dampener Period" <> xRec."Default Dampener Period" then begin - ManufacturingSetup.Get(); - ManufacturingSetup.Validate("Default Dampener Period", "Default Dampener Period"); - ManufacturingSetup.Modify(); - end; -#endif end; } field(45; "Variant Mandatory if Exists"; Boolean) diff --git a/src/Layers/DACH/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al b/src/Layers/DACH/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al index 55b8abaeb08..064e06d6b10 100644 --- a/src/Layers/DACH/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al +++ b/src/Layers/DACH/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al @@ -50,16 +50,6 @@ page 460 "Purchases & Payables Setup" { ApplicationArea = Basic, Suite; } -#if not CLEAN27 - field("Create Item from Item No."; Rec."Create Item from Item No.") - { - ApplicationArea = Basic, Suite; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("Copy Vendor Name to Entries"; Rec."Copy Vendor Name to Entries") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/DACH/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al b/src/Layers/DACH/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al index bbe597d61da..33a96961b9f 100644 --- a/src/Layers/DACH/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al +++ b/src/Layers/DACH/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al @@ -343,13 +343,8 @@ table 312 "Purchases & Payables Setup" Caption = 'Create Item from Item No.'; ToolTip = 'Specifies if the system will suggest to create a new item when no item matches the number that you enter in the No. Field on purchase lines.'; ObsoleteReason = 'Discontinued function'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '29.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif field(58; "Copy Vendor Name to Entries"; Boolean) diff --git a/src/Layers/DACH/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/DACH/BaseApp/Purchases/Vendor/Vendor.Table.al index 96e740479ee..c326b06d38a 100644 --- a/src/Layers/DACH/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/DACH/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -931,13 +931,7 @@ table 23 Vendor MailManagement.CheckValidEmailAddresses("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/DACH/BaseApp/Purchases/Vendor/VendorTempl.Table.al b/src/Layers/DACH/BaseApp/Purchases/Vendor/VendorTempl.Table.al index 5e24f5586d4..5d9822e22a2 100644 --- a/src/Layers/DACH/BaseApp/Purchases/Vendor/VendorTempl.Table.al +++ b/src/Layers/DACH/BaseApp/Purchases/Vendor/VendorTempl.Table.al @@ -311,13 +311,7 @@ table 1383 "Vendor Templ." ToolTip = 'Specifies the vendor''s email address.'; ExtendedDatatype = EMail; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/DACH/BaseApp/Upgrade/UPGLocalFunctionality.Codeunit.al b/src/Layers/DACH/BaseApp/Upgrade/UPGLocalFunctionality.Codeunit.al index 109e292a36e..d46b1c42b8b 100644 --- a/src/Layers/DACH/BaseApp/Upgrade/UPGLocalFunctionality.Codeunit.al +++ b/src/Layers/DACH/BaseApp/Upgrade/UPGLocalFunctionality.Codeunit.al @@ -14,151 +14,9 @@ codeunit 104100 "Upg Local Functionality" if not HybridDeployment.VerifyCanStartUpgrade(CompanyName()) then exit; -#if not CLEAN27 - SetReportSelectionForGLVATReconciliation(); - SetReportSelectionForVATStatementSchedule(); - SetReportSelectionForIssuedDeliveryReminder(); - SetReportSelectionForDeliveryReminderTest(); -#endif UpdateVendorRegistrationNo(); end; -#if not CLEAN27 - [Obsolete('Replaced by ReportSelections table setup', '25.0')] - procedure SetReportSelectionForGLVATReconciliation() - var - DACHReportSelections: Record "DACH Report Selections"; - ReportSelections: Record "Report Selections"; - UpgradeTag: Codeunit "Upgrade Tag"; - UpgradeTagDefCountry: Codeunit "Upgrade Tag Def - Country"; - ReportID: Integer; - begin - if UpgradeTag.HasUpgradeTag(UpgradeTagDefCountry.GetReportSelectionForGLVATReconciliationTag()) then - exit; - - DACHReportSelections.SetRange(Usage, DACHReportSelections.Usage::"Sales VAT Acc. Proof"); - if DACHReportSelections.FindFirst() then - ReportID := DACHReportSelections."Report ID" - else - ReportID := 11; - - if ReportSelections.Get(ReportSelections.Usage::"Sales VAT Acc. Proof", '1') then begin - ReportSelections."Report ID" := ReportID; - ReportSelections.Modify(); - end else begin - ReportSelections.Init(); - ReportSelections.Usage := ReportSelections.Usage::"Sales VAT Acc. Proof"; - ReportSelections.Sequence := '1'; - ReportSelections."Report ID" := ReportID; - ReportSelections.Insert(); - end; - - UpgradeTag.SetUpgradeTag(UpgradeTagDefCountry.GetReportSelectionForGLVATReconciliationTag()); - end; -#endif - -#if not CLEAN27 - [Obsolete('Replaced by ReportSelections table setup', '27.0')] - procedure SetReportSelectionForVATStatementSchedule() - var - DACHReportSelections: Record "DACH Report Selections"; - ReportSelections: Record "Report Selections"; - UpgradeTag: Codeunit "Upgrade Tag"; - UpgradeTagDefCountry: Codeunit "Upgrade Tag Def - Country"; - ReportID: Integer; - begin - if UpgradeTag.HasUpgradeTag(UpgradeTagDefCountry.GetReportSelectionForVATStatementScheduleTag()) then - exit; - - DACHReportSelections.SetRange(Usage, DACHReportSelections.Usage::"VAT Statement Schedule"); - if DACHReportSelections.FindFirst() then - ReportID := DACHReportSelections."Report ID" - else - ReportID := Report::"VAT Statement Schedule"; - - if ReportSelections.Get(ReportSelections.Usage::"VAT Statement Schedule", '1') then begin - ReportSelections."Report ID" := ReportID; - ReportSelections.Modify(); - end else begin - ReportSelections.Init(); - ReportSelections.Usage := ReportSelections.Usage::"VAT Statement Schedule"; - ReportSelections.Sequence := '1'; - ReportSelections."Report ID" := ReportID; - ReportSelections.Insert(); - end; - - UpgradeTag.SetUpgradeTag(UpgradeTagDefCountry.GetReportSelectionForVATStatementScheduleTag()); - end; -#endif - -#if not CLEAN27 - [Obsolete('Replaced by ReportSelections table setup', '27.0')] - procedure SetReportSelectionForIssuedDeliveryReminder() - var - DACHReportSelections: Record "DACH Report Selections"; - ReportSelections: Record "Report Selections"; - UpgradeTag: Codeunit "Upgrade Tag"; - UpgradeTagDefCountry: Codeunit "Upgrade Tag Def - Country"; - ReportID: Integer; - begin - if UpgradeTag.HasUpgradeTag(UpgradeTagDefCountry.GetReportSelectionForIssuedDeliveryReminderTag()) then - exit; - - DACHReportSelections.SetRange(Usage, DACHReportSelections.Usage::"Issued Delivery Reminder"); - if DACHReportSelections.FindFirst() then - ReportID := DACHReportSelections."Report ID" - else - ReportID := Report::"Issued Delivery Reminder"; - - if ReportSelections.Get(ReportSelections.Usage::"Issued Delivery Reminder", '1') then begin - ReportSelections."Report ID" := ReportID; - ReportSelections.Modify(); - end else begin - ReportSelections.Init(); - ReportSelections.Usage := ReportSelections.Usage::"Issued Delivery Reminder"; - ReportSelections.Sequence := '1'; - ReportSelections."Report ID" := ReportID; - ReportSelections.Insert(); - end; - - UpgradeTag.SetUpgradeTag(UpgradeTagDefCountry.GetReportSelectionForIssuedDeliveryReminderTag()); - end; -#endif - -#if not CLEAN27 - [Obsolete('Replaced by ReportSelections table setup', '27.0')] - procedure SetReportSelectionForDeliveryReminderTest() - var - DACHReportSelections: Record "DACH Report Selections"; - ReportSelections: Record "Report Selections"; - UpgradeTag: Codeunit "Upgrade Tag"; - UpgradeTagDefCountry: Codeunit "Upgrade Tag Def - Country"; - ReportID: Integer; - begin - if UpgradeTag.HasUpgradeTag(UpgradeTagDefCountry.GetReportSelectionForDeliveryReminderTestTag()) then - exit; - - DACHReportSelections.SetRange(Usage, DACHReportSelections.Usage::"Delivery Reminder Test"); - if DACHReportSelections.FindFirst() then - ReportID := DACHReportSelections."Report ID" - else - ReportID := Report::"Delivery Reminder - Test"; - - if ReportSelections.Get(ReportSelections.Usage::"Delivery Reminder Test", '1') then begin - ReportSelections."Report ID" := ReportID; - ReportSelections.Modify(); - end else begin - ReportSelections.Init(); - ReportSelections.Usage := ReportSelections.Usage::"Delivery Reminder Test"; - ReportSelections.Sequence := '1'; - ReportSelections."Report ID" := ReportID; - ReportSelections.Insert(); - end; - - UpgradeTag.SetUpgradeTag(UpgradeTagDefCountry.GetReportSelectionForDeliveryReminderTestTag()); - end; -#endif - procedure UpdateVendorRegistrationNo() var Vendor: Record Vendor; diff --git a/src/Layers/ES/BaseApp/Bank/BankAccount/BankAccount.Table.al b/src/Layers/ES/BaseApp/Bank/BankAccount/BankAccount.Table.al index b0ed8537410..e71157b530c 100644 --- a/src/Layers/ES/BaseApp/Bank/BankAccount/BankAccount.Table.al +++ b/src/Layers/ES/BaseApp/Bank/BankAccount/BankAccount.Table.al @@ -740,13 +740,7 @@ table 270 "Bank Account" /// /// Website URL for the bank or financial institution. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; @@ -2938,4 +2932,4 @@ table 270 "Bank Account" local procedure OnBeforeIsInLocalCurrency(var Rec: Record "Bank Account"; var Result: Boolean; var IsHandled: Boolean) begin end; -} +} \ No newline at end of file diff --git a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al index 5de482ebc1d..5a68be478d1 100644 --- a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al +++ b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al @@ -942,17 +942,6 @@ table 17 "G/L Entry" LastTransactionNo := FieldNoValues.Get(2); end; -#if not CLEAN27 - /// - /// Gets the additional reporting currency code from General Ledger Setup. - /// - /// Additional reporting currency code - [Obsolete('use GetAdditionalReportingCurrencyCode instead', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; -#endif /// /// Opens the Value Entries page showing item ledger entries related to this G/L entry. /// diff --git a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al index a00c86803a1..a864a6a4f91 100644 --- a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al +++ b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al @@ -11162,13 +11162,6 @@ codeunit 12 "Gen. Jnl.-Post Line" begin end; -#if not CLEAN27 - [Obsolete('The event is never raised', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterCalcPmtDiscPossible(GenJnlLine: Record "Gen. Journal Line"; var CVLedgEntryBuf: Record "CV Ledger Entry Buffer") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterCalcPmtDiscTolerance(var NewCVLedgEntryBuf: Record "CV Ledger Entry Buffer"; var OldCVLedgEntryBuf: Record "CV Ledger Entry Buffer"; var OldCVLedgEntryBuf2: Record "CV Ledger Entry Buffer"; var DtldCVLedgEntryBuf: Record "Detailed CV Ledg. Entry Buffer"; var GenJnlLine: Record "Gen. Journal Line"; var PmtDiscTol: Decimal; var PmtDiscTolLCY: Decimal; var PmtDiscTolAddCurr: Decimal) begin diff --git a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al index f2c087cf833..fd6a4933663 100644 --- a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al +++ b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al @@ -493,17 +493,11 @@ page 118 "General Ledger Setup" { ApplicationArea = Basic, Suite; Caption = 'Default View by'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Neg. Amount Format"; Rec."Fin. Rep. Neg. Amount Format") { ApplicationArea = Basic, Suite; Caption = 'Default Negative Amount Format'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Company Logo Pos."; Rec."Fin. Rep. Company Logo Pos.") { @@ -913,11 +907,6 @@ page 118 "General Ledger Setup" trigger OnOpenPage() var -#if not CLEAN27 -#pragma warning disable AL0432 - FeatureFinancialReportDef: Codeunit "Feature - Fin. Report Default"; -#pragma warning restore AL0432 -#endif begin Rec.Reset(); if not Rec.Get() then begin @@ -928,17 +917,11 @@ page 118 "General Ledger Setup" IsJournalTemplatesVisible := Rec."Journal Templ. Name Mandatory"; -#if not CLEAN27 - FinancialReportDefaultsEnabled := FeatureFinancialReportDef.IsDefaultsFeatureEnabled(); -#endif end; var xGeneralLedgerSetup: Record "General Ledger Setup"; IsJournalTemplatesVisible: Boolean; -#if not CLEAN27 - FinancialReportDefaultsEnabled: Boolean; -#endif #pragma warning disable AA0074 Text001: Label 'Do you want to change all open entries for every customer and vendor that are not blocked?'; diff --git a/src/Layers/ES/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/ES/BaseApp/Foundation/Company/CompanyInformation.Table.al index 09f202ac48a..dc331b97e24 100644 --- a/src/Layers/ES/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/ES/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -307,13 +307,7 @@ table 79 "Company Information" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(35; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies your company''s web site.'; @@ -943,16 +937,9 @@ table 79 "Company Information" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateShipToCity(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeValidateShipToPostCode(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) begin end; -} +} \ No newline at end of file diff --git a/src/Layers/ES/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al b/src/Layers/ES/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al index eaf8530e9d0..4f131b289aa 100644 --- a/src/Layers/ES/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al +++ b/src/Layers/ES/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al @@ -722,14 +722,6 @@ table 32 "Item Ledger Entry" exit(FindRecordManagement.GetLastEntryIntFieldValue(Rec, FieldNo("Entry No."))) end; -#if not CLEAN27 - [Obsolete('Please use GetAdditionalReportingCurrencyCode instead.', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; - -#endif procedure GetAdditionalReportingCurrencyCode(): Code[10] begin if not GLSetupRead then begin diff --git a/src/Layers/ES/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/ES/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index b6e104f124d..b3d2e4f1351 100644 --- a/src/Layers/ES/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/ES/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -32,9 +32,6 @@ codeunit 22 "Item Jnl.-Post Line" TableData "Item Register" = rimd, TableData "Phys. Inventory Ledger Entry" = rimd, TableData "Item Application Entry" = rimd, -#if not CLEAN28 - TableData Microsoft.Manufacturing.Document."Prod. Order Capacity Need" = rimd, -#endif TableData "Stockkeeping Unit" = rimd, TableData "Value Entry" = rimd, TableData "Avg. Cost Adjmt. Entry Point" = rim, @@ -937,34 +934,9 @@ codeunit 22 "Item Jnl.-Post Line" OnAfterItemValuePosting(GlobalValueEntry, ItemJnlLine, Item); end; -#if not CLEAN27 - /// - /// Posts the consumption of the component in a production order. - /// - /// Production order being posted. - /// Production order line being posted. - /// Production order component to post. - /// Production order routing line. This record is only used on events. - /// Previous item journal line from which new one will be initialized. - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - procedure PostFlushedConsumption(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line") - var - MfgItemJnlPostLine: Codeunit "Mfg. Item Jnl.-Post Line"; - ItemJnlPostLine: Variant; - begin - ItemJnlPostLine := this; - MfgItemJnlPostLine.PostFlushedConsumption( - ItemJnlLine, ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, ItemJnlPostLine); - end; -#endif internal procedure PostFlushedConsumptionItemJnlLine(var ItemJnlLine2: Record "Item Journal Line"; CombinedDimSetID: Integer) var -#if not CLEAN27 - ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; - ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; - ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; -#endif PostItemJnlLine: Boolean; DimsAreTaken: Boolean; TrackingSpecExists: Boolean; @@ -973,12 +945,6 @@ codeunit 22 "Item Jnl.-Post Line" TrackingSpecExists := ItemTrackingMgt.RetrieveItemTracking(ItemJnlLine2, TempTrackingSpecification); OnPostFlushedConsumptionItemJnlLineOnBeforeSetupSplitJnlLine(ItemJnlLine2, TempTrackingSpecification, TrackingSpecExists); -#if not CLEAN27 - ProdOrder.Get(ProdOrder.Status::Released, ItemJnlLine2."Order No."); - ProdOrderLine.Get(ProdOrder.Status::Released, ItemJnlLine2."Order No.", ItemJnlLine2."Order Line No."); - ProdOrderComp.Get(ProdOrder.Status::Released, ItemJnlLine2."Order No.", ItemJnlLine2."Order Line No.", ItemJnlLine2."Prod. Order Comp. Line No."); - OnPostFlushedConsumpOnBeforeSetupSplitJnlLine(ItemJnlLine2, ProdOrder, ProdOrderLine, ProdOrderComp, TempTrackingSpecification, TrackingSpecExists); -#endif PostItemJnlLine := SetupSplitJnlLine(ItemJnlLine2, TrackingSpecExists); while SplitItemJnlLine(ItemJnlLine2, PostItemJnlLine) do begin @@ -987,9 +953,6 @@ codeunit 22 "Item Jnl.-Post Line" if not DimsAreTaken then begin ItemJnlLine2."Dimension Set ID" := CombinedDimSetID; OnPostFlushedConsumptionItemJnlLineOnAfterSetDimensionSetID(ItemJnlLine); -#if not CLEAN27 - OnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJnlLine, ProdOrderLine); -#endif DimsAreTaken := true; end; ItemJnlCheckLine.RunCheck(ItemJnlLine2); @@ -4847,13 +4810,6 @@ codeunit 22 "Item Jnl.-Post Line" /// /// If the journal line is a transfer, it also checks for new serial, lot and package numbers to be assigned during the posting. /// -#if not CLEAN27 - [Obsolete('Replaced by same procedure with parameters ItemJnlLine', '27.0')] - procedure CheckItemTracking() - begin - CheckItemTracking(ItemJnlLine); - end; -#endif procedure CheckItemTracking(var ItemJnlLine2: Record "Item Journal Line") var @@ -5054,19 +5010,6 @@ codeunit 22 "Item Jnl.-Post Line" exit(PostToGL); end; -#if not CLEAN27 - /// - /// Determines if the next operation number exists on the provided production order routing line. - /// - /// Production order routing line to check. - /// True if next operation number exists, otherwise false. - [Obsolete('Moved to table ProdOrderRoutingLine', '27.0')] - procedure NextOperationExist(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"): Boolean - begin - OnBeforeNextOperationExist(ProdOrderRtngLine); - exit(ProdOrderRtngLine."Next Operation No." <> ''); - end; -#endif local procedure UpdateAdjmtProperties(ValueEntry: Record "Value Entry"; OriginalPostingDate: Date) begin @@ -6185,18 +6128,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"); - begin - OnAfterFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGetItem(var Item: Record Item; ItemNo: Code[20]; Unconditionally: Boolean; var HasGotItem: Boolean; var IsHandled: Boolean) @@ -6213,31 +6144,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostFlushedConsump(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line") - begin - OnAfterPostFlushedConsump(ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostFlushedConsump(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterPostConsumption(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine2: Record "Item Journal Line"); - begin - OnAfterPostConsumption(ProdOrderComp, ItemJnlLine2); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostConsumption(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeInsertPhysInvtLedgEntry(var PhysInventoryLedgerEntry: Record "Phys. Inventory Ledger Entry"; ItemJournalLine: Record "Item Journal Line"; LastSplitItemJournalLine: Record "Item Journal Line") @@ -6334,18 +6241,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeInsertConsumpEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; var ModifyProdOrderComp: Boolean; var ItemJnlLine: Record "Item Journal Line"; var TempSplitItemJnlLine: Record "Item Journal Line" temporary) - begin - OnBeforeInsertConsumpEntry(ProdOrderComponent, QtyBase, ModifyProdOrderComp, ItemJnlLine, TempSplitItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeInsertConsumpEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; var ModifyProdOrderComp: Boolean; var ItemJnlLine: Record "Item Journal Line"; var TempSplitItemJnlLine: Record "Item Journal Line" temporary) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterItemApplnEntryInsert(var ItemApplicationEntry: Record "Item Application Entry"; GlobalItemLedgerEntry: Record "Item Ledger Entry"; OldItemLedgerEntry: Record "Item Ledger Entry") @@ -6362,18 +6257,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeNextOperationExist(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnBeforeNextOperationExist(ProdOrderRoutingLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeNextOperationExist(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean; CalledFromAdjustment: Boolean; ItemRegister: Record "Item Register") @@ -6400,44 +6283,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostOutput(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line") - begin - OnAfterPostOutput(ItemLedgerEntry, ProdOrderLine, ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostOutput(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeProdOrderRtngLineModify(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; var LastOperation: Boolean) - begin - OnPostOutputOnBeforeProdOrderRtngLineModify(ProdOrderRoutingLine, ProdOrderLine, ItemJournalLine, LastOperation); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeProdOrderRtngLineModify(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; var LastOperation: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterProdOrderRtngLineSetFilters(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnPostOutputOnAfterProdOrderRtngLineSetFilters(ProdOrderRtngLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterProdOrderRtngLineSetFilters(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCheckPostingCostToGL(var PostCostToGL: Boolean) @@ -6454,31 +6301,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"; LastOperation: Boolean); - begin - OnBeforeFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine, LastOperation); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnBeforeFlushOperation(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJnlLine: Record "Item Journal Line"; LastOperation: Boolean); - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforePostFlushedConsumpItemJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - OnBeforePostFlushedConsumpItemJnlLine(ItemJournalLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostFlushedConsumpItemJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterUpdateOldItemLedgerEntryRemainingQuantity(var OldItemLedgerEntry: Record "Item Ledger Entry"; AppliedQuantity: Decimal; var GlobalItemLedgEntry: Record "Item Ledger Entry"; var AverageTransfer: Boolean) @@ -6595,18 +6418,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCallFlushOperation(var ItemJnlLine2: Record "Item Journal Line"; var ShouldFlushOperation: Boolean); - begin - OnBeforeCallFlushOperation(ItemJnlLine2, ShouldFlushOperation); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCallFlushOperation(var ItemJnlLine: Record "Item Journal Line"; var ShouldFlushOperation: Boolean); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCheckSerialNo(ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean; var SkipSerialNoQtyValidation: Boolean) @@ -6623,18 +6434,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostFlushedConsump(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean); - begin - OnBeforePostFlushedConsump(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostFlushedConsump(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean); - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnBeforeInitValueEntry(var ValueEntry: Record "Value Entry"; var ValueEntryNo: Integer; var ItemJournalLine: Record "Item Journal Line") @@ -6686,31 +6485,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeProdOrderCompModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ItemJournalLine: Record "Item Journal Line") - begin - OnBeforeProdOrderCompModify(ProdOrderComponent, ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeProdOrderCompModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeProdOrderLineModify(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJournalLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - OnBeforeProdOrderLineModify(ProdOrderLine, ItemJournalLine, ItemLedgEntryNo); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeProdOrderLineModify(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJournalLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeRoundAmtValueEntry(var ValueEntry: Record "Value Entry"; Currency: Record Currency; Item: Record Item; var IsHandled: Boolean) @@ -6770,18 +6545,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; ReTrack: Boolean) - begin - OnBeforeUpdateProdOrderLine(ProdOrderLine, ItemJournalLine, ReTrack); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ItemJournalLine: Record "Item Journal Line"; ReTrack: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeUpdateUnitCost(var ValueEntry: Record "Value Entry"; var IsHandled: Boolean; ItemJournalLine: Record "Item Journal Line") @@ -6858,44 +6621,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReTrack: Boolean; var ItemJournalLine: Record "Item Journal Line") - begin - OnAfterUpdateProdOrderLine(ProdOrderLine, ReTrack, ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterUpdateProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReTrack: Boolean; var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterInsertConsumpEntry(var WarehouseJournalLine: Record "Warehouse Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; PostWhseJnlLine: Boolean; var ItemJnlLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - OnAfterInsertConsumpEntry(WarehouseJournalLine, ProdOrderComponent, QtyBase, PostWhseJnlLine, ItemJnlLine, ItemLedgEntryNo); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterInsertConsumpEntry(var WarehouseJournalLine: Record "Warehouse Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; QtyBase: Decimal; PostWhseJnlLine: Boolean; var ItemJnlLine: Record "Item Journal Line"; ItemLedgEntryNo: Integer) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnApplyCapNeedOnAfterSetFilters(var ProdOrderCapNeed: Record Microsoft.Manufacturing.Document."Prod. Order Capacity Need"; ItemJnlLine: Record "Item Journal Line"); - begin - OnApplyCapNeedOnAfterSetFilters(ProdOrderCapNeed, ItemJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnApplyCapNeedOnAfterSetFilters(var ProdOrderCapNeed: Record Microsoft.Manufacturing.Document."Prod. Order Capacity Need"; ItemJnlLine: Record "Item Journal Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnApplyItemLedgEntryOnAfterCalcAppliedQty(OldItemLedgEntry: Record "Item Ledger Entry"; ItemLedgEntry: Record "Item Ledger Entry"; var AppliedQty: Decimal) @@ -6937,44 +6664,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry: Record "Item Ledger Entry"; var IsHandled: Boolean) - begin - OnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry: Record "Item Ledger Entry"; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnFlushOperationOnAfterProdOrderCompSetFilters(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnFlushOperationOnAfterProdOrderCompSetFilters(ProdOrderComponent, OldItemJournalLine, ProdOrderRoutingLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnFlushOperationOnAfterProdOrderCompSetFilters(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnFlushOperationOnBeforeCheckRoutingLinkCode(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ItemJournalLine: Record "Item Journal Line"; LastOperation: Boolean) - begin - OnFlushOperationOnBeforeCheckRoutingLinkCode(ProductionOrder, ProdOrderLine, ProdOrderRoutingLine, ItemJournalLine, LastOperation); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnFlushOperationOnBeforeCheckRoutingLinkCode(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var ItemJournalLine: Record "Item Journal Line"; LastOperation: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnGetValuationDateOnAfterOldValueEntrySetFilters(var OldValueEntry: Record "Value Entry"; ValueEntry: Record "Value Entry"; OldItemLedgEntry: Record "Item Ledger Entry") @@ -7041,18 +6732,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnInsertConsumpEntryOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; PostWhseJnlLine: Boolean; var WarehouseJournalLine: Record "Warehouse Journal Line") - begin - OnInsertConsumpEntryOnBeforePostItem(ItemJournalLine, ProdOrderComponent, PostWhseJnlLine, WarehouseJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertConsumpEntryOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; PostWhseJnlLine: Boolean; var WarehouseJournalLine: Record "Warehouse Journal Line") - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnInsertOHValueEntryOnBeforeInsertValueEntry(var ValueEntry: Record "Value Entry"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean; var GlobalItemLedgEntry: Record "Item Ledger Entry"; var ValueEntryNo: Integer) @@ -7114,158 +6793,26 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnAfterCalcQtyToPost(ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ActOutputQtyBase: Decimal; var QtyToPost: Decimal; var OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var CompItem: Record Item) - begin - OnPostFlushedConsumpOnAfterCalcQtyToPost(ProductionOrder, ProdOrderLine, ProdOrderComponent, ActOutputQtyBase, QtyToPost, OldItemJournalLine, ProdOrderRoutingLine, CompItem); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnAfterCalcQtyToPost(ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ActOutputQtyBase: Decimal; var QtyToPost: Decimal; var OldItemJournalLine: Record "Item Journal Line"; var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; var CompItem: Record Item) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; var OldItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; CompItem: record Item) - begin - OnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(ItemJournalLine, OldItemJournalLine, ProdOrderLine, ProdOrderComponent, CompItem); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; var OldItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; CompItem: record Item) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var OutputQtyBase: Decimal) - begin - OnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, OutputQtyBase); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var OutputQtyBase: Decimal) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJournalLine, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJournalLine: Record "Item Journal Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumpOnBeforeSetupSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var TrackingSpecExists: Boolean) - begin - OnPostFlushedConsumpOnBeforeSetupSplitJnlLine(ItemJournalLine, ProdOrder, ProdOrderLine, ProdOrderComp, TempTrackingSpecification, TrackingSpecExists); - end; - - [Obsolete('Replaced by event OnPostFlushedConsumptionItemJnlLineOnBeforeSetupSplitJnlLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumpOnBeforeSetupSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var TrackingSpecExists: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostFlushedConsumptionItemJnlLineOnBeforeSetupSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var TrackingSpecExists: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - OnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJournalLine, ProdOrderLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostFlushedConsumptionOnAfterSetDimensionSetID(ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostFlushedConsumptionItemJnlLineOnAfterSetDimensionSetID(ItemJournalLine: Record "Item Journal Line") begin end; -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnAfterInsertEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostConsumptionOnAfterInsertEntry(ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnAfterInsertEntry(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnAfterFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostConsumptionOnAfterFindProdOrderComp(ProdOrderComp); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnAfterFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NewRemainingQuantity: Decimal; QtyToPost: Decimal) - begin - OnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComponent, NewRemainingQuantity, QtyToPost); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NewRemainingQuantity: Decimal; QtyToPost: Decimal) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeCheckOrderType(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnPostConsumptionOnBeforeCheckOrderType(ProdOrderComponent, ItemJournalLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeCheckOrderType(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeFindSetProdOrderComp(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line") - begin - OnPostConsumptionOnBeforeFindSetProdOrderComp(ProdOrderComponent, ItemJournalLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeFindSetProdOrderComp(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostItemOnAfterGetSKU(var ItemJnlLine: Record "Item Journal Line"; var SKUExists: Boolean; var IsHandled: Boolean) @@ -7282,122 +6829,14 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterInsertCapLedgEntry(ItemJournalLine: Record "Item Journal Line"; var SkipPost: Boolean) - begin - OnPostOutputOnAfterInsertCapLedgEntry(ItemJournalLine, SkipPost); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterInsertCapLedgEntry(ItemJournalLine: Record "Item Journal Line"; var SkipPost: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterInsertCostValueEntries(ItemJournalLine: Record "Item Journal Line"; var CapLedgEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; CalledFromAdjustment: Boolean; PostToGL: Boolean) - begin - OnPostOutputOnAfterInsertCostValueEntries(ItemJournalLine, CapLedgEntry, CalledFromAdjustment, PostToGL); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterInsertCostValueEntries(ItemJournalLine: Record "Item Journal Line"; var CapLedgEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; CalledFromAdjustment: Boolean; PostToGL: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterSetMfgUnitCost(var ItemJournalLine: Record "Item Journal Line"; var MfgUnitCost: Decimal; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - OnPostOutputOnAfterSetMfgUnitCost(ItemJournalLine, MfgUnitCost, ProdOrderLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterSetMfgUnitCost(var ItemJournalLine: Record "Item Journal Line"; var MfgUnitCost: Decimal; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterUpdateAmounts(var ItemJournalLine: Record "Item Journal Line") - begin - OnPostOutputOnAfterUpdateAmounts(ItemJournalLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterUpdateAmounts(var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var WhseJnlLine: Record "Warehouse Journal Line"; var GlobalItemLedgEntry: Record "Item Ledger Entry"); - begin - OnPostOutputOnAfterUpdateProdOrderLine(ItemJournalLine, WhseJnlLine, GlobalItemLedgEntry); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var WhseJnlLine: Record "Warehouse Journal Line"; var GlobalItemLedgEntry: Record "Item Ledger Entry"); - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnPostOutputOnBeforeUpdateProdOrderLine(ItemJournalLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeUpdateProdOrderLine(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnAfterCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - OnPostOutputOnAfterCreateWhseJnlLine(ItemJournalLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnAfterCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line"; var PostWhseJnlLine: Boolean) - begin - OnPostOutputOnBeforeCreateWhseJnlLine(ItemJournalLine, PostWhseJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line"; var PostWhseJnlLine: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - OnPostOutputOnBeforePostItem(ItemJournalLine, ProdOrderLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforePostItem(var ItemJournalLine: Record "Item Journal Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostSplitJnlLineOnBeforeSplitJnlLine(var ItemJournalLine: Record "Item Journal Line"; var ItemJournalLineToPost: Record "Item Journal Line"; var PostItemJournalLine: Boolean; DisableItemTracking: Boolean) @@ -7512,18 +6951,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterCalcCapQty(var ItemJnlLine: Record "Item Journal Line"; var CapQty: Decimal) - begin - OnAfterCalcCapQty(ItemJnlLine, CapQty); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterCalcCapQty(var ItemJnlLine: Record "Item Journal Line"; var CapQty: Decimal) - begin - end; -#endif /// /// Prepares provided item journal line for posting and copies it to the global ItemJnlLine record. @@ -8091,70 +7518,10 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnAfterCheckItemTrackingOfComp(TempHandlingSpecification: Record "Tracking Specification"; ItemJnlLine: Record "Item Journal Line") - begin - OnAfterCheckItemTrackingOfComp(TempHandlingSpecification, ItemJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterCheckItemTrackingOfComp(TempHandlingSpecification: Record "Tracking Specification"; ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeGetOutputProdOrder(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforeGetOutputProdOrder(ProdOrder, ItemJnlLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetOutputProdOrder(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeGetOutputProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforeGetOutputProdOrderLine(ProdOrderLine, ItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetOutputProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeGetProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; OrderNo: Code[20]; OrderLineNo: Integer; var IsHandled: Boolean) - begin - OnBeforeGetProdOrderLine(ProdOrderLine, OrderNo, OrderLineNo, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; OrderNo: Code[20]; OrderLineNo: Integer; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeGetProdOrderRoutingLine(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforeGetProdOrderRoutingLine(ProdOrderRoutingLine, OldItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetProdOrderRoutingLine(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeIsNotInternalWhseMovement(ItemJnlLine: Record "Item Journal Line"; var Result: Boolean; var IsHandled: Boolean) @@ -8176,44 +7543,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostOutput(var ItemJnlLine: Record "Item Journal Line") - begin - OnBeforePostOutput(ItemJnlLine); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostOutput(var ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforePostOutputUpdateProdOrderRtngLine(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - OnBeforePostOutputUpdateProdOrderRtngLine(ProdOrderRtngLine, ItemJnlLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostOutputUpdateProdOrderRtngLine(var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; ItemJnlLine: Record "Item Journal Line"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(var CapLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; ItemJnlLine: Record "Item Journal Line") - begin - OnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(CapLedgerEntry, ItemJnlLine); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(var CapLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCheckExpirationDateOnAfterCalcSumLot(var SumLot: Decimal; SignFactor: Integer; var TempTrackingSpecification: Record "Tracking Specification" temporary; var SkipNewExpirationDateCheck: Boolean) @@ -8415,44 +7746,8 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var TempHandlingSpecification: Record "Tracking Specification"; RemQtyToPost: Decimal; UseItemTrackingApplication: Boolean; LastLoop: Boolean; var IsHandled: Boolean) - begin - OnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(ProdOrderComp, ItemJnlLine, TempHandlingSpecification, RemQtyToPost, UseItemTrackingApplication, LastLoop, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var TempHandlingSpecification: Record "Tracking Specification"; RemQtyToPost: Decimal; UseItemTrackingApplication: Boolean; LastLoop: Boolean; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnBeforeCalcRemainingQuantity(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var NewRemainingQty: Decimal; var QtyToPost: Decimal; var IsHandled: Boolean; var RemQtyToPost: Decimal) - begin - OnPostConsumptionOnBeforeCalcRemainingQuantity(ProdOrderComp, ItemJnlLine, NewRemainingQty, QtyToPost, IsHandled, RemQtyToPost); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnBeforeCalcRemainingQuantity(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ItemJnlLine: Record "Item Journal Line"; var NewRemainingQty: Decimal; var QtyToPost: Decimal; var IsHandled: Boolean; var RemQtyToPost: Decimal) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(var ItemJnlLine: Record "Item Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(ItemJnlLine, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(var ItemJnlLine: Record "Item Journal Line"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnSetItemAdjmtPropertiesOnBeforeCheckModifyItem(var Item2: Record Item; var ModifyItem: Boolean) @@ -8534,18 +7829,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostOutputForProdOrder(var ItemJnlLine: Record "Item Journal Line"; var LastOperation: Boolean; var IsHandled: Boolean) - begin - OnBeforePostOutputForProdOrder(ItemJnlLine, LastOperation, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostOutputForProdOrder(var ItemJnlLine: Record "Item Journal Line"; var LastOperation: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostItemOnAfterCheckCostingMethodStandard(var Item: Record Item; var ItemJnlLine: Record "Item Journal Line") @@ -8642,36 +7925,12 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeReservationExists(ItemJnlLine: Record "Item Journal Line"; var Result: Boolean; var IsHandled: Boolean) - begin - OnBeforeReservationExists(ItemJnlLine, Result, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeReservationExists(ItemJnlLine: Record "Item Journal Line"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUndoQuantityPostingOnAfterCalcShouldInsertCorrValueEntry(OldItemLedgEntry: Record "Item Ledger Entry"; var ShouldInsertCorrValueEntries: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeGetMfgAmounts(var ItemJnlLine: Record "Item Journal Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean) - begin - OnPostOutputOnBeforeGetMfgAmounts(ItemJnlLine, ProdOrder, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputOnBeforeGetMfgAmounts(var ItemJnlLine: Record "Item Journal Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUpdateAvgCostAdjmtBufferOnAfterSetValueEntry(var ValueEntry: Record "Value Entry"; OldItemLedgEntry: Record "Item Ledger Entry") @@ -8703,18 +7962,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnCorrectOutputValuationDateOnBeforeValueEntryFindSet(var ValueEntry: Record "Value Entry") - begin - OnCorrectOutputValuationDateOnBeforeValueEntryFindSet(ValueEntry); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCorrectOutputValuationDateOnBeforeValueEntryFindSet(var ValueEntry: Record "Value Entry") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnApplyItemLedgEntryOnAfterTestFirstApplyItemLedgEntry(OldItemLedgerEntry: Record "Item Ledger Entry"; var ItemLedgerEntry: Record "Item Ledger Entry") @@ -8836,18 +8083,6 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputOnBeforeInsertCostValueEntries(var ItemJournalLine: Record "Item Journal Line"; var CapacityLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; var ValuedQty: Decimal; var DirCostAmt: Decimal; var IndirCostAmt: Decimal) - begin - OnPostOutputOnBeforeInsertCostValueEntries(ItemJournalLine, CapacityLedgerEntry, ValuedQty, DirCostAmt, IndirCostAmt); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnPostOutputOnBeforeInsertCostValueEntries(var ItemJournalLine: Record "Item Journal Line"; var CapacityLedgerEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; var ValuedQty: Decimal; var DirCostAmt: Decimal; var IndirCostAmt: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUpdateItemApplnEntryOnAfterFilterItemApplicationEntry(var ItemApplnEntry: Record "Item Application Entry") @@ -8864,31 +8099,7 @@ codeunit 22 "Item Jnl.-Post Line" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeOnApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var PostedSetupTime: Decimal; var PostedRunTime: Decimal; var IsHandled: Boolean) - begin - OnBeforeOnApplyCapNeed(ItemJnlLine, PostedSetupTime, PostedRunTime, IsHandled); - end; - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeOnApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var PostedSetupTime: Decimal; var PostedRunTime: Decimal; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputForProdOrderOnAfterApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var ValuedQty: Decimal) - begin - OnPostOutputForProdOrderOnAfterApplyCapNeed(ItemJnlLine, ValuedQty); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputForProdOrderOnAfterApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; var ValuedQty: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeReApply(ItemLedgerEntry: Record "Item Ledger Entry"; ApplyWith: Integer; var IsHandled: Boolean) diff --git a/src/Layers/ES/BaseApp/Local/Finance/ReceivablesPayables/InvoiceSplitPayment.Codeunit.al b/src/Layers/ES/BaseApp/Local/Finance/ReceivablesPayables/InvoiceSplitPayment.Codeunit.al index 4a97337c0b6..ccd3460fae9 100644 --- a/src/Layers/ES/BaseApp/Local/Finance/ReceivablesPayables/InvoiceSplitPayment.Codeunit.al +++ b/src/Layers/ES/BaseApp/Local/Finance/ReceivablesPayables/InvoiceSplitPayment.Codeunit.al @@ -672,26 +672,6 @@ codeunit 7000005 "Invoice-Split Payment" until PurchLine2.Next() = 0; end; -#if not CLEAN27 - [Obsolete('Moved to codeunit ServInvoiceSplitPayment', '27.0')] - procedure SplitServiceInv(var ServiceHeader: Record Microsoft.Service.Document."Service Header"; var CustLedgEntry: Record "Cust. Ledger Entry"; var Window: Dialog; SourceCode: Code[10]; GenJnlLineExtDocNo: Code[35]; GenJnlLineDocNo: Code[20]; VATAmount: Decimal) - var - ServInvoiceSplitPayment: Codeunit "Serv. Invoice-Split Payment"; - begin - ServInvoiceSplitPayment.SplitServiceInvoice(ServiceHeader, CustLedgEntry, Window, SourceCode, GenJnlLineExtDocNo, GenJnlLineDocNo, VATAmount); - end; -#endif - -#if not CLEAN27 - [Obsolete('Moved to codeunit ServInvoiceSplitPayment', '27.0')] - procedure FindCustVATSetupServ(var VATSetup: Record "VAT Posting Setup"; ServiceHeader2: Record Microsoft.Service.Document."Service Header") - var - ServInvoiceSplitPayment: Codeunit "Serv. Invoice-Split Payment"; - begin - ServInvoiceSplitPayment.FindCustVATSetupServ(VATSetup, ServiceHeader2, ErrorMessage, ExistsVATNoReal); - end; -#endif - procedure CalculateDate(DateFormulaText: Code[20]; DueDate: Date): Date var DateFormula: DateFormula; @@ -759,32 +739,6 @@ codeunit 7000005 "Invoice-Split Payment" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeSplitServInvCloseEntry(var GenJournalLine: Record "Gen. Journal Line"; ServiceHeader: Record Microsoft.Service.Document."Service Header") - begin - OnBeforeSplitServInvCloseEntry(GenJournalLine, ServiceHeader); - end; - - [Obsolete('Moved to codeunit ServInvoiceSplitPayment', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeSplitServInvCloseEntry(var GenJournalLine: Record "Gen. Journal Line"; ServiceHeader: Record Microsoft.Service.Document."Service Header") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeSplitServInvCreateBills(var GenJournalLine: Record "Gen. Journal Line"; ServiceHeader: Record Microsoft.Service.Document."Service Header") - begin - OnBeforeSplitServInvCreateBills(GenJournalLine, ServiceHeader); - end; - - [Obsolete('Moved to codeunit ServInvoiceSplitPayment', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeSplitServInvCreateBills(var GenJournalLine: Record "Gen. Journal Line"; ServiceHeader: Record Microsoft.Service.Document."Service Header") - begin - end; -#endif - [IntegrationEvent(false, false)] local procedure OnSplitPurchInvOnBeforeCheckPaymentMethod(var PurchHeader: Record "Purchase Header"; var PaymentMethod: Record "Payment Method"; var PaymentTerms: Record "Payment Terms"; var IsHandled: Boolean) begin @@ -805,19 +759,6 @@ codeunit 7000005 "Invoice-Split Payment" begin end; -#if not CLEAN27 - internal procedure RunOnSplitServiceInvOnCreateBillsOnBeforePostGenJnlLine(var GenJournalLine: Record "Gen. Journal Line"; ServiceHeader: Record Microsoft.Service.Document."Service Header") - begin - OnSplitServiceInvOnCreateBillsOnBeforePostGenJnlLine(GenJournalLine, ServiceHeader); - end; - - [Obsolete('Moved to codeunit ServInvoiceSplitPayment', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSplitServiceInvOnCreateBillsOnBeforePostGenJnlLine(var GenJournalLine: Record "Gen. Journal Line"; ServiceHeader: Record Microsoft.Service.Document."Service Header") - begin - end; -#endif - [IntegrationEvent(false, false)] local procedure OnBeforeSplitPurchInv(var PurchHeader: Record "Purchase Header"; var VendLedgEntry: Record "Vendor Ledger Entry"; var IsHandled: Boolean) begin diff --git a/src/Layers/ES/BaseApp/Local/Finance/VAT/Calculation/NoTaxableMgt.Codeunit.al b/src/Layers/ES/BaseApp/Local/Finance/VAT/Calculation/NoTaxableMgt.Codeunit.al index ecbb1f50e14..612cd32fa42 100644 --- a/src/Layers/ES/BaseApp/Local/Finance/VAT/Calculation/NoTaxableMgt.Codeunit.al +++ b/src/Layers/ES/BaseApp/Local/Finance/VAT/Calculation/NoTaxableMgt.Codeunit.al @@ -329,28 +329,6 @@ codeunit 10740 "No Taxable Mgt." exit(SalesCrMemoLine.FindSet()); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Serv. No Taxable Mgt.', '27.0')] - [Scope('OnPrem')] - procedure FindNoTaxableLinesServiceInvoice(var ServiceInvoiceLine: Record Microsoft.Service.History."Service Invoice Line"; CustomerNo: Code[20]; DocumentNo: Code[20]; PostingDate: Date): Boolean - var - ServNoTaxableMgt: Codeunit "Serv. No Taxable Mgt."; - begin - exit(ServNoTaxableMgt.FindNoTaxableLinesServiceInvoice(ServiceInvoiceLine, CustomerNo, DocumentNo, PostingDate)); - end; -#endif - -#if not CLEAN27 - [Obsolete('Moved to codeunit Serv. No Taxable Mgt.', '27.0')] - [Scope('OnPrem')] - procedure FindNoTaxableLinesServiceCrMemo(var ServiceCrMemoLine: Record Microsoft.Service.History."Service Cr.Memo Line"; CustomerNo: Code[20]; DocumentNo: Code[20]; PostingDate: Date): Boolean - var - ServNoTaxableMgt: Codeunit "Serv. No Taxable Mgt."; - begin - exit(ServNoTaxableMgt.FindNoTaxableLinesServiceCrMemo(ServiceCrMemoLine, CustomerNo, DocumentNo, PostingDate)); - end; -#endif - local procedure FindCustNoFromLedgEntryInSameTransNo(GenJournalLine: Record "Gen. Journal Line"; TransNo: Integer): Code[20] var CustLedgerEntry: Record "Cust. Ledger Entry"; diff --git a/src/Layers/ES/BaseApp/Local/Finance/VAT/Ledger/NoTaxableEntry.Table.al b/src/Layers/ES/BaseApp/Local/Finance/VAT/Ledger/NoTaxableEntry.Table.al index f9f6c79c0d2..606fd24afec 100644 --- a/src/Layers/ES/BaseApp/Local/Finance/VAT/Ledger/NoTaxableEntry.Table.al +++ b/src/Layers/ES/BaseApp/Local/Finance/VAT/Ledger/NoTaxableEntry.Table.al @@ -302,17 +302,6 @@ table 10740 "No Taxable Entry" OnAfterInitFromGenJnlLine(Rec, GenJournalLine); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Serv. No Taxable Management', '27.0')] - [Scope('OnPrem')] - procedure InitFromServiceDocument(ServiceHeader: Record Microsoft.Service.Document."Service Header"; PostedDocumentNo: Code[20]) - var - ServNoTaxableManagement: Codeunit "Serv. No Taxable Mgt."; - begin - ServNoTaxableManagement.InitFromServiceDocument(Rec, ServiceHeader, PostedDocumentNo); - end; -#endif - [Scope('OnPrem')] procedure InitFromVendorEntry(VendorLedgerEntry: Record "Vendor Ledger Entry"; CountryRegionCode: Code[10]; EU3PartyTrade: Boolean; VATRegistrationNo: Text[20]) begin @@ -444,19 +433,6 @@ table 10740 "No Taxable Entry" begin end; -#if not CLEAN27 - internal procedure RunOnAfterInitFromServiceDocument(var NoTaxableEntry: Record "No Taxable Entry"; ServiceHeader: Record Microsoft.Service.Document."Service Header") - begin - OnAfterInitFromServiceDocument(NoTaxableEntry, ServiceHeader); - end; - - [Obsolete('Moved to codeunit Serv. No Taxable Management', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterInitFromServiceDocument(var NoTaxableEntry: Record "No Taxable Entry"; ServiceHeader: Record Microsoft.Service.Document."Service Header") - begin - end; -#endif - [IntegrationEvent(false, false)] local procedure OnAfterInitFromVendorEntry(var NoTaxableEntry: Record "No Taxable Entry"; VendorLedgerEntry: Record "Vendor Ledger Entry") begin diff --git a/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIIJobUploadPendingDocs.Codeunit.al b/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIIJobUploadPendingDocs.Codeunit.al index 0bf31022959..c1c787f7d99 100644 --- a/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIIJobUploadPendingDocs.Codeunit.al +++ b/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIIJobUploadPendingDocs.Codeunit.al @@ -118,17 +118,6 @@ codeunit 10753 "SII Job Upload Pending Docs." SIIJobManagement.RenewJobQueueEntry(JobType::HandlePending); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Serv. SII Management', '27.0')] - [Scope('OnPrem')] - procedure OnAfterPostServiceDoc(var ServiceHeader: Record Microsoft.Service.Document."Service Header") - var - ServSIIManagement: Codeunit Microsoft.EServices.EDocument."Serv. SII Management"; - begin - ServSIIManagement.OnAfterPostServiceDoc(ServiceHeader); - end; -#endif - [Scope('OnPrem')] procedure OnAfterGLLinePost(GenJnlLine: Record "Gen. Journal Line") var @@ -360,19 +349,6 @@ codeunit 10753 "SII Job Upload Pending Docs." begin end; -#if not CLEAN27 - internal procedure RunOnBeforeOnAfterPostServiceDoc(var ServiceHeader: Record Microsoft.Service.Document."Service Header"; var IsHandled: Boolean) - begin - OnBeforeOnAfterPostServiceDoc(ServiceHeader, IsHandled); - end; - - [Obsolete('Moved to codeunit Serv. SII Management', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeOnAfterPostServiceDoc(var ServiceHeader: Record Microsoft.Service.Document."Service Header"; var IsHandled: Boolean) - begin - end; -#endif - [IntegrationEvent(false, false)] local procedure OnBeforeOnAfterGLLinesPost(var GenJnlLine: Record "Gen. Journal Line") begin diff --git a/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIIManagement.Codeunit.al b/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIIManagement.Codeunit.al index 165302fc530..459966c13a5 100644 --- a/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIIManagement.Codeunit.al +++ b/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIIManagement.Codeunit.al @@ -844,16 +844,6 @@ codeunit 10756 "SII Management" SalesInvoiceHeader."Invoice Type"::"R5 Corrected Invoice in Simplified Invoices".AsInteger()]); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Serv. SII Management', '27.0')] - procedure IsAllowedServInvType(InvType: Option): Boolean - var - ServSIIManagement: Codeunit Microsoft.EServices.EDocument."Serv. SII Management"; - begin - exit(ServSIIManagement.IsAllowedServInvType(InvType)); - end; -#endif - procedure Run347DeclarationToGenerateCollectionsInCash() var Make347Declaration: Report "Make 347 Declaration"; @@ -868,16 +858,6 @@ codeunit 10756 "SII Management" GetSalesSpecialSchemeCode(SalesHeader."Bill-to Customer No.", SalesHeader."VAT Country/Region Code"); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Serv. SII Management', '27.0')] - procedure UpdateSIIInfoInServiceDoc(var ServiceHeader: Record Microsoft.Service.Document."Service Header") - var - ServSIIManagement: Codeunit Microsoft.EServices.EDocument."Serv. SII Management"; - begin - ServSIIManagement.UpdateSIIInfoInServiceDoc(ServiceHeader); - end; -#endif - procedure GetSalesSpecialSchemeCode(BillToCustomerNo: Code[20]; VATCountryRegionCode: Code[10]): Enum "SII Sales Special Scheme Code" var GeneralLedgerSetup: Record "General Ledger Setup"; diff --git a/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIISchemeCodeMgt.Codeunit.al b/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIISchemeCodeMgt.Codeunit.al index 6c674822bd4..84c2ff3ea3e 100644 --- a/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIISchemeCodeMgt.Codeunit.al +++ b/src/Layers/ES/BaseApp/Local/SII/EServices/EDocument/SIISchemeCodeMgt.Codeunit.al @@ -226,16 +226,6 @@ codeunit 10758 "SII Scheme Code Mgt." until SalesLine.Next() = 0; end; -#if not CLEAN27 - [Obsolete('moved to codeunit Serv. SII Management', '27.0')] - procedure UpdateServiceSpecialSchemeCodeInSalesHeader(ServiceHeader: Record Microsoft.Service.Document."Service Header"; xServiceHeader: Record Microsoft.Service.Document."Service Header") - var - ServSIIManagement: Codeunit "Serv. SII Management"; - begin - ServSIImanagement.UpdateServiceSpecialSchemeCodeInSalesHeader(ServiceHeader, xServiceHeader); - end; -#endif - procedure UpdateSalesSpecialSchemeCodeInSalesLine(var SalesLine: Record "Sales Line") var VATPostingSetup: Record "VAT Posting Setup"; @@ -266,16 +256,6 @@ codeunit 10758 "SII Scheme Code Mgt." "SII Purch. Special Scheme Code".FromInteger(VATPostingSetup."Purch. Special Scheme Code".AsInteger() - 1); end; -#if not CLEAN27 - [Obsolete('moved to codeunit Serv. SII Management', '27.0')] - procedure UpdatePurchSpecialSchemeCodeInServiceine(var ServiceLine: Record Microsoft.Service.Document."Service Line") - var - ServSIIManagement: Codeunit "Serv. SII Management"; - begin - ServSIIManagement.UpdatePurchSpecialSchemeCodeInServiceine(ServiceLine); - end; -#endif - local procedure GetSpecialRegimeDocTypeFromSIIDocUploadState(SIIDocUploadState: Record "SII Doc. Upload State"): Integer var SIISalesDocumentSchemeCode: Record "SII Sales Document Scheme Code"; diff --git a/src/Layers/ES/BaseApp/Local/Service/History/PostedServInvoiceUpdate.Page.al b/src/Layers/ES/BaseApp/Local/Service/History/PostedServInvoiceUpdate.Page.al deleted file mode 100644 index d6442bb58b6..00000000000 --- a/src/Layers/ES/BaseApp/Local/Service/History/PostedServInvoiceUpdate.Page.al +++ /dev/null @@ -1,222 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Service.History; - -using Microsoft.EServices.EDocument; - -page 10768 "Posted Serv. Invoice - Update" -{ - Caption = 'Posted Service Invoice - Update'; - DeleteAllowed = false; - Editable = true; - InsertAllowed = false; - ModifyAllowed = true; - PageType = Card; - ShowFilter = false; - SourceTable = "Service Invoice Header"; - SourceTableTemporary = true; - ObsoleteReason = 'Replaced by W1 page Posted Service Inv. Update'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(content) - { - group(General) - { - Caption = 'General'; - field("No."; Rec."No.") - { - ApplicationArea = Service; - Editable = false; - ToolTip = 'Specifies the posted invoice number.'; - } - field(Name; Rec.Name) - { - ApplicationArea = Service; - Caption = 'Customer'; - Editable = false; - ToolTip = 'Specifies the name of the customer on the service invoice.'; - } - field("Posting Date"; Rec."Posting Date") - { - ApplicationArea = Service; - Editable = false; - ToolTip = 'Specifies the date when the invoice was posted.'; - } - field("Country/Region Code"; Rec."Country/Region Code") - { - ApplicationArea = Service; - Editable = true; - ToolTip = 'Specifies the country/region of the address.'; - } - } - group(Invoicing) - { - Caption = 'Invoicing'; - field("Bill-to Country/Region Code"; Rec."Bill-to Country/Region Code") - { - ApplicationArea = Service; - Editable = true; - ToolTip = 'Specifies the country/region code of the customer''s billing address.'; - } - field(OperationDescription; OperationDescription) - { - ApplicationArea = Basic, Suite; - Caption = 'Operation Description'; - Editable = true; - MultiLine = true; - ToolTip = 'Specifies the Operation Description.'; - - trigger OnValidate() - var - SIIManagement: Codeunit "SII Management"; - begin - SIIManagement.SplitOperationDescription(OperationDescription, Rec."Operation Description", Rec."Operation Description 2"); - Rec.Validate("Operation Description"); - Rec.Validate("Operation Description 2"); - end; - } - field("Special Scheme Code"; Rec."Special Scheme Code") - { - ApplicationArea = Basic, Suite; - Editable = true; - ToolTip = 'Specifies the Special Scheme Code.'; - } - field("Invoice Type"; Rec."Invoice Type") - { - ApplicationArea = Basic, Suite; - Editable = true; - ToolTip = 'Specifies the Invoice Type.'; - - trigger OnValidate() - begin - SIIFirstSummaryDocNo := ''; - SIILastSummaryDocNo := ''; - end; - } - field("ID Type"; Rec."ID Type") - { - ApplicationArea = Basic, Suite; - Editable = true; - ToolTip = 'Specifies the ID Type.'; - } - field("Succeeded Company Name"; Rec."Succeeded Company Name") - { - ApplicationArea = Basic, Suite; - Editable = true; - ToolTip = 'Specifies the name of the company successor in connection with corporate restructuring.'; - } - field("Succeeded VAT Registration No."; Rec."Succeeded VAT Registration No.") - { - ApplicationArea = Basic, Suite; - Editable = true; - ToolTip = 'Specifies the VAT registration number of the company successor in connection with corporate restructuring.'; - } - field("Issued By Third Party"; Rec."Issued By Third Party") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies that the invoice was issued by a third party.'; - } - field("SII First Summary Doc. No."; SIIFirstSummaryDocNo) - { - Caption = 'First Summary Doc. No.'; - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the first number in the series of the summary entry. This field applies to F4-type invoices only.'; - trigger OnValidate() - begin - Rec.SetSIIFirstSummaryDocNo(SIIFirstSummaryDocNo); - end; - } - field("SII Last Summary Doc. No."; SIILastSummaryDocNo) - { - Caption = 'Last Summary Doc. No.'; - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the last number in the series of the summary entry. This field applies to F4-type invoices only.'; - trigger OnValidate() - begin - Rec.SetSIILastSummaryDocNo(SIILastSummaryDocNo); - end; - } - } - group(Shipping) - { - Caption = 'Shipping'; - field("Ship-to Country/Region Code"; Rec."Ship-to Country/Region Code") - { - ApplicationArea = Service; - Editable = true; - ToolTip = 'Specifies the country/region code of the address that the items are shipped to.'; - } - } - } - } - - actions - { - } - - trigger OnOpenPage() - var - SIIManagement: Codeunit "SII Management"; - begin - xServiceInvoiceHeader := Rec; - SIIManagement.CombineOperationDescription(Rec."Operation Description", Rec."Operation Description 2", OperationDescription); - end; - - trigger OnQueryClosePage(CloseAction: Action): Boolean - begin - if CloseAction = ACTION::LookupOK then - if RecordChanged() then - CODEUNIT.Run(CODEUNIT::"Service Invoice Header - Edit", Rec); - end; - - trigger OnAfterGetRecord() - begin - SIIFirstSummaryDocNo := CopyStr(Rec.GetSIIFirstSummaryDocNo(), 1, 35); - SIILastSummaryDocNo := CopyStr(Rec.GetSIILastSummaryDocNo(), 1, 35); - end; - - var - xServiceInvoiceHeader: Record "Service Invoice Header"; - OperationDescription: Text[500]; - SIIFirstSummaryDocNo: Text[35]; - SIILastSummaryDocNo: Text[35]; - - local procedure RecordChanged() RecordIsChanged: Boolean - begin - RecordIsChanged := - (Rec."Country/Region Code" <> xServiceInvoiceHeader."Country/Region Code") or - (Rec."Bill-to Country/Region Code" <> xServiceInvoiceHeader."Bill-to Country/Region Code") or - (Rec."Ship-to Country/Region Code" <> xServiceInvoiceHeader."Ship-to Country/Region Code") or - (Rec."Operation Description" <> xServiceInvoiceHeader."Operation Description") or - (Rec."Operation Description 2" <> xServiceInvoiceHeader."Operation Description 2") or - (Rec."Special Scheme Code" <> xServiceInvoiceHeader."Special Scheme Code") or - (Rec."Invoice Type" <> xServiceInvoiceHeader."Invoice Type") or - (Rec."ID Type" <> xServiceInvoiceHeader."ID Type") or - (Rec."Succeeded Company Name" <> xServiceInvoiceHeader."Succeeded Company Name") or - (Rec."Succeeded VAT Registration No." <> xServiceInvoiceHeader."Succeeded VAT Registration No.") or - (Rec."Issued By Third Party" <> xServiceInvoiceHeader."Issued By Third Party") or - (Rec.GetSIIFirstSummaryDocNo() <> xServiceInvoiceHeader.GetSIIFirstSummaryDocNo()) or - (Rec.GetSIILastSummaryDocNo() <> xServiceInvoiceHeader.GetSIILastSummaryDocNo()); - - OnAfterRecordIsChanged(Rec, xServiceInvoiceHeader, RecordIsChanged); - end; - - [Scope('OnPrem')] - procedure SetRec(ServiceInvoiceHeader: Record "Service Invoice Header") - begin - Rec := ServiceInvoiceHeader; - Rec.Insert(); - end; - - [IntegrationEvent(false, false)] - local procedure OnAfterRecordIsChanged(var ServiceInvoiceHeader: Record "Service Invoice Header"; xServiceInvoiceHeader: Record "Service Invoice Header"; var RecordIsChanged: Boolean) - begin - end; -} -#endif diff --git a/src/Layers/ES/BaseApp/Local/Service/History/ServiceInvoiceHeaderEdit.Codeunit.al b/src/Layers/ES/BaseApp/Local/Service/History/ServiceInvoiceHeaderEdit.Codeunit.al deleted file mode 100644 index 64522c205c7..00000000000 --- a/src/Layers/ES/BaseApp/Local/Service/History/ServiceInvoiceHeaderEdit.Codeunit.al +++ /dev/null @@ -1,83 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Service.History; - -using Microsoft.EServices.EDocument; - -codeunit 10768 "Service Invoice Header - Edit" -{ - Permissions = TableData "Service Invoice Header" = rm; - TableNo = "Service Invoice Header"; - ObsoleteReason = 'Replaced by W1 codeunit Service Inv. Header - Edit'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnRun() - var - ServiceInvoiceHeader: Record "Service Invoice Header"; - begin - ServiceInvoiceHeader := Rec; - ServiceInvoiceHeader.LockTable(); - ServiceInvoiceHeader.Find(); - ServiceInvoiceHeader."Country/Region Code" := Rec."Country/Region Code"; - ServiceInvoiceHeader."Bill-to Country/Region Code" := Rec."Bill-to Country/Region Code"; - ServiceInvoiceHeader."Ship-to Country/Region Code" := Rec."Ship-to Country/Region Code"; - - ServiceInvoiceHeader."Operation Description" := Rec."Operation Description"; - ServiceInvoiceHeader."Operation Description 2" := Rec."Operation Description 2"; - ServiceInvoiceHeader."Special Scheme Code" := Rec."Special Scheme Code"; - ServiceInvoiceHeader."Invoice Type" := Rec."Invoice Type"; - ServiceInvoiceHeader."ID Type" := Rec."ID Type"; - ServiceInvoiceHeader."Succeeded Company Name" := Rec."Succeeded Company Name"; - ServiceInvoiceHeader."Succeeded VAT Registration No." := Rec."Succeeded VAT Registration No."; - ServiceInvoiceHeader."Issued By Third Party" := Rec."Issued By Third Party"; - ServiceInvoiceHeader.SetSIIFirstSummaryDocNo(Rec.GetSIIFirstSummaryDocNo()); - ServiceInvoiceHeader.SetSIILastSummaryDocNo(Rec.GetSIILastSummaryDocNo()); - - OnRunOnBeforeServiceInvoiceHeaderModify(ServiceInvoiceHeader, Rec); - ServiceInvoiceHeader.TestField("No.", Rec."No."); - ServiceInvoiceHeader.Modify(); - Rec := ServiceInvoiceHeader; - UpdateSIIDocUploadState(Rec); - end; - - local procedure UpdateSIIDocUploadState(ServiceInvoiceHeader: Record "Service Invoice Header") - var - xSIIDocUploadState: Record "SII Doc. Upload State"; - SIIDocUploadState: Record "SII Doc. Upload State"; - SIIManagement: Codeunit "SII Management"; - SIISchemeCodeMgt: Codeunit "SII Scheme Code Mgt."; - begin - if not SIIManagement.IsSIISetupEnabled() then - exit; - - if not SIIDocUploadState.GetSIIDocUploadStateByDocument( - SIIDocUploadState."Document Source"::"Customer Ledger".AsInteger(), - SIIDocUploadState."Document Type"::Invoice.AsInteger(), - ServiceInvoiceHeader."Posting Date", - ServiceInvoiceHeader."No.") - then - exit; - - xSIIDocUploadState := SIIDocUploadState; - SIIDocUploadState.AssignSalesInvoiceType(ServiceInvoiceHeader."Invoice Type"); - SIIDocUploadState.AssignSalesSchemeCode(ServiceInvoiceHeader."Special Scheme Code"); - SIISchemeCodeMgt.ValidateServiceSpecialRegimeCodeInSIIDocUploadState(xSIIDocUploadState, SIIDocUploadState); - SIIDocUploadState.IDType := ServiceInvoiceHeader."ID Type"; - SIIDocUploadState."Succeeded Company Name" := ServiceInvoiceHeader."Succeeded Company Name"; - SIIDocUploadState."Succeeded VAT Registration No." := ServiceInvoiceHeader."Succeeded VAT Registration No."; - SIIDocUploadState."Issued By Third Party" := ServiceInvoiceHeader."Issued By Third Party"; - SIIDocUploadState."First Summary Doc. No." := CopyStr(ServiceInvoiceHeader.GetSIIFirstSummaryDocNo(), 1, 35); - SIIDocUploadState."Last Summary Doc. No." := CopyStr(ServiceInvoiceHeader.GetSIILastSummaryDocNo(), 1, 35); - SIIDocUploadState.Modify(); - end; - - [IntegrationEvent(false, false)] - local procedure OnRunOnBeforeServiceInvoiceHeaderModify(var ServiceInvoiceHeader: Record "Service Invoice Header"; FromServiceInvoiceHeader: Record "Service Invoice Header") - begin - end; -} -#endif diff --git a/src/Layers/ES/BaseApp/Purchases/Payables/ApplyVendorEntries.Page.al b/src/Layers/ES/BaseApp/Purchases/Payables/ApplyVendorEntries.Page.al index 74aea98034e..eafde2b4d73 100644 --- a/src/Layers/ES/BaseApp/Purchases/Payables/ApplyVendorEntries.Page.al +++ b/src/Layers/ES/BaseApp/Purchases/Payables/ApplyVendorEntries.Page.al @@ -1306,7 +1306,7 @@ page 233 "Apply Vendor Entries" if IsHandled then exit; - if not AppliedVendLedgEntry.FindSet(false, false) then + if not AppliedVendLedgEntry.FindSet() then exit; repeat diff --git a/src/Layers/ES/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/ES/BaseApp/Purchases/Posting/PurchPost.Codeunit.al index d04a3c5d9e6..647a687c469 100644 --- a/src/Layers/ES/BaseApp/Purchases/Posting/PurchPost.Codeunit.al +++ b/src/Layers/ES/BaseApp/Purchases/Posting/PurchPost.Codeunit.al @@ -9363,18 +9363,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader2: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - OnAfterPostItemJnlLineCopyProdOrder(ItemJnlLine, PurchLine, PurchRcptHeader2, QtyToBeReceived, CommitIsSupressed, QtyToBeInvoiced); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterPostItemJnlLineItemCharges(PurchHeader: Record "Purchase Header"; PurchLine: Record "Purchase Line") @@ -9911,18 +9899,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - OnBeforePostItemJnlLineCopyProdOrder(PurchLine, ItemJnlLine, QtyToBeReceived, QtyToBeInvoiced, CommitIsSupressed, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnBeforePostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; PreviewMode: Boolean; CommitIsSupressed: Boolean; var HideProgressWindow: Boolean; var ItemJnlPostLine: Codeunit "Item Jnl.-Post Line"; var IsHandled: Boolean) @@ -11456,19 +11432,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]) - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnInsertPostedHeadersOnAfterInvoice(var PurchaseHeader: Record "Purchase Header"; var GenJournalLine: Record "Gen. Journal Line"; var GenJnlLineDocType: Enum "Gen. Journal Document Type"; var GenJnlLineDocNo: Code[20]; var GenJnlLineExtDocNo: Code[35]; var IsHandled: Boolean) begin diff --git a/src/Layers/ES/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al b/src/Layers/ES/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al index a3031a655d5..82711e0b46b 100644 --- a/src/Layers/ES/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al +++ b/src/Layers/ES/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al @@ -72,16 +72,6 @@ page 460 "Purchases & Payables Setup" { ApplicationArea = Basic, Suite; } -#if not CLEAN27 - field("Create Item from Item No."; Rec."Create Item from Item No.") - { - ApplicationArea = Basic, Suite; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("Copy Vendor Name to Entries"; Rec."Copy Vendor Name to Entries") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/ES/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al b/src/Layers/ES/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al index 49a43b28ae2..dd2fcd6e0b4 100644 --- a/src/Layers/ES/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al +++ b/src/Layers/ES/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al @@ -344,13 +344,8 @@ table 312 "Purchases & Payables Setup" Caption = 'Create Item from Item No.'; ToolTip = 'Specifies if the system will suggest to create a new item when no item matches the number that you enter in the No. Field on purchase lines.'; ObsoleteReason = 'Discontinued function'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '29.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif field(58; "Copy Vendor Name to Entries"; Boolean) diff --git a/src/Layers/ES/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/ES/BaseApp/Purchases/Vendor/Vendor.Table.al index 4260c11f2ed..14792ea3228 100644 --- a/src/Layers/ES/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/ES/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -934,13 +934,7 @@ table 23 Vendor MailManagement.CheckValidEmailAddresses("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/ES/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al b/src/Layers/ES/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al index ec1520c721d..7089f219b2b 100644 --- a/src/Layers/ES/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al +++ b/src/Layers/ES/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al @@ -200,13 +200,7 @@ table 288 "Vendor Bank Account" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/ES/BaseApp/Purchases/Vendor/VendorTempl.Table.al b/src/Layers/ES/BaseApp/Purchases/Vendor/VendorTempl.Table.al index c4dc2111432..31f2628a128 100644 --- a/src/Layers/ES/BaseApp/Purchases/Vendor/VendorTempl.Table.al +++ b/src/Layers/ES/BaseApp/Purchases/Vendor/VendorTempl.Table.al @@ -311,13 +311,7 @@ table 1383 "Vendor Templ." ToolTip = 'Specifies the vendor''s email address.'; ExtendedDatatype = EMail; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/ES/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/ES/BaseApp/Sales/Customer/Customer.Table.al index 0bb1bc43c77..79f3990146c 100644 --- a/src/Layers/ES/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Customer/Customer.Table.al @@ -593,13 +593,8 @@ table 18 Customer { Caption = 'Invoice Copies'; ObsoleteReason = 'This field is not used consequently and hence does not work as expected. It should be retired.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } #endif /// @@ -1328,13 +1323,7 @@ table 18 Customer /// /// Specifies the customer's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; OptimizeForTextSearch = true; diff --git a/src/Layers/ES/BaseApp/Sales/Customer/CustomerBankAccount.Table.al b/src/Layers/ES/BaseApp/Sales/Customer/CustomerBankAccount.Table.al index 328cefe1531..7eec7fb06b7 100644 --- a/src/Layers/ES/BaseApp/Sales/Customer/CustomerBankAccount.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Customer/CustomerBankAccount.Table.al @@ -263,13 +263,7 @@ table 287 "Customer Bank Account" /// /// Specifies the bank's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; diff --git a/src/Layers/ES/BaseApp/Sales/Customer/CustomerStatistics.Page.al b/src/Layers/ES/BaseApp/Sales/Customer/CustomerStatistics.Page.al index 4ad7fa9c7a6..7ab073e5e6f 100644 --- a/src/Layers/ES/BaseApp/Sales/Customer/CustomerStatistics.Page.al +++ b/src/Layers/ES/BaseApp/Sales/Customer/CustomerStatistics.Page.al @@ -821,18 +821,6 @@ page 151 "Customer Statistics" ToolTip = 'Specifies the number of distinct items sold to the customer.'; } } -#if not CLEAN27 -#pragma warning disable AA0218, AA0225, AA0189 - field(Placeholder2; Text001) - { - ApplicationArea = None; - Visible = false; - ObsoleteState = Pending; - ObsoleteReason = 'Replaced with CustSinceDate.'; - ObsoleteTag = '27.0'; - } -#pragma warning restore AA0218, AA0225, AA0189 -#endif } } group("Receivable Bills") diff --git a/src/Layers/ES/BaseApp/Sales/Customer/CustomerTempl.Table.al b/src/Layers/ES/BaseApp/Sales/Customer/CustomerTempl.Table.al index d497120634f..483ad63bae8 100644 --- a/src/Layers/ES/BaseApp/Sales/Customer/CustomerTempl.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Customer/CustomerTempl.Table.al @@ -533,13 +533,7 @@ table 1381 "Customer Templ." /// /// Specifies the default website URL for customers created from this template. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; @@ -910,4 +904,4 @@ table 1381 "Customer Templ." local procedure OnCopyTemplateOnBeforeModify(SourceCustomerTempl: Record "Customer Templ."; SavedCustomerTempl: Record "Customer Templ."; var CustomerTempl: Record "Customer Templ.") begin end; -} +} \ No newline at end of file diff --git a/src/Layers/ES/BaseApp/Sales/Document/SalesHeader.Table.al b/src/Layers/ES/BaseApp/Sales/Document/SalesHeader.Table.al index 42616b52ec2..1722348e298 100644 --- a/src/Layers/ES/BaseApp/Sales/Document/SalesHeader.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Document/SalesHeader.Table.al @@ -2138,13 +2138,7 @@ table 36 "Sales Header" /// /// Specifies the package tracking number from the shipping agent. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -13051,20 +13045,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before validating the bill-to name. - /// - /// The sales header record being validated. - /// The customer record. - /// Set to true to skip the default validation logic. - /// The previous version of the sales header record. - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateBillToName(var SalesHeader: Record "Sales Header"; var Customer: Record Customer; var IsHandled: Boolean; xSalesHeader: Record "Sales Header") - begin - end; -#endif /// /// Raised before validating tax liable when validating the ship-to code. /// @@ -14020,19 +14000,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before checking if the document is not fully cancelled. - /// - /// The sales credit memo header record. - /// The result indicating whether the document is not fully cancelled. - /// Set to true to skip the default check logic. - [Obsolete('Removed Not used anymore.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeIsNotFullyCancelled(var SalesCrMemoHeader: Record "Sales Cr.Memo Header"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif /// /// Raised after the credit limit check. @@ -14097,17 +14064,6 @@ table 36 "Sales Header" end; -#if not CLEAN27 - /// - /// Raised after setting sales line filters when calculating outstanding quantity base. - /// - /// The sales line record with filters applied. - [Obsolete('Not used anymore due to new implementation that uses Query. Replaced by OnBeforeCalculateReservableOutstandingQuantityBase.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcOutstandingQuantityBaseOnAfterSalesLineSetFilters(var SalesLine: Record "Sales Line") - begin - end; -#endif /// /// Raised before calculating the reservable outstanding quantity base. @@ -14200,4 +14156,4 @@ table 36 "Sales Header" local procedure OnBeforeResponsibilityCenterValidate(var SalesHeader: Record "Sales Header"; xSalesHeader: Record "Sales Header"; var IsHandled: Boolean) begin end; -} +} \ No newline at end of file diff --git a/src/Layers/ES/BaseApp/Sales/History/SalesCrMemoHeader.Table.al b/src/Layers/ES/BaseApp/Sales/History/SalesCrMemoHeader.Table.al index eab81cd250e..5b4975dbcdb 100644 --- a/src/Layers/ES/BaseApp/Sales/History/SalesCrMemoHeader.Table.al +++ b/src/Layers/ES/BaseApp/Sales/History/SalesCrMemoHeader.Table.al @@ -746,13 +746,7 @@ table 114 "Sales Cr.Memo Header" /// /// Specifies the tracking number for the shipped package. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -1693,4 +1687,4 @@ table 114 "Sales Cr.Memo Header" local procedure OnBeforeCheckNoPrinted(var SalesCrMemoHeader: Record "Sales Cr.Memo Header"; var IsHandled: Boolean) begin end; -} +} \ No newline at end of file diff --git a/src/Layers/ES/BaseApp/Sales/History/SalesInvoiceHeader.Table.al b/src/Layers/ES/BaseApp/Sales/History/SalesInvoiceHeader.Table.al index 069faa4d8fa..b8794060c51 100644 --- a/src/Layers/ES/BaseApp/Sales/History/SalesInvoiceHeader.Table.al +++ b/src/Layers/ES/BaseApp/Sales/History/SalesInvoiceHeader.Table.al @@ -772,13 +772,7 @@ table 112 "Sales Invoice Header" /// /// Specifies the tracking number for tracking shipped packages. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -2113,4 +2107,4 @@ table 112 "Sales Invoice Header" local procedure OnBeforeGetWorkDescription(var SalesInvoiceHeader: Record "Sales Invoice Header") begin end; -} +} \ No newline at end of file diff --git a/src/Layers/ES/BaseApp/Sales/History/SalesShipmentHeader.Table.al b/src/Layers/ES/BaseApp/Sales/History/SalesShipmentHeader.Table.al index 03a709d89b7..3c7cc65946e 100644 --- a/src/Layers/ES/BaseApp/Sales/History/SalesShipmentHeader.Table.al +++ b/src/Layers/ES/BaseApp/Sales/History/SalesShipmentHeader.Table.al @@ -730,13 +730,7 @@ table 110 "Sales Shipment Header" /// /// Specifies the tracking number for tracking shipped packages. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/ES/BaseApp/Sales/Posting/SalesPost.Codeunit.al b/src/Layers/ES/BaseApp/Sales/Posting/SalesPost.Codeunit.al index 8bd1d63e528..c0168f39aaf 100644 --- a/src/Layers/ES/BaseApp/Sales/Posting/SalesPost.Codeunit.al +++ b/src/Layers/ES/BaseApp/Sales/Posting/SalesPost.Codeunit.al @@ -13581,13 +13581,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetAmountsForDeferral(SalesLine: Record "Sales Line"; var AmtToDefer: Decimal; var AmtToDeferACY: Decimal; var DeferralAccount: Code[20]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostJobContractLineBeforeTestFields(var SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; var IsHandled: Boolean) begin @@ -13793,19 +13786,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]; var SalesHeader: Record "Sales Header") - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostInvoiceOnAfterPostLines(var SalesHeader: Record "Sales Header"; SrcCode: Code[10]; GenJnlLineDocType: Enum "Gen. Journal Document Type"; GenJnlLineDocNo: Code[20]; GenJnlLineExtDocNo: Code[35]; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line") begin diff --git a/src/Layers/ES/BaseApp/Sales/Pricing/CustInvoiceDisc.Table.al b/src/Layers/ES/BaseApp/Sales/Pricing/CustInvoiceDisc.Table.al index fed45c88ffa..9b0db1b15a9 100644 --- a/src/Layers/ES/BaseApp/Sales/Pricing/CustInvoiceDisc.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Pricing/CustInvoiceDisc.Table.al @@ -83,21 +83,6 @@ table 19 "Cust. Invoice Disc." { } -#if not CLEAN27 - [Obsolete('Replaced by W1 procedure GetRecord()', '27.0')] - /// - /// Gets the customer invoice discount record based on the specified criteria. - /// - /// The customer invoice discount code. - /// The currency code. - /// The date for currency conversion. - /// The base amount to find the applicable discount. - procedure GetRec(NewCode: Code[20]; CurrencyCode: Code[10]; CurrencyDate: Date; BaseAmount: Decimal; var CustInvDiscFound: Boolean) - begin - CustInvDiscFound := GetRecord(NewCode, CurrencyCode, CurrencyDate, BaseAmount); - end; -#endif - /// /// Gets the customer invoice discount record based on the specified criteria, handling currency conversion if needed. /// diff --git a/src/Layers/ES/BaseApp/Sales/Receivables/ApplyCustomerEntries.Page.al b/src/Layers/ES/BaseApp/Sales/Receivables/ApplyCustomerEntries.Page.al index bbf5af8391e..b20cdb1d763 100644 --- a/src/Layers/ES/BaseApp/Sales/Receivables/ApplyCustomerEntries.Page.al +++ b/src/Layers/ES/BaseApp/Sales/Receivables/ApplyCustomerEntries.Page.al @@ -1360,7 +1360,7 @@ page 232 "Apply Customer Entries" if IsHandled then exit; - if not AppliedCustLedgEntry.FindSet(false, false) then + if not AppliedCustLedgEntry.FindSet() then exit; repeat diff --git a/src/Layers/ES/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al b/src/Layers/ES/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al index 9e852eb8dc9..575d76714ba 100644 --- a/src/Layers/ES/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Receivables/CustLedgerEntry.Table.al @@ -1475,37 +1475,6 @@ table 21 "Cust. Ledger Entry" exit(''); end; -#if not CLEAN27 - [Obsolete('Replaced by W1 version of procedure', '27.0')] - procedure SetApplyToFilters(CustomerNo: Code[20]; ApplyDocType: Option; ApplyDocNo: Code[20]; ApplyBillNo: Code[20]; ApplyAmount: Decimal) - begin - SetCurrentKey("Customer No.", Open, Positive, "Due Date"); - SetRange("Customer No.", CustomerNo); - SetRange(Open, true); - SetFilter("Document Situation", '<>%1', "Document Situation"::"Posted BG/PO"); - if ApplyDocNo <> '' then begin - SetRange("Document Type", ApplyDocType); - SetRange("Document No.", ApplyDocNo); - if ApplyBillNo <> '' then - SetRange("Bill No.", ApplyBillNo); - if FindFirst() then; - SetRange("Document Type"); - SetRange("Document No."); - SetRange("Bill No."); - end else - if ApplyDocType <> 0 then begin - SetRange("Document Type", ApplyDocType); - if FindFirst() then; - SetRange("Document Type"); - end else - if ApplyAmount <> 0 then begin - SetRange(Positive, ApplyAmount < 0); - if FindFirst() then; - SetRange(Positive); - end; - end; -#endif - /// /// Sets filters on the record to show entries that can be applied based on the specified criteria. /// @@ -1539,15 +1508,6 @@ table 21 "Cust. Ledger Entry" end; end; -#if not CLEAN27 - [Obsolete('Replaced by W1 version of procedure', '27.0')] - procedure SetAmountToApply(AppliesToDocNo: Code[20]; CustomerNo: Code[20]; var AppliesToBillNo: Code[20]) - begin - SetAmountToApply(AppliesToDocNo, CustomerNo); - AppliesToBillNo := "Bill No."; - end; -#endif - /// /// Toggles the Amount to Apply field between the remaining amount and zero for the specified document. /// diff --git a/src/Layers/ES/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al b/src/Layers/ES/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al index d5a99783fb3..bb7c922f814 100644 --- a/src/Layers/ES/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al +++ b/src/Layers/ES/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al @@ -66,16 +66,6 @@ page 459 "Sales & Receivables Setup" { ApplicationArea = Basic, Suite; } -#if not CLEAN27 - field("Create Item from Item No."; Rec."Create Item from Item No.") - { - ApplicationArea = Basic, Suite; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("Create Item from Description"; Rec."Create Item from Description") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/ES/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al b/src/Layers/ES/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al index 4f4c5e82f6b..3f1ce090d83 100644 --- a/src/Layers/ES/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al +++ b/src/Layers/ES/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al @@ -572,13 +572,8 @@ table 311 "Sales & Receivables Setup" Caption = 'Create Item from Item No.'; ToolTip = 'Specifies if the system will suggest to create a new item when no item matches the number that you enter in the No. Field on sales lines.'; ObsoleteReason = 'Discontinued function'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '29.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif /// diff --git a/src/Layers/ES/BaseApp/Service/Document/ServiceCreditMemo.Page.al b/src/Layers/ES/BaseApp/Service/Document/ServiceCreditMemo.Page.al index fe830d13da7..7b98975e147 100644 --- a/src/Layers/ES/BaseApp/Service/Document/ServiceCreditMemo.Page.al +++ b/src/Layers/ES/BaseApp/Service/Document/ServiceCreditMemo.Page.al @@ -600,24 +600,6 @@ page 5935 "Service Credit Memo" { Caption = '&Cr. Memo'; Image = CreditMemo; -#if not CLEAN27 - action(Statistics) - { - ApplicationArea = Service; - Caption = 'Statistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View statistical information, such as the value of posted entries, for the record.'; - ObsoleteReason = 'The statistics action will be replaced with the ServiceStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Rec.OpenStatistics(); - end; - } -#endif action(ServiceStatistics) { ApplicationArea = Service; @@ -625,11 +607,7 @@ page 5935 "Service Credit Memo" Image = Statistics; ShortCutKey = 'F7'; ToolTip = 'View statistical information, such as the value of posted entries, for the record.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Service Statistics"; RunPageOnRec = true; } @@ -718,24 +696,6 @@ page 5935 "Service Credit Memo" { Caption = 'F&unctions'; Image = "Action"; -#if not CLEAN27 - action("Calculate Inv. and Pmt. Disc.") - { - AccessByPermission = TableData "Cust. Invoice Disc." = R; - ApplicationArea = Service; - Caption = 'Calculate &Inv. and Pmt. Discounts'; - Image = CalculateDiscount; - ToolTip = 'Update the lines with any payment discount that is specified in the related payment terms.'; - ObsoleteReason = 'Replaced by W1 action'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - ApproveCalcInvDisc(); - end; - } -#else action("Calculate Invoice Discount") { AccessByPermission = TableData "Cust. Invoice Disc." = R; @@ -749,7 +709,6 @@ page 5935 "Service Credit Memo" ApproveCalcInvDisc(); end; } -#endif action(ApplyEntries) { ApplicationArea = Service; @@ -936,18 +895,9 @@ page 5935 "Service Credit Memo" actionref(Dimensions_Promoted; Dimensions) { } -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the ServiceStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#else actionref(ServiceStatistics_Promoted; ServiceStatistics) { } -#endif actionref("Co&mments_Promoted"; "Co&mments") { } @@ -968,11 +918,9 @@ page 5935 "Service Credit Memo" actionref("Get St&d. Service Codes_Promoted"; "Get St&d. Service Codes") { } -#if CLEAN27 actionref("Calculate Invoice Discount_Promoted"; "Calculate Invoice Discount") { } -#endif } } } diff --git a/src/Layers/ES/BaseApp/Service/Local/Document/ServiceCreditMemoES.PageExt.al b/src/Layers/ES/BaseApp/Service/Local/Document/ServiceCreditMemoES.PageExt.al index 7b1ed60ca2f..117aaf23cb4 100644 --- a/src/Layers/ES/BaseApp/Service/Local/Document/ServiceCreditMemoES.PageExt.al +++ b/src/Layers/ES/BaseApp/Service/Local/Document/ServiceCreditMemoES.PageExt.al @@ -141,11 +141,7 @@ pageextension 10735 "Service Credit Memo ES" extends "Service Credit Memo" end; } } -#if not CLEAN27 - modify("Calculate Inv. and Pmt. Disc.") -#else modify("Calculate Invoice Discount") -#endif { Caption = 'Calculate &Inv. and Pmt. Discounts'; ToolTip = 'Update the lines with any payment discount that is specified in the related payment terms.'; diff --git a/src/Layers/ES/BaseApp/Service/Local/EService/EDocument/ServSIIManagement.Codeunit.al b/src/Layers/ES/BaseApp/Service/Local/EService/EDocument/ServSIIManagement.Codeunit.al index e625e53aac9..756aa5537b8 100644 --- a/src/Layers/ES/BaseApp/Service/Local/EService/EDocument/ServSIIManagement.Codeunit.al +++ b/src/Layers/ES/BaseApp/Service/Local/EService/EDocument/ServSIIManagement.Codeunit.al @@ -75,17 +75,11 @@ codeunit 10759 "Serv. SII Management" procedure OnAfterPostServiceDoc(var ServiceHeader: Record "Service Header") var SIISetup: Record "SII Setup"; -#if not CLEAN27 - SIIJobUploadPendingDocs: Codeunit "SII Job Upload Pending Docs."; -#endif JobType: Option HandlePending,HandleCommError,InitialUpload; IsHandled: Boolean; begin IsHandled := false; OnBeforeOnAfterPostServiceDoc(ServiceHeader, IsHandled); -#if not CLEAN27 - SIIJobUploadPendingDocs.RunOnBeforeOnAfterPostServiceDoc(ServiceHeader, IsHandled); -#endif if not IsHandled then exit; diff --git a/src/Layers/ES/BaseApp/Service/Local/Finance/ReceivablesPayables/ServInvoiceSplitPayment.Codeunit.al b/src/Layers/ES/BaseApp/Service/Local/Finance/ReceivablesPayables/ServInvoiceSplitPayment.Codeunit.al index af4fd8d5d71..513f36b6ad3 100644 --- a/src/Layers/ES/BaseApp/Service/Local/Finance/ReceivablesPayables/ServInvoiceSplitPayment.Codeunit.al +++ b/src/Layers/ES/BaseApp/Service/Local/Finance/ReceivablesPayables/ServInvoiceSplitPayment.Codeunit.al @@ -25,9 +25,6 @@ codeunit 7000035 "Serv. Invoice-Split Payment" var GLSetup: Record "General Ledger Setup"; SalesSetup: Record "Sales & Receivables Setup"; -#if not CLEAN27 - InvoiceSplitPayment: Codeunit "Invoice-Split Payment"; -#endif #pragma warning disable AA0074 #pragma warning disable AA0470 Text003: Label 'Service %1 no. %2 cannot be posted, because the due date field for one or more installments is more than the legal limit of %3 days after the document date %4 for the original document.'; @@ -137,9 +134,6 @@ codeunit 7000035 "Serv. Invoice-Split Payment" end; OnBeforeSplitServInvCloseEntry(GenJnlLine, ServiceHeader); -#if not CLEAN27 - InvoiceSplitPayment.RunOnBeforeSplitServInvCloseEntry(GenJnlLine, ServiceHeader); -#endif if GLSetup."Unrealized VAT" and ExistsVATNoReal then GenJnlLine2.Copy(GenJnlLine) else @@ -254,9 +248,6 @@ codeunit 7000035 "Serv. Invoice-Split Payment" end; OnBeforeSplitServInvCreateBills(GenJnlLine, ServiceHeader); -#if not CLEAN27 - InvoiceSplitPayment.RunOnBeforeSplitServInvCreateBills(GenJnlLine, ServiceHeader); -#endif if PaymentMethod."Create Bills" and ((GenJnlLine.Amount <> 0) or (GenJnlLine."Amount (LCY)" <> 0)) then begin BillNo += 1; diff --git a/src/Layers/ES/BaseApp/Service/Local/Finance/VAT/Ledger/ServNoTaxableMgt.Codeunit.al b/src/Layers/ES/BaseApp/Service/Local/Finance/VAT/Ledger/ServNoTaxableMgt.Codeunit.al index 191a9d389ce..0473dbd73e4 100644 --- a/src/Layers/ES/BaseApp/Service/Local/Finance/VAT/Ledger/ServNoTaxableMgt.Codeunit.al +++ b/src/Layers/ES/BaseApp/Service/Local/Finance/VAT/Ledger/ServNoTaxableMgt.Codeunit.al @@ -179,9 +179,6 @@ codeunit 10741 "Serv. No Taxable Mgt." NoTaxableEntry."VAT Reporting Date" := ServiceHeader."VAT Reporting Date"; OnAfterInitFromServiceDocument(NoTaxableEntry, ServiceHeader); -#if not CLEAN27 - NoTaxableEntry.RunOnAfterInitFromServiceDocument(NoTaxableEntry, ServiceHeader); -#endif end; [IntegrationEvent(false, false)] diff --git a/src/Layers/ES/BaseApp/Service/Local/History/ServiceInvoiceES.Report.al b/src/Layers/ES/BaseApp/Service/Local/History/ServiceInvoiceES.Report.al index 02ead59bfdd..d0946c715ad 100644 --- a/src/Layers/ES/BaseApp/Service/Local/History/ServiceInvoiceES.Report.al +++ b/src/Layers/ES/BaseApp/Service/Local/History/ServiceInvoiceES.Report.al @@ -764,11 +764,7 @@ report 10792 "Service Invoice (ES)" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopies) + Cust."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; CopyText := ''; diff --git a/src/Layers/ES/BaseApp/Service/Local/Posting/ServicePostingSubscrES.Codeunit.al b/src/Layers/ES/BaseApp/Service/Local/Posting/ServicePostingSubscrES.Codeunit.al index 0118e6fcd31..b9fd4756642 100644 --- a/src/Layers/ES/BaseApp/Service/Local/Posting/ServicePostingSubscrES.Codeunit.al +++ b/src/Layers/ES/BaseApp/Service/Local/Posting/ServicePostingSubscrES.Codeunit.al @@ -22,9 +22,6 @@ using Microsoft.Service.History; codeunit 10789 "Service Posting Subscr. ES" { var -#if not CLEAN27 - ServPostingJournalsMgt: Codeunit "Serv-Posting Journals Mgt."; -#endif CannotCreateCarteraDocErr: Label 'You do not have permissions to create Documents in Cartera.\Please, change the Payment Method.'; Text1100000: Label 'The Credit Memo doesn''t have a Corrected Invoice No. Do you want to continue?'; Text1100001: Label 'The posting process has been cancelled by the user.'; @@ -120,9 +117,6 @@ codeunit 10789 "Service Posting Subscr. ES" then Error(CannotCreateCarteraDocErr); OnCreateBillsOnBeforeSplitServiceInv(ServiceHeader, CustLedgEntry, TotalServiceLine); -#if not CLEAN27 - ServPostingJournalsMgt.RunOnCreateBillsOnBeforeSplitServiceInv(ServiceHeader, CustLedgEntry, TotalServiceLine); -#endif SourceCodeSetup.Get(); if (ServiceHeader."Bal. Account No." = '') and (ServiceHeader."Document Type" <> ServiceHeader."Document Type"::"Credit Memo") and CarteraSetup.ReadPermission then ServInvoiceSplitPayment.SplitServiceInvoice( diff --git a/src/Layers/ES/BaseApp/Service/Posting/ServDocumentsMgt.Codeunit.al b/src/Layers/ES/BaseApp/Service/Posting/ServDocumentsMgt.Codeunit.al index da0c34a0eee..5f65b374ee8 100644 --- a/src/Layers/ES/BaseApp/Service/Posting/ServDocumentsMgt.Codeunit.al +++ b/src/Layers/ES/BaseApp/Service/Posting/ServDocumentsMgt.Codeunit.al @@ -2209,51 +2209,6 @@ codeunit 5988 "Serv-Documents Mgt." ServiceOrderAllocationRec.DeleteAll(); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit ServicePostingSubscrES', '27.0')] - [Scope('OnPrem')] - procedure TestSalesEfects(ServiceHeader: Record "Service Header"; Cust: Record Customer) - var - CustLedgEntry: Record Microsoft.Sales.Receivables."Cust. Ledger Entry"; - ShowError: Boolean; - Text1100000: Label 'At least one document of %1 No. %2 is closed or in a Bill Group.'; - Text1100001: Label 'This will avoid the document to be settled.\'; - Text1100002: Label 'The posting process of %3 No. %4 will not settle any document.\'; - Text1100003: Label 'Due this customer is using Apply to Oldest Application Method, please remove the lines for the Bill Group before posting.'; - begin - ShowError := false; - if ServiceHeader."Document Type" = ServiceHeader."Document Type"::"Credit Memo" then begin - CustLedgEntry.SetCurrentKey("Document No.", "Document Type", "Customer No."); - CustLedgEntry.SetFilter("Document Type", '%1|%2', CustLedgEntry."Document Type"::Invoice, - CustLedgEntry."Document Type"::Bill); - CustLedgEntry.SetFilter("Document Situation", '<>%1', CustLedgEntry."Document Situation"::" "); - CustLedgEntry.SetRange("Customer No.", ServiceHeader."Bill-to Customer No."); - CustLedgEntry.SetRange(Open, true); - - if CustLedgEntry.Find('-') then - repeat - if CustLedgEntry."Document Situation" <> CustLedgEntry."Document Situation"::Cartera then - if not ((CustLedgEntry."Document Situation" in - [CustLedgEntry."Document Situation"::"Closed Documents", - CustLedgEntry."Document Situation"::"Closed BG/PO"]) and - (CustLedgEntry."Document Status" = CustLedgEntry."Document Status"::Rejected)) - then - ShowError := true; - until CustLedgEntry.Next() = 0; - - if ShowError then - Error(Text1100000 + - Text1100001 + - Text1100002 + - Text1100003, - Format(CustLedgEntry."Document Type"), - Format(CustLedgEntry."Document No."), - Format(ServiceHeader."Document Type"), - Format(ServiceHeader."No.")); - end; - end; -#endif - local procedure FinalizeWarrantyLedgerEntries(var ServiceHeader: Record "Service Header"; CloseCondition: Boolean) var WarrantyLedgerEntry: Record "Warranty Ledger Entry"; diff --git a/src/Layers/ES/BaseApp/Service/Posting/ServPostingJournalsMgt.Codeunit.al b/src/Layers/ES/BaseApp/Service/Posting/ServPostingJournalsMgt.Codeunit.al index 52544614dfd..f7c660289c6 100644 --- a/src/Layers/ES/BaseApp/Service/Posting/ServPostingJournalsMgt.Codeunit.al +++ b/src/Layers/ES/BaseApp/Service/Posting/ServPostingJournalsMgt.Codeunit.al @@ -643,31 +643,6 @@ codeunit 5987 "Serv-Posting Journals Mgt." exit(true); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit ServicePostingSubscrES', '27.0')] - [Scope('OnPrem')] - procedure CreateBills(var TotalServiceLine: Record "Service Line"; var Window: Dialog; GenJnlLineDocNo: Code[20]; GenJnlLineExtDocNo: Code[35]) - var - CustLedgEntry: Record Microsoft.Sales.Receivables."Cust. Ledger Entry"; - PaymentMethod: Record Microsoft.Bank.BankAccount."Payment Method"; - CarteraSetup: Record "Cartera Setup"; - SplitPayment: Codeunit "Invoice-Split Payment"; - CannotCreateCarteraDocErr: Label 'You do not have permissions to create Documents in Cartera.\Please, change the Payment Method.'; - begin - CustLedgEntry.Find('+'); - if PaymentMethod.Get(ServiceHeader."Payment Method Code") then - if (PaymentMethod."Create Bills" or PaymentMethod."Invoices to Cartera") and - (not CarteraSetup.ReadPermission) and Invoice - then - Error(CannotCreateCarteraDocErr); - OnCreateBillsOnBeforeSplitServiceInv(ServiceHeader, CustLedgEntry, TotalServiceLine); - if (ServiceHeader."Bal. Account No." = '') and (ServiceHeader."Document Type" <> ServiceHeader."Document Type"::"Credit Memo") and CarteraSetup.ReadPermission then - SplitPayment.SplitServiceInv( - ServiceHeader, CustLedgEntry, Window, SrcCode, GenJnlLineExtDocNo, GenJnlLineDocNo, - -(TotalServiceLine."Amount Including VAT" - TotalServiceLine.Amount)); - end; -#endif - [IntegrationEvent(false, false)] local procedure OnAfterTransferValuesToJobJnlLine(var JobJournalLine: Record "Job Journal Line"; ServiceLine: Record "Service Line") begin @@ -688,19 +663,6 @@ codeunit 5987 "Serv-Posting Journals Mgt." begin end; -#if not CLEAN27 - internal procedure RunOnCreateBillsOnBeforeSplitServiceInv(ServiceHeader: Record "Service Header"; var CustLedgerEntry: Record Microsoft.Sales.Receivables."Cust. Ledger Entry"; var TotalServiceLine: Record "Service Line") - begin - OnCreateBillsOnBeforeSplitServiceInv(ServiceHeader, CustLedgerEntry, TotalServiceLine); - end; - - [Obsolete('Moved to codeunit ServicePostingSubscrES', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCreateBillsOnBeforeSplitServiceInv(ServiceHeader: Record "Service Header"; var CustLedgerEntry: Record Microsoft.Sales.Receivables."Cust. Ledger Entry"; var TotalServiceLine: Record "Service Line") - begin - end; -#endif - [IntegrationEvent(false, false)] local procedure OnPostItemJnlLineOnBeforeCreateWhseJnlLine(var ItemJournalLine: Record "Item Journal Line"; ServiceHeader: Record "Service Header"; var ShouldCreateWhseJnlLine: Boolean; ServiceShipmentHeader: Record "Service Shipment Header"; var ServiceLine: Record "Service Line"; var TempWarehouseJournalLine: Record "Warehouse Journal Line" temporary; var WhsePosting: Boolean; var CheckApplFromItemEntry: Boolean); begin diff --git a/src/Layers/ES/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al b/src/Layers/ES/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al index 0cb18400fba..9dc17e58954 100644 --- a/src/Layers/ES/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al +++ b/src/Layers/ES/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al @@ -500,34 +500,6 @@ codeunit 131332 "Library - Cash Flow Helper" OnAfterCreatePurchaseLine(PurchaseHeader, GLAccount); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure CreateSpecificServiceOrder(var ServiceHeader: Record "Service Header"; PaymentTermsCode: Code[10]; CFPaymentTermsCode: Code[10]) - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.CreateSpecificServiceOrder(ServiceHeader, PaymentTermsCode, CFPaymentTermsCode); - end; -#endif - -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure CreateDefaultServiceOrder(var ServiceHeader: Record "Service Header") - begin - CreateSpecificServiceOrder(ServiceHeader, '', ''); - end; -#endif - -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure CreateServiceLines(ServiceHeader: Record "Service Header") - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.CreateServiceLines(ServiceHeader); - end; -#endif - procedure CreatePrepaymentAccount(GeneralPostingSetup: Record "General Posting Setup"; VATBusPostingGroup: Code[20]; VATProdPostingGroup: Code[20]): Code[20] var GLAccount: Record "G/L Account"; diff --git a/src/Layers/ES/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al b/src/Layers/ES/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al index e362db64ab0..ec23bf00491 100644 --- a/src/Layers/ES/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al +++ b/src/Layers/ES/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al @@ -1088,15 +1088,6 @@ codeunit 130512 "Library - Purchase" PurchasesPayablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - PurchasesPayablesSetup.Get(); - PurchasesPayablesSetup.Validate("Create Item from Item No.", NewValue); - PurchasesPayablesSetup.Modify(true); - end; -#endif procedure SetDefaultPostingDateWorkDate() begin PurchasesPayablesSetup.Get(); diff --git a/src/Layers/ES/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al b/src/Layers/ES/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al index 1b5acedd01a..22ab4d4133a 100644 --- a/src/Layers/ES/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al +++ b/src/Layers/ES/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al @@ -1775,15 +1775,6 @@ codeunit 130509 "Library - Sales" SalesReceivablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - SalesReceivablesSetup.Get(); - SalesReceivablesSetup.Validate("Create Item from Item No.", NewValue); - SalesReceivablesSetup.Modify(true); - end; -#endif /// /// Sets the Create Item from Description option in Sales and Receivables Setup. /// diff --git a/src/Layers/ES/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al b/src/Layers/ES/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al index 1f88e42d58b..5196d7919f5 100644 --- a/src/Layers/ES/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al +++ b/src/Layers/ES/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al @@ -8058,4 +8058,6 @@ codeunit 134902 "ERM Account Schedule" AccountSchedule.ColumnLayoutNames.Activate(); LibraryVariableStorage.Enqueue(AccountSchedule.StartDate.Enabled()); end; + + // Some tests skipped for ES } \ No newline at end of file diff --git a/src/Layers/ES/Tests/Local/ERMPaymentDiscount.Codeunit.al b/src/Layers/ES/Tests/Local/ERMPaymentDiscount.Codeunit.al index 52a29f4ab17..4232c856c55 100644 --- a/src/Layers/ES/Tests/Local/ERMPaymentDiscount.Codeunit.al +++ b/src/Layers/ES/Tests/Local/ERMPaymentDiscount.Codeunit.al @@ -562,65 +562,7 @@ codeunit 144076 "ERM Payment Discount" // TearDown. RollBackGeneralLedgerSetup(GeneralLedgerSetup."Payment Discount Type", GeneralLedgerSetup."Discount Calculation"); end; -#if not CLEAN27 - [Test] - [HandlerFunctions('ConfirmHandler,ServiceStatisticsModalPageHandler')] - [Scope('OnPrem')] - procedure PaymentDiscountOnServiceInvoiceStatistics() - var - Customer: Record Customer; - GeneralLedgerSetup: Record "General Ledger Setup"; - ServiceHeader: Record "Service Header"; - begin - // Test to verify Payment Discount Amount on Service Statistics Page. - - // Setup: Create Customer,Update General Ledger Setup,Create Service Invoice and open Service Invoice page. - Initialize(); - LibrarySales.CreateCustomer(Customer); - GeneralLedgerSetup.Get(); - UpdateGeneralLedgerSetup( - GeneralLedgerSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines", - GeneralLedgerSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc."); - CreateServiceDocumentAndCalculatePmtDiscount(ServiceHeader, ServiceHeader."Document Type"::Invoice, Customer."No."); - - // Exercise. - OpenServiceInvoiceStatistics(ServiceHeader."No."); - - // Verify: Verification done in ServiceStatisticsModalPageHandler. - - // TearDown. - RollBackGeneralLedgerSetup(GeneralLedgerSetup."Payment Discount Type", GeneralLedgerSetup."Discount Calculation"); - end; - [Test] - [HandlerFunctions('ConfirmHandler,ServiceStatisticsModalPageHandler')] - [Scope('OnPrem')] - procedure PaymentDiscountOnServiceCreditMemoStatistics() - var - Customer: Record Customer; - GeneralLedgerSetup: Record "General Ledger Setup"; - ServiceHeader: Record "Service Header"; - begin - // Test to verify Payment Discount Amount on Service Credit Memo Statistics Page. - - // Setup: Create Customer,Update General Ledger Setup,Create Service Credit Memo and open Service Credit Memo page. - Initialize(); - LibrarySales.CreateCustomer(Customer); - GeneralLedgerSetup.Get(); - UpdateGeneralLedgerSetup( - GeneralLedgerSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines", - GeneralLedgerSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc."); - CreateServiceDocumentAndCalculatePmtDiscount(ServiceHeader, ServiceHeader."Document Type"::"Credit Memo", Customer."No."); - - // Exercise. - OpenServiceCreditMemoStatistics(ServiceHeader."No."); - - // Verify: Verification done in ServiceStatisticsModalPageHandler. - - // TearDown. - RollBackGeneralLedgerSetup(GeneralLedgerSetup."Payment Discount Type", GeneralLedgerSetup."Discount Calculation"); - end; -#endif [Test] [HandlerFunctions('ConfirmHandler,ServiceStatisticsPageHandler')] [Scope('OnPrem')] @@ -1150,40 +1092,14 @@ codeunit 144076 "ERM Payment Discount" SalesOrder.CalculateInvoiceDiscount.Invoke(); SalesOrder.Close(); end; -#if not CLEAN27 - local procedure OpenServiceCreditMemoStatistics(No: Code[20]) - var - ServiceCreditMemo: TestPage "Service Credit Memo"; - begin - ServiceCreditMemo.OpenEdit(); - ServiceCreditMemo.FILTER.SetFilter("No.", No); - ServiceCreditMemo."Calculate Inv. and Pmt. Disc.".Invoke(); - ServiceCreditMemo.Statistics.Invoke(); // Opens ServiceStatisticsModalPageHandler. - ServiceCreditMemo.Close(); - end; - local procedure OpenServiceInvoiceStatistics(No: Code[20]) - var - ServiceInvoice: TestPage "Service Invoice"; - begin - ServiceInvoice.OpenEdit(); - ServiceInvoice.FILTER.SetFilter("No.", No); - ServiceInvoice."Calculate Invoice Discount".Invoke(); - ServiceInvoice.Statistics.Invoke(); // Opens ServiceStatisticsModalPageHandler. - ServiceInvoice.Close(); - end; -#endif local procedure OpenServiceCreditMemoStatisticsNM(No: Code[20]) var ServiceCreditMemo: TestPage "Service Credit Memo"; begin ServiceCreditMemo.OpenEdit(); ServiceCreditMemo.FILTER.SetFilter("No.", No); -#if not CLEAN27 - ServiceCreditMemo."Calculate Inv. and Pmt. Disc.".Invoke(); -#else ServiceCreditMemo."Calculate Invoice Discount".Invoke(); -#endif ServiceCreditMemo.ServiceStatistics.Invoke(); // Opens ServiceStatisticsModalPageHandler. ServiceCreditMemo.Close(); end; @@ -1314,20 +1230,6 @@ codeunit 144076 "ERM Payment Discount" Assert.AreEqual(ExpectedPmtDiscGivenAmount, PmtDiscGivenAmount, ''); end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceStatisticsModalPageHandler(var ServiceStatistics: TestPage "Service Statistics") - var - PmtDiscGivenAmount: Decimal; - ExpectedPmtDiscGivenAmount: Decimal; - begin - ExpectedPmtDiscGivenAmount := Round(LibraryVariableStorage.DequeueDecimal()); - PmtDiscGivenAmount := ServiceStatistics.PmtDiscGivenAmount.AsDecimal(); - ServiceStatistics.OK().Invoke(); - Assert.AreEqual(ExpectedPmtDiscGivenAmount, PmtDiscGivenAmount, ''); - end; -#endif [PageHandler] [Scope('OnPrem')] procedure ServiceStatisticsPageHandler(var ServiceStatistics: TestPage "Service Statistics") diff --git a/src/Layers/ES/Tests/Local/ERMPaymentTerms.Codeunit.al b/src/Layers/ES/Tests/Local/ERMPaymentTerms.Codeunit.al index 3e3150cb058..fce6273be5e 100644 --- a/src/Layers/ES/Tests/Local/ERMPaymentTerms.Codeunit.al +++ b/src/Layers/ES/Tests/Local/ERMPaymentTerms.Codeunit.al @@ -259,11 +259,7 @@ codeunit 144079 "ERM Payment Terms" ServiceHeader.Get(ServiceLine."Document Type", ServiceLine."Document No."); ServiceCreditMemo.OpenEdit(); ServiceCreditMemo.FILTER.SetFilter("No.", ServiceHeader."No."); -#if not CLEAN27 - ServiceCreditMemo."Calculate Inv. and Pmt. Disc.".Invoke(); -#else ServiceCreditMemo."Calculate Invoice Discount".Invoke(); -#endif LibraryService.PostServiceOrder(ServiceHeader, true, false, true); // True for ship and invoice, False for consume. LibraryVariableStorage.Enqueue(Customer."No."); // Enqueue for ServiceCreditMemoRequestPageHandler. Commit(); // commit requires to run report. diff --git a/src/Layers/ES/Tests/Local/ERMServiceInvoiceES.Codeunit.al b/src/Layers/ES/Tests/Local/ERMServiceInvoiceES.Codeunit.al index 9e9b900097f..d5f1af2947d 100644 --- a/src/Layers/ES/Tests/Local/ERMServiceInvoiceES.Codeunit.al +++ b/src/Layers/ES/Tests/Local/ERMServiceInvoiceES.Codeunit.al @@ -107,36 +107,7 @@ codeunit 144108 "ERM Service Invoice ES" ServiceCrMemoHeader.SetRange("Customer No.", Customer."No."); Assert.IsTrue(ServiceCrMemoHeader.FindFirst(), RecordMustExistMsg); end; -#if not CLEAN27 - [Test] - [HandlerFunctions('ServiceStatisticsPageHandler')] - [Scope('OnPrem')] - procedure ManualInvoiceDiscountAmountAllowInvoiceDiscountTrue() - var - Customer: Record Customer; - ServiceHeader: Record "Service Header"; - ServiceLine: Record "Service Line"; - InvoiceDiscountAmount: Decimal; - begin - // Test to verify Program allows to enter Invoice Discount manually on Service Invoice if Type is G/L Account and also update Allow Invoice Disc as TRUE on Service Line. - - // Setup: Create Service Invoice, update Allow Invoice Discount - TRUE on Service Line. Open Statistics and update Invoice Discount Amount on it. - Initialize(); - LibrarySales.CreateCustomer(Customer); - CreateServiceDocument( - ServiceLine, ServiceHeader."Document Type"::Invoice, ServiceLine.Type::"G/L Account", Customer."No.", CreateGLAccount()); - UpdateServiceLineAllowInvoiceDisc(ServiceLine); - InvoiceDiscountAmount := LibraryRandom.RandDec(10, 2); - LibraryVariableStorage.Enqueue(InvoiceDiscountAmount); // Required inside ServiceStatisticsPageHandler. - InvokeStatisticsOnServiceInvoice(Customer."No."); // Opens ServiceStatisticsPageHandler. - - // Exercise: Post Service Invoice. - PostServiceDocument(ServiceLine."Document Type", ServiceLine."Document No."); - // Verify: Verify G/L entry created after considering Invoice Discount Amount. - VerifyGLEntry(ServiceLine."No.", -(ServiceLine.Amount - InvoiceDiscountAmount)); - end; -#endif [Test] [HandlerFunctions('ServiceStatisticsPageHandlerNM')] [Scope('OnPrem')] @@ -811,16 +782,7 @@ codeunit 144108 "ERM Service Invoice ES" ServiceCrMemoHeader.FindFirst(); exit(ServiceCrMemoHeader."No."); end; -#if not CLEAN27 - local procedure InvokeStatisticsOnServiceInvoice(CustomerNo: Code[20]) - var - ServiceInvoice: TestPage "Service Invoice"; - begin - ServiceInvoice.OpenEdit(); - ServiceInvoice.FILTER.SetFilter("Customer No.", CustomerNo); - ServiceInvoice.Statistics.Invoke(); - end; -#endif + local procedure InvokeStatisticsOnServiceInvoiceNM(CustomerNo: Code[20]) var ServiceInvoice: TestPage "Service Invoice"; @@ -1011,18 +973,7 @@ codeunit 144108 "ERM Service Invoice ES" DueDate := CalcDate(PaymentTerms."Due Date Calculation", DueDate); end; end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceStatisticsPageHandler(var ServiceStatistics: TestPage "Service Statistics") - var - InvDiscountAmount: Variant; - begin - LibraryVariableStorage.Dequeue(InvDiscountAmount); - ServiceStatistics."Inv. Discount Amount_General".SetValue(InvDiscountAmount); - ServiceStatistics.OK().Invoke(); - end; -#endif + [PageHandler] [Scope('OnPrem')] procedure ServiceStatisticsPageHandlerNM(var ServiceStatistics: TestPage "Service Statistics") diff --git a/src/Layers/ES/Tests/Local/ERMServiceVATECCalculate.Codeunit.al b/src/Layers/ES/Tests/Local/ERMServiceVATECCalculate.Codeunit.al index c8e3971dcc0..b8fcbd8f214 100644 --- a/src/Layers/ES/Tests/Local/ERMServiceVATECCalculate.Codeunit.al +++ b/src/Layers/ES/Tests/Local/ERMServiceVATECCalculate.Codeunit.al @@ -224,67 +224,7 @@ codeunit 144124 "ERM Service VAT EC Calculate" // Tear Down. UpdateSalesReceivablesSetupPostLineDiscount(OldPostLineDiscount); end; -#if not CLEAN27 - [Test] - [Scope('OnPrem')] - [HandlerFunctions('ServiceInvoiceStatisticsPageHandler')] - procedure ServiceInvoiceStatisticsWithNormalVAT() - var - ServiceLine: Record "Service Line"; - PostedServiceInvoice: TestPage "Posted Service Invoice"; - DocumentNo: Code[20]; - VATAmount: Decimal; - begin - // Test to verify Amount on Service Invoice Statistics after posting Service Invoice without Currency and Normal VAT. - - // Setup: Create and post Service Invoice. Update Additional Reporting Currency on General Ledger Setup. - CreateAndPostServiceDocument(ServiceLine, ServiceLine."Document Type"::Invoice); - DocumentNo := FindServiceInvoiceHeader(ServiceLine."Customer No."); - VATAmount := ServiceLine.Amount * (ServiceLine."VAT %" + ServiceLine."EC %") / 100; - LibraryVariableStorage.Enqueue(ServiceLine.Amount); - LibraryVariableStorage.Enqueue(VATAmount); - LibraryVariableStorage.Enqueue(ServiceLine.Amount + VATAmount); - PostedServiceInvoice.OpenView(); - PostedServiceInvoice.FILTER.SetFilter("No.", DocumentNo); - - // Exercise. - PostedServiceInvoice.Statistics.Invoke(); - PostedServiceInvoice.Close(); - - // Verify: Verify Amount, VAT Amount and Amount Including VAT on Service Invoice Statistics. - // Verification in page handler ServiceInvoiceStatisticsPageHandler - end; - [Test] - [Scope('OnPrem')] - [HandlerFunctions('ServiceCreditMemoStatisticsPageHandler')] - procedure ServiceCreditMemoStatisticsWithNormalVAT() - var - ServiceLine: Record "Service Line"; - PostedServiceCreditMemos: TestPage "Posted Service Credit Memos"; - DocumentNo: Code[20]; - VATAmount: Decimal; - begin - // Test to verify Amount on Service Credit Memo Statistics after posting Service Credit Memo without Currency and Normal VAT. - - // Setup: Create and post Service Invoice. Open page Posted Service Credit Memos. - CreateAndPostServiceDocument(ServiceLine, ServiceLine."Document Type"::"Credit Memo"); - DocumentNo := FindServiceCreditMemo(ServiceLine."Customer No."); - VATAmount := ServiceLine.Amount * (ServiceLine."VAT %" + ServiceLine."EC %") / 100; - LibraryVariableStorage.Enqueue(ServiceLine.Amount); - LibraryVariableStorage.Enqueue(VATAmount); - LibraryVariableStorage.Enqueue(ServiceLine.Amount + VATAmount); - PostedServiceCreditMemos.OpenView(); - PostedServiceCreditMemos.FILTER.SetFilter("No.", DocumentNo); - - // Exercise. - PostedServiceCreditMemos.Statistics.Invoke(); - PostedServiceCreditMemos.Close(); - - // Verify: Verify Amount, VAT Amount and Amount Including VAT on Service Credit Memo Statistics. - // Verification in page handler ServiceCreditMemoStatisticsPageHandler - end; -#endif [Test] [Scope('OnPrem')] [HandlerFunctions('ServiceInvoiceStatisticsPageHandlerNM')] @@ -681,48 +621,7 @@ codeunit 144124 "ERM Service VAT EC Calculate" Assert.AreNearlyEqual( AdditionalCurrencyBase, VATEntry."Additional-Currency Base", LibraryERM.GetAmountRoundingPrecision(), ValueMustBeEqualMsg); end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceInvoiceStatisticsPageHandler(var ServiceInvoiceStatistics: TestPage "Service Invoice Statistics") - var - Amount: Variant; - VATAmount: Variant; - TotalAmount: Variant; - begin - LibraryVariableStorage.Dequeue(Amount); - LibraryVariableStorage.Dequeue(VATAmount); - LibraryVariableStorage.Dequeue(TotalAmount); - Assert.AreNearlyEqual( - Amount, ServiceInvoiceStatistics.Amount.AsDecimal(), LibraryERM.GetAmountRoundingPrecision(), ValueMustBeEqualMsg); - Assert.AreNearlyEqual( - VATAmount, ServiceInvoiceStatistics.VATAmount.AsDecimal(), LibraryERM.GetAmountRoundingPrecision(), ValueMustBeEqualMsg); - ServiceInvoiceStatistics.Subform.First(); - Assert.AreNearlyEqual( - TotalAmount, ServiceInvoiceStatistics.Subform."Amount Including VAT".AsDecimal(), - LibraryERM.GetAmountRoundingPrecision(), ValueMustBeEqualMsg); - end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceCreditMemoStatisticsPageHandler(var ServiceCreditMemoStatistics: TestPage "Service Credit Memo Statistics") - var - Amount: Variant; - VATAmount: Variant; - TotalAmount: Variant; - begin - LibraryVariableStorage.Dequeue(Amount); - LibraryVariableStorage.Dequeue(VATAmount); - LibraryVariableStorage.Dequeue(TotalAmount); - Assert.AreNearlyEqual( - Amount, ServiceCreditMemoStatistics.Amount.AsDecimal(), LibraryERM.GetAmountRoundingPrecision(), ValueMustBeEqualMsg); - Assert.AreNearlyEqual( - VATAmount, ServiceCreditMemoStatistics.VATAmount.AsDecimal(), LibraryERM.GetAmountRoundingPrecision(), ValueMustBeEqualMsg); - ServiceCreditMemoStatistics.Subform.First(); - Assert.AreNearlyEqual( - TotalAmount, ServiceCreditMemoStatistics.Subform."Amount Including VAT".AsDecimal(), LibraryERM.GetAmountRoundingPrecision(), ValueMustBeEqualMsg); - end; -#endif [PageHandler] [Scope('OnPrem')] procedure ServiceInvoiceStatisticsPageHandlerNM(var ServiceInvoiceStatistics: TestPage "Service Invoice Statistics") diff --git a/src/Layers/ES/Tests/Misc/ReportSelectionsTests.Codeunit.al b/src/Layers/ES/Tests/Misc/ReportSelectionsTests.Codeunit.al index 43c351e5493..78d4a627694 100644 --- a/src/Layers/ES/Tests/Misc/ReportSelectionsTests.Codeunit.al +++ b/src/Layers/ES/Tests/Misc/ReportSelectionsTests.Codeunit.al @@ -360,128 +360,6 @@ codeunit 134421 "Report Selections Tests" // Verify is within handler end; -#if not CLEAN27 - [Test] - [Scope('OnPrem')] - procedure TestHTMLEmailBodyLoad() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - TempEmailItem: Record "Email Item" temporary; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - DummyEmailAddress: Text[250]; - begin - // Validates that EmailItem loads the body from the HTML file - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetupReportSelections(true, true); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", DummyEmailAddress); - GetEmailItem(TempEmailItem, TempEmailItem."Message Type"::"From Email Body Template", FileName, false); - - // Verify - Assert.IsTrue(TempEmailItem.GetBodyText() <> '', 'Expected text in the body of the EmailItem'); - end; - - [Test] - [Scope('OnPrem')] - procedure TestEmailAddressSelectionDefaultLayoutOld() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - Customer: Record Customer; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - EmailAddress: Text[80]; - begin - // Validates that EmailItem gathers the customer's email address when one is not defined in the custom layouts - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetupReportSelections(true, true); - - Customer.Get(SalesInvoiceHeader."Bill-to Customer No."); - Customer."E-Mail" := CustomerEmailTxt; - Customer.Modify(true); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", EmailAddress); - - // Verify - Assert.IsTrue( - EmailAddress = CustomerEmailTxt, StrSubstNo('Destination email address does not match expected address %1', CustomerEmailTxt)); - end; - - [Test] - [Scope('OnPrem')] - procedure TestEmailAddressSelectionCustomLayoutOld() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - EmailAddress: Text[80]; - begin - // Validates that EmailItem gathers the custom layout email address when one is defined. - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetUpCustomEmail(SalesInvoiceHeader, CustomLayoutEmailTxt, true); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", EmailAddress); - - // Verify - Assert.IsTrue( - EmailAddress = CustomLayoutEmailTxt, - StrSubstNo('Destination email address does not match expected address %1', CustomLayoutEmailTxt)); - end; - - [Test] - [Scope('OnPrem')] - procedure TestEmailAddressSelectionCustomAddressNoLayoutOld() - var - ReportSelections: Record "Report Selections"; - SalesInvoiceHeader: Record "Sales Invoice Header"; - FileManagement: Codeunit "File Management"; - FileName: Text[250]; - EmailAddress: Text[80]; - begin - // Validates that the email address in the dialog is from the Customer when set in a custom report selection - // and when the custom report selection does not specify the email body. - Initialize(); - - // Setup - CreateAndPostSalesInvoice(SalesInvoiceHeader); - FileName := Format(FileManagement.ServerTempFileName('.html'), 250); - SetUpCustomEmail(SalesInvoiceHeader, CustomLayoutEmailTxt, false); - - // Save a report to get some HTML to test the email item with - SalesInvoiceHeader.SetRecFilter(); - ReportSelections.GetEmailBodyForCust( - FileName, ReportSelections.Usage::"S.Invoice", SalesInvoiceHeader, SalesInvoiceHeader."Bill-to Customer No.", EmailAddress); - - // Verify - Assert.IsTrue( - EmailAddress = CustomLayoutEmailTxt, - StrSubstNo('Destination email address does not match expected address %1', CustomLayoutEmailTxt)); - end; -#endif [Test] [Scope('OnPrem')] @@ -3049,14 +2927,6 @@ codeunit 134421 "Report Selections Tests" end; end; -#if not CLEAN27 - local procedure GetEmailItem(var EmailItem: Record "Email Item"; MessageType: Integer; BodyFilePath: Text[250]; Plaintext: Boolean) - begin - EmailItem.Validate("Plaintext Formatted", Plaintext); - EmailItem.Validate("Message Type", MessageType); - EmailItem.Validate("Body File Path", BodyFilePath); - end; -#endif local procedure GetEmailItem(var EmailItem: Record "Email Item"; MessageType: Option "Custom Message","From Email Body Template"; var EmailBody: Codeunit "Temp Blob") begin diff --git a/src/Layers/ES/Tests/SCM-Service/ServiceStatistics.Codeunit.al b/src/Layers/ES/Tests/SCM-Service/ServiceStatistics.Codeunit.al index 7dffd16a3c6..9845bd0718c 100644 --- a/src/Layers/ES/Tests/SCM-Service/ServiceStatistics.Codeunit.al +++ b/src/Layers/ES/Tests/SCM-Service/ServiceStatistics.Codeunit.al @@ -64,11 +64,10 @@ codeunit 136130 "Service Statistics" AdjProfitPctErr: Label 'Adjusted Profit Percent is incorrect for service order %1.', Comment = '%1 is a document number.'; InvDiscountAmountErr: Label 'Posted Service Invoice Line should have the Invoice Discount Amount'; -#if not CLEAN27 [Test] - [HandlerFunctions('DocumentItemPageHandler')] + [HandlerFunctions('DocumentItemPageHandlerNM')] [Scope('OnPrem')] - procedure InvoiceStatisticsItem() + procedure InvoiceStatisticsItemNM() var ServiceLine: Record "Service Line"; ServiceInvoice: TestPage "Service Invoice"; @@ -80,18 +79,18 @@ codeunit 136130 "Service Statistics" // 2. Exercise: Create Customer, Item, Service Invoice with Item and open Statistics Page. CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. + DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentResourcePageHandler')] + [HandlerFunctions('DocumentResourcePageHandlerNM')] [Scope('OnPrem')] - procedure InvoiceStatisticsResource() + procedure InvoiceStatisticsResourceNM() var ServiceLine: Record "Service Line"; ServiceInvoice: TestPage "Service Invoice"; @@ -103,18 +102,18 @@ codeunit 136130 "Service Statistics" // 2. Exercise: Create Customer, Resource, Service Invoice with Resource and open Statistics Page. CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. + DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentGLAccountPageHandler')] + [HandlerFunctions('DocumentGLAccountPageHandlerNM')] [Scope('OnPrem')] - procedure InvoiceStatisticsGLAccount() + procedure InvoiceStatisticsGLAccountNM() var ServiceLine: Record "Service Line"; ServiceInvoice: TestPage "Service Invoice"; @@ -126,18 +125,18 @@ codeunit 136130 "Service Statistics" // 2. Exercise: Create Customer, G/L Account, Create Service Invoice with G/L Account and open Statistics Page. CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. + DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentGLAccountPageHandler')] + [HandlerFunctions('DocumentGLAccountPageHandlerNM')] [Scope('OnPrem')] - procedure InvoiceStatisticsCost() + procedure InvoiceStatisticsCostNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -151,18 +150,18 @@ codeunit 136130 "Service Statistics" // 2. Exercise: Create Customer, Service Invoice with Cost and open Statistics Page. CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. + DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Cost, ServiceCost.Code); - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,DocumentDiscountPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,DocumentDiscountPageHandlerNM')] [Scope('OnPrem')] - procedure InvoiceWithInvoiceDiscount() + procedure InvoiceWithInvoiceDiscountNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -182,7 +181,7 @@ codeunit 136130 "Service Statistics" // 2. Exercise: Create Item, Resource, G/L Account, Service Invoice with multiple lines, Calculate Invoice Discount // and open Statistics Page. CreateServiceInvoiceHeader(ServiceInvoice, CustomerNo); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. + DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); @@ -190,15 +189,15 @@ codeunit 136130 "Service Statistics" CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Cost, ServiceCost.Code); ServiceInvoice."Calculate Invoice Discount".Invoke(); - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentWithVATPageHandler')] + [HandlerFunctions('DocumentWithVATPageHandlerNM')] [Scope('OnPrem')] - procedure InvoiceWithPriceIncludingVAT() + procedure InvoiceWithPriceIncludingVATNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -215,7 +214,7 @@ codeunit 136130 "Service Statistics" // multiple lines, in lines Allow Invoice Discount as False and open Statistics Page. CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); ServiceInvoice."Prices Including VAT".SetValue(true); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. + DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); @@ -223,15 +222,15 @@ codeunit 136130 "Service Statistics" CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Cost, ServiceCost.Code); LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::Invoice, CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2))); - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ChangeDiscountPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ChangeDiscountPageHandlerNM')] [Scope('OnPrem')] - procedure ChangeDiscountAmountInvoice() + procedure ChangeDiscountAmountInvoiceNM() var ServiceLine: Record "Service Line"; ServiceInvoice: TestPage "Service Invoice"; @@ -249,21 +248,21 @@ codeunit 136130 "Service Statistics" // 2. Exercise: Create Item, Service Invoice, Calculate Invoice Discount, open Statistics Page and change // Invoice Discount Amount and again open Statistics Page. CreateServiceInvoiceHeader(ServiceInvoice, CustomerNo); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. + DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); ServiceInvoice."Calculate Invoice Discount".Invoke(); - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ChangeTotalVATPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ChangeTotalVATPageHandlerNM')] [Scope('OnPrem')] - procedure ChangeTotalVATInvoice() + procedure ChangeTotalVATInvoiceNM() var ServiceLine: Record "Service Line"; ServiceInvoice: TestPage "Service Invoice"; @@ -280,21 +279,21 @@ codeunit 136130 "Service Statistics" // 2. Exercise: Create Item, Service Invoice, Calculate Invoice Discount , open Statistics Page and change // Total Incl. VAT and again open Statistics Page. CreateServiceInvoiceHeader(ServiceInvoice, CustomerNo); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. + DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); ServiceInvoice."Calculate Invoice Discount".Invoke(); - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentCreditLimitPageHandler')] + [HandlerFunctions('DocumentCreditLimitPageHandlerNM')] [Scope('OnPrem')] - procedure CreditLimitLCYOnInvoice() + procedure CreditLimitLCYOnInvoiceNM() var ServiceLine: Record "Service Line"; Customer: Record Customer; @@ -310,15 +309,15 @@ codeunit 136130 "Service Statistics" // 2. Exercise: Create G/L Account, Service Invoice with G/L Account and open Statistics Page. CreateServiceInvoiceHeader(ServiceInvoice, Customer."No."); CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - ServiceInvoice.Statistics.Invoke(); + ServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Credit Limit (LCY) in Statistics Page on Page handler. end; [Test] - [HandlerFunctions('DocumentItemPageHandler')] + [HandlerFunctions('DocumentItemPageHandlerNM')] [Scope('OnPrem')] - procedure CreditMemoStatisticsItem() + procedure CreditMemoStatisticsItemNM() var ServiceLine: Record "Service Line"; ServiceCreditMemo: TestPage "Service Credit Memo"; @@ -333,15 +332,15 @@ codeunit 136130 "Service Statistics" DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentResourcePageHandler')] + [HandlerFunctions('DocumentResourcePageHandlerNM')] [Scope('OnPrem')] - procedure CreditMemoStatisticsResource() + procedure CreditMemoStatisticsResourceNM() var ServiceLine: Record "Service Line"; ServiceCreditMemo: TestPage "Service Credit Memo"; @@ -356,15 +355,15 @@ codeunit 136130 "Service Statistics" DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentGLAccountPageHandler')] + [HandlerFunctions('DocumentGLAccountPageHandlerNM')] [Scope('OnPrem')] - procedure CreditMemoStatisticsGLAccount() + procedure CreditMemoStatisticsGLAccountNM() var ServiceLine: Record "Service Line"; ServiceCreditMemo: TestPage "Service Credit Memo"; @@ -379,15 +378,15 @@ codeunit 136130 "Service Statistics" DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. DocumentType2 := "Service Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentGLAccountPageHandler')] + [HandlerFunctions('DocumentGLAccountPageHandlerNM')] [Scope('OnPrem')] - procedure CreditMemoStatisticsCost() + procedure CreditMemoStatisticsCostNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -404,15 +403,15 @@ codeunit 136130 "Service Statistics" DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Cost, ServiceCost.Code); - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,DocumentDiscountPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,DocumentDiscountPageHandlerNM')] [Scope('OnPrem')] - procedure CreditMemoWithInvoiceDiscount() + procedure CreditMemoWithInvoiceDiscountNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -436,20 +435,17 @@ codeunit 136130 "Service Statistics" CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Cost, ServiceCost.Code); -#if not CLEAN27 - ServiceCreditMemo."Calculate Inv. and Pmt. Disc.".Invoke(); -#else + ServiceCreditMemo."Calculate Invoice Discount".Invoke(); -#endif - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentWithVATPageHandler')] + [HandlerFunctions('DocumentWithVATPageHandlerNM')] [Scope('OnPrem')] - procedure MemoWithPriceIncludingVAT() + procedure MemoWithPriceIncludingVATNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -474,15 +470,15 @@ codeunit 136130 "Service Statistics" CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Cost, ServiceCost.Code); LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::"Credit Memo", CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2))); - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ChangeDiscountPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ChangeDiscountPageHandlerNM')] [Scope('OnPrem')] - procedure ChangeDiscountAmountCreditMemo() + procedure ChangeDiscountAmountCreditMemoNM() var ServiceLine: Record "Service Line"; ServiceCreditMemo: TestPage "Service Credit Memo"; @@ -501,22 +497,18 @@ codeunit 136130 "Service Statistics" DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); -#if not CLEAN27 - ServiceCreditMemo."Calculate Inv. and Pmt. Disc.".Invoke(); -#else ServiceCreditMemo."Calculate Invoice Discount".Invoke(); -#endif - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ChangeTotalVATPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ChangeTotalVATPageHandlerNM')] [Scope('OnPrem')] - procedure ChangeTotalVATCreditMemo() + procedure ChangeTotalVATCreditMemoNM() var ServiceLine: Record "Service Line"; ServiceCreditMemo: TestPage "Service Credit Memo"; @@ -535,22 +527,18 @@ codeunit 136130 "Service Statistics" DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); -#if not CLEAN27 - ServiceCreditMemo."Calculate Inv. and Pmt. Disc.".Invoke(); -#else ServiceCreditMemo."Calculate Invoice Discount".Invoke(); -#endif - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('DocumentCreditLimitPageHandler')] + [HandlerFunctions('DocumentCreditLimitPageHandlerNM')] [Scope('OnPrem')] - procedure CreditLimitLCYOnCreditMemo() + procedure CreditLimitLCYOnCreditMemoNM() var ServiceLine: Record "Service Line"; Customer: Record Customer; @@ -567,15 +555,15 @@ codeunit 136130 "Service Statistics" CreateServiceCreditMemoHeader(ServiceCreditMemo, Customer."No."); CreateServiceCreditMemoLine( ServiceCreditMemo, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - ServiceCreditMemo.Statistics.Invoke(); + ServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Credit Limit (LCY) in Statistics Page on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderItemPageHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderItemPageHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderStatisticsItem() + procedure OrderStatisticsItemNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -598,15 +586,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderResourcePageHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderResourcePageHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderStatisticsResource() + procedure OrderStatisticsResourceNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -629,15 +617,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page Handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderGLAccountPageHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderGLAccountPageHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderStatisticsGLAccount() + procedure OrderStatisticsGLAccountNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -660,15 +648,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page Handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderGLAccountPageHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderGLAccountPageHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderStatisticsCost() + procedure OrderStatisticsCostNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -693,15 +681,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesMultiPageHandler,OrderInvoiceDiscountHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesMultiPageHandler,OrderInvoiceDiscountHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderWithInvoiceDiscount() + procedure OrderWithInvoiceDiscountNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -731,15 +719,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesMultiPageHandler,OrderWithVATPageHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesMultiPageHandler,OrderWithVATPageHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderWithPriceIncludingVAT() + procedure OrderWithPriceIncludingVATNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -769,15 +757,15 @@ codeunit 136130 "Service Statistics" ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::Order, CopyStr(ServiceOrder."No.".Value(), 1, MaxStrLen(DocumentNo2))); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderPageHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderPageHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure ChangeDiscountAmountOrder() + procedure ChangeDiscountAmountOrderNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -804,17 +792,17 @@ codeunit 136130 "Service Statistics" Commit(); ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeTotalVATOrderPageHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeTotalVATOrderPageHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure ChangeTotalVATOrder() + procedure ChangeTotalVATOrderNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -841,17 +829,17 @@ codeunit 136130 "Service Statistics" Commit(); ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToShipPageHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToShipPageHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderWithQuantityToShip() + procedure OrderWithQuantityToShipNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -878,15 +866,15 @@ codeunit 136130 "Service Statistics" ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); UpdateQuantityToShipLine(DocumentNo2); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToShipPageHandler,ShipStrMenuHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToShipPageHandlerNM,ShipStrMenuHandler,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderWithQuantityToShipPost() + procedure OrderWithQuantityToShipPostNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -914,15 +902,15 @@ codeunit 136130 "Service Statistics" ServiceOrder.ServItemLines."Service Lines".Invoke(); UpdateQuantityToShipLine(DocumentNo2); ServiceOrder.Post.Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderShipHandler,ShipStrMenuHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderShipHandlerNM,ShipStrMenuHandler,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure ChangeDiscountAmountOrderShip() + procedure ChangeDiscountAmountOrderShipNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -952,17 +940,17 @@ codeunit 136130 "Service Statistics" ServiceOrder.ServItemLines."Service Lines".Invoke(); UpdateQuantityToShipLine(DocumentNo2); ServiceOrder.Post.Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderShipHandler,ShipStrMenuHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderShipHandlerNM,ShipStrMenuHandler')] [Scope('OnPrem')] - procedure InvoiceDiscountAmountOrderShip() + procedure InvoiceDiscountAmountOrderShipNM() var CustomerNo: Code[20]; InvoiceDiscountAmount: Decimal; @@ -986,16 +974,16 @@ codeunit 136130 "Service Statistics" // [WHEN] Post Service Invoice No2 := LibraryInventory.CreateItemNo(); Type2 := Type2::Item; - CreateAndPostServiceOrderWithInvoiceDiscountAmount(CustomerNo, InvoiceDiscountAmount); + CreateAndPostServiceOrderWithInvoiceDiscountAmountNM(CustomerNo, InvoiceDiscountAmount); // [THEN] Posted Service Line has "Inv. Discount Amount" = 20 VerifyServiceLineInvoiceDiscountAmount(DocumentNo2, InvoiceDiscountAmount); end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeTotalVATOrderShipHandler,ShipStrMenuHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeTotalVATOrderShipHandlerNM,ShipStrMenuHandler,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure ChangeTotalVATAmountOrderShip() + procedure ChangeTotalVATAmountOrderShipNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -1025,17 +1013,17 @@ codeunit 136130 "Service Statistics" ServiceOrder.ServItemLines."Service Lines".Invoke(); UpdateQuantityToShipLine(DocumentNo2); ServiceOrder.Post.Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToInvoicePageHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToInvoicePageHandlerNM,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderWithQuantityToInvoice() + procedure OrderWithQuantityToInvoiceNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -1062,15 +1050,15 @@ codeunit 136130 "Service Statistics" ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); UpdateQuantityToInvoiceLine(DocumentNo2); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToInvoicePageHandler,ShipAndInvoiceStrMenuHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToInvoicePageHandlerNM,ShipAndInvoiceStrMenuHandler,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure OrderWithQuantityToInvoicePost() + procedure OrderWithQuantityToInvoicePostNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -1099,15 +1087,15 @@ codeunit 136130 "Service Statistics" UpdateQuantityToShipLine(DocumentNo2); UpdateQuantityToInvoiceLine(DocumentNo2); ServiceOrder.Post.Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderPostHandler,ShipAndInvoiceStrMenuHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderPostHandlerNM,ShipAndInvoiceStrMenuHandler,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure ChangeDiscountAmountOrderPost() + procedure ChangeDiscountAmountOrderPostNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -1138,17 +1126,17 @@ codeunit 136130 "Service Statistics" UpdateQuantityToShipLine(DocumentNo2); UpdateQuantityToInvoiceLine(DocumentNo2); ServiceOrder.Post.Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeTotalVATOrderPostHandler,ShipAndInvoiceStrMenuHandler,VATAmountLinesPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeTotalVATOrderPostHandlerNM,ShipAndInvoiceStrMenuHandler,VATAmountLinesPageHandler')] [Scope('OnPrem')] - procedure ChangeTotalVATAmountOrderPost() + procedure ChangeTotalVATAmountOrderPostNM() var ServiceLine: Record "Service Line"; ServiceOrder: TestPage "Service Order"; @@ -1179,19 +1167,19 @@ codeunit 136130 "Service Statistics" UpdateQuantityToShipLine(DocumentNo2); UpdateQuantityToInvoiceLine(DocumentNo2); ServiceOrder.Post.Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); UpdateQuantityToShipLine(DocumentNo2); UpdateQuantityToInvoiceLine(DocumentNo2); UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,CreditLimitLCYPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,CreditLimitLCYPageHandlerNM')] [Scope('OnPrem')] - procedure CreditLimitLCYOnOrder() + procedure CreditLimitLCYOnOrderNM() var Customer: Record Customer; ServiceOrder: TestPage "Service Order"; @@ -1213,15 +1201,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceOrder.ServItemLines.First(); ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // 3. Verify: Verify Credit Limit (LCY) in Service Order Statistics Page on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentItemPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentItemPageHandlerNM')] [Scope('OnPrem')] - procedure QuoteStatisticsItem() + procedure QuoteStatisticsItemNM() var ServiceLine: Record "Service Line"; ServiceQuote: TestPage "Service Quote"; @@ -1243,15 +1231,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceQuote.ServItemLine.First(); ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentResourcePageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentResourcePageHandlerNM')] [Scope('OnPrem')] - procedure QuoteStatisticsResource() + procedure QuoteStatisticsResourceNM() var ServiceLine: Record "Service Line"; ServiceQuote: TestPage "Service Quote"; @@ -1273,15 +1261,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceQuote.ServItemLine.First(); ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentGLAccountPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentGLAccountPageHandlerNM')] [Scope('OnPrem')] - procedure QuoteStatisticsGLAccount() + procedure QuoteStatisticsGLAccountNM() var ServiceLine: Record "Service Line"; ServiceQuote: TestPage "Service Quote"; @@ -1303,15 +1291,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceQuote.ServItemLine.First(); ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentGLAccountPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentGLAccountPageHandlerNM')] [Scope('OnPrem')] - procedure QuoteStatisticsCost() + procedure QuoteStatisticsCostNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -1335,15 +1323,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceQuote.ServItemLine.First(); ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesMultiplePageHandler,DocumentDiscountPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesMultiplePageHandler,DocumentDiscountPageHandlerNM')] [Scope('OnPrem')] - procedure QuoteWithInvoiceDiscount() + procedure QuoteWithInvoiceDiscountNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -1372,15 +1360,15 @@ codeunit 136130 "Service Statistics" Commit(); ServiceQuote.ServItemLine.First(); ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesMultiplePageHandler,DocumentWithVATPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesMultiplePageHandler,DocumentWithVATPageHandlerNM')] [Scope('OnPrem')] - procedure QuoteWithPriceIncludingVAT() + procedure QuoteWithPriceIncludingVATNM() var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -1409,15 +1397,15 @@ codeunit 136130 "Service Statistics" ServiceQuote.ServItemLine.First(); ServiceQuote.ServItemLine.ServiceLines.Invoke(); LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::Quote, CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2))); - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,ChangeDiscountPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,ChangeDiscountPageHandlerNM')] [Scope('OnPrem')] - procedure ChangeDiscountAmountQuote() + procedure ChangeDiscountAmountQuoteNM() var ServiceLine: Record "Service Line"; ServiceQuote: TestPage "Service Quote"; @@ -1443,17 +1431,17 @@ codeunit 136130 "Service Statistics" Commit(); ServiceQuote.ServItemLine.First(); ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,ChangeTotalVATPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,ChangeTotalVATPageHandlerNM')] [Scope('OnPrem')] - procedure ChangeTotalVATQuote() + procedure ChangeTotalVATQuoteNM() var ServiceLine: Record "Service Line"; ServiceQuote: TestPage "Service Quote"; @@ -1479,17 +1467,17 @@ codeunit 136130 "Service Statistics" Commit(); ServiceQuote.ServItemLine.First(); ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Order Statistics Page with details on Page handler. end; [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentCreditLimitPageHandler')] + [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentCreditLimitPageHandlerNM')] [Scope('OnPrem')] - procedure CreditLimitLCYOnQuote() + procedure CreditLimitLCYOnQuoteNM() var Customer: Record Customer; ServiceQuote: TestPage "Service Quote"; @@ -1511,7 +1499,7 @@ codeunit 136130 "Service Statistics" Commit(); ServiceQuote.ServItemLine.First(); ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.Statistics.Invoke(); + ServiceQuote.ServiceStatistics.Invoke(); // 3. Verify: Verify Credit Limit (LCY) in Service Statistics Page on Page handler. end; @@ -1519,7 +1507,7 @@ codeunit 136130 "Service Statistics" [Test] [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ShipAndInvoiceStrMenuHandler')] [Scope('OnPrem')] - procedure ServiceShipmentStatistics() + procedure ServiceShipmentStatisticsNM() var ServiceShipmentLine: Record "Service Shipment Line"; ServiceOrder: TestPage "Service Order"; @@ -1549,7 +1537,7 @@ codeunit 136130 "Service Statistics" PostedServiceShipment.OpenView(); PostedServiceShipment.FILTER.SetFilter("No.", FindServiceShipmentHeader(DocumentNo)); ServiceShipmentStatisticsTestPage.Trap(); - PostedServiceShipment."S&tatistics".Invoke(); + PostedServiceShipment."ServiceS&tatistics".Invoke(); // 3. Verify: Verify Quantity on Service Shipment Statistics Page. ServiceShipmentLine.SetRange("Document No.", PostedServiceShipment."No.".Value); @@ -1559,7 +1547,7 @@ codeunit 136130 "Service Statistics" [Test] [Scope('OnPrem')] - procedure PostedInvoiceStatistics() + procedure PostedInvoiceStatisticsNM() var ServiceLine: Record "Service Line"; ServiceInvoiceLine: Record "Service Invoice Line"; @@ -1582,7 +1570,7 @@ codeunit 136130 "Service Statistics" PostedServiceInvoice.OpenView(); PostedServiceInvoice.FILTER.SetFilter("No.", FindServiceInvoiceHeader(DocumentNo)); ServiceInvoiceStatistics.Trap(); - PostedServiceInvoice.Statistics.Invoke(); + PostedServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Invoice Statistics Page with details. ServiceInvoiceLine.SetRange("Document No.", PostedServiceInvoice."No.".Value); @@ -1597,7 +1585,7 @@ codeunit 136130 "Service Statistics" [Test] [Scope('OnPrem')] - procedure CreditLimitLCYOnPostedInvoice() + procedure CreditLimitLCYOnPostedInvoiceNM() var ServiceLine: Record "Service Line"; Customer: Record Customer; @@ -1621,7 +1609,7 @@ codeunit 136130 "Service Statistics" PostedServiceInvoice.OpenView(); PostedServiceInvoice.FILTER.SetFilter("No.", FindServiceInvoiceHeader(DocumentNo)); ServiceInvoiceStatistics.Trap(); - PostedServiceInvoice.Statistics.Invoke(); + PostedServiceInvoice.ServiceStatistics.Invoke(); // 3. Verify: Verify Credit Limit (LCY) on Service Invoice Statistics Page. ServiceInvoiceStatistics.CreditLimitLCY.AssertEquals(Customer."Credit Limit (LCY)"); @@ -1630,7 +1618,7 @@ codeunit 136130 "Service Statistics" [Test] [HandlerFunctions('ConfirmHandlerTrue')] [Scope('OnPrem')] - procedure PostedCreditMemoStatistics() + procedure PostedCreditMemoStatisticsNM() var ServiceLine: Record "Service Line"; ServiceCrMemoLine: Record "Service Cr.Memo Line"; @@ -1654,7 +1642,7 @@ codeunit 136130 "Service Statistics" PostedServiceCreditMemo.OpenView(); PostedServiceCreditMemo.FILTER.SetFilter("No.", FindServiceCreditMemoHeader(DocumentNo)); ServiceCreditMemoStatistics.Trap(); - PostedServiceCreditMemo.Statistics.Invoke(); + PostedServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Service Credit Memo Statistics Page with details. ServiceCrMemoLine.SetRange("Document No.", PostedServiceCreditMemo."No.".Value); @@ -1669,7 +1657,7 @@ codeunit 136130 "Service Statistics" [Test] [HandlerFunctions('ConfirmHandlerTrue')] [Scope('OnPrem')] - procedure CreditLimitLCYOnPostedMemo() + procedure CreditLimitLCYOnPostedMemoNM() var ServiceLine: Record "Service Line"; Customer: Record Customer; @@ -1694,16 +1682,16 @@ codeunit 136130 "Service Statistics" PostedServiceCreditMemo.OpenView(); PostedServiceCreditMemo.FILTER.SetFilter("No.", FindServiceCreditMemoHeader(DocumentNo)); ServiceCreditMemoStatistics.Trap(); - PostedServiceCreditMemo.Statistics.Invoke(); + PostedServiceCreditMemo.ServiceStatistics.Invoke(); // 3. Verify: Verify Credit Limit (LCY) on Service Credit Memo Statistics Page. ServiceCreditMemoStatistics.CreditLimitLCY.AssertEquals(Customer."Credit Limit (LCY)"); end; [Test] - [HandlerFunctions('ServiceOrderStatNegativeProfitPageHandler')] + [HandlerFunctions('ServiceOrderStatNegativeProfitPageHandlerNM')] [Scope('OnPrem')] - procedure OrderStatisticsNegativeProfit() + procedure OrderStatisticsNegativeProfitNM() var ServiceLine: Record "Service Line"; ServiceHeader: Record "Service Header"; @@ -1732,7 +1720,7 @@ codeunit 136130 "Service Statistics" // [WHEN] Open Service Order Statistics page ServiceOrder.OpenEdit(); ServiceOrder.FILTER.SetFilter("No.", ServiceHeader."No."); - ServiceOrder.Statistics.Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); // [THEN] Validate Original Profit (LCY), Original Profit %, Adjusted Profit (LCY), Adjusted Profit % AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); @@ -1747,368 +1735,385 @@ codeunit 136130 "Service Statistics" Assert.AreEqual(ProfitPct, LibraryVariableStorage.DequeueDecimal(), AdjProfitPctErr); LibraryVariableStorage.AssertEmpty(); end; -#endif + [Test] - [HandlerFunctions('DocumentItemPageHandlerNM')] [Scope('OnPrem')] - procedure InvoiceStatisticsItemNM() + procedure InvDiscAmtAppliedOnPostedServInvWhenCalcInvDiscEnabled() var + Customer: Record Customer; + Item: Record Item; + ServiceHeader: Record "Service Header"; + ServiceInvoiceLine: Record "Service Invoice Line"; ServiceLine: Record "Service Line"; - ServiceInvoice: TestPage "Service Invoice"; + ServiceMgtSetup: Record "Service Mgt. Setup"; + ServiceCalcDiscount: Codeunit "Service-Calc. Discount"; + ManualInvDiscountAmount: Decimal; + PostedInvoiceNo: Code[20]; begin - // Test creation of Service Invoice with Item and verify Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup. + // [FEATURE] [AI test] + // [SCENARIO 626466] Invoice Discount Amount manually entered on Service Order is preserved when Calc. Inv. Discount is enabled Initialize(); - // 2. Exercise: Create Customer, Item, Service Invoice with Item and open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - ServiceInvoice.ServiceStatistics.Invoke(); + // [GIVEN] Sales & Receivables Setup "Calc. Inv. Discount" = TRUE + LibrarySales.SetCalcInvDiscount(true); - // 3. Verify: Verify Statistics Page with details on Page handler. - end; + // [GIVEN] Customer "C" without Cust. Invoice Disc. records + LibrarySales.CreateCustomer(Customer); - [Test] - [HandlerFunctions('DocumentResourcePageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceStatisticsResourceNM() - var - ServiceLine: Record "Service Line"; - ServiceInvoice: TestPage "Service Invoice"; - begin - // Test creation of Service Invoice with Resource and verify Statistics Page. + // [GIVEN] Item "I" + LibraryInventory.CreateItem(Item); - // 1. Setup: Find VAT Posting Setup. - Initialize(); + // [GIVEN] Service Order "SO" with Service Line for Item "I" + ServiceMgtSetup.Get(); + ServiceMgtSetup.Validate("Link Service to Service Item", false); + ServiceMgtSetup.Modify(true); + LibraryService.CreateServiceHeader(ServiceHeader, ServiceHeader."Document Type"::Order, Customer."No."); + LibraryService.CreateServiceLineWithQuantity( + ServiceLine, ServiceHeader, ServiceLine.Type::Item, Item."No.", LibraryRandom.RandIntInRange(5, 10)); + ServiceLine.Validate("Unit Price", LibraryRandom.RandDecInRange(100, 200, 2)); + ServiceLine.Modify(true); - // 2. Exercise: Create Customer, Resource, Service Invoice with Resource and open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); - ServiceInvoice.ServiceStatistics.Invoke(); + // [GIVEN] Manually enter Invoice Discount Amount on Service Line + ManualInvDiscountAmount := Round(ServiceLine."Line Amount" * LibraryRandom.RandIntInRange(5, 15) / 100); + ServiceLine.Validate("Inv. Discount Amount", ManualInvDiscountAmount); + ServiceLine.Modify(true); - // 3. Verify: Verify Statistics Page with details on Page handler. + // [WHEN] Run Service-Calc. Discount (simulates closing Statistics page) + ServiceCalcDiscount.Run(ServiceLine); + ServiceLine.Get(ServiceLine."Document Type", ServiceLine."Document No.", ServiceLine."Line No."); + + // [GIVEN] Store the Service Order Amount Including VAT before posting + ServiceHeader.CalcFields("Amount Including VAT"); + + // [WHEN] Post Service Order (Ship and Invoice) + LibraryService.PostServiceOrder(ServiceHeader, true, false, true); + + // [THEN] Posted Service Invoice Line has the Invoice Discount Amount + PostedInvoiceNo := FindServiceInvoiceHeaderByOrderNo(ServiceHeader."No."); + ServiceInvoiceLine.SetRange("Document No.", PostedInvoiceNo); + ServiceInvoiceLine.FindFirst(); + Assert.AreEqual( + ManualInvDiscountAmount, + ServiceInvoiceLine."Inv. Discount Amount", + InvDiscountAmountErr); end; - [Test] - [HandlerFunctions('DocumentGLAccountPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceStatisticsGLAccountNM() - var - ServiceLine: Record "Service Line"; - ServiceInvoice: TestPage "Service Invoice"; + local procedure Initialize() begin - // Test creation of Service Invoice with G/L Account and verify Statistics Page. + LibraryTestInitialize.OnTestInitialize(CODEUNIT::"Service Statistics"); + InitVariables(); + LibrarySetupStorage.Restore(); - // 1. Setup: Find VAT Posting Setup. - Initialize(); + if isInitialized then + exit; + LibraryTestInitialize.OnBeforeTestSuiteInitialize(CODEUNIT::"Service Statistics"); - // 2. Exercise: Create Customer, G/L Account, Create Service Invoice with G/L Account and open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - ServiceInvoice.ServiceStatistics.Invoke(); + LibraryService.SetupServiceMgtNoSeries(); + LibraryERMCountryData.UpdateSalesReceivablesSetup(); + LibraryERMCountryData.UpdateGeneralPostingSetup(); + LibraryERMCountryData.UpdateGeneralLedgerSetup(); + LibrarySales.SetStockoutWarning(false); - // 3. Verify: Verify Statistics Page with details on Page handler. + LibrarySetupStorage.Save(DATABASE::"Sales & Receivables Setup"); + + isInitialized := true; + Commit(); + LibraryTestInitialize.OnAfterTestSuiteInitialize(CODEUNIT::"Service Statistics"); end; - [Test] - [HandlerFunctions('DocumentGLAccountPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceStatisticsCostNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceInvoice: TestPage "Service Invoice"; + local procedure CreateCustomer(): Code[20] begin - // Test creation of Service Invoice with Cost and verify Statistics Page. - - // 1. Setup: Find VAT Posting Setup and Service Cost. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); + exit(LibrarySales.CreateCustomerNo()); + end; - // 2. Exercise: Create Customer, Service Invoice with Cost and open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Cost, ServiceCost.Code); - ServiceInvoice.ServiceStatistics.Invoke(); + local procedure CreateCustomerInvoiceDiscount(CustomerNo: Code[20]) + var + CustInvoiceDisc: Record "Cust. Invoice Disc."; + begin + LibraryERM.CreateInvDiscForCustomer(CustInvoiceDisc, CustomerNo, '', 0); // Set Zero for Charge Amount. + CustInvoiceDisc.Validate("Discount %", LibraryRandom.RandDec(50, 2)); // Take Random Discount. + CustInvoiceDisc.Modify(true); + end; - // 3. Verify: Verify Statistics Page with details on Page handler. + local procedure CreateCustomerWithCreditLimit(var Customer: Record Customer) + begin + LibrarySales.CreateCustomer(Customer); + Customer.Validate("Credit Limit (LCY)", LibraryRandom.RandDec(100, 2)); // Take Random Credit Limit (LCY). + Customer.Modify(true); end; - [Test] - [HandlerFunctions('ConfirmHandlerTrue,DocumentDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceWithInvoiceDiscountNM() + local procedure CreateServiceCreditMemoHeader(var ServiceCreditMemo: TestPage "Service Credit Memo"; CustomerNo: Code[20]) var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceInvoice: TestPage "Service Invoice"; - CustomerNo: Code[20]; + ServiceHeader: Record "Service Header"; + ServiceCreditMemoNo: Code[20]; begin - // Test creation of Service Invoice with multiple lines, Allow Invoice Discount and verify Statistics Page. + ServiceCreditMemoNo := LibraryService.CreateServiceCreditMemoHeaderUsingPage(); + Commit(); - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup,Service Cost and - // Create Customer, Customer Invoice Discount. - Initialize(); + Clear(ServiceCreditMemo); + ServiceCreditMemo.OpenEdit(); + ServiceCreditMemo.FILTER.SetFilter("Document Type", Format(ServiceHeader."Document Type"::"Credit Memo")); + ServiceCreditMemo.FILTER.SetFilter("No.", ServiceCreditMemoNo); + ServiceCreditMemo."Customer No.".SetValue(CustomerNo); + end; - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - LibraryService.FindServiceCost(ServiceCost); + local procedure CreateServiceCreditMemoLine(var ServiceCreditMemo: TestPage "Service Credit Memo"; Type: Enum "Service Line Type"; No: Code[20]) + begin + ServiceCreditMemo.ServLines.Type.SetValue(Type); + ServiceCreditMemo.ServLines."No.".SetValue(No); - // 2. Exercise: Create Item, Resource, G/L Account, Service Invoice with multiple lines, Calculate Invoice Discount - // and open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, CustomerNo); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Cost, ServiceCost.Code); + // Take Random Quantity and Unit Price. + ServiceCreditMemo.ServLines.Quantity.SetValue(LibraryRandom.RandDec(10, 2)); + ServiceCreditMemo.ServLines."Unit Price".SetValue(LibraryRandom.RandDec(100, 2)); + ServiceCreditMemo.ServLines.New(); + end; - ServiceInvoice."Calculate Invoice Discount".Invoke(); - ServiceInvoice.ServiceStatistics.Invoke(); + local procedure CreateServiceLine(var ServiceLines: TestPage "Service Lines"; Type: Option; No: Code[20]) + begin + ServiceLines.Type.SetValue(Type); + ServiceLines."No.".SetValue(No); - // 3. Verify: Verify Statistics Page with details on Page handler. + // Take Random Quantity and Unit Price. + ServiceLines.Quantity.SetValue(2 * LibraryRandom.RandDec(10, 2)); + ServiceLines."Unit Price".SetValue(LibraryRandom.RandDec(100, 2)); + ServiceLines.New(); end; - [Test] - [HandlerFunctions('DocumentWithVATPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceWithPriceIncludingVATNM() + local procedure CreateServiceInvoiceHeader(var ServiceInvoice: TestPage "Service Invoice"; CustomerNo: Code[20]) var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceInvoice: TestPage "Service Invoice"; + ServiceHeader: Record "Service Header"; + ServiceInvoiceNo: Code[20]; begin - // Test creation of Service Invoice with multiple lines, Price Including Vat and verify Statistics page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Service Cost. - Initialize(); - - LibraryService.FindServiceCost(ServiceCost); + ServiceInvoice.OpenNew(); + ServiceInvoice."Customer No.".Activate(); + ServiceInvoiceNo := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(ServiceInvoiceNo)); + ServiceInvoice.OK().Invoke(); + Commit(); - // 2. Exercise: Create Customer, Item, Resource,G/L Account, Service Invoice with Prices Including VAT as True, - // multiple lines, in lines Allow Invoice Discount as False and open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - ServiceInvoice."Prices Including VAT".SetValue(true); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Cost, ServiceCost.Code); + Clear(ServiceInvoice); + ServiceInvoice.OpenEdit(); + ServiceInvoice.FILTER.SetFilter("Document Type", Format(ServiceHeader."Document Type"::Invoice)); + ServiceInvoice.FILTER.SetFilter("No.", ServiceInvoiceNo); + ServiceInvoice."Customer No.".SetValue(CustomerNo); + end; - LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::Invoice, CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2))); - ServiceInvoice.ServiceStatistics.Invoke(); + local procedure CreateServiceInvoiceLine(var ServiceInvoice: TestPage "Service Invoice"; Type: Enum "Service Line Type"; No: Code[20]) + begin + ServiceInvoice.ServLines.Type.SetValue(Type); + ServiceInvoice.ServLines."No.".SetValue(No); - // 3. Verify: Verify Statistics Page with details on Page handler. + // Take Random Quantity and Unit Price. + ServiceInvoice.ServLines.Quantity.SetValue(LibraryRandom.RandDec(10, 2)); + ServiceInvoice.ServLines."Unit Price".SetValue(LibraryRandom.RandDec(100, 2)); + ServiceInvoice.ServLines.New(); end; - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ChangeDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeDiscountAmountInvoiceNM() + local procedure CreateServiceOrderHeader(var ServiceOrder: TestPage "Service Order"; CustomerNo: Code[20]) var - ServiceLine: Record "Service Line"; - ServiceInvoice: TestPage "Service Invoice"; - CustomerNo: Code[20]; + ServiceHeader: Record "Service Header"; + ServiceOrderNo: Code[20]; begin - // Test creation of Service Invoice with Allow Invoice Discount and change Invoice Discount Amount on Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup, Create Customer and - // Customer Invoice Discount. - Initialize(); - - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); + ServiceOrderNo := LibraryService.CreateServiceOrderHeaderUsingPage(); + Commit(); - // 2. Exercise: Create Item, Service Invoice, Calculate Invoice Discount, open Statistics Page and change - // Invoice Discount Amount and again open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, CustomerNo); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - ServiceInvoice."Calculate Invoice Discount".Invoke(); - ServiceInvoice.ServiceStatistics.Invoke(); - UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceInvoice.ServiceStatistics.Invoke(); + Clear(ServiceOrder); + ServiceOrder.OpenEdit(); + ServiceOrder.FILTER.SetFilter("Document Type", Format(ServiceHeader."Document Type"::Order)); + ServiceOrder.FILTER.SetFilter("No.", ServiceOrderNo); + ServiceOrder."Customer No.".SetValue(CustomerNo); + end; - // 3. Verify: Verify Statistics Page with details on Page handler. + local procedure CreateServiceOrderItemLine(var ServiceOrder: TestPage "Service Order") + begin + ServiceOrder.ServItemLines.Description.SetValue(ServiceOrder."No.".Value); + ServiceOrder.ServItemLines.New(); end; - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ChangeTotalVATPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeTotalVATInvoiceNM() + local procedure CreateServiceQuoteHeader(var ServiceQuote: TestPage "Service Quote"; CustomerNo: Code[20]) var - ServiceLine: Record "Service Line"; - ServiceInvoice: TestPage "Service Invoice"; - CustomerNo: Code[20]; + ServiceHeader: Record "Service Header"; + ServiceQuoteNo: Code[20]; begin - // Test creation of Service Invoice with Allow Invoice Discount and change Total Incl. VAT on Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup, Create Customer and - // Customer Invoice Discount. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); + ServiceQuote.OpenNew(); + ServiceQuote."Customer No.".Activate(); + ServiceQuoteNo := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(ServiceQuoteNo)); + ServiceQuote.OK().Invoke(); + Commit(); - // 2. Exercise: Create Item, Service Invoice, Calculate Invoice Discount , open Statistics Page and change - // Total Incl. VAT and again open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, CustomerNo); - DocumentNo2 := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - ServiceInvoice."Calculate Invoice Discount".Invoke(); - ServiceInvoice.ServiceStatistics.Invoke(); - UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceInvoice.ServiceStatistics.Invoke(); + Clear(ServiceQuote); + ServiceQuote.OpenEdit(); + ServiceQuote.FILTER.SetFilter("Document Type", Format(ServiceHeader."Document Type"::Quote)); + ServiceQuote.FILTER.SetFilter("No.", ServiceQuoteNo); + ServiceQuote."Customer No.".SetValue(CustomerNo); + end; - // 3. Verify: Verify Statistics Page with details on Page handler. + local procedure CreateServiceQuoteItemLine(var ServiceQuote: TestPage "Service Quote") + begin + ServiceQuote.ServItemLine.Description.SetValue(ServiceQuote."No.".Value); + ServiceQuote.ServItemLine.New(); end; - [Test] - [HandlerFunctions('DocumentCreditLimitPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditLimitLCYOnInvoiceNM() - var - ServiceLine: Record "Service Line"; - Customer: Record Customer; - ServiceInvoice: TestPage "Service Invoice"; + local procedure CreateServiceQuoteLine(var ServiceQuoteLines: TestPage "Service Quote Lines"; Type: Option; No: Code[20]) begin - // Test creation of Service Invoice and verify Credit limit on Statistics Page. + ServiceQuoteLines.Type.SetValue(Type); + ServiceQuoteLines."No.".SetValue(No); - // 1. Setup: Create Customer with Credit Limit(LCY). - Initialize(); - CreateCustomerWithCreditLimit(Customer); - CreditLimitLCY := Customer."Credit Limit (LCY)"; // Assign global variable for page handler. - - // 2. Exercise: Create G/L Account, Service Invoice with G/L Account and open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, Customer."No."); - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - ServiceInvoice.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Credit Limit (LCY) in Statistics Page on Page handler. + // Take Random Quantity and Unit Price. + ServiceQuoteLines.Quantity.SetValue(LibraryRandom.RandDec(10, 2)); + ServiceQuoteLines."Unit Price".SetValue(LibraryRandom.RandDec(100, 2)); + ServiceQuoteLines.New(); end; - - [Test] - [HandlerFunctions('DocumentItemPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditMemoStatisticsItemNM() + local procedure CreateAndPostServiceOrderWithInvoiceDiscountAmountNM(CustomerNo: Code[20]; var InvoiceDiscountAmount: Decimal) var ServiceLine: Record "Service Line"; - ServiceCreditMemo: TestPage "Service Credit Memo"; + ServiceOrder: TestPage "Service Order"; begin - // Test creation of Service Credit Memo with Item and verify Statistics Page. + CreateServiceOrderHeader(ServiceOrder, CustomerNo); + CreateServiceOrderItemLine(ServiceOrder); + DocumentNo2 := CopyStr(ServiceOrder."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. + DocumentType2 := ServiceLine."Document Type"::Order; // Assign global variable for page handler. + Commit(); + ServiceOrder.ServItemLines.First(); + ServiceOrder.ServItemLines."Service Lines".Invoke(); + ServiceOrder.ServiceOrderStatistics.Invoke(); + FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); + InvoiceDiscountAmount := ServiceLine."Inv. Discount Amount"; + ServiceOrder.Post.Invoke(); + end; - // 1. Setup - Initialize(); + local procedure FindServiceLine(var ServiceLine: Record "Service Line"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) + begin + ServiceLine.SetRange("Document Type", DocumentType); + ServiceLine.SetRange("Document No.", DocumentNo); + ServiceLine.FindSet(); + end; - // 2. Exercise: Create Customer, Item, Service Credit Memo with Item and open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - ServiceCreditMemo.ServiceStatistics.Invoke(); + local procedure FilterServiceLine(var ServiceLine: Record "Service Line"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) + begin + ServiceLine.SetRange("Document Type", DocumentType); + ServiceLine.SetRange("Document No.", DocumentNo); + end; - // 3. Verify: Verify Statistics Page with details on Page handler. + local procedure FindServiceCreditMemoHeader(PreAssignedNo: Code[20]): Code[20] + var + ServiceCrMemoHeader: Record "Service Cr.Memo Header"; + begin + ServiceCrMemoHeader.SetRange("Pre-Assigned No.", PreAssignedNo); + ServiceCrMemoHeader.FindFirst(); + exit(ServiceCrMemoHeader."No."); end; - [Test] - [HandlerFunctions('DocumentResourcePageHandlerNM')] - [Scope('OnPrem')] - procedure CreditMemoStatisticsResourceNM() + local procedure FindServiceShipmentHeader(OrderNo: Code[20]): Code[20] var - ServiceLine: Record "Service Line"; - ServiceCreditMemo: TestPage "Service Credit Memo"; + ServiceShipmentHeader: Record "Service Shipment Header"; begin - // Test creation of Service Credit Memo with Resource and verify Statistics Page. + ServiceShipmentHeader.SetRange("Order No.", OrderNo); + ServiceShipmentHeader.FindFirst(); + exit(ServiceShipmentHeader."No."); + end; - // 1. Setup - Initialize(); + local procedure FindServiceInvoiceHeader(PreAssignedNo: Code[20]): Code[20] + var + ServiceInvoiceHeader: Record "Service Invoice Header"; + begin + ServiceInvoiceHeader.SetRange("Pre-Assigned No.", PreAssignedNo); + ServiceInvoiceHeader.FindFirst(); + exit(ServiceInvoiceHeader."No."); + end; - // 2. Exercise: Create Customer, Resource, Service Credit Memo with Resource and open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); - ServiceCreditMemo.ServiceStatistics.Invoke(); + local procedure GetAmountRoundingPrecision(): Decimal + var + GeneralLedgerSetup: Record "General Ledger Setup"; + begin + GeneralLedgerSetup.Get(); + exit(GeneralLedgerSetup."Amount Rounding Precision"); + end; - // 3. Verify: Verify Statistics Page with details on Page handler. + local procedure InitVariables() + begin + Clear(Type2); + Clear(DocumentType2); + No2 := ''; + ItemNo := ''; + GLAccountNo := ''; + ResourceNo := ''; + CostCode := ''; + DocumentNo2 := ''; + CreditLimitLCY := 0; + UpdateDiscountAmount := false; + UpdateTotalVAT := false; end; - [Test] - [HandlerFunctions('DocumentGLAccountPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditMemoStatisticsGLAccountNM() + local procedure LineWithoutAllowInvoiceDisc(DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) var ServiceLine: Record "Service Line"; - ServiceCreditMemo: TestPage "Service Credit Memo"; begin - // Test creation of Service Credit Memo with G/L Account and verify Statistics Page. + FindServiceLine(ServiceLine, DocumentType, DocumentNo); + repeat + ServiceLine.Validate("Allow Invoice Disc.", false); + ServiceLine.Modify(true); + until ServiceLine.Next() = 0; + end; - // 1. Setup - Initialize(); + local procedure PostServiceInvoice(ServiceInvoice: TestPage "Service Invoice") + var + ServiceHeader: Record "Service Header"; + Ship: Boolean; + Consume: Boolean; + Invoice: Boolean; + begin + ServiceHeader.Get(ServiceHeader."Document Type"::Invoice, ServiceInvoice."No.".Value); + Ship := false; + Consume := false; + Invoice := false; + LibraryService.PostServiceOrder(ServiceHeader, Ship, Consume, Invoice); + end; - // 2. Exercise: Create Customer, G/L Account, Service Credit Memo with G/L Account and open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := "Service Document Type"::"Credit Memo"; // Assign global variable for page handler. - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - ServiceCreditMemo.ServiceStatistics.Invoke(); + local procedure UpdateDiscountAmountOrder(ServiceOrderStatistics: TestPage "Service Order Statistics") + var + InvoiceDiscountAmount: Decimal; + begin + Evaluate(InvoiceDiscountAmount, ServiceOrderStatistics."Inv. Discount Amount_General".Value); - // 3. Verify: Verify Statistics Page with details on Page handler. + // Take Random for Invoice Discount Amount. + ServiceOrderStatistics."Inv. Discount Amount_General".SetValue( + InvoiceDiscountAmount + LibraryRandom.RandDec(5, 2)); end; - [Test] - [HandlerFunctions('DocumentGLAccountPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditMemoStatisticsCostNM() + local procedure UpdateDiscountAmountStatistics(ServiceStatistics: TestPage "Service Statistics") var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceCreditMemo: TestPage "Service Credit Memo"; + InvoiceDiscountAmount: Decimal; begin - // Test creation of Service Credit Memo with Cost and verify Statistics Page. - - // 1. Setup: Find Service Cost. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); + Evaluate(InvoiceDiscountAmount, ServiceStatistics."Inv. Discount Amount_General".Value); - // 2. Exercise: Create Customer, Service Credit Memo with Cost and open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, CreateCustomer()); - DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Cost, ServiceCost.Code); - ServiceCreditMemo.ServiceStatistics.Invoke(); + // Take Random for Invoice Discount Amount. + ServiceStatistics."Inv. Discount Amount_General".SetValue( + InvoiceDiscountAmount + LibraryRandom.RandDec(5, 2)); + end; - // 3. Verify: Verify Statistics Page with details on Page handler. + local procedure UpdateQuantityToShipLine(DocumentNo: Code[20]) + var + ServiceLine: Record "Service Line"; + begin + FindServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); + ServiceLine.Validate("Qty. to Ship", ServiceLine.Quantity / 2); // Dividing by 2 to take partial Qty. to Ship. + ServiceLine.Modify(true); end; - [Test] - [HandlerFunctions('ConfirmHandlerTrue,DocumentDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditMemoWithInvoiceDiscountNM() + local procedure UpdateQuantityToInvoiceLine(DocumentNo: Code[20]) var ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceCreditMemo: TestPage "Service Credit Memo"; - CustomerNo: Code[20]; begin - // Test creation of Service Credit Memo with multiple lines, Allow Invoice Discount and verify Statistics Page. + FindServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); + ServiceLine.Validate("Qty. to Invoice", ServiceLine.Quantity / 2); // Dividing by 2 to take partial Qty. to Invoice. + ServiceLine.Modify(true); + end; - // 1. Setup: Find Service Cost and Create Customer, Customer Invoice Discount. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - LibraryService.FindServiceCost(ServiceCost); + local procedure UpdateTotalVATOrderStatistics(ServiceOrderStatistics: TestPage "Service Order Statistics") + var + TotalInclVAT: Decimal; + begin + Evaluate(TotalInclVAT, ServiceOrderStatistics."Total Incl. VAT_General".Value); // 2. Exercise: Create Item, Resource, G/L Account, Service Credit Memo with multiple lines, Calculate Invoice Discount // and open Statistics Page. @@ -2119,20 +2124,14 @@ codeunit 136130 "Service Statistics" CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Cost, ServiceCost.Code); -#if not CLEAN27 - ServiceCreditMemo."Calculate Inv. and Pmt. Disc.".Invoke(); -#else ServiceCreditMemo."Calculate Invoice Discount".Invoke(); -#endif ServiceCreditMemo.ServiceStatistics.Invoke(); - // 3. Verify: Verify Statistics Page with details on Page handler. + // Take Random for Total Incl. VAT. + ServiceStatistics."Total Incl. VAT_General".SetValue(TotalInclVAT + LibraryRandom.RandDec(5, 2)); end; - [Test] - [HandlerFunctions('DocumentWithVATPageHandlerNM')] - [Scope('OnPrem')] - procedure MemoWithPriceIncludingVATNM() + local procedure VerifyOrderLineItems(ServiceOrderStatistics: TestPage "Service Order Statistics"; DocumentNo: Code[20]) var ServiceLine: Record "Service Line"; ServiceCost: Record "Service Cost"; @@ -2184,11 +2183,7 @@ codeunit 136130 "Service Statistics" DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); -#if not CLEAN27 - ServiceCreditMemo."Calculate Inv. and Pmt. Disc.".Invoke(); -#else ServiceCreditMemo."Calculate Invoice Discount".Invoke(); -#endif ServiceCreditMemo.ServiceStatistics.Invoke(); UpdateDiscountAmount := true; // Assign global variable for page handler. ServiceCreditMemo.ServiceStatistics.Invoke(); @@ -2218,11 +2213,7 @@ codeunit 136130 "Service Statistics" DocumentNo2 := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); -#if not CLEAN27 - ServiceCreditMemo."Calculate Inv. and Pmt. Disc.".Invoke(); -#else ServiceCreditMemo."Calculate Invoice Discount".Invoke(); -#endif ServiceCreditMemo.ServiceStatistics.Invoke(); UpdateTotalVAT := true; // Assign global variable for page handler. ServiceCreditMemo.ServiceStatistics.Invoke(); @@ -3665,25 +3656,7 @@ codeunit 136130 "Service Statistics" ServiceQuoteLines."Unit Price".SetValue(LibraryRandom.RandDec(100, 2)); ServiceQuoteLines.New(); end; -#if not CLEAN27 - local procedure CreateAndPostServiceOrderWithInvoiceDiscountAmount(CustomerNo: Code[20]; var InvoiceDiscountAmount: Decimal) - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - begin - CreateServiceOrderHeader(ServiceOrder, CustomerNo); - CreateServiceOrderItemLine(ServiceOrder); - DocumentNo2 := CopyStr(ServiceOrder."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::Order; // Assign global variable for page handler. - Commit(); - ServiceOrder.ServItemLines.First(); - ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.Statistics.Invoke(); - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - InvoiceDiscountAmount := ServiceLine."Inv. Discount Amount"; - ServiceOrder.Post.Invoke(); - end; -#endif + local procedure CreateAndPostServiceOrderWithInvoiceDiscountAmountNM(CustomerNo: Code[20]; var InvoiceDiscountAmount: Decimal) var ServiceLine: Record "Service Line"; @@ -3941,22 +3914,101 @@ codeunit 136130 "Service Statistics" begin AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. FilterServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); - ServiceLine.SetFilter(Type, '%1|%2', ServiceLine.Type::Cost, ServiceLine.Type::"G/L Account"); - ServiceLine.FindSet(); - repeat - AmountIncludingVAT += ServiceLine."Amount Including VAT"; - Amount += ServiceLine.Amount; - InvDiscountAmount += ServiceLine."Inv. Discount Amount"; - until ServiceLine.Next() = 0; + ServiceLine.SetRange(Type, ServiceLine.Type::Item); + ServiceLine.FindFirst(); - Evaluate(AmountCosts, ServiceOrderStatistics.Amount_Costs.Value); - Evaluate(VATAmountCosts, ServiceOrderStatistics."VAT Amount_Costs".Value); - Evaluate(TotalInclVATCosts, ServiceOrderStatistics."Total Incl. VAT_Costs".Value); - Evaluate(SalesLCYCosts, ServiceOrderStatistics."Sales (LCY)_Costs".Value); - Evaluate(InvDiscountAmountCosts, ServiceOrderStatistics."Inv. Discount Amount_Costs".Value); + Evaluate(AmountItems, ServiceOrderStatistics.Amount_Items.Value); + Evaluate(VATAmountItems, ServiceOrderStatistics."VAT Amount_Items".Value); + Evaluate(TotalInclVATItems, ServiceOrderStatistics."Total Incl. VAT_Items".Value); + Evaluate(SalesLCYItems, ServiceOrderStatistics."Sales (LCY)_Items".Value); + Evaluate(InvDiscountAmountItems, ServiceOrderStatistics."Inv. Discount Amount_Items".Value); Assert.AreNearlyEqual( - Amount + InvDiscountAmount, AmountCosts, AmountRoundingPrecision, + ServiceLine.Amount + ServiceLine."Inv. Discount Amount", AmountItems, AmountRoundingPrecision, + StrSubstNo(AmountErr, AmountItems, ServiceLine.Amount + ServiceLine."Inv. Discount Amount")); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT" - ServiceLine.Amount, VATAmountItems, AmountRoundingPrecision, + StrSubstNo(VATAmountErr, VATAmountItems, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT", TotalInclVATItems, AmountRoundingPrecision, + StrSubstNo(AmountErr, TotalInclVATItems, ServiceLine."Amount Including VAT")); + Assert.AreNearlyEqual( + ServiceLine.Amount, SalesLCYItems, AmountRoundingPrecision, + StrSubstNo(SalesLCYErr, SalesLCYItems, ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Inv. Discount Amount", InvDiscountAmountItems, AmountRoundingPrecision, + StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountItems, ServiceLine."Inv. Discount Amount")); + end; + + local procedure VerifyOrderLineResources(ServiceOrderStatistics: TestPage "Service Order Statistics"; DocumentNo: Code[20]) + var + ServiceLine: Record "Service Line"; + AmountResources: Decimal; + VATAmountResources: Decimal; + TotalInclVATResources: Decimal; + SalesLCYResources: Decimal; + InvDiscountAmountResources: Decimal; + AmountRoundingPrecision: Decimal; + begin + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + FilterServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); + ServiceLine.SetRange(Type, ServiceLine.Type::Resource); + ServiceLine.FindFirst(); + + Evaluate(AmountResources, ServiceOrderStatistics.Amount_Resources.Value); + Evaluate(VATAmountResources, ServiceOrderStatistics."VAT Amount_Resources".Value); + Evaluate(TotalInclVATResources, ServiceOrderStatistics."Total Incl. VAT_Resources".Value); + Evaluate(SalesLCYResources, ServiceOrderStatistics."Sales (LCY)_Resources".Value); + Evaluate(InvDiscountAmountResources, ServiceOrderStatistics."Inv. Discount Amount_Resources".Value); + + Assert.AreNearlyEqual( + ServiceLine.Amount + ServiceLine."Inv. Discount Amount", AmountResources, AmountRoundingPrecision, + StrSubstNo(AmountErr, AmountResources, ServiceLine.Amount + ServiceLine."Inv. Discount Amount")); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT" - ServiceLine.Amount, VATAmountResources, AmountRoundingPrecision, + StrSubstNo(VATAmountErr, VATAmountResources, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT", TotalInclVATResources, AmountRoundingPrecision, + StrSubstNo(AmountErr, TotalInclVATResources, ServiceLine."Amount Including VAT")); + Assert.AreNearlyEqual( + ServiceLine.Amount, SalesLCYResources, AmountRoundingPrecision, + StrSubstNo(SalesLCYErr, SalesLCYResources, ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Inv. Discount Amount", InvDiscountAmountResources, AmountRoundingPrecision, + StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountResources, ServiceLine."Inv. Discount Amount")); + end; + + local procedure VerifyOrderLineCostGLAccount(ServiceOrderStatistics: TestPage "Service Order Statistics"; DocumentNo: Code[20]) + var + ServiceLine: Record "Service Line"; + AmountIncludingVAT: Decimal; + Amount: Decimal; + InvDiscountAmount: Decimal; + AmountCosts: Decimal; + VATAmountCosts: Decimal; + TotalInclVATCosts: Decimal; + SalesLCYCosts: Decimal; + InvDiscountAmountCosts: Decimal; + AmountRoundingPrecision: Decimal; + begin + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + FilterServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); + ServiceLine.SetFilter(Type, '%1|%2', ServiceLine.Type::Cost, ServiceLine.Type::"G/L Account"); + ServiceLine.FindSet(); + repeat + AmountIncludingVAT += ServiceLine."Amount Including VAT"; + Amount += ServiceLine.Amount; + InvDiscountAmount += ServiceLine."Inv. Discount Amount"; + until ServiceLine.Next() = 0; + + Evaluate(AmountCosts, ServiceOrderStatistics.Amount_Costs.Value); + Evaluate(VATAmountCosts, ServiceOrderStatistics."VAT Amount_Costs".Value); + Evaluate(TotalInclVATCosts, ServiceOrderStatistics."Total Incl. VAT_Costs".Value); + Evaluate(SalesLCYCosts, ServiceOrderStatistics."Sales (LCY)_Costs".Value); + Evaluate(InvDiscountAmountCosts, ServiceOrderStatistics."Inv. Discount Amount_Costs".Value); + + Assert.AreNearlyEqual( + Amount + InvDiscountAmount, AmountCosts, AmountRoundingPrecision, StrSubstNo(AmountErr, AmountCosts, Amount + InvDiscountAmount)); Assert.AreNearlyEqual( AmountIncludingVAT - Amount, VATAmountCosts, AmountRoundingPrecision, @@ -4191,573 +4243,214 @@ codeunit 136130 "Service Statistics" StrSubstNo(VATAmountErr, VATAmountItems, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); Assert.AreNearlyEqual( ServiceLine."Amount Including VAT", TotalInclVATItems, AmountRoundingPrecision, - StrSubstNo(AmountErr, TotalInclVATItems, ServiceLine."Amount Including VAT")); - Assert.AreNearlyEqual( - ServiceLine.Amount, SalesLCYItems, AmountRoundingPrecision, - StrSubstNo(SalesLCYErr, SalesLCYItems, ServiceLine.Amount)); - Assert.AreNearlyEqual( - ServiceLine."Inv. Discount Amount", InvDiscountAmountItems, AmountRoundingPrecision, - StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountItems, ServiceLine."Inv. Discount Amount")); - end; - - local procedure VerifyServiceLineResources(ServiceStatistics: TestPage "Service Statistics"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) - var - ServiceLine: Record "Service Line"; - AmountResources: Decimal; - VATAmountResources: Decimal; - TotalInclVATResources: Decimal; - SalesLCYResources: Decimal; - InvDiscountAmountResources: Decimal; - AmountRoundingPrecision: Decimal; - begin - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - FilterServiceLine(ServiceLine, DocumentType, DocumentNo); - ServiceLine.SetRange(Type, ServiceLine.Type::Resource); - ServiceLine.FindFirst(); - - Evaluate(AmountResources, ServiceStatistics.Amount_Resources.Value); - Evaluate(VATAmountResources, ServiceStatistics."VAT Amount_Resources".Value); - Evaluate(TotalInclVATResources, ServiceStatistics."Total Incl. VAT_Resources".Value); - Evaluate(SalesLCYResources, ServiceStatistics."Sales (LCY)_Resources".Value); - Evaluate(InvDiscountAmountResources, ServiceStatistics."Inv. Discount Amount_Resources".Value); - - Assert.AreNearlyEqual( - ServiceLine.Amount + ServiceLine."Inv. Discount Amount", AmountResources, AmountRoundingPrecision, - StrSubstNo(AmountErr, AmountResources, ServiceLine.Amount + ServiceLine."Inv. Discount Amount")); - Assert.AreNearlyEqual( - ServiceLine."Amount Including VAT" - ServiceLine.Amount, VATAmountResources, AmountRoundingPrecision, - StrSubstNo(VATAmountErr, VATAmountResources, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); - Assert.AreNearlyEqual( - ServiceLine."Amount Including VAT", TotalInclVATResources, AmountRoundingPrecision, - StrSubstNo(AmountErr, TotalInclVATResources, ServiceLine."Amount Including VAT")); - Assert.AreNearlyEqual( - ServiceLine.Amount, SalesLCYResources, AmountRoundingPrecision, - StrSubstNo(SalesLCYErr, SalesLCYResources, ServiceLine.Amount)); - Assert.AreNearlyEqual( - ServiceLine."Inv. Discount Amount", InvDiscountAmountResources, AmountRoundingPrecision, - StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountResources, ServiceLine."Inv. Discount Amount")); - end; - - local procedure VerifyServiceLineCostGLAccount(ServiceStatistics: TestPage "Service Statistics"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) - var - ServiceLine: Record "Service Line"; - AmountIncludingVAT: Decimal; - Amount: Decimal; - InvDiscountAmount: Decimal; - AmountCosts: Decimal; - VATAmountCosts: Decimal; - TotalInclVATCosts: Decimal; - SalesLCYCosts: Decimal; - InvDiscountAmountCosts: Decimal; - AmountRoundingPrecision: Decimal; - begin - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - FilterServiceLine(ServiceLine, DocumentType, DocumentNo); - ServiceLine.SetFilter(Type, '%1|%2', ServiceLine.Type::Cost, ServiceLine.Type::"G/L Account"); - ServiceLine.FindSet(); - repeat - AmountIncludingVAT += ServiceLine."Amount Including VAT"; - Amount += ServiceLine.Amount; - InvDiscountAmount += ServiceLine."Inv. Discount Amount"; - until ServiceLine.Next() = 0; - - Evaluate(AmountCosts, ServiceStatistics.Amount_Costs.Value); - Evaluate(VATAmountCosts, ServiceStatistics."VAT Amount_Costs".Value); - Evaluate(TotalInclVATCosts, ServiceStatistics."Total Incl. VAT_Costs".Value); - Evaluate(SalesLCYCosts, ServiceStatistics."Sales (LCY)_Costs".Value); - Evaluate(InvDiscountAmountCosts, ServiceStatistics."Inv. Discount Amount_Costs".Value); - - Assert.AreNearlyEqual( - Amount + InvDiscountAmount, AmountCosts, AmountRoundingPrecision, - StrSubstNo(AmountErr, AmountCosts, Amount + InvDiscountAmount)); - Assert.AreNearlyEqual( - AmountIncludingVAT - Amount, VATAmountCosts, AmountRoundingPrecision, - StrSubstNo(VATAmountErr, VATAmountCosts, AmountIncludingVAT - Amount)); - Assert.AreNearlyEqual( - AmountIncludingVAT, TotalInclVATCosts, AmountRoundingPrecision, - StrSubstNo(AmountErr, TotalInclVATCosts, AmountIncludingVAT)); - Assert.AreNearlyEqual(Amount, SalesLCYCosts, AmountRoundingPrecision, StrSubstNo(SalesLCYErr, SalesLCYCosts, Amount)); - Assert.AreNearlyEqual( - InvDiscountAmount, InvDiscountAmountCosts, AmountRoundingPrecision, - StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountCosts, InvDiscountAmount)); - end; - - local procedure VerifyServiceStatistics(ServiceStatistics: TestPage "Service Statistics"; ServiceLine: Record "Service Line") - var - AmountGeneral: Decimal; - VATAmountGeneral: Decimal; - TotalInclVATGeneral: Decimal; - SalesLCYGeneral: Decimal; - AmountRoundingPrecision: Decimal; - begin - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - Evaluate(AmountGeneral, ServiceStatistics.Amount_General.Value); - Evaluate(VATAmountGeneral, ServiceStatistics."VAT Amount_General".Value); - Evaluate(TotalInclVATGeneral, ServiceStatistics."Total Incl. VAT_General".Value); - Evaluate(SalesLCYGeneral, ServiceStatistics."Sales (LCY)_General".Value); - - Assert.AreNearlyEqual( - ServiceLine."Amount Including VAT", AmountGeneral, AmountRoundingPrecision, - StrSubstNo(AmountErr, AmountGeneral, ServiceLine."Amount Including VAT")); - Assert.AreNearlyEqual( - ServiceLine."Amount Including VAT" - ServiceLine.Amount, VATAmountGeneral, AmountRoundingPrecision, - StrSubstNo(VATAmountErr, VATAmountGeneral, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); - Assert.AreNearlyEqual( - ServiceLine.Amount, TotalInclVATGeneral, AmountRoundingPrecision, - StrSubstNo(AmountErr, TotalInclVATGeneral, ServiceLine.Amount)); - Assert.AreNearlyEqual( - ServiceLine.Amount, SalesLCYGeneral, AmountRoundingPrecision, - StrSubstNo(SalesLCYErr, SalesLCYGeneral, ServiceLine.Amount)); - end; - - local procedure VerifyServiceStatisticsGeneral(ServiceStatistics: TestPage "Service Statistics"; ServiceLine: Record "Service Line") - var - AmountGeneral: Decimal; - VATAmountGeneral: Decimal; - TotalInclVATGeneral: Decimal; - SalesLCYGeneral: Decimal; - InvDiscountAmountGeneral: Decimal; - AmountRoundingPrecision: Decimal; - begin - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - Evaluate(AmountGeneral, ServiceStatistics.Amount_General.Value); - Evaluate(VATAmountGeneral, ServiceStatistics."VAT Amount_General".Value); - Evaluate(TotalInclVATGeneral, ServiceStatistics."Total Incl. VAT_General".Value); - Evaluate(SalesLCYGeneral, ServiceStatistics."Sales (LCY)_General".Value); - Evaluate(InvDiscountAmountGeneral, ServiceStatistics."Inv. Discount Amount_General".Value); - - Assert.AreNearlyEqual( - ServiceLine.Amount + ServiceLine."Inv. Discount Amount", AmountGeneral, AmountRoundingPrecision, - StrSubstNo(AmountErr, AmountGeneral, ServiceLine.Amount + ServiceLine."Inv. Discount Amount")); - Assert.AreNearlyEqual( - ServiceLine."Amount Including VAT" - ServiceLine.Amount, VATAmountGeneral, AmountRoundingPrecision, - StrSubstNo(VATAmountErr, VATAmountGeneral, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); - Assert.AreNearlyEqual( - ServiceLine."Amount Including VAT", TotalInclVATGeneral, AmountRoundingPrecision, - StrSubstNo(AmountErr, TotalInclVATGeneral, ServiceLine."Amount Including VAT")); - Assert.AreNearlyEqual( - ServiceLine.Amount, SalesLCYGeneral, AmountRoundingPrecision, - StrSubstNo(SalesLCYErr, SalesLCYGeneral, ServiceLine.Amount)); - Assert.AreNearlyEqual( - ServiceLine."Inv. Discount Amount", InvDiscountAmountGeneral, AmountRoundingPrecision, - StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountGeneral, ServiceLine."Inv. Discount Amount")); - end; - - local procedure VerifyServiceStatisticsVATLine(ServiceStatistics: TestPage "Service Statistics"; ServiceLine: Record "Service Line") - var - StatisticsVATBase: Decimal; - StatisticsVATAmount: Decimal; - StatisticsAmountIncludingVAT: Decimal; - StatisticsVATBase2: Decimal; - StatisticsVATAmount2: Decimal; - StatisticsAmountIncludingVAT2: Decimal; - AmountRoundingPrecision: Decimal; - begin - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - ServiceStatistics.SubForm.First(); - repeat - Evaluate(StatisticsVATBase, ServiceStatistics.SubForm."VAT Base".Value); - Evaluate(StatisticsVATAmount, ServiceStatistics.SubForm."VAT Amount".Value); - Evaluate(StatisticsAmountIncludingVAT, ServiceStatistics.SubForm."Amount Including VAT".Value); - StatisticsVATBase2 += StatisticsVATBase; - StatisticsVATAmount2 += StatisticsVATAmount; - StatisticsAmountIncludingVAT2 += StatisticsAmountIncludingVAT; - until not ServiceStatistics.SubForm.Next(); - - Assert.AreNearlyEqual( - ServiceLine."VAT Base Amount", StatisticsVATBase2, AmountRoundingPrecision, - StrSubstNo(VATBaseAmountErr, StatisticsVATBase2, ServiceLine."VAT Base Amount")); - Assert.AreNearlyEqual( - ServiceLine."Amount Including VAT" - ServiceLine.Amount, StatisticsVATAmount2, AmountRoundingPrecision, - StrSubstNo(VATAmountErr, StatisticsVATAmount2, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); - Assert.AreNearlyEqual( - ServiceLine."Amount Including VAT", StatisticsAmountIncludingVAT2, AmountRoundingPrecision, - StrSubstNo(AmountErr, StatisticsAmountIncludingVAT2, ServiceLine."Amount Including VAT")); - end; - - local procedure VerifyServiceLineInvoiceDiscountAmount(DocumentNo: Code[20]; ExpectedInvoiceDiscountAmount: Decimal) - var - ServiceLine: Record "Service Line"; - begin - FindServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); - Assert.RecordCount(ServiceLine, 1); - Assert.AreEqual(ExpectedInvoiceDiscountAmount, ServiceLine."Inv. Discount Amount", IncorrectInvoiceDiscountAmountErr); - end; - - local procedure FindServiceInvoiceHeaderByOrderNo(OrderNo: Code[20]): Code[20] - var - ServiceInvoiceHeader: Record "Service Invoice Header"; - begin - ServiceInvoiceHeader.SetRange("Order No.", OrderNo); - ServiceInvoiceHeader.FindFirst(); - exit(ServiceInvoiceHeader."No."); - end; - - [ConfirmHandler] - [Scope('OnPrem')] - procedure ConfirmHandlerTrue(Question: Text[1024]; var Reply: Boolean) - begin - Reply := true; - end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ChangeDiscountOrderPostHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - var - ServiceLine: Record "Service Line"; - begin - if not UpdateDiscountAmount then begin - UpdateDiscountAmountOrder(ServiceOrderStatistics); - ServiceOrderStatistics.OK().Invoke(); - exit; - end; - - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsDetails(ServiceOrderStatistics, ServiceLine); - - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_Shipping".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure ChangeDiscountOrderShipHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - var - ServiceLine: Record "Service Line"; - begin - if not UpdateDiscountAmount then begin - UpdateDiscountAmountOrder(ServiceOrderStatistics); - ServiceOrderStatistics.OK().Invoke(); - exit; - end; - - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsShipping(ServiceOrderStatistics, ServiceLine); - - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_Shipping".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure ChangeDiscountOrderPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - var - ServiceLine: Record "Service Line"; - begin - if not UpdateDiscountAmount then begin - UpdateDiscountAmountOrder(ServiceOrderStatistics); - ServiceOrderStatistics.OK().Invoke(); - exit; - end; - - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsGeneral(ServiceOrderStatistics, ServiceLine); - VerifyOrderLineItems(ServiceOrderStatistics, DocumentNo2); - - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_General".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure ChangeDiscountPageHandler(var ServiceStatistics: TestPage "Service Statistics") - var - ServiceLine: Record "Service Line"; - begin - if not UpdateDiscountAmount then begin - UpdateDiscountAmountStatistics(ServiceStatistics); - ServiceStatistics.OK().Invoke(); - exit; - end; - - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineItems(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure ChangeTotalVATOrderPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - var - ServiceLine: Record "Service Line"; - begin - if not UpdateTotalVAT then begin - UpdateTotalVATOrderStatistics(ServiceOrderStatistics); - ServiceOrderStatistics.OK().Invoke(); - exit; - end; - - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsGeneral(ServiceOrderStatistics, ServiceLine); - VerifyOrderLineItems(ServiceOrderStatistics, DocumentNo2); - - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_General".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure ChangeTotalVATOrderShipHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - var - ServiceLine: Record "Service Line"; - begin - if not UpdateTotalVAT then begin - UpdateTotalVATOrderStatistics(ServiceOrderStatistics); - ServiceOrderStatistics.OK().Invoke(); - exit; - end; - - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsShipping(ServiceOrderStatistics, ServiceLine); - - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_Shipping".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure ChangeTotalVATOrderPostHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - var - ServiceLine: Record "Service Line"; - begin - if not UpdateTotalVAT then begin - UpdateTotalVATOrderStatistics(ServiceOrderStatistics); - ServiceOrderStatistics.OK().Invoke(); - exit; - end; - - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsDetails(ServiceOrderStatistics, ServiceLine); - - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_Shipping".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure ChangeTotalVATPageHandler(var ServiceStatistics: TestPage "Service Statistics") - var - ServiceLine: Record "Service Line"; - begin - if not UpdateTotalVAT then begin - UpdateTotalVATStatistics(ServiceStatistics); - ServiceStatistics.OK().Invoke(); - exit; - end; - - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineItems(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure CreditLimitLCYPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - begin - ServiceOrderStatistics."Credit Limit (LCY)_Customer".AssertEquals(CreditLimitLCY); - ServiceOrderStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentCreditLimitPageHandler(var ServiceStatistics: TestPage "Service Statistics") - begin - ServiceStatistics."Credit Limit (LCY)".AssertEquals(CreditLimitLCY); - ServiceStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentGLAccountPageHandler(var ServiceStatistics: TestPage "Service Statistics") - var - ServiceLine: Record "Service Line"; - begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineCostGLAccount(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentDiscountPageHandler(var ServiceStatistics: TestPage "Service Statistics") - var - ServiceLine: Record "Service Line"; - begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - ServiceLine.CalcSums("Amount Including VAT", Amount, "Inv. Discount Amount", "VAT Base Amount"); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); - - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineItems(ServiceStatistics, DocumentType2, DocumentNo2); - VerifyServiceLineResources(ServiceStatistics, DocumentType2, DocumentNo2); - VerifyServiceLineCostGLAccount(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentItemPageHandler(var ServiceStatistics: TestPage "Service Statistics") - var - ServiceLine: Record "Service Line"; - begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineItems(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); + StrSubstNo(AmountErr, TotalInclVATItems, ServiceLine."Amount Including VAT")); + Assert.AreNearlyEqual( + ServiceLine.Amount, SalesLCYItems, AmountRoundingPrecision, + StrSubstNo(SalesLCYErr, SalesLCYItems, ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Inv. Discount Amount", InvDiscountAmountItems, AmountRoundingPrecision, + StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountItems, ServiceLine."Inv. Discount Amount")); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentResourcePageHandler(var ServiceStatistics: TestPage "Service Statistics") + local procedure VerifyServiceLineResources(ServiceStatistics: TestPage "Service Statistics"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) var ServiceLine: Record "Service Line"; + AmountResources: Decimal; + VATAmountResources: Decimal; + TotalInclVATResources: Decimal; + SalesLCYResources: Decimal; + InvDiscountAmountResources: Decimal; + AmountRoundingPrecision: Decimal; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineResources(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); - end; + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + FilterServiceLine(ServiceLine, DocumentType, DocumentNo); + ServiceLine.SetRange(Type, ServiceLine.Type::Resource); + ServiceLine.FindFirst(); - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentWithVATPageHandler(var ServiceStatistics: TestPage "Service Statistics") - var - ServiceLine: Record "Service Line"; - begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - ServiceLine.CalcSums("Amount Including VAT", Amount, "VAT Base Amount"); - VerifyServiceStatistics(ServiceStatistics, ServiceLine); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - ServiceStatistics.OK().Invoke(); + Evaluate(AmountResources, ServiceStatistics.Amount_Resources.Value); + Evaluate(VATAmountResources, ServiceStatistics."VAT Amount_Resources".Value); + Evaluate(TotalInclVATResources, ServiceStatistics."Total Incl. VAT_Resources".Value); + Evaluate(SalesLCYResources, ServiceStatistics."Sales (LCY)_Resources".Value); + Evaluate(InvDiscountAmountResources, ServiceStatistics."Inv. Discount Amount_Resources".Value); + + Assert.AreNearlyEqual( + ServiceLine.Amount + ServiceLine."Inv. Discount Amount", AmountResources, AmountRoundingPrecision, + StrSubstNo(AmountErr, AmountResources, ServiceLine.Amount + ServiceLine."Inv. Discount Amount")); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT" - ServiceLine.Amount, VATAmountResources, AmountRoundingPrecision, + StrSubstNo(VATAmountErr, VATAmountResources, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT", TotalInclVATResources, AmountRoundingPrecision, + StrSubstNo(AmountErr, TotalInclVATResources, ServiceLine."Amount Including VAT")); + Assert.AreNearlyEqual( + ServiceLine.Amount, SalesLCYResources, AmountRoundingPrecision, + StrSubstNo(SalesLCYErr, SalesLCYResources, ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Inv. Discount Amount", InvDiscountAmountResources, AmountRoundingPrecision, + StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountResources, ServiceLine."Inv. Discount Amount")); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure OrderGLAccountPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") + local procedure VerifyServiceLineCostGLAccount(ServiceStatistics: TestPage "Service Statistics"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) var ServiceLine: Record "Service Line"; + AmountIncludingVAT: Decimal; + Amount: Decimal; + InvDiscountAmount: Decimal; + AmountCosts: Decimal; + VATAmountCosts: Decimal; + TotalInclVATCosts: Decimal; + SalesLCYCosts: Decimal; + InvDiscountAmountCosts: Decimal; + AmountRoundingPrecision: Decimal; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsGeneral(ServiceOrderStatistics, ServiceLine); - VerifyOrderLineCostGLAccount(ServiceOrderStatistics, DocumentNo2); + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + FilterServiceLine(ServiceLine, DocumentType, DocumentNo); + ServiceLine.SetFilter(Type, '%1|%2', ServiceLine.Type::Cost, ServiceLine.Type::"G/L Account"); + ServiceLine.FindSet(); + repeat + AmountIncludingVAT += ServiceLine."Amount Including VAT"; + Amount += ServiceLine.Amount; + InvDiscountAmount += ServiceLine."Inv. Discount Amount"; + until ServiceLine.Next() = 0; - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_General".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); + Evaluate(AmountCosts, ServiceStatistics.Amount_Costs.Value); + Evaluate(VATAmountCosts, ServiceStatistics."VAT Amount_Costs".Value); + Evaluate(TotalInclVATCosts, ServiceStatistics."Total Incl. VAT_Costs".Value); + Evaluate(SalesLCYCosts, ServiceStatistics."Sales (LCY)_Costs".Value); + Evaluate(InvDiscountAmountCosts, ServiceStatistics."Inv. Discount Amount_Costs".Value); + + Assert.AreNearlyEqual( + Amount + InvDiscountAmount, AmountCosts, AmountRoundingPrecision, + StrSubstNo(AmountErr, AmountCosts, Amount + InvDiscountAmount)); + Assert.AreNearlyEqual( + AmountIncludingVAT - Amount, VATAmountCosts, AmountRoundingPrecision, + StrSubstNo(VATAmountErr, VATAmountCosts, AmountIncludingVAT - Amount)); + Assert.AreNearlyEqual( + AmountIncludingVAT, TotalInclVATCosts, AmountRoundingPrecision, + StrSubstNo(AmountErr, TotalInclVATCosts, AmountIncludingVAT)); + Assert.AreNearlyEqual(Amount, SalesLCYCosts, AmountRoundingPrecision, StrSubstNo(SalesLCYErr, SalesLCYCosts, Amount)); + Assert.AreNearlyEqual( + InvDiscountAmount, InvDiscountAmountCosts, AmountRoundingPrecision, + StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountCosts, InvDiscountAmount)); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure OrderItemPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") + local procedure VerifyServiceStatistics(ServiceStatistics: TestPage "Service Statistics"; ServiceLine: Record "Service Line") var - ServiceLine: Record "Service Line"; + AmountGeneral: Decimal; + VATAmountGeneral: Decimal; + TotalInclVATGeneral: Decimal; + SalesLCYGeneral: Decimal; + AmountRoundingPrecision: Decimal; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsGeneral(ServiceOrderStatistics, ServiceLine); - VerifyOrderLineItems(ServiceOrderStatistics, DocumentNo2); + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + Evaluate(AmountGeneral, ServiceStatistics.Amount_General.Value); + Evaluate(VATAmountGeneral, ServiceStatistics."VAT Amount_General".Value); + Evaluate(TotalInclVATGeneral, ServiceStatistics."Total Incl. VAT_General".Value); + Evaluate(SalesLCYGeneral, ServiceStatistics."Sales (LCY)_General".Value); - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_General".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT", AmountGeneral, AmountRoundingPrecision, + StrSubstNo(AmountErr, AmountGeneral, ServiceLine."Amount Including VAT")); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT" - ServiceLine.Amount, VATAmountGeneral, AmountRoundingPrecision, + StrSubstNo(VATAmountErr, VATAmountGeneral, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine.Amount, TotalInclVATGeneral, AmountRoundingPrecision, + StrSubstNo(AmountErr, TotalInclVATGeneral, ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine.Amount, SalesLCYGeneral, AmountRoundingPrecision, + StrSubstNo(SalesLCYErr, SalesLCYGeneral, ServiceLine.Amount)); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure OrderInvoiceDiscountHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") + local procedure VerifyServiceStatisticsGeneral(ServiceStatistics: TestPage "Service Statistics"; ServiceLine: Record "Service Line") var - ServiceLine: Record "Service Line"; + AmountGeneral: Decimal; + VATAmountGeneral: Decimal; + TotalInclVATGeneral: Decimal; + SalesLCYGeneral: Decimal; + InvDiscountAmountGeneral: Decimal; + AmountRoundingPrecision: Decimal; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - ServiceLine.CalcSums("Amount Including VAT", Amount, "Inv. Discount Amount", "VAT Base Amount"); - VerifyOrderStatisticsGeneral(ServiceOrderStatistics, ServiceLine); - VerifyOrderLineItems(ServiceOrderStatistics, DocumentNo2); - VerifyOrderLineResources(ServiceOrderStatistics, DocumentNo2); - VerifyOrderLineCostGLAccount(ServiceOrderStatistics, DocumentNo2); + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + Evaluate(AmountGeneral, ServiceStatistics.Amount_General.Value); + Evaluate(VATAmountGeneral, ServiceStatistics."VAT Amount_General".Value); + Evaluate(TotalInclVATGeneral, ServiceStatistics."Total Incl. VAT_General".Value); + Evaluate(SalesLCYGeneral, ServiceStatistics."Sales (LCY)_General".Value); + Evaluate(InvDiscountAmountGeneral, ServiceStatistics."Inv. Discount Amount_General".Value); - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_General".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); + Assert.AreNearlyEqual( + ServiceLine.Amount + ServiceLine."Inv. Discount Amount", AmountGeneral, AmountRoundingPrecision, + StrSubstNo(AmountErr, AmountGeneral, ServiceLine.Amount + ServiceLine."Inv. Discount Amount")); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT" - ServiceLine.Amount, VATAmountGeneral, AmountRoundingPrecision, + StrSubstNo(VATAmountErr, VATAmountGeneral, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT", TotalInclVATGeneral, AmountRoundingPrecision, + StrSubstNo(AmountErr, TotalInclVATGeneral, ServiceLine."Amount Including VAT")); + Assert.AreNearlyEqual( + ServiceLine.Amount, SalesLCYGeneral, AmountRoundingPrecision, + StrSubstNo(SalesLCYErr, SalesLCYGeneral, ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Inv. Discount Amount", InvDiscountAmountGeneral, AmountRoundingPrecision, + StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountGeneral, ServiceLine."Inv. Discount Amount")); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure OrderResourcePageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") + local procedure VerifyServiceStatisticsVATLine(ServiceStatistics: TestPage "Service Statistics"; ServiceLine: Record "Service Line") var - ServiceLine: Record "Service Line"; + StatisticsVATBase: Decimal; + StatisticsVATAmount: Decimal; + StatisticsAmountIncludingVAT: Decimal; + StatisticsVATBase2: Decimal; + StatisticsVATAmount2: Decimal; + StatisticsAmountIncludingVAT2: Decimal; + AmountRoundingPrecision: Decimal; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsGeneral(ServiceOrderStatistics, ServiceLine); - VerifyOrderLineResources(ServiceOrderStatistics, DocumentNo2); + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + ServiceStatistics.SubForm.First(); + repeat + Evaluate(StatisticsVATBase, ServiceStatistics.SubForm."VAT Base".Value); + Evaluate(StatisticsVATAmount, ServiceStatistics.SubForm."VAT Amount".Value); + Evaluate(StatisticsAmountIncludingVAT, ServiceStatistics.SubForm."Amount Including VAT".Value); + StatisticsVATBase2 += StatisticsVATBase; + StatisticsVATAmount2 += StatisticsVATAmount; + StatisticsAmountIncludingVAT2 += StatisticsAmountIncludingVAT; + until not ServiceStatistics.SubForm.Next(); - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_General".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); + Assert.AreNearlyEqual( + ServiceLine."VAT Base Amount", StatisticsVATBase2, AmountRoundingPrecision, + StrSubstNo(VATBaseAmountErr, StatisticsVATBase2, ServiceLine."VAT Base Amount")); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT" - ServiceLine.Amount, StatisticsVATAmount2, AmountRoundingPrecision, + StrSubstNo(VATAmountErr, StatisticsVATAmount2, ServiceLine."Amount Including VAT" - ServiceLine.Amount)); + Assert.AreNearlyEqual( + ServiceLine."Amount Including VAT", StatisticsAmountIncludingVAT2, AmountRoundingPrecision, + StrSubstNo(AmountErr, StatisticsAmountIncludingVAT2, ServiceLine."Amount Including VAT")); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure OrderWithVATPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") + local procedure VerifyServiceLineInvoiceDiscountAmount(DocumentNo: Code[20]; ExpectedInvoiceDiscountAmount: Decimal) var ServiceLine: Record "Service Line"; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - ServiceLine.CalcSums("Amount Including VAT", Amount, "VAT Base Amount"); - VerifyOrderStatistics(ServiceOrderStatistics, ServiceLine); - - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_General".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceOrderStatNegativeProfitPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - begin - VerifyOrderStatisticsProfit(ServiceOrderStatistics); + FindServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); + Assert.RecordCount(ServiceLine, 1); + Assert.AreEqual(ExpectedInvoiceDiscountAmount, ServiceLine."Inv. Discount Amount", IncorrectInvoiceDiscountAmountErr); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure QuantityToInvoicePageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") + local procedure FindServiceInvoiceHeaderByOrderNo(OrderNo: Code[20]): Code[20] var - ServiceLine: Record "Service Line"; + ServiceInvoiceHeader: Record "Service Invoice Header"; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsDetails(ServiceOrderStatistics, ServiceLine); - - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_Shipping".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); + ServiceInvoiceHeader.SetRange("Order No.", OrderNo); + ServiceInvoiceHeader.FindFirst(); + exit(ServiceInvoiceHeader."No."); end; - [ModalPageHandler] + [ConfirmHandler] [Scope('OnPrem')] - procedure QuantityToShipPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - var - ServiceLine: Record "Service Line"; + procedure ConfirmHandlerTrue(Question: Text[1024]; var Reply: Boolean) begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsShipping(ServiceOrderStatistics, ServiceLine); - - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_Shipping".DrillDown(); - ServiceOrderStatistics.OK().Invoke(); + Reply := true; end; -#endif [PageHandler] [Scope('OnPrem')] procedure ChangeDiscountOrderPostHandlerNM(var ServiceOrderStatistics: TestPage "Service Order Statistics") diff --git a/src/Layers/ES/Tests/SMB/ReportCatalogTests.Codeunit.al b/src/Layers/ES/Tests/SMB/ReportCatalogTests.Codeunit.al deleted file mode 100644 index 7b4502d5740..00000000000 --- a/src/Layers/ES/Tests/SMB/ReportCatalogTests.Codeunit.al +++ /dev/null @@ -1,61 +0,0 @@ -#if not CLEAN27 -codeunit 139125 ReportCatalogTests -{ - Subtype = Test; - TestPermissions = Disabled; - ObsoleteState = Pending; - ObsoleteReason = 'Codeunit it is testing is obsolete.'; - ObsoleteTag = '27.0'; - - trigger OnRun() - begin - // [FEATURE] [SMB] [Report Catalog] - end; - - var - SmallBusinessReportCatalogCU: Codeunit "Small Business Report Catalog"; - FileManagement: Codeunit "File Management"; - LibraryUtility: Codeunit "Library - Utility OnPrem"; - SavedPDFFile: Text; - - [Test] - [HandlerFunctions('CustomerStatementReportHandler')] - [Scope('OnPrem')] - procedure CustomerStatementReport() - begin - SmallBusinessReportCatalogCU.RunCustomerStatementReport(true); - end; - - [Test] - [Scope('OnPrem')] - procedure DetailTrialBalanceReport() - begin - SmallBusinessReportCatalogCU.RunDetailTrialBalanceReport(true); - end; - - [RequestPageHandler] - [Scope('OnPrem')] - procedure CustomerStatementReportHandler(var CustomerStatement: TestRequestPage Statement) - var - AccountingPeriodMgt: Codeunit "Accounting Period Mgt."; - DateChoice: Option "Due Date","Posting Date"; - begin - CustomerStatement.ShowOverdueEntries.AssertEquals(false); - CustomerStatement.IncludeAllCustomerswithLE.AssertEquals(false); - CustomerStatement.IncludeAllCustomerswithBalance.AssertEquals(true); - CustomerStatement.IncludeReversedEntries.AssertEquals(false); - CustomerStatement.IncludeUnappliedEntries.AssertEquals(false); - CustomerStatement.IncludeAgingBand.AssertEquals(false); - CustomerStatement.AgingBandPeriodLengt.AssertEquals('1M+CM'); - CustomerStatement.AgingBandby.AssertEquals(DateChoice::"Due Date"); - CustomerStatement.LogInteraction.AssertEquals(true); - - CustomerStatement."Start Date".AssertEquals(AccountingPeriodMgt.FindFiscalYear(WorkDate())); - CustomerStatement."End Date".AssertEquals(WorkDate()); - - SavedPDFFile := FileManagement.ServerTempFileName('.pdf'); - CustomerStatement.SaveAsPdf(SavedPDFFile); - LibraryUtility.CheckFileNotEmpty(SavedPDFFile); - end; -} -#endif \ No newline at end of file diff --git a/src/Layers/FI/BaseApp/Bank/BankAccount/BankAccount.Table.al b/src/Layers/FI/BaseApp/Bank/BankAccount/BankAccount.Table.al index 99443a1cb98..0e436bf7cf5 100644 --- a/src/Layers/FI/BaseApp/Bank/BankAccount/BankAccount.Table.al +++ b/src/Layers/FI/BaseApp/Bank/BankAccount/BankAccount.Table.al @@ -729,13 +729,7 @@ table 270 "Bank Account" /// /// Website URL for the bank or financial institution. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/FI/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al b/src/Layers/FI/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al index 694f7bb0c02..8a653220642 100644 --- a/src/Layers/FI/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al +++ b/src/Layers/FI/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al @@ -917,17 +917,6 @@ table 17 "G/L Entry" LastTransactionNo := FieldNoValues.Get(2); end; -#if not CLEAN27 - /// - /// Gets the additional reporting currency code from General Ledger Setup. - /// - /// Additional reporting currency code - [Obsolete('use GetAdditionalReportingCurrencyCode instead', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; -#endif /// /// Opens the Value Entries page showing item ledger entries related to this G/L entry. /// diff --git a/src/Layers/FI/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/FI/BaseApp/Foundation/Company/CompanyInformation.Table.al index 0dbd518ba99..b7b253d2729 100644 --- a/src/Layers/FI/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/FI/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -301,13 +301,7 @@ table 79 "Company Information" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(35; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies your company''s web site.'; @@ -865,16 +859,9 @@ table 79 "Company Information" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateShipToCity(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeValidateShipToPostCode(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) begin end; -} +} \ No newline at end of file diff --git a/src/Layers/FI/BaseApp/HumanResources/Payables/SuggestEmployeePayments.Report.al b/src/Layers/FI/BaseApp/HumanResources/Payables/SuggestEmployeePayments.Report.al index 37c6d6d3fa6..205e24e2cc6 100644 --- a/src/Layers/FI/BaseApp/HumanResources/Payables/SuggestEmployeePayments.Report.al +++ b/src/Layers/FI/BaseApp/HumanResources/Payables/SuggestEmployeePayments.Report.al @@ -827,12 +827,4 @@ report 394 "Suggest Employee Payments" local procedure OnGetEmplLedgEntriesOnAfterSetFilters(var EmployeeLedgerEntry: Record "Employee Ledger Entry"; Positive: Boolean; SkipExportedPayments: Boolean); begin end; - -#if not CLEAN27 - [Obsolete('The event is never raised', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterIncludeEmployee(Employee: Record Employee; EmployeeBalance: Decimal; var Result: Boolean) - begin - end; -#endif } diff --git a/src/Layers/FI/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/FI/BaseApp/Purchases/Posting/PurchPost.Codeunit.al index 234ea3523a5..46e42336ff6 100644 --- a/src/Layers/FI/BaseApp/Purchases/Posting/PurchPost.Codeunit.al +++ b/src/Layers/FI/BaseApp/Purchases/Posting/PurchPost.Codeunit.al @@ -9163,18 +9163,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader2: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - OnAfterPostItemJnlLineCopyProdOrder(ItemJnlLine, PurchLine, PurchRcptHeader2, QtyToBeReceived, CommitIsSupressed, QtyToBeInvoiced); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line"; PurchRcptHeader: Record "Purch. Rcpt. Header"; QtyToBeReceived: Decimal; CommitIsSupressed: Boolean; QtyToBeInvoiced: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterPostItemJnlLineItemCharges(PurchHeader: Record "Purchase Header"; PurchLine: Record "Purchase Line") @@ -9706,18 +9694,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - internal procedure RunOnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - OnBeforePostItemJnlLineCopyProdOrder(PurchLine, ItemJnlLine, QtyToBeReceived, QtyToBeInvoiced, CommitIsSupressed, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgPurchPost', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnBeforePostItemJnlLineCopyProdOrder(PurchLine: Record "Purchase Line"; var ItemJnlLine: Record "Item Journal Line"; QtyToBeReceived: Decimal; QtyToBeInvoiced: Decimal; CommitIsSupressed: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnBeforePostPurchaseDoc(var PurchaseHeader: Record "Purchase Header"; PreviewMode: Boolean; CommitIsSupressed: Boolean; var HideProgressWindow: Boolean; var ItemJnlPostLine: Codeunit "Item Jnl.-Post Line"; var IsHandled: Boolean) @@ -11246,19 +11222,6 @@ codeunit 90 "Purch.-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]) - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnInsertPostedHeadersOnAfterInvoice(var PurchaseHeader: Record "Purchase Header"; var GenJournalLine: Record "Gen. Journal Line"; var GenJnlLineDocType: Enum "Gen. Journal Document Type"; var GenJnlLineDocNo: Code[20]; var GenJnlLineExtDocNo: Code[35]; var IsHandled: Boolean) begin diff --git a/src/Layers/FI/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al b/src/Layers/FI/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al index f13cee7aaf3..ecb820a3f0f 100644 --- a/src/Layers/FI/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al +++ b/src/Layers/FI/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al @@ -50,16 +50,6 @@ page 460 "Purchases & Payables Setup" { ApplicationArea = Basic, Suite; } -#if not CLEAN27 - field("Create Item from Item No."; Rec."Create Item from Item No.") - { - ApplicationArea = Basic, Suite; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("Copy Vendor Name to Entries"; Rec."Copy Vendor Name to Entries") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/FI/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al b/src/Layers/FI/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al index 93e307615ae..5eeec959ab8 100644 --- a/src/Layers/FI/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al +++ b/src/Layers/FI/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al @@ -343,13 +343,8 @@ table 312 "Purchases & Payables Setup" Caption = 'Create Item from Item No.'; ToolTip = 'Specifies if the system will suggest to create a new item when no item matches the number that you enter in the No. Field on purchase lines.'; ObsoleteReason = 'Discontinued function'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '29.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif field(58; "Copy Vendor Name to Entries"; Boolean) diff --git a/src/Layers/FI/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/FI/BaseApp/Purchases/Vendor/Vendor.Table.al index a78c48f93b2..a8e3b350bd0 100644 --- a/src/Layers/FI/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/FI/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -931,13 +931,7 @@ table 23 Vendor MailManagement.CheckValidEmailAddresses("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/FI/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al b/src/Layers/FI/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al index 54bb5fd5016..33cc757d8af 100644 --- a/src/Layers/FI/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al +++ b/src/Layers/FI/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al @@ -208,13 +208,7 @@ table 288 "Vendor Bank Account" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/FI/BaseApp/Purchases/Vendor/VendorTempl.Table.al b/src/Layers/FI/BaseApp/Purchases/Vendor/VendorTempl.Table.al index 1e36f4892a3..c9892bbbf21 100644 --- a/src/Layers/FI/BaseApp/Purchases/Vendor/VendorTempl.Table.al +++ b/src/Layers/FI/BaseApp/Purchases/Vendor/VendorTempl.Table.al @@ -311,13 +311,7 @@ table 1383 "Vendor Templ." ToolTip = 'Specifies the vendor''s email address.'; ExtendedDatatype = EMail; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/FI/BaseApp/Sales/Customer/CustomerBankAccount.Table.al b/src/Layers/FI/BaseApp/Sales/Customer/CustomerBankAccount.Table.al index 7d3554c408c..46425bf41e2 100644 --- a/src/Layers/FI/BaseApp/Sales/Customer/CustomerBankAccount.Table.al +++ b/src/Layers/FI/BaseApp/Sales/Customer/CustomerBankAccount.Table.al @@ -271,13 +271,7 @@ table 287 "Customer Bank Account" /// /// Specifies the bank's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; diff --git a/src/Layers/FI/BaseApp/Sales/Document/SalesHeader.Table.al b/src/Layers/FI/BaseApp/Sales/Document/SalesHeader.Table.al index e9fa8536ef0..250028bad80 100644 --- a/src/Layers/FI/BaseApp/Sales/Document/SalesHeader.Table.al +++ b/src/Layers/FI/BaseApp/Sales/Document/SalesHeader.Table.al @@ -2105,13 +2105,7 @@ table 36 "Sales Header" /// /// Specifies the package tracking number from the shipping agent. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -12892,20 +12886,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before validating the bill-to name. - /// - /// The sales header record being validated. - /// The customer record. - /// Set to true to skip the default validation logic. - /// The previous version of the sales header record. - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateBillToName(var SalesHeader: Record "Sales Header"; var Customer: Record Customer; var IsHandled: Boolean; xSalesHeader: Record "Sales Header") - begin - end; -#endif /// /// Raised before validating tax liable when validating the ship-to code. /// @@ -13861,19 +13841,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before checking if the document is not fully cancelled. - /// - /// The sales credit memo header record. - /// The result indicating whether the document is not fully cancelled. - /// Set to true to skip the default check logic. - [Obsolete('Removed Not used anymore.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeIsNotFullyCancelled(var SalesCrMemoHeader: Record "Sales Cr.Memo Header"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif /// /// Raised after the credit limit check. @@ -13938,17 +13905,6 @@ table 36 "Sales Header" end; -#if not CLEAN27 - /// - /// Raised after setting sales line filters when calculating outstanding quantity base. - /// - /// The sales line record with filters applied. - [Obsolete('Not used anymore due to new implementation that uses Query. Replaced by OnBeforeCalculateReservableOutstandingQuantityBase.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcOutstandingQuantityBaseOnAfterSalesLineSetFilters(var SalesLine: Record "Sales Line") - begin - end; -#endif /// /// Raised before calculating the reservable outstanding quantity base. diff --git a/src/Layers/FI/BaseApp/Sales/History/SalesInvoiceHeader.Table.al b/src/Layers/FI/BaseApp/Sales/History/SalesInvoiceHeader.Table.al index 6d4c1628124..be0b4b593c7 100644 --- a/src/Layers/FI/BaseApp/Sales/History/SalesInvoiceHeader.Table.al +++ b/src/Layers/FI/BaseApp/Sales/History/SalesInvoiceHeader.Table.al @@ -771,13 +771,7 @@ table 112 "Sales Invoice Header" /// /// Specifies the tracking number for tracking shipped packages. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -2005,28 +1999,6 @@ table 112 "Sales Invoice Header" begin end; -#if not CLEAN27 - /// - /// Raised to retrieve the payment reference for the sales invoice. - /// - /// Returns the payment reference text. - [Obsolete('The event is never raised', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnGetPaymentReference(var PaymentReference: Text) - begin - end; - - /// - /// Raised to retrieve the payment reference label for display. - /// - /// Returns the payment reference label text. - [Obsolete('The event is never raised', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetPaymentReferenceLbl(var PaymentReferenceLbl: Text) - begin - end; -#endif - /// /// Raised after setting filters when looking up the applies-to document number. /// diff --git a/src/Layers/FI/BaseApp/Sales/Posting/SalesPost.Codeunit.al b/src/Layers/FI/BaseApp/Sales/Posting/SalesPost.Codeunit.al index 099335d799e..92a803269e8 100644 --- a/src/Layers/FI/BaseApp/Sales/Posting/SalesPost.Codeunit.al +++ b/src/Layers/FI/BaseApp/Sales/Posting/SalesPost.Codeunit.al @@ -13425,13 +13425,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetAmountsForDeferral(SalesLine: Record "Sales Line"; var AmtToDefer: Decimal; var AmtToDeferACY: Decimal; var DeferralAccount: Code[20]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostJobContractLineBeforeTestFields(var SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; var IsHandled: Boolean) begin @@ -13637,19 +13630,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]; var SalesHeader: Record "Sales Header") - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostInvoiceOnAfterPostLines(var SalesHeader: Record "Sales Header"; SrcCode: Code[10]; GenJnlLineDocType: Enum "Gen. Journal Document Type"; GenJnlLineDocNo: Code[20]; GenJnlLineExtDocNo: Code[35]; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line") begin diff --git a/src/Layers/FI/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al b/src/Layers/FI/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al index 61764969ec0..d2c5ebd69e0 100644 --- a/src/Layers/FI/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al +++ b/src/Layers/FI/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al @@ -70,16 +70,6 @@ page 459 "Sales & Receivables Setup" { ApplicationArea = Basic, Suite; } -#if not CLEAN27 - field("Create Item from Item No."; Rec."Create Item from Item No.") - { - ApplicationArea = Basic, Suite; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("Create Item from Description"; Rec."Create Item from Description") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/FI/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al b/src/Layers/FI/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al index 3c4f44e307f..af17ae70d64 100644 --- a/src/Layers/FI/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al +++ b/src/Layers/FI/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al @@ -571,13 +571,8 @@ table 311 "Sales & Receivables Setup" Caption = 'Create Item from Item No.'; ToolTip = 'Specifies if the system will suggest to create a new item when no item matches the number that you enter in the No. Field on sales lines.'; ObsoleteReason = 'Discontinued function'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '29.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif /// diff --git a/src/Layers/FI/BaseApp/Service/Local/History/ServiceInvoiceFI.Report.al b/src/Layers/FI/BaseApp/Service/Local/History/ServiceInvoiceFI.Report.al index 2df493ffb32..af61a3b54a1 100644 --- a/src/Layers/FI/BaseApp/Service/Local/History/ServiceInvoiceFI.Report.al +++ b/src/Layers/FI/BaseApp/Service/Local/History/ServiceInvoiceFI.Report.al @@ -727,11 +727,7 @@ report 13411 "Service - Invoice (FI)" trigger OnPreDataItem() begin -#if not CLEAN27 - NoOfLoops := Abs(NoOfCopies) + Cust."Invoice Copies" + 1; -#else NoOfLoops := Abs(NoOfCopies) + 1; -#endif if NoOfLoops <= 0 then NoOfLoops := 1; CopyText := ''; diff --git a/src/Layers/FI/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al b/src/Layers/FI/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al index 9ccac670f6e..d6c6340d83e 100644 --- a/src/Layers/FI/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al +++ b/src/Layers/FI/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al @@ -1091,15 +1091,6 @@ codeunit 130512 "Library - Purchase" PurchasesPayablesSetup.Modify(true); end; -#if not CLEAN27 - [Obsolete('Discontinued functionality', '27.0')] - procedure SetCreateItemFromItemNo(NewValue: Boolean) - begin - PurchasesPayablesSetup.Get(); - PurchasesPayablesSetup.Validate("Create Item from Item No.", NewValue); - PurchasesPayablesSetup.Modify(true); - end; -#endif procedure SetDefaultPostingDateWorkDate() begin PurchasesPayablesSetup.Get(); diff --git a/src/Layers/FR/BaseApp/Bank/BankAccount/BankAccount.Table.al b/src/Layers/FR/BaseApp/Bank/BankAccount/BankAccount.Table.al index 0feb4885947..ce7e8a34a98 100644 --- a/src/Layers/FR/BaseApp/Bank/BankAccount/BankAccount.Table.al +++ b/src/Layers/FR/BaseApp/Bank/BankAccount/BankAccount.Table.al @@ -727,13 +727,7 @@ table 270 "Bank Account" /// /// Website URL for the bank or financial institution. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/FR/BaseApp/CRM/Contact/Contact.Table.al b/src/Layers/FR/BaseApp/CRM/Contact/Contact.Table.al index 80cf96fe42a..49d1693e3ba 100644 --- a/src/Layers/FR/BaseApp/CRM/Contact/Contact.Table.al +++ b/src/Layers/FR/BaseApp/CRM/Contact/Contact.Table.al @@ -363,13 +363,7 @@ table 5050 Contact SetSearchEmail(); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the contact''s web site.'; diff --git a/src/Layers/FR/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al b/src/Layers/FR/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al index 02f6043934f..5ac4c4011be 100644 --- a/src/Layers/FR/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al +++ b/src/Layers/FR/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al @@ -952,17 +952,6 @@ table 17 "G/L Entry" LastTransactionNo := FieldNoValues.Get(2); end; -#if not CLEAN27 - /// - /// Gets the additional reporting currency code from General Ledger Setup. - /// - /// Additional reporting currency code - [Obsolete('use GetAdditionalReportingCurrencyCode instead', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; -#endif /// /// Opens the Value Entries page showing item ledger entries related to this G/L entry. /// diff --git a/src/Layers/FR/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al b/src/Layers/FR/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al index c00b24ed602..d2b6e3accf6 100644 --- a/src/Layers/FR/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al +++ b/src/Layers/FR/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al @@ -7790,15 +7790,6 @@ codeunit 12 "Gen. Jnl.-Post Line" DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance (VAT Excl.)"]); end; -#if not CLEAN27 - local procedure RealizeDelayedUnrealizedVAT(GenJnlLine: Record "Gen. Journal Line") - begin - if GenJnlLine."Delayed Unrealized VAT" and GenJnlLine."Realize VAT" then - if (GenJnlLine."Applies-to Doc. No." <> '') or (GenJnlLine."Applies-to ID" <> '') then - PostDelayedUnrealizedVAT(GenJnlLine); - end; -#endif - local procedure MakeDerogFAJnlLine(var FAJnlLine: Record "FA Journal Line"; GenJnlLine: Record "Gen. Journal Line") var DeprBook: Record "Depreciation Book"; @@ -7885,7 +7876,7 @@ codeunit 12 "Gen. Jnl.-Post Line" else UnrealCVLedgEntryBuffer.SetRange("Payment Slip No.", GenJnlLine."Document No."); UnrealCVLedgEntryBuffer.SetRange("Applies-to ID", GenJnlLine."Applies-to ID"); - if UnrealCVLedgEntryBuffer.FindSet(true, false) then + if UnrealCVLedgEntryBuffer.FindSet(true) then repeat OldCustLedgEntry.Get(UnrealCVLedgEntryBuffer."Entry No."); OldCustLedgEntry.CalcFields( @@ -7933,7 +7924,7 @@ codeunit 12 "Gen. Jnl.-Post Line" else UnrealCVLedgEntryBuffer.SetRange("Payment Slip No.", GenJnlLine."Document No."); UnrealCVLedgEntryBuffer.SetRange("Applies-to ID", GenJnlLine."Applies-to ID"); - if UnrealCVLedgEntryBuffer.FindSet(true, false) then + if UnrealCVLedgEntryBuffer.FindSet(true) then repeat OldVendLedgEntry.Get(UnrealCVLedgEntryBuffer."Entry No."); OldVendLedgEntry.CalcFields( diff --git a/src/Layers/FR/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al b/src/Layers/FR/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al index 64aacefe702..db2e8fea57b 100644 --- a/src/Layers/FR/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al +++ b/src/Layers/FR/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al @@ -478,17 +478,11 @@ page 118 "General Ledger Setup" { ApplicationArea = Basic, Suite; Caption = 'Default View by'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Neg. Amount Format"; Rec."Fin. Rep. Neg. Amount Format") { ApplicationArea = Basic, Suite; Caption = 'Default Negative Amount Format'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Company Logo Pos."; Rec."Fin. Rep. Company Logo Pos.") { @@ -898,11 +892,6 @@ page 118 "General Ledger Setup" trigger OnOpenPage() var -#if not CLEAN27 -#pragma warning disable AL0432 - FeatureFinancialReportDef: Codeunit "Feature - Fin. Report Default"; -#pragma warning restore AL0432 -#endif begin Rec.Reset(); if not Rec.Get() then begin @@ -913,17 +902,11 @@ page 118 "General Ledger Setup" IsJournalTemplatesVisible := Rec."Journal Templ. Name Mandatory"; -#if not CLEAN27 - FinancialReportDefaultsEnabled := FeatureFinancialReportDef.IsDefaultsFeatureEnabled(); -#endif end; var xGeneralLedgerSetup: Record "General Ledger Setup"; IsJournalTemplatesVisible: Boolean; -#if not CLEAN27 - FinancialReportDefaultsEnabled: Boolean; -#endif #pragma warning disable AA0074 Text001: Label 'Do you want to change all open entries for every customer and vendor that are not blocked?'; diff --git a/src/Layers/FR/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/FR/BaseApp/Foundation/Company/CompanyInformation.Table.al index 89bbdcba48d..d82426cf19e 100644 --- a/src/Layers/FR/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/FR/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -302,13 +302,7 @@ table 79 "Company Information" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(35; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies your company''s web site.'; @@ -956,13 +950,6 @@ table 79 "Company Information" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateShipToCity(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeValidateShipToPostCode(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) begin diff --git a/src/Layers/FR/BaseApp/Foundation/Shipping/ShipmentMethod.Table.al b/src/Layers/FR/BaseApp/Foundation/Shipping/ShipmentMethod.Table.al index 8475d610a61..9c18e3a6a69 100644 --- a/src/Layers/FR/BaseApp/Foundation/Shipping/ShipmentMethod.Table.al +++ b/src/Layers/FR/BaseApp/Foundation/Shipping/ShipmentMethod.Table.al @@ -92,23 +92,6 @@ table 10 "Shipment Method" ShipmentMethod.Description := ShipmentMethodTranslation.Description; end; -#if not CLEAN27 - [Obsolete('Pending removal - the check is not relevant anymore.', '27.0')] - [Scope('OnPrem')] - procedure ValidateShipmentMethod(): Boolean - var - I: Integer; - begin - if StrLen(Code) <> 4 then - exit(true); - for I := 1 to 3 do - if Code[I] in ['a' .. 'z', 'A' .. 'Z'] = false then - exit(true); - if Code[4] in ['0' .. '9'] = false then - exit(true); - exit(false); - end; -#endif local procedure SetLastModifiedDateTime() begin "Last Modified Date Time" := CurrentDateTime; diff --git a/src/Layers/FR/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al b/src/Layers/FR/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al index bf082c8c789..90af6f7376e 100644 --- a/src/Layers/FR/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al +++ b/src/Layers/FR/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al @@ -722,14 +722,6 @@ table 32 "Item Ledger Entry" exit(FindRecordManagement.GetLastEntryIntFieldValue(Rec, FieldNo("Entry No."))) end; -#if not CLEAN27 - [Obsolete('Please use GetAdditionalReportingCurrencyCode instead.', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; - -#endif procedure GetAdditionalReportingCurrencyCode(): Code[10] begin if not GLSetupRead then begin diff --git a/src/Layers/FR/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/FR/BaseApp/Purchases/Vendor/Vendor.Table.al index 89a519ca714..493ca63f7d2 100644 --- a/src/Layers/FR/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/FR/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -934,13 +934,7 @@ table 23 Vendor MailManagement.CheckValidEmailAddresses("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/FR/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al b/src/Layers/FR/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al index fad7c74b541..829b9046644 100644 --- a/src/Layers/FR/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al +++ b/src/Layers/FR/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al @@ -208,13 +208,7 @@ table 288 "Vendor Bank Account" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the bank web site.'; diff --git a/src/Layers/FR/BaseApp/Purchases/Vendor/VendorTempl.Table.al b/src/Layers/FR/BaseApp/Purchases/Vendor/VendorTempl.Table.al index a2db7986dec..b799ab42cc1 100644 --- a/src/Layers/FR/BaseApp/Purchases/Vendor/VendorTempl.Table.al +++ b/src/Layers/FR/BaseApp/Purchases/Vendor/VendorTempl.Table.al @@ -311,13 +311,7 @@ table 1383 "Vendor Templ." ToolTip = 'Specifies the vendor''s email address.'; ExtendedDatatype = EMail; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the vendor''s web site.'; diff --git a/src/Layers/FR/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/FR/BaseApp/Sales/Customer/Customer.Table.al index c2162221e68..b24dd6e7978 100644 --- a/src/Layers/FR/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/FR/BaseApp/Sales/Customer/Customer.Table.al @@ -593,13 +593,8 @@ table 18 Customer { Caption = 'Invoice Copies'; ObsoleteReason = 'This field is not used consequently and hence does not work as expected. It should be retired.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } #endif /// @@ -1328,13 +1323,7 @@ table 18 Customer /// /// Specifies the customer's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; OptimizeForTextSearch = true; @@ -5117,4 +5106,4 @@ table 18 Customer begin end; -} +} \ No newline at end of file diff --git a/src/Layers/FR/BaseApp/Sales/Customer/CustomerBankAccount.Table.al b/src/Layers/FR/BaseApp/Sales/Customer/CustomerBankAccount.Table.al index d945be8706d..e1c84376cb0 100644 --- a/src/Layers/FR/BaseApp/Sales/Customer/CustomerBankAccount.Table.al +++ b/src/Layers/FR/BaseApp/Sales/Customer/CustomerBankAccount.Table.al @@ -271,13 +271,7 @@ table 287 "Customer Bank Account" /// /// Specifies the bank's website URL. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(23; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; diff --git a/src/Layers/FR/BaseApp/Sales/Customer/CustomerTempl.Table.al b/src/Layers/FR/BaseApp/Sales/Customer/CustomerTempl.Table.al index ba66591344a..253f42c9793 100644 --- a/src/Layers/FR/BaseApp/Sales/Customer/CustomerTempl.Table.al +++ b/src/Layers/FR/BaseApp/Sales/Customer/CustomerTempl.Table.al @@ -533,13 +533,7 @@ table 1381 "Customer Templ." /// /// Specifies the default website URL for customers created from this template. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(103; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; @@ -899,4 +893,4 @@ table 1381 "Customer Templ." local procedure OnCopyTemplateOnBeforeModify(SourceCustomerTempl: Record "Customer Templ."; SavedCustomerTempl: Record "Customer Templ."; var CustomerTempl: Record "Customer Templ.") begin end; -} +} \ No newline at end of file diff --git a/src/Layers/FR/BaseApp/Sales/Document/SalesHeader.Table.al b/src/Layers/FR/BaseApp/Sales/Document/SalesHeader.Table.al index 4b820327be2..715be3249fe 100644 --- a/src/Layers/FR/BaseApp/Sales/Document/SalesHeader.Table.al +++ b/src/Layers/FR/BaseApp/Sales/Document/SalesHeader.Table.al @@ -2105,13 +2105,7 @@ table 36 "Sales Header" /// /// Specifies the package tracking number from the shipping agent. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; @@ -12896,20 +12890,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before validating the bill-to name. - /// - /// The sales header record being validated. - /// The customer record. - /// Set to true to skip the default validation logic. - /// The previous version of the sales header record. - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateBillToName(var SalesHeader: Record "Sales Header"; var Customer: Record Customer; var IsHandled: Boolean; xSalesHeader: Record "Sales Header") - begin - end; -#endif /// /// Raised before validating tax liable when validating the ship-to code. /// @@ -13865,19 +13845,6 @@ table 36 "Sales Header" begin end; -#if not CLEAN27 - /// - /// Raised before checking if the document is not fully cancelled. - /// - /// The sales credit memo header record. - /// The result indicating whether the document is not fully cancelled. - /// Set to true to skip the default check logic. - [Obsolete('Removed Not used anymore.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeIsNotFullyCancelled(var SalesCrMemoHeader: Record "Sales Cr.Memo Header"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif /// /// Raised after the credit limit check. @@ -13942,17 +13909,6 @@ table 36 "Sales Header" end; -#if not CLEAN27 - /// - /// Raised after setting sales line filters when calculating outstanding quantity base. - /// - /// The sales line record with filters applied. - [Obsolete('Not used anymore due to new implementation that uses Query. Replaced by OnBeforeCalculateReservableOutstandingQuantityBase.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcOutstandingQuantityBaseOnAfterSalesLineSetFilters(var SalesLine: Record "Sales Line") - begin - end; -#endif /// /// Raised before calculating the reservable outstanding quantity base. diff --git a/src/Layers/FR/BaseApp/Sales/History/SalesCrMemoHeader.Table.al b/src/Layers/FR/BaseApp/Sales/History/SalesCrMemoHeader.Table.al index 2ff5dedc846..b35ddb6af2b 100644 --- a/src/Layers/FR/BaseApp/Sales/History/SalesCrMemoHeader.Table.al +++ b/src/Layers/FR/BaseApp/Sales/History/SalesCrMemoHeader.Table.al @@ -745,13 +745,7 @@ table 114 "Sales Cr.Memo Header" /// /// Specifies the tracking number for the shipped package. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/FR/BaseApp/Sales/History/SalesInvoiceHeader.Table.al b/src/Layers/FR/BaseApp/Sales/History/SalesInvoiceHeader.Table.al index c02884a5079..16bb9d8c0d0 100644 --- a/src/Layers/FR/BaseApp/Sales/History/SalesInvoiceHeader.Table.al +++ b/src/Layers/FR/BaseApp/Sales/History/SalesInvoiceHeader.Table.al @@ -771,13 +771,7 @@ table 112 "Sales Invoice Header" /// /// Specifies the tracking number for tracking shipped packages. /// -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(106; "Package Tracking No."; Text[50]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Package Tracking No.'; ToolTip = 'Specifies the shipping agent''s package number.'; diff --git a/src/Layers/FR/BaseApp/Sales/Posting/SalesPost.Codeunit.al b/src/Layers/FR/BaseApp/Sales/Posting/SalesPost.Codeunit.al index 234bde1a3af..5f3414b08c4 100644 --- a/src/Layers/FR/BaseApp/Sales/Posting/SalesPost.Codeunit.al +++ b/src/Layers/FR/BaseApp/Sales/Posting/SalesPost.Codeunit.al @@ -13449,13 +13449,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetAmountsForDeferral(SalesLine: Record "Sales Line"; var AmtToDefer: Decimal; var AmtToDeferACY: Decimal; var DeferralAccount: Code[20]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostJobContractLineBeforeTestFields(var SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; var IsHandled: Boolean) begin @@ -13661,19 +13654,6 @@ codeunit 80 "Sales-Post" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnSetPostingPreviewDocumentNo(var PreviewDocumentNo: Code[20]; var SalesHeader: Record "Sales Header") - begin - end; - - [IntegrationEvent(false, false)] - [Obsolete('This event is no longer used.', '27.0')] - local procedure OnGetPostingPreviewDocumentNos(var PreviewDocumentNos: List of [Code[20]]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPostInvoiceOnAfterPostLines(var SalesHeader: Record "Sales Header"; SrcCode: Code[10]; GenJnlLineDocType: Enum "Gen. Journal Document Type"; GenJnlLineDocNo: Code[20]; GenJnlLineExtDocNo: Code[35]; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line") begin diff --git a/src/Layers/GB/BaseApp/Bank/BankAccount/BankAccountCard.Page.al b/src/Layers/GB/BaseApp/Bank/BankAccount/BankAccountCard.Page.al index f0f7b9fddf5..3b5b17c450f 100644 --- a/src/Layers/GB/BaseApp/Bank/BankAccount/BankAccountCard.Page.al +++ b/src/Layers/GB/BaseApp/Bank/BankAccount/BankAccountCard.Page.al @@ -203,43 +203,10 @@ page 370 "Bank Account Card" group(Communication) { Caption = 'Communication'; -#if not CLEAN27 - group(Control1040007) - { - ShowCaption = false; - Visible = IsAddressLookupTextEnabled; - ObsoleteState = Pending; - ObsoleteReason = 'Functionality has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - - field(LookupAddress; LookupAddressLbl) - { - ApplicationArea = Basic, Suite; - Editable = false; - ObsoleteState = Pending; - ObsoleteReason = 'Field has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - ShowCaption = false; - - trigger OnDrillDown() - begin - ShowPostcodeLookup(true); - end; - } - } -#endif field(Address; Rec.Address) { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the customer''s address. This address will appear on all sales documents for the customer.'; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - end; -#endif } field("Address 2"; Rec."Address 2") { @@ -263,15 +230,6 @@ page 370 "Bank Account Card" ApplicationArea = Basic, Suite; Importance = Promoted; ToolTip = 'Specifies the postal code.'; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - ShowPostcodeLookup(false); - end; -#endif } field("Country/Region Code"; Rec."Country/Region Code") { @@ -279,9 +237,6 @@ page 370 "Bank Account Card" ToolTip = 'Specifies the country/region of the address.'; trigger OnValidate() begin -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif IsCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code"); end; } @@ -897,9 +852,6 @@ page 370 "Bank Account Card" begin Rec.GetOnlineFeedStatementStatus(OnlineFeedStatementStatus, Linked); ShowBankLinkingActions := Rec.StatementProvidersExist(); -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif end; trigger OnAfterGetRecord() @@ -929,62 +881,11 @@ page 370 "Bank Account Card" OnlineBankAccountLinkingErr: Label 'You must link the bank account to an online bank account.\\Choose the Link to Online Bank Account action.'; IsCountyVisible: Boolean; ShowBankLinkingActions: Boolean; -#if not CLEAN27 - IsAddressLookupTextEnabled: Boolean; -#endif NoFieldVisible: Boolean; OnlineFeedStatementStatus: Option "Not Linked",Linked,"Linked and Auto. Bank Statement Enabled"; -#if not CLEAN27 - LookupAddressLbl: Label 'Lookup address from postcode'; -#endif RisksOfDirectPostingOnGLAccountsLbl: Label 'The selected bank account posting group is linked to a general ledger account that allows direct posting. The bank account reconciliation process might become problematic if the instructions in the documentation are not followed. Do you want to know more?'; RisksOfDirectPostingOnGLAccountsForwardLinkLbl: Label 'https://go.microsoft.com/fwlink/?linkid=2197950'; -#if not CLEAN27 - [Obsolete('Functionality has been moved to the GetAddress.io UK Postcodes.', '27.0')] - local procedure ShowPostcodeLookup(ShowInputFields: Boolean) - var - TempEnteredAutocompleteAddress: Record "Autocomplete Address" temporary; - TempAutocompleteAddress: Record "Autocomplete Address" temporary; - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code") then - exit; - - if not PostcodeBusinessLogic.IsConfigured() or ((Rec."Post Code" = '') and not ShowInputFields) then - exit; - - TempEnteredAutocompleteAddress.Address := Rec.Address; - TempEnteredAutocompleteAddress.Postcode := Rec."Post Code"; - - if not PostcodeBusinessLogic.ShowLookupWindow(TempEnteredAutocompleteAddress, ShowInputFields, TempAutocompleteAddress) then - exit; - - CopyAutocompleteFields(TempAutocompleteAddress); - HandleAddressLookupVisibility(); - end; - - local procedure CopyAutocompleteFields(var TempAutocompleteAddress: Record "Autocomplete Address" temporary) - begin - Rec.Address := TempAutocompleteAddress.Address; - Rec."Address 2" := TempAutocompleteAddress."Address 2"; - Rec."Post Code" := TempAutocompleteAddress.Postcode; - Rec.City := TempAutocompleteAddress.City; - Rec.County := TempAutocompleteAddress.County; - Rec."Country/Region Code" := TempAutocompleteAddress."Country / Region"; - end; - - local procedure HandleAddressLookupVisibility() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not CurrPage.Editable or not PostcodeBusinessLogic.IsConfigured() then - IsAddressLookupTextEnabled := false - else - IsAddressLookupTextEnabled := PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code"); - end; -#endif - local procedure SetNoFieldVisible() var DocumentNoVisibility: Codeunit DocumentNoVisibility; diff --git a/src/Layers/GB/BaseApp/Bank/Check/Check.Report.al b/src/Layers/GB/BaseApp/Bank/Check/Check.Report.al index 8543a38d950..e1b4aa8e893 100644 --- a/src/Layers/GB/BaseApp/Bank/Check/Check.Report.al +++ b/src/Layers/GB/BaseApp/Bank/Check/Check.Report.al @@ -72,21 +72,12 @@ report 1401 Check dataitem(GenJnlLine; "Gen. Journal Line") { DataItemTableView = sorting("Journal Template Name", "Journal Batch Name", "Posting Date", "Document No."); -#if not CLEAN27 - column(JnlTmplName_GenJnlLine; "Journal Template Name") - { - } - column(JnlBatchName_GenJnlLine; "Journal Batch Name") - { - } -#else column(JournalTempName_GenJnlLine; "Journal Template Name") { } column(JournalBatchName_GenJnlLine; "Journal Batch Name") { } -#endif column(LineNo_GenJnlLine; "Line No.") { } @@ -115,13 +106,6 @@ report 1401 Check { DataItemTableView = sorting(Number); MaxIteration = 30; -#if not CLEAN27 - column(TotalLineDiscountLineDisc; TotalLineDiscount - LineDiscount) - { - AutoFormatExpression = GenJnlLine."Currency Code"; - AutoFormatType = 1; - } -#else column(NetAmount; NetAmount) { AutoFormatExpression = GenJnlLine."Currency Code"; @@ -132,19 +116,16 @@ report 1401 Check AutoFormatExpression = GenJnlLine."Currency Code"; AutoFormatType = 1; } -#endif column(TotalLineAmountLineAmount; TotalLineAmount - LineAmount) { AutoFormatExpression = GenJnlLine."Currency Code"; AutoFormatType = 1; } -#if CLEAN27 column(TotalLineAmountLineAmount2; TotalLineAmount - LineAmount2) { AutoFormatExpression = GenJnlLine."Currency Code"; AutoFormatType = 1; } -#endif column(LineAmount; LineAmount) { AutoFormatExpression = GenJnlLine."Currency Code"; @@ -166,7 +147,6 @@ report 1401 Check column(DocDate; DocDate) { } -#if CLEAN27 column(CurrencyCode2; CurrencyCode2) { AutoFormatExpression = GenJnlLine."Currency Code"; @@ -177,7 +157,6 @@ report 1401 Check AutoFormatExpression = GenJnlLine."Currency Code"; AutoFormatType = 1; } -#endif column(ExtDocNo; ExtDocNo) { } @@ -196,11 +175,9 @@ report 1401 Check column(DocDateCaption; DocDateCaptionLbl) { } -#if CLEAN27 column(CurrencyCodeCaption; CurrencyCodeCaptionLbl) { } -#endif column(YourDocNoCaption; YourDocNoCaptionLbl) { } @@ -431,11 +408,6 @@ report 1401 Check { DataItemTableView = sorting(Number); MaxIteration = 1; -#if not CLEAN27 - column(CheckToAddr11; UpperCase(CheckToAddr[1])) - { - } -#else column(CheckAmountText; CheckAmountText) { } @@ -445,24 +417,9 @@ report 1401 Check column(DescriptionLine2; DescriptionLine[2]) { } -#endif column(DescriptionLine1; DescriptionLine[1]) { } -#if not CLEAN27 - column(CheckDateText1; CheckDateText) - { - } - column(DescriptionLine2; DescriptionLine[2]) - { - } - column(CheckAmountText; CheckAmountText) - { - } - column(VoidText; VoidText) - { - } -#else column(CheckToAddr1Control7; CheckToAddr[1]) { } @@ -505,7 +462,6 @@ report 1401 Check column(CompanyAddr1; CompanyAddr[1]) { } -#endif column(TotalLineAmount; TotalLineAmount) { AutoFormatExpression = GenJnlLine."Currency Code"; @@ -514,17 +470,13 @@ report 1401 Check column(TotalText; TotalText) { } -#if CLEAN27 column(VoidText; VoidText) { } -#endif trigger OnAfterGetRecord() var -#if CLEAN27 Decimals: Decimal; -#endif CheckLedgEntryAmount: Decimal; begin if not TestPrint then begin @@ -553,11 +505,6 @@ report 1401 Check CheckManagement.InsertCheck(CheckLedgEntry, GenJnlLine.RecordId); if FoundLast and AddedRemainingAmount then begin -#if not CLEAN27 - CheckLedgEntryAmount := CheckLedgEntry.Amount; - CheckAmountText := Format(CheckLedgEntryAmount, 0, Text1041001); - CheckAmountText := DelChr(CheckAmountText, '=', '.'); -#else if BankAcc2."Currency Code" <> '' then Currency.Get(BankAcc2."Currency Code") else @@ -574,7 +521,6 @@ report 1401 Check PadStr('', StrLen(Format(Currency."Amount Rounding Precision")) - StrLen(Format(Decimals)), '0') else CheckAmountText := Format(CheckLedgEntryAmount, 0, 0); -#endif FormatNoText(DescriptionLine, CheckLedgEntry.Amount, BankAcc2."Currency Code"); VoidText := ''; end else begin @@ -836,17 +782,6 @@ report 1401 Check SalesPurchPerson.Get(BankAcc."Our Contact Code"); end; BalancingType::Employee: -#if not CLEAN27 - ApplyBalancingTypeOfEmployee(); - end; - - if StrLen(CheckToAddr[1]) < MaxStrLen(CheckToAddr[1]) then - CheckToAddr[1] := CheckToAddr[1] + ' '; - CheckToAddr[1] := PadStr(CheckToAddr[1], MaxStrLen(CheckToAddr[1]), '*'); - - CheckDateText := Format("Posting Date", 9, Text1041000); - CheckDateText := UpperCase(CheckDateText); -#else begin Employee.Get(BalancingNo); if Employee."Privacy Blocked" then @@ -860,7 +795,6 @@ report 1401 Check end; CheckDateText := Format("Posting Date", 0, 4); -#endif end else begin if ChecksPrinted > 0 then CurrReport.Break(); @@ -977,21 +911,12 @@ report 1401 Check rendering { -#if not CLEAN27 - layout(RDLCLayout) - { - Type = RDLC; - LayoutFile = './Bank/Check/CheckGB.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#else layout(RDLCLayout) { Type = RDLC; LayoutFile = './Bank/Check/Check.rdlc'; Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; } -#endif } labels @@ -1091,9 +1016,6 @@ report 1401 Check Text025: Label 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'; Text026: Label 'ZERO'; Text027: Label 'HUNDRED'; -#if CLEAN27 - Text028: Label 'AND'; -#endif #pragma warning disable AA0470 Text029: Label '%1 results in a written number that is too long.'; Text030: Label ' is already applied to %1 %2 for customer %3.'; @@ -1134,10 +1056,6 @@ report 1401 Check Text064: Label '%1 must not be %2 for %3 %4.'; #pragma warning restore AA0470 Text065: Label 'Subtotal'; -#if not CLEAN27 - Text1041000: Label '', Locked = true; - Text1041001: Label '**-**', Locked = true; -#endif #pragma warning restore AA0074 CheckNoTextCaptionLbl: Label 'Check No.'; LineAmountCaptionLbl: Label 'Net Amount'; @@ -1145,9 +1063,6 @@ report 1401 Check AmountCaptionLbl: Label 'Amount'; DocNoCaptionLbl: Label 'Document No.'; DocDateCaptionLbl: Label 'Document Date'; -#if CLEAN27 - CurrencyCodeCaptionLbl: Label 'Currency Code'; -#endif YourDocNoCaptionLbl: Label 'Your Doc. No.'; TransportCaptionLbl: Label 'Transport'; BlockedEmplForCheckErr: Label 'You cannot print check because employee %1 is blocked due to privacy.', Comment = '%1 - Employee no.'; @@ -1167,24 +1082,15 @@ report 1401 Check Hundreds: Integer; Exponent: Integer; NoTextIndex: Integer; -#if CLEAN27 - DecimalPosition: Decimal; -#endif begin Clear(NoText); NoTextIndex := 1; NoText[1] := '****'; -#if CLEAN27 GLSetup.Get(); -#endif if No < 1 then AddToNoText(NoText, NoTextIndex, PrintExponent, Text026) -#if not CLEAN27 - else begin -#else else -#endif for Exponent := 4 downto 1 do begin PrintExponent := false; Ones := No div Power(1000, Exponent - 1); @@ -1195,10 +1101,6 @@ report 1401 Check AddToNoText(NoText, NoTextIndex, PrintExponent, OnesText[Hundreds]); AddToNoText(NoText, NoTextIndex, PrintExponent, Text027); end; -#if not CLEAN27 - if ((Tens > 0) or (Ones > 0)) and (Hundreds > 0) then - AddToNoText(NoText, NoTextIndex, PrintExponent, 'AND'); -#endif if Tens >= 2 then begin AddToNoText(NoText, NoTextIndex, PrintExponent, TensText[Tens]); if Ones > 0 then @@ -1210,19 +1112,9 @@ report 1401 Check AddToNoText(NoText, NoTextIndex, PrintExponent, ExponentText[Exponent]); No := No - (Hundreds * 100 + Tens * 10 + Ones) * Power(1000, Exponent - 1); end; -#if not CLEAN27 - AddToNoText(NoText, NoTextIndex, PrintExponent, 'POUNDS'); - end; - - if No > 0 then - AddToNoText(NoText, NoTextIndex, PrintExponent, Format(No * 100) + 'P**') - else - AddToNoText(NoText, NoTextIndex, PrintExponent, 'ONLY**'); -#else AddToNoText(NoText, NoTextIndex, PrintExponent, Text028); DecimalPosition := GetAmtDecimalPosition(); AddToNoText(NoText, NoTextIndex, PrintExponent, (Format(No * DecimalPosition) + '/' + Format(DecimalPosition))); -#endif if CurrencyCode <> '' then AddToNoText(NoText, NoTextIndex, PrintExponent, CurrencyCode); @@ -1481,21 +1373,6 @@ report 1401 Check end; end; -#if CLEAN27 - local procedure GetAmtDecimalPosition(): Decimal - var - Currency: Record Currency; - begin - if GenJnlLine."Currency Code" = '' then - Currency.InitRoundingPrecision() - else begin - Currency.Get(GenJnlLine."Currency Code"); - Currency.TestField("Amount Rounding Precision"); - end; - exit(1 / Currency."Amount Rounding Precision"); - end; -#endif - local procedure CheckGenJournalBatchAndLineIsApproved(GenJournalLine: Record "Gen. Journal Line"): Boolean var GenJournalBatch: Record "Gen. Journal Batch"; @@ -1612,20 +1489,6 @@ report 1401 Check VendLedgEntry3."Vendor No.")); end; -#if not CLEAN27 - local procedure ApplyBalancingTypeOfEmployee() - begin - Employee.Get(BalancingNo); - if Employee."Privacy Blocked" then - Error(BlockedEmplForCheckErr, Employee."No."); - FormatAddr.Employee(CheckToAddr, Employee); - if BankAcc2."Currency Code" <> GenJnlLine."Currency Code" then - Error(Text005); - if Employee."Salespers./Purch. Code" <> '' then - SalesPurchPerson.Get(Employee."Salespers./Purch. Code"); - end; -#endif - /// /// Integration event raised after formatting numeric amount to text for check printing. /// Enables custom formatting or modification of the text representation of check amounts. diff --git a/src/Layers/GB/BaseApp/CRM/Contact/ContactAltAddressCard.Page.al b/src/Layers/GB/BaseApp/CRM/Contact/ContactAltAddressCard.Page.al index 4880f7746bc..4bc4f133d57 100644 --- a/src/Layers/GB/BaseApp/CRM/Contact/ContactAltAddressCard.Page.al +++ b/src/Layers/GB/BaseApp/CRM/Contact/ContactAltAddressCard.Page.al @@ -4,10 +4,6 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.CRM.Contact; -#if not CLEAN27 -using Microsoft.Foundation.Address; -#endif - page 5056 "Contact Alt. Address Card" { Caption = 'Contact Alt. Address Card'; @@ -22,30 +18,6 @@ page 5056 "Contact Alt. Address Card" group(General) { Caption = 'General'; -#if not CLEAN27 - group(Control1040008) - { - ShowCaption = false; - Visible = IsAddressLookupTextEnabled; - ObsoleteState = Pending; - ObsoleteReason = 'Functionality has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - field(LookupAddress; LookupAddressLbl) - { - ApplicationArea = Basic, Suite; - Editable = false; - ObsoleteState = Pending; - ObsoleteReason = 'Field has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - ShowCaption = false; - - trigger OnDrillDown() - begin - ShowPostcodeLookup(true); - end; - } - } -#endif field("Code"; Rec.Code) { ApplicationArea = All; @@ -58,14 +30,6 @@ page 5056 "Contact Alt. Address Card" { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the customer''s address. This address will appear on all sales documents for the customer.'; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - end; -#endif } field("Address 2"; Rec."Address 2") { @@ -86,26 +50,11 @@ page 5056 "Contact Alt. Address Card" ApplicationArea = Basic, Suite; Importance = Promoted; ToolTip = 'Specifies the postal code.'; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - ShowPostcodeLookup(false); - end; -#endif } field("Country/Region Code"; Rec."Country/Region Code") { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the country/region code for the contact''s alternate address. To see the country/region codes in the Country/Region table, click the field.'; -#if not CLEAN27 - trigger OnValidate() - begin - HandleAddressLookupVisibility(); - end; -#endif } field("Phone No."; Rec."Phone No.") { @@ -188,21 +137,10 @@ page 5056 "Contact Alt. Address Card" } } -#if not CLEAN27 - trigger OnAfterGetCurrRecord() - begin - HandleAddressLookupVisibility(); - end; -#endif - var #pragma warning disable AA0074 Text000: Label 'untitled'; #pragma warning restore AA0074 -#if not CLEAN27 - IsAddressLookupTextEnabled: Boolean; - LookupAddressLbl: Label 'Lookup address from postcode'; -#endif procedure Caption(): Text var @@ -213,50 +151,5 @@ page 5056 "Contact Alt. Address Card" exit(Text000); end; - -#if not CLEAN27 - [Obsolete('Functionality has been moved to the GetAddress.io UK Postcodes.', '27.0')] - local procedure ShowPostcodeLookup(ShowInputFields: Boolean) - var - TempEnteredAutocompleteAddress: Record "Autocomplete Address" temporary; - TempAutocompleteAddress: Record "Autocomplete Address" temporary; - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code") then - exit; - - if not PostcodeBusinessLogic.IsConfigured() or ((Rec."Post Code" = '') and not ShowInputFields) then - exit; - - TempEnteredAutocompleteAddress.Address := Rec.Address; - TempEnteredAutocompleteAddress.Postcode := Rec."Post Code"; - - if not PostcodeBusinessLogic.ShowLookupWindow(TempEnteredAutocompleteAddress, ShowInputFields, TempAutocompleteAddress) then - exit; - - CopyAutocompleteFields(TempAutocompleteAddress); - HandleAddressLookupVisibility(); - end; - - local procedure CopyAutocompleteFields(var TempAutocompleteAddress: Record "Autocomplete Address" temporary) - begin - Rec.Address := TempAutocompleteAddress.Address; - Rec."Address 2" := TempAutocompleteAddress."Address 2"; - Rec."Post Code" := TempAutocompleteAddress.Postcode; - Rec.City := TempAutocompleteAddress.City; - Rec.County := TempAutocompleteAddress.County; - Rec."Country/Region Code" := TempAutocompleteAddress."Country / Region"; - end; - - local procedure HandleAddressLookupVisibility() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not CurrPage.Editable or not PostcodeBusinessLogic.IsConfigured() then - IsAddressLookupTextEnabled := false - else - IsAddressLookupTextEnabled := PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code"); - end; -#endif } diff --git a/src/Layers/GB/BaseApp/CRM/Contact/ContactCard.Page.al b/src/Layers/GB/BaseApp/CRM/Contact/ContactCard.Page.al index bc708680f5f..9f1c285e530 100644 --- a/src/Layers/GB/BaseApp/CRM/Contact/ContactCard.Page.al +++ b/src/Layers/GB/BaseApp/CRM/Contact/ContactCard.Page.al @@ -286,42 +286,10 @@ page 5050 "Contact Card" group(Control37) { Caption = 'Address'; -#if not CLEAN27 - group(Control1040001) - { - ShowCaption = false; - Visible = IsAddressLookupTextEnabled; - ObsoleteState = Pending; - ObsoleteReason = 'Functionality has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - field(LookupAddress; LookupAddressLbl) - { - ApplicationArea = Basic, Suite; - Editable = false; - ShowCaption = false; - ObsoleteState = Pending; - ObsoleteReason = 'Field has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - - trigger OnDrillDown() - begin - ShowPostcodeLookup(true); - end; - } - } -#endif field(Address; Rec.Address) { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the customer''s address. This address will appear on all sales documents for the customer.'; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - end; -#endif } field("Address 2"; Rec."Address 2") { @@ -334,24 +302,12 @@ page 5050 "Contact Card" trigger OnValidate() begin IsCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code"); -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif end; } field("Post Code"; Rec."Post Code") { ApplicationArea = Basic, Suite; Importance = Promoted; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - ShowPostcodeLookup(false); - end; -#endif } field(City; Rec.City) { @@ -1499,9 +1455,6 @@ page 5050 "Contact Card" IntegrationFindCustomerNo() else IntegrationCustomerNo := ''; -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif end; trigger OnInit() @@ -1563,10 +1516,6 @@ page 5050 "Contact Card" RelatedBankEnabled: Boolean; RelatedEmployeeEnabled: Boolean; ShowMapLbl: Label 'Show Map'; -#if not CLEAN27 - IsAddressLookupTextEnabled: Boolean; - LookupAddressLbl: Label 'Lookup address from postcode'; -#endif IsCountyVisible: Boolean; NoFieldVisible: Boolean; RegistrationNumberEnabled: Boolean; @@ -1615,51 +1564,6 @@ page 5050 "Contact Card" EnableFields(); end; -#if not CLEAN27 - [Obsolete('Functionality has been moved to the GetAddress.io UK Postcodes.', '27.0')] - local procedure ShowPostcodeLookup(ShowInputFields: Boolean) - var - TempEnteredAutocompleteAddress: Record "Autocomplete Address" temporary; - TempAutocompleteAddress: Record "Autocomplete Address" temporary; - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code") then - exit; - - if not PostcodeBusinessLogic.IsConfigured() or ((Rec."Post Code" = '') and not ShowInputFields) then - exit; - - TempEnteredAutocompleteAddress.Address := Rec.Address; - TempEnteredAutocompleteAddress.Postcode := Rec."Post Code"; - - if not PostcodeBusinessLogic.ShowLookupWindow(TempEnteredAutocompleteAddress, ShowInputFields, TempAutocompleteAddress) then - exit; - - CopyAutocompleteFields(TempAutocompleteAddress); - HandleAddressLookupVisibility(); - end; - - local procedure CopyAutocompleteFields(var TempAutocompleteAddress: Record "Autocomplete Address" temporary) - begin - Rec.Address := TempAutocompleteAddress.Address; - Rec."Address 2" := TempAutocompleteAddress."Address 2"; - Rec."Post Code" := TempAutocompleteAddress.Postcode; - Rec.City := TempAutocompleteAddress.City; - Rec.County := TempAutocompleteAddress.County; - Rec."Country/Region Code" := TempAutocompleteAddress."Country / Region"; - end; - - local procedure HandleAddressLookupVisibility() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not CurrPage.Editable or not PostcodeBusinessLogic.IsConfigured() then - IsAddressLookupTextEnabled := false - else - IsAddressLookupTextEnabled := PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code"); - end; -#endif - local procedure SetNoFieldVisible() var DocumentNoVisibility: Codeunit DocumentNoVisibility; diff --git a/src/Layers/GB/BaseApp/ECSalesListPopulateXML.Codeunit.al b/src/Layers/GB/BaseApp/ECSalesListPopulateXML.Codeunit.al deleted file mode 100644 index f3a1121d0b5..00000000000 --- a/src/Layers/GB/BaseApp/ECSalesListPopulateXML.Codeunit.al +++ /dev/null @@ -1,171 +0,0 @@ -#if not CLEAN27 -namespace Microsoft.Finance.VAT.Reporting; - -using Microsoft.Finance.GeneralLedger.Setup; -using Microsoft.Foundation.Company; -using System; -using System.Xml; - -codeunit 141 "EC Sales List Populate XML" -{ - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - - trigger OnRun() - begin - end; - - var - XMLDOMManagement: Codeunit "XML DOM Management"; - ECSLDeclarationNameSpaceTok: Label 'http://www.govtalk.gov.uk/taxation/vat/europeansalesdeclaration/1', Locked = true; - ECSLSchemaLocationTok: Label 'http://www.govtalk.gov.uk/taxation/vat/europeansalesdeclaration/1 EuropeanSalesDeclarationRequest.xsd', Locked = true; - ECSLCoreComponentParamTok: Label 'urn:oasis:names:specification:ubl:schema:xsd:CoreComponentParameters-1.0', Locked = true; - ECSLVATCoreNameSpaceTok: Label 'http://www.govtalk.gov.uk/taxation/vat/core/1', Locked = true; - XMLSchemaInstanceTok: Label 'http://www.w3.org/2001/XMLSchema-instance', Locked = true; - GMSNameSpaceTok: Label 'http://www.govtalk.gov.uk/CM/gms-xs', Locked = true; - ECSLCurrencyCodeListTok: Label 'urn:oasis:names:specification:ubl:schema:xsd:CurrencyCode-1.0', Locked = true; - MonthsTok: Label 'Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec'; - ContactPersonEmptyErr: Label 'A contact person is not specified for your company. This is the person the tax authority will contact. To continue, go to the Company Information page and choose a contact person, and then submit the report again.'; - LCYEmptyErr: Label 'The local currency (LCY) is not specified. To continue, go to the General Ledger Setup page, enter a currency in the LCY Code field, and then submit the report again.'; - GovTalkMessageManagement: Codeunit GovTalkMessageManagement; - - local procedure PopulateXMLHeader(var GovTalkMessageBodyXMLNode: DotNet XmlNode; var BodyNode: DotNet XmlNode; VATReportHeader: Record "VAT Report Header") - var - GeneralLedgerSetup: Record "General Ledger Setup"; - CompanyInformation: Record "Company Information"; - ECSLDeclarationRequestXMLNode: DotNet XmlNode; - ECSLDeclarationHeaderXMLNode: DotNet XmlNode; - DummyXMLNode: DotNet XmlNode; - begin - if not (CompanyInformation.Get() and GeneralLedgerSetup.Get()) then - exit; - - if GeneralLedgerSetup."LCY Code" = '' then - Error(LCYEmptyErr); - - if CompanyInformation."Contact Person" = '' then - Error(ContactPersonEmptyErr); - - XMLDOMManagement.AddElement(GovTalkMessageBodyXMLNode, 'EuropeanSalesDeclarationRequest', '', '', ECSLDeclarationRequestXMLNode); - AddGovTalkNamespaces(ECSLDeclarationRequestXMLNode); - - XMLDOMManagement.AddElement(ECSLDeclarationRequestXMLNode, 'Header', '', '', ECSLDeclarationHeaderXMLNode); - XMLDOMManagement.AddElement(ECSLDeclarationRequestXMLNode, 'Body', '', '', BodyNode); - - XMLDOMManagement.AddElementWithPrefix(ECSLDeclarationHeaderXMLNode, 'SubmittersContactName', - CompanyInformation."Contact Person", 'VATCore', ECSLVATCoreNameSpaceTok, DummyXMLNode); - AddCurrencyElement(ECSLDeclarationHeaderXMLNode, GeneralLedgerSetup."LCY Code"); - AddPeriodElement(ECSLDeclarationHeaderXMLNode, VATReportHeader); - - XMLDOMManagement.AddElementWithPrefix(ECSLDeclarationHeaderXMLNode, 'ApplyStrictEuropeanSaleValidation', - 'true', 'VATCore', ECSLVATCoreNameSpaceTok, DummyXMLNode); - end; - - local procedure InsertECSLDeclarationRequestDetails(var EuropeanSalesListBodyNode: DotNet XmlNode; VATReportHeader: Record "VAT Report Header"; PartId: Guid) - var - ECSLVATReportLine: Record "ECSL VAT Report Line"; - SaleElement: DotNet XmlNode; - DummyElement: DotNet XmlNode; - IndicatorVar: Integer; - begin - ECSLVATReportLine.SetRange("Report No.", VATReportHeader."No."); - ECSLVATReportLine.SetRange("XML Part Id", PartId); - if ECSLVATReportLine.FindSet() then - repeat - XMLDOMManagement.AddElement(EuropeanSalesListBodyNode, 'EuropeanSale', '', '', SaleElement); - XMLDOMManagement.AddElementWithPrefix(SaleElement, 'SubmittersReference', Format(ECSLVATReportLine."Line No."), - 'VATCore', ECSLVATCoreNameSpaceTok, DummyElement); - XMLDOMManagement.AddElementWithPrefix(SaleElement, 'CountryCode', ECSLVATReportLine."Country Code", 'VATCore', - ECSLVATCoreNameSpaceTok, DummyElement); - XMLDOMManagement.AddElementWithPrefix(SaleElement, 'CustomerVATRegistrationNumber', - GovTalkMessageManagement.FormatVATRegNo(ECSLVATReportLine."Country Code", ECSLVATReportLine."Customer VAT Reg. No."), - 'VATCore', ECSLVATCoreNameSpaceTok, DummyElement); - XMLDOMManagement.AddElementWithPrefix(SaleElement, 'TotalValueOfSupplies', - Format(ECSLVATReportLine."Total Value Of Supplies", 0, ''), 'VATCore', ECSLVATCoreNameSpaceTok, DummyElement); - IndicatorVar := ECSLVATReportLine."Transaction Indicator"; - XMLDOMManagement.AddElementWithPrefix(SaleElement, 'TransactionIndicator', Format(IndicatorVar), - 'VATCore', ECSLVATCoreNameSpaceTok, DummyElement); - until ECSLVATReportLine.Next() = 0; - end; - - local procedure GenerateEuropeanSalesDeclarationRequest(var EuropeanSalesListXML: DotNet XmlNode; VATReportHeader: Record "VAT Report Header"; PartId: Guid) - var - BodyNode: DotNet XmlNode; - begin - PopulateXMLHeader(EuropeanSalesListXML, BodyNode, VATReportHeader); - InsertECSLDeclarationRequestDetails(BodyNode, VATReportHeader, PartId); - end; - - local procedure GetMonthCode(MonthNo: Integer): Text - begin - exit(SelectStr(MonthNo, MonthsTok)); - end; - - local procedure AddGovTalkNamespaces(var ECSLDeclarationRequestXMLNode: DotNet XmlNode) - begin - XMLDOMManagement.AddAttribute(ECSLDeclarationRequestXMLNode, 'SchemaVersion', '1.0'); - XMLDOMManagement.AddAttributeWithPrefix(ECSLDeclarationRequestXMLNode, 'schemaLocation', 'xsi', XMLSchemaInstanceTok, ECSLSchemaLocationTok); - XMLDOMManagement.AddAttribute(ECSLDeclarationRequestXMLNode, 'xmlns:ccts', ECSLCoreComponentParamTok); - XMLDOMManagement.AddAttribute(ECSLDeclarationRequestXMLNode, 'xmlns:VATCore', ECSLVATCoreNameSpaceTok); - XMLDOMManagement.AddAttribute(ECSLDeclarationRequestXMLNode, 'xmlns', ECSLDeclarationNameSpaceTok); - XMLDOMManagement.AddAttribute(ECSLDeclarationRequestXMLNode, 'xmlns:xsi', XMLSchemaInstanceTok); - XMLDOMManagement.AddAttribute(ECSLDeclarationRequestXMLNode, 'xmlns:n1', GMSNameSpaceTok); - XMLDOMManagement.AddAttribute(ECSLDeclarationRequestXMLNode, 'xmlns:UBLCurrencyCodelist', ECSLCurrencyCodeListTok); - end; - - local procedure AddCurrencyElement(var ECSLDeclarationHeaderXMLNode: DotNet XmlNode; CurrencyCode: Code[10]) - var - DummyXMLNode: DotNet XmlNode; - begin - XMLDOMManagement.AddElementWithPrefix(ECSLDeclarationHeaderXMLNode, 'CurrencyCode', CurrencyCode, 'VATCore', ECSLVATCoreNameSpaceTok, DummyXMLNode); - XMLDOMManagement.AddAttribute(DummyXMLNode, 'codeListName', 'Currency'); - XMLDOMManagement.AddAttribute(DummyXMLNode, 'codeListID', 'ISO 4217 Alpha'); - XMLDOMManagement.AddAttribute(DummyXMLNode, 'codeListAgencyName', 'United Nations Economic Commission for Europe'); - XMLDOMManagement.AddAttribute(DummyXMLNode, 'codeListSchemeURI', 'urn:oasis:names:specification:ubl:schema:xsd:CurrencyCode-1.0'); - XMLDOMManagement.AddAttribute(DummyXMLNode, 'codeListURI', - 'http://www.bsi-global.com/Technical%2BInformation/Publications/_Publications/tig90x.doc'); - XMLDOMManagement.AddAttribute(DummyXMLNode, 'name', 'String'); - XMLDOMManagement.AddAttribute(DummyXMLNode, 'codeListAgencyID', '6'); - XMLDOMManagement.AddAttribute(DummyXMLNode, 'codeListVersionID', '0.3'); - XMLDOMManagement.AddAttribute(DummyXMLNode, 'languageID', 'en'); - end; - - local procedure AddPeriodElement(var ECSLDeclarationHeaderXMLNode: DotNet XmlNode; VATReportHeader: Record "VAT Report Header") - var - DummyXMLNode: DotNet XmlNode; - ECSLPeriodXMLNode: DotNet XmlNode; - begin - if VATReportHeader."Period Type" = VATReportHeader."Period Type"::Month then begin - XMLDOMManagement.AddElementWithPrefix(ECSLDeclarationHeaderXMLNode, 'TaxMonthlyPeriod', '', 'VATCore', ECSLVATCoreNameSpaceTok, ECSLPeriodXMLNode); - XMLDOMManagement.AddElementWithPrefix(ECSLPeriodXMLNode, 'TaxMonth', GetMonthCode(VATReportHeader."Period No."), - 'VATCore', ECSLVATCoreNameSpaceTok, DummyXMLNode); - XMLDOMManagement.AddElementWithPrefix(ECSLPeriodXMLNode, 'TaxMonthPeriodYear', Format(VATReportHeader."Period Year"), - 'VATCore', ECSLVATCoreNameSpaceTok, DummyXMLNode); - exit; - end; - if VATReportHeader."Period Type" = VATReportHeader."Period Type"::Quarter then begin - XMLDOMManagement.AddElementWithPrefix(ECSLDeclarationHeaderXMLNode, 'TaxQuarter', '', 'VATCore', ECSLVATCoreNameSpaceTok, ECSLPeriodXMLNode); - XMLDOMManagement.AddElementWithPrefix(ECSLPeriodXMLNode, 'TaxQuarterNumber', Format(VATReportHeader."Period No."), 'VATCore', - ECSLVATCoreNameSpaceTok, DummyXMLNode); - XMLDOMManagement.AddElementWithPrefix(ECSLPeriodXMLNode, 'TaxQuarterYear', Format(VATReportHeader."Period Year"), 'VATCore', - ECSLVATCoreNameSpaceTok, DummyXMLNode); - end; - end; - - [Scope('OnPrem')] - procedure GetECSLDeclarationRequestMessage(var GovTalkRequestXMLNode: DotNet XmlNode; VATReportHeader: Record "VAT Report Header"; PartId: Guid): Boolean - var - GovTalkMessageManagement: Codeunit GovTalkMessageManagement; - BodyXMLNode: DotNet XmlNode; - begin - if not GovTalkMessageManagement.CreateBlankGovTalkXmlMessage( - GovTalkRequestXMLNode, BodyXMLNode, VATReportHeader, 'request', 'submit', true) - then - exit(false); - GenerateEuropeanSalesDeclarationRequest(BodyXMLNode, VATReportHeader, PartId); - exit(true); - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/ECSalesListSubmit.Codeunit.al b/src/Layers/GB/BaseApp/ECSalesListSubmit.Codeunit.al deleted file mode 100644 index 3d589e11504..00000000000 --- a/src/Layers/GB/BaseApp/ECSalesListSubmit.Codeunit.al +++ /dev/null @@ -1,106 +0,0 @@ -#if not CLEAN27 -#pragma warning disable AA0247 -codeunit 142 "EC Sales List Submit" -{ - TableNo = "VAT Report Header"; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - trigger OnRun() - var - GovTalkMessageParts: Record "GovTalk Message Parts"; - ECSalesListPopulateXML: Codeunit "EC Sales List Populate XML"; - GovTalkMessageManagement: Codeunit GovTalkMessageManagement; - GovTalkRequestXMLNode: DotNet XmlNode; - begin - DefaltPartMaxLines := 9999; - SplitLines(Rec); - - SetGovTalkPartsFilter(GovTalkMessageParts, Rec); - if not GovTalkMessageParts.FindSet() then - exit; - - repeat - if not ECSalesListPopulateXML.GetECSLDeclarationRequestMessage(GovTalkRequestXMLNode, Rec, GovTalkMessageParts."Part Id") then - exit; - - GovTalkMessageManagement.SubmitECSLGovTalkRequest(Rec, GovTalkRequestXMLNode, GovTalkMessageParts."Part Id"); - until GovTalkMessageParts.Next() = 0; - end; - - var - DefaltPartMaxLines: Integer; - - local procedure SplitLines(VATReportHeader: Record "VAT Report Header") - var - GovTalkMessageParts: Record "GovTalk Message Parts"; - ECSLVATReportLine: Record "ECSL VAT Report Line"; - ModifyECSLVATReportLine: Record "ECSL VAT Report Line"; - Counter: Integer; - MaxLineNo: Integer; - begin - MaxLineNo := GetMaxLineNo(VATReportHeader); - - SetGovTalkPartsFilter(GovTalkMessageParts, VATReportHeader); - if not GovTalkMessageParts.IsEmpty() then - exit; - InitGovTalkMessagePart(GovTalkMessageParts, VATReportHeader); - - ECSLVATReportLine.SetRange("Report No.", VATReportHeader."No."); - if not ECSLVATReportLine.FindSet() then - exit; - - GetGovTalkMessagePart(GovTalkMessageParts); - ModifyECSLVATReportLine.SetRange("Report No.", VATReportHeader."No."); - ModifyECSLVATReportLine.ModifyAll("XML Part Id", GovTalkMessageParts."Part Id"); - - repeat - if Counter = MaxLineNo then begin - GetGovTalkMessagePart(GovTalkMessageParts); - ModifyECSLVATReportLine.SetFilter("Line No.", '>=%1', ECSLVATReportLine."Line No."); - ModifyECSLVATReportLine.ModifyAll("XML Part Id", GovTalkMessageParts."Part Id"); - Counter := 0; - end; - Counter += 1; - until ECSLVATReportLine.Next() = 0; - - ModifyECSLVATReportLine.Reset(); - ModifyECSLVATReportLine.SetRange("XML Part Id", GovTalkMessageParts."Part Id"); - if ModifyECSLVATReportLine.IsEmpty() then - GovTalkMessageParts.Delete(true); - end; - - local procedure GetGovTalkMessagePart(var GovTalkMessageParts: Record "GovTalk Message Parts") - begin - GovTalkMessageParts."Part Id" := CreateGuid(); - GovTalkMessageParts.Insert(); - end; - - local procedure GetMaxLineNo(VATReportHeader: Record "VAT Report Header"): Integer - var - VATReportsConfiguration: Record "VAT Reports Configuration"; - begin - VATReportsConfiguration.SetRange("VAT Report Type", VATReportHeader."VAT Report Config. Code"); - VATReportsConfiguration.SetRange("VAT Report Version", VATReportHeader."VAT Report Version"); - if VATReportsConfiguration.FindFirst() then; - if VATReportsConfiguration."Content Max Lines" = 0 then - exit(DefaltPartMaxLines); - - exit(VATReportsConfiguration."Content Max Lines"); - end; - - local procedure InitGovTalkMessagePart(var GovTalkMessageParts: Record "GovTalk Message Parts"; VATReportHeader: Record "VAT Report Header") - begin - GovTalkMessageParts.Validate("Report No.", VATReportHeader."No."); - GovTalkMessageParts.Validate("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"::"EC Sales List"); - GovTalkMessageParts.Validate(Status, GovTalkMessageParts.Status::Released); - end; - - local procedure SetGovTalkPartsFilter(var GovTalkMessageParts: Record "GovTalk Message Parts"; VATReportHeader: Record "VAT Report Header") - begin - GovTalkMessageParts.SetRange("Report No.", VATReportHeader."No."); - GovTalkMessageParts.SetRange("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"::"EC Sales List"); - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Finance/GeneralLedger/Journal/PaymentJournal.Page.al b/src/Layers/GB/BaseApp/Finance/GeneralLedger/Journal/PaymentJournal.Page.al index 690ef07d3b9..021ad892b26 100644 --- a/src/Layers/GB/BaseApp/Finance/GeneralLedger/Journal/PaymentJournal.Page.al +++ b/src/Layers/GB/BaseApp/Finance/GeneralLedger/Journal/PaymentJournal.Page.al @@ -874,11 +874,7 @@ page 256 "Payment Journal" ApplicationArea = Basic, Suite; Caption = 'P&review Check'; Image = ViewCheck; -#if not CLEAN27 - RunObject = Page "Check Preview GB"; -#else RunObject = Page "Check Preview"; -#endif RunPageLink = "Journal Template Name" = field("Journal Template Name"), "Journal Batch Name" = field("Journal Batch Name"), "Line No." = field("Line No."); diff --git a/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al b/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al index 7de0503d79b..ed2887bdd32 100644 --- a/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al +++ b/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al @@ -478,17 +478,11 @@ page 118 "General Ledger Setup" { ApplicationArea = Basic, Suite; Caption = 'Default View by'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Neg. Amount Format"; Rec."Fin. Rep. Neg. Amount Format") { ApplicationArea = Basic, Suite; Caption = 'Default Negative Amount Format'; -#if not CLEAN27 - Visible = FinancialReportDefaultsEnabled; -#endif } field("Fin. Rep. Company Logo Pos."; Rec."Fin. Rep. Company Logo Pos.") { @@ -551,42 +545,6 @@ page 118 "General Ledger Setup" ApplicationArea = Basic, Suite; } } -#if not CLEAN27 - group("Reverse Charge") - { - Caption = 'Reverse Charge'; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; - ObsoleteTag = '27.0'; - - field("Threshold applies"; Rec."Threshold applies") - { - ApplicationArea = Basic, Suite; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; - ObsoleteTag = '27.0'; - ToolTip = 'Specifies whether or not the program is setup to process Reverse Charge invoices.'; - - trigger OnValidate() - begin - if Rec."Threshold applies" then - ThresholdAmountEnable := true - else - ThresholdAmountEnable := false; - end; - } - field(ThresholdAmount; Rec."Threshold Amount") - { - ApplicationArea = Basic, Suite; - Caption = 'Threshold Amount'; - Enabled = ThresholdAmountEnable; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; - ObsoleteTag = '27.0'; - ToolTip = 'Specifies the de minimis rule amount determined by the tax authorities.'; - } - } -#endif group("Gen. Journal Templates") { Caption = 'Journal Templates'; @@ -930,18 +888,10 @@ page 118 "General Ledger Setup" FinancialReportMgt: Codeunit "Financial Report Mgt."; begin FinancialReportMgt.Initialize(); -#if not CLEAN27 - ThresholdAmountEnable := true; -#endif end; trigger OnOpenPage() var -#if not CLEAN27 -#pragma warning disable AL0432 - FeatureFinancialReportDef: Codeunit "Feature - Fin. Report Default"; -#pragma warning restore AL0432 -#endif begin Rec.Reset(); if not Rec.Get() then begin @@ -951,24 +901,12 @@ page 118 "General Ledger Setup" xGeneralLedgerSetup := Rec; IsJournalTemplatesVisible := Rec."Journal Templ. Name Mandatory"; -#if not CLEAN27 - ThresholdAmountEnable := Rec."Threshold applies"; -#endif -#if not CLEAN27 - FinancialReportDefaultsEnabled := FeatureFinancialReportDef.IsDefaultsFeatureEnabled(); -#endif end; var xGeneralLedgerSetup: Record "General Ledger Setup"; IsJournalTemplatesVisible: Boolean; -#if not CLEAN27 - ThresholdAmountEnable: Boolean; -#endif -#if not CLEAN27 - FinancialReportDefaultsEnabled: Boolean; -#endif #pragma warning disable AA0074 Text001: Label 'Do you want to change all open entries for every customer and vendor that are not blocked?'; diff --git a/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al b/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al index 412b8a422a9..c24bc4d21a8 100644 --- a/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al +++ b/src/Layers/GB/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Table.al @@ -1447,13 +1447,8 @@ table 98 "General Ledger Setup" { Caption = 'Threshold applies'; ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } field(10501; "Threshold Amount"; Decimal) { @@ -1461,13 +1456,8 @@ table 98 "General Ledger Setup" Caption = 'Threshold Amount'; MinValue = 0; ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif } diff --git a/src/Layers/GB/BaseApp/Finance/RoleCenters/AccountingManagerRoleCenter.Page.al b/src/Layers/GB/BaseApp/Finance/RoleCenters/AccountingManagerRoleCenter.Page.al index 96b599ef930..545e3a2b6d6 100644 --- a/src/Layers/GB/BaseApp/Finance/RoleCenters/AccountingManagerRoleCenter.Page.al +++ b/src/Layers/GB/BaseApp/Finance/RoleCenters/AccountingManagerRoleCenter.Page.al @@ -287,30 +287,6 @@ page 9001 "Accounting Manager Role Center" RunObject = Report "G/L - VAT Reconciliation"; ToolTip = 'Verify that the VAT amounts on the VAT statements match the amounts from the G/L entries.'; } -#if not CLEAN27 - action("VAT Audit") - { - ApplicationArea = VAT; - Caption = 'VAT Audit'; - Image = "Report"; - RunObject = Report "VAT Audit"; - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ToolTip = 'Prepare for the HMC&E VAT audit by exports the relevant data for VAT auditors into comma-separated files.'; - } - action("VAT Entry Exception List") - { - ApplicationArea = VAT; - Caption = 'VAT Entry Exception List'; - Image = "Report"; - RunObject = Report "VAT Entry Exception Report"; - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ToolTip = 'View or print the differences between the calculated VAT and the changes that occur because of rounding, VAT tolerance percentage, and discounts. The report also displays the difference in VAT amounts for the tax authorities.'; - } -#endif separator("VAT EU Reporting") { Caption = 'VAT EU Reporting'; diff --git a/src/Layers/GB/BaseApp/Finance/RoleCenters/BookkeeperRoleCenter.Page.al b/src/Layers/GB/BaseApp/Finance/RoleCenters/BookkeeperRoleCenter.Page.al index cbaf74c0d45..fda08c7a9d4 100644 --- a/src/Layers/GB/BaseApp/Finance/RoleCenters/BookkeeperRoleCenter.Page.al +++ b/src/Layers/GB/BaseApp/Finance/RoleCenters/BookkeeperRoleCenter.Page.al @@ -242,30 +242,6 @@ page 9004 "Bookkeeper Role Center" RunObject = Report "G/L - VAT Reconciliation"; ToolTip = 'Verify that the VAT amounts on the VAT statements match the amounts from the G/L entries.'; } -#if not CLEAN27 - action("VAT Audit") - { - ApplicationArea = VAT; - Caption = 'VAT Audit'; - Image = "Report"; - RunObject = Report "VAT Audit"; - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ToolTip = 'Prepare for the HMC&E VAT audit by exports the relevant data for VAT auditors into comma-separated files.'; - } - action("VAT Entry Exception List") - { - ApplicationArea = VAT; - Caption = 'VAT Entry Exception List'; - Image = "Report"; - RunObject = Report "VAT Entry Exception Report"; - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ToolTip = 'View or print the differences between the calculated VAT and the changes that occur because of rounding, VAT tolerance percentage, and discounts. The report also displays the difference in VAT amounts for the tax authorities.'; - } -#endif group("VAT EU Reporting") { Caption = 'VAT EU Reporting'; diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Calculation/VATAmountLine.Table.al b/src/Layers/GB/BaseApp/Finance/VAT/Calculation/VATAmountLine.Table.al index ecd5f60d90c..5d1a4ac8b96 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Calculation/VATAmountLine.Table.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Calculation/VATAmountLine.Table.al @@ -322,24 +322,8 @@ table 290 "VAT Amount Line" AutoFormatType = 0; Caption = 'Reverse Charge'; ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif - -#if not CLEAN27 - trigger OnValidate() - begin - TestField("VAT %"); - TestField("VAT Base"); - if "VAT Amount" / "VAT Base" < 0 then - Error(Text002, FieldCaption("VAT Amount")); - "VAT Difference" := "VAT Amount" - "Calculated VAT Amount"; - end; -#endif } #endif } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSLReport.Page.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSLReport.Page.al index 747f513bbd6..c9264bdc463 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSLReport.Page.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSLReport.Page.al @@ -131,11 +131,7 @@ page 321 "ECSL Report" part(ErrorMessagesPart; "Error Messages Part") { ApplicationArea = BasicEU; -#if not CLEAN27 - Caption = 'Errors and Warnings'; -#else Caption = 'Messages'; -#endif Visible = ErrorsExist; } } @@ -316,16 +312,6 @@ page 321 "ECSL Report" } } -#if not CLEAN27 - trigger OnAfterGetCurrRecord() - var - GovTalkSetup: Record "GovTalk Setup"; - begin - DeleteErrors(DummyCompanyInformation.RecordId); - DeleteErrors(GovTalkSetup.RecordId); - end; -#endif - trigger OnAfterGetRecord() begin InitPageControllers(); @@ -334,11 +320,7 @@ page 321 "ECSL Report" trigger OnClosePage() begin -#if not CLEAN27 - DeleteErrors(DummyCompanyInformation.RecordId); -#else DeleteErrors(); -#endif end; trigger OnInsertRecord(BelowxRec: Boolean): Boolean @@ -351,11 +333,7 @@ page 321 "ECSL Report" if Rec."No." <> '' then InitPageControllers(); IsEditable := Rec.Status = Rec.Status::Open; -#if not CLEAN27 - DeleteErrors(DummyCompanyInformation.RecordId); -#else DeleteErrors(); -#endif end; var @@ -396,14 +374,7 @@ page 321 "ECSL Report" var ErrorMessage: Record "Error Message"; TempErrorMessage: Record "Error Message" temporary; -#if not CLEAN27 - GovTalkSetup: Record "GovTalk Setup"; -#endif begin -#if not CLEAN27 - ErrorMessage.SetRange("Context Record ID", GovTalkSetup.RecordId); - ErrorMessage.CopyToTemp(TempErrorMessage); -#endif OnBeforeCheckForErrors(ErrorsExist, ErrorMessage, TempErrorMessage); ErrorMessage.SetRange("Context Record ID", DummyCompanyInformation.RecordId); ErrorMessage.CopyToTemp(TempErrorMessage); @@ -418,23 +389,6 @@ page 321 "ECSL Report" exit(ErrorsExist); end; -#if not CLEAN27 - [Obsolete('Moved to GovTalk app', '27.0')] - local procedure DeleteErrors(Context: RecordID) - var - ErrorMessage: Record "Error Message"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeDeleteErrors(IsHandled); - if IsHandled then - exit; - ErrorMessage.SetRange("Context Record ID", Context); - if ErrorMessage.FindFirst() then - ErrorMessage.DeleteAll(true); - Commit(); - end; -#else local procedure DeleteErrors() var ErrorMessage: Record "Error Message"; @@ -444,15 +398,6 @@ page 321 "ECSL Report" ErrorMessage.DeleteAll(true); Commit(); end; -#endif - -#if not CLEAN27 - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeDeleteErrors(var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCheckForErrors(var ErrorsExist: Boolean; ErrorMessage: Record "Error Message"; var TempErrorMessage: Record "Error Message" temporary) diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSLVATReportLine.Table.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSLVATReportLine.Table.al index 76b3981f10c..23d836a95b6 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSLVATReportLine.Table.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSLVATReportLine.Table.al @@ -73,37 +73,20 @@ table 362 "ECSL VAT Report Line" #if not CLEANSCHEMA30 field(10500; "Line Status"; Option) { -#if not CLEAN27 - CalcFormula = lookup("GovTalk Message Parts".Status where("Report No." = field("Report No."), - "Part Id" = field("XML Part Id"), - "VAT Report Config. Code" = const("EC Sales List"))); -#endif Caption = 'Line Status'; FieldClass = FlowField; OptionCaption = ' ,Released,Submitted,Accepted,Rejected'; OptionMembers = " ",Released,Submitted,Accepted,Rejected; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; ObsoleteReason = 'Moved to GovTalk app'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Moved to GovTalk app'; -#endif } field(10501; "XML Part Id"; Guid) { Caption = 'XML Part Id'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; ObsoleteReason = 'Moved to GovTalk app'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Moved to GovTalk app'; -#endif } #endif } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSalesList.Report.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSalesList.Report.al index 24c4199429e..df3d9a53c8b 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSalesList.Report.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSalesList.Report.al @@ -8,11 +8,6 @@ using Microsoft.Finance.GeneralLedger.Setup; using Microsoft.Finance.VAT.Ledger; using Microsoft.Foundation.Address; using Microsoft.Foundation.Company; -#if not CLEAN27 -using System; -using System.IO; -using System.Utilities; -#endif /// /// Generates European Community Sales List report for EU trade reporting requirements. @@ -117,11 +112,6 @@ report 130 "EC Sales List" column(TotalValueofServiceSuppliesCaption; TotalValueofServiceSuppliesCaptionLbl) { } -#if not CLEAN27 - column(Indicator_Code_Caption; Indicator_Code_CaptionLbl) - { - } -#endif column(EU3PartyItemTradeAmtCaption; EU3PartyItemTradeAmtCaptionLbl) { } @@ -141,11 +131,7 @@ report 130 "EC Sales List" { DataItemLink = "Country/Region Code" = field(Code); DataItemTableView = sorting(Type, "Country/Region Code", "VAT Registration No.", "VAT Bus. Posting Group", "VAT Prod. Posting Group", "VAT Reporting Date") where(Type = const(Sale), "Country/Region Code" = filter(<> '')); -#if not CLEAN27 - RequestFilterFields = "VAT Bus. Posting Group", "VAT Prod. Posting Group", "VAT Reporting Date", "EU Service"; -#else RequestFilterFields = "VAT Bus. Posting Group", "VAT Prod. Posting Group", "VAT Reporting Date"; -#endif column(VATRegNo_VATEntry; "VAT Registration No.") { } @@ -165,11 +151,6 @@ report 130 "EC Sales List" { OptionCaption = 'NotEUTrdPartyAmt,NotEUTrdPartyAmtService,EUTrdPartyAmt,EUTrdPartyAmtService'; } -#if not CLEAN27 - column(IndicatorCode; IndicatorCode) - { - } -#endif column(NotEUTrdPartyAmtService; NotEUTrdPartyAmtService) { } @@ -184,9 +165,6 @@ report 130 "EC Sales List" begin if ResetVATEntry then begin ResetVATEntry := false; -#if not CLEAN27 - NewGroupStarted := false; -#endif EUTrdPartyAmtService := 0; NotEUTrdPartyAmtService := 0; EUTrdPartyAmt := 0; @@ -206,24 +184,6 @@ report 130 "EC Sales List" OnBeforeSetGrouping(ReportLayout, NotEUTrdPartyAmt, Grouping, NotEUTrdPartyAmtService, EUTrdPartyAmt, EUTrdPartyAmtService); if ReportLayout = ReportLayout::"Separate &Lines" then begin -#if not CLEAN27 - if NotEUTrdPartyAmt <> 0 then begin - Grouping := Grouping::NotEUTrdPartyAmt; - IndicatorCode := GetIndicatorCode(false, false) - end; - if NotEUTrdPartyAmtService <> 0 then begin - Grouping := Grouping::NotEUTrdPartyAmtService; - IndicatorCode := GetIndicatorCode(false, true) - end; - if EUTrdPartyAmt <> 0 then begin - Grouping := Grouping::EUTrdPartyAmt; - IndicatorCode := GetIndicatorCode(true, false) - end; - if EUTrdPartyAmtService <> 0 then begin - Grouping := Grouping::EUTrdPartyAmtService; - IndicatorCode := GetIndicatorCode(false, true) - end; -#else if NotEUTrdPartyAmt <> 0 then Grouping := Grouping::NotEUTrdPartyAmt; if NotEUTrdPartyAmtService <> 0 then @@ -232,7 +192,6 @@ report 130 "EC Sales List" Grouping := Grouping::EUTrdPartyAmt; if EUTrdPartyAmtService <> 0 then Grouping := Grouping::EUTrdPartyAmtService -#endif end; if not (VATEntry.Next() = 0) then begin @@ -244,11 +203,6 @@ report 130 "EC Sales List" CurrReport.Skip(); ResetVATEntry := true; OnAfterVATEntryNext(ResetVATEntry, "VAT Entry"); -#if not CLEAN27 - NewGroupStarted := true; - PrevVATRegNo := "VAT Registration No."; - UpdateXMLFileRTC(); -#endif end; TotalEUTrdPartyAmtService += Round(EUTrdPartyAmtService, 1); @@ -261,30 +215,13 @@ report 130 "EC Sales List" FormatNotEUTrdPartyAmt := FormatAmt(TotalNotEUTrdPartyAmt); end; -#if not CLEAN27 - trigger OnPostDataItem() - begin - UpdateXMLFileRTC(); - end; -#endif - trigger OnPreDataItem() begin ResetVATEntry := true; VATEntry.SetCurrentKey( Type, "Country/Region Code", "VAT Registration No.", "VAT Bus. Posting Group", "VAT Prod. Posting Group", "VAT Reporting Date"); VATEntry.CopyFilters("VAT Entry"); -#if not CLEAN27 - if not VATEntry.FindSet() then; -#else if VATEntry.FindSet() then; -#endif -#if not CLEAN27 - EUTrdPartyAmtService := 0; - NotEUTrdPartyAmtService := 0; - EUTrdPartyAmt := 0; - NotEUTrdPartyAmt := 0 -#endif end; } @@ -317,19 +254,6 @@ report 130 "EC Sales List" OptionCaption = 'Separate Lines,Column with Amount'; ToolTip = 'Specifies if you want the report to show third party trade as a separate line for each customer or as an additional column.'; } -#if not CLEAN27 - field("Create XML File"; "Create XML File") - { - ApplicationArea = Basic, Suite; - Caption = 'Create XML File'; - ToolTip = 'Specifies the calculated tax and base amounts, and creates the sales VAT advance notification XML document that will be sent to the tax authority.'; - - trigger OnValidate() - begin - CreateXMLFileOnAfterValidate(); - end; - } -#endif } } } @@ -337,83 +261,29 @@ report 130 "EC Sales List" actions { } - -#if not CLEAN27 - trigger OnInit() - begin - XMLFileEnable := true; - end; -#endif - -#if not CLEAN27 - trigger OnOpenPage() - begin - XMLFileEnable := "Create XML File"; - end; -#endif } rendering { -#if not CLEAN27 - layout(RDLCLayout) - { - Type = RDLC; - LayoutFile = './Finance/VAT/Reporting/ECSalesListGB.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#else layout(RDLCLayout) { Type = RDLC; LayoutFile = './Finance/VAT/Reporting/ECSalesList.rdlc'; Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; } -#endif } labels { } -#if not CLEAN27 - trigger OnPostReport() - begin - if "Create XML File" then - SaveXMLFile(); - end; -#endif - trigger OnPreReport() -#if not CLEAN27 - var - PeriodEnd: Date; - IsHandled: Boolean; -#endif begin CompanyInfo.Get(); FormatAddr.Company(CompanyAddr, CompanyInfo); VATEntryFilter := "VAT Entry".GetFilters(); -#if not CLEAN27 - PeriodStart := "VAT Entry".GetRangeMin("Posting Date"); - PeriodEnd := "VAT Entry".GetRangeMax("Posting Date"); - - Calendar.Reset(); - Calendar.SetFilter("Period Type", '%1|%2', Calendar."Period Type"::Month, Calendar."Period Type"::Quarter); - Calendar.SetRange("Period Start", PeriodStart); - Calendar.SetRange("Period End", ClosingDate(PeriodEnd)); - IsHandled := false; - OnBeforePostingDateError(IsHandled); - if not IsHandled then - if not Calendar.FindFirst() then - Error(Text10500, "VAT Entry".FieldCaption("Posting Date"), "VAT Entry".GetFilter("Posting Date")); -#endif GLSetup.Get(); -#if not CLEAN27 - if "Create XML File" then - CreateXMLDocument(); -#endif end; var @@ -449,28 +319,6 @@ report 130 "EC Sales List" FormatEUTrdPartyAmt: Text[30]; FormatNotEUTrdPartyAmtService: Text[30]; FormatEUTrdPartyAmtService: Text[30]; -#if not CLEAN27 - Calendar: Record Date; - XMLOut: DotNet XmlDocument; - XMLCurrNode: DotNet XmlNode; - Attribute: DotNet XmlAttribute; - NewChildNode: DotNet XmlNode; - NewChildNode2: DotNet XmlNode; - NewChildNode3: DotNet XmlNode; - "XML File": Text[1024]; - "Create XML File": Boolean; - Text1041000: Label 'XML Files (*.xml)|*.xml|All Files (*.*)|*.*'; - Text1041001: Label 'Export to XML File'; - PeriodStart: Date; - Text1041002: Label 'XML file successfully created'; - Text1040003: Label 'Default'; - ToFile: Text[1024]; - PrevVATRegNo: Text[30]; - NewGroupStarted: Boolean; - XMLFileEnable: Boolean; - Text10500: Label '%1 filter %2 must be corrected, to run the report monthly or quarterly. '; - IndicatorCode: Integer; -#endif ECSalesListCaptionLbl: Label 'EC Sales List'; CompanyInfoPhoneNoCaptionLbl: Label 'Phone No.'; CompanyInfoHomePageCaptionLbl: Label 'Home Page'; @@ -478,9 +326,6 @@ report 130 "EC Sales List" TotalValueofItemSuppliesCaptionLbl: Label 'Total Value of Item Supplies'; EU3PartyTradeCaptionLbl: Label 'EU 3-Party Trade'; TotalValueofServiceSuppliesCaptionLbl: Label 'Total Value of Service Supplies'; -#if not CLEAN27 - Indicator_Code_CaptionLbl: Label 'Indicator Code'; -#endif EU3PartyItemTradeAmtCaptionLbl: Label 'EU 3-Party Item Trade Amount'; EUPartySrvcTradeAmtCaptionLbl: Label 'EU 3-Party Service Trade Amount'; NumberoflinesThispageCaptionLbl: Label 'Number of lines (this page)'; @@ -507,179 +352,6 @@ report 130 "EC Sales List" ReportLayout := NewReportLayout; end; -#if not CLEAN27 - [Obsolete('Moved to GovTalk app', '27.0')] - [Scope('OnPrem')] - procedure CreateXMLDocument() - var - RBMgt: Codeunit "File Management"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeCreateXMLDocument(IsHandled); - if IsHandled then - exit; - "XML File" := RBMgt.ServerTempFileName('xml'); - XMLOut := XMLOut.XmlDocument(); - - - XMLCurrNode := XMLOut.CreateElement('Submission'); - Attribute := XMLOut.CreateAttribute('type'); - Attribute.Value := 'HMCE_VAT_ESL_BULK_SUBMISSION_FILE'; - XMLCurrNode.Attributes.SetNamedItem(Attribute); - XMLOut.AppendChild(XMLCurrNode); - - XMLOut.CreateProcessingInstruction('xml', 'version="1.0" encoding="utf-8"'); - - NewChildNode := XMLOut.CreateElement('TraderVRN'); - NewChildNode.InnerText(CompanyInfo."VAT Registration No."); - XMLCurrNode.AppendChild(NewChildNode); - - NewChildNode := XMLOut.CreateElement('Branch'); - NewChildNode.InnerText(CompanyInfo."Branch Number"); - XMLCurrNode.AppendChild(NewChildNode); - - NewChildNode := XMLOut.CreateElement('Year'); - NewChildNode.InnerText(Format(Date2DMY(PeriodStart, 3))); - XMLCurrNode.AppendChild(NewChildNode); - - NewChildNode := XMLOut.CreateElement('Period'); - NewChildNode.InnerText(FormatPeriod(Calendar."Period No." * CalcPeriodValue())); - XMLCurrNode.AppendChild(NewChildNode); - - NewChildNode := XMLOut.CreateElement('CurrencyA3'); - NewChildNode.InnerText(GLSetup."LCY Code"); - XMLCurrNode.AppendChild(NewChildNode); - - NewChildNode := XMLOut.CreateElement('ContactName'); - NewChildNode.InnerText(CompanyInfo."Contact Person"); - XMLCurrNode.AppendChild(NewChildNode); - - NewChildNode := XMLOut.CreateElement('Online'); - NewChildNode.InnerText('0'); - XMLCurrNode.AppendChild(NewChildNode); - - NewChildNode := XMLOut.CreateElement('SubmissionLines'); - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - [Scope('OnPrem')] - procedure CreateXMLSubmissionLine(Amount: Decimal; IndicatorCode: Integer) - begin - NewChildNode2 := XMLOut.CreateElement('SubmissionLine'); - - NewChildNode3 := XMLOut.CreateElement('CountryA2'); - NewChildNode3.InnerText("Country/Region"."EU Country/Region Code"); - - NewChildNode.AppendChild(NewChildNode2); - NewChildNode2.AppendChild(NewChildNode3); - - NewChildNode3 := XMLOut.CreateElement('CustomerVRN'); - if NewGroupStarted then - NewChildNode3.InnerText(PrevVATRegNo) - else - NewChildNode3.InnerText("VAT Entry"."VAT Registration No."); - NewChildNode2.AppendChild(NewChildNode3); - - NewChildNode3 := XMLOut.CreateElement('Value'); - NewChildNode3.InnerText(FormatAmtXML(Amount)); - NewChildNode2.AppendChild(NewChildNode3); - NewChildNode3 := XMLOut.CreateElement('Indicator'); - NewChildNode3.InnerText(Format(IndicatorCode)); - NewChildNode2.AppendChild(NewChildNode3); - XMLCurrNode.AppendChild(NewChildNode); - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - [Scope('OnPrem')] - procedure SaveXMLFile() - var - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeSaveXMLFile(IsHandled); - if IsHandled then - exit; - XMLOut.Save("XML File"); - ToFile := Text1040003 + '.xml'; - if not Download("XML File", Text1041001, '', Text1041000, ToFile) then - exit; - Message(Text1041002); - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - local procedure FormatAmtXML(AmountToPrint: Decimal): Text[30] - begin - exit(Format(Round(-AmountToPrint, 1), 0, 1)); - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - [Scope('OnPrem')] - procedure UpdateXMLFileRTC() - var - IndicatorCode2: Integer; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeUpdateXMLFileRTC(IsHandled); - if IsHandled then - exit; - if "Create XML File" and - (NotEUTrdPartyAmt <> 0) - then begin - IndicatorCode2 := GetIndicatorCode(false, false); - CreateXMLSubmissionLine(NotEUTrdPartyAmt, IndicatorCode2); - end; - - if "Create XML File" and (NotEUTrdPartyAmtService <> 0) then begin - IndicatorCode2 := GetIndicatorCode(false, true); - CreateXMLSubmissionLine(NotEUTrdPartyAmtService, IndicatorCode2); - end; - if "Create XML File" and - (EUTrdPartyAmt <> 0) - then begin - IndicatorCode2 := GetIndicatorCode(true, false); - CreateXMLSubmissionLine(EUTrdPartyAmt, IndicatorCode2); - end; - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - local procedure CreateXMLFileOnAfterValidate() - begin - XMLFileEnable := "Create XML File"; - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - [Scope('OnPrem')] - procedure CalcPeriodValue(): Integer - begin - if Calendar."Period Type" = Calendar."Period Type"::Month then - exit(1) - else - exit(3) - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - [Scope('OnPrem')] - procedure FormatPeriod(PeriodNo: Integer): Text[30] - begin - exit(Format(PeriodNo, 2, '')); - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - [Scope('OnPrem')] - procedure GetIndicatorCode(EU3rdPartyTrade: Boolean; EUService: Boolean): Integer - begin - if EUService then - exit(3) - else - if EU3rdPartyTrade then - exit(2) - else - exit(0) - end; -#endif - [IntegrationEvent(true, false)] local procedure OnBeforeSetGrouping(ReportLayout: Option "Separate &Lines","Column with &Amount"; NotEUTrdPartyAmt: Decimal; Grouping: Option NotEUTrdPartyAmt,NotEUTrdPartyAmtService,EUTrdPartyAmt,EUTrdPartyAmtService; NotEUTrdPartyAmtService: Decimal; EUTrdPartyAmt: Decimal; EUTrdPartyAmtService: Decimal) begin @@ -689,31 +361,5 @@ report 130 "EC Sales List" local procedure OnAfterVATEntryNext(ResetVATEntry: Boolean; "VAT Entry": Record "VAT Entry") begin end; - -#if not CLEAN27 - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeUpdateXMLFileRTC(var IsHandled: Boolean) - begin - end; - - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeSaveXMLFile(var IsHandled: Boolean) - begin - end; - - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforePostingDateError(var IsHandled: Boolean) - begin - end; - - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCreateXMLDocument(var IsHandled: Boolean) - begin - end; -#endif } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSalesListSuggestLines.Codeunit.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSalesListSuggestLines.Codeunit.al index 8df3ec66676..5c0755bc5ed 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSalesListSuggestLines.Codeunit.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/ECSalesListSuggestLines.Codeunit.al @@ -49,9 +49,6 @@ codeunit 140 "EC Sales List Suggest Lines" EUVATEntries.Open(); while EUVATEntries.Read() do -#if not CLEAN27 - if IsApplicableEntry(EUVATEntries) then -#endif AddOrUpdateECLLine(EUVATEntries); RowsTotalCorrection(); DeleteZeroAmountLines(); @@ -155,41 +152,6 @@ codeunit 140 "EC Sales List Suggest Lines" ECSLVATReportLine.DeleteAll(); end; -#if not CLEAN27 - [Obsolete('Moved to GovTalk app', '27.0')] - local procedure IsApplicableEntry(EUVATEntries: Query "EU VAT Entries"): Boolean - var - ECSLVATReportLine: Record "ECSL VAT Report Line"; - ECSLVATReportLineRelation: Record "ECSL VAT Report Line Relation"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeIsApplicableEntry(IsHandled); - if IsHandled then - exit(true); - if - (EUVATEntries.VAT_Entry_No = 0) and - (EUVATEntries.ECSL_Line_No = 0) and - (EUVATEntries.ECSL_Report_No = '') - then - exit(true); - - ECSLVATReportLineRelation.SetRange("VAT Entry No.", EUVATEntries.VAT_Entry_No); - if not ECSLVATReportLineRelation.FindSet() then - exit(true); - - repeat - if ECSLVATReportLine.Get(ECSLVATReportLineRelation."ECSL Report No.", ECSLVATReportLineRelation."ECSL Line No.") then begin - ECSLVATReportLine.CalcFields("Line Status"); - if ECSLVATReportLine."Line Status" <> ECSLVATReportLine."Line Status"::Rejected then - exit(false); - end; - until ECSLVATReportLineRelation.Next() = 0; - - exit(true); - end; -#endif - /// /// Integration event raised before adding or updating an ECSL line during line suggestion. /// Allows customization of ECSL line creation logic and data population. @@ -212,13 +174,5 @@ codeunit 140 "EC Sales List Suggest Lines" local procedure OnPopulateVatEntryLinesOnAfterEUVATEntriesSetFilters(var VATReportHeader: Record "VAT Report Header"; var EUVATEntries: Query "EU VAT Entries") begin end; - -#if not CLEAN27 - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeIsApplicableEntry(var IsHandled: Boolean) - begin - end; -#endif } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/EUVATEntries.Query.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/EUVATEntries.Query.al index 62acc95b72c..f8c03f38f6b 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/EUVATEntries.Query.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/EUVATEntries.Query.al @@ -61,39 +61,6 @@ query 141 "EU VAT Entries" column(CountryCode; "Code") { } -#if not CLEAN27 - dataitem(ECSL_VAT_Report_Line_Relation; "ECSL VAT Report Line Relation") - { - DataItemLink = "VAT Entry No." = VAT_Entry."Entry No."; - SqlJoinType = LeftOuterJoin; - column(VAT_Entry_No; "VAT Entry No.") - { - } - column(ECSL_Line_No; "ECSL Line No.") - { - } - column(ECSL_Report_No; "ECSL Report No.") - { - } - dataitem(ECSL_VAT_Report_Line; "ECSL VAT Report Line") - { - DataItemLink = "Line No." = ECSL_VAT_Report_Line_Relation."ECSL Line No.", "Report No." = ECSL_VAT_Report_Line_Relation."ECSL Report No."; - SqlJoinType = LeftOuterJoin; - column(Line_Status; "Line Status") - { - } - column(XML_Part_Id; "XML Part Id") - { - } - column(Line_No; "Line No.") - { - } - column(Report_No; "Report No.") - { - } - } - } -#endif } } } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReport.Page.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReport.Page.al index 0db10e34873..307ebbd0653 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReport.Page.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReport.Page.al @@ -297,20 +297,13 @@ page 740 "VAT Report" trigger OnAction() var VATReportArchive: Record "VAT Report Archive"; -#if not CLEAN27 - DummyGuid: Guid; -#endif IsHandled: Boolean; begin IsHandled := false; OnBeforeDownloadSubmissionMessage(IsHandled, Rec); if IsHandled then exit; -#if not CLEAN27 - VATReportArchive.DownloadSubmissionMessage(Rec."VAT Report Config. Code".AsInteger(), Rec."No.", DummyGuid); -#else VATReportArchive.DownloadSubmissionMessage(Rec."VAT Report Config. Code".AsInteger(), Rec."No."); -#endif end; } action("Download Response Message") @@ -324,20 +317,13 @@ page 740 "VAT Report" trigger OnAction() var VATReportArchive: Record "VAT Report Archive"; -#if not CLEAN27 - DummyGuid: Guid; -#endif IsHandled: Boolean; begin IsHandled := false; OnBeforeDownloadResponseMessage(IsHandled, Rec); if IsHandled then exit; -#if not CLEAN27 - VATReportArchive.DownloadResponseMessage(Rec."VAT Report Config. Code".AsInteger(), Rec."No.", DummyGuid); -#else VATReportArchive.DownloadResponseMessage(Rec."VAT Report Config. Code".AsInteger(), Rec."No."); -#endif end; } action("Calc. and Post VAT Settlement") diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportArchive.Table.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportArchive.Table.al index d37e4077cfd..bdd116020d6 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportArchive.Table.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportArchive.Table.al @@ -102,42 +102,6 @@ table 747 "VAT Report Archive" NoSubmissionMessageAvailableErr: Label 'The submission message of the report is not available.'; NoResponseMessageAvailableErr: Label 'The response message of the report is not available.'; -#if not CLEAN27 - [Obsolete('Moved to GovTalk app', '27.0')] - procedure ArchiveSubmissionMessage(VATReportTypeValue: Option; VATReportNoValue: Code[20]; TempBlobSubmissionMessage: Codeunit "Temp Blob"): Boolean - var - BlankGuid: Guid; - begin - exit(ArchiveSubmissionMessage(VATReportTypeValue, VATReportNoValue, TempBlobSubmissionMessage, BlankGuid)); - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - procedure ArchiveSubmissionMessage(VATReportTypeValue: Option; VATReportNoValue: Code[20]; TempBlobSubmissionMessage: Codeunit "Temp Blob"; XMLPartID: Guid): Boolean - var - VATReportArchive: Record "VAT Report Archive"; - IsHandled: Boolean; - begin - if VATReportNoValue = '' then - exit(false); - if not TempBlobSubmissionMessage.HasValue() then - exit(false); - IsHandled := false; - OnBeforeVATReportArchiveGet(IsHandled, VATReportTypeValue, VATReportNoValue); - if not IsHandled then - if VATReportArchive.Get(VATReportTypeValue, VATReportNoValue, XMLPartID) then - exit(false); - - VATReportArchive.Init(); - VATReportArchive."VAT Report No." := VATReportNoValue; - VATReportArchive."VAT Report Type" := "VAT Report Configuration".FromInteger(VATReportTypeValue); - VATReportArchive."Xml Part ID" := XMLPartID; - VATReportArchive."Submitted By" := UserId; - VATReportArchive."Submittion Date" := Today; - VATReportArchive.SetSubmissionMessageBLOBFromBlob(TempBlobSubmissionMessage); - VATReportArchive.Insert(true); - exit(true); - end; -#else /// /// Archives the submission message for a VAT report with compression and user tracking. /// Creates new archive record with submission details and compressed message data. @@ -167,30 +131,7 @@ table 747 "VAT Report Archive" VATReportArchive.Insert(true); exit(true); end; -#endif -#if not CLEAN27 - [Obsolete('Moved to GovTalk app', '27.0')] - procedure ArchiveResponseMessage(VATReportTypeValue: Option; VATReportNoValue: Code[20]; TempBlobResponseMessage: Codeunit "Temp Blob"; XMLPartID: Guid): Boolean - var - VATReportArchive: Record "VAT Report Archive"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeArchiveResponseMessage(IsHandled, VATReportTypeValue, VATReportNoValue, VATReportArchive); - if not IsHandled then - if not VATReportArchive.Get(VATReportTypeValue, VATReportNoValue, XMLPartID) then - exit(false); - if not TempBlobResponseMessage.HasValue() then - exit(false); - - VATReportArchive."Response Received Date" := CurrentDateTime; - VATReportArchive.SetResponseMessageBLOBFromBlob(TempBlobResponseMessage); - VATReportArchive.Modify(true); - - exit(true); - end; -#else /// /// Archives the response message received from tax authorities for an existing VAT report submission. /// Updates existing archive record with response data and timestamp. @@ -214,37 +155,7 @@ table 747 "VAT Report Archive" exit(true); end; -#endif - -#if not CLEAN27 - [Obsolete('Moved to GovTalk app', '27.0')] - procedure DownloadSubmissionMessage(VATReportTypeValue: Option; VATReportNoValue: Code[20]; XMLPartId: Guid) - var - VATReportArchive: Record "VAT Report Archive"; - DocumentAttachment: Record "Document Attachment"; - TempBlob: Codeunit "Temp Blob"; - ZipFileName: Text[250]; - IsHandled: Boolean; - begin - if DocumentAttachment.DownloadZipFileWithVATReturnSubmissionAttachments("VAT Report Configuration".FromInteger(VATReportTypeValue), VATReportNoValue) then - exit; - - IsHandled := false; - OnBeforeNoSubmissionMessageAvailableError(IsHandled, VATReportArchive, VATReportTypeValue, VATReportNoValue); - if not IsHandled then - if not VATReportArchive.Get(VATReportTypeValue, VATReportNoValue, XMLPartId) then - Error(NoSubmissionMessageAvailableErr); - if not VATReportArchive."Submission Message BLOB".HasValue() then - Error(NoSubmissionMessageAvailableErr); - - VATReportArchive.CalcFields("Submission Message BLOB"); - TempBlob.FromRecord(VATReportArchive, VATReportArchive.FieldNo("Submission Message BLOB")); - - ZipFileName := VATReportNoValue + '_Submission.txt'; - DownloadZipFile(ZipFileName, TempBlob); - end; -#else /// /// Downloads the archived submission message as a compressed ZIP file. /// Includes document attachments if available, otherwise downloads BLOB data. @@ -274,37 +185,7 @@ table 747 "VAT Report Archive" ZipFileName := VATReportNoValue + '_Submission.txt'; DownloadZipFile(ZipFileName, TempBlob); end; -#endif - -#if not CLEAN27 - [Obsolete('Moved to GovTalk app', '27.0')] - procedure DownloadResponseMessage(VATReportTypeValue: Option; VATReportNoValue: Code[20]; XMLPart: Guid) - var - VATReportArchive: Record "VAT Report Archive"; - DocumentAttachment: Record "Document Attachment"; - TempBlob: Codeunit "Temp Blob"; - ZipFileName: Text[250]; - IsHandled: Boolean; - begin - if DocumentAttachment.DownloadZipFileWithVATReturnResponseAttachments("VAT Report Configuration".FromInteger(VATReportTypeValue), VATReportNoValue) then - exit; - - IsHandled := false; - OnBeforeNoResponseMessageAvailableError(IsHandled, VATReportArchive, VATReportTypeValue, VATReportNoValue); - if not IsHandled then - if not VATReportArchive.Get(VATReportTypeValue, VATReportNoValue, XMLPart) then - Error(NoResponseMessageAvailableErr); - - if not VATReportArchive."Response Message BLOB".HasValue() then - Error(NoResponseMessageAvailableErr); - VATReportArchive.CalcFields("Response Message BLOB"); - TempBlob.FromRecord(VATReportArchive, VATReportArchive.FieldNo("Response Message BLOB")); - - ZipFileName := VATReportNoValue + '_Response.txt'; - DownloadZipFile(ZipFileName, TempBlob); - end; -#else /// /// Downloads the archived response message as a compressed ZIP file. /// Includes document attachments if available, otherwise downloads BLOB data. @@ -334,7 +215,6 @@ table 747 "VAT Report Archive" ZipFileName := VATReportNoValue + '_Response.txt'; DownloadZipFile(ZipFileName, TempBlob); end; -#endif local procedure DownloadZipFile(ZipFileName: Text[250]; TempBlob: Codeunit "Temp Blob") var @@ -383,7 +263,6 @@ table 747 "VAT Report Archive" RecordRef.SetTable(Rec); end; -#if CLEAN27 [IntegrationEvent(false, false)] local procedure OnAfterInitVATReportArchive(var VATReportArchive: Record "VAT Report Archive"; var Rec: Record "VAT Report Archive") begin @@ -398,32 +277,5 @@ table 747 "VAT Report Archive" local procedure OnAfterNoResponseMessageAvailableError(var VATReportArchive: Record "VAT Report Archive"; var Rec: Record "VAT Report Archive"; VATReportTypeValue: Option; VATReportNoValue: Code[20]) begin end; -#endif - -#if not CLEAN27 - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeVATReportArchiveGet(var IsHandled: Boolean; VATReportTypeValue: Option; VATReportNoValue: Code[20]) - begin - end; - - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeArchiveResponseMessage(var IsHandled: Boolean; VATReportTypeValue: Option; VATReportNoValue: Code[20]; var VATReportArchive: Record "VAT Report Archive") - begin - end; - - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeNoSubmissionMessageAvailableError(var IsHandled: Boolean; var VATReportArchive: Record "VAT Report Archive"; VATReportTypeValue: Option; VATReportNoValue: Code[20]) - begin - end; - - [Obsolete('Event will be removed in a future release.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeNoResponseMessageAvailableError(var IsHandled: Boolean; var VATReportArchive: Record "VAT Report Archive"; VATReportTypeValue: Option; VATReportNoValue: Code[20]) - begin - end; -#endif } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportLog.Page.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportLog.Page.al index ef879ba2dae..850448e23f3 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportLog.Page.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportLog.Page.al @@ -60,11 +60,7 @@ page 739 "VAT Report Log" Enabled = DownloadSubmissionControllerStatus; Image = XMLFile; ToolTip = 'Open the report again to make changes.'; -#if not CLEAN27 - Visible = true; -#else Visible = false; -#endif trigger OnAction() var @@ -72,13 +68,8 @@ page 739 "VAT Report Log" begin CurrPage.SetSelectionFilter(VATReportArchive); if VATReportArchive.FindFirst() then -#if not CLEAN27 - VATReportArchive.DownloadSubmissionMessage( - VATReportArchive."VAT Report Type".AsInteger(), VATReportArchive."VAT Report No.", VATReportArchive."Xml Part ID"); -#else VATReportArchive.DownloadSubmissionMessage( VATReportArchive."VAT Report Type".AsInteger(), VATReportArchive."VAT Report No."); -#endif end; } action("Download Response Message") @@ -88,11 +79,7 @@ page 739 "VAT Report Log" Enabled = DownloadResponseControllerStatus; Image = XMLFile; ToolTip = 'Open the report again to make changes.'; -#if not CLEAN27 - Visible = true; -#else Visible = false; -#endif trigger OnAction() var @@ -100,13 +87,8 @@ page 739 "VAT Report Log" begin CurrPage.SetSelectionFilter(VATReportArchive); if VATReportArchive.FindFirst() then -#if not CLEAN27 - VATReportArchive.DownloadResponseMessage( - VATReportArchive."VAT Report Type".AsInteger(), VATReportArchive."VAT Report No.", VATReportArchive."Xml Part ID"); -#else VATReportArchive.DownloadResponseMessage( VATReportArchive."VAT Report Type".AsInteger(), VATReportArchive."VAT Report No."); -#endif end; } } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportRequestPage.Report.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportRequestPage.Report.al index 3f2494cb6fd..2af3acd8307 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportRequestPage.Report.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportRequestPage.Report.al @@ -34,9 +34,6 @@ report 742 "VAT Report Request Page" VATStatement: Report "VAT Statement"; Base: Decimal; Amount: Decimal; -#if not CLEAN27 - IsHandled: Boolean; -#endif begin Copy(Rec); @@ -50,13 +47,6 @@ report 742 "VAT Report Request Page" VATStatementLine.SetRange("Statement Name", "Statement Name"); VATStatementLine.SetFilter("Box No.", '<>%1', ''); OnBeforeVATStatementLineFindSet(VATStatementLine, "VAT Report Header"); -#if not CLEAN27 - IsHandled := false; - OnBeforeVATStatementLineFindSet2(VATStatementLine, "VAT Report Header", IsHandled); - if not IsHandled then - if VATStatementLine.Count() <> 9 then - Error(WrongVATSatementSetupErr, "Statement Template Name", "Statement Name"); -#endif VATStatementLine.FindSet(); VATStatement.InitializeRequest( @@ -67,28 +57,18 @@ report 742 "VAT Report Request Page" VATStatementReportLine.DeleteAll(); repeat OnBeforeCalcLineTotalWithBase(VATStatementReportLine, VATStatementLine, "VAT Report Header"); -#if not CLEAN27 - VATStatementReportLine.Init(); - VATStatementReportLine.Validate("Box No.", VATStatementLine."Box No."); - if not CheckBoxNo(VATStatementReportLine) then - Error(WrongVATSatementSetupErr, "Statement Template Name", "Statement Name"); -#endif VATStatement.CalcLineTotalWithBase(VATStatementLine, Amount, Base, 0); if VATStatementLine."Print with" = VATStatementLine."Print with"::"Opposite Sign" then begin Amount := -Amount; Base := -Base; end; -#if CLEAN27 VATStatementReportLine.Init(); -#endif VATStatementReportLine.Validate("VAT Report No.", "No."); VATStatementReportLine.Validate("VAT Report Config. Code", "VAT Report Config. Code"); VATStatementReportLine.Validate("Line No.", VATStatementLine."Line No."); VATStatementReportLine.Validate("Row No.", VATStatementLine."Row No."); VATStatementReportLine.Validate(Description, VATStatementLine.Description); -#if CLEAN27 VATStatementReportLine.Validate("Box No.", VATStatementLine."Box No."); -#endif VATStatementReportLine.Validate(Amount, Amount); VATStatementReportLine.Validate(Base, Base); VATStatementReportLine.Insert(); @@ -241,9 +221,6 @@ report 742 "VAT Report Request Page" var PeriodIsEditable: Boolean; -#if not CLEAN27 - WrongVATSatementSetupErr: Label 'VAT statement template %1 name %2 has a wrong setup. There must be nine rows, each with a value between 1 and 9 for the Box No. field.', Comment = '1 - statement template name, 2 - statement name'; -#endif protected var Selection: Enum "VAT Statement Report Selection"; @@ -269,44 +246,5 @@ report 742 "VAT Report Request Page" local procedure OnBeforeCalcLineTotalWithBase(var VATStatementReportLine: Record "VAT Statement Report Line"; VATStatementLine: Record "VAT Statement Line"; VATReportHeader: Record "VAT Report Header") begin end; - -#if not CLEAN27 - [Obsolete('Moved to GovTalk app', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeVATStatementLineFindSet2(var VATStatementLine: Record "VAT Statement Line"; VATReportHeader: Record "VAT Report Header"; var IsHandled: Boolean) - begin - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCheckBoxNo(var IsHandled: Boolean) - begin - end; - - [Obsolete('Moved to GovTalk app', '27.0')] - local procedure CheckBoxNo(var VATStatementReportLine: Record "VAT Statement Report Line"): Boolean; - var - VATStatementReportLine2: Record "VAT Statement Report Line"; - IntegerValue: Integer; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeCheckBoxNo(IsHandled); - if IsHandled then - exit(true); - if not Evaluate(IntegerValue, VATStatementReportLine."Box No.") then - exit(false); - if (IntegerValue < 1) or (IntegerValue > 9) then - exit(false); - - VATStatementReportLine2.Copy(VATStatementReportLine); - VATStatementReportLine2.SetRange("Box No.", FORMAT(IntegerValue)); - if not VATStatementReportLine2.IsEmpty() then - exit(false); - - VATStatementReportLine."Box No." := Format(IntegerValue); - exit(true); - end; -#endif } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportStatus.EnumExt.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportStatus.EnumExt.al deleted file mode 100644 index f3eadd084fe..00000000000 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportStatus.EnumExt.al +++ /dev/null @@ -1,18 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -enumextension 10400 "VAT Report Status" extends "VAT Report Status" -{ - value(7; "Partially Accepted") - { - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Moved to GovTalk app'; - Caption = 'Partially Accepted'; - } -} -#endif \ No newline at end of file diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportsConfiguration.Page.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportsConfiguration.Page.al index 44f76ea3b00..8ead38f5171 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportsConfiguration.Page.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportsConfiguration.Page.al @@ -70,29 +70,6 @@ page 746 "VAT Reports Configuration" { ApplicationArea = Basic, Suite; } -#if not CLEAN27 - field("Content Max Lines"; Rec."Content Max Lines") - { - ApplicationArea = Basic, Suite; - Caption = 'Max. No. of Lines'; - ToolTip = 'Specifies the maximum number of lines in each message.'; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - - trigger OnValidate() - begin - if - (Rec."VAT Report Type" = Rec."VAT Report Type"::"VAT Return") and - (Rec."Content Max Lines" <> 0) - then - Error(NotApplicableErr); - - if Rec."Content Max Lines" < 0 then - Error(MinValueErr); - end; - } -#endif } } } @@ -100,11 +77,5 @@ page 746 "VAT Reports Configuration" actions { } - -#if not CLEAN27 - var - NotApplicableErr: Label 'This value is only applicable for EC Sales list report.'; - MinValueErr: Label 'The value of Max. No. of Lines must be bigger than zero.'; -#endif } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportsConfiguration.Table.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportsConfiguration.Table.al index e66b0f054c6..e5040b61207 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportsConfiguration.Table.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportsConfiguration.Table.al @@ -158,15 +158,9 @@ table 746 "VAT Reports Configuration" field(10500; "Content Max Lines"; Integer) { Caption = 'Content Max Lines'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; ObsoleteReason = 'Moved to GovTalk app'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Moved to GovTalk app'; -#endif } #endif } diff --git a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATStatement.Page.al b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATStatement.Page.al index 27ed1c9aec8..7a0c1c3f9a3 100644 --- a/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATStatement.Page.al +++ b/src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATStatement.Page.al @@ -156,30 +156,6 @@ page 317 "VAT Statement" } area(reporting) { -#if not CLEAN27 - action("VAT Audit Report") - { - ApplicationArea = VAT; - Caption = 'VAT Audit Report'; - Image = "Report"; - RunObject = Report "VAT Audit"; - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ToolTip = 'Export the data required for auditing in a comma-separated value (CSV) file format.'; - } - action("VAT Entry Exception Report") - { - ApplicationArea = VAT; - Caption = 'VAT Entry Exception Report'; - Image = "Report"; - RunObject = Report "VAT Entry Exception Report"; - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ToolTip = 'Print the Exception report so that you can document and show differences in VAT amounts to tax authorities.'; - } -#endif } area(processing) { @@ -230,21 +206,6 @@ page 317 "VAT Statement" group(Category_Report) { Caption = 'Reports'; - -#if not CLEAN27 - actionref("VAT Audit Report_Promoted"; "VAT Audit Report") - { - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - actionref("VAT Entry Exception Report_Promoted"; "VAT Entry Exception Report") - { - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif } } } diff --git a/src/Layers/GB/BaseApp/Foundation/Company/CompanyInformation.Page.al b/src/Layers/GB/BaseApp/Foundation/Company/CompanyInformation.Page.al index e71af5e5c19..4da991e0d18 100644 --- a/src/Layers/GB/BaseApp/Foundation/Company/CompanyInformation.Page.al +++ b/src/Layers/GB/BaseApp/Foundation/Company/CompanyInformation.Page.al @@ -47,30 +47,6 @@ page 1 "Company Information" group(General) { Caption = 'General'; -#if not CLEAN27 - group(Control1040003) - { - ShowCaption = false; - Visible = IsAddressLookupTextEnabled; - ObsoleteState = Pending; - ObsoleteReason = 'Functionality has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - field(LookupAddress; LookupAddressLbl) - { - ApplicationArea = Basic, Suite; - Editable = false; - ObsoleteState = Pending; - ObsoleteReason = 'Field has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - ShowCaption = false; - - trigger OnDrillDown() - begin - ShowPostcodeLookup(true, AddressTok); - end; - } - } -#endif field(Name; Rec.Name) { ApplicationArea = Basic, Suite; @@ -80,14 +56,6 @@ page 1 "Company Information" { ApplicationArea = Basic, Suite; ShowMandatory = true; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - end; -#endif } field("Address 2"; Rec."Address 2") { @@ -112,15 +80,6 @@ page 1 "Company Information" ApplicationArea = Basic, Suite; Importance = Promoted; ShowMandatory = true; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - ShowPostcodeLookup(false, AddressTok); - end; -#endif } field("Country/Region Code"; Rec."Country/Region Code") { @@ -130,9 +89,6 @@ page 1 "Company Information" trigger OnValidate() begin CountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code"); -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif end; } field("Contact Person"; Rec."Contact Person") @@ -182,13 +138,11 @@ page 1 "Company Information" ApplicationArea = Basic, Suite; Importance = Additional; } -#if CLEAN27 field("Registration No."; Rec."Registration No.") { ApplicationArea = Basic, Suite; Importance = Additional; } -#endif field(Picture; Rec.Picture) { ApplicationArea = Basic, Suite; @@ -304,30 +258,6 @@ page 1 "Company Information" group(Shipping) { Caption = 'Shipping'; -#if not CLEAN27 - group(Control1040016) - { - ShowCaption = false; - Visible = IsShipToAddressLookupTextEnabled; - ObsoleteState = Pending; - ObsoleteReason = 'Functionality has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - field(ShipToLookupAddress; LookupAddressLbl) - { - ApplicationArea = Basic, Suite; - Editable = false; - ShowCaption = false; - ObsoleteState = Pending; - ObsoleteReason = 'Field has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - - trigger OnDrillDown() - begin - ShowPostcodeLookup(true, ShipToTok); - end; - } - } -#endif field("Ship-to Name"; Rec."Ship-to Name") { ApplicationArea = Basic, Suite; @@ -364,9 +294,6 @@ page 1 "Company Information" trigger OnValidate() begin -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif IsShipToCountyVisible := FormatAddress.UseCounty(Rec."Ship-to Country/Region Code"); end; } @@ -419,89 +346,6 @@ page 1 "Company Information" ApplicationArea = Suite; } } -#if not CLEAN27 - group(Statutory) - { - Caption = 'Statutory'; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - field("Registration No."; Rec."Registration No.") - { - ApplicationArea = Basic, Suite; - Importance = Additional; - ToolTip = 'Specifies the company''s registration number. You can enter a maximum of 20 characters, both numbers and letters.'; - ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - field("Registered Name"; Rec."Registered Name") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the company''s registered name.'; - ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - field("Registered Address"; Rec."Registered Address") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the company''s registered address.'; - ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - field("Registered Address 2"; Rec."Registered Address 2") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies an additional part of the company''s registered address.'; - ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - field("Registered City"; Rec."Registered City") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the company''s city.'; - ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - field("Registered County"; Rec."Registered County") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the county of the company''s registered address.'; - ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - field("Registered Post Code"; Rec."Registered Post Code") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the company''s registered postal code.'; - ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - field("Branch Number"; Rec."Branch Number") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies the three-digit numeric branch number.'; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - field("Contact Name"; Rec."Contact Person") - { - ApplicationArea = Basic, Suite; - Caption = 'Contact Name'; - ToolTip = 'Specifies the name of the contact person in your company.'; - ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } - } -#endif group("System Indicator") { Caption = 'Company Badge'; @@ -858,9 +702,6 @@ page 1 "Company Information" trigger OnAfterGetCurrRecord() begin UpdateSystemIndicator(); -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif end; trigger OnClosePage() @@ -916,18 +757,9 @@ page 1 "Company Information" SystemIndicatorTextEditable: Boolean; IBANMissing: Boolean; BankBranchNoOrAccountNoMissing: Boolean; -#if not CLEAN27 - IsAddressLookupTextEnabled: Boolean; - IsShipToAddressLookupTextEnabled: Boolean; -#endif BankAcctPostingGroup: Code[20]; CountyVisible: Boolean; IsShipToCountyVisible: Boolean; -#if not CLEAN27 - LookupAddressLbl: Label 'Lookup address from postocde'; - AddressTok: Label 'ADDRESS', Locked = true; - ShipToTok: Label 'SHIP-TO', Locked = true; -#endif CompanyBadgeRefreshPageTxt: Label 'The Company Badge settings have changed. Refresh the browser (Ctrl+F5) to update the badge.'; CompanyBadgeChangedLbl: Label 'The Company badge settings have changed by UserSecurityId %1.', Locked = true; DocumentReportExperienceEnabled: Boolean; @@ -968,82 +800,6 @@ page 1 "Company Information" IBANMissing := Rec.IBAN = '' end; -#if not CLEAN27 - [Obsolete('Functionality has been moved to the GetAddress.io UK Postcodes.', '27.0')] - local procedure ShowPostcodeLookup(ShowInputFields: Boolean; Group: Text) - var - TempEnteredAutocompleteAddress: Record "Autocomplete Address" temporary; - TempAutocompleteAddress: Record "Autocomplete Address" temporary; - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not PostcodeBusinessLogic.IsConfigured() then - exit; - - if Group = AddressTok then begin - if not PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code") then - exit; - - if (Rec."Post Code" = '') and not ShowInputFields then - exit; - - TempEnteredAutocompleteAddress.Address := Rec.Address; - TempEnteredAutocompleteAddress.Postcode := Rec."Post Code"; - end else - if Group = ShipToTok then begin - if not PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code") then - exit; - - if (Rec."Ship-to Post Code" = '') and not ShowInputFields then - exit; - - TempEnteredAutocompleteAddress.Address := Rec."Ship-to Address"; - TempEnteredAutocompleteAddress.Postcode := Rec."Ship-to Post Code"; - end; - - if not PostcodeBusinessLogic.ShowLookupWindow(TempEnteredAutocompleteAddress, ShowInputFields, TempAutocompleteAddress) then - exit; - - if Group = AddressTok then - CopyAutocompleteFields(TempAutocompleteAddress) - else - if Group = ShipToTok then - CopyShipToAutocompleteFields(TempAutocompleteAddress); - end; - - local procedure CopyAutocompleteFields(var TempAutocompleteAddress: Record "Autocomplete Address" temporary) - begin - Rec.Address := TempAutocompleteAddress.Address; - Rec."Address 2" := TempAutocompleteAddress."Address 2"; - Rec."Post Code" := TempAutocompleteAddress.Postcode; - Rec.City := TempAutocompleteAddress.City; - Rec.County := TempAutocompleteAddress.County; - Rec."Country/Region Code" := TempAutocompleteAddress."Country / Region"; - end; - - local procedure CopyShipToAutocompleteFields(var TempAutocompleteAddress: Record "Autocomplete Address" temporary) - begin - Rec."Ship-to Address" := TempAutocompleteAddress.Address; - Rec."Ship-to Address 2" := TempAutocompleteAddress."Address 2"; - Rec."Ship-to Post Code" := TempAutocompleteAddress.Postcode; - Rec."Ship-to City" := TempAutocompleteAddress.City; - Rec."Ship-to County" := TempAutocompleteAddress.County; - Rec."Ship-to Country/Region Code" := TempAutocompleteAddress."Country / Region"; - end; - - local procedure HandleAddressLookupVisibility() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not CurrPage.Editable or not PostcodeBusinessLogic.IsConfigured() then begin - IsAddressLookupTextEnabled := false; - IsShipToAddressLookupTextEnabled := false; - end else begin - IsAddressLookupTextEnabled := PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code"); - IsShipToAddressLookupTextEnabled := PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Ship-to Country/Region Code"); - end; - end; -#endif - local procedure RestartSession() var SessionSetting: SessionSettings; diff --git a/src/Layers/GB/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/GB/BaseApp/Foundation/Company/CompanyInformation.Table.al index 29145eba25e..fbc3d48a2e8 100644 --- a/src/Layers/GB/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/GB/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -301,13 +301,7 @@ table 79 "Company Information" MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(35; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies your company''s web site.'; @@ -517,139 +511,65 @@ table 79 "Company Information" { Caption = 'Registered Name'; ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } field(10501; "Registered Name 2"; Text[50]) { Caption = 'Registered Name 2'; ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } field(10502; "Registered Address"; Text[50]) { Caption = 'Registered Address'; ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } field(10503; "Registered Address 2"; Text[50]) { Caption = 'Registered Address 2'; ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } field(10504; "Registered City"; Text[30]) { Caption = 'Registered City'; ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - TableRelation = if ("Country/Region Code" = const('')) "Post Code".City - else - if ("Country/Region Code" = filter(<> '')) "Post Code".City where("Country/Region Code" = field("Country/Region Code")); - ValidateTableRelation = false; - - trigger OnValidate() - begin - PostCode.ValidateCity( - "Registered City", "Registered Post Code", "Registered County", "Country/Region Code", (CurrFieldNo <> 0) and GuiAllowed); - end; -#endif } field(10505; "Registered County"; Text[30]) { Caption = 'Registered County'; ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } field(10506; "Registered Post Code"; Code[20]) { Caption = 'Registered Post Code'; ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - TableRelation = if ("Country/Region Code" = const('')) "Post Code" - else - if ("Country/Region Code" = filter(<> '')) "Post Code" where("Country/Region Code" = field("Country/Region Code")); - ValidateTableRelation = false; - - trigger OnValidate() - begin - PostCode.ValidatePostCode( - "Registered City", "Registered Post Code", "Registered County", "Country/Region Code", (CurrFieldNo <> 0) and GuiAllowed); - end; -#endif } field(10507; "Branch Number"; Text[3]) { Caption = 'Branch Number'; CharAllowed = '09'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; ObsoleteReason = 'Moved to GovTalk app'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'Moved to GovTalk app'; - - trigger OnValidate() - begin - if "Branch Number" <> '' then - if StrLen("Branch Number") < MaxStrLen("Branch Number") then - FieldError("Branch Number", StrSubstNo(Text10500, MaxStrLen("Branch Number"))); - end; -#endif } field(10508; "Contact Name"; Text[35]) { Caption = 'Contact Name'; ObsoleteReason = 'This field is deprecated and will be removed in a future release.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif } @@ -686,9 +606,6 @@ table 79 "Company Information" RecordHasBeenRead: Boolean; NotValidIBANErr: Label 'The number %1 that you entered may not be a valid International Bank Account Number (IBAN). Do you want to continue?', Comment = '%1 - an actual IBAN'; -#if not CLEAN27 - Text10500: Label 'must be a %1 digit numeric number'; -#endif NoPaymentInfoQst: Label 'No payment information is provided in %1. Do you want to update it now?', Comment = '%1 = Company Information'; #pragma warning disable AA0470 NoPaymentInfoMsg: Label 'No payment information is provided in %1. Review the report.'; @@ -1011,16 +928,9 @@ table 79 "Company Information" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateShipToCity(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeValidateShipToPostCode(var CompanyInformation: Record "Company Information"; var IsHandled: Boolean) begin end; -} +} \ No newline at end of file diff --git a/src/Layers/GB/BaseApp/HumanResources/Employee/EmployeeCard.Page.al b/src/Layers/GB/BaseApp/HumanResources/Employee/EmployeeCard.Page.al index dd32c2116ac..2006f284f6e 100644 --- a/src/Layers/GB/BaseApp/HumanResources/Employee/EmployeeCard.Page.al +++ b/src/Layers/GB/BaseApp/HumanResources/Employee/EmployeeCard.Page.al @@ -118,42 +118,10 @@ page 5200 "Employee Card" group(Control13) { ShowCaption = false; -#if not CLEAN27 - group(Control1040007) - { - ShowCaption = false; - Visible = IsAddressLookupTextEnabled; - ObsoleteState = Pending; - ObsoleteReason = 'Functionality has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - field(LookupAddress; LookupAddressLbl) - { - ApplicationArea = BasicHR; - Editable = false; - ShowCaption = false; - ObsoleteState = Pending; - ObsoleteReason = 'Field has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - - trigger OnDrillDown() - begin - ShowPostcodeLookup(true); - end; - } - } -#endif field(Address; Rec.Address) { ApplicationArea = BasicHR; ToolTip = 'Specifies the employee''s address.'; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - end; -#endif } field("Address 2"; Rec."Address 2") { @@ -177,15 +145,6 @@ page 5200 "Employee Card" ApplicationArea = BasicHR; Importance = Promoted; ToolTip = 'Specifies the postal code.'; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - ShowPostcodeLookup(false); - end; -#endif } field("Country/Region Code"; Rec."Country/Region Code") { @@ -194,9 +153,6 @@ page 5200 "Employee Card" trigger OnValidate() begin IsCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code"); -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif end; } field(ShowMap; ShowMapLbl) @@ -783,9 +739,6 @@ page 5200 "Employee Card" Employee: Record Employee; EmployeeTemplMgt: Codeunit "Employee Templ. Mgt."; begin -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif if not NewMode then exit; @@ -805,10 +758,6 @@ page 5200 "Employee Card" NoFieldVisible: Boolean; IsCountyVisible: Boolean; NewMode: Boolean; -#if not CLEAN27 - IsAddressLookupTextEnabled: Boolean; - LookupAddressLbl: Label 'Lookup address from postcode'; -#endif IsAllowMultiplePostingGroupsVisible: Boolean; ShowMapLbl: Label 'Show on Map'; @@ -819,49 +768,4 @@ page 5200 "Employee Card" begin NoFieldVisible := DocumentNoVisibility.EmployeeNoIsVisible(); end; - -#if not CLEAN27 - [Obsolete('Functionality has been moved to the GetAddress.io UK Postcodes.', '27.0')] - local procedure ShowPostcodeLookup(ShowInputFields: Boolean) - var - TempEnteredAutocompleteAddress: Record "Autocomplete Address" temporary; - TempAutocompleteAddress: Record "Autocomplete Address" temporary; - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code") then - exit; - - if not PostcodeBusinessLogic.IsConfigured() or ((Rec."Post Code" = '') and not ShowInputFields) then - exit; - - TempEnteredAutocompleteAddress.Address := Rec.Address; - TempEnteredAutocompleteAddress.Postcode := Rec."Post Code"; - - if not PostcodeBusinessLogic.ShowLookupWindow(TempEnteredAutocompleteAddress, ShowInputFields, TempAutocompleteAddress) then - exit; - - CopyAutocompleteFields(TempAutocompleteAddress); - HandleAddressLookupVisibility(); - end; - - local procedure CopyAutocompleteFields(var TempAutocompleteAddress: Record "Autocomplete Address" temporary) - begin - Rec.Address := TempAutocompleteAddress.Address; - Rec."Address 2" := TempAutocompleteAddress."Address 2"; - Rec."Post Code" := TempAutocompleteAddress.Postcode; - Rec.City := TempAutocompleteAddress.City; - Rec.County := TempAutocompleteAddress.County; - Rec."Country/Region Code" := TempAutocompleteAddress."Country / Region"; - end; - - local procedure HandleAddressLookupVisibility() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not CurrPage.Editable or not PostcodeBusinessLogic.IsConfigured() then - IsAddressLookupTextEnabled := false - else - IsAddressLookupTextEnabled := PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code"); - end; -#endif } diff --git a/src/Layers/GB/BaseApp/Inventory/Item/Item.Table.al b/src/Layers/GB/BaseApp/Inventory/Item/Item.Table.al index 20e30b99e64..7cdb0e32fcc 100644 --- a/src/Layers/GB/BaseApp/Inventory/Item/Item.Table.al +++ b/src/Layers/GB/BaseApp/Inventory/Item/Item.Table.al @@ -2252,13 +2252,8 @@ table 27 Item { Caption = 'Reverse Charge Applies'; ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif field(99000752; "Single-Level Material Cost"; Decimal) diff --git a/src/Layers/GB/BaseApp/Inventory/Item/ItemCard.Page.al b/src/Layers/GB/BaseApp/Inventory/Item/ItemCard.Page.al index a0a26f1d24a..3a1d47cb0b7 100644 --- a/src/Layers/GB/BaseApp/Inventory/Item/ItemCard.Page.al +++ b/src/Layers/GB/BaseApp/Inventory/Item/ItemCard.Page.al @@ -673,16 +673,6 @@ page 30 "Item Card" ApplicationArea = Advanced; ToolTip = 'Specifies the VAT business posting group for customers for whom you want the sales price including VAT to apply.'; } -#if not CLEAN27 - field("Reverse Charge Applies"; Rec."Reverse Charge Applies") - { - ApplicationArea = Basic, Suite; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; - ObsoleteTag = '27.0'; - ToolTip = 'Specifies if this item is subject to reverse charge.'; - } -#endif } group(Replenishment) { diff --git a/src/Layers/GB/BaseApp/Inventory/Item/ItemList.Page.al b/src/Layers/GB/BaseApp/Inventory/Item/ItemList.Page.al index 0468ff23cbb..d156bd73b4a 100644 --- a/src/Layers/GB/BaseApp/Inventory/Item/ItemList.Page.al +++ b/src/Layers/GB/BaseApp/Inventory/Item/ItemList.Page.al @@ -280,16 +280,6 @@ page 31 "Item List" ToolTip = 'Specifies how items are tracked in the supply chain.'; Visible = false; } -#if not CLEAN27 - field("Reverse Charge Applies"; Rec."Reverse Charge Applies") - { - ApplicationArea = Basic, Suite; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; - ObsoleteTag = '27.0'; - ToolTip = 'Specifies if this item is subject to reverse charge.'; - } -#endif field("Default Deferral Template Code"; Rec."Default Deferral Template Code") { ApplicationArea = Suite; diff --git a/src/Layers/GB/BaseApp/Inventory/Item/ItemTempl.Table.al b/src/Layers/GB/BaseApp/Inventory/Item/ItemTempl.Table.al index a0b80c9a912..a7a26feca01 100644 --- a/src/Layers/GB/BaseApp/Inventory/Item/ItemTempl.Table.al +++ b/src/Layers/GB/BaseApp/Inventory/Item/ItemTempl.Table.al @@ -1161,20 +1161,8 @@ table 1382 "Item Templ." { Caption = 'Reverse Charge Applies'; ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif - -#if not CLEAN27 - trigger OnValidate() - begin - ValidateItemField(FieldNo("Reverse Charge Applies")); - end; -#endif } #endif } diff --git a/src/Layers/GB/BaseApp/Inventory/Item/ItemTemplCard.Page.al b/src/Layers/GB/BaseApp/Inventory/Item/ItemTemplCard.Page.al index 8062f5168d3..09efcea97fd 100644 --- a/src/Layers/GB/BaseApp/Inventory/Item/ItemTemplCard.Page.al +++ b/src/Layers/GB/BaseApp/Inventory/Item/ItemTemplCard.Page.al @@ -258,16 +258,6 @@ page 1384 "Item Templ. Card" ToolTip = 'Specifies the VAT business posting group for customers for whom you want the sales price including VAT to apply.'; Visible = false; } -#if not CLEAN27 - field("Reverse Charge Applies"; Rec."Reverse Charge Applies") - { - ApplicationArea = Basic, Suite; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; - ObsoleteTag = '27.0'; - ToolTip = 'Specifies if this item is subject to reverse charge.'; - } -#endif } group(Replenishment) { diff --git a/src/Layers/GB/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al b/src/Layers/GB/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al index 824cbc524d4..f066d533bb6 100644 --- a/src/Layers/GB/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al +++ b/src/Layers/GB/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al @@ -721,14 +721,6 @@ table 32 "Item Ledger Entry" exit(FindRecordManagement.GetLastEntryIntFieldValue(Rec, FieldNo("Entry No."))) end; -#if not CLEAN27 - [Obsolete('Please use GetAdditionalReportingCurrencyCode instead.', '27.0')] - procedure GetCurrencyCode(): Code[10] - begin - exit(GetAdditionalReportingCurrencyCode()) - end; - -#endif procedure GetAdditionalReportingCurrencyCode(): Code[10] begin if not GLSetupRead then begin diff --git a/src/Layers/GB/BaseApp/Inventory/Location/LocationCard.Page.al b/src/Layers/GB/BaseApp/Inventory/Location/LocationCard.Page.al index c494e95b9ea..b4de1372347 100644 --- a/src/Layers/GB/BaseApp/Inventory/Location/LocationCard.Page.al +++ b/src/Layers/GB/BaseApp/Inventory/Location/LocationCard.Page.al @@ -51,42 +51,10 @@ page 5703 "Location Card" group(AddressDetails) { Caption = 'Address'; -#if not CLEAN27 - group(Control1040003) - { - ShowCaption = false; - Visible = IsAddressLookupTextEnabled; - ObsoleteState = Pending; - ObsoleteReason = 'Functionality has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - field(LookupAddress; LookupAddressLbl) - { - ApplicationArea = Basic, Suite; - Editable = false; - ShowCaption = false; - ObsoleteState = Pending; - ObsoleteReason = 'Field has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - - trigger OnDrillDown() - begin - ShowPostcodeLookup(true); - end; - } - } -#endif field(Address; Rec.Address) { ApplicationArea = Basic, Suite; ToolTip = 'Specifies the customer''s address. This address will appear on all sales documents for the customer.'; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - end; -#endif } field("Address 2"; Rec."Address 2") { @@ -110,15 +78,6 @@ page 5703 "Location Card" ApplicationArea = Basic, Suite; Importance = Promoted; ToolTip = 'Specifies the postal code.'; -#if not CLEAN27 - trigger OnValidate() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - PostcodeBusinessLogic.ShowDiscoverabilityNotificationIfNeccessary(); - ShowPostcodeLookup(false); - end; -#endif } field("Country/Region Code"; Rec."Country/Region Code") { @@ -127,9 +86,6 @@ page 5703 "Location Card" trigger OnValidate() begin -#if not CLEAN27 - HandleAddressLookupVisibility(); -#endif IsCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code"); end; } @@ -625,13 +581,6 @@ page 5703 "Location Card" } } -#if not CLEAN27 - trigger OnAfterGetCurrRecord() - begin - HandleAddressLookupVisibility(); - end; -#endif - trigger OnAfterGetRecord() begin UpdateEnabled(); @@ -692,10 +641,6 @@ page 5703 "Location Card" EditInTransit: Boolean; IsCountyVisible: Boolean; ShowMapLbl: Label 'Show on Map'; -#if not CLEAN27 - LookupAddressLbl: Label 'Lookup address from postcode'; - IsAddressLookupTextEnabled: Boolean; -#endif protected var OutboundWhseHandlingTimeEnable: Boolean; @@ -796,51 +741,6 @@ page 5703 "Location Card" EditInTransit := TransferHeader.IsEmpty(); end; -#if not CLEAN27 - [Obsolete('Functionality has been moved to the GetAddress.io UK Postcodes.', '27.0')] - local procedure ShowPostcodeLookup(ShowInputFields: Boolean) - var - TempEnteredAutocompleteAddress: Record "Autocomplete Address" temporary; - TempAutocompleteAddress: Record "Autocomplete Address" temporary; - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code") then - exit; - - if not PostcodeBusinessLogic.IsConfigured() or ((Rec."Post Code" = '') and not ShowInputFields) then - exit; - - TempEnteredAutocompleteAddress.Address := Rec.Address; - TempEnteredAutocompleteAddress.Postcode := Rec."Post Code"; - - if not PostcodeBusinessLogic.ShowLookupWindow(TempEnteredAutocompleteAddress, ShowInputFields, TempAutocompleteAddress) then - exit; - - CopyAutocompleteFields(TempAutocompleteAddress); - HandleAddressLookupVisibility(); - end; - - local procedure CopyAutocompleteFields(var TempAutocompleteAddress: Record "Autocomplete Address" temporary) - begin - Rec.Address := TempAutocompleteAddress.Address; - Rec."Address 2" := TempAutocompleteAddress."Address 2"; - Rec."Post Code" := TempAutocompleteAddress.Postcode; - Rec.City := TempAutocompleteAddress.City; - Rec.County := TempAutocompleteAddress.County; - Rec."Country/Region Code" := TempAutocompleteAddress."Country / Region"; - end; - - local procedure HandleAddressLookupVisibility() - var - PostcodeBusinessLogic: Codeunit "Postcode Business Logic"; - begin - if not CurrPage.Editable or not PostcodeBusinessLogic.IsConfigured() then - IsAddressLookupTextEnabled := false - else - IsAddressLookupTextEnabled := PostcodeBusinessLogic.SupportedCountryOrRegionCode(Rec."Country/Region Code"); - end; -#endif - [IntegrationEvent(true, false)] local procedure OnAfterUpdateEnabled(Location: Record Location) begin diff --git a/src/Layers/GB/BaseApp/Local/BankMgt/Check/CheckPreviewGB.Page.al b/src/Layers/GB/BaseApp/Local/BankMgt/Check/CheckPreviewGB.Page.al deleted file mode 100644 index 72df3c7df0c..00000000000 --- a/src/Layers/GB/BaseApp/Local/BankMgt/Check/CheckPreviewGB.Page.al +++ /dev/null @@ -1,172 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Bank.Check; - -using Microsoft.Bank.BankAccount; -using Microsoft.Finance.GeneralLedger.Journal; -using Microsoft.Foundation.Address; -using Microsoft.Foundation.Company; -using Microsoft.Purchases.Vendor; -using Microsoft.Sales.Customer; - -page 10510 "Check Preview GB" -{ - Caption = 'Check Preview GB'; - DataCaptionExpression = Rec."Document No." + ' ' + CheckToAddr[1]; - Editable = false; - PageType = Card; - SourceTable = "Gen. Journal Line"; - ObsoleteState = Pending; - ObsoleteReason = 'This page is deprecated and will be removed in future release'; - ObsoleteTag = '27.0'; - - layout - { - area(content) - { - group(Control11) - { - ShowCaption = false; - field("UPPERCASE(CheckToAddr[1])"; UpperCase(CheckToAddr[1])) - { - ApplicationArea = Basic, Suite; - Caption = 'Pay'; - ToolTip = 'Specifies that you want to issue the check after you have seen how the check will look when it is printed on paper.'; - } - field(AmountInText; NumberText[1]) - { - ApplicationArea = Basic, Suite; - } - field("NumberText[2]"; NumberText[2]) - { - ApplicationArea = Basic, Suite; - } - field(CheckStatusText; CheckStatusText) - { - ApplicationArea = Basic, Suite; - } - field(CheckDateText; CheckDateText) - { - ApplicationArea = Basic, Suite; - } - field(CheckAmountText; CheckAmountText) - { - ApplicationArea = Basic, Suite; - } - } - } - } - - actions - { - } - - trigger OnAfterGetRecord() - begin - CalcCheck(); - end; - - trigger OnOpenPage() - begin - CompanyInfo.Get(); - FormatAddr.Company(CompanyAddr, CompanyInfo); - end; - - var - Text000: Label 'Printed Check'; - Text001: Label 'Cheque Not Printed'; - GenJnlLine: Record "Gen. Journal Line"; - Cust: Record Customer; - Vend: Record Vendor; - BankAcc: Record "Bank Account"; - CompanyInfo: Record "Company Information"; - CheckReport: Report Check; - FormatAddr: Codeunit "Format Address"; - CheckToAddr: array[8] of Text[100]; - CompanyAddr: array[8] of Text[100]; - NumberText: array[2] of Text[80]; - CheckStatusText: Text[30]; - CheckDateText: Text[30]; - CheckAmountText: Text[20]; - CheckAmount: Decimal; - - local procedure CalcCheck() - begin - if Rec."Check Printed" then begin - GenJnlLine.Reset(); - GenJnlLine.SetCurrentKey("Journal Template Name", "Journal Batch Name", "Posting Date", "Document No."); - GenJnlLine.SetRange("Journal Template Name", Rec."Journal Template Name"); - GenJnlLine.SetRange("Journal Batch Name", Rec."Journal Batch Name"); - GenJnlLine.SetRange("Posting Date", Rec."Posting Date"); - GenJnlLine.SetRange("Document No.", Rec."Document No."); - if Rec."Bal. Account No." = '' then - GenJnlLine.SetRange("Bank Payment Type", "Bank Payment Type"::" ") - else - GenJnlLine.SetRange("Bank Payment Type", "Bank Payment Type"::"Computer Check"); - GenJnlLine.SetRange("Check Printed", true); - CheckStatusText := Text000; - end else begin - GenJnlLine.Reset(); - GenJnlLine.SetCurrentKey("Journal Template Name", "Journal Batch Name", "Posting Date", "Document No."); - GenJnlLine.SetRange("Journal Template Name", Rec."Journal Template Name"); - GenJnlLine.SetRange("Journal Batch Name", Rec."Journal Batch Name"); - GenJnlLine.SetRange("Posting Date", Rec."Posting Date"); - GenJnlLine.SetRange("Document No.", Rec."Document No."); - GenJnlLine.SetRange("Account Type", Rec."Account Type"); - GenJnlLine.SetRange("Account No.", Rec."Account No."); - GenJnlLine.SetRange("Bal. Account Type", Rec."Bal. Account Type"); - GenJnlLine.SetRange("Bal. Account No.", Rec."Bal. Account No."); - GenJnlLine.SetRange("Bank Payment Type", Rec."Bank Payment Type"); - CheckStatusText := Text001; - end; - - CheckAmount := 0; - if GenJnlLine.Find('-') then - repeat - CheckAmount := CheckAmount + GenJnlLine.Amount; - until GenJnlLine.Next() = 0; - - if CheckAmount < 0 then - CheckAmount := 0; - - CheckReport.InitTextVariable(); - CheckReport.FormatNoText(NumberText, CheckAmount, GenJnlLine."Currency Code"); - - case GenJnlLine."Account Type" of - GenJnlLine."Account Type"::"G/L Account": - begin - Clear(CheckToAddr); - CheckToAddr[1] := GenJnlLine.Description; - end; - GenJnlLine."Account Type"::Customer: - begin - Cust.Get(GenJnlLine."Account No."); - Cust.Contact := ''; - FormatAddr.Customer(CheckToAddr, Cust); - end; - GenJnlLine."Account Type"::Vendor: - begin - Vend.Get(GenJnlLine."Account No."); - Vend.Contact := ''; - FormatAddr.Vendor(CheckToAddr, Vend); - end; - GenJnlLine."Account Type"::"Bank Account": - begin - BankAcc.Get(GenJnlLine."Account No."); - BankAcc.Contact := ''; - FormatAddr.BankAcc(CheckToAddr, BankAcc); - end; - GenJnlLine."Account Type"::"Fixed Asset": - GenJnlLine.FieldError("Account Type"); - end; - - CheckDateText := UpperCase(Format(Rec."Posting Date", 9, '')); - - CheckAmountText := Format(CheckAmount, 0, '**-**'); - CheckAmountText := DelChr(CheckAmountText, '=', '.'); - end; -} -#endif diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/CreateVATDeclarationRequest.Codeunit.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/CreateVATDeclarationRequest.Codeunit.al deleted file mode 100644 index f2c1392c7b9..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/CreateVATDeclarationRequest.Codeunit.al +++ /dev/null @@ -1,102 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using System.IO; - -codeunit 10524 "Create VAT Declaration Request" -{ - TableNo = "VAT Report Header"; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - trigger OnRun() - begin - RootXMLBuffer.Validate(Name, VATDeclarationRequestTxt); - RootXMLBuffer.Insert(); - if not GovTalkMessage.Get(Rec."VAT Report Config. Code", Rec."No.") then begin - GovTalkMessageManagement.InitGovTalkMessage(GovTalkMessage, Rec); - GovTalkMessage.RootXMLBuffer := RootXMLBuffer."Entry No."; - GovTalkMessage.Modify(); - end; - PopulateVATDeclarationRequest(Rec); - end; - - var - GovTalkMessage: Record GovTalkMessage; - RootXMLBuffer: Record "XML Buffer"; - GovTalkMessageManagement: Codeunit GovTalkMessageManagement; - BaseType: Option ElevenPointTwoDigitDecimalType,ElevenPointTwoDigitNonNegativeDecimalType,ThirteenDigitIntegerType; - VATDeclarationRequestTxt: Label 'VATDeclarationRequest', Locked = true; - VATDueOnOutputsTxt: Label 'VATDueOnOutputs', Locked = true; - VATDueOnECAcquisitionsTxt: Label 'VATDueOnECAcquisitions', Locked = true; - TotalVATTxt: Label 'TotalVAT', Locked = true; - VATReclaimedOnInputsTxt: Label 'VATReclaimedOnInputs', Locked = true; - NetVATTxt: Label 'NetVAT', Locked = true; - NetSalesAndOutputsTxt: Label 'NetSalesAndOutputs', Locked = true; - NetPurchasesAndInputsTxt: Label 'NetPurchasesAndInputs', Locked = true; - NetECSuppliesTxt: Label 'NetECSupplies', Locked = true; - NetECAcquisitionsTxt: Label 'NetECAcquisitions', Locked = true; - AASBalancingPaymentTxt: Label 'AASBalancingPayment', Locked = true; - - local procedure GetRowValue(VATReportHeader: Record "VAT Report Header"; BoxNo: Text): Decimal - var - VATStatementReportLine: Record "VAT Statement Report Line"; - begin - VATStatementReportLine.SetRange("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"); - VATStatementReportLine.SetRange("VAT Report No.", VATReportHeader."No."); - VATStatementReportLine.SetRange("Box No.", CopyStr(BoxNo, 1, MaxStrLen(VATStatementReportLine."Box No."))); - if VATStatementReportLine.FindFirst() then - exit(VATStatementReportLine.Amount); - exit(0); - end; - - local procedure PopulateVATDeclarationRequest(VATReportHeader: Record "VAT Report Header") - begin - InsertLine(VATDueOnOutputsTxt, GetRowValue(VATReportHeader, '1'), 0); - InsertLine(VATDueOnECAcquisitionsTxt, GetRowValue(VATReportHeader, '2'), 0); - InsertLine(TotalVATTxt, GetRowValue(VATReportHeader, '3'), 0); - InsertLine(VATReclaimedOnInputsTxt, GetRowValue(VATReportHeader, '4'), 0); - InsertLine(NetVATTxt, GetRowValue(VATReportHeader, '5'), 1); - InsertLine(NetSalesAndOutputsTxt, GetRowValue(VATReportHeader, '6'), 2); - InsertLine(NetPurchasesAndInputsTxt, GetRowValue(VATReportHeader, '7'), 2); - InsertLine(NetECSuppliesTxt, GetRowValue(VATReportHeader, '8'), 2); - InsertLine(NetECAcquisitionsTxt, GetRowValue(VATReportHeader, '9'), 2); - InsertLine(AASBalancingPaymentTxt, GetRowValue(VATReportHeader, '10'), 1); - end; - - local procedure InsertLine(Description: Text[250]; Value: Decimal; BaseType: Option) - begin - RootXMLBuffer.AddElement(Description, GetFormattedValue(Value, BaseType)); - end; - - local procedure GetFormattedValue(Value: Decimal; FormatType: Option): Text[250] - begin - if FormatType = BaseType::ElevenPointTwoDigitDecimalType then - exit(ElevenPointTwoDigitDecimalFormat(Value)); - if FormatType = BaseType::ElevenPointTwoDigitNonNegativeDecimalType then - exit(ElevenPointTwoDigitNonNegativeDecimalFormat(Value)); - if FormatType = BaseType::ThirteenDigitIntegerType then - exit(ThirteenDigitIntegerFormat(Value)); - end; - - local procedure ElevenPointTwoDigitDecimalFormat(Value: Decimal): Text[250] - begin - exit(Format(Round(Value, 0.01), 0, '')); - end; - - local procedure ElevenPointTwoDigitNonNegativeDecimalFormat(Value: Decimal): Text[250] - begin - exit(ElevenPointTwoDigitDecimalFormat(Abs(Value))); - end; - - local procedure ThirteenDigitIntegerFormat(Value: Decimal): Text[250] - begin - exit(Format(Round(Value, 1), 0, '')); - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessage.Table.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessage.Table.al index 2efcb1188c5..e159d8aee15 100644 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessage.Table.al +++ b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessage.Table.al @@ -10,13 +10,8 @@ table 10520 GovTalkMessage Caption = 'GovTalkMessage'; DataClassification = CustomerContent; ObsoleteReason = 'Moved to GovTalk app'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif fields { diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessageManagement.Codeunit.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessageManagement.Codeunit.al deleted file mode 100644 index 8e255dfebd9..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessageManagement.Codeunit.al +++ /dev/null @@ -1,644 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using Microsoft.Foundation.Company; -using System; -using System.Integration; -using System.Threading; -using System.Utilities; -using System.Xml; - -codeunit 10520 GovTalkMessageManagement -{ - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - - trigger OnRun() - begin - end; - - var - GovTalkSetup: Record "GovTalk Setup"; - CompanyInformation: Record "Company Information"; - GovTalkNameSpaceTxt: Label 'http://www.govtalk.gov.uk/CM/envelope', Locked = true; - VATDeclarationMessageClassTxt: Label 'HMRC-VAT-DEC', Locked = true; - XMLDOMManagement: Codeunit "XML DOM Management"; - ECSLDeclarationMessageClassTxt: Label 'HMCE-ECSL-ORG-V101', Locked = true; - ErrorResponseNameSpaceTxt: Label 'http://www.govtalk.gov.uk/CM/errorresponse', Locked = true; - SuccessResponseNameSpaceTxt: Label 'http://www.inlandrevenue.gov.uk/SuccessResponse', Locked = true; - VATDeclarationNameSpaceTxt: Label 'http://www.govtalk.gov.uk/taxation/vat/vatdeclaration/2', Locked = true; - ECSLDeclarationNameSpaceTxt: Label 'http://www.govtalk.gov.uk/taxation/vat/europeansalesdeclaration/1', Locked = true; - VATCoreNameSpaceTxt: Label 'http://www.govtalk.gov.uk/taxation/vat/core/1', Locked = true; - InvalidGovTalkMessagePartIDErr: Label 'The XML part id is invalid.'; - - [Scope('OnPrem')] - [NonDebuggable] - procedure CreateBlankGovTalkXmlMessage(var GovTalkMessageXMLNode: DotNet XmlNode; var BodyXMLNode: DotNet XmlNode; VATReportHeader: Record "VAT Report Header"; Qualifier: Text; Fn: Text; IncludeSenderDetails: Boolean): Boolean - var - GovTalkMessage: Record GovTalkMessage; - GovTalkVATReportValidate: Codeunit "GovTalk VAT Report Validate"; - XmlDoc: DotNet XmlDocument; - HeaderXMLNode: DotNet XmlNode; - MessageDetailsXMLNode: DotNet XmlNode; - SenderDetailsXMLNode: DotNet XmlNode; - IDAuthenticationXMLNode: DotNet XmlNode; - AuthenticationXMLNode: DotNet XmlNode; - GovTalkDetailsXMLNode: DotNet XmlNode; - KeysXMLNode: DotNet XmlNode; - VATRegNoXMLNode: DotNet XmlNode; - BranchNoXMLNode: DotNet XmlNode; - PostCodeXMLNode: DotNet XmlNode; - ChannelRoutingXMLNode: DotNet XmlNode; - ChannelXMLNode: DotNet XmlNode; - DummyXMLNode: DotNet XmlNode; - begin - if not GovTalkVATReportValidate.ValidateGovTalkPrerequisites(VATReportHeader) then - exit(false); - - GovTalkSetup.FindFirst(); - CompanyInformation.Get(); - - XmlDoc := XmlDoc.XmlDocument(); - - if not GovTalkMessage.Get(VATReportHeader."VAT Report Config. Code", VATReportHeader."No.") then - InitGovTalkMessage(GovTalkMessage, VATReportHeader); - - // QUCIK XML SCHEMA BREIF - // GovTalkMessage - // -EnvelopeVersion - // -Header - // --MessageDetails - // ---Class - // ---Qualifier - // ---Function - // ---CorrelationID - // ---Transformation - // --SenderDetails - // ---IDAuthentication - // ----SenderID - // ----Authentication - // -----Method - // -----Value - // -GovTalkDetails - // --Keys - // ---Key (Type=VATRegNo) - // --ChannelRouting - // ---Channel - // ----URI (VendorID) - // -Body - XMLDOMManagement.AddRootElementWithPrefix(XmlDoc, 'GovTalkMessage', '', GovTalkNameSpaceTxt, GovTalkMessageXMLNode); - XMLDOMManagement.AddElement(GovTalkMessageXMLNode, 'EnvelopeVersion', '2.0', GovTalkNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElement(GovTalkMessageXMLNode, 'Header', '', GovTalkNameSpaceTxt, HeaderXMLNode); - XMLDOMManagement.AddElement(GovTalkMessageXMLNode, 'GovTalkDetails', '', GovTalkNameSpaceTxt, GovTalkDetailsXMLNode); - XMLDOMManagement.AddElement(GovTalkMessageXMLNode, 'Body', '', GovTalkNameSpaceTxt, BodyXMLNode); - - XMLDOMManagement.AddElement(HeaderXMLNode, 'MessageDetails', '', GovTalkNameSpaceTxt, MessageDetailsXMLNode); - - if GovTalkSetup."Test Mode" then - XMLDOMManagement.AddElement(MessageDetailsXMLNode, 'Class', - StrSubstNo('%1-TIL', GovTalkMessage."Message Class"), GovTalkNameSpaceTxt, DummyXMLNode) - else - XMLDOMManagement.AddElement(MessageDetailsXMLNode, 'Class', GovTalkMessage."Message Class", GovTalkNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElement(MessageDetailsXMLNode, 'Qualifier', Qualifier, GovTalkNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElement(MessageDetailsXMLNode, 'Function', Fn, GovTalkNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElement(MessageDetailsXMLNode, 'CorrelationID', VATReportHeader."Message Id", GovTalkNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElement(MessageDetailsXMLNode, 'Transformation', 'XML', GovTalkNameSpaceTxt, DummyXMLNode); - - if IncludeSenderDetails then begin - XMLDOMManagement.AddElement(HeaderXMLNode, 'SenderDetails', '', GovTalkNameSpaceTxt, SenderDetailsXMLNode); - XMLDOMManagement.AddElement(SenderDetailsXMLNode, 'IDAuthentication', '', GovTalkNameSpaceTxt, IDAuthenticationXMLNode); - XMLDOMManagement.AddElement(IDAuthenticationXMLNode, 'SenderID', GovTalkSetup.Username, GovTalkNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElement(IDAuthenticationXMLNode, 'Authentication', '', GovTalkNameSpaceTxt, AuthenticationXMLNode); - XMLDOMManagement.AddElement(AuthenticationXMLNode, 'Method', 'clear', GovTalkNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElement(AuthenticationXMLNode, 'Value', GovTalkSetup.GetPassword(), GovTalkNameSpaceTxt, DummyXMLNode); - end; - - XMLDOMManagement.AddElement(GovTalkDetailsXMLNode, 'Keys', '', GovTalkNameSpaceTxt, KeysXMLNode); - if IncludeSenderDetails then begin - // EC Sales List specifics - if VATReportHeader."VAT Report Config. Code" = VATReportHeader."VAT Report Config. Code"::"EC Sales List" then begin - XMLDOMManagement.AddElement(KeysXMLNode, 'Key', CompanyInformation."Branch Number", GovTalkNameSpaceTxt, BranchNoXMLNode); - XMLDOMManagement.AddAttribute(BranchNoXMLNode, 'Type', 'BranchNo'); - XMLDOMManagement.AddElement(KeysXMLNode, 'Key', DelChr(CompanyInformation."Post Code", '=', '- '), GovTalkNameSpaceTxt, PostCodeXMLNode); - XMLDOMManagement.AddAttribute(PostCodeXMLNode, 'Type', 'Postcode'); - end; - XMLDOMManagement.AddElement(KeysXMLNode, 'Key', - FormatVATRegNo(CompanyInformation."Country/Region Code", CompanyInformation."VAT Registration No."), - GovTalkNameSpaceTxt, VATRegNoXMLNode); - XMLDOMManagement.AddAttribute(VATRegNoXMLNode, 'Type', 'VATRegNo'); - end; - XMLDOMManagement.AddElement(GovTalkDetailsXMLNode, 'ChannelRouting', '', GovTalkNameSpaceTxt, ChannelRoutingXMLNode); - XMLDOMManagement.AddElement(ChannelRoutingXMLNode, 'Channel', '', GovTalkNameSpaceTxt, ChannelXMLNode); - XMLDOMManagement.AddElement(ChannelXMLNode, 'URI', GovTalkSetup.GetVendorID(), GovTalkNameSpaceTxt, DummyXMLNode); - - exit(true); - end; - - [Scope('OnPrem')] - procedure CreateGovTalkPollMessage(var GovTalkMessageXMLNode: DotNet XmlNode; VATReportHeader: Record "VAT Report Header") - var - DummyXMLNode: DotNet XmlNode; - begin - CreateBlankGovTalkXmlMessage(GovTalkMessageXMLNode, DummyXMLNode, VATReportHeader, 'poll', 'submit', false); - end; - - [Scope('OnPrem')] - [NonDebuggable] - procedure CreateGovTalkDeleteMessage(var GovTalkMessageXMLNode: DotNet XmlNode; VATReportHeader: Record "VAT Report Header") - var - DummyXMLNode: DotNet XmlNode; - begin - CreateBlankGovTalkXmlMessage(GovTalkMessageXMLNode, DummyXMLNode, VATReportHeader, 'request', 'delete', false); - end; - - [Scope('OnPrem')] - procedure SendHttpRequest(var GovTalkMessageXMLNode: DotNet XmlNode; SubmitURL: Text; var SubmitResponseXMLNode: DotNet XmlNode): Boolean - var - WebRequestHelper: Codeunit "Web Request Helper"; - HttpWebRequestMgt: Codeunit "Http Web Request Mgt."; - XmlDoc: DotNet XmlDocument; - HttpWebRequest: DotNet HttpWebRequest; - HttpStatusCode: DotNet HttpStatusCode; - ResponseHeaders: DotNet NameValueCollection; - HttpWebResponse: DotNet HttpWebResponse; - ResponseInStream: InStream; - begin - HttpWebRequest := HttpWebRequest.Create(SubmitURL); - HttpWebRequest.Method := 'POST'; - HttpWebRequest.AllowAutoRedirect := true; - HttpWebRequest.ContentType := 'text/xml'; - HttpWebRequest.Headers.Add('Accept-Encoding', 'utf-8'); - - XmlDoc := GovTalkMessageXMLNode.ParentNode; - - HttpWebRequestMgt.CreateInstream(ResponseInStream); - XmlDoc.Save(HttpWebRequest.GetRequestStream()); - if WebRequestHelper.GetWebResponse(HttpWebRequest, HttpWebResponse, ResponseInStream, - HttpStatusCode, ResponseHeaders, true) - then begin - if HttpStatusCode.Equals(HttpStatusCode.OK) then begin - XMLDOMManagement.LoadXMLNodeFromInStream(ResponseInStream, SubmitResponseXMLNode); - exit(true); - end; - exit(false); - end; - exit(false); - end; - - [Scope('OnPrem')] - procedure ReadGatewayErrors(var VATReportHeader: Record "VAT Report Header"; SubmitResponseXMLNode: DotNet XmlNode) - var - ErrorsXMLNode: DotNet XmlNode; - CorrelationXMLNode: DotNet XmlNode; - ChildNodes: DotNet XmlNodeList; - BusinessErrorExists: Boolean; - i: Integer; - begin - if - XMLDOMManagement.FindNodeWithNamespace(SubmitResponseXMLNode, '//x:GovTalkErrors', 'x', GovTalkNameSpaceTxt, ErrorsXMLNode) - then begin - ChildNodes := ErrorsXMLNode.ChildNodes; - for i := 0 to ChildNodes.Count - 1 do - if LowerCase( - XMLDOMManagement.FindNodeTextWithNamespace(ChildNodes.Item(i), 'x:RaisedBy', 'x', GovTalkNameSpaceTxt)) = 'department' - then - BusinessErrorExists := true - else - LogErrorEntry(VATReportHeader, XMLDOMManagement.FindNodeTextWithNamespace( - ChildNodes.Item(i), 'x:Text', 'x', GovTalkNameSpaceTxt)); - if BusinessErrorExists then - ReadBusinessErrors(VATReportHeader, SubmitResponseXMLNode); - - if VATReportHeader."VAT Report Config. Code" = VATReportHeader."VAT Report Config. Code"::"EC Sales List" then begin - if not XMLDOMManagement.FindNodeWithNamespace( - SubmitResponseXMLNode, '//x:CorrelationID', 'x', GovTalkNameSpaceTxt, CorrelationXMLNode) - then - Error(''); - SetPartStatus(CorrelationXMLNode.InnerText, Enum::"VAT Report Status"::Rejected); - UpdateVATReportStatus(VATReportHeader); - end else begin - VATReportHeader.Validate(Status, VATReportHeader.Status::Rejected); - VATReportHeader.Modify(true); - end; - end; - end; - - local procedure ReadBusinessErrors(VATReportHeader: Record "VAT Report Header"; SubmitResponseXMLNode: DotNet XmlNode) - var - ErrorsXMLNode: DotNet XmlNode; - ChildNodes: DotNet XmlNodeList; - i: Integer; - begin - if XMLDOMManagement.FindNodeWithNamespace(SubmitResponseXMLNode, '//x:ErrorResponse', 'x', ErrorResponseNameSpaceTxt, ErrorsXMLNode) then begin - XMLDOMManagement.FindNodesWithNamespace(ErrorsXMLNode, 'x:Error', 'x', ErrorResponseNameSpaceTxt, ChildNodes); - for i := 0 to ChildNodes.Count - 1 do - LogErrorEntry(VATReportHeader, XMLDOMManagement.FindNodeTextWithNamespace( - ChildNodes.Item(i), 'x:Text', 'x', ErrorResponseNameSpaceTxt)); - ReadECSLDeclarationResponse(VATReportHeader, ErrorsXMLNode); - end; - end; - - local procedure LogErrorEntry(VATReportHeader: Record "VAT Report Header"; ErrorText: Text) - var - ErrorMessageLog: Record "Error Message"; - begin - ErrorMessageLog.LockTable(); - ErrorMessageLog.SetContext(VATReportHeader); - ErrorMessageLog.LogMessage(VATReportHeader, VATReportHeader.FieldNo("No."), ErrorMessageLog."Message Type"::Error, ErrorText); - end; - - local procedure LogNotificationEntry(VATReportHeader: Record "VAT Report Header"; NotificationText: Text) - var - ErrorMessageLog: Record "Error Message"; - begin - ErrorMessageLog.LockTable(); - ErrorMessageLog.SetContext(VATReportHeader); - ErrorMessageLog.LogMessage(VATReportHeader, - VATReportHeader.FieldNo("No."), ErrorMessageLog."Message Type"::Information, NotificationText); - end; - - [Scope('OnPrem')] - procedure ReadSuccessResponse(var VATReportHeader: Record "VAT Report Header"; SubmitResponseXMLNode: DotNet XmlNode) - var - VATReportsConfiguration: Record "VAT Reports Configuration"; - SuccessResponseXMLNode: DotNet XmlNode; - CorrelationXMLNode: DotNet XmlNode; - begin - if XMLDOMManagement.FindNodeWithNamespace( - SubmitResponseXMLNode, '//suc:SuccessResponse', 'suc', SuccessResponseNameSpaceTxt, SuccessResponseXMLNode) - then begin - ReadVATDeclarationResponse(VATReportHeader, SuccessResponseXMLNode); - ReadECSLDeclarationResponse(VATReportHeader, SuccessResponseXMLNode); - if VATReportHeader."VAT Report Config. Code" = VATReportHeader."VAT Report Config. Code"::"VAT Return" then begin - VATReportHeader.Validate(Status, VATReportHeader.Status::Accepted); - VATReportHeader.Modify(true); - end else begin - if not XMLDOMManagement.FindNodeWithNamespace( - SuccessResponseXMLNode, '//x:CorrelationID', 'x', GovTalkNameSpaceTxt, CorrelationXMLNode) - then - Error(''); - SetPartStatus(CorrelationXMLNode.InnerText, VATReportHeader.Status::Accepted); - UpdateVATReportStatus(VATReportHeader); - end; - if VATReportsConfiguration.Get(VATReportHeader."VAT Report Config. Code", VATReportHeader."VAT Report Version") then - if VATReportsConfiguration."Response Handler Codeunit ID" <> 0 then - CODEUNIT.Run(VATReportsConfiguration."Response Handler Codeunit ID"); - end; - end; - - local procedure ReadVATDeclarationResponse(VATReportHeader: Record "VAT Report Header"; SuccessResponseXMLNode: DotNet XmlNode) - var - PaymentNotificationXMLNode: DotNet XmlNode; - InformationNotificationXMLNodes: DotNet XmlNodeList; - i: Integer; - begin - if XMLDOMManagement.FindNodeWithNamespace( - SuccessResponseXMLNode, '//x:PaymentNotification', 'x', VATDeclarationNameSpaceTxt, PaymentNotificationXMLNode) - then - LogNotificationEntry(VATReportHeader, XMLDOMManagement.FindNodeTextWithNamespace( - PaymentNotificationXMLNode, 'x:Narrative', 'x', VATDeclarationNameSpaceTxt)); - XMLDOMManagement.FindNodesWithNamespace(SuccessResponseXMLNode, - '//x:InformationNotification', 'x', VATDeclarationNameSpaceTxt, InformationNotificationXMLNodes); - for i := 0 to InformationNotificationXMLNodes.Count - 1 do - LogNotificationEntry(VATReportHeader, XMLDOMManagement.FindNodeTextWithNamespace( - InformationNotificationXMLNodes.Item(i), 'x:Narrative', 'x', VATDeclarationNameSpaceTxt)); - end; - - local procedure ReadECSLDeclarationResponse(VATReportHeader: Record "VAT Report Header"; SuccessResponseXMLNode: DotNet XmlNode) - var - EuropeanSaleResponseXMLNodes: DotNet XmlNodeList; - LineResponseXMLNode: DotNet XmlNode; - LineStatusXMLNode: DotNet XmlNode; - DummyXMLNode: DotNet XmlNode; - i: Integer; - begin - if XMLDOMManagement.FindNodesWithNamespace( - SuccessResponseXMLNode, '//ns:EuropeanSaleResponse', 'ns', ECSLDeclarationNameSpaceTxt, EuropeanSaleResponseXMLNodes) - then - for i := 0 to EuropeanSaleResponseXMLNodes.Count - 1 do - if XMLDOMManagement.FindNodeWithNamespace(EuropeanSaleResponseXMLNodes.Item(i), - 'ns1:EuropeanSale', 'ns1', VATCoreNameSpaceTxt, LineResponseXMLNode) and - XMLDOMManagement.FindNodeWithNamespace(EuropeanSaleResponseXMLNodes.Item(i), 'ns1:Status', 'ns1', VATCoreNameSpaceTxt, LineStatusXMLNode) - then - if XMLDOMManagement.FindNodeWithNamespace(LineStatusXMLNode, 'ns1:Acknowledged', 'ns1', VATCoreNameSpaceTxt, DummyXMLNode) then - LogNotificationEntry(VATReportHeader, StrSubstNo( - 'Line No. %1 Acknowledged', - XMLDOMManagement.FindNodeTextWithNamespace(LineResponseXMLNode, 'ns1:SubmittersReference', 'ns1', VATCoreNameSpaceTxt))) - else - LogErrorEntry(VATReportHeader, StrSubstNo('Line No. %1 failed with error: %2', - XMLDOMManagement.FindNodeTextWithNamespace(LineResponseXMLNode, 'ns1:SubmittersReference', 'ns1', VATCoreNameSpaceTxt), - XMLDOMManagement.FindNodeTextWithNamespace(LineStatusXMLNode, 'ns1:Error', 'ns1', VATCoreNameSpaceTxt))); - end; - - [Scope('OnPrem')] - procedure SubmitGovTalkRequest(var VATReportHeader: Record "VAT Report Header"; GovTalkMessageXMLNode: DotNet XmlNode): Boolean - var - DummyGuid: Guid; - begin - GovTalkSetup.FindFirst(); - ArchiveXMLMessage(VATReportHeader, GovTalkMessageXMLNode, 0, DummyGuid); - exit(ProcessGovTalkSubmission(VATReportHeader, GovTalkSetup.Endpoint, GovTalkMessageXMLNode, true, true, DummyGuid)); - end; - - [Scope('OnPrem')] - procedure SubmitGovTalkCancelRequest(var VATReportHeader: Record "VAT Report Header") - begin - if SubmitGovTalkDeleteRequest(VATReportHeader, true) then begin - VATReportHeader.Validate(Status, VATReportHeader.Status::Canceled); - VATReportHeader.Modify(true); - end; - end; - - [Scope('OnPrem')] - procedure RegisterGovTalkPolling(var VATReportHeader: Record "VAT Report Header"; XMLPartID: Guid) - var - JobQueueEntry: Record "Job Queue Entry"; - GovTalkMessage: Record GovTalkMessage; - begin - GovTalkMessage.Get(VATReportHeader."VAT Report Config. Code", VATReportHeader."No."); - if GovTalkMessage."Polling Count" = 0 then begin - VATReportHeader.Status := VATReportHeader.Status::Rejected; - VATReportHeader.Modify(); - exit; - end; - GovTalkMessage."Polling Count" -= 1; - GovTalkMessage.Modify(); - - JobQueueEntry.Init(); - JobQueueEntry."Object Type to Run" := JobQueueEntry."Object Type to Run"::Codeunit; - JobQueueEntry."Object ID to Run" := CODEUNIT::"HMRC GovTalk Message Scheduler"; - JobQueueEntry."Record ID to Process" := VATReportHeader.RecordId; - JobQueueEntry."Parameter String" := Format(XMLPartID); - JobQueueEntry."Rerun Delay (sec.)" := GovTalkMessage.PollInterval; - JobQueueEntry."Maximum No. of Attempts to Run" := 100; - JobQueueEntry."Earliest Start Date/Time" := CurrentDateTime + (GovTalkMessage.PollInterval * 1000); - CODEUNIT.Run(CODEUNIT::"Job Queue - Enqueue", JobQueueEntry); - end; - - [Scope('OnPrem')] - [NonDebuggable] - procedure SubmitGovTalkDeleteRequest(var VATReportHeader: Record "VAT Report Header"; LogMessage: Boolean): Boolean - var - GovTalkMessage: Record GovTalkMessage; - GovTalkMessageXMLNode: DotNet XmlNode; - DummyGuid: Guid; - begin - if VATReportHeader."Message Id" = '' then - exit(true); - CreateGovTalkDeleteMessage(GovTalkMessageXMLNode, VATReportHeader); - if GovTalkMessage.Get(VATReportHeader."VAT Report Config. Code", VATReportHeader."No.") then begin - if GovTalkMessage.ResponseEndPoint = '' then - exit(false); - if LogMessage then - ArchiveXMLMessage(VATReportHeader, GovTalkMessageXMLNode, 0, DummyGuid); - if ProcessGovTalkSubmission(VATReportHeader, GovTalkMessage.ResponseEndPoint, GovTalkMessageXMLNode, LogMessage, false, DummyGuid) then begin - VATReportHeader."Message Id" := ''; - VATReportHeader.Modify(true); - exit(true); - end; - end; - exit(false); - end; - - [Scope('OnPrem')] - procedure ArchiveXMLMessage(var VATReportHeader: Record "VAT Report Header"; GovTalkMessageXMLNode: DotNet XmlNode; MessageType: Option Submission,Response; XMLPartID: Guid) - var - VATReportArchive: Record "VAT Report Archive"; - TempBlob: Codeunit "Temp Blob"; - XmlDoc: DotNet XmlDocument; - BlobOutStream: OutStream; - MemoryStream: DotNet MemoryStream; - begin - XmlDoc := GovTalkMessageXMLNode.ParentNode; - MemoryStream := MemoryStream.MemoryStream(); - XmlDoc.Save(MemoryStream); - TempBlob.CreateOutStream(BlobOutStream); - MemoryStream.WriteTo(BlobOutStream); - MemoryStream.Close(); - if MessageType = MessageType::Submission then - VATReportArchive.ArchiveSubmissionMessage( - VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", TempBlob, XMLPartID) - else - VATReportArchive.ArchiveResponseMessage( - VATReportHeader."VAT Report Config. Code".AsInteger(), VATReportHeader."No.", TempBlob, XMLPartID); - end; - - [Scope('OnPrem')] - procedure ProcessGovTalkSubmission(var VATReportHeader: Record "VAT Report Header"; SubmissionEndPoint: Text; GovTalkMessageXMLNode: DotNet XmlNode; LogResponse: Boolean; FlushGateway: Boolean; XMlPartId: Guid): Boolean - var - GovTalkMessage: Record GovTalkMessage; - SubmitResponseXMLNode: DotNet XmlNode; - ResponseQualifierXMLNode: DotNet XmlNode; - CorrelationIDXMLNode: DotNet XmlNode; - ResponseEndPointXMLNode: DotNet XmlNode; - PollIntervalAttribute: DotNet XmlAttribute; - CorrelationXMLNode: DotNet XmlNode; - PollInterval: Integer; - begin - if SendHttpRequest(GovTalkMessageXMLNode, SubmissionEndPoint, SubmitResponseXMLNode) then begin - if LogResponse then - ArchiveXMLMessage(VATReportHeader, SubmitResponseXMLNode, 1, XMlPartId); - if XMLDOMManagement.FindNodeWithNamespace( - SubmitResponseXMLNode, '//x:CorrelationID', 'x', GovTalkNameSpaceTxt, CorrelationIDXMLNode) - then - PersistCorrelationID(VATReportHeader, XMlPartId, CorrelationIDXMLNode.InnerText); - - if XMLDOMManagement.FindNodeWithNamespace( - SubmitResponseXMLNode, '//x:ResponseEndPoint', 'x', GovTalkNameSpaceTxt, ResponseEndPointXMLNode) - then begin - XMLDOMManagement.FindAttribute(ResponseEndPointXMLNode, PollIntervalAttribute, 'PollInterval'); - Evaluate(PollInterval, PollIntervalAttribute.Value); - if GovTalkMessage.Get(VATReportHeader."VAT Report Config. Code", VATReportHeader."No.") then begin - GovTalkMessage.Validate(ResponseEndPoint, ResponseEndPointXMLNode.InnerText); - GovTalkMessage.Validate(PollInterval, PollInterval); - GovTalkMessage.Modify(); - end; - end; - if XMLDOMManagement.FindNodeWithNamespace( - SubmitResponseXMLNode, '//x:Qualifier', 'x', GovTalkNameSpaceTxt, ResponseQualifierXMLNode) - then - if (ResponseQualifierXMLNode.InnerText = 'error') and - (FlushGateway = true) - then begin - ReadGatewayErrors(VATReportHeader, SubmitResponseXMLNode); - SubmitGovTalkDeleteRequest(VATReportHeader, false); - end else - if (ResponseQualifierXMLNode.InnerText = 'response') and - (FlushGateway = true) - then begin - ReadSuccessResponse(VATReportHeader, SubmitResponseXMLNode); - SubmitGovTalkDeleteRequest(VATReportHeader, false); - end else - if ResponseQualifierXMLNode.InnerText = 'acknowledgement' then begin - if VATReportHeader."VAT Report Config. Code" = VATReportHeader."VAT Report Config. Code"::"EC Sales List" then begin - if not XMLDOMManagement.FindNodeWithNamespace( - SubmitResponseXMLNode, '//x:CorrelationID', 'x', GovTalkNameSpaceTxt, CorrelationXMLNode) - then - Error(''); - SetPartStatus(CorrelationXMLNode.InnerText, VATReportHeader.Status::Submitted); - UpdateVATReportStatus(VATReportHeader); - end else begin - VATReportHeader.Validate(Status, VATReportHeader.Status::Submitted); - VATReportHeader.Modify(true); - end; - RegisterGovTalkPolling(VATReportHeader, XMlPartId); - end; - exit(true); - end; - exit(false); - end; - - [Scope('OnPrem')] - procedure InitGovTalkMessage(var GovTalkMessage: Record GovTalkMessage; VATReportHeader: Record "VAT Report Header") - begin - GovTalkMessage.ReportConfigCode := VATReportHeader."VAT Report Config. Code".AsInteger(); - GovTalkMessage.ReportNo := VATReportHeader."No."; - GovTalkMessage.PeriodID := GetPeriodID(VATReportHeader."End Date"); - GovTalkMessage.PeriodStart := VATReportHeader."Start Date"; - GovTalkMessage.PeriodEnd := VATReportHeader."End Date"; - GovTalkMessage."Polling Count" := 1000; - if VATReportHeader."VAT Report Config. Code" = VATReportHeader."VAT Report Config. Code"::"VAT Return" then - GovTalkMessage."Message Class" := VATDeclarationMessageClassTxt - else - GovTalkMessage."Message Class" := ECSLDeclarationMessageClassTxt; - GovTalkMessage.Insert(); - end; - - local procedure GetPeriodID(PeriodEnd: Date): Code[10] - begin - exit(Format(PeriodEnd, 0, '-')); - end; - - [Scope('OnPrem')] - procedure FormatVATRegNo(CountryCode: Code[10]; VATRegNo: Text): Text - begin - if StrPos(VATRegNo, CountryCode) = 1 then - exit(DelStr(VATRegNo, 1, StrLen(CountryCode))); - exit(VATRegNo); - end; - - [Scope('OnPrem')] - procedure SubmitECSLGovTalkRequest(var VATReportHeader: Record "VAT Report Header"; GovTalkMessageXMLNode: DotNet XmlNode; XMLPartID: Guid) - begin - GovTalkSetup.FindFirst(); - ArchiveXMLMessage(VATReportHeader, GovTalkMessageXMLNode, 0, XMLPartID); - ProcessGovTalkSubmission(VATReportHeader, GovTalkSetup.Endpoint, GovTalkMessageXMLNode, true, true, XMLPartID) - end; - - local procedure PersistCorrelationID(var VATReportHeader: Record "VAT Report Header"; XmlPartID: Guid; CorrelationID: Text[250]) - var - GovTalkMessageParts: Record "GovTalk Message Parts"; - begin - if VATReportHeader."VAT Report Config. Code" = VATReportHeader."VAT Report Config. Code"::"VAT Return" then begin - VATReportHeader."Message Id" := CorrelationID; - VATReportHeader.Modify(); - exit; - end; - - if not GovTalkMessageParts.Get(XmlPartID) then - Error(InvalidGovTalkMessagePartIDErr); - - GovTalkMessageParts.TestField("Report No.", VATReportHeader."No."); - GovTalkMessageParts.TestField("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"::"EC Sales List"); - - GovTalkMessageParts."Correlation Id" := CorrelationID; - GovTalkMessageParts.Modify(); - end; - - local procedure SetPartStatus(CorrelationId: Text; NewStatus: Enum "VAT Report Status") - var - GovTalkMessageParts: Record "GovTalk Message Parts"; - begin - GovTalkMessageParts.SetFilter("Correlation Id", CorrelationId); - if not GovTalkMessageParts.FindFirst() then - Error(''); - GovTalkMessageParts.Validate(Status, NewStatus); - GovTalkMessageParts.Modify(true); - end; - - local procedure UpdateVATReportStatus(var VATReportHeader: Record "VAT Report Header") - var - GovTalkMessageParts: Record "GovTalk Message Parts"; - PartsCount: Integer; - begin - GovTalkMessageParts.SetRange("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"); - GovTalkMessageParts.SetRange("Report No.", VATReportHeader."No."); - PartsCount := GovTalkMessageParts.Count(); - - GovTalkMessageParts.SetFilter(Status, '<>%1', GovTalkMessageParts.Status::Released); - if not (GovTalkMessageParts.Count = PartsCount) then - exit; - - if ConditionalUpdateVATRepStatus( - VATReportHeader, GovTalkMessageParts.Status::Submitted, VATReportHeader.Status::Submitted, PartsCount) - then - exit; - if ConditionalUpdateVATRepStatus( - VATReportHeader, GovTalkMessageParts.Status::Accepted, VATReportHeader.Status::Accepted, PartsCount) - then - exit; - if ConditionalUpdateVATRepStatus( - VATReportHeader, GovTalkMessageParts.Status::Rejected, VATReportHeader.Status::Rejected, PartsCount) - then - exit; - - GovTalkMessageParts.SetRange("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"); - GovTalkMessageParts.SetRange("Report No.", VATReportHeader."No."); - GovTalkMessageParts.SetRange(Status, VATReportHeader.Status::Accepted); - if GovTalkMessageParts.Count > 0 then begin - VATReportHeader.Validate(Status, VATReportHeader.Status::"Partially Accepted"); - VATReportHeader.Modify(true); - exit; - end; - end; - - local procedure ConditionalUpdateVATRepStatus(var VATReportHeader: Record "VAT Report Header"; ExpectedPartStatus: Option; UpdateToStatus: Enum "VAT Report Status"; TotalPartCount: Integer): Boolean - var - GovTalkMessageParts: Record "GovTalk Message Parts"; - begin - GovTalkMessageParts.SetRange("VAT Report Config. Code", VATReportHeader."VAT Report Config. Code"); - GovTalkMessageParts.SetRange("Report No.", VATReportHeader."No."); - GovTalkMessageParts.SetRange(Status, ExpectedPartStatus); - - if GovTalkMessageParts.Count = TotalPartCount then begin - VATReportHeader.Validate(Status, UpdateToStatus); - VATReportHeader.Modify(true); - exit(true); - end; - exit(false); - end; - - [EventSubscriber(ObjectType::Page, Page::"VAT Report", 'OnAfterInitPageControllers', '', false, false)] - local procedure OnAfterInitPageControllers(VATReportHeader: Record "VAT Report Header"; var SubmitControllerStatus: Boolean; var MarkAsSubmitControllerStatus: Boolean) - var - GovTalkSetup: Record "GovTalk Setup"; - begin - if not IsGovTalk(VATReportHeader) then - exit; - - if GovTalkSetup.IsConfigured() then begin - SubmitControllerStatus := VATReportHeader.Status = VATReportHeader.Status::Released; - MarkAsSubmitControllerStatus := false; - end else begin - MarkAsSubmitControllerStatus := VATReportHeader.Status = VATReportHeader.Status::Released; - SubmitControllerStatus := false; - end; - end; - - local procedure IsGovTalk(VATReportHeader: Record "VAT Report Header"): Boolean - var - VATReportsConfiguration: Record "VAT Reports Configuration"; - begin - if not VATReportsConfiguration.Get(VATReportHeader."VAT Report Config. Code", VATReportsConfiguration."VAT Report Version") then - exit(false); - - exit(VATReportsConfiguration."Submission Codeunit ID" = CODEUNIT::"Submit VAT Declaration Request") - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessageParts.Table.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessageParts.Table.al index 9a92519aa0d..fd415c3bebf 100644 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessageParts.Table.al +++ b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessageParts.Table.al @@ -10,13 +10,8 @@ table 10524 "GovTalk Message Parts" Caption = 'GovTalk Message Parts'; DataClassification = CustomerContent; ObsoleteReason = 'Moved to GovTalk app'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif fields { diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Codeunit.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Codeunit.al deleted file mode 100644 index 97fad5db935..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Codeunit.al +++ /dev/null @@ -1,60 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using Microsoft.Utilities; -using System.Environment; - -codeunit 10523 "GovTalk Setup" -{ - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - - trigger OnRun() - begin - end; - - var - GovTalkGatewayTok: Label 'https://transaction-engine.tax.service.gov.uk/submission', Locked = true; - GovTalkGatewayTestTok: Label 'https://test-transaction-engine.tax.service.gov.uk/submission', Locked = true; - GovTalkSetupLbl: Label 'GovTalk Setup'; - GovTalkVendorIdTok: Label '7572'; - - [EventSubscriber(ObjectType::Table, Database::"Service Connection", 'OnRegisterServiceConnection', '', false, false)] - local procedure RegisterServiceInServiceConnections(var ServiceConnection: Record "Service Connection") - var - GovTalkSetup: Record "GovTalk Setup"; - begin - if not GovTalkSetup.FindFirst() then begin - GovTalkSetup.Init(); - GovTalkSetup.Endpoint := EndpointURL(); - GovTalkSetup.Insert(); - GovTalkSetup.SaveVendorID(GovTalkVendorIdTok); - end; - - if (GovTalkSetup.Endpoint <> '') and (not IsNullGuid(GovTalkSetup.Password)) then - ServiceConnection.Status := ServiceConnection.Status::Enabled - else - ServiceConnection.Status := ServiceConnection.Status::Disabled; - - ServiceConnection.InsertServiceConnection(ServiceConnection, GovTalkSetup.RecordId, - GovTalkSetupLbl, '', PAGE::"GovTalk Setup"); - end; - - local procedure EndpointURL(): Text[250] - var - Company: Record Company; - begin - Company.Get(CompanyName); - if Company."Evaluation Company" then - exit(GovTalkGatewayTestTok); - - exit(GovTalkGatewayTok); - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Page.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Page.al deleted file mode 100644 index a3adc791b4b..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Page.al +++ /dev/null @@ -1,127 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using Microsoft.Foundation.Company; -using System.Environment; - -page 10523 "GovTalk Setup" -{ - Caption = 'GovTalk Setup'; - PageType = StandardDialog; - SourceTable = "GovTalk Setup"; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - - layout - { - area(content) - { - field(Username; Rec.Username) - { - ApplicationArea = Basic, Suite; - ShowMandatory = true; - } - field(Password; PasswordField) - { - ApplicationArea = Basic, Suite; - ShowMandatory = true; - - trigger OnValidate() - begin - PasswordModified := true; - - if PasswordField = '' then - exit; - - ClearTextPassword := PasswordField; - PasswordField := PasswordMaskTok; - end; - } - field(Endpoint; Rec.Endpoint) - { - ApplicationArea = Basic, Suite; - ExtendedDatatype = URL; - } - field("Test Mode"; Rec."Test Mode") - { - ApplicationArea = Basic, Suite; - ToolTip = 'Specifies whether to test the connection to the GovTalk service by submitting the EC Sales List or VAT Return reports marked with Test in Live (TIL). The tax authority does not keep submissions you make while in Test Mode. To actually submit the reports this check box must be cleared.'; - } - field(TermsAndConditionsLbl; TermsAndConditionsLbl) - { - ApplicationArea = Basic, Suite; - Editable = false; - - trigger OnDrillDown() - begin - HyperLink(TermsAndConditionsUrlTok); - end; - } - field(CrownCopyright2008Lbl; CrownCopyright2008Lbl) - { - ApplicationArea = Basic, Suite; - Editable = false; - - trigger OnDrillDown() - begin - HyperLink(CrownCopyright2008UrlTok); - end; - } - } - } - - actions - { - } - - trigger OnOpenPage() - var - CompanyInformation: Record "Company Information"; - EnvironmentInfo: Codeunit "Environment Information"; - begin - CurrPage.Editable := not (CompanyInformation."Demo Company" and EnvironmentInfo.IsSaaS()); - PasswordModified := false; - - if not IsNullGuid(Rec.Password) then - PasswordField := PasswordMaskTok; - end; - - trigger OnQueryClosePage(CloseAction: Action): Boolean - var - CompanyInformation: Record "Company Information"; - begin - if CloseAction = ACTION::Cancel then - exit; - - CompanyInformation.Get(); - if CompanyInformation."VAT Registration No." = '' then - Message(NoCompanyVatNoSetupMsg); - - if PasswordModified then begin - Rec.SavePassword(ClearTextPassword); - Rec.Modify(); - end; - - Message(ThirdPartyNoticeMsg); - end; - - var - NoCompanyVatNoSetupMsg: Label 'GovTalk needs to know which company the documents are for. Before you can submit documents, you must enter your company''s VAT registration number on the Company Information page.'; - [NonDebuggable] - ClearTextPassword: Text[250]; - PasswordField: Text[250]; - PasswordMaskTok: Label '********', Locked = true; - TermsAndConditionsLbl: Label 'Terms and conditions', Locked = true; - TermsAndConditionsUrlTok: Label 'https://go.microsoft.com/fwlink/?linkid=848764 ', Locked = true; - ThirdPartyNoticeMsg: Label 'You are accessing a third-party website and service. You should review the third-party''''s terms and privacy policy.'; - PasswordModified: Boolean; - CrownCopyright2008Lbl: Label 'Contains public sector information licensed under the Open Government Licence v3.0.'; - CrownCopyright2008UrlTok: Label 'https://go.microsoft.com/fwlink/?linkid=851743', Locked = true; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Table.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Table.al index 4c30ff17037..08715ca4dd9 100644 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Table.al +++ b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Table.al @@ -14,13 +14,8 @@ table 10523 "GovTalk Setup" Caption = 'GovTalk Setup'; DataClassification = CustomerContent; ObsoleteReason = 'Moved to GovTalk app'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif fields { diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkVATReportValidate.Codeunit.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkVATReportValidate.Codeunit.al deleted file mode 100644 index 9110e7a8c6e..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkVATReportValidate.Codeunit.al +++ /dev/null @@ -1,58 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using Microsoft.Foundation.Company; -using System.Utilities; - -codeunit 10528 "GovTalk VAT Report Validate" -{ - TableNo = "VAT Report Header"; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - trigger OnRun() - begin - CODEUNIT.Run(CODEUNIT::"VAT Report Validate", Rec); - ValidateGovTalkPrerequisites(Rec); - end; - - var - GovTalkSetupMissingErr: Label 'The GovTalk service is not completely set up. If you want to submit the report, go to the Service Connection page and fill in the the GovTalk setup fields.'; - - [Scope('OnPrem')] - procedure ValidateGovTalkPrerequisites(VATReportHeader: Record "VAT Report Header"): Boolean - var - ErrorMessage: Record "Error Message"; - TempErrorMessage: Record "Error Message" temporary; - GovTalkSetup: Record "GovTalk Setup"; - CompanyInformation: Record "Company Information"; - begin - ErrorMessage.SetContext(VATReportHeader); - - ErrorMessage.ClearLogRec(CompanyInformation); - CompanyInformation.Get(); - ErrorMessage.LogIfEmpty(CompanyInformation, CompanyInformation.FieldNo("Country/Region Code"), ErrorMessage."Message Type"::Error); - ErrorMessage.LogIfEmpty(CompanyInformation, CompanyInformation.FieldNo("VAT Registration No."), ErrorMessage."Message Type"::Error); - if VATReportHeader."VAT Report Config. Code" = VATReportHeader."VAT Report Config. Code"::"EC Sales List" then begin - ErrorMessage.LogIfEmpty(CompanyInformation, CompanyInformation.FieldNo("Branch Number"), ErrorMessage."Message Type"::Error); - ErrorMessage.LogIfEmpty(CompanyInformation, CompanyInformation.FieldNo("Post Code"), ErrorMessage."Message Type"::Error); - end; - ErrorMessage.CopyToTemp(TempErrorMessage); - - ErrorMessage.ClearLogRec(GovTalkSetup); - if not GovTalkSetup.FindFirst() then - ErrorMessage.LogSimpleMessage(ErrorMessage."Message Type"::Error, GovTalkSetupMissingErr) - else - if (GovTalkSetup.Username = '') or IsNullGuid(GovTalkSetup.Password) or (GovTalkSetup.Endpoint = '') then - ErrorMessage.LogMessage(GovTalkSetup, GovTalkSetup.FieldNo(Username), ErrorMessage."Message Type"::Warning, GovTalkSetupMissingErr); - ErrorMessage.CopyToTemp(TempErrorMessage); - - exit(not TempErrorMessage.HasErrors(false)); - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/HMRCGovTalkMessageScheduler.Codeunit.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/HMRCGovTalkMessageScheduler.Codeunit.al deleted file mode 100644 index f5ace11800c..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/HMRCGovTalkMessageScheduler.Codeunit.al +++ /dev/null @@ -1,62 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using System; -using System.Threading; -using System.Xml; - -codeunit 10521 "HMRC GovTalk Message Scheduler" -{ - TableNo = "Job Queue Entry"; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - trigger OnRun() - var - VATReportHeader: Record "VAT Report Header"; - RecRef: RecordRef; - begin - if RecRef.Get(Rec."Record ID to Process") then begin - RecRef.SetTable(VATReportHeader); - SendPollMessage(VATReportHeader, Rec."Parameter String"); - end; - end; - - var - GovTalkMessageManagement: Codeunit GovTalkMessageManagement; - GovTalkNameSpaceTxt: Label 'http://www.govtalk.gov.uk/CM/envelope', Locked = true; - XMLDOMManagement: Codeunit "XML DOM Management"; - XMLPartMissingErr: Label 'A section of the XML document is missing.'; - - local procedure SendPollMessage(var VATReportHeader: Record "VAT Report Header"; XMLPartID: Text) - var - GovTalkMessage: Record GovTalkMessage; - GovTalkMessageParts: Record "GovTalk Message Parts"; - GovTalkMessageXMLNode: DotNet XmlNode; - CorrelationXMLNode: DotNet XmlNode; - PartIDGuid: Guid; - begin - GovTalkMessageManagement.CreateGovTalkPollMessage(GovTalkMessageXMLNode, VATReportHeader); - if VATReportHeader."VAT Report Config. Code" = VATReportHeader."VAT Report Config. Code"::"EC Sales List" then begin - if not GovTalkMessageParts.Get(XMLPartID) then - Error(''); - if XMLDOMManagement.FindNodeWithNamespace(GovTalkMessageXMLNode, '//x:CorrelationID', 'x', GovTalkNameSpaceTxt, CorrelationXMLNode) then - CorrelationXMLNode.InnerText := GovTalkMessageParts."Correlation Id" - else - Error(XMLPartMissingErr); - end; - - Evaluate(PartIDGuid, XMLPartID); - if GovTalkMessage.Get(VATReportHeader."VAT Report Config. Code", VATReportHeader."No.") then - if not GovTalkMessageManagement.ProcessGovTalkSubmission( - VATReportHeader, GovTalkMessage.ResponseEndPoint, GovTalkMessageXMLNode, true, true, PartIDGuid) - then - GovTalkMessageManagement.RegisterGovTalkPolling(VATReportHeader, XMLPartID); - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/HMRCSubmissionHelpers.Codeunit.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/HMRCSubmissionHelpers.Codeunit.al deleted file mode 100644 index aee715def06..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/HMRCSubmissionHelpers.Codeunit.al +++ /dev/null @@ -1,69 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using System; - -codeunit 10527 HMRCSubmissionHelpers -{ - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - trigger OnRun() - begin - end; - - [Scope('OnPrem')] - procedure CreateIRMark(XMLDocument: DotNet XmlDocument; GovTalkNameSpace: Text; TaxNameSpace: Text): Text - var - XMLNSMgr: DotNet XmlNamespaceManager; - XMLDummyNode: DotNet XmlNode; - XmlC14NTransform: DotNet XmlDsigC14NTransform; - HashingAlgorithm: DotNet SHA1; - Convert: DotNet Convert; - TempXMLDocument: DotNet XmlDocument; - CRCharacter: Char; - begin - XMLDocument.PreserveWhitespace := true; - XMLNSMgr := XMLNSMgr.XmlNamespaceManager(XMLDocument.NameTable); - XMLNSMgr.AddNamespace('GovTalk', GovTalkNameSpace); - XMLNSMgr.AddNamespace('Tax', TaxNameSpace); - - CRCharacter := 13; - TempXMLDocument := TempXMLDocument.XmlDocument(); - TempXMLDocument.PreserveWhitespace := true; - TempXMLDocument.LoadXml(XMLDocument.OuterXml); - TempXMLDocument.PreserveWhitespace := true; - TempXMLDocument.InnerXml := DelChr(TempXMLDocument.InnerXml, '=', Format(CRCharacter)); - - XMLDummyNode := TempXMLDocument.SelectSingleNode('//GovTalk:Body', XMLNSMgr); - TempXMLDocument.LoadXml(XMLDummyNode.OuterXml); - - XMLDummyNode := TempXMLDocument.SelectSingleNode('//Tax:IRmark', XMLNSMgr); - XMLDummyNode.ParentNode.RemoveChild(XMLDummyNode); - - XmlC14NTransform := XmlC14NTransform.XmlDsigC14NTransform(); - XmlC14NTransform.LoadInput(TempXMLDocument); - - HashingAlgorithm := HashingAlgorithm.Create(); - exit(Convert.ToBase64String(XmlC14NTransform.GetDigestedOutput(HashingAlgorithm))); - end; - - [Scope('OnPrem')] - procedure HashPassword(Password: Text): Text - var - Encoding: DotNet Encoding; - HashingAlgorithm: DotNet MD5; - Convert: DotNet Convert; - begin - Password := LowerCase(Password); - Password := Encoding.UTF8.GetString(Encoding.GetEncoding(0).GetBytes(Password)); - HashingAlgorithm := HashingAlgorithm.Create(); - exit(Convert.ToBase64String(HashingAlgorithm.ComputeHash(Encoding.GetEncoding(0).GetBytes(Password)))); - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/SubmitVATDeclarationRequest.Codeunit.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/SubmitVATDeclarationRequest.Codeunit.al deleted file mode 100644 index d1278db8324..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/SubmitVATDeclarationRequest.Codeunit.al +++ /dev/null @@ -1,90 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using Microsoft.Foundation.Company; -using System; -using System.IO; -using System.Xml; - -codeunit 10522 "Submit VAT Declaration Request" -{ - TableNo = "VAT Report Header"; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to GovTalk app'; - ObsoleteTag = '27.0'; - trigger OnRun() - var - GovTalkMessage: Record GovTalkMessage; - BodyXMLNode: DotNet XmlNode; - GovTalkRequestXMLNode: DotNet XmlNode; - IRMarkXMLNode: DotNet XmlNode; - begin - GovTalkMessage.Get(Rec."VAT Report Config. Code", Rec."No."); - if GovTalkMessageManagement.CreateBlankGovTalkXmlMessage(GovTalkMessageXMLNode, BodyXMLNode, Rec, 'request', 'submit', true) then begin - InsertVATDeclarationRequestIRHeader(GovTalkMessage, BodyXMLNode, GovTalkRequestXMLNode, IRMarkXMLNode); - InsertVATDeclarationRequestDetails(GovTalkMessage, GovTalkRequestXMLNode, IRMarkXMLNode); - if not GovTalkMessageManagement.SubmitGovTalkRequest(Rec, GovTalkMessageXMLNode) then - Error(SubmissionFailedErr); - end; - end; - - var - GovTalkMessageManagement: Codeunit GovTalkMessageManagement; - VATDeclarationNameSpaceTxt: Label 'http://www.govtalk.gov.uk/taxation/vat/vatdeclaration/2', Locked = true; - XMLDOMManagement: Codeunit "XML DOM Management"; - GovTalkMessageXMLNode: DotNet XmlNode; - GovTalkNameSpaceTxt: Label 'http://www.govtalk.gov.uk/CM/envelope', Locked = true; - SubmissionFailedErr: Label 'Could not submit the report to the GovTalk service. This might be because the URL to the service is incorrect, or the service is unavailable right now.'; - - local procedure InsertVATDeclarationRequestIRHeader(GovTalkMessage: Record GovTalkMessage; var BodyXMLNode: DotNet XmlNode; var GovTalkRequestXMLNode: DotNet XmlNode; var IRmarkXMLNode: DotNet XmlNode) - var - CompanyInformation: Record "Company Information"; - IREnvelopeXMLNode: DotNet XmlNode; - IRHeaderXMLNode: DotNet XmlNode; - KeysXMLNode: DotNet XmlNode; - VATRegNoXMLNode: DotNet XmlNode; - DummyXMLNode: DotNet XmlNode; - begin - CompanyInformation.FindFirst(); - XMLDOMManagement.AddElementWithPrefix(BodyXMLNode, 'IRenvelope', '', 'vat', VATDeclarationNameSpaceTxt, IREnvelopeXMLNode); - XMLDOMManagement.AddElementWithPrefix(IREnvelopeXMLNode, 'IRheader', '', 'vat', VATDeclarationNameSpaceTxt, IRHeaderXMLNode); - XMLDOMManagement.AddElementWithPrefix(IRHeaderXMLNode, 'Keys', '', 'vat', VATDeclarationNameSpaceTxt, KeysXMLNode); - XMLDOMManagement.AddElementWithPrefix(KeysXMLNode, 'Key', - GovTalkMessageManagement.FormatVATRegNo(CompanyInformation."Country/Region Code", CompanyInformation."VAT Registration No."), - 'vat', VATDeclarationNameSpaceTxt, VATRegNoXMLNode); - XMLDOMManagement.AddAttribute(VATRegNoXMLNode, 'Type', 'VATRegNo'); - XMLDOMManagement.AddElementWithPrefix(IRHeaderXMLNode, 'PeriodID', GovTalkMessage.PeriodID, 'vat', VATDeclarationNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElementWithPrefix(IRHeaderXMLNode, 'PeriodStart', - Format(GovTalkMessage.PeriodStart, 0, 9), 'vat', VATDeclarationNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElementWithPrefix(IRHeaderXMLNode, 'PeriodEnd', - Format(GovTalkMessage.PeriodEnd, 0, 9), 'vat', VATDeclarationNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElementWithPrefix(IRHeaderXMLNode, 'IRmark', '', 'vat', VATDeclarationNameSpaceTxt, IRmarkXMLNode); - XMLDOMManagement.AddAttribute(IRmarkXMLNode, 'Type', 'generic'); - XMLDOMManagement.AddElementWithPrefix(IRHeaderXMLNode, 'Sender', 'Individual', 'vat', VATDeclarationNameSpaceTxt, DummyXMLNode); - XMLDOMManagement.AddElementWithPrefix(IREnvelopeXMLNode, 'VATDeclarationRequest', '', 'vat', VATDeclarationNameSpaceTxt, GovTalkRequestXMLNode); - end; - - local procedure InsertVATDeclarationRequestDetails(GovTalkMessage: Record GovTalkMessage; var GovTalkRequestXMLNode: DotNet XmlNode; var IRmarkXMLNode: DotNet XmlNode) - var - ChildXMLBuffer: Record "XML Buffer"; - HMRCSubmissionHelpers: Codeunit HMRCSubmissionHelpers; - DummyXMLNode: DotNet XmlNode; - XmlDoc: DotNet XmlDocument; - begin - ChildXMLBuffer.SetRange("Parent Entry No.", GovTalkMessage.RootXMLBuffer); - if ChildXMLBuffer.FindSet() then - repeat - XMLDOMManagement.AddElementWithPrefix(GovTalkRequestXMLNode, - ChildXMLBuffer.Name, ChildXMLBuffer.Value, 'vat', VATDeclarationNameSpaceTxt, DummyXMLNode); - until ChildXMLBuffer.Next() = 0; - XmlDoc := GovTalkMessageXMLNode.ParentNode; - XmlDoc.PreserveWhitespace := true; - IRmarkXMLNode.InnerText := HMRCSubmissionHelpers.CreateIRMark(XmlDoc, GovTalkNameSpaceTxt, VATDeclarationNameSpaceTxt); - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Reporting/ReverseChargeSalesList.Report.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Reporting/ReverseChargeSalesList.Report.al deleted file mode 100644 index b9a17766b52..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Reporting/ReverseChargeSalesList.Report.al +++ /dev/null @@ -1,515 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using Microsoft.Finance.GeneralLedger.Setup; -using Microsoft.Finance.VAT.Ledger; -using Microsoft.Foundation.Address; -using Microsoft.Foundation.Company; -using Microsoft.Foundation.Period; -using Microsoft.Sales.Setup; -using System.IO; -using System.Utilities; - -report 10529 "Reverse Charge Sales List" -{ - DefaultLayout = RDLC; - RDLCLayout = './Local/FinancialMgt/VAT/Reporting/ReverseChargeSalesList.rdlc'; - Caption = 'Reverse Charge Sales List'; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to Reverse Charge VAT GB app'; - ObsoleteTag = '27.0'; - - dataset - { - dataitem("Country/Region"; "Country/Region") - { - DataItemTableView = sorting("EU Country/Region Code") order(ascending) where("EU Country/Region Code" = filter(<> '')); - column(CompanyAddr_1_; CompanyAddr[1]) - { - } - column(CompanyAddr_2_; CompanyAddr[2]) - { - } - column(CompanyAddr_3_; CompanyAddr[3]) - { - } - column(CompanyAddr_4_; CompanyAddr[4]) - { - } - column(CompanyAddr_5_; CompanyAddr[5]) - { - } - column(CompanyAddr_6_; CompanyAddr[6]) - { - } - column(CompanyInfo__Phone_No__; CompanyInfo."Phone No.") - { - } - column(CompanyInfo__Fax_No__; CompanyInfo."Fax No.") - { - } - column(CompanyInfo__VAT_Registration_No__; CompanyInfo."VAT Registration No.") - { - } - column(VATEntryFilter; VATEntryFilter) - { - } - column(STRSUBSTNO_Text001; StrSubstNo(Text001)) - { - } - column(STRSUBSTNO_Text000_GLSetup__LCY_Code__; StrSubstNo(Text000, GLSetup."LCY Code")) - { - } - column(VAT_Entry__TABLECAPTION__________VATEntryFilter; "VAT Entry".TableCaption + ': ' + VATEntryFilter) - { - } - column(STRSUBSTNO___1__2__Header_1_1__Header_1_2__; StrSubstNo('%1 %2', Header[1, 1], Header[1, 2])) - { - } - column(STRSUBSTNO___1__2__Header_2_1__Header_2_2__; StrSubstNo('%1 %2', Header[2, 1], Header[2, 2])) - { - } - column(STRSUBSTNO___1__2__Header_3_1__Header_3_2__; StrSubstNo('%1 %2', Header[3, 1], Header[3, 2])) - { - } - column(STRSUBSTNO___1__2__Header_4_1__Header_4_2__; StrSubstNo('%1 %2', Header[4, 1], Header[4, 2])) - { - } - column(STRSUBSTNO___1__2__Header_5_1__Header_5_2__; StrSubstNo('%1 %2', Header[5, 1], Header[5, 2])) - { - } - column(STRSUBSTNO___1__2__Header_6_1__Header_6_2__; StrSubstNo('%1 %2', Header[6, 1], Header[6, 2])) - { - } - column(STRSUBSTNO___1__2__Header_7_1__Header_7_2__; StrSubstNo('%1 %2', Header[7, 1], Header[7, 2])) - { - } - column(STRSUBSTNO___1__2__Header_8_1__Header_8_2__; StrSubstNo('%1 %2', Header[8, 1], Header[8, 2])) - { - } - column(STRSUBSTNO___1__2__Header_9_1__Header_9_2__; StrSubstNo('%1 %2', Header[9, 1], Header[9, 2])) - { - } - column(STRSUBSTNO___1__2__Header_10_1__Header_10_2__; StrSubstNo('%1 %2', Header[10, 1], Header[10, 2])) - { - } - column(STRSUBSTNO___1__2__Header_11_1__Header_11_2__; StrSubstNo('%1 %2', Header[11, 1], Header[11, 2])) - { - } - column(STRSUBSTNO___1__2__Header_12_1__Header_12_2__; StrSubstNo('%1 %2', Header[12, 1], Header[12, 2])) - { - } - column(TotalColumnValuesAsText_1_; TotalColumnValuesAsText[1]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_2_; TotalColumnValuesAsText[2]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_3_; TotalColumnValuesAsText[3]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_4_; TotalColumnValuesAsText[4]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_5_; TotalColumnValuesAsText[5]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_6_; TotalColumnValuesAsText[6]) - { - } - column(TotalColumnValuesAsText_7_; TotalColumnValuesAsText[7]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_8_; TotalColumnValuesAsText[8]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_9_; TotalColumnValuesAsText[9]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_10_; TotalColumnValuesAsText[10]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_11_; TotalColumnValuesAsText[11]) - { - AutoCalcField = false; - } - column(TotalColumnValuesAsText_12_; TotalColumnValuesAsText[12]) - { - AutoCalcField = false; - } - column(LineCountCurrentPage; LineCountCurrentPage) - { - } - column(LineCountAllPages; LineCountAllPages) - { - } - column(Country_Region_Code; Code) - { - } - column(Reverse_Charge_Sales_ListCaption; Reverse_Charge_Sales_ListCaptionLbl) - { - } - column(CompanyInfo__Phone_No__Caption; CompanyInfo__Phone_No__CaptionLbl) - { - } - column(CompanyInfo__Fax_No__Caption; CompanyInfo__Fax_No__CaptionLbl) - { - } - column(CompanyInfo__VAT_Registration_No__Caption; CompanyInfo__VAT_Registration_No__CaptionLbl) - { - } - column(Total_Value_of_SuppliesCaption; Total_Value_of_SuppliesCaptionLbl) - { - } - column(VAT_Registration_NoCaption; VAT_Registration_NoCaptionLbl) - { - } - column(EU_Country_Region_CodeCaption; EU_Country_Region_CodeCaptionLbl) - { - } - column(Number_of_lines__This_page_Caption; Number_of_lines__This_page_CaptionLbl) - { - } - column(Number_of_lines__All_pages_Caption; Number_of_lines__All_pages_CaptionLbl) - { - } - dataitem("VAT Entry"; "VAT Entry") - { - DataItemLink = "Country/Region Code" = field(Code); - DataItemTableView = sorting(Type, "Country/Region Code", "VAT Registration No.", "VAT Bus. Posting Group", "VAT Prod. Posting Group", "Posting Date") where(Type = const(Sale), "Country/Region Code" = filter(<> '')); - RequestFilterFields = "VAT Bus. Posting Group", "VAT Prod. Posting Group", "Posting Date"; - column(VAT_Entry__VAT_Registration_No__; "VAT Registration No.") - { - } - column(Country_Region___EU_Country_Region_Code_; "Country/Region"."EU Country/Region Code") - { - } - column(ColumnValuesAsText_1_; ColumnValuesAsText[1]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_4_; ColumnValuesAsText[4]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_3_; ColumnValuesAsText[3]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_2_; ColumnValuesAsText[2]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_10_; ColumnValuesAsText[10]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_9_; ColumnValuesAsText[9]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_8_; ColumnValuesAsText[8]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_7_; ColumnValuesAsText[7]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_6_; ColumnValuesAsText[6]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_5_; ColumnValuesAsText[5]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_11_; ColumnValuesAsText[11]) - { - AutoCalcField = false; - } - column(ColumnValuesAsText_12_; ColumnValuesAsText[12]) - { - AutoCalcField = false; - } - column(VATBase; VATBase) - { - } - column(LineCountCurrentPage_Control46; LineCountCurrentPage) - { - } - column(VAT_Entry_Entry_No_; "Entry No.") - { - } - column(VAT_Entry_Country_Region_Code; "Country/Region Code") - { - } - column(Number_of_lines__This_page_Caption_Control12; Number_of_lines__This_page_Caption_Control12Lbl) - { - } - - trigger OnAfterGetRecord() - begin - if VATRegistrationNo <> "VAT Registration No." then begin - VATRegistrationNo := "VAT Registration No."; - Clear(ColumnValuesAsText); - - VATEntry2 := "VAT Entry"; - for i := 1 to MaxCount do begin - VATEntry2.SetCurrentKey(Type, "Country/Region Code"); - VATEntry2.SetRange("VAT Bus. Posting Group", "VAT Bus. Posting Group"); - VATEntry2.SetRange("Posting Date", StartDate[i], EndDate[i]); - VATEntry2.SetRange("VAT Registration No.", "VAT Registration No."); - VATEntry2.CalcSums(Base); - ColumnValues[i] := VATEntry2.Base; - ColumnValuesAsText[i] := FormatAmt(VATEntry2.Base); - VATBase := VATBase + VATEntry2.Base; - TotalColumnValues[i] := TotalColumnValues[i] + VATEntry2.Base; - TotalColumnValuesAsText[i] := FormatAmt(TotalColumnValues[i]); - end; - - if ExportSubmissionFile and (VATBase <> 0) then - CreateSubmissionLine(); - if VATBase <> 0 then - IncrLineCount(); - end; - end; - - trigger OnPreDataItem() - begin - SalesSetup.Get(); -#if not CLEAN27 - "VAT Entry".SetRange("VAT Bus. Posting Group", SalesSetup."Reverse Charge VAT Posting Gr."); -#endif - end; - } - - trigger OnPreDataItem() - begin - CompanyInfo.Get(); - FormatAddr.Company(CompanyAddr, CompanyInfo); - Clear(VATBase); - end; - } - } - - requestpage - { - SaveValues = true; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(ExportSubmissionFile; ExportSubmissionFile) - { - ApplicationArea = Basic, Suite; - Caption = 'Create Submission File'; - ToolTip = 'Specifies that you wish to create a Comma Separated Variable (CSV) file of the Reverse Charge Sales List for submission.'; - } - field(CalendarSource; CalendarSource) - { - ApplicationArea = Basic, Suite; - Caption = 'Calendar Source'; - ToolTip = 'Specifies the type of calendar that you want to use when viewing work center information. If System Calendar is selected, the system calendar will be used. If Acc. Period Calendar is selected, the accounting calendar will be used.'; - } - } - } - } - - actions - { - } - } - - labels - { - } - - trigger OnPostReport() - begin - if ExportSubmissionFile then - SaveFile(); - end; - - trigger OnPreReport() - begin - CompanyInfo.Get(); - FormatAddr.Company(CompanyAddr, CompanyInfo); - - VATEntryFilter := "VAT Entry".GetFilters(); - PeriodStart := "VAT Entry".GetRangeMin("Posting Date"); - - if CalendarSource = CalendarSource::AccPeriod then begin - StartDate[1] := PeriodStart; - EndDate[1] := AccPeriodEndDate(StartDate[1]); - Header[1, 1] := Format(StartDate[1]); - Header[1, 2] := Format(EndDate[1]); - AccountingPeriod.SetRange("Starting Date", PeriodStart, "VAT Entry".GetRangeMax("Posting Date")); - MaxCount := AccountingPeriod.Count(); - if MaxCount > 12 then - MaxCount := 12; - AccountingPeriod.FindSet(); - for i := 2 to MaxCount do begin - AccountingPeriod.Next(); - StartDate[i] := AccountingPeriod."Starting Date"; - EndDate[i] := AccPeriodEndDate(StartDate[i]); - Header[i, 1] := Format(StartDate[i]); - Header[i, 2] := Format(EndDate[i]); - end; - end else begin - StartDate[1] := PeriodStart; - EndDate[1] := ClosingDate(CalcDate('', PeriodStart)); - Header[1, 1] := Format(StartDate[1]); - Header[1, 2] := Format(EndDate[1]); - Calendar.SetRange("Period Type", Calendar."Period Type"::Month); - Calendar.SetRange("Period Start", PeriodStart, "VAT Entry".GetRangeMax("Posting Date")); - MaxCount := Calendar.Count(); - if MaxCount > 12 then - MaxCount := 12; - Calendar.FindSet(); - for i := 2 to MaxCount do begin - Calendar.Next(); - StartDate[i] := Calendar."Period Start"; - EndDate[i] := Calendar."Period End"; - Header[i, 1] := Format(StartDate[i]); - Header[i, 2] := Format(EndDate[i]); - end; - end; - GLSetup.Get(); - - if ExportSubmissionFile then - CreateSubmissionFile(); - end; - - var - GLSetup: Record "General Ledger Setup"; - CompanyInfo: Record "Company Information"; - SalesSetup: Record "Sales & Receivables Setup"; - AccountingPeriod: Record "Accounting Period"; - VATEntry2: Record "VAT Entry"; - Calendar: Record Date; - FormatAddr: Codeunit "Format Address"; - SubmissionFile: File; - VATEntryFilter: Text; - CompanyAddr: array[8] of Text; - VATBase: Decimal; - Text000: Label 'All amounts are in whole %1.'; - LineCountCurrentPage: Integer; - LineCountAllPages: Integer; - Text001: Label 'Page %1'; - SubmissionFilePath: Text; - ExportSubmissionFile: Boolean; - Text1041000: Label 'TXT Files (*.txt)|*.csv|All Files (*.*)|*.*'; - PeriodStart: Date; - StartDate: array[20] of Date; - EndDate: array[20] of Date; - ColumnValues: array[13] of Decimal; - ColumnValuesAsText: array[13] of Text; - Header: array[13, 2] of Text; - MaxCount: Integer; - i: Integer; - TotalColumnValues: array[13] of Decimal; - TotalColumnValuesAsText: array[13] of Text; - LineText: Text; - Text1041001: Label 'Export to csv File'; - Text1041002: Label 'Submission file successfully created.'; - CalendarSource: Option System,AccPeriod; - VATRegistrationNo: Text; - ToFile: Text; - Text1041003: Label 'Default'; - Reverse_Charge_Sales_ListCaptionLbl: Label 'Reverse Charge Sales List'; - CompanyInfo__Phone_No__CaptionLbl: Label 'Phone No.'; - CompanyInfo__Fax_No__CaptionLbl: Label 'Fax No.'; - CompanyInfo__VAT_Registration_No__CaptionLbl: Label 'VAT Reg. No.'; - Total_Value_of_SuppliesCaptionLbl: Label 'Total Value\of Supplies'; - VAT_Registration_NoCaptionLbl: Label 'VAT Registration No'; - EU_Country_Region_CodeCaptionLbl: Label 'EU Country/Region Code'; - Number_of_lines__This_page_CaptionLbl: Label 'Number of lines (This page)'; - Number_of_lines__All_pages_CaptionLbl: Label 'Number of lines (All pages)'; - Number_of_lines__This_page_Caption_Control12Lbl: Label 'Number of lines (This page)'; - - local procedure FormatAmt(AmountToPrint: Decimal): Text - var - TextAmt: Text; - begin - TextAmt := Format(Round(-AmountToPrint, 1), 0, ''); - if AmountToPrint > 0 then - TextAmt := '(' + TextAmt + ')'; - exit(TextAmt); - end; - - [Scope('OnPrem')] - procedure IncrLineCount() - begin - LineCountCurrentPage := LineCountCurrentPage + 1; - LineCountAllPages := LineCountAllPages + 1; - end; - - [Scope('OnPrem')] - procedure CreateSubmissionFile() - var - RBMgt: Codeunit "File Management"; - begin - SubmissionFilePath := RBMgt.ServerTempFileName('csv'); - SubmissionFile.TextMode(true); - SubmissionFile.WriteMode(true); - SubmissionFile.Create(SubmissionFilePath); - // SubmissionFile.TEXTMODE(TRUE); - SubmissionFile.Write('HMRC_VAT_RCSL_BULK_SUBMISSION_FILE'); - SubmissionFile.Write(CompanyInfo."VAT Registration No." + ',' + FormatDate(StartDate[1]) + ',' + FormatDate(EndDate[MaxCount])); - end; - - [Scope('OnPrem')] - procedure CreateSubmissionLine() - begin - LineText := "VAT Entry"."VAT Registration No."; - for i := 1 to MaxCount do - LineText := LineText + ',' + Format(-Round(ColumnValues[i], 1), 0, 2); - SubmissionFile.Write(LineText); - end; - - [Scope('OnPrem')] - procedure SaveFile() - begin - SubmissionFile.Close(); - ToFile := Text1041003 + '.csv'; - if not Download(SubmissionFilePath, Text1041001, '', Text1041000, ToFile) then - exit; - Message(Text1041002); - end; - - local procedure AccPeriodEndDate(UseStartDate: Date): Date - var - AccountingPeriod2: Record "Accounting Period"; - begin - AccountingPeriod2."Starting Date" := UseStartDate; - if AccountingPeriod2.Find('>') then - exit(AccountingPeriod2."Starting Date" - 1); - exit(DMY2Date(31, 12, 9999)); - end; - - [Scope('OnPrem')] - procedure FormatDate(dat: Date): Text - begin - exit(Format(dat, 0, '')); - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Reporting/ReverseChargeSalesList.rdlc b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Reporting/ReverseChargeSalesList.rdlc deleted file mode 100644 index 96a2a878223..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Reporting/ReverseChargeSalesList.rdlc +++ /dev/null @@ -1,2682 +0,0 @@ - - - 0 - - - - SQL - - - None - 3c5eb5ef-2e5e-4d65-b749-53acc739d004 - - - - - - - - - - - 9.82682in - - - - - 6.00136cm - - - - - - - - - - 1.5cm - - - 3.3cm - - - 1.2cm - - - 0.45cm - - - 1.65cm - - - 1.65cm - - - 1.65cm - - - 1.65cm - - - 1.65cm - - - 1.65cm - - - 1.65cm - - - 1.65cm - - - 1.65cm - - - 1.65cm - - - 1.65cm - - - - - 0.03125in - - - - - true - - - - - =Fields!CompanyAddr_1_.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyAddr_2_.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyAddr_3_.Value - - - - - - - true - - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO_Text000_GLSetup__LCY_Code__.Value) - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyAddr_4_.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyAddr_5_.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyAddr_6_.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyInfo__Phone_No__.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyInfo__Fax_No__.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyInfo__VAT_Registration_No__.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!Reverse_Charge_Sales_ListCaption.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyInfo__Phone_No__Caption.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyInfo__Fax_No__Caption.Value - - - - - - - true - - - - - - - - - true - - - - - =Fields!CompanyInfo__VAT_Registration_No__Caption.Value - - - - - - - true - - - - - - - - - true - - - - - =Cstr(Choose(1,Split(Cstr(Fields!STRSUBSTNO_Text001.Value),"%"))) - - - - - - - true - - - - - - - - - 1.692cm - - - - - true - - - - - =Code.RemoveSeperator(First(Fields!EU_Country_Region_CodeCaption.Value),"/") - - - - - - 13 - - - - - - - - true - - - - - =First(Fields!VAT_Registration_NoCaption.Value) - - - - - - 14 - - - - - - - - true - - - - - =Code.RemoveSeperator(First(Fields!Total_Value_of_SuppliesCaption.Value),"\") - - - - - - - 15 - - - 3 - - - - - - - - true - - - - - - - - 10 - - - - - - - - - - - - - - - 1.269cm - - - - - true - - - - - - - - - textbox3 - - - 2 - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_1_1__Header_1_2__.Value) - - - - - - - 12 - - - 2 - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_2_1__Header_2_2__.Value) - - - - - - - 11 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_3_1__Header_3_2__.Value) - - - - - - - 10 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_4_1__Header_4_2__.Value) - - - - - - - 9 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_5_1__Header_5_2__.Value) - - - - - - - 8 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_6_1__Header_6_2__.Value) - - - - - - - 7 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_7_1__Header_7_2__.Value) - - - - - - - 6 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_8_1__Header_8_2__.Value) - - - - - - - 5 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_9_1__Header_9_2__.Value) - - - - - - - 4 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_10_1__Header_10_2__.Value) - - - - - - - 3 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_11_1__Header_11_2__.Value) - - - - - - - 2 - - - - - - - - true - - - - - =First(Fields!STRSUBSTNO___1__2__Header_12_1__Header_12_2__.Value) - - - - - - - 1 - - - - - - - - 0.423cm - - - - - true - - - - - =(Fields!Country_Region___EU_Country_Region_Code_.Value) - - - - - - - - - - - - - true - - - - - =(Fields!VAT_Entry__VAT_Registration_No__.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_1_.Value) - - - - - - - - - 2 - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_2_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_3_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_4_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_5_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_6_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_7_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_8_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_9_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_10_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_11_.Value) - - - - - - - - - - - - - - true - true - - - - - =(Fields!ColumnValuesAsText_12_.Value) - - - - - - - - - - - - - - 1.692cm - - - - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_3_.Value) - - - - - - - 3.1854in - 0.33135in - 0.65156in - 13 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_1_.Value) - - - - - - - 1.8842in - 0.33135in - 0.65427in - 12 - - - - true - - - - - =First(Fields!Number_of_lines__All_pages_Caption.Value) - - - - - - 0.33311in - 2.3625in - 11 - - - - true - - - - - =Last(Fields!LineCountAllPages.Value) - - - - - - 0.33311in - 2.36293in - 0.82479in - 10 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_2_.Value) - - - - - - - 2.54001in - 0.33135in - 0.64771in - 9 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_4_.Value) - - - - - - - 3.84121in - 0.33135in - 0.645in - 8 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_5_.Value) - - - - - - - 4.4866in - 0.33135in - 0.64885in - 7 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_6_.Value) - - - - - - - 5.13199in - 0.33135in - 0.65271in - 6 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_7_.Value) - - - - - - - 5.7878in - 0.33135in - 0.64615in - 5 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_8_.Value) - - - - - - - 6.43319in - 0.33135in - 0.65in - 4 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_9_.Value) - - - - - - - 7.07859in - 0.33135in - 0.65385in - 3 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_10_.Value) - - - - - - - 7.73439in - 0.33135in - 0.64729in - 2 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_11_.Value) - - - - - - - 8.3902in - 0.33135in - 0.65115in - 1 - - - - true - true - - - - - =Last(Fields!TotalColumnValuesAsText_12_.Value) - - - - - - - 9.04612in - 0.33135in - - - - ContentsOnly - - 15 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - true - - - After - true - true - - - - - =1 - - - - - - - =Fields!VAT_Entry__VAT_Registration_No__.Value - - - - - - =IIF(Last(Fields!VATBase.Value)<>0,false,true) - - Before - true - - - - - Before - true - - - - - - DataSet_Result - 0.33311in - 9.68625in - 1 - - - true - - - - - =First(Fields!VAT_Entry__TABLECAPTION__________VATEntryFilter.Value) - - - - - - 0.33289in - 7.73719in - - =IIF((Fields!VATEntryFilter.Value <> ""), False, True) - - NoOutput - - - - true - - - - - - - - - - - - - - - - - - =1 - - - Output - true - - - - DataSet_Result - - - =IsNothing(Fields!Reverse_Charge_Sales_ListCaption.Value) - Equal - - =False - - - - 9.82682in - - - 6.00136cm - - 25.38cm - - - 6.768cm - true - true - - - true - - - - - =ReportItems!STRSUBSTNO_Text000_GLSetup__LCY_Code__.Value - - - - - - 2.33179in - 3.18937in - 15 - - - - true - true - - - - - =Globals!PageNumber - - - - - - textbox1 - 0.16656in - 0.9cm - 0.16656in - 0.75cm - 14 - - - - - - 0.423cm - 0.423cm - 0.9cm - 13 - - - - true - - - - - =ReportItems!CompanyAddr_1_.Value - - - - - - 1.269cm - 0.423cm - 6.3cm - 12 - - - - true - - - - - =ReportItems!CompanyAddr_2_.Value - - - - - - 1.692cm - 0.423cm - 6.3cm - 11 - - - - true - - - - - =ReportItems!CompanyAddr_3_.Value - - - - - - 2.115cm - 0.423cm - 6.3cm - 10 - - - - true - - - - - =ReportItems!CompanyAddr_4_.Value - - - - - - 2.538cm - 0.423cm - 6.3cm - 9 - - - - true - - - - - =ReportItems!CompanyAddr_5_.Value - - - - - - 2.961cm - 0.423cm - 6.3cm - 8 - - - - true - - - - - =ReportItems!CompanyAddr_6_.Value - - - - - - 3.384cm - 0.423cm - 6.3cm - 7 - - - - true - - - - - =ReportItems!CompanyInfo__Phone_No__.Value - - - - - - 3.807cm - 2.25cm - 0.423cm - 4.2cm - 6 - - - - true - - - - - =ReportItems!CompanyInfo__Fax_No__.Value - - - - - - 4.23cm - 2.25cm - 0.423cm - 4.2cm - 5 - - - - true - - - - - =ReportItems!CompanyInfo__VAT_Registration_No__.Value - - - - - - 4.653cm - 2.25cm - 0.423cm - 4.2cm - 4 - - - - true - - - - - =ReportItems!Reverse_Charge_Sales_ListCaption.Value - - - - - - 0.423cm - 6.3cm - 3 - - - - true - - - - - =ReportItems!CompanyInfo__Phone_No__Caption.Value - - - - - - 3.807cm - 0.423cm - 2.1cm - 2 - - - - true - - - - - =ReportItems!CompanyInfo__Fax_No__Caption.Value - - - - - - 4.23cm - 0.423cm - 2.1cm - 1 - - - - true - - - - - =ReportItems!CompanyInfo__VAT_Registration_No__Caption.Value - - - - - - 4.653cm - 0.423cm - 2.1cm - - - - - 21cm - 29.7cm - 11in - 8.5in - 1.5cm - 0cm - 2cm - 2cm - - - - 'AG0001 -Public Function RemoveSeperator(ByVal Str As String, ByVal Sptr As String) - Str=Replace(Str,Sptr," ") - Return Str -End Function -'AG0001 - -Public Function BlankZero(ByVal Value As Decimal) - if Value = 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankPos(ByVal Value As Decimal) - if Value > 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankZeroAndPos(ByVal Value As Decimal) - if Value >= 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankNeg(ByVal Value As Decimal) - if Value < 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankNegAndZero(ByVal Value As Decimal) - if Value <= 0 then - Return "" - end if - Return Value -End Function - -Public Shared TagPageNo As Integer -Public Function IncTag() - TagPageNo = TagPageNo +1 - Return TagPageNo -End Function - =User!Language - true - Invalid - d5e13773-ba91-448a-9ae0-c851d1e1fb17 - - - - - CompanyAddr_1_ - - - CompanyAddr_2_ - - - CompanyAddr_3_ - - - CompanyAddr_4_ - - - CompanyAddr_5_ - - - CompanyAddr_6_ - - - CompanyInfo__Phone_No__ - - - CompanyInfo__Fax_No__ - - - CompanyInfo__VAT_Registration_No__ - - - VATEntryFilter - - - STRSUBSTNO_Text001 - - - STRSUBSTNO_Text000_GLSetup__LCY_Code__ - - - VAT_Entry__TABLECAPTION__________VATEntryFilter - - - STRSUBSTNO___1__2__Header_1_1__Header_1_2__ - - - STRSUBSTNO___1__2__Header_2_1__Header_2_2__ - - - STRSUBSTNO___1__2__Header_3_1__Header_3_2__ - - - STRSUBSTNO___1__2__Header_4_1__Header_4_2__ - - - STRSUBSTNO___1__2__Header_5_1__Header_5_2__ - - - STRSUBSTNO___1__2__Header_6_1__Header_6_2__ - - - STRSUBSTNO___1__2__Header_7_1__Header_7_2__ - - - STRSUBSTNO___1__2__Header_8_1__Header_8_2__ - - - STRSUBSTNO___1__2__Header_9_1__Header_9_2__ - - - STRSUBSTNO___1__2__Header_10_1__Header_10_2__ - - - STRSUBSTNO___1__2__Header_11_1__Header_11_2__ - - - STRSUBSTNO___1__2__Header_12_1__Header_12_2__ - - - TotalColumnValuesAsText_1_ - - - TotalColumnValuesAsText_2_ - - - TotalColumnValuesAsText_3_ - - - TotalColumnValuesAsText_4_ - - - TotalColumnValuesAsText_5_ - - - TotalColumnValuesAsText_6_ - - - TotalColumnValuesAsText_7_ - - - TotalColumnValuesAsText_8_ - - - TotalColumnValuesAsText_9_ - - - TotalColumnValuesAsText_10_ - - - TotalColumnValuesAsText_11_ - - - TotalColumnValuesAsText_12_ - - - LineCountCurrentPage - - - LineCountAllPages - - - Country_Region_Code - - - Reverse_Charge_Sales_ListCaption - - - CompanyInfo__Phone_No__Caption - - - CompanyInfo__Fax_No__Caption - - - CompanyInfo__VAT_Registration_No__Caption - - - Total_Value_of_SuppliesCaption - - - VAT_Registration_NoCaption - - - EU_Country_Region_CodeCaption - - - Number_of_lines__This_page_Caption - - - Number_of_lines__All_pages_Caption - - - VAT_Entry__VAT_Registration_No__ - - - Country_Region___EU_Country_Region_Code_ - - - ColumnValuesAsText_1_ - - - ColumnValuesAsText_4_ - - - ColumnValuesAsText_3_ - - - ColumnValuesAsText_2_ - - - ColumnValuesAsText_10_ - - - ColumnValuesAsText_9_ - - - ColumnValuesAsText_8_ - - - ColumnValuesAsText_7_ - - - ColumnValuesAsText_6_ - - - ColumnValuesAsText_5_ - - - ColumnValuesAsText_11_ - - - ColumnValuesAsText_12_ - - - VATBase - - - VATBaseFormat - - - LineCountCurrentPage_Control46 - - - VAT_Entry_Entry_No_ - - - VAT_Entry_Country_Region_Code - - - Number_of_lines__This_page_Caption_Control12 - - - - DataSource - - - - - \ No newline at end of file diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATAudit.Report.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATAudit.Report.al deleted file mode 100644 index 2fa8b7a4576..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATAudit.Report.al +++ /dev/null @@ -1,544 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using Microsoft.Finance.VAT.Ledger; -using Microsoft.Purchases.Vendor; -using Microsoft.Sales.Customer; -using Microsoft.Sales.Receivables; -using System.IO; -using System.Telemetry; - -report 10512 "VAT Audit" -{ - Caption = 'VAT Audit'; - ProcessingOnly = true; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteTag = '27.0'; - - dataset - { - dataitem(Customer; Customer) - { - DataItemTableView = sorting("No."); - - trigger OnAfterGetRecord() - begin - CustomerFile.Write( - StrSubstNo( - SevenDelimitedValuesTxt, - "No.", - Name, - Address, - "Address 2", - City, - County, - "Post Code")); - - Window.Update(1, "No."); - end; - - trigger OnPostDataItem() - begin - if CustomerExport then begin - CustomerFile.Close(); - Download(CustomerFileName, '', 'C:', '', ToFile); - end; - end; - - trigger OnPreDataItem() - begin - if not CustomerExport then - CurrReport.Break(); - CustomerFile.TextMode := true; - CustomerFile.WriteMode := true; - ToFile := CustomerFileName; - CustomerFileName := RBMgt.ServerTempFileName(''); - CustomerFile.Create(CustomerFileName); - CustomerFile.Write( - StrSubstNo( - SevenDelimitedValuesTxt, - FieldCaption("No."), - FieldCaption(Name), - FieldCaption(Address), - FieldCaption("Address 2"), - FieldCaption(City), - FieldCaption(County), - FieldCaption("Post Code"))); - - Window.Open(Text1041000); - end; - } - dataitem(OpenPayments; "Cust. Ledger Entry") - { - CalcFields = "Original Amt. (LCY)"; - DataItemTableView = sorting("Customer No.", Open, Positive) where(Open = const(true), Positive = const(false)); - - trigger OnAfterGetRecord() - begin - OpenPaymentFile.Write( - StrSubstNo( - SevenDelimitedValuesTxt, - "Entry No.", - "Customer No.", - Description, - Format("Document Type"), - "Document No.", - "Posting Date", - "Original Amt. (LCY)")); - - Window.Update(1, "Entry No."); - end; - - trigger OnPostDataItem() - begin - if OpenPaymentExport then begin - OpenPaymentFile.Close(); - Download(OpenPaymentFileName, '', 'C:', '', ToFile); - end; - end; - - trigger OnPreDataItem() - begin - if not OpenPaymentExport then - CurrReport.Break(); - OpenPaymentFile.TextMode := true; - OpenPaymentFile.WriteMode := true; - ToFile := OpenPaymentFileName; - OpenPaymentFileName := RBMgt.ServerTempFileName(''); - - OpenPaymentFile.Create(OpenPaymentFileName); - OpenPaymentFile.Write( - StrSubstNo( - SevenDelimitedValuesTxt, - FieldCaption("Entry No."), - FieldCaption("Customer No."), - FieldCaption(Description), - FieldCaption("Document Type"), - FieldCaption("Document No."), - FieldCaption("Posting Date"), - FieldCaption("Original Amt. (LCY)"))); - - Window.Open(Text1041001); - end; - } - dataitem(LateInvoicing; "Cust. Ledger Entry") - { - CalcFields = "Original Amt. (LCY)"; - DataItemTableView = sorting("Customer No.", Open, Positive) where(Open = const(false), Positive = const(false)); - - trigger OnAfterGetRecord() - var - CustLedgEntry: Record "Cust. Ledger Entry"; - InvPostingDates: Text[250]; - LateInvoice: Boolean; - begin - LateInvoice := false; - InvPostingDates := ''; - CustLedgEntry.Reset(); - CustLedgEntry.SetCurrentKey("Entry No."); - CustLedgEntry.SetRange("Entry No.", "Closed by Entry No."); - if CustLedgEntry.Find('-') then - repeat - if (CustLedgEntry."Posting Date" - "Posting Date") > LateInvoiceDelay then begin - LateInvoice := true; - if StrLen(InvPostingDates) > 1 then - InvPostingDates := InvPostingDates + ';'; - if StrLen(InvPostingDates) < 240 then - InvPostingDates := InvPostingDates + Format(CustLedgEntry."Posting Date"); - end; - until CustLedgEntry.Next() = 0; - CustLedgEntry.Reset(); - CustLedgEntry.SetCurrentKey("Closed by Entry No."); - CustLedgEntry.SetRange("Closed by Entry No.", "Entry No."); - if CustLedgEntry.Find('-') then - repeat - if (CustLedgEntry."Posting Date" - "Posting Date") > LateInvoiceDelay then begin - LateInvoice := true; - if StrLen(InvPostingDates) > 1 then - InvPostingDates := InvPostingDates + ';'; - if StrLen(InvPostingDates) < 240 then - InvPostingDates := InvPostingDates + Format(CustLedgEntry."Posting Date"); - end; - until CustLedgEntry.Next() = 0; - - if not LateInvoice then - CurrReport.Skip(); - - LateInvoicingFile.Write( - StrSubstNo( - EightDelimitedValuesTxt, - "Entry No.", - "Customer No.", - Description, - Format("Document Type"), - "Document No.", - "Posting Date", - InvPostingDates, - "Original Amt. (LCY)")); - - Window.Update(1, "Entry No."); - end; - - trigger OnPostDataItem() - begin - if LateInvoicingExport then begin - LateInvoicingFile.Close(); - Download(LateInvoicingFileName, '', 'C:', '', ToFile); - end; - end; - - trigger OnPreDataItem() - begin - if not LateInvoicingExport then - CurrReport.Break(); - LateInvoicingFile.TextMode := true; - LateInvoicingFile.WriteMode := true; - ToFile := LateInvoicingFileName; - LateInvoicingFileName := RBMgt.ServerTempFileName(''); - - LateInvoicingFile.Create(LateInvoicingFileName); - LateInvoicingFile.Write( - StrSubstNo( - EightDelimitedValuesTxt, - FieldCaption("Entry No."), - FieldCaption("Customer No."), - FieldCaption(Description), - FieldCaption("Document Type"), - FieldCaption("Document No."), - Text1041002 + FieldCaption("Posting Date"), - Text1041003 + FieldCaption("Posting Date"), - FieldCaption("Original Amt. (LCY)"))); - - Window.Open(Text1041004); - end; - } - dataitem(Vendor; Vendor) - { - DataItemTableView = sorting("No."); - - trigger OnAfterGetRecord() - begin - VendorFile.Write( - StrSubstNo( - EightDelimitedValuesTxt, - "No.", - Name, - Address, - "Address 2", - City, - County, - "Post Code")); - - Window.Update(1, "No."); - end; - - trigger OnPostDataItem() - begin - if VendorExport then begin - VendorFile.Close(); - Download(VendorFileName, '', 'C:', '', ToFile); - end; - end; - - trigger OnPreDataItem() - begin - if not VendorExport then - CurrReport.Break(); - VendorFile.TextMode := true; - VendorFile.WriteMode := true; - ToFile := VendorFileName; - VendorFileName := RBMgt.ServerTempFileName(''); - - VendorFile.Create(VendorFileName); - VendorFile.Write( - StrSubstNo( - SevenDelimitedValuesTxt, - FieldCaption("No."), - FieldCaption(Name), - FieldCaption(Address), - FieldCaption("Address 2"), - FieldCaption(City), - FieldCaption(County), - FieldCaption("Post Code"))); - - Window.Open(Text1041005); - end; - } - dataitem("VAT Entry"; "VAT Entry") - { - DataItemTableView = sorting("Document No.", "VAT Reporting Date"); - RequestFilterFields = "VAT Reporting Date", "Posting Date"; - - trigger OnAfterGetRecord() - begin - VATEntryFile.Write( - StrSubstNo( - ElevenDelimitedValuesTxt, - "Posting Date", - "VAT Reporting Date", - "Document No.", - Format("Document Type"), - Base, - Amount, - Format("VAT Calculation Type"), - Format(Type), - "Bill-to/Pay-to No.", - "External Document No.", - "Entry No.")); - - Window.Update(1, "Entry No."); - end; - - trigger OnPostDataItem() - begin - if VATEntryExport then begin - VATEntryFile.Close(); - Download(VATEntryFileName, '', 'C:', '', ToFile); - end; - end; - - trigger OnPreDataItem() - begin - if not VATEntryExport then - CurrReport.Break(); - VATEntryFile.TextMode := true; - VATEntryFile.WriteMode := true; - - ToFile := VATEntryFileName; - VATEntryFileName := RBMgt.ServerTempFileName(''); - - VATEntryFile.Create(VATEntryFileName); - VATEntryFile.Write( - StrSubstNo( - ElevenDelimitedValuesTxt, - FieldCaption("Posting Date"), - FieldCaption("VAT Reporting Date"), - FieldCaption("Document No."), - FieldCaption("Document Type"), - FieldCaption(Base), - FieldCaption(Amount), - FieldCaption("VAT Calculation Type"), - FieldCaption(Type), - FieldCaption("Bill-to/Pay-to No."), - FieldCaption("External Document No."), - FieldCaption("Entry No."))); - - Window.Open(Text1041006); - end; - } - } - - requestpage - { - SaveValues = true; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(CustomerExport; CustomerExport) - { - ApplicationArea = Basic, Suite; - Caption = 'Export Customers'; - ToolTip = 'Specifies that you want to export the Customer table.'; - } - field(CustomerFileNameCtrl; CustomerFileName) - { - ApplicationArea = All; - Caption = 'Customer File'; - ToolTip = 'Specifies the relevant customer data for VAT auditors.'; - Visible = CustomerFileNameCtrlVisible; - } - field(OpenPaymentExport; OpenPaymentExport) - { - ApplicationArea = Basic, Suite; - Caption = 'Export Open Payments'; - ToolTip = 'Specifies that you want to export all customers'' opened credit entries.'; - } - field(OpenPaymentFileNameCtrl; OpenPaymentFileName) - { - ApplicationArea = All; - Caption = 'Open Payments File'; - ToolTip = 'Specifies that you want to export the open credit entries.'; - Visible = OpenPaymentFileNameCtrlVisible; - } - field(LateInvoicingExport; LateInvoicingExport) - { - ApplicationArea = Basic, Suite; - Caption = 'Export Late Invoicing'; - ToolTip = 'Specifies that you want to export all customer entries that were invoiced later than Late Invoice Delay (Days) limit.'; - } - field(LateInvoiceDelay; LateInvoiceDelay) - { - AutoFormatType = 0; - ApplicationArea = Basic, Suite; - Caption = 'Late Invoice Delay (Days)'; - DecimalPlaces = 0 : 0; - MinValue = 0; - ToolTip = 'Specifies the number of days between the invoice issue date and the payment received date. '; - } - field(LateInvoicingFileNameCtrl; LateInvoicingFileName) - { - ApplicationArea = All; - Caption = 'Late Invoicing File'; - ToolTip = 'Specifies customer entries that took longer to invoice than the number of days specified in the Late Invoice Delay (Days) field.'; - Visible = LateInvoicingFileNameCtrlVisib; - } - field(VendorExport; VendorExport) - { - ApplicationArea = Basic, Suite; - Caption = 'Export Vendors'; - ToolTip = 'Specifies that you want to export the Vendor table.'; - } - field(VendorFileNameCtrl; VendorFileName) - { - ApplicationArea = All; - Caption = 'Vendor File'; - ToolTip = 'Specifies the relevant vendor data for VAT auditors.'; - Visible = VendorFileNameCtrlVisible; - } - field(VATEntryExport; VATEntryExport) - { - ApplicationArea = Basic, Suite; - Caption = 'Export VAT Entries'; - ToolTip = 'Specifies that you want to export the VAT Entry table.'; - } - field(VATEntryFileNameCtrl; VATEntryFileName) - { - ApplicationArea = All; - Caption = 'VAT Entry File'; - ToolTip = 'Specifies the relevant VAT entry data for VAT auditors.'; - Visible = VATEntryFileNameCtrlVisible; - } - } - } - } - - actions - { - } - - trigger OnInit() - begin - VATEntryFileNameCtrlVisible := true; - VendorFileNameCtrlVisible := true; - LateInvoicingFileNameCtrlVisib := true; - OpenPaymentFileNameCtrlVisible := true; - CustomerFileNameCtrlVisible := true; - end; - - trigger OnOpenPage() - begin - FeatureTelemetry.LogUptake('0001Q1D', VatTok, Enum::"Feature Uptake Status"::Discovered); - if CustomerFileName = '' then - CustomerFileName := Text1041013; - if OpenPaymentFileName = '' then - OpenPaymentFileName := Text1041014; - if LateInvoicingFileName = '' then - LateInvoicingFileName := Text1041015; - if VendorFileName = '' then - VendorFileName := Text1041016; - if VATEntryFileName = '' then - VATEntryFileName := Text1041017; - if LateInvoiceDelay = 0 then - LateInvoiceDelay := 14; - CustomerFileNameCtrlVisible := false; - OpenPaymentFileNameCtrlVisible := false; - LateInvoicingFileNameCtrlVisib := false; - VendorFileNameCtrlVisible := false; - VATEntryFileNameCtrlVisible := false - end; - } - - labels - { - } - - trigger OnPreReport() - begin - FeatureTelemetry.LogUptake('0001Q1C', VatTok, Enum::"Feature Uptake Status"::"Set up"); - if CustomerExport and (CustomerFileName = '') then - Error(Text1041007); - - if OpenPaymentExport and (OpenPaymentFileName = '') then - Error(Text1041008); - - if LateInvoicingExport then begin - if LateInvoicingFileName = '' then - Error(Text1041009); - if LateInvoiceDelay = 0 then - Error(Text1041010); - end; - - if VendorExport and (VendorFileName = '') then - Error(Text1041011); - - if VATEntryExport and (VATEntryFileName = '') then - Error(Text1041012); - end; - - trigger OnPostReport() - begin - FeatureTelemetry.LogUptake('0001Q1A', VatTok, Enum::"Feature Uptake Status"::"Used"); - FeatureTelemetry.LogUsage('0001Q1B', VatTok, 'UK VAT Audit Report Printed'); - end; - - var - FeatureTelemetry: Codeunit "Feature Telemetry"; - VatTok: Label 'UK Print VAT Audit Reports', Locked = true; - Text1041000: Label 'Exporting Customers...#1##################'; - Text1041001: Label 'Exporting Open Payments...#1##################'; - Text1041002: Label 'Payment '; - Text1041003: Label 'Invoice '; - Text1041004: Label 'Exporting Late Invoicing Entries...#1##################'; - Text1041005: Label 'Exporting Vendors...#1##################'; - Text1041006: Label 'Exporting VAT Entries...#1##################'; - Text1041007: Label 'Please enter the Customer File name.'; - Text1041008: Label 'Please enter the Open Payments File name.'; - Text1041009: Label 'Please enter the Late Invoicing File name.'; - Text1041010: Label 'Please enter the Late Invoicing No. of Days.'; - Text1041011: Label 'Please enter the Vendor File name.'; - Text1041012: Label 'Please enter the VAT Entry File name.'; - Text1041013: Label 'C:\Customer.CSV'; - Text1041014: Label 'C:\OpenPay.CSV'; - Text1041015: Label 'C:\LateInv.CSV'; - Text1041016: Label 'C:\Vendor.CSV'; - Text1041017: Label 'C:\VATentry.CSV'; - RBMgt: Codeunit "File Management"; - Window: Dialog; - CustomerFile: File; - OpenPaymentFile: File; - LateInvoicingFile: File; - VendorFile: File; - VATEntryFile: File; - CustomerFileName: Text[1024]; - OpenPaymentFileName: Text[1024]; - LateInvoicingFileName: Text[1024]; - VendorFileName: Text[1024]; - VATEntryFileName: Text[1024]; - CustomerExport: Boolean; - OpenPaymentExport: Boolean; - LateInvoicingExport: Boolean; - VendorExport: Boolean; - VATEntryExport: Boolean; - LateInvoiceDelay: Decimal; - ToFile: Text[1024]; - CustomerFileNameCtrlVisible: Boolean; - OpenPaymentFileNameCtrlVisible: Boolean; - LateInvoicingFileNameCtrlVisib: Boolean; - VendorFileNameCtrlVisible: Boolean; - VATEntryFileNameCtrlVisible: Boolean; - SevenDelimitedValuesTxt: Label '"%1","%2","%3","%4","%5","%6","%7"', Locked = true; - EightDelimitedValuesTxt: Label '"%1","%2","%3","%4","%5","%6","%7","%8"', Locked = true; - ElevenDelimitedValuesTxt: Label '"%1","%2","%3","%4","%5","%6","%7","%8","%9","%10","%11"', Locked = true; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATEntryExceptionReport.Report.al b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATEntryExceptionReport.Report.al deleted file mode 100644 index ac10eb950ae..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATEntryExceptionReport.Report.al +++ /dev/null @@ -1,362 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Finance.VAT.Reporting; - -using Microsoft.Finance.GeneralLedger.Setup; -using Microsoft.Finance.VAT.Ledger; -using Microsoft.Finance.VAT.Setup; - -report 10511 "VAT Entry Exception Report" -{ - DefaultLayout = RDLC; - RDLCLayout = './Local/FinancialMgt/VAT/VATEntryExceptionReport.rdlc'; - Caption = 'VAT Entry Exception Report'; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to VAT Audit Reports GB app'; - ObsoleteTag = '27.0'; - - dataset - { - dataitem("VAT Entry"; "VAT Entry") - { - DataItemTableView = sorting(Type, Closed, "VAT Bus. Posting Group", "VAT Prod. Posting Group", "VAT Reporting Date"); - RequestFilterFields = "VAT Reporting Date", Type, "VAT Bus. Posting Group", "VAT Prod. Posting Group"; - column(FORMAT_TODAY_0_4_; Format(Today, 0, 4)) - { - } - column(COMPANYNAME; COMPANYPROPERTY.DisplayName()) - { - } - column(USERID; UserId) - { - } - column(VAT_Entry__TABLENAME__________VATEntryFilter; "VAT Entry".TableName + ': ' + VATEntryFilter) - { - } - column(VATEntryFilter; VATEntryFilter) - { - } - column(Manual_Word; Manual_WordLbl) - { - } - column(VAT_Entry_Type; Type) - { - } - column(VAT_Entry__VAT_Reporting_Date_; Format("VAT Reporting Date")) - { - } - column(VAT_Entry__Document_Type_; "Document Type") - { - } - column(VAT_Entry__Document_No__; "Document No.") - { - } - column(VAT_Entry__External_Document_No__; "External Document No.") - { - } - column(VAT_Entry__VAT_Calculation_Type_; "VAT Calculation Type") - { - } - column(VAT_Entry__VAT_Bus__Posting_Group_; "VAT Bus. Posting Group") - { - } - column(VAT_Entry__VAT_Prod__Posting_Group_; "VAT Prod. Posting Group") - { - } - column(VAT_Entry_Base; Base) - { - AutoFormatType = 1; - } - column(VAT_Entry__VAT_Base_Discount___; "VAT Base Discount %") - { - } - column(VAT_Entry_Amount; Amount) - { - AutoFormatType = 1; - } - column(Manual_VAT_Difference; "VAT Difference") - { - } - column(ErrorText; ErrorText) - { - } - column(Total_for___FIELDNAME_Type_______FORMAT_Type_; 'Total for ' + FieldName(Type) + ' ' + Format(Type)) - { - } - column(VAT_Entry_Base_Control50; Base) - { - AutoFormatType = 1; - } - column(VAT_Entry_Amount_Control51; Amount) - { - AutoFormatType = 1; - } - column(VAT_Entry__VAT_Difference_; "VAT Difference") - { - } - column(VAT_Entry_Entry_No_; "Entry No.") - { - } - column(VAT_Entry_Exception_ReportCaption; VAT_Entry_Exception_ReportCaptionLbl) - { - } - column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl) - { - } - column(VAT_Entry__VAT_Reporting_Date_Caption; VAT_Entry__VAT_Reporting_Date_CaptionLbl) - { - } - column(VAT_Entry__Document_Type_Caption; FieldCaption("Document Type")) - { - } - column(VAT_Entry__Document_No__Caption; FieldCaption("Document No.")) - { - } - column(VAT_Entry__External_Document_No__Caption; FieldCaption("External Document No.")) - { - } - column(VAT_Entry__VAT_Calculation_Type_Caption; FieldCaption("VAT Calculation Type")) - { - } - column(VAT_Entry__VAT_Bus__Posting_Group_Caption; FieldCaption("VAT Bus. Posting Group")) - { - } - column(VAT_Entry__VAT_Prod__Posting_Group_Caption; FieldCaption("VAT Prod. Posting Group")) - { - } - column(VAT_Entry_BaseCaption; FieldCaption(Base)) - { - } - column(VAT_Entry__VAT_Base_Discount___Caption; FieldCaption("VAT Base Discount %")) - { - } - column(VAT_Entry_AmountCaption; FieldCaption(Amount)) - { - } - column(Manual_VAT_DifferenceCaption; FieldCaption("VAT Difference")) - { - } - column(VAT_Entry_TypeCaption; FieldCaption(Type)) - { - } - - trigger OnAfterGetRecord() - begin - if "VAT Entry".Type = "VAT Entry".Type::Settlement then - CurrReport.Skip(); - - PrintErrorLine := false; - ErrorText := ''; - if CheckVATBaseDiscount then - if "VAT Base Discount %" > MaxVATBaseDiscount then begin - AddErrorText( - ErrorText, - FieldCaption("VAT Base Discount %") + - ' > ' + Format(MaxVATBaseDiscount)); - PrintErrorLine := true; - end; - - if CheckManualVATDifference then - if Abs("VAT Difference") > MaxManualVATDifference then begin - AddErrorText( - ErrorText, - FieldCaption("VAT Difference") + - ' > ' + Format(MaxManualVATDifference)); - PrintErrorLine := true; - end; - - if not TempVATPostingSetup.Get("VAT Bus. Posting Group", "VAT Prod. Posting Group") then - SetupVATCalculationType := SetupVATCalculationType::Missing - else - SetupVATCalculationType := TempVATPostingSetup."VAT Calculation Type".AsInteger(); - - if CheckVATCalculationTypes then - if "VAT Calculation Type".AsInteger() <> SetupVATCalculationType then begin - AddErrorText( - ErrorText, - Text1041001 + FieldCaption("VAT Calculation Type") + - Text1041002 + Format(SetupVATCalculationType)); - PrintErrorLine := true; - end; - - if CheckVATRate then begin - Base := Base * (1 - "VAT Base Discount %" / 100); - if Base <> 0 then begin - CalculatedVATRate := Amount * 100 / Base; - if - (Abs(CalculatedVATRate - TempVATPostingSetup."VAT %") > MaxVATRateDifference) and - (SetupVATCalculationType <> SetupVATCalculationType::"Reverse Charge VAT") - then begin - AddErrorText( - ErrorText, - TempVATPostingSetup.FieldCaption("VAT %") + Text1041002 + - Format(Round(CalculatedVATRate, 0.00001)) + - Text1041003 + Format(TempVATPostingSetup."VAT %")); - PrintErrorLine := true; - end; - end else - if Amount <> 0 then begin - AddErrorText( - ErrorText, - FieldName(Base) + Text1041004 + - FieldName(Amount) + Text1041005); - PrintErrorLine := true; - end; - end; - - if not PrintErrorLine then - CurrReport.Skip(); - end; - } - } - - requestpage - { - SaveValues = true; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - group("Check:") - { - Caption = 'Check:'; - field(VATBaseDiscount; CheckVATBaseDiscount) - { - ApplicationArea = Basic, Suite; - Caption = 'VAT Base Discount'; - ToolTip = 'Specifies that you want to print the VAT base discount amount over the maximum selected value in the maximum VAT Base Discount field.'; - } - field(ManualVATDifference; CheckManualVATDifference) - { - ApplicationArea = Basic, Suite; - Caption = 'Manual VAT Difference'; - ToolTip = 'Specifies that you want to print the manual VAT difference over the maximum amount in the VAT Difference (LCY) field, by placing a check mark in the check box.'; - } - field(VATCalculationTypes; CheckVATCalculationTypes) - { - ApplicationArea = Basic, Suite; - Caption = 'VAT Calculation Types'; - ToolTip = 'Specifies that you want to check VAT calculation type, by placing a check mark in the check box.'; - } - field(VATRate; CheckVATRate) - { - ApplicationArea = Basic, Suite; - Caption = 'VAT Rate'; - ToolTip = 'Specifies that you want to check the VAT rate for that particular journal line, by placing a check mark in the check box.'; - } - } - group("Maximum:") - { - Caption = 'Maximum:'; - field(MaxVATBaseDiscount; MaxVATBaseDiscount) - { - AutoFormatType = 0; - ApplicationArea = Basic, Suite; - Caption = 'VAT Base Discount %'; - MaxValue = 100; - MinValue = 0; - ToolTip = 'Specifies a percentage discount value that you enter in this field, if you have placed a checkmark in the VAT Base Discount checkbox.'; - } - field(MaxManualVATDifference; MaxManualVATDifference) - { - AutoFormatType = 0; - ApplicationArea = Basic, Suite; - Caption = 'Manual VAT Difference'; - ToolTip = 'Specifies that you want to print the manual VAT difference over the maximum amount in the VAT Difference (LCY) field, by placing a check mark in the check box.'; - } - field(MaxVATRateDifference; MaxVATRateDifference) - { - AutoFormatType = 0; - ApplicationArea = Basic, Suite; - Caption = 'VAT Rate % Difference'; - DecimalPlaces = 1 : 5; - MaxValue = 100; - MinValue = 0; - ToolTip = 'Specifies that you want to check the maximum VAT rate difference, by placing a check mark in the check box.'; - } - } - } - } - } - - actions - { - } - } - - labels - { - } - - trigger OnInitReport() - begin - GLSetup.Get(); - MaxVATBaseDiscount := GLSetup."VAT Tolerance %"; - MaxManualVATDifference := GLSetup."Max. VAT Difference Allowed"; - if MaxVATRateDifference = 0 then - MaxVATRateDifference := 0.1; - end; - - trigger OnPreReport() - begin - VATEntryFilter := "VAT Entry".GetFilters(); - - if - not CheckVATBaseDiscount and - not CheckManualVATDifference and - not CheckVATCalculationTypes and - not CheckVATRate - then - Error(Text1041000); - - if VATPostingSetup.Find('-') then - repeat - TempVATPostingSetup := VATPostingSetup; - TempVATPostingSetup.Insert(); - until VATPostingSetup.Next() = 0; - end; - - var - GLSetup: Record "General Ledger Setup"; - VATPostingSetup: Record "VAT Posting Setup"; - TempVATPostingSetup: Record "VAT Posting Setup" temporary; - VATEntryFilter: Text; - ErrorText: Text; - CheckVATBaseDiscount: Boolean; - CheckManualVATDifference: Boolean; - CheckVATCalculationTypes: Boolean; - CheckVATRate: Boolean; - PrintErrorLine: Boolean; - MaxVATBaseDiscount: Decimal; - MaxManualVATDifference: Decimal; - MaxVATRateDifference: Decimal; - CalculatedVATRate: Decimal; - SetupVATCalculationType: Option "Normal VAT","Reverse Charge VAT","Full VAT",,,Missing; - Text1041000: Label 'No checking selected.'; - Text1041001: Label 'Setup '; - Text1041002: Label ' is '; - Text1041003: Label ' compared to setup '; - Text1041004: Label ' is 0 and '; - Text1041005: Label ' is <> 0'; - Manual_WordLbl: Label 'Manual'; - VAT_Entry_Exception_ReportCaptionLbl: Label 'VAT Entry Exception Report'; - CurrReport_PAGENOCaptionLbl: Label 'Page'; - VAT_Entry__VAT_Reporting_Date_CaptionLbl: Label 'VAT Reporting Date'; - - local procedure AddErrorText(var NewErrorText: Text; ErrorText: Text) - begin - if NewErrorText <> '' then - NewErrorText := NewErrorText + ', ' + ErrorText - else - NewErrorText := ErrorText; - end; -} -#endif - diff --git a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATEntryExceptionReport.rdlc b/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATEntryExceptionReport.rdlc deleted file mode 100644 index 02487ef4e32..00000000000 --- a/src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATEntryExceptionReport.rdlc +++ /dev/null @@ -1,2118 +0,0 @@ - - - 0 - - - - SQL - - - None - 3acf0000-6cdd-4480-8d1e-05ab4b80dad4 - - - - - - - - - - - 6.1cm - - - 6.1cm - - - 6.1cm - - - - - 0.423cm - - - - - true - true - - - - - =First(Fields!VAT_Entry__TABLENAME__________VATEntryFilter.Value) - - - - - - textbox16 - 3 - - - 3 - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - - - - - - - - - - - - - =iif(Fields!VATEntryFilter.Value = "", True, False) - - After - true - - - - =iif(Fields!VATEntryFilter.Value = "",true,false) - - After - true - - - - 0.846cm - 1 - - - - - - 1.5cm - - - 0.45cm - - - 1.65cm - - - 1.65cm - - - 2.1cm - - - 1.65cm - - - 1.65cm - - - 1.95cm - - - 1.95cm - - - 1.95cm - - - 1.8cm - - - - - 0.03125in - - - - - true - - - - - =Fields!COMPANYNAME.Value - - - - - - 30 - - - - - - - - true - - - - - =Fields!VAT_Entry_Exception_ReportCaption.Value - - - - - - 29 - - - - - - - - true - - - - - =Fields!CurrReport_PAGENOCaption.Value - - - - - - 28 - - - - - - - - true - - - - - =Fields!FORMAT_TODAY_0_4_.Value - - - - - - 27 - - - - - - - - true - true - - - - - - - - - - - textbox8 - - - - - - - - true - true - - - - - - - - - - - textbox9 - - - - - - - - true - true - - - - - - - - - - - textbox10 - - - - - - - - true - true - - - - - - - - - - - - textbox11 - - - - - - - - true - true - - - - - - - - - - - - textbox12 - - - - - - - - true - true - - - - - - - - - - - - textbox13 - - - - - - - - true - true - - - - - - - - - - - - textbox14 - - - - - - - - 1.269cm - - - - - true - - - - - =First(Fields!VAT_Entry__VAT_Reporting_Date_Caption.Value) - - - - - - 41 - - - - - - - - true - - - - - =First(Fields!VAT_Entry__Document_Type_Caption.Value) - - - - - - 40 - - - - - - - - true - - - - - =First(Fields!VAT_Entry__Document_No__Caption.Value) - - - - - - 39 - - - - - - - - true - - - - - =First(Fields!VAT_Entry__External_Document_No__Caption.Value) - - - - - - 38 - - - - - - - - true - - - - - =First(Fields!VAT_Entry__VAT_Calculation_Type_Caption.Value) - - - - - - 37 - - - - - - - - true - - - - - =First(Fields!VAT_Entry__VAT_Bus__Posting_Group_Caption.Value) - - - - - - 36 - - - - - - - - true - - - - - =First(Fields!VAT_Entry__VAT_Prod__Posting_Group_Caption.Value) - - - - - - 35 - - - - - - - - true - - - - - =First(Fields!VAT_Entry_BaseCaption.Value) - - - - - - - 34 - - - - - - - - true - - - - - =First(Fields!VAT_Entry__VAT_Base_Discount___Caption.Value) - - - - - - - 33 - - - - - - - - true - - - - - =First(Fields!VAT_Entry_AmountCaption.Value) - - - - - - - 32 - - - - - - - - true - - - - - =First(Fields!Manual_Word.Value +" "+ Fields!Manual_VAT_DifferenceCaption.Value) - - - - - - - 31 - - - - - - - - 0.423cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - =First(Fields!VAT_Entry_TypeCaption.Value) - - - - - - 24 - - - - - - - - true - - - - - - - - - - - textbox42 - 23 - - - 2 - - - - - - - true - - - - - =First(Fields!VAT_Entry_Type.Value) - - - - - - - 22 - - - - - - - - true - - - - - - - - 7 - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!VAT_Entry__VAT_Reporting_Date_.Value - - - - - - - 19 - - - - - - - - true - - - - - =Fields!VAT_Entry__Document_Type_.Value - - - - - - - 18 - - - - - - - - true - - - - - =Fields!VAT_Entry__Document_No__.Value - - - - - - - 17 - - - - - - - - true - - - - - =Fields!VAT_Entry__External_Document_No__.Value - - - - - - - 16 - - - - - - - - true - - - - - =Fields!VAT_Entry__VAT_Calculation_Type_.Value - - - - - - - 15 - - - - - - - - true - - - - - =Fields!VAT_Entry__VAT_Bus__Posting_Group_.Value - - - - - - - 14 - - - - - - - - true - - - - - =Fields!VAT_Entry__VAT_Prod__Posting_Group_.Value - - - - - - - 13 - - - - - - - - true - true - - - - - =Fields!VAT_Entry_Base.Value - - - - - - - 12 - - - - - - - - true - true - - - - - =Fields!VAT_Entry__VAT_Base_Discount___.Value - - - - - - - 11 - - - - - - - - true - true - - - - - =Fields!VAT_Entry_Amount.Value - - - - - - - 10 - - - - - - - - true - true - - - - - =Fields!Manual_VAT_Difference.Value - - - - - - - 9 - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Fields!ErrorText.Value - - - - - - - - 8 - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - =First(Fields!Total_for___FIELDNAME_Type_______FORMAT_Type_.Value) - - - - - - 8 - - - 5 - - - - - - - - - - true - - - - - - - - 2 - - - - - - - true - true - - - - - =Sum(Fields!VAT_Entry_Base.Value) - - - - - - - 6 - - - - - - - - true - - - - - - - - - - - - - true - true - - - - - =Sum(Fields!VAT_Entry_Amount.Value) - - - - - - - 4 - - - - - - - - true - true - - - - - =Sum(Fields!Manual_VAT_Difference.Value) - - - - - - - 3 - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - true - - - After - true - true - - - - - =Fields!VAT_Entry_Type.Value - - - - - After - true - - - After - true - - - After - true - - - - Detail - - - - - - Detail_Collection - Output - true - - - Before - true - - - Before - true - - - - - - DataSet_Result - - - =Fields!VAT_Entry__VAT_Reporting_Date_Caption.Value - GreaterThan - - - - - - 0.84656cm - - - 5.57893cm - - 18.3cm - - - 1.692cm - true - true - - - true - - - - - =Globals!PageNumber - - - - - - - 0.423cm - 17.766cm - 0.423cm - 0.45cm - 5 - - =iif(ReportItems!VAT_Entry_Exception_ReportCaption.Value = "", True, False) - - NoOutput - - - - true - true - - - - - =User!UserID - - - - - - - 0.846cm - 14.966cm - 0.423cm - 3.25cm - 4 - - =iif(ReportItems!VAT_Entry_Exception_ReportCaption.Value = "", True, False) - - NoOutput - - - - true - - - - - =ReportItems!ToDay.Value - - - - - - - 13.08187cm - 0.423cm - 5.13413cm - 3 - - - - true - - - - - =ReportItems!COMPANYNAME.Value - - - - - - 0.423cm - 0.423cm - 7.5cm - 2 - - - - true - - - - - =ReportItems!VAT_Entry_Exception_ReportCaption.Value - - - - - - 0.423cm - 7.5cm - 1 - - - - true - - - - - =ReportItems!CurrReport_PAGENOCaption.Value - - - - - - 0.423cm - 17.016cm - 0.423cm - 0.75cm - - - - - 29.7cm - 21cm - 11in - 8.5in - 1.5cm - 2cm - 2cm - - - - Public Function BlankZero(ByVal Value As Decimal) - if Value = 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankPos(ByVal Value As Decimal) - if Value > 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankZeroAndPos(ByVal Value As Decimal) - if Value >= 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankNeg(ByVal Value As Decimal) - if Value < 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankNegAndZero(ByVal Value As Decimal) - if Value <= 0 then - Return "" - end if - Return Value -End Function - - =User!Language - true - Invalid - a11b2c0a-6c75-4fe7-8f6f-ecfbc49cc06f - - - - - FORMAT_TODAY_0_4_ - - - COMPANYNAME - - - USERID - - - VAT_Entry__TABLENAME__________VATEntryFilter - - - VATEntryFilter - - - Manual_Word - - - VAT_Entry_Type - - - VAT_Entry__Posting_Date_ - - - VAT_Entry__VAT_Reporting_Date_ - - - VAT_Entry__Document_Type_ - - - VAT_Entry__Document_No__ - - - VAT_Entry__External_Document_No__ - - - VAT_Entry__VAT_Calculation_Type_ - - - VAT_Entry__VAT_Bus__Posting_Group_ - - - VAT_Entry__VAT_Prod__Posting_Group_ - - - VAT_Entry_Base - - - VAT_Entry_BaseFormat - - - VAT_Entry__VAT_Base_Discount___ - - - VAT_Entry__VAT_Base_Discount___Format - - - VAT_Entry_Amount - - - VAT_Entry_AmountFormat - - - Manual_VAT_Difference - - - Manual_VAT_DifferenceFormat - - - ErrorText - - - Total_for___FIELDNAME_Type_______FORMAT_Type_ - - - VAT_Entry_Base_Control50 - - - VAT_Entry_Base_Control50Format - - - VAT_Entry_Amount_Control51 - - - VAT_Entry_Amount_Control51Format - - - VAT_Entry__VAT_Difference_ - - - VAT_Entry__VAT_Difference_Format - - - VAT_Entry_Entry_No_ - - - VAT_Entry_Exception_ReportCaption - - - CurrReport_PAGENOCaption - - - VAT_Entry__Posting_Date_Caption - - - VAT_Entry__VAT_Reporting_Date_Caption - - - VAT_Entry__Document_Type_Caption - - - VAT_Entry__Document_No__Caption - - - VAT_Entry__External_Document_No__Caption - - - VAT_Entry__VAT_Calculation_Type_Caption - - - VAT_Entry__VAT_Bus__Posting_Group_Caption - - - VAT_Entry__VAT_Prod__Posting_Group_Caption - - - VAT_Entry_BaseCaption - - - VAT_Entry__VAT_Base_Discount___Caption - - - VAT_Entry_AmountCaption - - - Manual_VAT_DifferenceCaption - - - VAT_Entry_TypeCaption - - - - DataSource - - - - - \ No newline at end of file diff --git a/src/Layers/GB/BaseApp/Local/FixedAsset/Depreciation/FAProjectedValue.Report.al b/src/Layers/GB/BaseApp/Local/FixedAsset/Depreciation/FAProjectedValue.Report.al deleted file mode 100644 index ff004a93c37..00000000000 --- a/src/Layers/GB/BaseApp/Local/FixedAsset/Depreciation/FAProjectedValue.Report.al +++ /dev/null @@ -1,1106 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.FixedAsset.Depreciation; - -using Microsoft.Finance.GeneralLedger.Budget; -using Microsoft.FixedAssets.Depreciation; -using Microsoft.FixedAssets.FixedAsset; -using Microsoft.FixedAssets.Ledger; -using Microsoft.FixedAssets.Setup; -using Microsoft.Foundation.Period; -using System.Utilities; - -report 10560 "FA - Projected Value" -{ - DefaultLayout = RDLC; - RDLCLayout = './Local/FixedAsset/Depreciation/FAProjectedValue.rdlc'; - Caption = 'FA - Projected Value'; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to Reports GB app'; - ObsoleteTag = '27.0'; - - dataset - { - dataitem("Fixed Asset"; "Fixed Asset") - { - DataItemTableView = sorting("No."); - RequestFilterFields = "No.", "FA Class Code", "FA Subclass Code", "Budgeted Asset"; - column(COMPANYNAME; COMPANYPROPERTY.DisplayName()) - { - } - column(FORMAT_TODAY_0_4_; Format(Today, 0, 4)) - { - } - column(USERID; UserId) - { - } - column(DeprBookText; DeprBookText) - { - } - column(Fixed_Asset__TABLECAPTION__________FAFilter; "Fixed Asset".TableCaption + ': ' + FAFilter) - { - } - column(FAFilter; FAFilter) - { - } - column(GroupCodeName; GroupCodeName) - { - } - column(FANo; FANo) - { - } - column(FADescription; FADescription) - { - } - column(GroupHeadLine; GroupHeadLine) - { - } - column(PrintDetails; PrintDetails) - { - } - column(GroupTotalsValue; GroupTotalsValue) - { - } - column(Fixed_Asset__No__; "No.") - { - } - column(Fixed_Asset_Description; Description) - { - } - column(GroupAmounts_1_; GroupAmounts[1]) - { - AutoFormatType = 1; - } - column(DeprText2; DeprText2) - { - } - column(TotalBookValue_1_; TotalBookValue[1]) - { - AutoFormatType = 1; - } - column(Text002__________GroupHeadLine; Text002 + ': ' + GroupHeadLine) - { - } - column(GroupAmounts_2_; GroupAmounts[2]) - { - AutoFormatType = 1; - } - column(Custom1Text; Custom1Text) - { - } - column(GroupAmounts_1____GroupAmounts_2_; GroupAmounts[1] + GroupAmounts[2]) - { - AutoFormatType = 1; - } - column(DeprCustom1Text; DeprCustom1Text) - { - } - column(SalesPriceFieldname; SalesPriceFieldname) - { - } - column(GainLossFieldname; GainLossFieldname) - { - } - column(GroupAmounts_3_; GroupAmounts[3]) - { - AutoFormatType = 1; - } - column(GroupAmounts_4_; GroupAmounts[4]) - { - AutoFormatType = 1; - } - column(ProjectedDisposal; ProjectedDisposal) - { - } - column(Fixed_Asset_FA_Class_Code; "FA Class Code") - { - } - column(Fixed_Asset_FA_Subclass_Code; "FA Subclass Code") - { - } - column(Fixed_Asset_Global_Dimension_1_Code; "Global Dimension 1 Code") - { - } - column(Fixed_Asset_Global_Dimension_2_Code; "Global Dimension 2 Code") - { - } - column(Fixed_Asset_FA_Location_Code; "FA Location Code") - { - } - column(Fixed_Asset_Component_of_Main_Asset; "Component of Main Asset") - { - } - column(Fixed_Asset_FA_Posting_Group; "FA Posting Group") - { - } - column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl) - { - } - column(Fixed_Asset___Projected_ValueCaption; Fixed_Asset___Projected_ValueCaptionLbl) - { - } - column(FA_Ledger_Entry__FA_Posting_Date_Caption; FA_Ledger_Entry__FA_Posting_Date_CaptionLbl) - { - } - column(FA_Ledger_Entry__FA_Posting_Type_Caption; "FA Ledger Entry".FieldCaption("FA Posting Type")) - { - } - column(FA_Ledger_Entry_AmountCaption; "FA Ledger Entry".FieldCaption(Amount)) - { - } - column(BookValueCaption; BookValueCaptionLbl) - { - } - column(FA_Ledger_Entry__No__of_Depreciation_Days_Caption; "FA Ledger Entry".FieldCaption("No. of Depreciation Days")) - { - } - dataitem("FA Ledger Entry"; "FA Ledger Entry") - { - DataItemTableView = sorting("FA No.", "Depreciation Book Code", "FA Posting Date"); - column(FA_Ledger_Entry__FA_Posting_Date_; Format("FA Posting Date")) - { - } - column(FA_Ledger_Entry__FA_Posting_Type_; "FA Posting Type") - { - } - column(FA_Ledger_Entry_Amount; Amount) - { - } - column(FA_Ledger_Entry__FA_No__; "FA No.") - { - } - column(BookValue; BookValue) - { - AutoFormatType = 1; - } - column(FA_Ledger_Entry__No__of_Depreciation_Days_; "No. of Depreciation Days") - { - } - column(IncludePostedFrom; Format(IncludePostedFrom)) - { - } - column(FA_Ledger_Entry_Entry_No_; "Entry No.") - { - } - column(Posted_EntryCaption; Posted_EntryCaptionLbl) - { - } - - trigger OnAfterGetRecord() - begin - if "Part of Book Value" then - BookValue := BookValue + Amount; - if "FA Posting Date" < IncludePostedFrom then - CurrReport.Skip(); - EntryPrinted := true; - end; - - trigger OnPreDataItem() - begin - SetRange("FA No.", "Fixed Asset"."No."); - SetRange("Depreciation Book Code", DeprBookCode); - BookValue := 0; - if (IncludePostedFrom = 0D) or not PrintDetails then - CurrReport.Break(); - end; - } - dataitem(ProjectedDepreciation; "Integer") - { - DataItemTableView = sorting(Number) where(Number = filter(1 .. 1000000)); - column(DeprAmount; DeprAmount) - { - AutoFormatType = 1; - } - column(EntryAmounts_1_____Custom1Amount; EntryAmounts[1] - Custom1Amount) - { - AutoFormatType = 1; - } - column(UntilDate; Format(UntilDate)) - { - } - column(DeprText; DeprText) - { - } - column(NumberOfDays; NumberOfDays) - { - } - column(Fixed_Asset___No__; "Fixed Asset"."No.") - { - } - column(Fixed_Asset___No___Control29; "Fixed Asset"."No.") - { - } - column(UntilDate_Control30; Format(UntilDate)) - { - } - column(Custom1Text_Control31; Custom1Text) - { - } - column(Custom1NumberOfDays; Custom1NumberOfDays) - { - } - column(Custom1Amount; Custom1Amount) - { - AutoFormatType = 1; - } - column(EntryAmounts_1_; EntryAmounts[1]) - { - AutoFormatType = 1; - } - column(DeprBook__Use_Custom_1_Depr_; DeprBook."Use Custom 1 Depreciation") - { - } - column(ProjectedDepreciation_Number; Number) - { - } - column(AssetAmounts_1_; AssetAmounts[1]) - { - AutoFormatType = 1; - } - column(Fixed_Asset___No___Control42; "Fixed Asset"."No.") - { - } - column(Fixed_Asset__Description; "Fixed Asset".Description) - { - } - column(DeprText2_Control51; DeprText2) - { - } - column(EntryAmounts_1__Control50; EntryAmounts[1]) - { - AutoFormatType = 1; - } - column(Custom1Text_Control22; Custom1Text) - { - } - column(AssetAmounts_2_; AssetAmounts[2]) - { - AutoFormatType = 1; - } - column(AssetAmounts_1____AssetAmounts_2_; AssetAmounts[1] + AssetAmounts[2]) - { - AutoFormatType = 1; - } - column(DeprCustom1Text_Control57; DeprCustom1Text) - { - } - column(AssetAmounts_3_; AssetAmounts[3]) - { - AutoFormatType = 1; - } - column(AssetAmounts_4_; AssetAmounts[4]) - { - AutoFormatType = 1; - } - column(SalesPriceFieldname_Control81; SalesPriceFieldname) - { - } - column(GainLossFieldname_Control82; GainLossFieldname) - { - } - column(DoProjectedDisposal; DoProjectedDisposal) - { - } - - trigger OnAfterGetRecord() - begin - if UntilDate >= EndingDate then - CurrReport.Break() - ; - if Number = 1 then begin - CalculateFirstDeprAmount(Done); - if FADeprBook."Book Value" <> 0 then - Done := Done or not EntryPrinted; - end else - CalculateSecondDeprAmount(Done); - if Done then - UpdateTotals() - else - CurrReport.Break(); - - if DoProjectedDisposal then - CalculateGainLoss(); - end; - } - - trigger OnAfterGetRecord() - begin - if not FADeprBook.Get("No.", DeprBookCode) then - CurrReport.Skip(); - if SkipRecord() then - CurrReport.Skip(); - - if GroupTotals = GroupTotals::"FA Posting Group" then - if "FA Posting Group" <> FADeprBook."FA Posting Group" then - Error(Text004, FieldCaption("FA Posting Group"), "No."); - - StartingDate := StartingDate2; - EndingDate := EndingDate2; - DoProjectedDisposal := false; - EntryPrinted := false; - if ProjectedDisposal and - (FADeprBook."Projected Disposal Date" > 0D) and - (FADeprBook."Projected Disposal Date" <= EndingDate) - then begin - EndingDate := FADeprBook."Projected Disposal Date"; - if StartingDate > EndingDate then - StartingDate := EndingDate; - DoProjectedDisposal := true; - end; - - MakeGroupHeadLine(); - if GroupHeadLine <> GroupHeadLineOld then - InitGroupTotals(); - - GroupHeadLineOld := GroupHeadLine; - TransferValues(); - GroupTotalsValue := GroupTotals; - end; - - trigger OnPreDataItem() - begin - case GroupTotals of - GroupTotals::"FA Class": - SetCurrentKey("FA Class Code"); - GroupTotals::"FA Subclass": - SetCurrentKey("FA Subclass Code"); - GroupTotals::"FA Location": - SetCurrentKey("FA Location Code"); - GroupTotals::"Main Asset": - SetCurrentKey("Component of Main Asset"); - GroupTotals::"Global Dimension 1": - SetCurrentKey("Global Dimension 1 Code"); - GroupTotals::"Global Dimension 2": - SetCurrentKey("Global Dimension 2 Code"); - GroupTotals::"FA Posting Group": - SetCurrentKey("FA Posting Group"); - end; - end; - } - dataitem(ProjectionTotal; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - column(TotalBookValue_2_; TotalBookValue[2]) - { - AutoFormatType = 1; - } - column(TotalAmounts_1_; TotalAmounts[1]) - { - AutoFormatType = 1; - } - column(DeprText2_Control49; DeprText2) - { - } - column(ProjectionTotal_Number; Number) - { - } - column(Custom1Text_Control61; Custom1Text) - { - } - column(TotalAmounts_2_; TotalAmounts[2]) - { - AutoFormatType = 1; - } - column(DeprCustom1Text_Control59; DeprCustom1Text) - { - } - column(TotalAmounts_1_____TotalAmounts_2_; TotalAmounts[1] + TotalAmounts[2]) - { - AutoFormatType = 1; - } - column(SalesPriceFieldname_Control87; SalesPriceFieldname) - { - } - column(GainLossFieldname_Control88; GainLossFieldname) - { - } - column(TotalAmounts_3_; TotalAmounts[3]) - { - AutoFormatType = 1; - } - column(TotalAmounts_4_; TotalAmounts[4]) - { - AutoFormatType = 1; - } - column(ProjectedDisposal_Control1040010; ProjectedDisposal) - { - } - column(TotalCaption; TotalCaptionLbl) - { - } - } - dataitem(Buffer; "Integer") - { - DataItemTableView = sorting(Number) where(Number = filter(1 ..)); - column(FORMAT_TODAY_0_4__Control68; Format(Today, 0, 4)) - { - } - column(USERID_Control72; UserId) - { - } - column(COMPANYNAME_Control76; COMPANYPROPERTY.DisplayName()) - { - } - column(DeprBookText_Control77; DeprBookText) - { - } - column(Custom1Text_Control64; Custom1Text) - { - } - column(GroupCodeName2; GroupCodeName2) - { - } - column(Buffer_Number; Number) - { - } - column(FABufferProjection__FA_Posting_Date_; Format(FABufferProjection."FA Posting Date")) - { - } - column(FABufferProjection_Depreciation; FABufferProjection.Depreciation) - { - } - column(FABufferProjection__Custom_1_; FABufferProjection."Custom 1") - { - } - column(FABufferProjection__Code_Name_; FABufferProjection."Code Name") - { - } - column(CurrReport_PAGENO_Control73Caption; CurrReport_PAGENO_Control73CaptionLbl) - { - } - column(Projected_Amounts_per_DateCaption; Projected_Amounts_per_DateCaptionLbl) - { - } - column(FABufferProjection__FA_Posting_Date_Caption; FABufferProjection__FA_Posting_Date_CaptionLbl) - { - } - column(FABufferProjection_DepreciationCaption; FABufferProjection_DepreciationCaptionLbl) - { - } - column(Fixed_Asset___Projected_ValueCaption_Control91; Fixed_Asset___Projected_ValueCaption_Control91Lbl) - { - } - - trigger OnAfterGetRecord() - begin - if Number = 1 then begin - if not FABufferProjection.Find('-') then - CurrReport.Break(); - end else - if FABufferProjection.Next() = 0 then - CurrReport.Break(); - end; - - trigger OnPreDataItem() - begin - if not PrintAmountsPerDate then - CurrReport.Break(); - FABufferProjection.Reset(); - end; - } - } - - requestpage - { - SaveValues = true; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(DepreciationBook; DeprBookCode) - { - ApplicationArea = Basic, Suite; - Caption = 'Depreciation Book'; - TableRelation = "Depreciation Book"; - ToolTip = 'Specifies the code for the depreciation book to be included in the report or batch job.'; - - trigger OnValidate() - begin - DeprBook.Get(DeprBookCode); - UseAccountingPeriod := DeprBook."Use Accounting Period"; - if UseAccountingPeriod then begin - PeriodLength := 0; - NumberofDaysEnable := false; - end else begin - PeriodLength := 30; - NumberofDaysEnable := true; - end; - end; - } - field(FirstDepreciationDate; StartingDate) - { - ApplicationArea = Basic, Suite; - Caption = 'First Depreciation Date'; - ToolTip = 'Specifies the date to be used as the first date in the period for which you want to calculate projected depreciation.'; - } - field(LastDepreciationDate; EndingDate) - { - ApplicationArea = Basic, Suite; - Caption = 'Last Depreciation Date'; - ToolTip = 'Specifies the Fixed Asset posting date of the last posted depreciation.'; - } - field(DaysInFirstPeriod; DaysInFirstPeriod) - { - ApplicationArea = Basic, Suite; - BlankZero = true; - Caption = 'No. of Days in First Period'; - MinValue = 0; - ToolTip = 'Specifies the number of days that must be used for calculating the depreciation as of the first depreciation date, regardless of the actual number of days from the last depreciation entry. The number you enter in this field does not affect the total number of days from the starting date to the ending date.'; - } - field("Number of Days"; PeriodLength) - { - ApplicationArea = Basic, Suite; - BlankZero = true; - Caption = 'Number of Days'; - Enabled = NumberofDaysEnable; - MinValue = 0; - ToolTip = 'Specifies the length of the periods between the first depreciation date and the last depreciation date. The program then calculates depreciation for each period. If you leave this field blank, the program automatically sets the contents of this field to equal the number of days in a fiscal year, normally 360.'; - - trigger OnValidate() - begin - if PeriodLength > 0 then - UseAccountingPeriod := false; - end; - } - field(IncludePostedFrom; IncludePostedFrom) - { - ApplicationArea = Basic, Suite; - Caption = 'Posted Entries From'; - ToolTip = 'Specifies the fixed asset posting date from which the report includes all types of posted entries.'; - } - field(GroupTotals; GroupTotals) - { - ApplicationArea = Basic, Suite; - Caption = 'Group Totals'; - OptionCaption = ' ,FA Class,FA Subclass,FA Location,Main Asset,Global Dimension 1,Global Dimension 2,FA Posting Group'; - ToolTip = 'Specifies if you want the report to group fixed assets and print totals using the category defined in this field. For example, maintenance expenses for fixed assets can be shown for each fixed asset class.'; - } - field(CopyToGLBudgetName; BudgetNameCode) - { - ApplicationArea = Basic, Suite; - Caption = 'Copy to G/L Budget Name'; - TableRelation = "G/L Budget Name"; - ToolTip = 'Specifies the name of the budget you want to copy projected values to.'; - - trigger OnValidate() - begin - if BudgetNameCode = '' then - BalAccount := false; - end; - } - field(InsertBalAccount; BalAccount) - { - ApplicationArea = Basic, Suite; - Caption = 'Insert Bal. Account'; - ToolTip = 'Specifies if you want the batch job to automatically insert fixed asset entries with balancing accounts.'; - - trigger OnValidate() - begin - if BalAccount then - if BudgetNameCode = '' then - Error(Text006, GLBudgetName.TableCaption()); - end; - } - field(PrintPerFixedAsset; PrintDetails) - { - ApplicationArea = Basic, Suite; - Caption = 'Print per Fixed Asset'; - ToolTip = 'Specifies if you want the report to print information separately for each fixed asset.'; - } - field(ProjectedDisposal; ProjectedDisposal) - { - ApplicationArea = Basic, Suite; - Caption = 'Projected Disposal'; - ToolTip = 'Specifies if you want the report to include projected disposals: the contents of the Projected Proceeds on Disposal field and the Projected Disposal Date field on the FA depreciation book.'; - } - field(PrintAmountsPerDate; PrintAmountsPerDate) - { - ApplicationArea = Basic, Suite; - Caption = 'Print Amounts per Date'; - ToolTip = 'Specifies if you want the program to include on the last page of the report a summary of the calculated depreciation for all assets.'; - } - } - } - } - - actions - { - } - - trigger OnInit() - begin - NumberofDaysEnable := true; - end; - - trigger OnOpenPage() - begin - if DeprBookCode = '' then begin - FASetup.Get(); - DeprBookCode := FASetup."Default Depr. Book"; - end; - - DeprBook.Get(DeprBookCode); - UseAccountingPeriod := DeprBook."Use Accounting Period"; - if UseAccountingPeriod then begin - PeriodLength := 0; - NumberofDaysEnable := false; - end else - // PeriodLength := 30; - NumberofDaysEnable := true; - end; - } - - labels - { - } - - trigger OnPreReport() - begin - DeprBook.Get(DeprBookCode); - Year365Days := DeprBook."Fiscal Year 365 Days"; - if GroupTotals = GroupTotals::"FA Posting Group" then - FAGenReport.SetFAPostingGroup("Fixed Asset", DeprBook.Code); - FAGenReport.AppendFAPostingFilter("Fixed Asset", StartingDate, EndingDate); - FAFilter := "Fixed Asset".GetFilters(); - DeprBookText := StrSubstNo('%1%2 %3', DeprBook.TableCaption(), ':', DeprBookCode); - MakeGroupTotalText(); - ValidateDates(); - if PrintDetails then begin - FANo := "Fixed Asset".FieldCaption("No."); - FADescription := "Fixed Asset".FieldCaption(Description); - end; - if DeprBook."No. of Days in Fiscal Year" > 0 then - DaysInFiscalYear := DeprBook."No. of Days in Fiscal Year" - else - DaysInFiscalYear := 360; - if Year365Days then - DaysInFiscalYear := 365; - if PeriodLength = 0 then - PeriodLength := DaysInFiscalYear; - if (PeriodLength <= 5) or (PeriodLength > DaysInFiscalYear) then - Error( - Text000, DaysInFiscalYear); - FALedgEntry2."FA Posting Type" := FALedgEntry2."FA Posting Type"::Depreciation; - DeprText := StrSubstNo('%1', FALedgEntry2."FA Posting Type"); - if DeprBook."Use Custom 1 Depreciation" then begin - DeprText2 := DeprText; - FALedgEntry2."FA Posting Type" := FALedgEntry2."FA Posting Type"::"Custom 1"; - Custom1Text := StrSubstNo('%1', FALedgEntry2."FA Posting Type"); - DeprCustom1Text := StrSubstNo('%1 %2 %3', DeprText, '+', Custom1Text); - end; - SalesPriceFieldname := FADeprBook.FieldCaption("Projected Proceeds on Disposal"); - GainLossFieldname := Text001; - end; - - var - Text000: Label 'Number of Days must not be greater than %1 or less than 5.'; - Text001: Label 'Projected Gain/Loss'; - Text002: Label 'Group Total'; - Text003: Label 'Group Totals'; - Text004: Label '%1 has been modified in fixed asset %2.'; - GLBudgetName: Record "G/L Budget Name"; - FASetup: Record "FA Setup"; - DeprBook: Record "Depreciation Book"; - FADeprBook: Record "FA Depreciation Book"; - FA: Record "Fixed Asset"; - FALedgEntry2: Record "FA Ledger Entry"; - FABufferProjection: Record "FA Buffer Projection" temporary; - AccPeriod: Record "Accounting Period"; - FAGenReport: Codeunit "FA General Report"; - CalculateDepr: Codeunit "Calculate Depreciation"; - FADateCalc: Codeunit "FA Date Calculation"; - DepreciationCalc: Codeunit "Depreciation Calculation"; - DeprBookCode: Code[10]; - FAFilter: Text; - DeprBookText: Text; - GroupCodeName: Text; - GroupCodeName2: Text; - GroupHeadLine: Text; - GroupHeadLineOld: Text; - DeprText: Text; - DeprText2: Text; - Custom1Text: Text; - DeprCustom1Text: Text; - IncludePostedFrom: Date; - FANo: Text; - FADescription: Text; - GroupTotals: Option " ","FA Class","FA Subclass","FA Location","Main Asset","Global Dimension 1","Global Dimension 2","FA Posting Group"; - BookValue: Decimal; - NewFiscalYear: Date; - EndFiscalYear: Date; - DaysInFiscalYear: Integer; - Custom1DeprUntil: Date; - PeriodLength: Integer; - UseAccountingPeriod: Boolean; - StartingDate: Date; - StartingDate2: Date; - EndingDate: Date; - EndingDate2: Date; - PrintAmountsPerDate: Boolean; - UntilDate: Date; - PrintDetails: Boolean; - EntryAmounts: array[4] of Decimal; - AssetAmounts: array[4] of Decimal; - GroupAmounts: array[4] of Decimal; - TotalAmounts: array[4] of Decimal; - TotalBookValue: array[2] of Decimal; - DateFromProjection: Date; - DeprAmount: Decimal; - Custom1Amount: Decimal; - NumberOfDays: Integer; - Custom1NumberOfDays: Integer; - DaysInFirstPeriod: Integer; - GroupTotalsValue: Integer; - Done: Boolean; - NotFirstGroupTotal: Boolean; - SalesPriceFieldname: Text; - GainLossFieldname: Text; - ProjectedDisposal: Boolean; - DoProjectedDisposal: Boolean; - EntryPrinted: Boolean; - Text005: Label ' ,FA Class,FA Subclass,FA Location,Main Asset,Global Dimension 1,Global Dimension 2,FA Posting Group'; - BudgetNameCode: Code[10]; - BalAccount: Boolean; - Text006: Label 'You must specify %1.'; - Year365Days: Boolean; - NumberofDaysEnable: Boolean; - CurrReport_PAGENOCaptionLbl: Label 'Page'; - Fixed_Asset___Projected_ValueCaptionLbl: Label 'Fixed Asset - Projected Value'; - FA_Ledger_Entry__FA_Posting_Date_CaptionLbl: Label 'FA Posting Date'; - BookValueCaptionLbl: Label 'Book Value'; - Posted_EntryCaptionLbl: Label 'Posted Entry'; - TotalCaptionLbl: Label 'Total'; - CurrReport_PAGENO_Control73CaptionLbl: Label 'Page'; - Projected_Amounts_per_DateCaptionLbl: Label 'Projected Amounts per Date'; - FABufferProjection__FA_Posting_Date_CaptionLbl: Label 'FA Posting Date'; - FABufferProjection_DepreciationCaptionLbl: Label 'Depreciation'; - Fixed_Asset___Projected_ValueCaption_Control91Lbl: Label 'Fixed Asset - Projected Value'; - - local procedure SkipRecord(): Boolean - begin - exit( - "Fixed Asset".Inactive or - (FADeprBook."Acquisition Date" = 0D) or - (FADeprBook."Acquisition Date" > EndingDate) or - (FADeprBook."Last Depreciation Date" > EndingDate) or - (FADeprBook."Disposal Date" > 0D)); - end; - - local procedure TransferValues() - begin - FADeprBook.CalcFields("Book Value", Depreciation, "Custom 1"); - DateFromProjection := 0D; - EntryAmounts[1] := FADeprBook."Book Value"; - EntryAmounts[2] := FADeprBook."Custom 1"; - EntryAmounts[3] := - DepreciationCalc.DeprInFiscalYear("Fixed Asset"."No.", DeprBookCode, StartingDate); - TotalBookValue[1] := TotalBookValue[1] + FADeprBook."Book Value"; - TotalBookValue[2] := TotalBookValue[2] + FADeprBook."Book Value"; - NewFiscalYear := FADateCalc.GetFiscalYear(DeprBookCode, StartingDate); - - if DeprBook."Use Accounting Period" then begin - AccPeriod.SetFilter("Starting Date", '<=%1', StartingDate); - AccPeriod.FindLast(); - EndFiscalYear := AccPeriodEndDate(AccPeriod."Starting Date"); - end else - EndFiscalYear := FADateCalc.CalculateDate( - DepreciationCalc.Yesterday(NewFiscalYear, Year365Days, DeprBook."Use Accounting Period"), - DaysInFiscalYear, Year365Days); - if DeprBook."Use Custom 1 Depreciation" then - Custom1DeprUntil := FADeprBook."Depr. Ending Date (Custom 1)" - else - Custom1DeprUntil := 0D; - - if Custom1DeprUntil > 0D then - EntryAmounts[4] := GetDeprBasis(); - UntilDate := 0D; - AssetAmounts[1] := 0; - AssetAmounts[2] := 0; - AssetAmounts[3] := 0; - AssetAmounts[4] := 0; - end; - - local procedure CalculateFirstDeprAmount(var Done: Boolean) - var - FirstTime: Boolean; - begin - FirstTime := true; - UntilDate := StartingDate; - repeat - if not FirstTime then - GetNextDate(); - FirstTime := false; - CalculateDepr.Calculate( - DeprAmount, Custom1Amount, NumberOfDays, Custom1NumberOfDays, - "Fixed Asset"."No.", DeprBookCode, UntilDate, EntryAmounts, 0D, DaysInFirstPeriod); - Done := (DeprAmount <> 0) or (Custom1Amount <> 0); - until (UntilDate >= EndingDate) or Done; - EntryAmounts[3] := - DepreciationCalc.DeprInFiscalYear("Fixed Asset"."No.", DeprBookCode, UntilDate); - end; - - local procedure CalculateSecondDeprAmount(var Done: Boolean) - begin - GetNextDate(); - CalculateDepr.Calculate( - DeprAmount, Custom1Amount, NumberOfDays, Custom1NumberOfDays, - "Fixed Asset"."No.", DeprBookCode, UntilDate, EntryAmounts, DateFromProjection, 0); - Done := CalculationDone( - (DeprAmount <> 0) or (Custom1Amount <> 0), DateFromProjection); - end; - - local procedure GetNextDate() - var - UntilDate2: Date; - begin - UntilDate2 := GetPeriodEndingDate(UseAccountingPeriod, UntilDate, PeriodLength); - if Custom1DeprUntil > 0D then - if (UntilDate < Custom1DeprUntil) and (UntilDate2 > Custom1DeprUntil) then - UntilDate2 := Custom1DeprUntil; - if (UntilDate < EndFiscalYear) and (UntilDate2 > EndFiscalYear) then - UntilDate2 := EndFiscalYear; - - if UntilDate = EndFiscalYear then begin - EntryAmounts[3] := 0; - NewFiscalYear := DepreciationCalc.ToMorrow(EndFiscalYear, Year365Days, DeprBook."Use Accounting Period"); - if DeprBook."Use Accounting Period" then begin - AccPeriod.SetFilter("Starting Date", '<= %1', StartingDate); - AccPeriod.FindLast(); - EndFiscalYear := AccPeriodEndDate(AccPeriod."Starting Date"); - end else - EndFiscalYear := FADateCalc.CalculateDate(EndFiscalYear, DaysInFiscalYear, Year365Days); - end; - - DateFromProjection := DepreciationCalc.ToMorrow(UntilDate, Year365Days, DeprBook."Use Accounting Period"); - UntilDate := UntilDate2; - if UntilDate >= EndingDate then - UntilDate := EndingDate; - end; - - local procedure GetPeriodEndingDate(UseAccountingPeriod: Boolean; PeriodEndingDate: Date; var PeriodLength: Integer): Date - var - AccountingPeriod: Record "Accounting Period"; - UntilDate2: Date; - begin - if not UseAccountingPeriod then - exit(FADateCalc.CalculateDate(PeriodEndingDate, PeriodLength, Year365Days)); - AccountingPeriod.SetFilter( - "Starting Date", '>=%1', DepreciationCalc.ToMorrow(PeriodEndingDate, Year365Days, DeprBook."Use Accounting Period") + 1); - if AccountingPeriod.FindFirst() then begin - UntilDate2 := DepreciationCalc.Yesterday(AccountingPeriod."Starting Date", Year365Days, DeprBook."Use Accounting Period"); - PeriodLength := - DepreciationCalc.DeprDays( - DepreciationCalc.ToMorrow(PeriodEndingDate, Year365Days, DeprBook."Use Accounting Period"), UntilDate2, - Year365Days, DeprBook."Use Accounting Period"); - if (PeriodLength <= 5) or (PeriodLength > DaysInFiscalYear) then - PeriodLength := DaysInFiscalYear; - exit(UntilDate2); - end; - exit(FADateCalc.CalculateDate(PeriodEndingDate, PeriodLength, Year365Days)); - end; - - local procedure MakeGroupTotalText() - begin - case GroupTotals of - GroupTotals::"FA Class": - GroupCodeName := "Fixed Asset".FieldCaption("FA Class Code"); - GroupTotals::"FA Subclass": - GroupCodeName := "Fixed Asset".FieldCaption("FA Subclass Code"); - GroupTotals::"FA Location": - GroupCodeName := "Fixed Asset".FieldCaption("FA Location Code"); - GroupTotals::"Main Asset": - GroupCodeName := "Fixed Asset".FieldCaption("Main Asset/Component"); - GroupTotals::"Global Dimension 1": - GroupCodeName := "Fixed Asset".FieldCaption("Global Dimension 1 Code"); - GroupTotals::"Global Dimension 2": - GroupCodeName := "Fixed Asset".FieldCaption("Global Dimension 2 Code"); - GroupTotals::"FA Posting Group": - GroupCodeName := "Fixed Asset".FieldCaption("FA Posting Group"); - end; - if GroupCodeName <> '' then begin - GroupCodeName2 := GroupCodeName; - if GroupTotals = GroupTotals::"Main Asset" then - GroupCodeName2 := StrSubstNo('%1', SelectStr(GroupTotals + 1, Text005)); - GroupCodeName := StrSubstNo('%1%2 %3', Text003, ':', GroupCodeName2); - end; - end; - - local procedure ValidateDates() - begin - FAGenReport.ValidateDeprDates(StartingDate, EndingDate); - EndingDate2 := EndingDate; - StartingDate2 := StartingDate; - end; - - local procedure MakeGroupHeadLine() - begin - case GroupTotals of - GroupTotals::"FA Class": - GroupHeadLine := "Fixed Asset"."FA Class Code"; - GroupTotals::"FA Subclass": - GroupHeadLine := "Fixed Asset"."FA Subclass Code"; - GroupTotals::"FA Location": - GroupHeadLine := "Fixed Asset"."FA Location Code"; - GroupTotals::"Main Asset": - begin - FA."Main Asset/Component" := FA."Main Asset/Component"::"Main Asset"; - GroupHeadLine := - StrSubstNo('%1 %2', FA."Main Asset/Component", "Fixed Asset"."Component of Main Asset"); - if "Fixed Asset"."Component of Main Asset" = '' then - GroupHeadLine := StrSubstNo('%1%2', GroupHeadLine, '*****'); - end; - GroupTotals::"Global Dimension 1": - GroupHeadLine := "Fixed Asset"."Global Dimension 1 Code"; - GroupTotals::"Global Dimension 2": - GroupHeadLine := "Fixed Asset"."Global Dimension 2 Code"; - GroupTotals::"FA Posting Group": - GroupHeadLine := "Fixed Asset"."FA Posting Group"; - end; - - if GroupHeadLine = '' then - GroupHeadLine := '*****'; - end; - - local procedure UpdateTotals() - var - BudgetDepreciation: Codeunit "Budget Depreciation"; - EntryNo: Integer; - CodeName: Code[20]; - begin - EntryAmounts[1] := EntryAmounts[1] + DeprAmount + Custom1Amount; - if Custom1DeprUntil > 0D then - if UntilDate <= Custom1DeprUntil then - EntryAmounts[4] := EntryAmounts[4] + DeprAmount + Custom1Amount; - EntryAmounts[2] := EntryAmounts[2] + Custom1Amount; - EntryAmounts[3] := EntryAmounts[3] + DeprAmount + Custom1Amount; - AssetAmounts[1] := AssetAmounts[1] + DeprAmount; - AssetAmounts[2] := AssetAmounts[2] + Custom1Amount; - GroupAmounts[1] := GroupAmounts[1] + DeprAmount; - GroupAmounts[2] := GroupAmounts[2] + Custom1Amount; - TotalAmounts[1] := TotalAmounts[1] + DeprAmount; - TotalAmounts[2] := TotalAmounts[2] + Custom1Amount; - TotalBookValue[1] := TotalBookValue[1] + DeprAmount + Custom1Amount; - TotalBookValue[2] := TotalBookValue[2] + DeprAmount + Custom1Amount; - if BudgetNameCode <> '' then - BudgetDepreciation.CopyProjectedValueToBudget( - FADeprBook, BudgetNameCode, UntilDate, DeprAmount, Custom1Amount, BalAccount); - - if (UntilDate > 0D) or PrintAmountsPerDate then begin - FABufferProjection.Reset(); - if FABufferProjection.Find('+') then - EntryNo := FABufferProjection."Entry No." + 1 - else - EntryNo := 1; - FABufferProjection.SetRange("FA Posting Date", UntilDate); - if GroupTotals <> GroupTotals::" " then begin - case GroupTotals of - GroupTotals::"FA Class": - CodeName := "Fixed Asset"."FA Class Code"; - GroupTotals::"FA Subclass": - CodeName := "Fixed Asset"."FA Subclass Code"; - GroupTotals::"FA Location": - CodeName := "Fixed Asset"."FA Location Code"; - GroupTotals::"Main Asset": - CodeName := "Fixed Asset"."Component of Main Asset"; - GroupTotals::"Global Dimension 1": - CodeName := "Fixed Asset"."Global Dimension 1 Code"; - GroupTotals::"Global Dimension 2": - CodeName := "Fixed Asset"."Global Dimension 2 Code"; - GroupTotals::"FA Posting Group": - CodeName := "Fixed Asset"."FA Posting Group"; - end; - FABufferProjection.SetRange("Code Name", CodeName); - end; - if not FABufferProjection.Find('=><') then begin - FABufferProjection.Init(); - FABufferProjection."Code Name" := CodeName; - FABufferProjection."FA Posting Date" := UntilDate; - FABufferProjection."Entry No." := EntryNo; - FABufferProjection.Depreciation := DeprAmount; - FABufferProjection."Custom 1" := Custom1Amount; - FABufferProjection.Insert(); - end else begin - FABufferProjection.Depreciation := FABufferProjection.Depreciation + DeprAmount; - FABufferProjection."Custom 1" := FABufferProjection."Custom 1" + Custom1Amount; - FABufferProjection.Modify(); - end; - end; - end; - - local procedure InitGroupTotals() - begin - GroupAmounts[1] := 0; - GroupAmounts[2] := 0; - GroupAmounts[3] := 0; - GroupAmounts[4] := 0; - if NotFirstGroupTotal then - TotalBookValue[1] := 0 - else - TotalBookValue[1] := EntryAmounts[1]; - NotFirstGroupTotal := true; - end; - - local procedure GetDeprBasis(): Decimal - var - FALedgEntry: Record "FA Ledger Entry"; - begin - FALedgEntry.SetCurrentKey("FA No.", "Depreciation Book Code", "Part of Book Value", "FA Posting Date"); - FALedgEntry.SetRange("FA No.", "Fixed Asset"."No."); - FALedgEntry.SetRange("Depreciation Book Code", DeprBookCode); - FALedgEntry.SetRange("Part of Book Value", true); - FALedgEntry.SetRange("FA Posting Date", 0D, Custom1DeprUntil); - FALedgEntry.CalcSums(Amount); - exit(FALedgEntry.Amount); - end; - - local procedure CalculateGainLoss() - var - CalculateDisposal: Codeunit "Calculate Disposal"; - EntryAmounts: array[14] of Decimal; - begin - CalculateDisposal.CalcGainLoss("Fixed Asset"."No.", DeprBookCode, EntryAmounts); - AssetAmounts[3] := FADeprBook."Projected Proceeds on Disposal"; - if EntryAmounts[1] <> 0 then - AssetAmounts[4] := EntryAmounts[1] - else - AssetAmounts[4] := EntryAmounts[2]; - AssetAmounts[4] := - AssetAmounts[4] + AssetAmounts[1] + AssetAmounts[2] - FADeprBook."Projected Proceeds on Disposal"; - GroupAmounts[3] := GroupAmounts[3] + AssetAmounts[3]; - GroupAmounts[4] := GroupAmounts[4] + AssetAmounts[4]; - TotalAmounts[3] := TotalAmounts[3] + AssetAmounts[3]; - TotalAmounts[4] := TotalAmounts[4] + AssetAmounts[4]; - end; - - local procedure CalculationDone(Done: Boolean; FirstDeprDate: Date): Boolean - var - TableDeprCalc: Codeunit "Table Depr. Calculation"; - begin - if Done or - (FADeprBook."Depreciation Method" <> FADeprBook."Depreciation Method"::"User-Defined") - then - exit(Done); - exit( - TableDeprCalc.GetTablePercent( - DeprBookCode, FADeprBook."Depreciation Table Code", - FADeprBook."First User-Defined Depr. Date", FirstDeprDate, UntilDate) = 0); - end; - - local procedure AccPeriodEndDate(UseStartDate: Date): Date - var - AccountingPeriod2: Record "Accounting Period"; - begin - AccountingPeriod2."Starting Date" := UseStartDate; - if AccountingPeriod2.Find('>') then - exit(AccountingPeriod2."Starting Date" - 1); - exit(DMY2Date(31, 12, 9999)); - end; -} -#endif diff --git a/src/Layers/GB/BaseApp/Local/FixedAsset/Depreciation/FAProjectedValue.rdlc b/src/Layers/GB/BaseApp/Local/FixedAsset/Depreciation/FAProjectedValue.rdlc deleted file mode 100644 index 3cfe730c979..00000000000 --- a/src/Layers/GB/BaseApp/Local/FixedAsset/Depreciation/FAProjectedValue.rdlc +++ /dev/null @@ -1,5278 +0,0 @@ - - - 0 - - - - SQL - - - None - d026c9c2-dbc4-46b8-9860-f038b8ada27d - - - - - - - - - - - 18.09524cm - - - - - 16.61926cm - - - - - - - - - - 18.09524cm - - - - - 14.49539cm - - - - - - - - - - 1.6cm - - - 4.5cm - - - 1.5cm - - - 3.9cm - - - 1.9cm - - - 1.9cm - - - - - 0.423cm - - - - - true - - - - - - - - - - - textbox140 - 23 - - - 6 - - - - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!TotalCaption.Value - - - - - - 22 - - - - - - - - true - - - - - - - - - - - textbox26 - 21 - - - 2 - - - - - - - true - - - - - =Fields!DeprText2_Control49.Value - - - - - - 19 - - - - - - - - true - true - - - - - =Fields!TotalAmounts_1_.Value - - - - - - 18 - - - - - - - - true - true - - - - - =Fields!TotalBookValue_2_.Value - - - - - - 17 - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Fields!Custom1Text_Control61.Value - - - - - - 15 - - - - - - - - true - true - - - - - =Fields!TotalAmounts_2_.Value - - - - - - 14 - - - - - - - - true - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Fields!DeprCustom1Text_Control59.Value - - - - - - 11 - - - - - - - - true - true - - - - - =Fields!TotalAmounts_1_____TotalAmounts_2_.Value - - - - - - 10 - - - - - - - - true - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Fields!SalesPriceFieldname_Control87.Value - - - - - - 6 - - - - - - - - true - true - - - - - =Fields!TotalAmounts_3_.Value - - - - - - 5 - - - - - - - - true - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Fields!GainLossFieldname_Control88.Value - - - - - - 2 - - - - - - - - true - true - - - - - =Fields!TotalAmounts_4_.Value - - - - - - 1 - - - - - - - - true - - - - - - - - - - - - - - - - - - - - - - - - - - - - Detail - - - - - - - =IIF(Fields!DeprBook__Use_Custom_1_Depr_.Value,False,True) - - - - - =IIF(Fields!DeprBook__Use_Custom_1_Depr_.Value,False,True) - - - - - =IIF(Fields!ProjectedDisposal_Control1040010.Value,False,True) - - - - - =IIF(Fields!ProjectedDisposal_Control1040010.Value,False,True) - - - - - =IIF(Fields!ProjectedDisposal_Control1040010.Value,False,True) - - - - Detail_Collection - Output - true - - - - DataSet_Result - - - =Fields!ProjectionTotal_Number.Value - GreaterThanOrEqual - - =1 - - - - 11.53439cm - 15.3cm - 2 - - - - - - 18.09524cm - - - - - 0.423cm - - - - - true - - - - - =First(Fields!Fixed_Asset__TABLECAPTION__________FAFilter.Value) - - - - - - 1 - - - - - - - - 0.423cm - - - - - true - - - - - - - - - - - textbox2 - - - - - - - - - - - - - - - - - After - true - - - After - true - - - - 0.846cm - 1 - - =IIF(Fields!FAFilter.Value = "",True,False) - - NoOutput - - - - - - 1.6cm - - - 4.5cm - - - 1.55cm - - - 2cm - - - 1.9cm - - - 1.9cm - - - 1.9cm - - - 1.6cm - - - - - 0.423cm - - - - - true - - - - - =Fields!COMPANYNAME.Value - - - - - - 92 - - true - - - - - - - - - true - - - - - =Fields!DeprBookText.Value - - - - - - 91 - - true - - - - - - - - - true - - - - - =Fields!CurrReport_PAGENOCaption.Value - - - - - - 90 - - true - - - - - - - - - true - - - - - =Fields!Fixed_Asset___Projected_ValueCaption.Value - - - - - - 89 - - true - - - - 5 - - - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!GroupCodeName.Value - - - - - - 88 - - - 2 - - - - - - - true - - - - - - - - 6 - - - - - - - - - - - 1.269cm - - - - - true - - - - - =First(Fields!FANo.Value) - - - - - - - 86 - - - - - - - - true - - - - - =First(Fields!FADescription.Value) - - - - - - - 85 - - - - - - - - true - - - - - =First(Fields!FA_Ledger_Entry__FA_Posting_Date_Caption.Value) - - - - - - - 84 - - - - - - - - true - - - - - =First(Fields!FA_Ledger_Entry__FA_Posting_Type_Caption.Value) - - - - - - - 83 - - - - - - - - true - - - - - =First(Fields!FA_Ledger_Entry__No__of_Depreciation_Days_Caption.Value) - - - - - - - 82 - - - - - - - - true - - - - - =First(Fields!FA_Ledger_Entry_AmountCaption.Value) - - - - - - - 81 - - - - - - - - true - - - - - =First(Fields!BookValueCaption.Value) - - - - - - - 80 - - - - - - - - true - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - - - - - textbox165 - 78 - - - 8 - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - - - - textbox6 - 77 - - - 8 - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!GroupHeadLine.Value - - - - - - textbox4 - 76 - - - 2 - - - - - - - true - - - - - - - - 6 - - - - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!Fixed_Asset__No__.Value - - - - - - textbox45 - 74 - - - - - - - - true - - - - - =Fields!Fixed_Asset_Description.Value - - - - - - textbox46 - 73 - - - - - - - - true - - - - - - - - 6 - - - - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!FA_Ledger_Entry__FA_No__.Value - - - - - - textbox47 - 71 - - - - - - - - true - - - - - - - - - - - textbox48 - 70 - - - - - - - - true - - - - - =Fields!FA_Ledger_Entry__FA_Posting_Date_.Value - - - - - - textbox53 - 69 - - - - - - - - true - - - - - =Fields!FA_Ledger_Entry__FA_Posting_Type_.Value - - - - - - textbox54 - 68 - - - - - - - - true - true - - - - - =Fields!FA_Ledger_Entry__No__of_Depreciation_Days_.Value - - - - - - 67 - - - - - - - - true - true - - - - - =Fields!FA_Ledger_Entry_Amount.Value - - - - - - 66 - - - - - - - - true - true - - - - - =Fields!BookValue.Value - - - - - - 65 - - - - - - - - true - - - - - =Fields!Posted_EntryCaption.Value - - - - - - 64 - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!Fixed_Asset__No__.Value - - - - - - - 63 - - - - - - - - true - - - - - - - - - - - - - true - - - - - =Fields!UntilDate.Value - - - - - - textbox62 - 61 - - - - - - - - true - - - - - =Fields!DeprText.Value - - - - - - textbox63 - 60 - - - - - - - - true - true - - - - - =Fields!NumberOfDays.Value - - - - - - textbox49 - 59 - - - - - - - - true - true - - - - - =Fields!DeprAmount.Value - - - - - - textbox50 - 58 - - - - - - - - true - true - - - - - =Fields!EntryAmounts_1_____Custom1Amount.Value - - - - - - textbox51 - 57 - - - - - - - - true - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!Fixed_Asset__No__.Value - - - - - - - 7 - - - - - - - - true - - - - - - - - - - - - textbox38 - 6 - - - - - - - - true - - - - - =Fields!UntilDate.Value - - - - - - 5 - - - - - - - - true - - - - - =Fields!Custom1Text.Value - - - - - - textbox40 - 4 - - - - - - - - true - true - - - - - =Fields!Custom1NumberOfDays.Value - - - - - - textbox41 - 3 - - - - - - - - true - true - - - - - =Fields!Custom1Amount.Value - - - - - - textbox42 - 2 - - - - - - - - true - true - - - - - =Fields!EntryAmounts_1_.Value - - - - - - textbox43 - 1 - - - - - - - - true - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - =Last(Fields!Fixed_Asset___No__.Value) - - - - - - - 14 - - - - - - - - true - - - - - =Last(Fields!Fixed_Asset__Description.Value) - - - - - - 13 - - - - - - - - true - - - - - - - - - - - - - true - - - - - =Last(Fields!DeprText2_Control51.Value) - - - - - - 11 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!AssetAmounts_1_.Value) - - - - - - 10 - - - - - - - - true - true - - - - - =Last(Fields!EntryAmounts_1_.Value) - - - - - - 9 - - - - - - - - true - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Last(Fields!Custom1Text.Value) - - - - - - textbox135 - 17 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!AssetAmounts_2_.Value) - - - - - - textbox137 - 16 - - - - - - - - true - - - - - - - - 2 - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Last(Fields!DeprCustom1Text.Value) - - - - - - textbox127 - 21 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!AssetAmounts_1____AssetAmounts_2_.Value) - - - - - - textbox129 - 20 - - - - - - - - true - - - - - - - - 2 - - - - - - - 0.423cm - - - - - true - - - - - - - - 8 - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Last(Fields!SalesPriceFieldname.Value) - - - - - - textbox107 - 26 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!AssetAmounts_3_.Value) - - - - - - textbox109 - 25 - - - - - - - - true - - - - - - - - 2 - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Last(Fields!GainLossFieldname.Value) - - - - - - textbox99 - 30 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!AssetAmounts_4_.Value) - - - - - - textbox101 - 29 - - - - - - - - true - - - - - - - - 2 - - - - - - - 0.423cm - - - - - true - - - - - - - - 8 - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!Text002__________GroupHeadLine.Value - - - - - - textbox166 - 38 - - - 2 - - - - - - - true - - - - - - - - - - - textbox170 - 37 - - - - - - - - true - - - - - =Fields!DeprText2.Value - - - - - - textbox171 - 36 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!GroupAmounts_1_.Value) - - - - - - textbox177 - 35 - - - - - - - - true - true - - - - - =Last(Fields!TotalBookValue_1_.Value) - - - - - - textbox180 - 34 - - - - - - - - true - true - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Fields!Custom1Text.Value - - - - - - textbox154 - 41 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!GroupAmounts_2_.Value) - - - - - - textbox158 - 40 - - - - - - - - true - true - - - - - - - - 2 - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Fields!DeprCustom1Text.Value - - - - - - textbox83 - 45 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!GroupAmounts_1_.Value) + Last(Fields!GroupAmounts_2_.Value) - - - - - - textbox85 - 44 - - - - - - - - true - true - - - - - - - - 2 - - - - - - - 0.423cm - - - - - true - - - - - - - - 8 - - - - - - - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Fields!SalesPriceFieldname.Value - - - - - - textbox67 - 50 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!GroupAmounts_3_.Value) - - - - - - textbox69 - 49 - - - - - - - - true - - - - - - - - 2 - - - - - - - 0.423cm - - - - - true - - - - - - - - 3 - - - - - - - - true - - - - - =Fields!GainLossFieldname.Value - - - - - - textbox25 - 54 - - - 2 - - - - - - - true - true - - - - - =Last(Fields!GroupAmounts_4_.Value) - - - - - - textbox27 - 53 - - - - - - - - true - - - - - - - - 2 - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - true - - - After - true - true - - - After - true - true - - - - - =Fields!GroupHeadLine.Value - - - - - - =IIF(Fields!GroupTotalsValue.Value = 0,True,False) - - After - true - - - - =IIF(Fields!GroupTotalsValue.Value = 0,True,False) - - After - true - - - - - =Fields!Fixed_Asset__No__.Value - - - - - - =IIF(Fields!PrintDetails.Value,False,True) - - After - true - - - - - =IIF(Fields!ProjectedDepreciation_Number.Value>=1,1,0) - - - - - - Detail - - - - - =IIF((not Fields!ProjectedDepreciation_Number.Value >= 1)and - (not Fields!IncludePostedFrom.Value = "") and - Fields!PrintDetails.Value,False,True) - - - - - =IIF(Fields!ProjectedDepreciation_Number.Value >=1 and Fields!PrintDetails.Value,False,True) - - - - - =IIF(Fields!ProjectedDepreciation_Number.Value >=1 and - Fields!PrintDetails.Value and - not Fields!Custom1Amount.Value = 0 and - Fields!DeprBook__Use_Custom_1_Depr_.Value,False,True) - - - - Detail_Collection - Output - true - - - - - - =IIF(Last(Fields!ProjectedDepreciation_Number.Value) >=1 and Fields!PrintDetails.Value,False,True) - - Before - true - - - - =IIF(Last(Fields!ProjectedDepreciation_Number.Value) >=1 and - Fields!PrintDetails.Value and - not Last(Fields!AssetAmounts_2_.Value) = 0 and - Last(Fields!DeprBook__Use_Custom_1_Depr_.Value),False,True) - - Before - true - - - - =IIF(Last(Fields!ProjectedDepreciation_Number.Value) >=1 and - Fields!PrintDetails.Value and - not Last(Fields!AssetAmounts_2_.Value) = 0 and - Last(Fields!DeprBook__Use_Custom_1_Depr_.Value),False,True) - - Before - true - - - - =IIF(Last(Fields!ProjectedDepreciation_Number.Value) >=1 and - Fields!PrintDetails.Value and - Last(Fields!DoProjectedDisposal.Value),False,True) - - Before - true - - - - =IIF(Last(Fields!ProjectedDepreciation_Number.Value) >=1 and - Fields!PrintDetails.Value and - Last(Fields!DoProjectedDisposal.Value),False,True) - - Before - true - - - - =IIF(Last(Fields!ProjectedDepreciation_Number.Value) >=1 and - Fields!PrintDetails.Value and - Last(Fields!DoProjectedDisposal.Value),False,True) - - Before - true - - - - =IIF(Last(Fields!ProjectedDepreciation_Number.Value) >=1 and Fields!PrintDetails.Value,False,True) - - Before - true - - - - - - =IIF(Fields!GroupTotalsValue.Value = 0,True,False) - - Before - true - - - - =IIF((not Fields!GroupTotalsValue.Value = 0) and Fields!DeprBook__Use_Custom_1_Depr_.Value,False,True) - - Before - true - - - - =IIF((not Fields!GroupTotalsValue.Value = 0)and Fields!DeprBook__Use_Custom_1_Depr_.Value,False,True) - - Before - true - - - - =IIF(Fields!ProjectedDisposal.Value and (not Fields!GroupTotalsValue.Value = 0),False,True) - - Before - true - - - - =IIF(Fields!ProjectedDisposal.Value and (not Fields!GroupTotalsValue.Value = 0),False,True) - - Before - true - - - - =IIF(Fields!ProjectedDisposal.Value and (not Fields!GroupTotalsValue.Value = 0),False,True) - - Before - true - - - - - - DataSet_Result - 0.89947cm - 10.575cm - 16.95cm - - - true - - - - - - - - - - - - - - - - - - =1 - - - - =IIF(Fields!Buffer_Number.Value >=1,True,False) - - Output - true - - - - DataSet_Result - 14.49539cm - 2 - NoOutput - - - - - - 1.9cm - - - 1.9cm - - - 1.9cm - - - 1.7cm - - - - - 0.423cm - - - - - true - - - - - =Fields!Projected_Amounts_per_DateCaption.Value - - - - - - textbox179 - 10 - - - 3 - - - - - - - - true - - - - - - - - - - - textbox184 - 9 - - - - - - - - 0.8cm - - - - - true - - - - - =Fields!GroupCodeName2.Value - - - - - - textbox174 - 8 - - - - - - - - true - - - - - =Fields!FABufferProjection__FA_Posting_Date_Caption.Value - - - - - - textbox175 - 7 - - - - - - - - true - - - - - =Fields!FABufferProjection_DepreciationCaption.Value - - - - - - - textbox176 - 6 - - - - - - - - true - - - - - =Fields!Custom1Text_Control64.Value - - - - - - textbox178 - 5 - - - - - - - - 0.423cm - - - - - true - - - - - - - - - - - textbox169 - 4 - - - 4 - - - - - - - - - 0.423cm - - - - - true - - - - - =Fields!FABufferProjection__Code_Name_.Value - - - - - - textbox172 - 3 - - - - - - - - true - - - - - =Fields!FABufferProjection__FA_Posting_Date_.Value - - - - - - - textbox162 - 2 - - - - - - - - true - - - - - =Fields!FABufferProjection_Depreciation.Value - - - - - - textbox163 - 1 - - - - - - - - true - - - - - =Code.BlankZero(Fields!FABufferProjection__Custom_1_.Value) - - - - - - textbox164 - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - true - - - After - true - true - - - - Detail - - - - - Detail_Collection - Output - true - - - - - Start - - - - =Fields!Buffer_Number.Value - GreaterThanOrEqual - - =1 - - - - 14.55026cm - 7.4cm - 1 - - =IIF(Fields!Buffer_Number.Value >= 1,False,True) - - NoOutput - - - - - - 0.63492cm - - - 0.63492cm - - - 0.31746cm - - - - - 0.1cm - - - - - true - true - - - - - - - - - - - 2 - - =Code.SetData(IIF(Fields!COMPANYNAME.Value="","", - Fields!Fixed_Asset___Projected_ValueCaption.Value + Chr(177) + - Fields!DeprBookText.Value + Chr(177) + - Fields!COMPANYNAME.Value+ Chr(177)+ - Fields!CurrReport_PAGENOCaption.Value + Chr(177) + - Fields!FORMAT_TODAY_0_4_.Value)) - - - - - - - - - true - true - - - - - - - - - - - 1 - - =Code.SetData(IIF(Fields!COMPANYNAME_Control76.Value="","", - Fields!Fixed_Asset___Projected_ValueCaption_Control91.Value + Chr(177) + - Fields!DeprBookText_Control77.Value + Chr(177) + - Fields!COMPANYNAME_Control76.Value+ Chr(177)+ - Fields!CurrReport_PAGENO_Control73Caption.Value + Chr(177) + - Fields!FORMAT_TODAY_0_4__Control68.Value)) - - - - - - - - - true - true - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - - 0.1cm - 1.5873cm - - - true - - - - - - - - - - - - - - - - - - =IIF(Fields!Buffer_Number.Value >=1,1,0) - - - Between - - - Output - true - - - - - End - - 18.09524cm - - - 16.61926cm - - 18.15cm - - - 1.692cm - true - true - - - true - - - - - =Globals!PageNumber - - - - - - - 0.52882cm - 17.7cm - 0.423cm - 6 - - - - true - true - - - - - =User!UserID - - - - - - - 0.95182cm - 10.79365cm - 0.423cm - 5 - - - - true - - - - - =Code.GetData(5) - - - - - - - 0.10582cm - 10.65cm - 0.423cm - 4 - - - - true - - - - - =Code.GetData(3) - - - - - - 0.95182cm - 0.423cm - 7.5cm - 3 - - - - true - - - - - =Code.GetData(2) - - - - - - 0.52882cm - 0.423cm - 7.5cm - 2 - - - - true - - - - - =Code.GetData(4) - - - - - - 0.52882cm - 16.95cm - 0.423cm - 0.75cm - 1 - - - - true - - - - - =Code.GetData(1) - - - - - - 0.10582cm - 0.423cm - 7.5cm - - - - - 29.7cm - 21cm - 11in - 8.5in - 1.5cm - 2cm - 2cm - - - - Public Function BlankZero(ByVal Value As Decimal) - if Value = 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankPos(ByVal Value As Decimal) - if Value > 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankZeroAndPos(ByVal Value As Decimal) - if Value >= 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankNeg(ByVal Value As Decimal) - if Value < 0 then - Return "" - end if - Return Value -End Function - -Public Function BlankNegAndZero(ByVal Value As Decimal) - if Value <= 0 then - Return "" - end if - Return Value -End Function - -Shared Data1 as Object - -Public Function GetData(Num as Integer) as Object - Return Cstr(Choose(Num, Split(Cstr(Data1),Chr(177)))) -End Function - -Public Function SetData(NewData as Object) - If NewData > "" Then - Data1 = NewData - End If - Return True -End Function - =User!Language - true - Invalid - 16bb6239-06cc-4ad6-9364-547a065f9a60 - - - - - COMPANYNAME - - - FORMAT_TODAY_0_4_ - - - USERID - - - DeprBookText - - - Fixed_Asset__TABLECAPTION__________FAFilter - - - FAFilter - - - GroupCodeName - - - FANo - - - FADescription - - - GroupHeadLine - - - PrintDetails - - - GroupTotalsValue - - - Fixed_Asset__No__ - - - Fixed_Asset_Description - - - GroupAmounts_1_ - - - GroupAmounts_1_Format - - - DeprText2 - - - TotalBookValue_1_ - - - TotalBookValue_1_Format - - - Text002__________GroupHeadLine - - - GroupAmounts_2_ - - - GroupAmounts_2_Format - - - Custom1Text - - - GroupAmounts_1____GroupAmounts_2_ - - - GroupAmounts_1____GroupAmounts_2_Format - - - DeprCustom1Text - - - SalesPriceFieldname - - - GainLossFieldname - - - GroupAmounts_3_ - - - GroupAmounts_3_Format - - - GroupAmounts_4_ - - - GroupAmounts_4_Format - - - ProjectedDisposal - - - Fixed_Asset_FA_Class_Code - - - Fixed_Asset_FA_Subclass_Code - - - Fixed_Asset_Global_Dimension_1_Code - - - Fixed_Asset_Global_Dimension_2_Code - - - Fixed_Asset_FA_Location_Code - - - Fixed_Asset_Component_of_Main_Asset - - - Fixed_Asset_FA_Posting_Group - - - CurrReport_PAGENOCaption - - - Fixed_Asset___Projected_ValueCaption - - - FA_Ledger_Entry__FA_Posting_Date_Caption - - - FA_Ledger_Entry__FA_Posting_Type_Caption - - - FA_Ledger_Entry_AmountCaption - - - BookValueCaption - - - FA_Ledger_Entry__No__of_Depreciation_Days_Caption - - - FA_Ledger_Entry__FA_Posting_Date_ - - - FA_Ledger_Entry__FA_Posting_Type_ - - - FA_Ledger_Entry_Amount - - - FA_Ledger_Entry_AmountFormat - - - FA_Ledger_Entry__FA_No__ - - - BookValue - - - BookValueFormat - - - FA_Ledger_Entry__No__of_Depreciation_Days_ - - - IncludePostedFrom - - - FA_Ledger_Entry_Entry_No_ - - - Posted_EntryCaption - - - DeprAmount - - - DeprAmountFormat - - - EntryAmounts_1_____Custom1Amount - - - EntryAmounts_1_____Custom1AmountFormat - - - UntilDate - - - DeprText - - - NumberOfDays - - - Fixed_Asset___No__ - - - Fixed_Asset___No___Control29 - - - UntilDate_Control30 - - - Custom1Text_Control31 - - - Custom1NumberOfDays - - - Custom1Amount - - - Custom1AmountFormat - - - EntryAmounts_1_ - - - EntryAmounts_1_Format - - - DeprBook__Use_Custom_1_Depr_ - - - ProjectedDepreciation_Number - - - AssetAmounts_1_ - - - AssetAmounts_1_Format - - - Fixed_Asset___No___Control42 - - - Fixed_Asset__Description - - - DeprText2_Control51 - - - EntryAmounts_1__Control50 - - - EntryAmounts_1__Control50Format - - - Custom1Text_Control22 - - - AssetAmounts_2_ - - - AssetAmounts_2_Format - - - AssetAmounts_1____AssetAmounts_2_ - - - AssetAmounts_1____AssetAmounts_2_Format - - - DeprCustom1Text_Control57 - - - AssetAmounts_3_ - - - AssetAmounts_3_Format - - - AssetAmounts_4_ - - - AssetAmounts_4_Format - - - SalesPriceFieldname_Control81 - - - GainLossFieldname_Control82 - - - DoProjectedDisposal - - - TotalBookValue_2_ - - - TotalBookValue_2_Format - - - TotalAmounts_1_ - - - TotalAmounts_1_Format - - - DeprText2_Control49 - - - ProjectionTotal_Number - - - Custom1Text_Control61 - - - TotalAmounts_2_ - - - TotalAmounts_2_Format - - - DeprCustom1Text_Control59 - - - TotalAmounts_1_____TotalAmounts_2_ - - - TotalAmounts_1_____TotalAmounts_2_Format - - - SalesPriceFieldname_Control87 - - - GainLossFieldname_Control88 - - - TotalAmounts_3_ - - - TotalAmounts_3_Format - - - TotalAmounts_4_ - - - TotalAmounts_4_Format - - - ProjectedDisposal_Control1040010 - - - TotalCaption - - - FORMAT_TODAY_0_4__Control68 - - - USERID_Control72 - - - COMPANYNAME_Control76 - - - DeprBookText_Control77 - - - Custom1Text_Control64 - - - GroupCodeName2 - - - Buffer_Number - - - FABufferProjection__FA_Posting_Date_ - - - FABufferProjection_Depreciation - - - FABufferProjection_DepreciationFormat - - - FABufferProjection__Custom_1_ - - - FABufferProjection__Custom_1_Format - - - FABufferProjection__Code_Name_ - - - CurrReport_PAGENO_Control73Caption - - - Projected_Amounts_per_DateCaption - - - FABufferProjection__FA_Posting_Date_Caption - - - FABufferProjection_DepreciationCaption - - - Fixed_Asset___Projected_ValueCaption_Control91 - - - - DataSource - - - - - \ No newline at end of file diff --git a/src/Layers/GB/BaseApp/Local/Foundation/Address/PostcodeBusinessLogic.Codeunit.al b/src/Layers/GB/BaseApp/Local/Foundation/Address/PostcodeBusinessLogic.Codeunit.al deleted file mode 100644 index 4fdfcec8dcf..00000000000 --- a/src/Layers/GB/BaseApp/Local/Foundation/Address/PostcodeBusinessLogic.Codeunit.al +++ /dev/null @@ -1,205 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Foundation.Address; - -using Microsoft.Utilities; - -codeunit 10500 "Postcode Business Logic" -{ - Permissions = TableData "Post Code" = rimd; - ObsoleteState = Pending; - ObsoleteReason = 'Codeunit has been moved to the GetAddress.io UK Postcodes.'; - ObsoleteTag = '27.0'; - - trigger OnRun() - begin - SavePostcode := true; - end; - - var - PostcodeServiceManager: Codeunit "Postcode Service Manager"; - SavePostcode: Boolean; - NoDataRetrievedErr: Label 'Postal code service did not return any results.'; - SavePostcodeSet: Boolean; - ServiceNameTxt: Label 'GetAddress.io', Locked = true; - - procedure ShowLookupWindow(var TempEnteredAutocompleteAddress: Record "Autocomplete Address" temporary; ShowInputPage: Boolean; var TempAutocompleteAddress: Record "Autocomplete Address" temporary): Boolean - var - TempAddressListNameValueBuffer: Record "Name/Value Buffer" temporary; - RepeatProcess: Boolean; - begin - // Scenarios: - // 1. - // -- Postcode input page is opened address enetered - // - - Postocode input page is cancaled => EXIT(FALSE) - // - - Postcode input page is confirmed - // - - Address selection is canceled => return to postcode input - // - - Address selection is confirmed => set the address and EXIT(TRUE) - // 2. - // -- Postcode is provided, therefore postcode input is skipped - // -- Address selection window opened with a list of possible addresses - // - - Address selection is canceled => EXIT(FALSE), do not show postcode input page - // - - Address selection is confirmed => set the address and EXIT(TRUE) - if not IsConfigured() then - exit; - - if PostcodeServiceManager.GetActiveService() <> ServiceNameTxt then - exit; - - if not ShowInputPage then - TempEnteredAutocompleteAddress.Address := ''; - - RepeatProcess := true; - if not SavePostcodeSet then - SavePostcode := true; // Default to true - - while RepeatProcess do begin - if ShowInputPage then - if not ShowPostcodeInputFields(TempEnteredAutocompleteAddress.Postcode, TempEnteredAutocompleteAddress.Address) then - exit(false); - - // TRIM - TempEnteredAutocompleteAddress.Postcode := DelChr(TempEnteredAutocompleteAddress.Postcode, '<>', ' '); - TempEnteredAutocompleteAddress.Address := DelChr(TempEnteredAutocompleteAddress.Address, '<>', ' '); - - Clear(TempAddressListNameValueBuffer); - if not PostcodeServiceManager.GetAddressList(TempEnteredAutocompleteAddress, TempAddressListNameValueBuffer) then - exit; - - // No data retrieved - raise error - if TempAddressListNameValueBuffer.IsEmpty() then - Error(NoDataRetrievedErr); - - if ShowAddressSelection(TempAddressListNameValueBuffer) then - RepeatProcess := false // Everything finished OK - else - if not ShowInputPage then // ONLY Repeat the process if we showed the input page - exit; - end; - - PostcodeServiceManager.GetAddress(TempAddressListNameValueBuffer, TempEnteredAutocompleteAddress, TempAutocompleteAddress); - - if SavePostcode then - CreateNewPostcodeIfNotExists(TempAutocompleteAddress); - - exit(true); - end; - - procedure ShowDiscoverabilityNotificationIfNeccessary() - begin - // This is a deprecated codeunit and it must not add one more discoverability notification on card pages - exit; - end; - - procedure NotificationOnConfigure(Notification: Notification) - begin - PAGE.Run(PAGE::"Postcode Configuration Page"); - DisableNotificationForUser(); - end; - - procedure NotificationOnDontShowAgain(Notification: Notification) - begin - DisableNotificationForUser(); - end; - - procedure IsConfigured(): Boolean - var - Configured: Boolean; - begin - PostcodeServiceManager.IsServiceConfigured(ServiceNameTxt, Configured); - exit(Configured); - end; - - procedure SetSavePostcode(NewValue: Boolean) - begin - SavePostcode := NewValue; - SavePostcodeSet := true; // Mark that we set the value - end; - - procedure IsSavePostcodeEnabled(): Boolean - begin - exit(SavePostcode); - end; - - internal procedure SupportedCountryOrRegionCode(CountryOrRegionCode: Code[10]): Boolean - begin - exit(CountryOrRegionCode in ['GB', 'UK', '']); - end; - - local procedure CreateNewPostcodeIfNotExists(var TempAutocompleteAddress: Record "Autocomplete Address" temporary) - var - PostCode: Record "Post Code"; - begin - if (TempAutocompleteAddress.City = '') or - (TempAutocompleteAddress.Postcode = '') - then - exit; - - // Entered postcode already exists - PostCode.SetRange(Code, TempAutocompleteAddress.Postcode); - PostCode.SetRange(City, TempAutocompleteAddress.City); - if not PostCode.IsEmpty() then - exit; - - // Otherwise create one - PostCode.Init(); - PostCode.Code := TempAutocompleteAddress.Postcode; - PostCode.City := TempAutocompleteAddress.City; - PostCode."Search City" := UpperCase(TempAutocompleteAddress.City); - PostCode."Country/Region Code" := TempAutocompleteAddress."Country / Region"; - PostCode.County := TempAutocompleteAddress.County; - PostCode.Insert(); - Commit(); - end; - - local procedure DisableNotificationForUser() - var - PostcodeNotificationMemory: Record "Postcode Notification Memory"; - begin - if PostcodeNotificationMemory.Get(UserId) then - exit; - - PostcodeNotificationMemory.Init(); - PostcodeNotificationMemory.UserId := UserId; - PostcodeNotificationMemory.Insert(); - end; - - local procedure ShowPostcodeInputFields(var Postcode: Text[20]; var DeliveryPoint: Text[100]): Boolean - var - PostcodeSearch: Page "Postcode Search"; - begin - PostcodeSearch.SetValues(Postcode, ''); - if PostcodeSearch.RunModal() = ACTION::Cancel then - exit(false); - - PostcodeSearch.GetValues(Postcode, DeliveryPoint); - exit(true); - end; - - local procedure ShowAddressSelection(var TempAddressNameValueBuffer: Record "Name/Value Buffer" temporary): Boolean - var - PostcodeSelectAddress: Page "Postcode Select Address"; - PageResultAction: Action; - begin - // Show lookup window only if there are multiple records, otherwise input s output - if TempAddressNameValueBuffer.Count > 1 then begin - PostcodeSelectAddress.LookupMode(true); - PostcodeSelectAddress.SetAddressList(TempAddressNameValueBuffer); - - PageResultAction := PostcodeSelectAddress.RunModal(); - if (PageResultAction = ACTION::Cancel) or (PageResultAction = ACTION::LookupCancel) then - exit(false); - - // Retrieve choosen address - Clear(TempAddressNameValueBuffer); - PostcodeSelectAddress.GetSelectedAddress(TempAddressNameValueBuffer); - end; - - exit(true); - end; -} - -#endif \ No newline at end of file diff --git a/src/Layers/GB/BaseApp/Local/Purchases/Document/BlanketPurchaseOrderGB.Report.al b/src/Layers/GB/BaseApp/Local/Purchases/Document/BlanketPurchaseOrderGB.Report.al deleted file mode 100644 index ecc870c6dd7..00000000000 --- a/src/Layers/GB/BaseApp/Local/Purchases/Document/BlanketPurchaseOrderGB.Report.al +++ /dev/null @@ -1,650 +0,0 @@ -#if not CLEAN27 -// ------------------------------------------------------------------------------------------------ -// Copyright (c) Microsoft Corporation. All rights reserved. -// Licensed under the MIT License. See License.txt in the project root for license information. -// ------------------------------------------------------------------------------------------------ -namespace Microsoft.Purchases.Document; - -using Microsoft.CRM.Interaction; -using Microsoft.CRM.Segment; -using Microsoft.CRM.Team; -using Microsoft.Finance.Dimension; -using Microsoft.Foundation.Address; -using Microsoft.Foundation.Company; -using Microsoft.Foundation.Shipping; -using Microsoft.Inventory.Location; -using Microsoft.Purchases.Posting; -using Microsoft.Purchases.Vendor; -using System.Globalization; -using System.Telemetry; -using System.Utilities; - -report 10579 "Blanket Purchase Order GB" -{ - DefaultLayout = RDLC; - RDLCLayout = './Local/Purchases/Document/BlanketPurchaseOrderGB.rdlc'; - Caption = 'Blanket Purchase Order'; - ObsoleteState = Pending; - ObsoleteReason = 'Moved to Reports GB app'; - ObsoleteTag = '27.0'; - - dataset - { - dataitem("Purchase Header"; "Purchase Header") - { - DataItemTableView = sorting("Document Type", "No.") where("Document Type" = const("Blanket Order")); - RequestFilterFields = "No.", "Buy-from Vendor No.", "No. Printed"; - RequestFilterHeading = 'Blanket Purchase Order'; - column(DocType_PurchaseHeader; "Document Type") - { - } - column(No_PurchaseHeader; "No.") - { - } - dataitem(CopyLoop; "Integer") - { - DataItemTableView = sorting(Number); - dataitem(PageLoop; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - column(DocumentCaption; StrSubstNo(Text002, CopyText)) - { - } - column(VendAddr1; VendAddr[1]) - { - } - column(CompanyAddr1; CompanyAddr[1]) - { - } - column(VendAddr2; VendAddr[2]) - { - } - column(CompanyAddr2; CompanyAddr[2]) - { - } - column(VendAddr3; VendAddr[3]) - { - } - column(CompanyAddr3; CompanyAddr[3]) - { - } - column(VendAddr4; VendAddr[4]) - { - } - column(CompanyAddr4; CompanyAddr[4]) - { - } - column(VendAddr5; VendAddr[5]) - { - } - column(CompanyInfoPhoneNo; CompanyInfo."Phone No.") - { - } - column(VendAddr6; VendAddr[6]) - { - } - column(CompanyInfoHomePage; CompanyInfo."Home Page") - { - } - column(CompanyInfoEMail; CompanyInfo."E-Mail") - { - } - column(CompanyInfoVATRegNo; CompanyInfo."VAT Registration No.") - { - } - column(CompanyInfoBankName; CompanyInfo."Bank Name") - { - } - column(CompanyInfoBankAccountNo; CompanyInfo."Bank Account No.") - { - } - column(ShipmentMethodCaption; ShipmentMethodCaptionLbl) - { - } - column(PaymentDiscountCaption; PaymentDiscountCaptionLbl) - { - } - column(ShipmentMethodDescription; ShipmentMethod.Description) - { - } - column(PaymentDiscountText; PaymentDiscountText) - { - } - column(DocumentDateCaption; DocumentDateCaptionLbl) - { - } - column(PayToVendNo_PurchHeader; "Purchase Header"."Pay-to Vendor No.") - { - } - column(DocDate_PurchaseHeader; Format("Purchase Header"."Document Date")) - { - } - column(VATNoText; VATNoText) - { - } - column(VATRegNo_PurchaseHeader; "Purchase Header"."VAT Registration No.") - { - } - column(ExpectedRcptDate_PurchHdr; Format("Purchase Header"."Expected Receipt Date")) - { - } - column(PurchaserText; PurchaserText) - { - } - column(SalesPurchPersonName; SalesPurchPerson.Name) - { - } - column(ReferenceText; ReferenceText) - { - } - column(YourReference_PurchHeader; "Purchase Header"."Your Reference") - { - } - column(VendAddr7; VendAddr[7]) - { - } - column(VendAddr8; VendAddr[8]) - { - } - column(CompanyAddr5; CompanyAddr[5]) - { - } - column(CompanyAddr6; CompanyAddr[6]) - { - } - column(CompanyInfoBankBranchNo; CompanyInfo."Bank Branch No.") - { - } - column(PageCaption; StrSubstNo(Text003, '')) - { - } - column(OutputNo; OutputNo) - { - } - column(BuyFromVendNo_PurchHeader; "Purchase Header"."Buy-from Vendor No.") - { - } - column(PhoneNoCaption; PhoneNoCaptionLbl) - { - } - column(VATRegNoCaption; VATRegNoCaptionLbl) - { - } - column(BankNameCaption; BankNameCaptionLbl) - { - } - column(BankAccNoCaption; BankAccNoCaptionLbl) - { - } - column(ExpectedDateCaption; ExpectedDateCaptionLbl) - { - } - column(BlanketPurchOrderNoCaption; BlanketPurchOrderNoCaptionLbl) - { - } - column(BankBranchNoCaption; BankBranchNoCaptionLbl) - { - } - column(HomePageCaption; HomePageCaptionLbl) - { - } - column(EMailCaption; EMailCaptionLbl) - { - } - column(PayToVendNo_PurchHeaderCaption; "Purchase Header".FieldCaption("Pay-to Vendor No.")) - { - } - column(BuyFromVendNo_PurchHeaderCaption; "Purchase Header".FieldCaption("Buy-from Vendor No.")) - { - } - dataitem(DimensionLoop1; "Integer") - { - DataItemLinkReference = "Purchase Header"; - DataItemTableView = sorting(Number) where(Number = filter(1 ..)); - column(DimText_DimensionLoop1; DimText) - { - } - column(Number_DimensionLoop1; Number) - { - } - column(HeaderDimensionsCaption; HeaderDimensionsCaptionLbl) - { - } - - trigger OnAfterGetRecord() - begin - if Number = 1 then begin - if not DimSetEntry1.Find('-') then - CurrReport.Break(); - end else - if not Continue then - CurrReport.Break(); - - Clear(DimText); - Continue := false; - repeat - OldDimText := DimText; - if DimText = '' then - DimText := StrSubstNo( - '%1 - %2', DimSetEntry1."Dimension Code", DimSetEntry1."Dimension Value Code") - else - DimText := - StrSubstNo( - '%1; %2 - %3', DimText, - DimSetEntry1."Dimension Code", DimSetEntry1."Dimension Value Code"); - if StrLen(DimText) > MaxStrLen(OldDimText) then begin - DimText := OldDimText; - Continue := true; - exit; - end; - until (DimSetEntry1.Next() = 0); - end; - - trigger OnPreDataItem() - begin - if not ShowInternalInfo then - CurrReport.Break(); - end; - } - dataitem("Purchase Line"; "Purchase Line") - { - DataItemLink = "Document Type" = field("Document Type"), "Document No." = field("No."); - DataItemLinkReference = "Purchase Header"; - DataItemTableView = sorting("Document Type", "Document No.", "Line No."); - - trigger OnPreDataItem() - begin - CurrReport.Break(); - end; - } - dataitem(RoundLoop; "Integer") - { - DataItemTableView = sorting(Number); - column(Description_PurchaseLine; "Purchase Line".Description) - { - } - column(TypeNo_PurchaseLine; TypeNo_PurchaseLine) - { - } - column(LineNo_PurchaseLine; "Purchase Line"."Line No.") - { - } - column(Quantity_PurchaseLine; "Purchase Line".Quantity) - { - } - column(UnitofMeasure_PurchLine; "Purchase Line"."Unit of Measure") - { - } - column(ExpectedRcptDate_PurchLine; Format("Purchase Line"."Expected Receipt Date")) - { - } - column(ShowInternalInfo; ShowInternalInfo) - { - } - column(PurchaseLineNo; "Purchase Line"."No.") - { - } - column(VendorItemNo_PurchaseLine; "Purchase Line"."Vendor Item No.") - { - } - column(ExpectedDateCaption1; ExpectedDateCaption1Lbl) - { - } - column(OurNoCaption; OurNoCaptionLbl) - { - } - column(NoCaption; NoCaptionLbl) - { - } - column(Description_PurchaseLineCaption; "Purchase Line".FieldCaption(Description)) - { - } - column(Quantity_PurchaseLineCaption; "Purchase Line".FieldCaption(Quantity)) - { - } - column(UnitofMeasure_PurchLineCaption; "Purchase Line".FieldCaption("Unit of Measure")) - { - } - dataitem(DimensionLoop2; "Integer") - { - DataItemTableView = sorting(Number) where(Number = filter(1 ..)); - column(DimText_DimensionLoop2; DimText) - { - } - column(Number_DimensionLoop2; Number) - { - } - column(LineDimensionsCaption; LineDimensionsCaptionLbl) - { - } - - trigger OnAfterGetRecord() - begin - if Number = 1 then begin - if not DimSetEntry2.Find('-') then - CurrReport.Break(); - end else - if not Continue then - CurrReport.Break(); - - Clear(DimText); - Continue := false; - repeat - OldDimText := DimText; - if DimText = '' then - DimText := StrSubstNo( - '%1 - %2', DimSetEntry2."Dimension Code", DimSetEntry2."Dimension Value Code") - else - DimText := - StrSubstNo( - '%1; %2 - %3', DimText, - DimSetEntry2."Dimension Code", DimSetEntry2."Dimension Value Code"); - if StrLen(DimText) > MaxStrLen(OldDimText) then begin - DimText := OldDimText; - Continue := true; - exit; - end; - until (DimSetEntry2.Next() = 0); - end; - - trigger OnPreDataItem() - begin - if not ShowInternalInfo then - CurrReport.Break(); - end; - } - - trigger OnAfterGetRecord() - begin - if Number = 1 then - PurchLine.Find('-') - else - PurchLine.Next(); - "Purchase Line" := PurchLine; - - DimSetEntry2.SetRange("Dimension Set ID", "Purchase Line"."Dimension Set ID"); - - TypeNo_PurchaseLine := "Purchase Line".Type.AsInteger(); - end; - - trigger OnPostDataItem() - begin - PurchLine.DeleteAll(); - end; - - trigger OnPreDataItem() - begin - MoreLines := PurchLine.Find('+'); - while MoreLines and (PurchLine.Description = '') and (PurchLine."Description 2" = '') and - (PurchLine."No." = '') and (PurchLine.Quantity = 0) and - (PurchLine.Amount = 0) - do - MoreLines := PurchLine.Next(-1) <> 0; - if not MoreLines then - CurrReport.Break(); - PurchLine.SetRange("Line No.", 0, PurchLine."Line No."); - SetRange(Number, 1, PurchLine.Count); - end; - } - dataitem(Total; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - } - dataitem("Integer"; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - - trigger OnPreDataItem() - begin - if "Purchase Header"."Buy-from Vendor No." = "Purchase Header"."Pay-to Vendor No." then - CurrReport.Break(); - end; - } - dataitem(Integer2; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - dataitem(Total3; "Integer") - { - DataItemTableView = sorting(Number) where(Number = const(1)); - column(SellToCustNo_PurchHeader; "Purchase Header"."Sell-to Customer No.") - { - } - column(ShipToAddr1; ShipToAddr[1]) - { - } - column(ShipToAddr2; ShipToAddr[2]) - { - } - column(ShipToAddr3; ShipToAddr[3]) - { - } - column(ShipToAddr4; ShipToAddr[4]) - { - } - column(ShipToAddr5; ShipToAddr[5]) - { - } - column(ShipToAddr6; ShipToAddr[6]) - { - } - column(ShipToAddr7; ShipToAddr[7]) - { - } - column(ShipToAddr8; ShipToAddr[8]) - { - } - column(ShipToAddressCaption; ShipToAddressCaptionLbl) - { - } - column(SellToCustNo_PurchHeaderCaption; "Purchase Header".FieldCaption("Sell-to Customer No.")) - { - } - } - - trigger OnPreDataItem() - begin - if ("Purchase Header"."Sell-to Customer No." = '') and (ShipToAddr[1] = '') then - CurrReport.Break(); - end; - } - } - - trigger OnAfterGetRecord() - begin - Clear(PurchLine); - Clear(PurchPost); - PurchLine.DeleteAll(); - PurchPost.GetPurchLines("Purchase Header", PurchLine, 0); - - if Number > 1 then begin - CopyText := Text001; - OutputNo += 1; - end; - end; - - trigger OnPostDataItem() - begin - if not CurrReport.Preview then - CODEUNIT.Run(CODEUNIT::"Purch.Header-Printed", "Purchase Header"); - end; - - trigger OnPreDataItem() - begin - NoOfLoops := Abs(NoOfCopies) + 1; - CopyText := ''; - SetRange(Number, 1, NoOfLoops); - OutputNo := 1; - end; - } - - trigger OnAfterGetRecord() - var - FeatureTelemetry: Codeunit "Feature Telemetry"; - begin - FeatureTelemetry.LogUsage('0000OJE', FeatureNameTok, EventNameTok); - CurrReport.Language := GlobalLanguage.GetLanguageIdOrDefault("Language Code"); - CurrReport.FormatRegion := GlobalLanguage.GetFormatRegionOrDefault("Format Region"); - - CompanyInfo.Get(); - - if RespCenter.Get("Responsibility Center") then begin - FormatAddr.RespCenter(CompanyAddr, RespCenter); - CompanyInfo."Phone No." := RespCenter."Phone No."; - CompanyInfo."Fax No." := RespCenter."Fax No."; - end else - FormatAddr.Company(CompanyAddr, CompanyInfo); - - DimSetEntry1.SetRange("Dimension Set ID", "Purchase Header"."Dimension Set ID"); - - if "Purchaser Code" = '' then begin - SalesPurchPerson.Init(); - PurchaserText := ''; - end else begin - SalesPurchPerson.Get("Purchaser Code"); - PurchaserText := Text000 - end; - if "Your Reference" = '' then - ReferenceText := '' - else - ReferenceText := FieldCaption("Your Reference"); - if "VAT Registration No." = '' then - VATNoText := '' - else - VATNoText := FieldCaption("VAT Registration No."); - FormatAddr.PurchHeaderPayTo(VendAddr, "Purchase Header"); - - if "Shipment Method Code" = '' then - ShipmentMethod.Init() - else - ShipmentMethod.Get("Shipment Method Code"); - - if ("VAT Base Discount %" = 0) and ("Payment Discount %" = 0) then - PaymentDiscountText := '' - else - PaymentDiscountText := - StrSubstNo( - Text1040002, - "Payment Discount %", "VAT Base Discount %"); - - FormatAddr.PurchHeaderShipTo(ShipToAddr, "Purchase Header"); - - if LogInteraction then - if not CurrReport.Preview then - SegManagement.LogDocument( - 12, "No.", 0, 0, DATABASE::Vendor, "Pay-to Vendor No.", "Purchaser Code", '', "Posting Description", ''); - end; - } - } - - requestpage - { - SaveValues = true; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(NoOfCopies; NoOfCopies) - { - ApplicationArea = Basic, Suite; - Caption = 'No. of Copies'; - ToolTip = 'Specifies how many copies of the document to print.'; - } - field(ShowInternalInformation; ShowInternalInfo) - { - ApplicationArea = Basic, Suite; - Caption = 'Show Internal Information'; - ToolTip = 'Specifies if you want the printed report to show information that is only for internal use'; - } - field(LogInteraction; LogInteraction) - { - ApplicationArea = Basic, Suite; - Caption = 'Log Interaction'; - Enabled = LogInteractionEnable; - ToolTip = 'Specifies if you want the program to log this interaction.'; - } - } - } - } - - actions - { - } - - trigger OnInit() - begin - LogInteractionEnable := true; - end; - - trigger OnOpenPage() - begin - LogInteraction := SegManagement.FindInteractionTemplateCode("Interaction Log Entry Document Type"::"Purch. Blnkt. Ord.") <> ''; - LogInteractionEnable := LogInteraction; - end; - } - - labels - { - } - - var - Text000: Label 'Purchaser'; - Text001: Label ' COPY'; - Text002: Label 'Blanket Purchase Order%1'; - Text003: Label 'Page %1'; - ShipmentMethod: Record "Shipment Method"; - SalesPurchPerson: Record "Salesperson/Purchaser"; - CompanyInfo: Record "Company Information"; - PurchLine: Record "Purchase Line" temporary; - DimSetEntry1: Record "Dimension Set Entry"; - DimSetEntry2: Record "Dimension Set Entry"; - RespCenter: Record "Responsibility Center"; - GlobalLanguage: Codeunit Language; - PurchPost: Codeunit "Purch.-Post"; - FormatAddr: Codeunit "Format Address"; - SegManagement: Codeunit SegManagement; - VendAddr: array[8] of Text; - ShipToAddr: array[8] of Text; - CompanyAddr: array[8] of Text; - PurchaserText: Text; - VATNoText: Text; - ReferenceText: Text; - PaymentDiscountText: Text; - MoreLines: Boolean; - NoOfCopies: Integer; - NoOfLoops: Integer; - CopyText: Text; - DimText: Text; - OldDimText: Text; - ShowInternalInfo: Boolean; - Continue: Boolean; - Text1040002: Label '%1 %, VAT discounted at %2 % '; - LogInteraction: Boolean; - OutputNo: Integer; - TypeNo_PurchaseLine: Integer; - LogInteractionEnable: Boolean; - ShipmentMethodCaptionLbl: Label 'Shipment Method'; - PaymentDiscountCaptionLbl: Label 'Payment Discount'; - DocumentDateCaptionLbl: Label 'Document Date'; - PhoneNoCaptionLbl: Label 'Phone No.'; - VATRegNoCaptionLbl: Label 'VAT Reg. No.'; - BankNameCaptionLbl: Label 'Bank'; - BankAccNoCaptionLbl: Label 'Account No.'; - ExpectedDateCaptionLbl: Label 'Expected Date'; - BlanketPurchOrderNoCaptionLbl: Label 'Blanket Purchase Order No.'; - BankBranchNoCaptionLbl: Label 'Bank Branch No.'; - HomePageCaptionLbl: Label 'Home Page'; - EMailCaptionLbl: Label 'E-Mail'; - HeaderDimensionsCaptionLbl: Label 'Header Dimensions'; - ExpectedDateCaption1Lbl: Label 'Expected Date'; - OurNoCaptionLbl: Label 'Our No.'; - NoCaptionLbl: Label 'No.'; - LineDimensionsCaptionLbl: Label 'Line Dimensions'; - ShipToAddressCaptionLbl: Label 'Ship-to Address'; - FeatureNameTok: Label 'Blanket Purchase Order GB', Locked = true; - EventNameTok: Label 'Blanket Purchase Order GB report has been used', Locked = true; -} -#endif diff --git a/src/Layers/GB/BaseApp/Local/Purchases/Document/BlanketPurchaseOrderGB.rdlc b/src/Layers/GB/BaseApp/Local/Purchases/Document/BlanketPurchaseOrderGB.rdlc deleted file mode 100644 index cc96263b0c7..00000000000 --- a/src/Layers/GB/BaseApp/Local/Purchases/Document/BlanketPurchaseOrderGB.rdlc +++ /dev/null @@ -1,3717 +0,0 @@ - - - 0 - - - - SQL - - - None - 963c99f7-727d-4766-8d74-ce1b488173fc - - - - - - - - - - - 17.86004cm - - - - - 7.64299cm - - - - - - - - - - 0.86614in - - - 0.3937in - - - 0.49327in - - - 2.3622in - - - 0.8718in - - - 0.85023in - - - 1.19416in - - - - - 0.35278cm - - - - - true - true - - - - - =First(Fields!NoCaption.Value) - - - - - - - 24 - - - - - - - - true - true - - - - - =First(Fields!OurNoCaption.Value) - - - - - - - 23 - - - 2 - - - - - - - true - true - - - - - =Fields!Description_PurchaseLineCaption.Value - - - - - - - 22 - - - - - - - - true - true - - - - - =Fields!Quantity_PurchaseLineCaption.Value - - - - - - - 21 - - - - - - - - true - true - - - - - =First(Fields!UnitofMeasure_PurchLine.Value) - - - - - - - 20 - - - - - - - - true - true - - - - - =First(Fields!ExpectedDateCaption1.Value) - - - - - - - 19 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox1 - - - - - - Bottom - 5pt - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox31 - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox23 - 17 - - - 3 - - - - - - - - true - - - - - =Fields!Description_PurchaseLine.Value - - - - - - - 16 - - - 4 - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox31 - 14 - - - 3 - - - - - - - - true - - - - - =Fields!Description_PurchaseLine.Value - - - - - - - 13 - - - - - - - - true - true - - - - - =Fields!Quantity_PurchaseLine.Value - - - - - - - 12 - - =IIF(Fields!Quantity_PurchaseLine.Value=0,True,False) - - NoOutput - - - - - - - - true - - - - - =Fields!UnitofMeasure_PurchLine.Value - - - - - - - 11 - - - - - - - - true - - - - - =Fields!ExpectedRcptDate_PurchLine.Value - - - - - - - 10 - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!VendorItemNo_PurchaseLine.Value - - - - - - - 8 - - - - - - - - true - true - - - - - =Fields!PurchaseLineNo.Value - - - - - - - 7 - - - 2 - - - - - - - true - - - - - =Fields!Description_PurchaseLine.Value - - - - - - - 6 - - - - - - - - true - true - - - - - =Fields!Quantity_PurchaseLine.Value - - - - - - - 5 - - =IIF(Fields!Quantity_PurchaseLine.Value=0,True,False) - - NoOutput - - - - - - - - true - - - - - =Fields!UnitofMeasure_PurchLine.Value - - - - - - - 4 - - - - - - - - true - - - - - =Fields!ExpectedRcptDate_PurchLine.Value - - - - - - - 3 - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!LineDimensionsCaption.Value - - - - - - - 1 - - =IIF(Fields!Number_DimensionLoop2.Value = 1,False,True) - - NoOutput - - - 2 - - - - - - - true - - - - - =Fields!DimText_DimensionLoop2.Value - - - - - - - textbox8 - - - 5 - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - - - After - true - - - - - =Fields!LineNo_PurchaseLine.Value - - - - - - =IIF(Fields!TypeNo_PurchaseLine.Value = 0,False,True) - - After - true - - - - =IIF((Fields!TypeNo_PurchaseLine.Value = 1 And Not(Fields!ShowInternalInfo.Value)),False,True) - - After - true - - - - =IIF( -(Fields!TypeNo_PurchaseLine.Value = 2) OR -(Fields!TypeNo_PurchaseLine.Value = 4) OR -((Fields!TypeNo_PurchaseLine.Value = 1) AND (Fields!ShowInternalInfo.Value)) ,False,True) - - After - true - - - - Detail - - - - - =IIF(Fields!DimText_DimensionLoop2.Value = "",True,False) - - - - Detail_Collection - Output - true - - - - - - DataSet_Result - - - =Fields!NoCaption.Value - GreaterThan - - - - - - 2.11666cm - 7.0315in - - =IIF(Fields!NoCaption.Value="",True,False) - - NoOutput - - - - - - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =IIF(Code.IsNewPage(),TRUE,FALSE) - - - - - - - - - - - - - - - - - - - - - true - - - - 0.17638cm - 0.66464cm - 1 - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!HeaderDimensionsCaption.Value - - - - - - - - - - - true - - - - - =Fields!DimText_DimensionLoop1.Value - - - - - - - - - - - - - - - - - - - - - - Detail - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!HeaderDimensionsCaption.Value - GreaterThan - - - - - - 2.5903in - 1.05834cm - 17.86001cm - 2 - - =IIF(Fields!HeaderDimensionsCaption.Value = "",True,False) - - NoOutput - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddressCaption.Value - - - - - - - - - - - - - - - - - - - - - Detail - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!ShipToAddressCaption.Value - GreaterThan - - - - - - 2.15549cm - 1.05834cm - 17.86004cm - 3 - - =IIF(Fields!ShipToAddressCaption.Value = "",True,False) - - NoOutput - - - - - - - - - - - true - - - - - =Fields!SellToCustNo_PurchHeader.Value - - - - - - - 2 - - - - - - - - - - - - - - - - - - - Detail - - - - - Detail_Collection - Output - true - - - - - - =Fields!SellToCustNo_PurchHeaderCaption.Value - GreaterThan - - - - - - 3.27733cm - 0.35278cm - 17.86004cm - 4 - - =IIF(Fields!SellToCustNo_PurchHeader.Value = "",True,False) - - NoOutput - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr2.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr3.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr4.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr5.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr6.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr7.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr8.Value - - - - - - 2 - - - - - - - - - - - - - - - - - - Detail - - - - - - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!ShipToAddressCaption.Value - GreaterThan - - - - - - 3.69361cm - 1.11112in - 17.86001cm - 5 - - =IIF(Fields!ShipToAddressCaption.Value="",True,False) - - NoOutput - - - - 7.69592cm - - - - - - - 6.48089cm - 11pt - 4.2765cm - - - - true - - - - - =Code.GetData(37,1) - - - - - - - 5.06978cm - 11pt - 4.2765cm - 1 - - - - true - - - - - =Code.GetData(8,1) - - - - - - - 3.88083cm - 11pt - 11.25896cm - 2 - - - - true - - - - - =Code.GetData(7,1) - - - - - - - 3.52805cm - 11pt - 11.25896cm - 3 - - - - true - - - - - =Code.GetData(29,1) - - - - - - - 6.83367cm - 4.4529cm - 11pt - 6.80606cm - 4 - - - - true - - - - - =Code.GetData(38,1) - - - - - - - 6.83367cm - 11pt - 4.2765cm - 5 - - - - true - - - - - =Code.GetData(27,1) - - - - - - - 5.77533cm - 4.4529cm - 11pt - 6.80606cm - 6 - - - - true - - - - - =Code.GetData(34,1) - - - - - - - 5.77533cm - 11pt - 4.2765cm - 7 - - - - true - true - - - - - =Code.GetData(28,1) - - - - - - - 6.48089cm - 4.4529cm - 11pt - 6.80606cm - 8 - - - - true - - - - - =Code.GetData(26,1) - - - - - - - 5.99749cm - 14.88508cm - 11pt - 2.97494cm - 9 - - - - true - - - - - =Code.GetData(35,1) - - - - - - - 5.99749cm - 4.43266in - 11pt - 3.59085cm - 10 - - - - true - - - - - =Code.GetData(25,1) - - - - - - - 5.42255cm - 4.4529cm - 11pt - 6.80606cm - 11 - - - - true - - - - - =Code.GetData(33,1) - - - - - - - 5.42255cm - 11pt - 4.2765cm - 12 - - - - true - true - - - - - =Code.GetData(24,1) - - - - - - - 5.06978cm - 4.4529cm - 11pt - 6.80606cm - 13 - - - - true - - - - - =Code.GetData(6,1) - - - - - - - 3.17527cm - 11pt - 11.25896cm - 14 - - - - true - - - - - =Code.GetData(5,1) - - - - - - - 2.82249cm - 11pt - 11.25896cm - 15 - - - - true - - - - - =Code.GetData(4,1) - - - - - - - 2.46971cm - 11pt - 11.25896cm - 16 - - - - true - - - - - =Code.GetData(3,1) - - - - - - - 2.11694cm - 11pt - 11.25896cm - 17 - - - - true - - - - - =Code.GetData(11,1) - - - - - - - 1.76416cm - 11.25896cm - 11pt - 6.60107cm - 18 - - - - true - - - - - =Code.GetData(2,1) - - - - - - - 1.76416cm - 11pt - 11.25896cm - 19 - - - - true - - - - - =Code.GetData(10,1) - - - - - - - 1.41138cm - 11.25896cm - 11pt - 6.60112cm - 20 - - - - true - - - - - =Code.GetData(1,1) - - - - - - - 1.41138cm - 11pt - 11.25896cm - 21 - - - - true - - - - - =Code.GetData(9,1) - - - - - - - 0.02646cm - 19.2576pt - 17.86003cm - 22 - - - - true - - - - - =Code.GetData(39,1) & " " & Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - 0.70583cm - 11pt - 17.86003cm - 23 - - =IIF(Code.GetData(9,1)="",True,False) - - NoOutput - - - - true - - - - - =Code.GetData(40,1) - - - - - - - 5.29194cm - 11.25896cm - 11pt - 3.59085cm - 24 - - - - true - - - - - =Code.GetData(41,1) - - - - - - - 5.64471cm - 11.25896cm - 11pt - 3.59085cm - 25 - - - - true - - - - - =Code.GetData(42,1) - - - - - - - 4.93916cm - 11.25896cm - 11pt - 3.59085cm - 26 - - - - true - - - - - =Code.GetData(43,1) - - - - - - - 4.58638cm - 11.25896cm - 11pt - 3.59085cm - 27 - - - - true - - - - - =Code.GetData(44,1) - - - - - - - 3.88083cm - 11.25896cm - 11pt - 3.59085cm - 28 - - - - true - - - - - =Code.GetData(45,1) - - - - - - - 3.52805cm - 11.25896cm - 11pt - 3.59085cm - 29 - - - - true - true - - - - - =Code.GetData(46,1) - - - - - - - 5.29194cm - 14.88508cm - 11pt - 2.97494cm - 30 - - - - true - - - - - =Code.GetData(15,1) - - - - - - - 3.17527cm - 11.25896cm - 11pt - 6.60107cm - 31 - - - - true - - - - - =Code.GetData(14,1) - - - - - - - 2.82249cm - 11.25896cm - 11pt - 6.60112cm - 32 - - - - true - true - - - - - =Code.GetData(47,1) - - - - - - - 5.64471cm - 14.88508cm - 11pt - 2.97494cm - 33 - - - - true - - - - - =Code.GetData(48,1) - - - - - - - 4.93916cm - 14.88508cm - 11pt - 2.97494cm - 34 - - - - true - true - - - - - =Code.GetData(49,1) - - - - - - - 4.58638cm - 14.88508cm - 11pt - 2.97494cm - 35 - - - - true - - - - - =Code.GetData(50,1) - - - - - - - 3.88083cm - 14.88508cm - 11pt - 2.97494cm - 36 - - - - true - - - - - =Code.GetData(16,1) - - - - - - - 3.52805cm - 14.88508cm - 11pt - 2.97494cm - 37 - - - - true - - - - - =Code.GetData(13,1) - - - - - - - 2.46971cm - 11.25896cm - 11pt - 6.60112cm - 38 - - - - true - - - - - =Code.GetData(12,1) - - - - - - - 2.11694cm - 11.25896cm - 11pt - 6.60107cm - 39 - - - - true - - - - - =Code.GetData(23,1) - - - - - - - 6.1281cm - 4.4529cm - 11pt - 6.80606cm - 40 - - - - true - true - - - - - =Code.GetData(51,1) - - - - - - - Textbox5 - 4.2336cm - 11.25896cm - 11pt - 3.59085cm - 41 - - - Top - - - - true - true - - - - - =Code.GetData(52,1) - - - - - - - Textbox6 - 4.2336cm - 14.88508cm - 11pt - 2.975cm - 42 - - - Top - - - - true - true - - - - - =Code.GetData(53,1) - - - - - - - Textbox11 - 6.1281cm - 11pt - 4.2765cm - 43 - - - Top - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Code.GetData(55,1) - - - - - - - 2.84319in - 11pt - 1.68367in - 46 - - - - true - - - - - =Code.GetData(31,1) - - - - - - - 2.84319in - 1.75311in - 11pt - 2.67957in - 47 - - - - true - - - - - =Code.GetData(56,1) - - - - - - - textbox7 - 2.98208in - 11pt - 1.68367in - 48 - - - - true - - - - - =Code.GetData(32,1) - - - - - - - textbox10 - 2.98208in - 1.75311in - 11pt - 2.67957in - 49 - - - - true - - - - - =Code.GetData(57,1) - - - - - - - 4.65693cm - 0.00005cm - 11pt - 4.2765cm - 50 - - - - true - true - - - - - =Code.GetData(58,1) - - - - - - - 4.65693cm - 4.45295cm - 11pt - 6.80606cm - 51 - - - - - - - - - Middle - 0.0625in - - - - - - - - true - true - - - - - =IIF(Code.IsNewPage(),TRUE,FALSE) - - - - - - - - - - - - - - - - - - - - - true - - - - DataSet_Result - 0.05556in - 6.12598in - 0.31742cm - 1.34397cm - - - - - - - Textbox209 - - - - - - - - true - true - - - - - - - - - - - - Textbox210 - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - Textbox207 - - - - - - - - true - true - - - - - - - - - - - - Textbox208 - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!HeaderDimensionsCaption.Value - - - - - - - 1 - - =IIF(Fields!Number_IntegerLine.Value = 1,False,True) - - NoOutput - - - - - - - - true - - - - - =Fields!DimText.Value - - - - - - - - - - - - - - - - - - - - - - - - After - - - After - - - - Detail - - - - - =IIF(Fields!Number_IntegerLine.Value >= 1,False,True) - - - - Detail_Collection - Output - true - - - - - - =Fields!HeaderDimensionsCaption.Value - GreaterThan - - - - - - 20.60091cm - 0.00001in - 1.05834cm - 7.14639in - 1 - - =IIF(Fields!HeaderDimensionsCaption.Value = "",True,False) - - NoOutput - - - - - - - 61 - - - - - - - - true - true - - - - - =Fields!Description_PurchLineCaption.Value - - - - - - - 60 - - - 2 - - - - - - - true - true - - - - - =Fields!Quantity_PurchLineCaption.Value - - - - - - - 59 - - - - - - - - true - true - - - - - =Fields!UnitofMeasure_PurchLineCaption.Value - - - - - - - 58 - - - - - - - - true - true - - - - - =Fields!DirectUnitCostCaption.Value - - - - - - - 57 - - - - - - - - true - true - - - - - =Fields!DiscountPercentageCaption.Value - - - - - - - 56 - - - - - - - - true - true - - - - - =Fields!VATIdentifier_PurchLineCaption.Value - - - - - - - 55 - - - - - - - - true - true - - - - - =Fields!AmountCaption.Value - - - - - - - 54 - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - - textbox30 - 53 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox93 - - - - - - Bottom - 5pt - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox18 - 52 - - - - - - - - true - - - - - =Fields!Description_PurchLine.Value - - - - - - - textbox43 - 51 - - - 6 - - - - - - - - - - - true - - - - - - - - - - - - textbox29 - 50 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!No_PurchLine.Value - - - - - - - 49 - - - - - - - - true - - - - - =Fields!Description_PurchLine.Value - - - - - - - 48 - - - 2 - - - - - - - true - true - - - - - =Fields!Quantity_PurchLine.Value - - - - - - - 47 - - =IIF(Fields!Quantity_PurchLine.Value=0,True,False) - - NoOutput - - - - - - - - true - true - - - - - =Fields!UnitofMeasure_PurchLine.Value - - - - - - - 46 - - - - - - - - true - true - - - - - =Code.BlankZero(Fields!DirectUnitCost_PurchLine.Value) - - - - - - - 45 - - - - - - - - true - true - - - - - =Fields!LineDiscount_PurchLine.Value - - - - - - - 44 - - =IIF(Fields!LineDiscount_PurchLine.Value = 0,True,False) - - NoOutput - - - - - - - - true - true - - - - - =Fields!VATIdentifier_PurchLine.Value - - - - - - - 43 - - - - - - - - true - true - - - - - =Fields!LineAmount_PurchLine.Value - - - - - - - 42 - - =IIF(Fields!LineAmount_PurchLine.Value=0,True,False) - - NoOutput - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!LineDimensionsCaption.Value - - - - - - - textbox40 - 1 - - - 2 - - - - - - - true - - - - - =Fields!DimText1.Value - - - - - - - DimTextControl74 - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox4 - 3 - - - 5 - - - - - - - - - - true - - - - - - - - - - - - textbox20 - 2 - - - 4 - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox28 - 6 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!SubtotalCaption.Value) - - - - - - - textbox45 - 5 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - - - - - - - 4 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox46 - 9 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!InvDiscountAmtCaption.Value) - - - - - - - textbox56 - 8 - - - 3 - - - - - - - - true - true - - - - - =-Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 7 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox220 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox211 - - - 8 - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox219 - - - - - - Bottom - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 12 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalText.Value) - - - - - - - textbox76 - 11 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 10 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 17 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 16 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 15 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 20 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATAmountLineVATAmtText.Value) - - - - - - - 19 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATAmount.Value) - - - - - - - 18 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox242 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox251 - - - 8 - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox260 - - - - - - Bottom - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 23 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 22 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) + Last(Fields!VATAmount.Value) - - - - - - - 21 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 25 - - - 5 - - - - - - - - - - true - - - - - - - - - - - - 24 - - - 4 - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - 28 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATDiscountAmtCaption.Value) - - - - - - - 27 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATDiscountAmount.Value) - - - - - - - 26 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox261 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox270 - - - 8 - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox278 - - - - - - Bottom - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 31 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 30 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - 29 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 33 - - - 5 - - - - - - - - - - true - - - - - - - - - - - - textbox170 - 32 - - - 4 - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 36 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATAmountLineVATAmtText.Value) - - - - - - - 35 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATAmount.Value) - - - - - - - 34 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 39 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 38 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATBaseAmount.Value) - - - - - - - 37 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 41 - - - 5 - - - - - - - - - - true - - - - - - - - - - - - 40 - - - 4 - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - true - - - After - true - - - - - =Fields!PurchLineLineNo.Value - - - - - - =IIF(Fields!PurchLineType.Value = " ",False,True) - - After - true - - - - =IIF(Fields!PurchLineType.Value <> " ",False,True) - - After - true - - - - Detail - - - - - =IIF(Fields!LineDimensionsCaption.Value="",True,False) - - - - Detail_Collection - Output - true - - - - - Before - true - - - - =IIF(Sum(Fields!InvDiscAmount_PurchLine.Value) <> 0,False,True) - - Before - true - - - - =IIF(Sum(Fields!InvDiscAmount_PurchLine.Value) <> 0,False,True) - - Before - true - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - true - - - - =IIF(NOT Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value)<>0,False,True) - - Before - true - - - - =IIF(NOT Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value)<>0,False,True) - - Before - true - - - - =IIF(NOT Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value)<>0,False,True) - - Before - - - - =IIF(NOT Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value)<>0,False,True) - - Before - - - - =IIF(NOT Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value)<>0,False,True) - - Before - true - - - - =IIF(NOT Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value)<>0,False,True) - - Before - true - - - - =IIF(Sum(Fields!VATDiscountAmount.Value)<>0 AND Sum(Fields!VATAmount.Value)<>0 AND Fields!PricesInclVAT_PurchHeader.Value AND Fields!VATBaseDisc_PurchHeader.Value<>0,False,True) - - Before - true - - - - =IIF(Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value) <>0,False,True) - - Before - - - - =IIF(Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value) <>0,False,True) - - Before - - - - =IIF(Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value) <>0,False,True) - - Before - true - - - - =IIF(Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value) <>0,False,True) - - Before - true - - - - =IIF(Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value) <>0,False,True) - - Before - true - - - - =IIF(Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value) <>0,False,True) - - Before - true - - - - =IIF(Fields!PricesInclVAT_PurchHeader.Value AND Sum(Fields!VATAmount.Value) <>0,False,True) - - Before - true - - - - DataSet_Result - - - =Fields!No2_PurchLineCaption.Value - GreaterThan - - - - - - 0.02646cm - 0.00001in - 7.76108cm - 7.14639in - 2 - - =IIF(Fields!No2_PurchLineCaption.Value="",True,False) - - NoOutput - - - - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.4064cm - - - - - true - - - - - =Fields!VATAmtSpecificationCaption.Value - - - - - - 2 - - - - - - - true - - - - - - - - - - - - 23 - - - 5 - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATIdentifierCaption.Value - - - - - - - - - - - true - - - - - =Fields!VATPercentageCaption.Value - - - - - - - textbox118 - 21 - - - - - - - - true - - - - - =First(Fields!LineAmountCaption.Value) - - - - - - - VATAmountLineLineAmountControl131Caption - 20 - - - - - - - - true - - - - - =First(Fields!InvDiscBaseAmtCaption.Value) - - - - - - - VATAmountLineInvDiscBaseAmountControl132Caption - 19 - - - - - - - - true - - - - - =First(Fields!InvoiceDiscountAmtCaption1.Value) - - - - - - - VATAmountLineInvoiceDiscountAmountControl133Caption - 18 - - - - - - - - true - - - - - =Fields!VATBaseCaption.Value - - - - - - - VATAmountLineVATBaseControl103Caption - 17 - - - - - - - - true - - - - - =First(Fields!VATAmountCaption.Value) - - - - - - - VATAmountLineVATAmountControl100Caption - 16 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmtLineVATIdentifier.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmountLineVAT.Value - - - - - - - VATAmountLineVAT - 5 - - - - - - - - true - true - - - - - =Fields!VATAmountLineLineAmount.Value - - - - - - - VATAmountLineLineAmount - 4 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscBaseAmt.Value - - - - - - - VATAmountLineInvDiscBaseAmount - 3 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvoiceDiscAmt.Value - - - - - - - VATAmountLineInvoiceDiscountAmount - 2 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATBase.Value - - - - - - - VATAmountLineVATBase - 1 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATAmount.Value - - - - - - - VATAmountLineVATAmount - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - 2 - - - - - - - true - true - - - - - - - - - - - - Textbox194 - - - - - - Top - 5pt - 5pt - - - 5 - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!TotalCaption.Value - - - - - - - - - - - true - - - - - - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineLineAmount.Value) - - - - - - - 12 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscBaseAmt.Value) - - - - - - - 11 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvoiceDiscAmt.Value) - - - - - - - 10 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATBase.Value) - - - - - - - 9 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATAmount.Value) - - - - - - - 8 - - - - - - - - - - - - - - - - - - - - - - - After - - - After - - - After - true - - - After - true - - - After - - - After - - - After - true - - - - Detail - - - - - Detail_Collection - Output - true - - - Before - true - - - Before - - - Before - true - - - - DataSet_Result - - - =Fields!VATAmtSpecificationCaption.Value - GreaterThan - - - - - - 8.14791cm - 0.00002in - 3.2286cm - 7.14641in - 3 - - =IIF(Fields!VATAmtSpecificationCaption.Value="",True,False) - - NoOutput - - - - - - - Textbox201 - - - - - - - - true - true - - - - - - - - - - - - Textbox202 - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - Textbox199 - - - - - - - - true - true - - - - - - - - - - - - Textbox200 - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!PaymentDetailsCaption.Value - - - - - - - 12 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VendNoCaption.Value - - - - - - - 11 - - - - - - - - true - - - - - =Fields!PaytoVendorNo_PurchHeader.Value - - - - - - - 10 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox138 - 9 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VendAddr1.Value - - - - - - - 7 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VendAddr2.Value - - - - - - - 6 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VendAddr3.Value - - - - - - - 5 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VendAddr4.Value - - - - - - - 4 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VendAddr5.Value - - - - - - - 3 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VendAddr6.Value - - - - - - - 2 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VendAddr7.Value - - - - - - - 1 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VendAddr8.Value - - - - - - - - - 2 - - - - - - - - - - - - - - - - - After - - - After - - - - Detail - - - - - - - - - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!PaymentDetailsCaption.Value - GreaterThan - - - - - - 11.39347cm - 0.00002in - 4.58614cm - 18.15181cm - 4 - - =IIF(Fields!PaymentDetailsCaption.Value ="",True,False) - - NoOutput - - - - - - - Textbox205 - - - - - - - - true - true - - - - - - - - - - - - Textbox206 - - - - - - - - 0.13889in - - - - - true - true - - - - - - - - - - - - Textbox203 - - - - - - - - true - true - - - - - - - - - - - - Textbox204 - - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShiptoAddressCaption.Value - - - - - - - 12 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!SelltoCustNo_PurchHeaderCaption.Value - - - - - - - 11 - - - - - - - - true - - - - - =Fields!SelltoCustNo_PurchHeader.Value - - - - - - - 10 - - - - - - - - 0.13889in - - - - - true - - - - - - - - - - - - textbox149 - 9 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr1.Value - - - - - - - 7 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr2.Value - - - - - - - 6 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr3.Value - - - - - - - 5 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr4.Value - - - - - - - 4 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr5.Value - - - - - - - 3 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr6.Value - - - - - - - 2 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr7.Value - - - - - - - 1 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr8.Value - - - - - - - - - 2 - - - - - - - - - - - - - - - - - After - - - After - - - - Detail - - - - - - =IIF(Fields!SelltoCustNo_PurchHeader.Value="",True,False) - - - - - =IIF(Fields!SelltoCustNo_PurchHeader.Value="",True,False) - - - - - - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!ShiptoAddressCaption.Value - GreaterThan - - - - - - 15.99372cm - 0.00001in - 1.80557in - 18.15183cm - 5 - - =IIF(Fields!ShiptoAddressCaption.Value="",True,False) - - NoOutput - - - - 21.73084cm - - - - - - - true - - - - - =Code.GetData(39,1) - - - - - - - true - - - - - =Code.GetData(40,1) - - - - - - - true - - - - - =Code.GetData(41,1) - - - - - - - true - - - - - =Code.GetData(42,1) - - - - - - - true - - - - - =Code.GetData(43,1) - - - - - - - true - - - - - =Code.GetData(44,1) - - - - - - - true - - - - - =Code.GetData(45,1) - - - - - - - true - - - - - =Code.GetData(19,1) - - - - - - - 5.62125cm - 14.45034cm - 11pt - 3.70151cm - 8 - - - - true - - - - - =Code.GetData(8,1) - - - - - - - true - - - - - =Code.GetData(7,1) - - - - - - - true - - - - - =Code.GetData(6,1) - - - - - - - true - - - - - =Code.GetData(5,1) - - - - - - - true - - - - - =Code.GetData(4,1) - - - - - - - true - - - - - =Code.GetData(3,1) - - - - - - - true - - - - - =Code.GetData(2,1) - - - - - - - true - - - - - =Code.GetData(1,1) - - - - - - - true - - - - - =Code.GetData(22,1) - - - - - - - 4.13959cm - 3.18528cm - 11pt - 8.78582cm - 17 - - - - true - - - - - =Code.GetData(14,1) - - - - - - - 3.33173cm - 11.99444cm - 11pt - 6.15741cm - 18 - - - - true - - - - - =Code.GetData(13,1) - - - - - - - 2.91192cm - 11.99444cm - 11pt - 6.13095cm - 19 - - - - true - - - - - =Code.GetData(28,1) - - - - - - - true - - - - - =Code.GetData(27,1) - - - - - - - true - - - - - =Code.GetData(29,1) - - - - - - - 5.2332cm - 3.18528cm - 11pt - 8.8211cm - 22 - - - - true - - - - - =Code.GetData(26,1) - - - - - - - 6.40089cm - 14.45034cm - 11pt - 3.67505cm - 23 - - - - true - - - - - =Code.GetData(25,1) - - - - - - - true - - - - - =Code.GetData(24,1) - - - - - - - true - - - - - =Code.GetData(23,1) - - - - - - - true - - - - - =Code.GetData(20,1) - - - - - - - 6.00931cm - 14.45034cm - 11pt - 3.67505cm - 27 - - - - true - - - - - =Code.GetData(18,1) - - - - - - - 5.2332cm - 14.45034cm - 11pt - 3.67505cm - 28 - - - - true - - - - - =Code.GetData(17,1) - - - - - - - 4.88042cm - 14.45034cm - 11pt - 3.70151cm - 29 - - - - true - - - - - =Code.GetData(15,1) - - - - - - - 3.75153cm - 14.45034cm - 11pt - 3.67505cm - 30 - - - - true - - - - - =Code.GetData(12,1) - - - - - - - 2.55914cm - 11.9945cm - 11pt - 6.15735cm - 31 - - - - true - - - - - =Code.GetData(11,1) - - - - - - - 2.15195cm - 12.0015cm - 11pt - 6.1239cm - 32 - - - - true - - - - - =Code.GetData(10,1) - - - - - - - 1.79917cm - 12.00638cm - 11pt - 6.11901cm - 33 - - - - true - - - - - =Code.GetData(9,1) - - - - - - - 1.44287cm - 11.99444cm - 11pt - 6.13095cm - 34 - - - - true - - - - - =Code.GetData(37,1) - - - - - - - 0.00003cm - 20pt - 18.12537cm - 35 - - - - true - - - - - =Code.GetData(21,1) - - - - - - - 6.00931cm - 3.18528cm - 11pt - 8.78582cm - 36 - - - - true - - - - - =Code.GetData(46,1) & Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - 0.70556cm - 11.99444cm - 11pt - 6.10408cm - 37 - - =IIF(Fields!OrderCaption.Value="",True,False) - - NoOutput - - - - true - - - - - =Code.GetData(30,1) - - - - - - - 5.62125cm - 3.18528cm - 11pt - 8.8211cm - 38 - - =IIF(Fields!OrderCaption.Value="",True,False) - - NoOutput - - - - true - true - - - - - =Code.GetData(47,1) - - - - - - - - - true - true - - - - - =Code.GetData(48,1) - - - - - - - - - true - true - - - - - =Code.GetData(31,1) - - - - - - - 4.13606cm - 14.45034cm - 11pt - 3.70151cm - 41 - - - - - - true - true - - - - - =Code.GetData(32,1) - - - - - - - 4.49236cm - 14.45034cm - 11pt - 3.70151cm - 42 - - - - - - true - true - - - - - =Code.GetData(49,1) - - - - - - - - - true - true - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - true - - - - - =Code.GetData(50,1) - - - - - - - true - - - - - =Code.GetData(33,1) - - - - - - - true - - - - - =Code.GetData(51,1) - - - - - - - true - true - - - - - =Code.GetData(34,1) - - - - - - - true - - - - - =Code.GetData(53,1) - - - - - - - true - - - - - =Code.GetData(36,1) - - - - - - - - - - - - - - - - - true - - - - - = Fields!Desc_PurchCrMemoLineCaption.Value - - - - - - 2 - - - - - - - true - - - - - = Fields!Qty_PurchCrMemoLineCaption.Value - - - - - - - 72 - - - - - - - - true - - - - - = Fields!UOM_PurchCrMemoLineCaption.Value - - - - - - - - - - - true - - - - - = Fields!DirectUnitCostCaption.Value - - - - - - - 70 - - - 2 - - - - - - - true - - - - - = Fields!LineDiscountCaption.Value - - - - - - - 69 - - - 2 - - - - - - - true - - - - - = Fields!VATIdent_PurchCrMemoLineCaption.Value - - - - - - - - - - - true - - - - - = Fields!AmtCaption.Value - - - - - - - 67 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - - true - - - - - =Fields!Desc_PurchCrMemoLine.Value - - - - - - 7 - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!No_PurchCrMemoLine.Value - - - - - - - 62 - - - - - - - - true - - - - - =Fields!Desc_PurchCrMemoLine.Value - - - - - - 2 - - - - - - - true - true - - - - - =Fields!Qty_PurchCrMemoLine.Value - - - - - - - - - - - true - - - - - =Fields!UOM_PurchCrMemoLine.Value - - - - - - - - - - - true - true - - - - - =Fields!DirUnitCost_PurchCrMemoLine.Value - - - - - - - 58 - - =IIF(Fields!DirUnitCost_PurchCrMemoLine.Value=0,True,False) - - NoOutput - - - 2 - - - - - - - true - - - - - =Fields!LineDisc_PurchCrMemoLine.Value - - - - - - 2 - - - - - - - true - - - - - =Fields!VATIdent_PurchCrMemoLine.Value - - - - - - - - - - - true - true - - - - - =Fields!LineAmt_PurchCrMemoLine.Value - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - - - - - =Fields!RevCharge_PurchCrMemoLineCaption.Value - - - - - - 3 - - - - - - - - true - true - - - - - =Fields!RevCharge_PurchCrMemoLine.Value - - - - - - 2 - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!LineDimsCaption.Value - - - - - - 2 - - - - - - - true - - - - - =Fields!DimText1.Value - - - - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!SubtotalCaption.Value) - - - - - - - 4 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!InvDiscountAmtCaption.Value) - - - - - - - 7 - - - 4 - - - - - - - - - true - true - - - - - =-Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalText.Value) - - - - - - - 10 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 14 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmtText.Value) - - - - - - - 17 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 20 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!PaymentDiscountVATCaption.Value) - - - - - - - 24 - - - 4 - - - - - - - - - true - true - - - - - =-(Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - Last(Fields!TotalAmountInclVAT.Value)) - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 27 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmtText.Value) - - - - - - - 31 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 34 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATTextLCY.Value) - - - - - - - 38 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!AmountLCY.Value) - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmtText.Value) - - - - - - - 41 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!AmountIncLCYAmountLCY.Value) - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox60 - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox61 - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox63 - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox64 - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox76 - - - - - - - - true - true - - - - - - - - - - - - Textbox77 - - - - - - - - true - true - - - - - - - - - - - - Textbox78 - - - - - - - - true - true - - - - - - - - - - - - Textbox79 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Last(Fields!ExchangeRateCaption.Value) - - - - - - 2 - - - - - - - true - - - - - =Last(Fields!CurrencyFactor_PurchCrMemoHdr.Value) - - - - - - - 45 - - - 4 - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATTextLCY.Value) - - - - - - - 44 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!AmountIncLCY.Value) - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 5 - - - - - - - - - - true - - - - - - - - - - - - - true - - - - - =Fields!RevCharge_PurchCrMemoLine.Value - - - - - - - textbox7 - 48 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalReverseCharge.Value) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - true - - - - - - - =Fields!No_PurchCrMemoHdr.Value - =Fields!LineNo_PurchCrMemoLine.Value - - - - - =Fields!No_PurchCrMemoHdr.Value - - - - - - =(Fields!Type_PurchCrMemoLine.Value <> 0) - - After - - - - =(Fields!Type_PurchCrMemoLine.Value = 0) - - After - - - - =IIF(Len(Fields!RevCharge_PurchCrMemoLine.Value) and Fields!RevCharge_PurchCrMemoLine.Value <> 0,False,True) - - After - - - - Detail - - - - - =IIF(Fields!LineDimsCaption.Value="",True,False) - - - - Detail_Collection - Output - true - - - - - true - - - - =IIF(Sum(Fields!InvDiscAmt_PurchCrMemoLine.Value)<>0,False,True) - - true - - - - =IIF(Sum(Fields!InvDiscAmt_PurchCrMemoLine.Value)<>0,False,True) - - true - - - - =IIF(Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) = sum(Fields!Amt_PurchCrMemoLine.Value),False,True) - - - - - =IIF(Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) = sum(Fields!Amt_PurchCrMemoLine.Value),False,True) - - - - - =IIF(Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) = sum(Fields!Amt_PurchCrMemoLine.Value),False,True) - - true - - - - =IIF(Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) = sum(Fields!Amt_PurchCrMemoLine.Value),False,True) - - true - - - - =IIF((NOT Fields!PricIncVAT_PurchCrMemoHdr.Value) AND (Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value)<>Sum(Fields!Amt_PurchCrMemoLine.Value)),False,True) - - true - - - - =IIF((NOT Fields!PricIncVAT_PurchCrMemoHdr.Value) AND (Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value)<>Sum(Fields!Amt_PurchCrMemoLine.Value)),False,True) - - true - - - - =IIF((NOT Fields!PricIncVAT_PurchCrMemoHdr.Value) AND (Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value)<>Sum(Fields!Amt_PurchCrMemoLine.Value)),False,True) - - - - - =IIF((NOT Fields!PricIncVAT_PurchCrMemoHdr.Value) AND (Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value)<>Sum(Fields!Amt_PurchCrMemoLine.Value)),False,True) - - - - - =IIF((NOT Fields!PricIncVAT_PurchCrMemoHdr.Value) AND (Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value)<>Sum(Fields!Amt_PurchCrMemoLine.Value)),False,True) - - true - - - - =IIF((NOT Fields!PricIncVAT_PurchCrMemoHdr.Value) AND (Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value)<>Sum(Fields!Amt_PurchCrMemoLine.Value)),False,True) - - true - - - - =IIF(Fields!PricIncVAT_PurchCrMemoHdr.Value AND ((Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) <> Sum(Fields!Amt_PurchCrMemoLine.Value)) AND (Fields!VATBaseDiscPct_PurchCrMemoHdr.Value<>0)),False,True) - - true - - - - =IIF(Fields!PricIncVAT_PurchCrMemoHdr.Value AND ((Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) <> Sum(Fields!Amt_PurchCrMemoLine.Value))),False,True) - - - - - =IIF(Fields!PricIncVAT_PurchCrMemoHdr.Value AND ((Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) <> Sum(Fields!Amt_PurchCrMemoLine.Value))),False,True) - - - - - =IIF(Fields!PricIncVAT_PurchCrMemoHdr.Value AND ((Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) <> Sum(Fields!Amt_PurchCrMemoLine.Value))),False,True) - - true - - - - =IIF(Fields!PricIncVAT_PurchCrMemoHdr.Value AND ((Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) <> Sum(Fields!Amt_PurchCrMemoLine.Value))),False,True) - - true - - - - =IIF(Fields!PricIncVAT_PurchCrMemoHdr.Value AND ((Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) <> Sum(Fields!Amt_PurchCrMemoLine.Value))),False,True) - - true - - - - =IIF(Fields!PricIncVAT_PurchCrMemoHdr.Value AND ((Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) <> Sum(Fields!Amt_PurchCrMemoLine.Value))),False,True) - - true - - - - =IIF(Fields!PricIncVAT_PurchCrMemoHdr.Value AND ((Sum(Fields!AmtIncVAT_PurchCrMemoLine.Value) <> Sum(Fields!Amt_PurchCrMemoLine.Value))),False,True) - - true - - - - =IIF(Fields!CurrCode_PurchCrMemoHdr.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - true - - - - =IIF(Fields!CurrCode_PurchCrMemoHdr.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - true - - - - =IIF(Fields!CurrCode_PurchCrMemoHdr.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - - - - =IIF(Fields!CurrCode_PurchCrMemoHdr.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - - - - =IIF(Fields!CurrCode_PurchCrMemoHdr.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - true - - - - =IIF(Last(Fields!TotalReverseCharge.Value) = 0,True,False) - - true - - - - DataSet_Result - - - =Fields!No_PurchCrMemoLineCaption.Value - GreaterThan - - - - - - 0.00523cm - 10.5833cm - 18.09997cm - - =IIF(Fields!No_PurchCrMemoLineCaption.Value="",True,False) - - NoOutput - - - - - - - - - - - true - - - - - - - - - - - - - - - - true - - - - - - - - - - - Middle - 0.0625in - - - - - - - - true - - - - - - - - - - - - - - - - true - - - - - - - - - - - - - - - - true - - - - - =IIF(Code.IsNewPage(),TRUE,FALSE) - - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - - 0.0579in - 0.07938cm - 3.05294cm - 1 - - - - - - - - - - - true - - - - - =Fields!DimText.Value - - - - - - - - - - - - - - - - - - - - - - Detail - - - - - =IIF(Fields!Number_IntegerLine.Value >= 1,False,True) - - - - Detail_Collection - Output - true - - - - - - =Fields!HdrDimsCaption.Value - GreaterThan - - - - - - 7.56946in - 0.35278cm - 18.09999cm - 2 - - =IIF(Fields!HdrDimsCaption.Value = "",True,False) - - NoOutput - - - - - - 3 - - - - - - - - true - - - - - - - - - - - 4 - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATIdentCaption.Value - - - - - - - - - - - true - - - - - =Fields!VATCaption.Value - - - - - - - 22 - - - - - - - - true - - - - - =Fields!LineAmountCaption.Value - - - - - - - 21 - - - - - - - - true - - - - - =Fields!InvDiscBaseAmtCaption.Value - - - - - - - 20 - - - - - - - - true - - - - - =Fields!InvoiceDiscountAmtCaption.Value - - - - - - - 19 - - - - - - - - true - - - - - =Fields!VATBaseCaption.Value - - - - - - - 18 - - - - - - - - true - - - - - =Fields!VATAmountCaption.Value - - - - - - - 17 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmtLineVATIdentifier.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmountLineVAT.Value - - - - - - - VATAmountLineVAT - 5 - - - - - - - - true - true - - - - - =Fields!VATAmountLineLineAmount.Value - - - - - - - 4 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscBaseAmt.Value - - - - - - - 3 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscAmt.Value - - - - - - - 2 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATBase.Value - - - - - - - VATAmountLineVATBase - 1 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATAmount.Value - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - Middle - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Middle - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Middle - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Middle - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Middle - 5pt - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!TotalCaption.Value - - - - - - - - - - - true - - - - - - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineLineAmount.Value) - - - - - - - 12 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscBaseAmt.Value) - - - - - - - 11 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscAmt.Value) - - - - - - - 10 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATBase.Value) - - - - - - - 9 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATAmount.Value) - - - - - - - 8 - - - - - - - - 0.70556cm - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - After - true - - - After - true - - - - Detail - - - - - Detail_Collection - Output - true - - - Before - - - Before - true - - - Before - true - - - Before - true - - - - DataSet_Result - - - =Fields!VATAmtSpecificationCaption.Value - GreaterThan - - - - - - 11.34072cm - 2.82222cm - 18.09995cm - 3 - - =IIF(Fields!VATAmtSpecificationCaption.Value="",True,False) - - NoOutput - - - - - - - - - - - true - - - - - =Fields!BuyfrVendNo_PurchCrMemoHdr.Value - - - - - - - textbox190 - 1 - - - - - - - - 0.70556cm - - - - - true - - - - - - - - - - - 2 - - - - - - - - - - - - - - - - - - Detail - - - - - - Detail_Collection - Output - true - - - - - - =Fields!BuyfrVendNo_PurchCrMemoHdrCaption.Value - GreaterThan - - - - - - 14.17708cm - 1.05834cm - 6.03174cm - 4 - - =IIF(Fields!BuyfrVendNo_PurchCrMemoHdrCaption.Value = "",True,False) - - NoOutput - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr1.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr2.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr3.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr4.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr5.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr6.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr7.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr8.Value - - - - - - 2 - - - - - - - - - - - - - - - - - - Detail - - - - - - =IIF(Fields!ShipToAddr1.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr2.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr3.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr4.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr5.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr6.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr7.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr8.Value = "",True,False) - - - - Detail_Collection - Output - true - - - - true - - - =Fields!ShiptoAddressCaption.Value - GreaterThan - - - - - - 15.26717cm - 3.17502cm - 6.98411cm - 5 - - =IIF(Fields!ShiptoAddressCaption.Value="",True,False) - - NoOutput - - - - - - - 7.87778cm - 11pt - 3.22333cm - - - - true - - - - - = Fields!PostingDateCaption.Value - - - - - - - 6.275cm - 0.02646cm - 11pt - 3.22333cm - 1 - - - - true - - - - - = Fields!NoCaption.Value - - - - - - - 5.424cm - 0.02646cm - 11pt - 3.22333cm - 2 - - - - true - - - - - = Code.GetData(12,3) - - - - - - - 6.69673cm - 0.02644cm - 11pt - 7.32917cm - 3 - - - - true - - - - - = Fields!PaytoVendNo_PurchCrMemoHdrCaption.Value - - - - - - - 4.20203cm - 0.02646cm - 11pt - 3.22333cm - 4 - - - - true - - - - - =Code.GetData(8,3) - - - - - - - 7.87778cm - 3.19687cm - 11pt - 7.32917cm - 5 - - =IIF(Code.GetData(1,2)="",True,False) - - NoOutput - - - - true - - - - - =Code.GetData(7,3) - - - - - - - 6.275cm - 3.22333cm - 11pt - 7.32917cm - 6 - - - - true - - - - - =Code.GetData(8,1) - - - - - - - 3.80057cm - 0.02648cm - 11pt - 8.87698cm - 7 - - - - true - - - - - =Code.GetData(7,1) - - - - - - - 3.38573cm - 0.02648cm - 11pt - 8.87698cm - 8 - - - - true - - - - - =Code.GetData(6,3) - - - - - - - 5.85cm - 3.22333cm - 11pt - 7.32917cm - 9 - - - - true - - - - - = Fields!ReturnOrderNoText.Value - - - - - - - 5.85cm - 0.02646cm - 11pt - 3.22333cm - 10 - - - - true - - - - - =Code.GetData(4,3) - - - - - - - 7.06639cm - 3.22333cm - 11pt - 7.32917cm - 11 - - - - true - - - - - = Code.GetData(11,3) - - - - - - - 7.06639cm - 0.02646cm - 11pt - 3.22333cm - 12 - - - - true - - - - - =Code.GetData(5,3) - - - - - - - 5.424cm - 3.22333cm - 11pt - 7.32917cm - 13 - - - - true - - - - - =Code.GetData(3,3) - - - - - - - 7.14401cm - 14.76054cm - 11pt - 3.38922cm - 14 - - - - true - - - - - = Code.GetData(10,3) - - - - - - - true - - - - - =Code.GetData(2,3) - - - - - - - 4.5858cm - 3.22333cm - 11pt - 7.32917cm - 16 - - - - true - - - - - = Code.GetData(9,3) - - - - - - - 4.5858cm - 0.02646cm - 11pt - 3.22333cm - 17 - - - - true - - - - - =Code.GetData(1,3) - - - - - - - 4.20203cm - 3.22333cm - 11pt - 7.32917cm - 18 - - - - true - - - - - =Code.GetData(6,1) - - - - - - - 2.96306cm - 0.02648cm - 11pt - 8.87698cm - 19 - - - - true - - - - - =Code.GetData(5,1) - - - - - - - 2.53973cm - 0.02648cm - 11pt - 8.87698cm - 20 - - - - true - - - - - =Code.GetData(4,1) - - - - - - - 2.11561cm - 0.02648cm - 11pt - 8.87698cm - 21 - - - - true - - - - - =Code.GetData(3,1) - - - - - - - 1.69228cm - 0.02648cm - 11pt - 8.87698cm - 22 - - - - true - - - - - =Code.GetData(2,2) - - - - - - - 2.11561cm - 8.90346cm - 11pt - 9.2463cm - 23 - - - - true - - - - - =Code.GetData(2,1) - - - - - - - 1.2721cm - 0.02648cm - 11pt - 8.87698cm - 24 - - - - true - - - - - =Code.GetData(1,2) - - - - - - - 1.69261cm - 8.90346cm - 11pt - 9.2463cm - 25 - - - - true - - - - - =Code.GetData(1,1) - - - - - - - 0.84877cm - 0.02648cm - 11pt - 8.87698cm - 26 - - - - true - - - - - =Code.GetData(15,2) - - - - - - - 0.06913cm - 0.69686cm - 20pt - 17.4529cm - 27 - - - - true - - - - - = (Fields!Pagecaption.Value) & Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - 0.84877cm - 8.90346cm - 11pt - 9.2463cm - 28 - - =IIF(Fields!CopyText.Value="",True,False) - - NoOutput - - - - true - - - - - = Fields!BankBranchNoCaption.Value - - - - - - - true - - - - - = Fields!BankAccNoCaption.Value - - - - - - - true - - - - - = Fields!BankNameCaption.Value - - - - - - - true - - - - - = Fields!VATRegNoCaption.Value - - - - - - - true - - - - - = Fields!HomePageCaption.Value - - - - - - - true - - - - - = Fields!PhoneNoCaption.Value - - - - - - - true - - - - - =Code.GetData(11,2) - - - - - - - 6.30087cm - 14.76054cm - 11pt - 3.38922cm - 35 - - - - true - - - - - =Code.GetData(6,2) - - - - - - - 3.80873cm - 8.90346cm - 11pt - 9.2463cm - 36 - - - - true - - - - - =Code.GetData(5,2) - - - - - - - 3.38573cm - 8.90346cm - 11pt - 9.2463cm - 37 - - - - true - - - - - =Code.GetData(12,2) - - - - - - - 6.7242cm - 14.76054cm - 11pt - 3.38922cm - 38 - - - - true - - - - - =Code.GetData(10,2) - - - - - - - 5.87148cm - 14.76054cm - 11pt - 3.38922cm - 39 - - - - true - - - - - =Code.GetData(9,2) - - - - - - - 5.45873cm - 14.76054cm - 11pt - 3.38922cm - 40 - - - - true - - - - - =Code.GetData(8,2) - - - - - - - 4.65473cm - 14.76054cm - 11pt - 3.38922cm - 41 - - - - true - - - - - =Code.GetData(7,2) - - - - - - - 4.23173cm - 14.76054cm - 11pt - 3.38922cm - 42 - - - - true - - - - - =Code.GetData(4,2) - - - - - - - 2.96273cm - 8.90346cm - 11pt - 9.2463cm - 43 - - - - true - - - - - =Code.GetData(3,2) - - - - - - - 2.53973cm - 8.90346cm - 11pt - 9.2463cm - 44 - - - - true - - - - - =Code.GetData(13,2) - - - - - - - 5.00355cm - 3.22333cm - 11pt - 7.32917cm - 45 - - - - true - - - - - = Fields!EMailCaption.Value - - - - - - - true - - - - - =Code.GetData(14,2) - - - - - - - 5.07068cm - 14.76054cm - 11pt - 3.38922cm - 47 - - - - true - - - - - = Fields!DocDateCaption.Value - - - - - - - 5.00355cm - 0.02646cm - 11pt - 3.22333cm - 48 - - - - true - - - - - = Fields!PaymentDiscountCaption.Value - - - - - - - 2.94871in - 0.02646cm - 0.15278in - 1.26903in - 49 - - - - true - - - - - =Code.GetData(13,3) - - - - - - - 2.94871in - 1.26903in - 0.15278in - 2.8855in - 50 - - - - - - - - - - - - - - true - - - - - =Fields!Description_PurchInvLineCaption.Value - - - - - - 2 - - - - - - - true - - - - - =Fields!Quantity_PurchInvLineCaption.Value - - - - - - - 74 - - - - - - - - true - - - - - =Fields!UOM_PurchInvLineCaption.Value - - - - - - - - - - - true - - - - - =Fields!DirectUnitCostCaption.Value - - - - - - - 72 - - - - - - - - true - - - - - =Fields!DiscountPercentCaption.Value - - - - - - - 71 - - - 2 - - - - - - - true - - - - - =Fields!VATIdent_PurchInvLineCaption.Value - - - - - - - - - - - true - - - - - =Fields!AmountCaption.Value - - - - - - - 69 - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - - - true - true - - - - - =Fields!Description_PurchInvLine.Value - - - - - - 6 - - - - - - - - - - - true - - - - - - - - - - - 3 - - - - - - - - 0.35298cm - - - - - true - - - - - =Fields!No_PurchInvLine.Value - - - - - - - 64 - - - - - - - - true - - - - - =Fields!Description_PurchInvLine.Value - - - - - - 2 - - - - - - - true - true - - - - - =Fields!Quantity_PurchInvLine.Value - - - - - - - - - - - true - - - - - =Fields!UOM_PurchInvLine.Value - - - - - - - - - - - true - true - - - - - =Fields!DirUnitCost_PurchInvLine.Value - - - - - - - - - - - true - true - - - - - =Fields!LineDiscount_PurchInvLine.Value - - - - - - 2 - - - - - - - true - - - - - =Fields!VATIdent_PurchInvLine.Value - - - - - - - - - - - true - true - - - - - =Fields!LineAmount_PurchInvLine.Value - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - - 56 - - - 5 - - - - - - - - - - true - - - - - =Fields!RevCharge_PurchInvLineCaption.Value - - - - - - 2 - - - - - - - true - true - - - - - =Fields!RevCharge_PurchInvLine.Value - - - - - - 2 - - - - - - - true - - - - - - - - - - - - - - - - 0.35298cm - - - - - true - - - - - =Fields!LineDimensionsCaption.Value - - - - - - 2 - - - - - - - true - - - - - =Fields!DimText1.Value - - - - - - 8 - - - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!SubtotalCaption.Value) - - - - - - - 5 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!InvDiscountAmountCaption.Value) - - - - - - - 8 - - - 4 - - - - - - - - - true - true - - - - - =-Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalText.Value) - - - - - - - 11 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - - - - 5 - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 16 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmountText.Value) - - - - - - - 19 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 22 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!PaymentDisconVATCaption.Value) - - - - - - - 27 - - - 4 - - - - - - - - - true - true - - - - - =-(Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - Last(Fields!TotalAmountInclVAT.Value)) - - - - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 30 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmountText.Value) - - - - - - - 35 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 38 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - - - - - - 0.35298cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATTextLCY.Value) - - - - - - - 43 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!AmountLCY.Value) - - - - - - - - - - - 0.35298cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmountText.Value) - - - - - - - 46 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!AmountIncLCYAmountLCY.Value) - - - - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox1126 - - - - - - - - true - true - - - - - - - - - - - - Textbox1127 - - - - - - - - true - true - - - - - - - - - - - - Textbox1128 - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.17658cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox1136 - - - - - - - - true - true - - - - - - - - - - - - Textbox1137 - - - - - - - - true - true - - - - - - - - - - - - Textbox1138 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35298cm - - - - - true - - - - - =Last(Fields!ExchangeRateCaption.Value) - - - - - - 2 - - - - - - - true - true - - - - - =Last(Fields!CurrFactor_PurchInvHeader.Value) - - - - - - - 50 - - - 3 - - - - - - - - true - - - - - =Last(Fields!TotalInclVATTextLCY.Value) - - - - - - - 49 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!AmountIncLCY.Value) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - - - After - true - - - - Detail - - - - - =IIF(Fields!Type_PurchInvLine.Value = "",False,True) - - - - - =IIF(Fields!Type_PurchInvLine.Value <> "",False,True) - - - - - =IIF(Fields!RevCharge_PurchInvLine.Value = 0,True,False) - - - - - =IIF(Fields!LineDimensionsCaption.Value="",True,False) - - - - Detail_Collection - Output - true - - - Before - true - - - - =IIF(not (sum(Fields!InvDiscAmt_PurchInvLine.Value) = 0),False,True) - - Before - true - - - - =IIF(not (sum(Fields!InvDiscAmt_PurchInvLine.Value) = 0),False,True) - - Before - true - - - - =IIF(Last(Fields!TotalAmountInclVAT.Value) = Last(Fields!TotalAmount.Value),False,True) - - Before - - - - =IIF(Last(Fields!TotalAmountInclVAT.Value) = Last(Fields!TotalAmount.Value),False,True) - - Before - - - - =IIF(Last(Fields!TotalAmountInclVAT.Value) = Last(Fields!TotalAmount.Value),False,True) - - Before - true - - - - =IIF(Last(Fields!TotalAmountInclVAT.Value) = Last(Fields!TotalAmount.Value),False,True) - - Before - true - - - - =IIF((NOT Fields!PricIncVAT_PurchInvHeader.Value) AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - true - - - - =IIF((NOT Fields!PricIncVAT_PurchInvHeader.Value) AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - true - - - - =IIF((NOT Fields!PricIncVAT_PurchInvHeader.Value) AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - - - - =IIF((NOT Fields!PricIncVAT_PurchInvHeader.Value) AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - - - - =IIF((NOT Fields!PricIncVAT_PurchInvHeader.Value) AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - true - - - - =IIF((NOT Fields!PricIncVAT_PurchInvHeader.Value) AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - true - - - - =IIF(Fields!PricIncVAT_PurchInvHeader.Value AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value) AND (Fields!VATBasDisc_PurchInvHeader.Value<>0)),False,True) - - Before - true - - - - =IIF(Fields!PricIncVAT_PurchInvHeader.Value AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - - - - =IIF(Fields!PricIncVAT_PurchInvHeader.Value AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - - - - =IIF(Fields!PricIncVAT_PurchInvHeader.Value AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - true - - - - =IIF(Fields!PricIncVAT_PurchInvHeader.Value AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - true - - - - =IIF(Fields!PricIncVAT_PurchInvHeader.Value AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - true - - - - =IIF(Fields!PricIncVAT_PurchInvHeader.Value AND (Sum(Fields!AmtIncVAT_PurchInvLine.Value)<>Sum(Fields!Amount_PurchInvLine.Value)),False,True) - - Before - true - - - Before - - - - =IIF(Fields!CurrCode_PurchInvHeader.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - Before - true - - - - =IIF(Fields!CurrCode_PurchInvHeader.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - Before - true - - - - =IIF(Fields!CurrCode_PurchInvHeader.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - Before - - - - =IIF(Fields!CurrCode_PurchInvHeader.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - Before - - - - =IIF(Fields!CurrCode_PurchInvHeader.Value <> "" AND Fields!CurrencyLCY.Value,False,True) - - Before - true - - - - DataSet_Result - - - =Fields!NoFieldCaption.Value - GreaterThan - - - - - - 10.23692cm - 18.09999cm - - =IIF(Fields!NoFieldCaption.Value="",True,False) - - NoOutput - - - - - - - 0.5cm - - - 0.5cm - - - 0.5cm - - - 0.5cm - - - 0.52647cm - - - 0.52647cm - - - - - 0.07938cm - - - - - true - - - - - - - - - - - Middle - 0.0625in - - - - - - - - true - - - - - - - - - - - - - - - - true - - - - - - - - - - - Middle - 0.0625in - - - - - - - - true - - - - - - - - - - - - - true - - - - - - - - - - - - - true - - - - - =IIF(Code.IsNewPage(),TRUE,FALSE) - - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - - 0.07938cm - 3.05294cm - 1 - - - - - - - - - - - true - - - - - =Fields!DimText.Value - - - - - - - - - - - - - - - - - - - - - - Detail - - - - - =IIF(Fields!Number_IntegerLine.Value >= 1,False,True) - - - - Detail_Collection - Output - true - - - - - - =Fields!HeaderDimensionsCaption.Value - GreaterThan - - - - - - 18.02152cm - 0.00049in - 0.35278cm - 7.13386in - 2 - - =IIF(Fields!HeaderDimensionsCaption.Value = "",True,False) - - NoOutput - - - - - - 2 - - - - - - - true - - - - - - - - - - - - 23 - - - 5 - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATIdentifierCaption.Value - - - - - - - - - - - true - - - - - =Fields!VATPercentCaption.Value - - - - - - - 21 - - - - - - - - true - - - - - =Fields!LineAmountCaption.Value - - - - - - - textbox60 - 20 - - - - - - - - true - - - - - =Fields!InvDiscBaseAmtCaption.Value - - - - - - - textbox61 - 19 - - - - - - - - true - - - - - =Fields!InvcDiscAmtCaption.Value - - - - - - - textbox62 - 18 - - - - - - - - true - - - - - =Fields!VATBaseCaption.Value - - - - - - - textbox63 - 17 - - - - - - - - true - - - - - =Fields!VATAmountCaption.Value - - - - - - - textbox64 - 16 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox936 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox937 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox938 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox939 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox940 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox941 - - - - - - Bottom - 5pt - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox943 - - - - - - - - true - true - - - - - - - - - - - - Textbox944 - - - - - - - - true - true - - - - - - - - - - - - Textbox945 - - - - - - - - true - true - - - - - - - - - - - - Textbox946 - - - - - - - - true - true - - - - - - - - - - - - Textbox947 - - - - - - - - true - true - - - - - - - - - - - - Textbox948 - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmtLineVATIdentifier.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmountLineVAT.Value - - - - - - - VATAmountLineVAT - 5 - - - - - - - - true - true - - - - - =Fields!VATAmountLineLineAmount.Value - - - - - - - 4 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscBaseAmt.Value - - - - - - - 3 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscountAmt.Value - - - - - - - 2 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATBase.Value - - - - - - - VATAmountLineVATBase - 1 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATAmount.Value - - - - - - - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!TotalCaption.Value - - - - - - - - - - - true - - - - - - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineLineAmount.Value) - - - - - - - 12 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscBaseAmt.Value) - - - - - - - 11 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscountAmt.Value) - - - - - - - 10 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATBase.Value) - - - - - - - 9 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATAmount.Value) - - - - - - - 8 - - - - - - - - - - - - - - - - - - - - - - - After - true - - - After - true - - - After - - - After - - - - Detail - - - - - Detail_Collection - Output - true - - - Before - true - - - Before - - - Before - true - - - - DataSet_Result - - - =Fields!VATAmountSpecificationCaption.Value - GreaterThan - - - - - - 11.05219cm - 2.11664cm - 18.09995cm - 3 - - =IIF(Fields!VATAmountSpecificationCaption.Value="",True,False) - - NoOutput - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr1.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr2.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr3.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr4.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr5.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr6.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr7.Value - - - - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr8.Value - - - - - - 2 - - - - - - - - - - - - - - - - - - Detail - - - - - - - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!ShiptoAddressCaption.Value - GreaterThan - - - - - - 14.04222cm - 1.25001in - 6.98411cm - 4 - - =IIF(Fields!ShiptoAddressCaption.Value="",True,False) - - NoOutput - - - - - - - true - - - - - = Code.GetData(10,1) - - - - - - - true - - - - - = Code.GetData(11,1) - - - - - - - true - - - - - = Code.GetData(12,1) - - - - - - - true - - - - - = Code.GetData(13,1) - - - - - - - true - - - - - =Code.GetData(9,3) - - - - - - - 9.09838cm - 3.3753cm - 11pt - 8.13699cm - 5 - - =IIF(Code.GetData(1,2)="",True,False) - - NoOutput - - - - true - - - - - =Code.GetData(7,3) - - - - - - - 7.08089cm - 3.36cm - 11pt - 8.13699cm - 6 - - - - true - - - - - =Code.GetData(8,1) - - - - - - - true - - - - - =Code.GetData(7,1) - - - - - - - true - - - - - =Code.GetData(6,3) - - - - - - - 6.65757cm - 3.36cm - 11pt - 8.13699cm - 9 - - - - true - - - - - =Code.GetData(13,3) - - - - - - - true - - - - - =Code.GetData(4,3) - - - - - - - true - - - - - =Code.GetData(12,3) - - - - - - - true - - - - - =Code.GetData(5,3) - - - - - - - 6.23776cm - 3.36cm - 11pt - 8.13699cm - 13 - - - - true - - - - - =Code.GetData(3,3) - - - - - - - 7.09148cm - 15.08729cm - 11pt - 3.01267cm - 14 - - - - true - - - - - =Code.GetData(11,3) - - - - - - - true - - - - - =Code.GetData(8,3) - - - - - - - 7.50423cm - 3.36cm - 11pt - 8.13699cm - 16 - - - - true - - - - - =Code.GetData(2,3) - - - - - - - true - - - - - =Code.GetData(10,3) - - - - - - - true - - - - - =Code.GetData(1,3) - - - - - - - 4.15417cm - 3.36cm - 11pt - 8.13699cm - 19 - - - - true - - - - - =Code.GetData(6,1) - - - - - - - true - - - - - =Code.GetData(5,1) - - - - - - - true - - - - - =Code.GetData(4,1) - - - - - - - true - - - - - =Code.GetData(3,1) - - - - - - - true - - - - - =Code.GetData(2,2) - - - - - - - 2.0415cm - 11.55cm - 11pt - 6.54996cm - 24 - - - - true - - - - - =Code.GetData(2,1) - - - - - - - true - - - - - =Code.GetData(1,2) - - - - - - - 1.6185cm - 11.55cm - 11pt - 6.54996cm - 26 - - - - true - - - - - =Code.GetData(1,1) - - - - - - - true - - - - - =Code.GetData(15,2) - - - - - - - 0.0635cm - 3.80952cm - 18pt - 14.29044cm - 28 - - - - true - - - - - = Code.GetData(14,1) & Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - 0.76192cm - 11.55cm - 11pt - 6.54996cm - 29 - - =IIF(Code.GetData(1,2)="",True,False) - - NoOutput - - - - true - - - - - = Code.GetData(15,1) - - - - - - - true - - - - - = Code.GetData(16,1) - - - - - - - true - - - - - = Code.GetData(17,1) - - - - - - - true - - - - - = Code.GetData(18,1) - - - - - - - true - - - - - = Code.GetData(19,1) - - - - - - - true - - - - - = Code.GetData(20,1) - - - - - - - true - - - - - =Code.GetData(11,2) - - - - - - - 6.24481cm - 15.08729cm - 11pt - 3.01267cm - 36 - - - - true - - - - - =Code.GetData(6,2) - - - - - - - 3.73462cm - 11.55cm - 11pt - 6.54996cm - 37 - - - - true - - - - - =Code.GetData(5,2) - - - - - - - 3.31162cm - 11.55cm - 11pt - 6.54996cm - 38 - - - - true - - - - - =Code.GetData(12,2) - - - - - - - 6.66814cm - 15.08729cm - 11pt - 3.01267cm - 39 - - - - true - - - - - =Code.GetData(10,2) - - - - - - - 5.81795cm - 15.08729cm - 11pt - 3.01267cm - 40 - - - - true - - - - - =Code.GetData(9,2) - - - - - - - 5.41637cm - 15.08729cm - 11pt - 3.01267cm - 41 - - - - true - - - - - =Code.GetData(8,2) - - - - - - - 4.58062cm - 15.08729cm - 11pt - 3.01267cm - 42 - - - - true - - - - - =Code.GetData(7,2) - - - - - - - 4.15762cm - 15.08729cm - 11pt - 3.01267cm - 43 - - - - true - - - - - =Code.GetData(4,2) - - - - - - - 2.88862cm - 11.55cm - 11pt - 6.54996cm - 44 - - - - true - - - - - =Code.GetData(3,2) - - - - - - - 2.45855cm - 11.55cm - 11pt - 6.54996cm - 45 - - - - true - - - - - =Code.GetData(13,2) - - - - - - - 5.38823cm - 3.36cm - 11pt - 8.13699cm - 46 - - - - true - - - - - = Code.GetData(21,1) - - - - - - - true - - - - - =Code.GetData(14,2) - - - - - - - 5.00396cm - 15.08729cm - 11pt - 3.01267cm - 48 - - - - true - - - - - = Code.GetData(22,1) - - - - - - - true - - - - - =Code.GetData(23,1) - - - - - - - true - - - - - =Code.GetData(14,3) - - - - - - - true - - - - - =Code.GetData(24,1) - - - - - - - true - - - - - =Code.GetData(15,3) - - - - - - - true - - - - - =Code.GetData(26,1) - - - - - - - true - - - - - =Code.GetData(17,3) - - - - - - - true - true - - - - - =Code.GetData(27,1) - - - - - - - - - true - true - - - - - =Code.GetData(18,3) - - - - - - - - - - - - - - - Textbox56 - - - - - - - - true - true - - - - - - - - - - - - Textbox59 - - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShiptoAddressCaption.Value - - - - - - - textbox94 - 12 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - - - - - - - - textbox93 - 9 - - - - - - - - true - - - - - - - - - - - - textbox95 - 8 - - - - - - - - 0.13889in - - - - - true - - - - - =Fields!CustNo_SalesHeaderCaption.Value - - - - - - - textbox91 - 58 - - - - - - - - true - - - - - =Fields!CustNo_SalesHeader.Value - - - - - - - textbox92 - 59 - - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr1.Value - - - - - - - textbox96 - 7 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr2.Value - - - - - - - textbox98 - 6 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr3.Value - - - - - - - textbox104 - 5 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr4.Value - - - - - - - textbox108 - 4 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr5.Value - - - - - - - 3 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr6.Value - - - - - - - textbox106 - 2 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr7.Value - - - - - - - textbox102 - 1 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr8.Value - - - - - - - textbox100 - - - 2 - - - - - - - - - - - - - - - - - After - - - - Detail - - - - - - =IIF(First(Fields!BillNo_SalesHeader.Value, "table5") <> First(Fields!CustNo_SalesHeader.Value, "table5"),False,True) - - - - - - - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!ShiptoAddressCaption.Value - GreaterThan - - - - - - 273.49762pt - 1.80557in - 7.61906cm - - =IIF(First(Fields!ShiptoAddressCaption.Value)<>"",False,True) - - NoOutput - - - - - - - 76 - - - - - - - - true - true - - - - - =Fields!Desc1_SalesLineCaption.Value - - - - - - - 75 - - - 2 - - - - - - - true - true - - - - - =Fields!Quantity_SalesLineCaption.Value - - - - - - - 74 - - - - - - - - true - true - - - - - =Fields!UnitofMeasure_SalesLineCaption.Value - - - - - - - 73 - - - - - - - - true - true - - - - - =First(Fields!UnitPriceCaption.Value) - - - - - - - 72 - - - - - - - - true - true - - - - - =Fields!VAT_SalesLineCaption.Value - - - - - - - 71 - - - - - - - - true - true - - - - - =First(Fields!AmtCaption.Value) - - - - - - - 70 - - - - - - - - true - true - - - - - =Fields!ShipmentDateCaption.Value - - - - - - - 69 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox8 - - - - - - Top - 5pt - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox31 - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!Desc_SalesLine.Value - - - - - - - 67 - - - 6 - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox25 - - - 3 - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!No_SalesLine.Value - - - - - - - 65 - - - - - - - - true - true - - - - - =Fields!Desc1_SalesLine.Value - - - - - - - 64 - - - 2 - - - - - - - true - true - - - - - =code.BlankZero(Fields!Quantity_SalesLine.Value) - - - - - - - 63 - - - - - - - - true - true - - - - - =Fields!UnitofMeasure_SalesLine.Value - - - - - - - 62 - - - - - - - - true - true - - - - - =code.BlankZero(Fields!UnitPrice_SalesLine.Value) - - - - - - - 61 - - - - - - - - true - true - - - - - =Fields!VAT_SalesLine.Value - - - - - - - 60 - - - - - - - - true - true - - - - - =code.BlankZero(Fields!LineAmount1_SalesLine.Value) - - - - - - - 59 - - - - - - - - true - true - - - - - =Fields!ShptDate_SalesLine.Value - - - - - - - 58 - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!LineDimCaption.Value - - - - - - - textbox6 - 1 - - - 2 - - - - - - - true - true - - - - - =Fields!DimText.Value - - - - - - - textbox7 - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - Textbox21 - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 7 - - - 4 - - - - - - - - - true - - - - - =Fields!SubtotalCaption.Value - - - - - - - 6 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - - - - - - - 5 - - - - - - - - true - true - - - - - - - - - - - - Textbox1 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 11 - - - 4 - - - - - - - - - true - - - - - =Fields!InvDiscountAmtCaption.Value - - - - - - - 10 - - - 3 - - - - - - - - true - true - - - - - =-Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 9 - - - - - - - - true - true - - - - - - - - - - - - Textbox2 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox265 - - - 4 - - - - - - - - - true - true - - - - - - - - - - - - Textbox269 - - - 5 - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox274 - - - 7 - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox281 - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox282 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 15 - - - 4 - - - - - - - - - true - - - - - =Fields!TotalText.Value - - - - - - - 14 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 13 - - - - - - - - true - true - - - - - - - - - - - - Textbox13 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 23 - - - 4 - - - - - - - - - true - - - - - =Fields!TotalExclVATText.Value - - - - - - - 22 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 21 - - - - - - - - true - true - - - - - - - - - - - - Textbox14 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 27 - - - 4 - - - - - - - - - true - - - - - =Last(Fields!VATAmountLineVATAmount.Value) - - - - - - - 26 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATAmount.Value) - - - - - - - 25 - - - - - - - - true - true - - - - - - - - - - - - Textbox15 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox301 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox310 - - - 7 - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox317 - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox318 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 31 - - - 4 - - - - - - - - - true - - - - - =Fields!TotalInclVATText.Value - - - - - - - 30 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) + Last(Fields!VATAmount.Value) - - - - - - - 29 - - - - - - - - true - true - - - - - - - - - - - - Textbox16 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 39 - - - 4 - - - - - - - - - true - - - - - =Fields!VATDiscountAmtCaption.Value - - - - - - - 38 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATDiscountAmount.Value) - - - - - - - 37 - - - - - - - - true - true - - - - - - - - - - - - Textbox17 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox329 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox338 - - - 4 - - - - - - - - - true - true - - - - - - - - - - - - Textbox342 - - - 3 - - - - - - - - true - true - - - - - - - - - - - - Textbox345 - - - - - - Top - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox346 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 43 - - - 4 - - - - - - - - - true - - - - - =Fields!TotalInclVATText.Value - - - - - - - 42 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - 41 - - - - - - - - true - true - - - - - - - - - - - - Textbox18 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 51 - - - 4 - - - - - - - - - true - - - - - =Last(Fields!VATAmountLineVATAmount.Value) - - - - - - - 50 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATAmount.Value) - - - - - - - 49 - - - - - - - - true - true - - - - - - - - - - - - Textbox19 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 55 - - - 4 - - - - - - - - - true - - - - - =Fields!TotalExclVATText.Value - - - - - - - 54 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATBaseAmount.Value) - - - - - - - 53 - - - - - - - - true - true - - - - - - - - - - - - Textbox20 - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - - - After - true - - - - - =Fields!LineNo_SalesLine.Value - - - - - - =IIF(Fields!Type_SalesLine.Value=" ",False,True) - - After - true - - - - =IIF(Fields!Type_SalesLine.Value<>" ",False,True) - - After - true - - - - Detail - - - - - =IIF(Fields!LineDimCaption.Value<>"",False,True) - - - - Detail_Collection - Output - true - - - - - Before - - - - =IIF(Sum(Fields!Discount1_SalesLine.Value)<>0,False,True) - - Before - true - - - - =IIF(Sum(Fields!Discount1_SalesLine.Value)<>0,False,True) - - Before - true - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - true - - - - =IIF((Not First(Fields!VATPrice_SalesHeader.Value)) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Not First(Fields!VATPrice_SalesHeader.Value)) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Not First(Fields!VATPrice_SalesHeader.Value)) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF((Not First(Fields!VATPrice_SalesHeader.Value)) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF((Not First(Fields!VATPrice_SalesHeader.Value)) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Sum(Fields!VATDiscountAmount.Value)<>0) - And (Sum(Fields!VATAmount.Value)<>0) - And First(Fields!VATPrice_SalesHeader.Value) - And (First(Fields!VATDiscount_SalesHeader.Value)<>0), - False,True) - - Before - true - - - - =IIF(First(Fields!VATPrice_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF(First(Fields!VATPrice_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF(First(Fields!VATPrice_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF(First(Fields!VATPrice_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF(First(Fields!VATPrice_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - DataSet_Result - - - =Fields!No_SalesLineCaption.Value - GreaterThan - - - - - - 0.75pt - 6.70273cm - 6.82501in - 1 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =True - - - - - - - - - - 2.26916cm - - - 1.84582cm - - - 2.66916cm - - - 2.66916cm - - - 2.66916cm - - - 2.56332cm - - - 2.64787cm - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - Textbox36 - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - Textbox43 - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmtSpecCaption.Value - - - - - - - textbox34 - 24 - - - 3 - - - - - - - - true - - - - - - - - - - - - textbox58 - 23 - - - 4 - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!VATIdentifierCaption.Value - - - - - - - textbox71 - 22 - - - - - - - - true - true - - - - - =Fields!VATPercentageCaption.Value - - - - - - - textbox72 - 21 - - - - - - - - true - true - - - - - =Fields!LineAmtCaption.Value - - - - - - - textbox73 - 20 - - - - - - - - true - true - - - - - =Fields!InvDiscBaseAmtCaption.Value - - - - - - - textbox74 - 19 - - - - - - - - true - true - - - - - =Fields!InvDiscountAmtCaption.Value - - - - - - - textbox75 - 18 - - - - - - - - true - true - - - - - =Fields!VATBaseCaption.Value - - - - - - - textbox76 - 17 - - - - - - - - true - true - - - - - =Fields!VATAmtCaption.Value - - - - - - - textbox77 - 16 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox44 - - - - - - Top - 5pt - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox55 - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!VATAmountLineVAT3.Value - - - - - - - textbox64 - 6 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVAT2.Value - - - - - - - textbox65 - 5 - - - - - - - - true - true - - - - - =Fields!VATAmountLineLineAmount.Value - - - - - - - textbox66 - 4 - - - - - - - - true - true - - - - - =Fields!VATAmountLineBaseAmount.Value - - - - - - - textbox67 - 3 - - - - - - - - true - true - - - - - =Fields!VATAmountLineDiscount.Value - - - - - - - textbox68 - 2 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATBase.Value - - - - - - - textbox69 - 1 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATAmount2.Value - - - - - - - textbox70 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox4 - - - - - - - - true - true - - - - - - - - - - - - Textbox11 - - - - - - - - true - true - - - - - - - - - - - - Textbox12 - - - 5 - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox23 - - - - - - - - true - true - - - - - - - - - - - - Textbox24 - - - - - - - - true - true - - - - - - - - - - - - Textbox32 - - - - - - Top - 5pt - 5pt - - - 5 - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!TotalCaption.Value - - - - - - - textbox49 - 14 - - - - - - - - true - true - - - - - - - - - - - - textbox50 - 13 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineLineAmount.Value) - - - - - - - 12 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineBaseAmount.Value) - - - - - - - 11 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineDiscount.Value) - - - - - - - 10 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATBase.Value) - - - - - - - 9 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATAmount2.Value) - - - - - - - 8 - - - - - - - - - - - - - - - - - - - - - - - After - true - - - After - true - - - After - true - true - - - After - true - true - - - After - true - - - After - true - - - - Detail - - - - - Detail_Collection - Output - true - - - Before - - - Before - - - Before - true - - - - - - =Fields!VATAmtSpecCaption.Value - GreaterThan - - - - - - 192.4986pt - 0.00188cm - 2.82219cm - 17.33365cm - 4 - - =IIF(First(Fields!VATAmtSpecCaption.Value)<>"",False,True) - - NoOutput - - - - - - - Textbox78 - - - - - - - - true - true - - - - - - - - - - - - Textbox79 - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!HdrDimCaption.Value - - - - - - - textbox9 - 1 - - =IIF(Fields!DimensionLoop1Number.Value = 1,False,True) - - NoOutput - - - - - - - - true - - - - - =Fields!DimText.Value - - - - - - - textbox10 - - - - - - - - - - - - - - - - - - After - - - - Detail - - - - - =IIF(Fields!DimensionLoop1Number.Value>=1,False,True) - - - - Detail_Collection - Output - true - - - - - - =Fields!DimText.Value - GreaterThan - - - - - - 404.49847pt - 1.05834cm - 17.33553cm - 5 - - - - - - - 211.19995pt - 10.81976cm - 11pt - 3.02067cm - - - - true - - - - - =Code.GetData(37) - - - - - - - 264.44995pt - 11pt - 3.15cm - 1 - - - - true - - - - - =Code.GetData(38) - - - - - - - 203.44995pt - 11pt - 3.15cm - 2 - - - - true - - - - - =Code.GetData(39) - - - - - - - 223.44995pt - 11pt - 3.15cm - 3 - - - - true - - - - - =Code.GetData(40) - - - - - - - 191.19995pt - 11pt - 3.15cm - 4 - - - - true - - - - - =Code.GetData(41) - - - - - - - 221.19995pt - 10.81976cm - 11pt - 3.02067cm - 5 - - - - true - - - - - =Code.GetData(42) - - - - - - - 201.19995pt - 10.81976cm - 11pt - 3.02067cm - 6 - - - - true - - - - - =Code.GetData(43) - - - - - - - 191.19995pt - 10.81976cm - 11pt - 3.02067cm - 7 - - - - true - - - - - =Code.GetData(44) - - - - - - - 171.2pt - 10.81976cm - 11pt - 3.02067cm - 8 - - - - true - - - - - =Code.GetData(45) - - - - - - - 161.20001pt - 10.81976cm - 11pt - 3.02067cm - 9 - - - - true - - - - - =code.GetData(21) - - - - - - - 211.19995pt - 14.01682cm - 11pt - 3.31871cm - 10 - - - - true - - - - - =code.GetData(30) - - - - - - - 264.44995pt - 3.36cm - 11pt - 13.97553cm - 11 - - =IIF(Fields!PricesInclVAT_SalesHeader.Value<>"",False,True) - - NoOutput - - - - true - - - - - =code.GetData(14) - - - - - - - 151.20001pt - 10.81976cm - 11pt - 6.51577cm - 12 - - - - true - - - - - =code.GetData(12) - - - - - - - 141.20001pt - 10.81976cm - 11pt - 6.51577cm - 13 - - - - true - - - - - =code.GetData(17) - - - - - - - 151.20001pt - 11pt - 10.81976cm - 14 - - - - true - - - - - =code.GetData(15) - - - - - - - 141.20001pt - 11pt - 10.81976cm - 15 - - - - true - - - - - =code.GetData(29) - - - - - - - 181.2001pt - 3.36cm - 11pt - 7.45976cm - 16 - - - - true - - - - - =Code.GetData(46) - - - - - - - 181.2001pt - 11pt - 3.15cm - 17 - - - - true - - - - - =code.GetData(26) - - - - - - - 203.44995pt - 3.36cm - 11pt - 7.45976cm - 18 - - - - true - - - - - =code.GetData(27) - - - - - - - 231.19995pt - 14.01682cm - 11pt - 3.31871cm - 19 - - - - true - - - - - =Code.GetData(47) - - - - - - - 231.19995pt - 10.81976cm - 11pt - 3.02067cm - 20 - - - - true - - - - - =code.GetData(28) - - - - - - - 223.44995pt - 3.36cm - 11pt - 7.45976cm - 21 - - - - true - - - - - =code.GetData(25) - - - - - - - 171.2pt - 3.36cm - 11pt - 7.45976cm - 22 - - - - true - - - - - =Code.GetData(43) - - - - - - - 171.2pt - 11pt - 3.15cm - 23 - - - - true - - - - - =code.GetData(23) - - - - - - - 191.19995pt - 3.36cm - 11pt - 7.45976cm - 24 - - - - true - - - - - =code.GetData(22) - - - - - - - 221.19995pt - 14.01682cm - 11pt - 3.31871cm - 25 - - - - true - - - - - =code.GetData(20) - - - - - - - 201.19995pt - 14.01682cm - 11pt - 3.31871cm - 26 - - - - true - - - - - =code.GetData(19) - - - - - - - 191.19995pt - 14.01682cm - 11pt - 3.31871cm - 27 - - - - true - - - - - =code.GetData(18) - - - - - - - 171.2pt - 14.01682cm - 11pt - 3.31871cm - 28 - - - - true - - - - - =code.GetData(13) - - - - - - - 131.20001pt - 11pt - 10.81976cm - 29 - - - - true - - - - - =code.GetData(16) - - - - - - - 161.20001pt - 14.01682cm - 11pt - 3.31871cm - 30 - - - - true - - - - - =code.GetData(11) - - - - - - - 121.20001pt - 11pt - 10.81976cm - 31 - - - - true - - - - - =code.GetData(10) - - - - - - - 131.20001pt - 10.81976cm - 11pt - 6.51577cm - 32 - - - - true - - - - - =code.GetData(9) - - - - - - - 111.20001pt - 11pt - 10.81976cm - 33 - - - - true - - - - - =code.GetData(8) - - - - - - - 121.20001pt - 10.81976cm - 11pt - 6.51577cm - 34 - - - - true - - - - - =code.GetData(7) - - - - - - - 101.20001pt - 11pt - 10.81976cm - 35 - - - - true - - - - - =code.GetData(6) - - - - - - - 111.20001pt - 10.81976cm - 11pt - 6.51577cm - 36 - - - - true - - - - - =code.GetData(5) - - - - - - - 91.2pt - 11pt - 17.33553cm - 37 - - - - true - - - - - =code.GetData(4) - - - - - - - 101.20001pt - 10.81976cm - 11pt - 6.51577cm - 38 - - - - true - - - - - =code.GetData(3) - - - - - - - 81.2pt - 11pt - 10.81976cm - 39 - - - - true - - - - - =code.GetData(1) - - - - - - - 61.2pt - 10.81976cm - 20pt - 6.51577cm - 40 - - - - true - - - - - =code.GetData(24) - - - - - - - 213.44994pt - 3.36cm - 11pt - 7.45976cm - 41 - - - - true - - - - - =Code.GetGroupPageNumber(Code.GetData(48),ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - 81.2pt - 10.81976cm - 11pt - 6.51577cm - 42 - - =IIF(code.GetData(2)<>"",False,True) - - NoOutput - - - - true - true - - - - - =Code.GetData(49) - - - - - - - 181.20001pt - 4.25974in - 11pt - 1.18925in - 43 - - - - - - true - true - - - - - =code.GetData(31) - - - - - - - 181.20001pt - 5.51843in - 11pt - 1.30658in - 44 - - - - - - true - - - - - =Code.GetData(50) - - - - - - - 233.44995pt - 0.38806cm - 3.15cm - 45 - - - - true - - - - - =code.GetData(32) - - - - - - - 233.44995pt - 3.36cm - 0.38806cm - 7.45976cm - 46 - - - - true - - - - - =Code.GetData(51) - - - - - - - 243.44994pt - 0.38806cm - 3.15cm - 47 - - - - true - - - - - =code.GetData(33) - - - - - - - 243.44994pt - 3.36cm - 0.38806cm - 13.97553cm - 48 - - - - true - - - - - =Code.GetData(53) - - - - - - - 253.44995pt - 0.38806cm - 3.15cm - 49 - - - - true - - - - - =code.GetData(35) - - - - - - - 253.44995pt - 3.36cm - 0.38806cm - 13.97553cm - 50 - - - - true - true - - - - - =Code.GetData(54) - - - - - - - 213.44994pt - 11pt - 1.24016in - 51 - - - - - - Database - =Convert.ToBase64String(Fields!CompanyInfo1Picture.Value) - image/bmp - FitProportional - 14mm - 60mm - 52 - - =iif(Code.IsEmpty(Fields!CompanyInfo1Picture.Value), true, false) - - - - - - - Database - =Convert.ToBase64String(Fields!CompanyInfo2Picture.Value) - image/bmp - FitProportional - 6cm - 14mm - 60mm - 53 - - =iif(Code.IsEmpty(Fields!CompanyInfo2Picture.Value), true, false) - - - - - - - Database - =Convert.ToBase64String(Fields!CompanyInfo3Picture.Value) - image/bmp - FitProportional - 12cm - 14mm - 60mm - 54 - - =iif(Code.IsEmpty(Fields!CompanyInfo3Picture.Value), true, false) - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - 56 - - - - - - - - true - true - - - - - =Fields!Description_SalesLineCaption.Value - - - - - - - 55 - - - 2 - - - - - - - true - true - - - - - =Fields!Quantity_SalesLineCaption.Value - - - - - - - 54 - - - - - - - - true - true - - - - - =Fields!UnitofMeasure_SalesLineCaption.Value - - - - - - - 53 - - - - - - - - true - true - - - - - =Fields!UnitPriceCaption.Value - - - - - - - 52 - - - - - - - - true - true - - - - - =Fields!DiscountPercentCaption.Value - - - - - - - 51 - - - - - - - - true - true - - - - - =Fields!VATIdentifier_SalesLineCaption.Value - - - - - - - 50 - - - - - - - - true - true - - - - - =Fields!AmtCaption.Value - - - - - - - 49 - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - - textbox178 - 48 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox261 - - - - - - Top - 5pt - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox31 - 47 - - - - - - - - true - - - - - =Fields!Description_SalesLine.Value - - - - - - - 46 - - - 6 - - - - - - - - - - - true - - - - - - - - - - - - textbox37 - 45 - - - 2 - - - - - - - 0.37925cm - - - - - true - - - - - =Fields!No_SalesLine.Value - - - - - - - 44 - - - - - - - - true - - - - - =Fields!Description_SalesLine.Value - - - - - - - 43 - - - 2 - - - - - - - true - true - - - - - =code.BlankZero(Fields!Quantity_SalesLine.Value) - - - - - - - 42 - - - - - - - - true - - - - - =Fields!UnitofMeasure_SalesLine.Value - - - - - - - 41 - - - - - - - - true - true - - - - - =code.BlankZero(Fields!UnitPrice_SalesLine.Value) - - - - - - - 40 - - - - - - - - true - true - - - - - =code.BlankZero(Fields!LineDiscount_SalesLine.Value) - - - - - - - 39 - - - - - - - - true - - - - - =Fields!VATIdentifier_SalesLine.Value - - - - - - - 38 - - - - - - - - true - true - - - - - =code.BlankZero(Fields!LineAmount_SalesLine.Value) - - - - - - - 37 - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!LineDimsCaption.Value - - - - - - - textbox23 - 1 - - - 2 - - - - - - - true - - - - - =Fields!DimText_DimensionLoop2.Value - - - - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 2 - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 5 - - - 5 - - - - - - - - - - true - - - - - =First(Fields!SubtotalCaption.Value) - - - - - - - 4 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - - - - - - - 3 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 8 - - - 5 - - - - - - - - - - true - - - - - =First(Fields!InvDiscAmtCaption.Value) - - - - - - - 7 - - - 3 - - - - - - - - true - true - - - - - =-Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 6 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox306 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox315 - - - 8 - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox323 - - - - - - Top - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 11 - - - 5 - - - - - - - - - - true - - - - - =First(Fields!TotalText.Value) - - - - - - - 10 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 9 - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - Textbox1 - - - - - - - - true - true - - - - - - - - - - - - Textbox2 - - - - - - - - true - true - - - - - - - - - - - - Textbox3 - - - - - - - - true - true - - - - - - - - - - - - Textbox4 - - - - - - - - true - true - - - - - - - - - - - - Textbox6 - - - - - - - - true - true - - - - - - - - - - - - Textbox7 - - - - - - - - true - true - - - - - - - - - - - - Textbox11 - - - - - - - - true - true - - - - - - - - - - - - Textbox12 - - - - - - - - true - true - - - - - - - - - - - - Textbox13 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 15 - - - 5 - - - - - - - - - - true - - - - - =First(Fields!TotalExclVATText.Value) - - - - - - - 14 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 13 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 18 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmountText.Value) - - - - - - - 17 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATAmount.Value) - - - - - - - 16 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox333 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox342 - - - 8 - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox350 - - - - - - Top - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 21 - - - 5 - - - - - - - - - - true - - - - - =First(Fields!TotalInclVATText.Value) - - - - - - - 20 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) + Last(Fields!VATAmount.Value) - - - - - - - 19 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox32 - 22 - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 25 - - - 5 - - - - - - - - - - true - - - - - =First(Fields!PaymentDiscountVATCaption.Value) - - - - - - - 24 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATDiscountAmount.Value) - - - - - - - 23 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox351 - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox360 - - - 8 - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox368 - - - - - - Top - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 28 - - - 5 - - - - - - - - - - true - - - - - =First(Fields!TotalInclVATText.Value) - - - - - - - 27 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - 26 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox43 - 29 - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 32 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmountText.Value) - - - - - - - 31 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATAmount.Value) - - - - - - - 30 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - 35 - - - 5 - - - - - - - - - - true - - - - - =First(Fields!TotalExclVATText.Value) - - - - - - - 34 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATBaseAmount.Value) - - - - - - - 33 - - - - - - - - 0.4064cm - - - - - true - - - - - - - - - - - - textbox51 - 36 - - - 9 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - true - - - After - true - - - - - =Fields!LineNo_SalesLine.Value - - - - - - =IIF(Fields!Type_SalesLine.Value=" ",False,True) - - After - true - - - - =IIF(Fields!Type_SalesLine.Value<>" ",False,True) - - After - true - - - - Detail - - - - - =IIF(Fields!LineDimsCaption.Value<>"",False,True) - - - - Detail_Collection - Output - true - - - - - Before - true - - - - =IIF(Sum(Fields!InvDiscountAmt_SalesLine.Value)<>0,False,True) - - Before - true - - - - =IIF(Sum(Fields!InvDiscountAmt_SalesLine.Value)<>0,False,True) - - Before - true - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - true - - - Before - - - - =IIF((Not Fields!PricesIncVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Not Fields!PricesIncVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Not Fields!PricesIncVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF((Not Fields!PricesIncVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF((Not Fields!PricesIncVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Not Fields!PricesIncVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Sum(Fields!VATDiscountAmount.Value)<>0) - And (Sum(Fields!VATAmount.Value)<>0) - And Fields!PricesIncVAT_SalesHeader.Value - And (Fields!VATBaseDisc_SalesHeader.Value<>0),False,True) - - Before - true - - - Before - - - - =IIF(Fields!PricesIncVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF(Fields!PricesIncVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF(Fields!PricesIncVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF(Fields!PricesIncVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF(Fields!PricesIncVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF(Fields!PricesIncVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - DataSet_Result - - - =Fields!No_SalesLineCaption.Value - GreaterThan - - - - - - 0.01053cm - 8.19395cm - 7.01503in - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =True - - - - - - - - - - 1.20437in - - - 5.81067in - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - Textbox297 - - - 2 - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - Textbox295 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!HdrDimsCaption.Value - - - - - - - textbox9 - 1 - - =IIF(Fields!Number_IntegerLine.Value = 1,False,True) - - NoOutput - - - - - - - - true - - - - - =Fields!DimText.Value - - - - - - - textbox10 - - - - - - - - - - - - - - - - - - After - - - After - - - - Detail - - - - - =IIF(Fields!Number_IntegerLine.Value>=1,False,True) - - - - Detail_Collection - Output - true - - - - - - =Fields!DimText.Value - GreaterThan - - - - - - 6.21966in - 1.05834cm - 7.01504in - 3 - - - - - - - Textbox293 - - - 2 - - - - - - - 0.13889in - - - - - true - true - - - - - - - - - - - - Textbox291 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShiptoAddressCaption.Value - - - - - - - textbox94 - 12 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!SelltoCustNo_SalesHeaderCaption.Value - - - - - - - textbox91 - 11 - - - - - - - - true - - - - - =Fields!SelltoCustNo_SalesHeader.Value - - - - - - - textbox92 - 10 - - - - - - - - 0.13889in - - - - - true - - - - - - - - - - - - textbox93 - 9 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr1.Value - - - - - - - textbox96 - 7 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr2.Value - - - - - - - textbox98 - 6 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr3.Value - - - - - - - textbox104 - 5 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr4.Value - - - - - - - textbox108 - 4 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr5.Value - - - - - - - textbox180 - 3 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr6.Value - - - - - - - textbox106 - 2 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr7.Value - - - - - - - textbox102 - 1 - - - 2 - - - - - - - 0.13889in - - - - - true - - - - - =Fields!ShipToAddr8.Value - - - - - - - textbox100 - - - 2 - - - - - - - - - - - - - - - - - After - - - After - - - - Detail - - - - - - =IIF(First(Fields!BilltoCustNo_SalesHeader.Value, "table5") <> First(Fields!SelltoCustNo_SalesHeader.Value, "table5"),False,True) - - - - - =IIF(First(Fields!BilltoCustNo_SalesHeader.Value, "table5") <> First(Fields!SelltoCustNo_SalesHeader.Value, "table5"),False,True) - - - - - - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!ShiptoAddressCaption.Value - GreaterThan - - - - - - 11.1448cm - 0.01731in - 1.80557in - 17.77424cm - 4 - - =IIF(First(Fields!ShiptoAddressCaption.Value)<>"",False,True) - - NoOutput - - - - - - - Textbox284 - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - Textbox277 - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmtSpecCaption.Value - - - - - - - 24 - - - 3 - - - - - - - - true - - - - - - - - - - - - 23 - - - 4 - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!VATIdentCaption.Value - - - - - - - 22 - - - - - - - - true - true - - - - - =Fields!VATPercentCaption.Value - - - - - - - 21 - - - - - - - - true - true - - - - - =Fields!LineAmtCaption.Value - - - - - - - 20 - - - - - - - - true - true - - - - - =Fields!InvDiscBaseAmtCaption.Value - - - - - - - 19 - - - - - - - - true - true - - - - - =Fields!InvDiscAmtCaption.Value - - - - - - - 18 - - - - - - - - true - true - - - - - =Fields!VATBaseCaption.Value - - - - - - - 17 - - - - - - - - true - true - - - - - =Fields!VATAmtCaption.Value - - - - - - - 16 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox270 - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - - 15 - - - - - - Top - 5pt - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmtLineVATIdentifier.Value - - - - - - - textbox64 - 6 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVAT.Value - - - - - - - textbox65 - 5 - - - - - - - - true - true - - - - - =Fields!VATAmountLineLineAmount.Value - - - - - - - textbox66 - 4 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscBaseAmt.Value - - - - - - - textbox67 - 3 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscountAmt.Value - - - - - - - textbox68 - 2 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATBase.Value - - - - - - - textbox69 - 1 - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATAmount.Value - - - - - - - textbox70 - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - - textbox62 - 7 - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - Textbox299 - - - 2 - - - - - - - true - true - - - - - - - - - - - - Textbox301 - - - - - - Top - 5pt - 5pt - - - 5 - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!TotalCaption.Value - - - - - - - 14 - - - - - - - - true - - - - - - - - - - - - 13 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineLineAmount.Value) - - - - - - - 12 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscBaseAmt.Value) - - - - - - - 11 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscountAmt.Value) - - - - - - - 10 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATBase.Value) - - - - - - - 9 - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATAmount.Value) - - - - - - - 8 - - - - - - - - - - - - - - - - - - - - - - - After - true - - - After - true - - - After - true - true - - - After - true - true - - - After - true - - - After - true - true - - - - Detail - - - - - Detail_Collection - Output - true - - - Before - true - - - Before - - - Before - true - - - - - - =Fields!VATAmtSpecCaption.Value - GreaterThan - - - - - - 8.25908cm - 2.8222cm - 7.01503in - 5 - - =IIF(First(Fields!VATAmtSpecCaption.Value)<>"",False,True) - - NoOutput - - - - - - - true - - - - - =Code.GetData(31) - - - - - - - true - - - - - =Code.GetData(32) - - - - - - - true - - - - - =Code.GetData(33) - - - - - - - true - - - - - =Code.GetData(34) - - - - - - - true - - - - - =Code.GetData(35) - - - - - - - true - - - - - =Code.GetData(36) - - - - - - - true - - - - - =Code.GetData(37) - - - - - - - true - - - - - =Code.GetData(38) - - - - - - - true - - - - - =Code.GetData(39) - - - - - - - 7.2012cm - 14.12972cm - 11pt - 3.68847cm - 9 - - - - true - - - - - =code.GetData(23) - - - - - - - 8.07351cm - 3.17824cm - 11pt - 8.84443cm - 10 - - =IIF(code.GetData(23)<>"",False,True) - - NoOutput - - - - true - - - - - =code.GetData(12) - - - - - - - 4.84912cm - 11.99797cm - 11pt - 5.82022cm - 11 - - - - true - - - - - =code.GetData(10) - - - - - - - 4.50186cm - 11.99444cm - 11pt - 5.82375cm - 12 - - - - true - - - - - =code.GetData(15) - - - - - - - true - - - - - =code.GetData(13) - - - - - - - true - - - - - =code.GetData(22) - - - - - - - true - - - - - =Code.GetData(40) - - - - - - - true - - - - - =code.GetData(21) - - - - - - - 7.67745cm - 3.18881cm - 11pt - 8.80917cm - 17 - - - - true - - - - - =code.GetData(20) - - - - - - - 7.96062cm - 14.08386cm - 11pt - 3.73433cm - 18 - - - - true - - - - - =Code.GetData(41) - - - - - - - true - - - - - =code.GetData(19) - - - - - - - 7.26565cm - 3.18881cm - 11pt - 8.80564cm - 20 - - - - true - - - - - =code.GetData(18) - - - - - - - true - - - - - =code.GetData(28) - - - - - - - true - - - - - =code.GetData(16) - - - - - - - 5.6217cm - 3.19233cm - 11pt - 8.80211cm - 23 - - - - true - - - - - =Code.GetData(42) - - - - - - - 7.55397cm - 14.02998cm - 11pt - 3.78821cm - 24 - - - - true - - - - - =Code.GetData(43) - - - - - - - 6.79292cm - 14.13827cm - 11pt - 3.67992cm - 25 - - - - true - - - - - =Code.GetData(44) - - - - - - - 6.39428cm - 14.09444cm - 11pt - 3.72375cm - 26 - - - - true - - - - - =code.GetData(11) - - - - - - - true - - - - - =code.GetData(14) - - - - - - - 5.26892cm - 14.09444cm - 11pt - 3.72375cm - 28 - - - - true - - - - - =code.GetData(9) - - - - - - - true - - - - - =code.GetData(8) - - - - - - - 4.13565cm - 11.99797cm - 11pt - 5.82022cm - 30 - - - - true - - - - - =code.GetData(7) - - - - - - - true - - - - - =code.GetData(6) - - - - - - - 3.78287cm - 11.99444cm - 11pt - 5.82375cm - 32 - - - - true - - - - - =code.GetData(5) - - - - - - - true - - - - - =code.GetData(4) - - - - - - - 3.37079cm - 11.99444cm - 11pt - 5.82375cm - 34 - - - - true - - - - - =code.GetData(3) - - - - - - - true - - - - - =code.GetData(2) - - - - - - - 3.01801cm - 11.99444cm - 11pt - 5.82375cm - 36 - - - - true - - - - - =code.GetData(1) - - - - - - - true - - - - - =code.GetData(29) - - - - - - - 1.50812cm - 20pt - 17.81819cm - 38 - - - - true - - - - - =code.GetData(17) - - - - - - - 6.85995cm - 3.15cm - 11pt - 8.84797cm - 39 - - - - true - true - - - - - =Code.GetData(45) - - - - - - - - - true - true - - - - - =Code.GetData(46) - - - - - - - 5.62523cm - 14.02998cm - 11pt - 3.78821cm - 41 - - - - - - true - true - - - - - =Code.GetData(47) - - - - - - - - - true - true - - - - - =Code.GetData(48) - - - - - - - 6.01681cm - 14.09444cm - 11pt - 3.72374cm - 43 - - - - - - true - true - - - - - =Code.GetData(49) - - - - - - - - - true - true - - - - - =Code.GetGroupPageNumber(Code.GetData(50),ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - 2.27365cm - 11.99797cm - 11pt - 5.82022cm - 45 - - =IIF(code.GetData(2)<>"",False,True) - - - - - - - true - - - - - =Code.GetData(51) - - - - - - - true - - - - - =code.GetData(24) - - - - - - - true - - - - - =Code.GetData(52) - - - - - - - true - - - - - =code.GetData(25) - - - - - - - true - - - - - =Code.GetData(54) - - - - - - - true - - - - - =code.GetData(27) - - - - - - - Database - =Convert.ToBase64String(Fields!CompanyInfo3Picture.Value) - image/bmp - FitProportional - 14mm - 60mm - 52 - - =iif(IsNothing(Fields!CompanyInfo3Picture.Value) = TRUE,TRUE,FALSE) - - NoOutput - - - - Database - =Convert.ToBase64String(Fields!CompanyInfo1Picture.Value) - image/bmp - FitProportional - 6cm - 14mm - 60mm - 53 - - =iif(IsNothing(Fields!CompanyInfo1Picture.Value) = TRUE,TRUE,FALSE) - - NoOutput - - - - Database - =Convert.ToBase64String(Fields!CompanyInfo2Picture.Value) - image/bmp - FitProportional - 12cm - 14mm - 60mm - 54 - - =iif(IsNothing(Fields!CompanyInfo2Picture.Value) = TRUE,TRUE,FALSE) - - NoOutput - - - - - - - - - - - - - - true - - - - - =Fields!Desc_SalesCrMemoLineCaption.Value - - - - - - 3 - - - - - - - - true - - - - - =Fields!Qty_SalesCrMemoLineCaption.Value - - - - - - - 89 - - - 2 - - - - - - - true - - - - - =Fields!UOM_SalesCrMemoLineCaption.Value - - - - - - - - - - - true - - - - - =First(Fields!UnitPriceCaption.Value) - - - - - - - 85 - - - 2 - - - - - - - true - - - - - =First(Fields!DiscPercentCaption.Value) - - - - - - - 84 - - - - - - - - true - - - - - =Fields!VATIdentifier_SalesCrMemoLineCaption.Value - - - - - - 2 - - - - - - - true - - - - - =First(Fields!AmountCaption.Value) - - - - - - - 82 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox85 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox89 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox90 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox92 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox101 - - - - - - Bottom - 0.0625in - - - - - - - - 0.17638cm - - - - - true - - - - - - - - 13 - - - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox216 - 80 - - - - - - - - true - - - - - =Fields!Desc_SalesCrMemoLine.Value - - - - - - 10 - - - - - - - - - - - - - - - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!No_SalesCrMemoLine.Value - - - - - - - 77 - - - - - - - - true - - - - - =Fields!Desc_SalesCrMemoLine.Value - - - - - - 3 - - - - - - - - true - true - - - - - =code.BlankZero(Fields!Qty_SalesCrMemoLine.Value) - - - - - - 2 - - - - - - - true - - - - - =Fields!UOM_SalesCrMemoLine.Value - - - - - - - - - - - true - true - - - - - =code.BlankZero(Fields!UnitPrice_SalesCrMemoLine.Value) - - - - - - 2 - - - - - - - true - true - - - - - =code.BlankZero(Fields!LineDisc_SalesCrMemoLine.Value) - - - - - - - - - - - true - - - - - =Fields!VATIdentifier_SalesCrMemoLine.Value - - - - - - 2 - - - - - - - true - true - - - - - =code.BlankZero(Fields!SalesCrMemoLineLineAmount.Value) - - - - - - - 69 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox11 - 68 - - - 5 - - - - - - - - - - true - - - - - =Fields!ReverseChrg_SalesCrMemoLineCaption.Value - - - - - - 3 - - - - - - - - true - true - - - - - =Fields!ReverseChrg_SalesCrMemoLine.Value - - - - - - 2 - - - - - - - true - - - - - - - - - - - 3 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - - - - - true - - - - - =Fields!ReturnReceiptCaption.Value - - - - - - 2 - - - - - - - true - true - - - - - =Fields!SalesShipmentBufferQty.Value - - - - - - - - - - - true - - - - - =Fields!SalesShipmentBufferPostDate.Value - - - - - - 2 - - - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!LineDimensionsCaption.Value - - - - - - 2 - - - - - - - true - - - - - =Fields!DimText1.Value - - - - - - 11 - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - - - - 6 - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!SubtotalCaption.Value) - - - - - - - 5 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - - - - - - - 4 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!InvDiscountAmountCaption.Value) - - - - - - - 8 - - - 4 - - - - - - - - - true - true - - - - - =-Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 7 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!TotalText.Value) - - - - - - - 11 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - - 10 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - - - - 4 - - - - - - - - - true - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 17 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - - 16 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!VATAmountLineVATAmountText.Value) - - - - - - - 20 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - Last(Fields!TotalAmount.Value) - - - - - - - 19 - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox182 - - - - - - - - true - true - - - - - - - - - - - - Textbox183 - - - - - - - - true - true - - - - - - - - - - - - Textbox185 - - - - - - - - true - true - - - - - - - - - - - - Textbox186 - - - - - - - - true - true - - - - - - - - - - - - Textbox187 - - - - - - Bottom - 5pt - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox196 - - - - - - - - true - true - - - - - - - - - - - - Textbox198 - - - - - - - - true - true - - - - - - - - - - - - Textbox200 - - - - - - - - true - true - - - - - - - - - - - - Textbox201 - - - - - - - - true - true - - - - - - - - - - - - Textbox202 - - - - - - - - true - true - - - - - - - - - - - - Textbox203 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 23 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - 22 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - - - - - - - 4 - - - - - - - - - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!PaymentDisconVATCaption.Value) - - - - - - - 29 - - - 4 - - - - - - - - - true - true - - - - - =-(Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) -Last(Fields!TotalAmountInclVAT.Value)) - - - - - - - 28 - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox148 - - - - - - - - true - true - - - - - - - - - - - - Textbox149 - - - - - - - - true - true - - - - - - - - - - - - Textbox151 - - - - - - - - true - true - - - - - - - - - - - - Textbox152 - - - - - - - - true - true - - - - - - - - - - - - Textbox153 - - - - - - Bottom - 5pt - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox165 - - - - - - - - true - true - - - - - - - - - - - - Textbox167 - - - - - - - - true - true - - - - - - - - - - - - Textbox169 - - - - - - - - true - true - - - - - - - - - - - - Textbox170 - - - - - - - - true - true - - - - - - - - - - - - Textbox171 - - - - - - - - true - true - - - - - - - - - - - - Textbox172 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 32 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - 31 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - - - - - - - 4 - - - - - - - - - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!VATAmountLineVATAmountText.Value) - - - - - - - 38 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - Last(Fields!TotalAmount.Value) - - - - - - - 37 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 41 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - - 40 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - - - - - - - 4 - - - - - - - - - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATTextLCY.Value) - - - - - - - 47 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!AmountLCY.Value) - - - - - - - 46 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Last(Fields!VATAmountLineVATAmountText.Value) - - - - - - - 50 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!AmountIncLCYAmountLCY.Value) - - - - - - - 49 - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox105 - - - - - - - - true - true - - - - - - - - - - - - Textbox107 - - - - - - - - true - true - - - - - - - - - - - - Textbox109 - - - - - - - - true - true - - - - - - - - - - - - Textbox110 - - - - - - - - true - true - - - - - - - - - - - - Textbox111 - - - - - - - - true - true - - - - - - - - - - - - Textbox112 - - - - - - - - true - true - - - - - - - - - - - - Textbox114 - - - - - - - - true - true - - - - - - - - - - - - Textbox115 - - - - - - - - true - true - - - - - - - - - - - - Textbox116 - - - - - - - - true - true - - - - - - - - - - - - Textbox117 - - - - - - Bottom - 5pt - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox122 - - - - - - - - true - true - - - - - - - - - - - - Textbox123 - - - - - - - - true - true - - - - - - - - - - - - Textbox124 - - - - - - - - true - true - - - - - - - - - - - - Textbox126 - - - - - - - - true - true - - - - - - - - - - - - Textbox127 - - - - - - - - true - true - - - - - - - - - - - - Textbox128 - - - - - - - - true - true - - - - - - - - - - - - Textbox131 - - - - - - - - true - true - - - - - - - - - - - - Textbox133 - - - - - - - - true - true - - - - - - - - - - - - Textbox134 - - - - - - - - true - true - - - - - - - - - - - - Textbox135 - - - - - - - - true - true - - - - - - - - - - - - Textbox137 - - - - - - - - 0.35278cm - - - - - true - - - - - =Last(Fields!ExchangeRateCaption.Value) - - - - - - 2 - - - - - - - true - - - - - =Last(Fields!CurrncyFctr_SalesCrMemoHeader.Value) - - - - - - - 54 - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATTextLCY.Value) - - - - - - - 53 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!AmountIncLCY.Value) - - - - - - - 52 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - true - - - - - =Fields!TotalReverseChargeVATCaption.Value - - - - - - - textbox45 - 57 - - - 4 - - - - - - - - - true - true - - - - - =Last(Fields!TotalReverseCharge.Value) - - - - - - - textbox52 - 56 - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 13 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - - - After - true - true - - - - - =Fields!LineNo_SalesCrMemoLine.Value - - - - - - =IIF(Fields!Type_SalesCrMemoLine.Value=" ",False,True) - - After - true - - - - =IIF(Fields!Type_SalesCrMemoLine.Value<>" ",False,True) - - After - true - - - - =IIF(Fields!ReverseChrg_SalesCrMemoLine.Value = 0,True,False) - - After - true - - - - Detail - - - - - =IIF(Fields!ReturnReceiptCaption.Value<>"",False,True) - - - - - =IIF(Fields!LineDimensionsCaption.Value<>"",False,True) - - - - Detail_Collection - Output - true - - - - - Before - true - - - - =IIF(Sum(Fields!InvDiscAmt_SalesCrMemoLine.Value)<>0,False,True) - - Before - true - - - - =IIF(Sum(Fields!InvDiscAmt_SalesCrMemoLine.Value)<>0,False,True) - - Before - true - - - - =IIF((Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value)),False,True) - - Before - true - - - - =IIF((Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value)),False,True) - - Before - true - - - - =IIF((Not Fields!PriceIncludVAT_SalesCrMemoHeader.Value) And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - true - - - - =IIF((Not Fields!PriceIncludVAT_SalesCrMemoHeader.Value) And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - true - - - - =IIF((Not Fields!PriceIncludVAT_SalesCrMemoHeader.Value) And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - - - - =IIF((Not Fields!PriceIncludVAT_SalesCrMemoHeader.Value) And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - - - - =IIF((Not Fields!PriceIncludVAT_SalesCrMemoHeader.Value) And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - true - - - - =IIF((Not Fields!PriceIncludVAT_SalesCrMemoHeader.Value) And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesCrMemoHeader.Value And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))) And (Fields!VATBasDisc_SalesCrMemoHeader.Value<>0) ,False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesCrMemoHeader.Value And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - - - - =IIF(Fields!PriceIncludVAT_SalesCrMemoHeader.Value And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - - - - =IIF(Fields!PriceIncludVAT_SalesCrMemoHeader.Value And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesCrMemoHeader.Value And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesCrMemoHeader.Value And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesCrMemoHeader.Value And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesCrMemoHeader.Value And (Not (Sum(Fields!AmtIncludVAT_SalesCrMemoLine.Value)=Sum(Fields!Amt_SalesCrMemoLine.Value))),False,True) - - Before - true - - - - =IIF(First(Fields!CurCode_SalesCrMemoHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - true - - - - =IIF(First(Fields!CurCode_SalesCrMemoHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - true - - - - =IIF(First(Fields!CurCode_SalesCrMemoHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - - - - =IIF(First(Fields!CurCode_SalesCrMemoHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - - - - =IIF(First(Fields!CurCode_SalesCrMemoHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - true - - - Before - true - - - Before - true - - - - - - =Fields!No_SalesCrMemoLineCaption.Value - GreaterThan - - - - - - 0.00524cm - 10.9361cm - 17.78234cm - - =IIF(Fields!No_SalesCrMemoLineCaption.Value <>"",False,True) - - NoOutput - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =True - - - - - - - - - - 3.17459cm - - - 14.57137cm - - - - - 0.70556cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!HeaderDimensionsCaption.Value - - - - - - - - - - - true - - - - - =Fields!DimText.Value - - - - - - - - - - - - - - - - - - - - - After - - - - Detail - - - - - =IIF(Fields!DimensionLoop1Number.Value>=1,False,True) - - - - Detail_Collection - Output - true - - - - - - =Fields!DimText.Value - GreaterThan - - - - - - 7.3125in - 1.05834cm - 17.74596cm - 3 - - =IIF(Fields!DimensionLoop1Number.Value>=1,False,True) - - NoOutput - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShiptoAddressCaption.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!SelltoCustNo_SalesCrMemoHeaderCaption.Value - - - - - - - - - - - true - - - - - =Fields!SelltoCustNo_SalesCrMemoHeader.Value - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - - true - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr1.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr2.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr3.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr4.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr5.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr6.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr7.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr8.Value - - - - - - 2 - - - - - - - - - - - - - - - - - After - - - - Detail - - - - - - =IIF((Fields!BilltoCustNo_SalesCrMemoHeader.Value <> Fields!SelltoCustNo_SalesCrMemoHeader.Value),False,True) - - - - - =IIF((Fields!BilltoCustNo_SalesCrMemoHeader.Value <> Fields!SelltoCustNo_SalesCrMemoHeader.Value),False,True) - - - - - =IIF(Fields!ShipToAddr1.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr2.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr3.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr4.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr5.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr6.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr7.Value = "",True,False) - - - - - =IIF(Fields!ShipToAddr8.Value = "",True,False) - - - - Detail_Collection - Output - true - - - - - - =Fields!ShiptoAddressCaption.Value - GreaterThan - - - - - - 13.90939cm - 4.58614cm - 6.66666cm - 4 - - =IIF(First(Fields!ShiptoAddressCaption.Value) = "",True,False) - - NoOutput - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmountSpecificationCaption.Value - - - - - - 3 - - - - - - - - true - - - - - - - - - - - 4 - - - - - - - - - 0.35278cm - - - - - true - - - - - =First(Fields!VATIdentifierCaption.Value) - - - - - - - - - - - true - - - - - =First(Fields!VATPercentCaption.Value) - - - - - - - textbox72 - 23 - - - - - - - - true - - - - - =First(Fields!LineAmtCaption.Value) - - - - - - - textbox73 - 22 - - - - - - - - true - - - - - =First(Fields!InvDiscBaseAmtCaption.Value) - - - - - - - textbox74 - 21 - - - - - - - - true - - - - - =First(Fields!InvcDiscAmtCaption.Value) - - - - - - - textbox75 - 20 - - - - - - - - true - - - - - =First(Fields!VATBaseCaption.Value) - - - - - - - textbox76 - 19 - - - - - - - - true - - - - - =First(Fields!VATAmountCaption.Value) - - - - - - - textbox77 - 18 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox44 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox46 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox47 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox48 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox53 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox55 - - - - - - Bottom - 0.0625in - - - - - - - - 0.17638cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmtLineVATIdentifier.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineVAT.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineLineAmount.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscBaseAmt.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvoiceDiscAmt.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineVATBase.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineVATAmount.Value - - - - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!TotalCaption.Value - - - - - - - - - - - true - - - - - - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineLineAmount.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscBaseAmt.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvoiceDiscAmt.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineVATBase.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineVATAmount.Value) - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - After - true - true - - - After - true - true - - - After - true - - - After - true - true - - - - Detail - - - - - Detail_Collection - Output - true - - - Before - true - - - Before - - - Before - true - - - - - - =Fields!VATAmountSpecificationCaption.Value - GreaterThan - - - - - - 11.01031cm - 2.8222cm - 17.78241cm - 5 - - =IIF(First(Fields!VATAmountSpecificationCaption.Value)<>"",False,True) - - NoOutput - - - - - - - true - - - - - =Code.GetData(51) - - - - - - - true - - - - - =Code.GetData(52) - - - - - - - true - - - - - =Code.GetData(53) - - - - - - - true - - - - - =Code.GetData(54) - - - - - - - true - - - - - =Code.GetData(55) - - - - - - - true - - - - - =Code.GetData(56) - - - - - - - true - - - - - =Code.GetData(57) - - - - - - - true - - - - - =Code.GetData(58) - - - - - - - true - - - - - =Code.GetData(59) - - - - - - - true - - - - - =code.GetData(26) - - - - - - - 210.5pt - 14.91783cm - 11pt - 2.82813cm - 10 - - - - true - - - - - =code.GetData(39) - - - - - - - 220pt - 3.20125cm - 11pt - 8.25636cm - 11 - - - - true - - - - - =Code.GetData(60) - - - - - - - true - - - - - =code.GetData(46) - - - - - - - 241pt - 3.20125cm - 11pt - 14.54471cm - 13 - - =IIF(code.GetData(46)<>"",False,True) - - NoOutput - - - - true - - - - - =code.GetData(14) - - - - - - - 140.75pt - 11.47063cm - 11pt - 6.28833cm - 14 - - - - true - - - - - =code.GetData(12) - - - - - - - 130.75pt - 11.47063cm - 11pt - 6.28833cm - 15 - - - - true - - - - - =code.GetData(18) - - - - - - - true - - - - - =code.GetData(15) - - - - - - - true - - - - - =code.GetData(41) - - - - - - - true - - - - - =Code.GetData(61) - - - - - - - true - - - - - =code.GetData(44) - - - - - - - true - - - - - =code.GetData(37) - - - - - - - 230.5pt - 14.90678cm - 11pt - 2.83918cm - 21 - - - - true - - - - - =code.GetData(36) - - - - - - - true - - - - - =code.GetData(35) - - - - - - - 190pt - 3.20125cm - 11pt - 8.25636cm - 23 - - - - true - - - - - =code.GetData(33) - - - - - - - true - - - - - =Code.GetData(62) - - - - - - - true - - - - - =code.GetData(43) - - - - - - - 200pt - 3.20125cm - 11pt - 8.25636cm - 26 - - - - true - - - - - =code.GetData(30) - - - - - - - 180pt - 3.20125cm - 11pt - 8.25636cm - 27 - - - - true - - - - - =code.GetData(28) - - - - - - - 220.5pt - 14.91783cm - 11pt - 2.82813cm - 28 - - - - true - - - - - =code.GetData(24) - - - - - - - 200.5pt - 14.91783cm - 11pt - 2.84113cm - 29 - - - - true - - - - - =code.GetData(22) - - - - - - - 190.5pt - 14.90678cm - 11pt - 2.83918cm - 30 - - - - true - - - - - =code.GetData(20) - - - - - - - 160pt - 14.94714cm - 11pt - 2.79882cm - 31 - - - - true - - - - - =code.GetData(13) - - - - - - - true - - - - - =code.GetData(17) - - - - - - - 150pt - 14.94714cm - 11pt - 2.79882cm - 33 - - - - true - - - - - =code.GetData(11) - - - - - - - true - - - - - =code.GetData(10) - - - - - - - 120.75pt - 11.47063cm - 11pt - 6.28833cm - 35 - - - - true - - - - - =code.GetData(9) - - - - - - - true - - - - - =code.GetData(8) - - - - - - - 110pt - 11.45763cm - 11pt - 6.28833cm - 37 - - - - true - - - - - =code.GetData(7) - - - - - - - true - - - - - =code.GetData(6) - - - - - - - 100pt - 11.45763cm - 11pt - 6.28833cm - 39 - - - - true - - - - - =code.GetData(5) - - - - - - - true - - - - - =code.GetData(4) - - - - - - - 89.90002pt - 11.45763cm - 11pt - 6.28833cm - 41 - - - - true - - - - - =code.GetData(3) - - - - - - - true - - - - - =code.GetData(1) - - - - - - - 50pt - 20pt - 17.75896cm - 43 - - - - true - - - - - =code.GetData(31) - - - - - - - true - - - - - =Code.GetGroupPageNumber(Code.GetData(63) ,ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - 70pt - 11.45761cm - 11pt - 6.28835cm - 45 - - =IIF(code.GetData(35)<>"",False,True) - - NoOutput - - - - true - - - - - =Code.GetData(64) - - - - - - - true - - - - - =code.GetData(47) - - - - - - - true - true - - - - - =Code.GetData(66) - - - - - - - - - true - true - - - - - =Code.GetData(49) - - - - 1 - - - - 170pt - 13.00232cm - 20pt - 4.74364cm - 49 - - - - - - true - true - - - - - =Code.GetData(67) - - - - - - - - - true - true - - - - - =Code.GetData(68) - - - - - - - - - Database - =Convert.FromBase64String(Convert.ToBase64String(Fields!CompanyInfoPicture3.Value)) - image/bmp - FitProportional - 14mm - 60mm - 52 - - =iif((ISNOTHING(Fields!CompanyInfoPicture3.Value)) = TRUE,true,false) - - NoOutput - - - - Database - =Convert.FromBase64String(Convert.ToBase64String(Fields!CompanyInfoPicture1.Value)) - image/bmp - FitProportional - 6cm - 14mm - 60mm - 53 - - =iif((ISNOTHING(Fields!CompanyInfoPicture1.Value)) = TRUE,true,false) - - NoOutput - - - - Database - =Convert.FromBase64String(Convert.ToBase64String(Fields!CompanyInfoPicture2.Value)) - image/bmp - FitProportional - 12cm - 14mm - 60mm - 54 - - =iif((ISNOTHING(Fields!CompanyInfoPicture2.Value)) = TRUE,true,false) - - NoOutput - - - - - - - - - - 90 - - - - - - - - true - true - - - - - =Fields!Desc_SalesInvcLineCaption.Value - - - - - - 2 - - - - - - - true - true - - - - - =First(Fields!ShipmentDateCaption.Value) - - - - - - - 88 - - - - - - - - true - true - - - - - =Fields!Qty_SalesInvcLineCaption.Value - - - - - - - 87 - - - - - - - - true - true - - - - - =Fields!UOM_SalesInvcLineCaption.Value - - - - - - - - - - - true - true - - - - - =Fields!UnitPriceCaption.Value - - - - - - - 85 - - - - - - - - true - true - - - - - =Fields!DiscountPercentCaption.Value - - - - - - - 84 - - - - - - - - true - true - - - - - =Fields!VATIdentfr_SalesInvcLineCaption.Value - - - - - - 2 - - - - - - - true - true - - - - - =Fields!AmountCaption.Value - - - - - - - 82 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox966 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox967 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox969 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - Textbox970 - - - - - - Bottom - 0.0625in - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - - - - - - - - true - true - - - - - - - - - - - - Textbox973 - - - - - - Bottom - 0.0625in - - - - - - - - 0.17638cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - - true - - - - - =Fields!Desc_SalesInvcLine.Value - - - - - - 6 - - - - - - - - - - - true - - - - - - - - 4 - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!No_SalesInvcLine.Value - - - - - - - 77 - - - - - - - - true - true - - - - - =Fields!Desc_SalesInvcLine.Value - - - - - - 2 - - - - - - - true - - - - - =Fields!ShipmentDate_SalesInvcLine.Value - - - - - - - 75 - - - - - - - - true - true - - - - - =code.BlankZero(Fields!Qty_SalesInvcLine.Value) - - - - - - - 74 - - - - - - - - true - - - - - =Fields!UOM_SalesInvcLine.Value - - - - - - - - - - - true - true - - - - - =code.BlankZero(Fields!UnitPrice_SalesInvcLine.Value) - - - - - - - 72 - - - - - - - - true - true - - - - - =code.BlankZero(Fields!LineDisc_SalesInvcLine.Value) - - - - - - - 71 - - - - - - - - true - - - - - =Fields!VATIdentfr_SalesInvcLine.Value - - - - - - - 70 - - - 2 - - - - - - - true - true - - - - - =code.BlankZero(Fields!LineAmt_SalesInvcLine.Value) - - - - - - - 69 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - textbox2 - 68 - - - 3 - - - - - - - - true - - - - - =Fields!ReverseCharge_SalesInvcLineCaption.Value - - - - - - - textbox11 - 67 - - - 2 - - - - - - - true - true - - - - - =Fields!ReverseCharge_SalesInvcLine.Value - - - - - - - textbox13 - 66 - - - 2 - - - - - - - true - - - - - =Fields!SalesSetupInvcWording.Value - - - - - - 4 - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - - - - - true - - - - - =Fields!ShipmentCaption.Value - - - - - - 2 - - - - - - - true - - - - - =Fields!SalesShipmentBufferPostDate.Value - - - - - - - textbox48 - 62 - - - - - - - - true - - - - - =Fields!SalesShipmentBufferQty.Value - - - - - - - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!LineDimensionsCaption.Value - - - - - - - textbox22 - 1 - - - 2 - - - - - - - true - - - - - =Fields!DimText2.Value - - - - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!SubtotalCaption.Value) - - - - - - - 4 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!InvDiscountAmtCaption.Value) - - - - - - - 7 - - - 3 - - - - - - - - true - true - - - - - =-Last(Fields!TotalInvcDiscAmount.Value) - - - - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox154 - - - - - - - - true - true - - - - - - - - - - - - Textbox155 - - - - - - - - true - true - - - - - - - - - - - - Textbox156 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox128 - - - - - - - - true - true - - - - - - - - - - - - Textbox142 - - - - - - - - true - true - - - - - - - - - - - - Textbox144 - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalText.Value) - - - - - - - 10 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - true - - - - - - - - - - - 3 - - - - - - - - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 16 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmtText.Value) - - - - - - - 19 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - Last(Fields!TotalAmount.Value) - - - - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox120 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox124 - - - - - - - - true - true - - - - - - - - - - - - Textbox125 - - - - - - - - true - true - - - - - - - - - - - - Textbox126 - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox133 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox137 - - - - - - - - true - true - - - - - - - - - - - - Textbox138 - - - - - - - - true - true - - - - - - - - - - - - Textbox139 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 22 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - - - - - - - 3 - - - - - - - - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!PaymentDiscVATCaption.Value) - - - - - - - 28 - - - 3 - - - - - - - - true - true - - - - - =-(Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvcDiscAmount.Value) - Last(Fields!TotalAmountInclVAT.Value)) - - - - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox56 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox83 - - - - - - - - true - true - - - - - - - - - - - - Textbox86 - - - - - - - - true - true - - - - - - - - - - - - Textbox88 - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox107 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox111 - - - - - - - - true - true - - - - - - - - - - - - Textbox112 - - - - - - - - true - true - - - - - - - - - - - - Textbox113 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 31 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - true - - - - - - - - - - - 3 - - - - - - - - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmtText.Value) - - - - - - - 37 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - Last(Fields!TotalAmount.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 40 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmount.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - - - - - - - 3 - - - - - - - - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATTextLCY.Value) - - - - - - - 46 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!AmountLCY.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmtText.Value) - - - - - - - 49 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!AmountIncLCYAmountLCY.Value) - - - - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox17 - - - - - - - - true - true - - - - - - - - - - - - Textbox18 - - - - - - - - true - true - - - - - - - - - - - - Textbox19 - - - - - - - - true - true - - - - - - - - - - - - Textbox21 - - - - - - - - true - true - - - - - - - - - - - - Textbox23 - - - - - - - - true - true - - - - - - - - - - - - Textbox24 - - - - - - - - true - true - - - - - - - - - - - - Textbox25 - - - - - - - - true - true - - - - - - - - - - - - - - Top - 5pt - - - 2 - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox32 - - - - - - - - true - true - - - - - - - - - - - - Textbox33 - - - - - - - - true - true - - - - - - - - - - - - Textbox35 - - - - - - - - true - true - - - - - - - - - - - - Textbox38 - - - - - - - - true - true - - - - - - - - - - - - Textbox39 - - - - - - - - true - true - - - - - - - - - - - - Textbox40 - - - - - - - - true - true - - - - - - - - - - - - Textbox41 - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Last(Fields!ExchangeRateCaption.Value) - - - - - - 2 - - - - - - - true - - - - - =Last(Fields!CurrencyFactor_SalesInvcHeader.Value) - - - - - - - 53 - - - 4 - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATTextLCY.Value) - - - - - - - 52 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!AmountIncLCY.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 11 - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 6 - - - - - - - - - - - true - - - - - =Fields!TotalReverseChargeVATCaption.Value - - - - - - - textbox29 - 57 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalReverseCharge.Value) - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - - - - 11 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - - - After - true - true - - - - - =Fields!LineNo_SalesInvcLine.Value - - - - - - =IIF(Fields!Type_SalesInvcLine.Value=" ",False,True) - - After - true - - - - =IIF(Fields!Type_SalesInvcLine.Value<>" ",False,True) - - After - true - - - - =IIF(Fields!ReverseCharge_SalesInvcLine.Value = 0,True,False) - - After - true - - - - Detail - - - - - =IIF(Fields!ShipmentCaption.Value<>"",False,True) - - - - - =IIF(Fields!LineDimensionsCaption.Value<>"",False,True) - - - - Detail_Collection - Output - true - - - - - Before - true - - - - =IIF(Sum(Fields!InvDiscAmt_SalesInvcLine.Value)<>0,False,True) - - Before - true - - - - =IIF(Sum(Fields!InvDiscAmt_SalesInvcLine.Value)<>0,False,True) - - Before - true - - - Before - - - Before - - - - =IIF((Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value)),False,True) - - Before - true - - - - =IIF((Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value)),False,True) - - Before - true - - - - =IIF((Not First(Fields!PriceIncludVAT_SalesInvcHeader.Value)) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - true - - - - =IIF((Not First(Fields!PriceIncludVAT_SalesInvcHeader.Value)) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - true - - - - =IIF((Not First(Fields!PriceIncludVAT_SalesInvcHeader.Value)) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - - - - =IIF((Not First(Fields!PriceIncludVAT_SalesInvcHeader.Value)) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - - - - =IIF((Not First(Fields!PriceIncludVAT_SalesInvcHeader.Value)) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - true - - - - =IIF((Not First(Fields!PriceIncludVAT_SalesInvcHeader.Value)) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - true - - - - =IIF(First(Fields!PriceIncludVAT_SalesInvcHeader.Value) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))) - And (First(Fields!VATBaseDisc_SalesInvcHeader.Value)<>0),False,True) - - Before - true - - - - =IIF(First(Fields!PriceIncludVAT_SalesInvcHeader.Value) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - - - - =IIF(First(Fields!PriceIncludVAT_SalesInvcHeader.Value) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - - - - =IIF(First(Fields!PriceIncludVAT_SalesInvcHeader.Value) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - true - - - - =IIF(First(Fields!PriceIncludVAT_SalesInvcHeader.Value) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - true - - - - =IIF(First(Fields!PriceIncludVAT_SalesInvcHeader.Value) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - true - - - - =IIF(First(Fields!PriceIncludVAT_SalesInvcHeader.Value) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - true - - - - =IIF(First(Fields!PriceIncludVAT_SalesInvcHeader.Value) - And (Not (Sum(Fields!Amt_SalesInvcLine.Value)=Sum(Fields!AmtIncludVAT_SalesInvcLine.Value))),False,True) - - Before - true - - - - =IIF(First(Fields!CurrencyCode_SalesInvcHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - true - - - - =IIF(First(Fields!CurrencyCode_SalesInvcHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - true - - - - =IIF(First(Fields!CurrencyCode_SalesInvcHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - - - - =IIF(First(Fields!CurrencyCode_SalesInvcHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - - - - =IIF(First(Fields!CurrencyCode_SalesInvcHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - true - - - - =IIF(First(Fields!CurrencyCode_SalesInvcHeader.Value)<>"" And First(Fields!CurrencyLCY.Value),False,True) - - Before - true - - - - =IIF(Sum(Fields!ReverseCharge_SalesInvcLine.Value) = 0,True,False) - - Before - true - - - - =IIF(Sum(Fields!ReverseCharge_SalesInvcLine.Value) = 0,True,False) - - Before - true - - - - DataSet_Result - - - =Fields!No_SalesInvcLineCaption.Value - GreaterThan - - - - - - 0.06874cm - 11.64164cm - 18.1177cm - - =IIF(Fields!No_SalesInvcLineCaption.Value<>"",False,True) - - NoOutput - - - - - - LightCoral - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =True - - - - - - - - - - 3.14414cm - - - 14.86477cm - - - - - 0.70556cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!HeaderDimensionsCaption.Value - - - - - - - - - - - true - - - - - =Fields!DimText.Value - - - - - - - - - - - - - - - - - - - - - After - - - - Detail - - - - - =IIF(Fields!DimLoop1Number.Value>=1,False,True) - - - - Detail_Collection - Output - true - - - - - - =Fields!DimText.Value - GreaterThan - - - - - - 19.05cm - 1.05834cm - 18.00891cm - 3 - - =IIF(Fields!DimLoop1Number.Value>=1,False,True) - - NoOutput - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShiptoAddressCaption.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!SelltoCustNo_SalesInvcHeaderCaption.Value - - - - - - - - - - - true - - - - - =Fields!SelltoCustNo_SalesInvcHeader.Value - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - - - true - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr1.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr2.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr3.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr4.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr5.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr6.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr7.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr8.Value - - - - - - 2 - - - - - - - - - - - - - - - - - After - - - - Detail - - - - - - =IIF((Fields!SelltoCustNo_SalesInvcHeader.Value <> Fields!BilltoCustNo_SalesInvcHeader.Value),False,True) - - - - - =IIF((Fields!SelltoCustNo_SalesInvcHeader.Value <> Fields!BilltoCustNo_SalesInvcHeader.Value),False,True) - - - - - - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!ShiptoAddressCaption.Value - GreaterThan - - - - - - 14.75077cm - 4.1628cm - 7.61906cm - 4 - - =IIF(First(Fields!ShiptoAddressCaption.Value)<>"",False,true) - - NoOutput - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmtSpecCaption.Value - - - - - - 3 - - - - - - - - true - - - - - - - - - - - 4 - - - - - - - - - 0.35278cm - - - - - true - - - - - =First(Fields!VATIdentifierCaption.Value) - - - - - - - - - - - true - - - - - =First(Fields!VATPercentCaption.Value) - - - - - - - textbox72 - 21 - - - - - - - - true - - - - - =First(Fields!LineAmountCaption.Value) - - - - - - - textbox73 - 20 - - - - - - - - true - - - - - =First(Fields!InvDiscBaseAmtCaption.Value) - - - - - - - textbox74 - 19 - - - - - - - - true - - - - - =First(Fields!InvDiscountAmtCaption1.Value) - - - - - - - textbox75 - 18 - - - - - - - - true - - - - - =First(Fields!VATBaseCaption.Value) - - - - - - - textbox76 - 17 - - - - - - - - true - - - - - =First(Fields!VATAmountCaption.Value) - - - - - - - textbox77 - 16 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox975 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox976 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox977 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox978 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox979 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox980 - - - - - - Bottom - 5pt - 5pt - - - - - - - - 0.17638cm - - - - - true - - - - - - - - 7 - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!VATAmountLineVATIdentifier.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmountLineVAT.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmountLineLineAmount.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscBaseAmt.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvcDiscAmt.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATBase.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmountLineVATAmount.Value - - - - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!TotalCaption.Value - - - - - - - - - - - true - - - - - - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineLineAmount.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscBaseAmt.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvcDiscAmt.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATBase.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmountLineVATAmount.Value) - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - After - true - true - - - After - true - true - - - After - true - - - After - true - true - - - - Detail - - - - - Detail_Collection - Output - true - - - Before - true - - - Before - - - Before - true - - - - - - =Fields!VATIdentifierCaption.Value - GreaterThan - - - - - - 11.89931cm - 2.55761cm - 18.00889cm - 5 - - =IIF(First(Fields!VATIdentifierCaption.Value)<>"",False,True) - - NoOutput - - - - - - - true - - - - - =Code.GetData(54) - - - - - - - true - - - - - =Code.GetData(55) - - - - - - - true - - - - - =Code.GetData(56) - - - - - - - true - - - - - =Code.GetData(57) - - - - - - - true - - - - - =Code.GetData(58) - - - - - - - true - - - - - =Code.GetData(59) - - - - - - - true - - - - - =Code.GetData(60) - - - - - - - true - - - - - =Code.GetData(61) - - - - - - - true - - - - - =Code.GetData(62) - - - - - - - true - - - - - =Code.GetData(63) - - - - - - - true - - - - - =code.GetData(25) - - - - - - - 8.08779cm - 15.37695cm - 11pt - 2.69856cm - 11 - - - - true - - - - - =code.GetData(47) - - - - - - - 10.94438cm - 3.38646cm - 11pt - 14.64891cm - 12 - - =IIF(code.GetData(47)<>"",False,True) - - NoOutput - - - - true - - - - - =code.GetData(14) - - - - - - - 5.55886cm - 12.35604cm - 11pt - 5.67933cm - 13 - - - - true - - - - - =code.GetData(12) - - - - - - - 5.13586cm - 12.35604cm - 11pt - 5.67933cm - 14 - - - - true - - - - - =code.GetData(18) - - - - - - - true - - - - - =code.GetData(15) - - - - - - - true - - - - - =code.GetData(39) - - - - - - - 8.47678cm - 3.38646cm - 11pt - 8.94312cm - 17 - - - - true - - - - - =code.GetData(38) - - - - - - - true - - - - - =code.GetData(41) - - - - - - - true - - - - - =code.GetData(40) - - - - - - - true - - - - - =code.GetData(35) - - - - - - - 7.66303cm - 3.38646cm - 11pt - 8.96958cm - 21 - - - - true - - - - - =code.GetData(37) - - - - - - - 8.93302cm - 15.37695cm - 11pt - 2.69855cm - 22 - - - - true - - - - - =code.GetData(36) - - - - - - - true - - - - - =code.GetData(45) - - - - - - - 9.29279cm - 3.38646cm - 11pt - 14.6745cm - 24 - - - - true - - - - - =code.GetData(33) - - - - - - - true - - - - - =code.GetData(32) - - - - - - - true - - - - - =code.GetData(43) - - - - - - - 8.88978cm - 3.38646cm - 11pt - 8.94312cm - 27 - - - - true - - - - - =code.GetData(30) - - - - - - - 6.40453cm - 3.38646cm - 11pt - 8.96958cm - 28 - - - - true - - - - - =code.GetData(28) - - - - - - - 8.51077cm - 15.37695cm - 11pt - 2.69856cm - 29 - - - - true - - - - - =code.GetData(24) - - - - - - - 7.66479cm - 15.37695cm - 11pt - 2.69856cm - 30 - - - - true - - - - - =code.GetData(22) - - - - - - - 7.26178cm - 15.37695cm - 11pt - 2.69856cm - 31 - - - - true - - - - - =code.GetData(20) - - - - - - - 6.42604cm - 15.37695cm - 11pt - 2.72414cm - 32 - - - - true - - - - - =code.GetData(13) - - - - - - - true - - - - - =code.GetData(17) - - - - - - - 6.00303cm - 15.37695cm - 11pt - 2.72414cm - 34 - - - - true - - - - - =code.GetData(11) - - - - - - - true - - - - - =code.GetData(10) - - - - - - - 4.71287cm - 12.35604cm - 11pt - 5.67933cm - 36 - - - - true - - - - - =code.GetData(9) - - - - - - - true - - - - - =code.GetData(8) - - - - - - - 122.10001pt - 12.35604cm - 11pt - 5.67933cm - 38 - - - - true - - - - - =code.GetData(7) - - - - - - - true - - - - - =code.GetData(6) - - - - - - - 110.30002pt - 12.32958cm - 11pt - 5.70579cm - 40 - - - - true - - - - - =code.GetData(5) - - - - - - - true - - - - - =code.GetData(4) - - - - - - - 98.50002pt - 12.35604cm - 11pt - 5.67933cm - 42 - - - - true - - - - - =code.GetData(3) - - - - - - - true - - - - - =code.GetData(1) - - - - - - - 1.905cm - 20pt - 18.03537cm - 44 - - - - true - - - - - =code.GetData(31) - - - - - - - true - - - - - =Code.GetGroupPageNumber(Code.GetData(64),ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - 75.8pt - 12.35604cm - 11pt - 5.67933cm - 46 - - =IIF(code.GetData(35)<>"",False,True) - - NoOutput - - - - true - - - - - =Code.GetData(65) - - - - - - - true - - - - - =code.GetData(49) - - - - - - - true - - - - - =Code.GetData(66) - - - - - - - true - - - - - =code.GetData(50) - - - - - - - true - - - - - =Code.GetData(68) - - - - - - - true - - - - - =code.GetData(52) - - - - - - - true - true - - - - - =Code.GetData(69) - - - - - - - - - true - true - - - - - =Code.GetData(70) - - - - - - - - - true - true - - - - - =code.GetData(48) - - - - - - - 6.84465cm - 15.37695cm - 11pt - 2.72414cm - 55 - - - - - - Database - =Convert.FromBase64String((Convert.ToBase64String(Fields!CompanyInfoPicture3.Value))) - image/bmp - FitProportional - 14mm - 60mm - 56 - - =iif((ISNOTHING(Fields!CompanyInfoPicture3.Value)) = TRUE,true,false) - - NoOutput - - - - Database - =Convert.FromBase64String((Convert.ToBase64String(Fields!CompanyInfoPicture1.Value))) - image/bmp - FitProportional - 6cm - 14mm - 60mm - 57 - - =iif((ISNOTHING(Fields!CompanyInfoPicture1.Value)) = TRUE,true,false) - - NoOutput - - - - Database - =Convert.FromBase64String((Convert.ToBase64String(Fields!CompanyInfoPicture2.Value))) - image/bmp - FitProportional - 12cm - 14mm - 60mm - 58 - - =iif((ISNOTHING(Fields!CompanyInfoPicture2.Value)) = TRUE,true,false) - - NoOutput - - - - - - - - - - - - - - true - true - - - - - =First(Fields!Desc1_SalesLineCaption.Value) - - - - - - 2 - - - - - - - true - true - - - - - =Fields!Qty_SalesLineCaption.Value - - - - - - - 66 - - - - - - - - true - true - - - - - =Fields!UOM_SalesLineCaption.Value - - - - - - - - - - - true - true - - - - - =First(Fields!UnitPriceCaption.Value) - - - - - - - 64 - - - - - - - - true - true - - - - - =First(Fields!DiscPercentCaption.Value) - - - - - - - 63 - - - - - - - - true - true - - - - - =Fields!VATIdentifierCaption.Value - - - - - - - - - - - true - true - - - - - =First(Fields!AmountCaption.Value) - - - - - - - 61 - - - - - - - - 0.17638cm - - - - - true - - - - - - - - - - - 9 - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - 0.35278cm - - - - - true - true - - - - - - - - - - - - - - - - true - - - - - =Fields!SalesLineDesc.Value - - - - - - 6 - - - - - - - - - - - true - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!No_SalesLine.Value - - - - - - - 55 - - - - - - - - true - - - - - =Fields!Desc1_SalesLine.Value - - - - - - 2 - - - - - - - true - true - - - - - =code.BlankZero(Fields!Qty_SalesLine.Value) - - - - - - - 53 - - - - - - - - true - true - - - - - =Fields!UOM_SalesLine.Value - - - - - - - - - - - true - true - - - - - =code.BlankZero(Fields!UnitPrice_SalesLine.Value) - - - - - - - 51 - - - - - - - - true - true - - - - - =code.BlankZero(Fields!LineDisc_SalesLine.Value) - - - - - - - 50 - - - - - - - - true - true - - - - - =Fields!VATIdentifier_SalesLine.Value - - - - - - - - - - - true - true - - - - - =code.BlankZero(Fields!LineAmt1_SalesLine.Value) - - - - - - - 48 - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!LineDimensionsCaption.Value - - - - - - 2 - - - - - - - true - - - - - =Fields!DimText1.Value - - - - - - 7 - - - - - - - - - - - - 0.4064cm - - - - - true - - - - - - - - - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!SubtotalCaption.Value) - - - - - - - 8 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - - - - - - - 7 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!InvDiscAmtCaption.Value) - - - - - - - 11 - - - 3 - - - - - - - - true - true - - - - - =-Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 10 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalText.Value) - - - - - - - 14 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 13 - - - - - - - - 0.4064cm - - - - - true - - - - - - - - - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 20 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) - - - - - - - 19 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmtText.Value) - - - - - - - 23 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATAmount.Value) - - - - - - - 22 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 26 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalLineAmount.Value) - Last(Fields!TotalInvoiceDiscAmount.Value) + Last(Fields!VATAmount.Value) - - - - - - - 25 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!PaymentDisconVATCaption.Value) - - - - - - - 29 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATDiscountAmount.Value) - - - - - - - 28 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalInclVATText.Value) - - - - - - - 32 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!TotalAmountInclVAT.Value) - - - - - - - 31 - - - - - - - - 0.4064cm - - - - - true - - - - - - - - - - - 9 - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!VATAmtLineVATAmtText.Value) - - - - - - - 38 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATAmount.Value) - - - - - - - 37 - - - - - - - - 0.35278cm - - - - - true - - - - - - - - - - - 5 - - - - - - - - - - true - - - - - =Last(Fields!TotalExclVATText.Value) - - - - - - - 41 - - - 3 - - - - - - - - true - true - - - - - =Last(Fields!VATBaseAmount.Value) - - - - - - - 40 - - - - - - - - 0.4064cm - - - - - true - - - - - - - - 9 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - true - - - After - true - true - - - After - true - - - - - =Fields!LineNo_SalesLine.Value - - - - - - =IIF(Fields!SalesLineType.Value=" ",False,True) - - After - true - - - - =IIF(Fields!SalesLineType.Value<>" ",False,True) - - After - true - - - - Detail - - - - - =IIF(Fields!LineDimensionsCaption.Value<>"",False,True) - - - - Detail_Collection - Output - true - - - - - Before - true - - - - =IIF(Sum(Fields!SalesLineInvDiscAmt.Value)<>0,False,True) - - Before - true - - - - =IIF(Sum(Fields!SalesLineInvDiscAmt.Value)<>0,False,True) - - Before - true - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - true - - - - =IIF(Sum(Fields!VATAmount.Value)=0,False,True) - - Before - true - - - - =IIF((Not Fields!PriceIncludVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Not Fields!PriceIncludVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Not Fields!PriceIncludVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF((Not Fields!PriceIncludVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF((Not Fields!PriceIncludVAT_SalesHeader.Value) And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF((Sum(Fields!VATDiscountAmount.Value)<>0) - And (Sum(Fields!VATAmount.Value)<>0) - And Fields!PriceIncludVAT_SalesHeader.Value - And (Fields!VATBaseDisc_SalesHeader.Value<>0),False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF(Fields!PriceIncludVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - - - - =IIF(Fields!PriceIncludVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - - =IIF(Fields!PriceIncludVAT_SalesHeader.Value And (Sum(Fields!VATAmount.Value)<>0),False,True) - - Before - true - - - Before - true - - - - DataSet_Result - - - =Fields!No_SalesLineCaption.Value - GreaterThan - - - - - - 0.02641cm - 7.97555cm - 18.09199cm - - =IIF(Fields!No_SalesLineCaption.Value<>"",False,True) - - NoOutput - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =True - - - - - - - - - - 1.25736in - - - 5.87179in - - - - - 0.70556cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!HeaderDimensionsCaption.Value - - - - - - - - - - - true - - - - - =Fields!DimText.Value - - - - - - - - - - - - - - - - - - - - - After - - - - Detail - - - - - =IIF(Fields!DimensionLoop1Number.Value>=1,False,True) - - - - Detail_Collection - Output - true - - - - - - =Fields!DimText.Value - GreaterThan - - - - - - 6.14204in - 1.05834cm - 7.12915in - 3 - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!VATAmountSpecificationCaption.Value - - - - - - 3 - - - - - - - - true - - - - - - - - - - - 4 - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!VATIdentifierCaption.Value - - - - - - - - - - - true - true - - - - - =First(Fields!VATPercentCaption.Value) - - - - - - - textbox72 - 33 - - - - - - - - true - true - - - - - =First(Fields!LineAmountCaption.Value) - - - - - - - textbox73 - 32 - - - - - - - - true - true - - - - - =First(Fields!InvDiscBaseAmountCaption.Value) - - - - - - - textbox74 - 31 - - - - - - - - true - true - - - - - =First(Fields!InvoiceDiscAmtCaption.Value) - - - - - - - textbox75 - 30 - - - - - - - - true - true - - - - - =First(Fields!VATBaseCaption.Value) - - - - - - - textbox76 - 29 - - - - - - - - true - true - - - - - =First(Fields!VATAmountCaption.Value) - - - - - - - textbox77 - 28 - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox147 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox148 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox149 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox151 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox152 - - - - - - Bottom - 5pt - 5pt - - - - - - - - true - true - - - - - - - - - - - - Textbox153 - - - - - - Bottom - 5pt - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - - - - - - true - true - - - - - - - - - - - - Textbox155 - - - - - - - - true - true - - - - - - - - - - - - Textbox157 - - - - - - - - true - true - - - - - - - - - - - - Textbox158 - - - - - - - - true - true - - - - - - - - - - - - Textbox159 - - - - - - - - true - true - - - - - - - - - - - - Textbox160 - - - - - - - - true - true - - - - - - - - - - - - Textbox161 - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!VATAmtLineVATIdentifier.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineVAT.Value - - - - - - - textbox65 - 5 - - - - - - - - true - true - - - - - =Fields!VATAmtLineLineAmt.Value - - - - - - - textbox66 - 4 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvDiscBaseAmt.Value - - - - - - - textbox67 - 3 - - - - - - - - true - true - - - - - =Fields!VATAmtLineInvoiceDiscountAmt.Value - - - - - - - textbox68 - 2 - - - - - - - - true - true - - - - - =Fields!VATAmtLineVATBase.Value - - - - - - - - - - - true - true - - - - - =Fields!VATAmtLineVATAmt.Value - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - 7 - - - - - - - - - - - - 0.17638cm - - - - - true - true - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - true - true - - - - - - - - - - - - - - Bottom - 5pt - - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!TotalCaption.Value - - - - - - - - - - - true - - - - - - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineLineAmt.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvDiscBaseAmt.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineInvoiceDiscountAmt.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineVATBase.Value) - - - - - - - - - - - true - true - - - - - =Sum(Fields!VATAmtLineVATAmt.Value) - - - - - - - - - - - - - - - - - - - - - - - - - - After - true - - - After - true - true - - - After - true - true - - - After - true - - - After - true - - - - Detail - - - - - Detail_Collection - Output - true - - - Before - - - Before - - - Before - true - - - - - - =Fields!VATAmountSpecificationCaption.Value - GreaterThan - - - - - - 8.05276cm - 2.82219cm - 18.11846cm - 4 - - =IIF(Fields!VATAmountSpecificationCaption.Value<>"",False,True) - - NoOutput - - - - - - - - - - - true - true - - - - - - - - - - - - - - - - 0.35278cm - - - - - true - true - - - - - =Fields!ShiptoAddressCaption.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!SelltoCustNo_SalesHeaderCaption.Value - - - - - - - - - - - true - - - - - =Fields!SelltoCustNo_SalesHeader.Value - - - - - - - - - - - 0.4064cm - - - - - true - - - - - - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr1.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr2.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr3.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr4.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr5.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr6.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr7.Value - - - - - - 2 - - - - - - - 0.35278cm - - - - - true - - - - - =Fields!ShipToAddr8.Value - - - - - - 2 - - - - - - - - - - - - - - - - - - Detail - - - - - - - =IIF((Fields!BilltoCustNo_SalesHeader.Value <> Fields!SelltoCustNo_SalesHeader.Value),False,True) - - - - - - - - - - - - - Detail_Collection - Output - true - - - - - - =Fields!ShiptoAddressCaption.Value - GreaterThan - - - - - - 10.92221cm - 4.63977cm - 6.51599cm - 5 - - =IIF(Fields!ShiptoAddressCaption.Value<>"",False,True) - - NoOutput - - - - - - - true - - - - - =Code.GetData(49) - - - - - - - true - - - - - =Code.GetData(50) - - - - - - - true - - - - - =Code.GetData(51) - - - - - - - true - - - - - =Code.GetData(52) - - - - - - - true - - - - - =Code.GetData(53) - - - - - - - true - - - - - =Code.GetData(54) - - - - - - - true - - - - - =Code.GetData(55) - - - - - - - true - - - - - =Code.GetData(56) - - - - - - - true - - - - - =Code.GetData(57) - - - - - - - true - - - - - =code.GetData(26) - - - - - - - 200pt - 14.53977cm - 11pt - 3.56444cm - 10 - - - - true - - - - - =code.GetData(43) - - - - - - - 251pt - 3.3899cm - 11pt - 14.69356cm - 11 - - =IIF(code.GetData(43)<>"",False,True) - - NoOutput - - - - true - - - - - =code.GetData(14) - - - - - - - 140pt - 11.72148cm - 11pt - 6.38266cm - 12 - - - - true - - - - - =code.GetData(12) - - - - - - - 130pt - 11.7182cm - 11pt - 6.38594cm - 13 - - - - true - - - - - =code.GetData(18) - - - - - - - true - - - - - =code.GetData(15) - - - - - - - true - - - - - =code.GetData(41) - - - - - - - 170pt - 3.38991cm - 11pt - 8.36003cm - 16 - - - - true - - - - - =Code.GetData(58) - - - - - - - true - - - - - =code.GetData(39) - - - - - - - 190pt - 3.3899cm - 11pt - 8.36004cm - 18 - - - - true - - - - - =code.GetData(37) - - - - - - - 220pt - 14.50003cm - 11pt - 3.60411cm - 19 - - - - true - - - - - =Code.GetData(59) - - - - - - - true - - - - - =code.GetData(35) - - - - - - - 210pt - 3.39347cm - 11pt - 8.32472cm - 21 - - - - true - - - - - =code.GetData(33) - - - - - - - 160pt - 3.37771cm - 11pt - 8.34405cm - 22 - - - - true - - - - - =Code.GetData(60) - - - - - - - true - - - - - =code.GetData(30) - - - - - - - 180pt - 3.39347cm - 11pt - 8.32829cm - 24 - - - - true - - - - - =code.GetData(28) - - - - - - - 210pt - 14.53967cm - 11pt - 3.56454cm - 25 - - - - true - - - - - =code.GetData(24) - - - - - - - 190pt - 14.52374cm - 11pt - 3.56444cm - 26 - - - - true - - - - - =code.GetData(22) - - - - - - - 180pt - 14.52374cm - 11pt - 3.56444cm - 27 - - - - true - - - - - =Code.GetData(61) - - - - - - - 160pt - 14.53972cm - 11pt - 3.56442cm - 28 - - - - true - - - - - =code.GetData(13) - - - - - - - true - - - - - =code.GetData(17) - - - - - - - 150pt - 14.52365cm - 11pt - 3.56442cm - 30 - - - - true - - - - - =code.GetData(11) - - - - - - - true - - - - - =code.GetData(10) - - - - - - - 120pt - 11.7182cm - 11pt - 6.38601cm - 32 - - - - true - - - - - =code.GetData(9) - - - - - - - true - - - - - =code.GetData(8) - - - - - - - 110pt - 11.7374cm - 11pt - 6.36674cm - 34 - - - - true - - - - - =code.GetData(7) - - - - - - - true - - - - - =code.GetData(6) - - - - - - - 100pt - 11.73274cm - 11pt - 6.3714cm - 36 - - - - true - - - - - =code.GetData(5) - - - - - - - true - - - - - =code.GetData(4) - - - - - - - 90pt - 11.73749cm - 11pt - 6.36665cm - 38 - - - - true - - - - - =code.GetData(3) - - - - - - - true - - - - - =code.GetData(1) - - - - - - - 50pt - 0.34555pt - 20pt - 18.09195cm - 40 - - - - true - - - - - =code.GetData(31) - - - - - - - 200pt - 3.3899cm - 11pt - 8.36004cm - 41 - - - - true - - - - - =Code.GetGroupPageNumber(Code.GetData(62),ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - 70pt - 331.71591pt - 11pt - 6.38126cm - 42 - - =IIF(code.GetData(39)<>"",False,True) - - NoOutput - - - - true - true - - - - - =Code.GetData(63) - - - - - - - - - true - true - - - - - =Code.GetData(64) - - - - - - - 170pt - 14.52365cm - 11pt - 3.56444cm - 44 - - - - - - true - true - - - - - =Code.GetData(65) - - - - - - - - - true - - - - - =Code.GetData(66) - - - - - - - true - - - - - =code.GetData(44) - - - - - - - 220pt - 1.33461in - 0.15278in - 3.29897in - 47 - - - - true - - - - - =Code.GetData(67) - - - - - - - true - - - - - =code.GetData(45) - - - - - - - 230pt - 1.33461in - 0.15278in - 5.78486in - 49 - - - - true - - - - - =Code.GetData(69) - - - - - - - true - - - - - =code.GetData(47) - - - - - - - 241pt - 1.33461in - 0.15278in - 5.78486in - 51 - - - - Database - =Convert.FromBase64String((Convert.ToBase64String(Fields!CompanyInfoPicture3.Value))) - image/bmp - FitProportional - 14mm - 60mm - 52 - - =iif((ISNOTHING(Fields!CompanyInfoPicture3.Value)) = TRUE ,true,false) - - NoOutput - - - - Database - =Convert.FromBase64String((Convert.ToBase64String(Fields!CompanyInfoPicture1.Value))) - image/bmp - FitProportional - 6cm - 14mm - 60mm - 53 - - =iif((ISNOTHING(Fields!CompanyInfoPicture1.Value)) = TRUE,true,false) - - NoOutput - - - - Database - =Convert.FromBase64String((Convert.ToBase64String(Fields!CompanyInfoPicture2.Value))) - image/bmp - FitProportional - 12cm - 14mm - 60mm - 54 - - =iif((ISNOTHING(Fields!CompanyInfoPicture2.Value)) = TRUE,true,false) - - NoOutput - - - -