From ebb266cbf40fd13d003d31ea0fe8c7ea91c7b975 Mon Sep 17 00:00:00 2001 From: Alexander Yakunin Date: Fri, 21 Aug 2026 15:57:07 +0200 Subject: [PATCH 1/6] Remove CLEAN27 tags for W1 and Apps --- .../Common/CommonModuleAT.Codeunit.al | 16 - .../CreateVatPostingGroupAT.Codeunit.al | 18 - .../CreateItemChargeAT.Codeunit.al | 20 - .../CreateItemTemplateAT.Codeunit.al | 19 - .../Common/CommonModuleAU.Codeunit.al | 17 - .../CreateAUVATPostingGroups.Codeunit.al | 19 - .../CreateAUItemCharge.Codeunit.al | 20 - .../CreateAUItemTemplate.Codeunit.al | 19 - .../Common/CommonModuleBE.Codeunit.al | 17 - .../CreateVATPostingGroupBE.Codeunit.al | 7 - .../CreateItemChargeBE.Codeunit.al | 19 - .../CreateItemTemplateBE.Codeunit.al | 17 - .../WarehouseModuleSetupBE.Codeunit.al | 17 - .../Common/CommonModuleCH.Codeunit.al | 17 - .../CreateCHVATPostingGroups.Codeunit.al | 9 - .../CreateCHItemCharge.Codeunit.al | 19 - .../CreateCHItemTemplate.Codeunit.al | 17 - .../Pages/AdvanceLetterTemplatesCZZ.Page.al | 11 - .../Pages/PurchAdvLetterEntriesCZZ.Page.al | 36 - .../Reports/SalesInvoicewithAdvCZZ.Report.al | 4 - .../Tables/AdvanceLetterTemplateCZZ.Table.al | 5 - .../DataClassEvalHandlerCZA.Codeunit.al | 13 - .../ItemJnlPostLineHandlerCZA.Codeunit.al | 4 - .../PostedAssemblyOrderCZA.PageExt.al | 12 - .../PostedAssemblyOrderSubfCZA.PageExt.al | 12 - .../PostedAssemblyHeaderCZA.TableExt.al | 5 - .../PostedAssemblyLineCZA.TableExt.al | 5 - .../app/Src/Pages/BankStatementCZB.Page.al | 31 - .../app/Src/Pages/BankStatementsCZB.Page.al | 31 - .../Src/Pages/BankingDocStatisticsCZB.Page.al | 72 - .../app/Src/Pages/IssBankStatementCZB.Page.al | 31 - .../Src/Pages/IssBankStatementsCZB.Page.al | 31 - .../app/Src/Pages/IssPaymentOrderCZB.Page.al | 31 - .../app/Src/Pages/IssPaymentOrdersCZB.Page.al | 31 - .../app/Src/Pages/PaymentOrderCZB.Page.al | 31 - .../app/Src/Pages/PaymentOrdersCZB.Page.al | 31 - .../CZBankDocumentsObjCZB.PermissionSet.al | 3 - .../Tables/BankStatementHeaderCZB.Table.al | 14 - .../Tables/IssBankStatementHeaderCZB.Table.al | 13 - .../Tables/IssPaymentOrderHeaderCZB.Table.al | 13 - .../Src/Tables/PaymentOrderHeaderCZB.Table.al | 13 - .../app/Src/Pages/CashDocumentCZP.Page.al | 23 - .../Pages/CashDocumentStatisticsCZP.Page.al | 211 - .../Src/Pages/CashDocumentSubformCZP.Page.al | 7 - .../Src/Pages/PostedCashDocumentCZP.Page.al | 4 - .../Pages/PostedCashDocumentStatCZP.Page.al | 311 -- .../Pages/PostedCashDocumentSubfCZP.Page.al | 18 - .../CZCashDeskObjectsCZP.PermissionSet.al | 6 - .../Src/Tables/CashDocumentLineCZP.Table.al | 21 - .../Tables/PostedCashDocumentLineCZP.Table.al | 16 - .../test/Src/CashDeskDocumentsCZP.Codeunit.al | 19 - .../DataClassEvalHandlerCZL.Codeunit.al | 20 - .../ReconciliationHandlerCZL.Codeunit.al | 23 - .../SyncDepFldSalesHeaderCZL.Codeunit.al | 58 - .../UpgradeTagDefinitionsCZL.Codeunit.al | 10 - .../PostedSalesCreditMemoCZL.PageExt.al | 12 - .../PostedSalesInvoiceCZL.PageExt.al | 12 - .../ReconciliationCZL.PageExt.al | 10 - .../SalesCreditMemoCZL.PageExt.al | 20 - .../PageExtensions/SalesInvoiceCZL.PageExt.al | 20 - .../PageExtensions/SalesOrderCZL.PageExt.al | 11 - .../SalesReturnOrderCZL.PageExt.al | 11 - .../Src/Pages/GetVendBankAccCodeCZL.Page.al | 8 - .../Src/Pages/VATCtrlReportCardCZL.Page.al | 31 - .../Src/Pages/VATCtrlReportListCZL.Page.al | 31 - .../CZCorePackObjectsCZL.PermissionSet.al | 3 - .../CZCorePackReadCZL.PermissionSet.al | 5 - .../GeneralLedgerAdminCZL.PermissionSetExt.al | 5 - .../Src/Reports/SalesCreditMemoCZL.Report.al | 4 - .../app/Src/Reports/SalesInvoiceCZL.Report.al | 4 - .../Reports/ServiceCreditMemoCZL.Report.al | 4 - .../Src/Reports/ServiceInvoiceCZL.Report.al | 4 - .../GLAccountNetChangeCZL.TableExt.al | 22 - .../SalesCrMemoHeaderCZL.TableExt.al | 5 - .../SalesHeaderCZL.TableExt.al | 5 - .../SalesInvoiceHeaderCZL.TableExt.al | 5 - .../test/Src/VATCtrlReportUTCZL.Codeunit.al | 4 - .../Common/CommonModuleDE.Codeunit.al | 17 - .../CreateDEVATPostingGroups.Codeunit.al | 49 - .../CreateDEItemCharge.Codeunit.al | 19 - .../CreateDEItemTemplate.Codeunit.al | 16 - .../WarehouseModuleSetupDE.Codeunit.al | 17 - .../app/src/EDocumentServiceDE.PageExt.al | 11 - .../ZUGFeRD/PostedSalesCrMemo.ReportExt.al | 7 - .../ZUGFeRD/PostedSalesInvoice.ReportExt.al | 7 - .../app/src/items/C5ItemMigrator.Codeunit.al | 66 - .../test/src/C5ItemMigratorTest.Codeunit.al | 35 - .../Common/CommonModuleDK.Codeunit.al | 18 - .../Common/CommonModuleES.Codeunit.al | 17 - .../CreateESVATPostingGroups.Codeunit.al | 9 - .../CreateESItemCharge.Codeunit.al | 19 - .../CreateESItemTemplate.Codeunit.al | 19 - .../Common/CommonModuleFI.Codeunit.al | 17 - .../Common/CommonModuleFR.Codeunit.al | 17 - .../WarehouseModuleSetupFR.Codeunit.al | 17 - .../CreateGBVATReportSetup.Codeunit.al | 32 - .../GBContosoLocalization.Codeunit.al | 15 - .../src/Codeunits/FeatureGovTalk.Codeunit.al | 198 - .../app/src/Codeunits/GovTalk.Codeunit.al | 37 - .../GovTalkMessageManagement.Codeunit.al | 10 - .../Codeunits/GovTalkSubscribers.Codeunit.al | 221 - .../src/Codeunits/InstallGovTalk.Codeunit.al | 4 +- .../src/Codeunits/UpgradeGovTalk.Codeunit.al | 4 +- .../EnumExtensions/FeatureGovTalk.EnumExt.al | 21 - .../CompanyInformation.PageExt.al | 22 - .../src/PageExtensions/ECSLReport.PageExt.al | 7 - .../PageExtensions/VATReportLog.PageExt.al | 19 - .../VATReportsConfiguration.PageExt.al | 20 - .../ReportExtensions/ECSalesList.ReportExt.al | 56 - .../GovTalkVATRequestPageTests.Codeunit.al | 108 - .../RegularTests/UTCOMPANYGovTalk.Codeunit.al | 16 - .../UTREPPurchaseSalesGovTalk.Codeunit.al | 22 - .../Codeunits/PostingDateCheck.Codeunit.al | 37 - .../PurchasesPayablesSetup.TableExt.al | 7 - .../SalesReceivablesSetup.TableExt.al | 7 - .../Codeunits/FeatureReportsGB.Codeunit.al | 77 - .../Codeunits/InstallReportsGB.Codeunit.al | 4 +- .../app/src/Codeunits/ReportsGB.Codeunit.al | 37 - .../Codeunits/UpgradeReportsGB.Codeunit.al | 4 +- .../FeatureReportsGB.EnumExt.al | 23 - .../PageExtensions/ReportLayoutsGB.PageExt.al | 24 - .../BankAccountList.ReportExt.al | 16 - .../CashFlowDimensionsDetail.ReportExt.al | 16 - .../FinanceChargeMemo.ReportExt.al | 16 - .../FixedAssetProjectedValue.ReportExt.al | 16 - .../PurchaseDocumentTest.ReportExt.al | 16 - .../PurchaseQuote.ReportExt.al | 16 - .../PurchaseReceipt.ReportExt.al | 16 - .../ReportExtensions/Reminder.ReportExt.al | 16 - .../SalesDocumentTest.ReportExt.al | 16 - .../SalesShipment.ReportExt.al | 16 - .../app/src/Reports/SalesInvoice.Report.al | 6 - .../UTREPACCPERFixedAsset.Codeunit.al | 40 - .../FeatureReverseChargeVAT.Codeunit.al | 244 -- .../Codeunits/ReverseChargeVATGB.Codeunit.al | 37 - .../UpgTagReverseChargeVAT.Codeunit.al | 28 - .../UpgradeReverseChargeVAT.Codeunit.al | 87 - .../FeatureReverseChargeVAT.EnumExt.al | 26 - .../GeneralLedgerSetup.PageExt.al | 41 - .../src/PageExtensions/ItemCard.PageExt.al | 24 - .../src/PageExtensions/ItemList.PageExt.al | 24 - .../PageExtensions/ItemTemplCard.PageExt.al | 24 - .../PurchasesPayablesSetup.PageExt.al | 44 - .../SalesReceivablesSetup.PageExt.al | 54 - .../app/src/MTDMgt.Codeunit.al | 8 - .../MTDCreateReturnContent.Codeunit.al | 5 - .../RunCodeunits/MTDSubmitReturn.Codeunit.al | 5 - .../test/src/MTDTestReturns.Codeunit.al | 8 - .../src/PageExt/BankAccountCard.PageExt.al | 4 +- .../src/PageExt/CompanyInformation.PageExt.al | 4 +- .../PageExt/ContactAltAddressCard.PageExt.al | 4 +- .../app/src/PageExt/ContactCard.PageExt.al | 4 +- .../CustomerBankAccountCard.PageExt.al | 4 +- .../app/src/PageExt/CustomerCard.PageExt.al | 4 +- .../app/src/PageExt/EmployeeCard.PageExt.al | 4 +- .../app/src/PageExt/LocationCard.PageExt.al | 4 +- .../app/src/PageExt/ResourceCard.PageExt.al | 4 +- .../app/src/PageExt/ShiptoAddress.PageExt.al | 4 +- .../app/src/PageExt/VendorCard.PageExt.al | 4 +- .../test/src/TestUKPostcode.Codeunit.al | 2 - .../test/src/TestUKPostcodePages.Codeunit.al | 4 +- .../VATReportingObjects.PermissionSet.al | 3 - .../app/src/Codeunits/VATAuditGB.Codeunit.al | 37 - .../PageExtensions/VATStatement.PageExt.al | 34 - .../CessUseCaseSetup.Codeunit.al | 23 - .../GSTBaseTaxEngineSetup.Codeunit.al | 23 - .../GSTTDSTCSUseCaseSetup.Codeunit.al | 23 - .../TaxEngineSetup/GSTTaxTypeData.Codeunit.al | 947 ----- .../GSTUseCaseConfig.Codeunit.al | 454 -- .../GSTUseCaseLabels.Codeunit.al | 527 --- .../UpgradeGSTTaxConfig.Codeunit.al | 7 - .../src/report/SalesInvoiceINGST.Report.al | 4 - .../Common/CommonModuleIS.Codeunit.al | 17 - .../Common/CommonModuleIT.Codeunit.al | 38 - .../ServDeclITObjects.PermissionSetExt.al | 3 - .../app/src/ServDeclGetTotalsIT.Codeunit.al | 42 - .../src/ServiceDeclarationMgtIT.Codeunit.al | 18 - .../Common/CommonModuleMX.Codeunit.al | 18 - .../CreateVATPostingGroupsMX.Codeunit.al | 9 - .../CreateMXGLAccounts.Codeunit.al | 21 - .../CreateItemChargeMX.Codeunit.al | 19 - .../CreateItemTemplateMX.Codeunit.al | 18 - .../Processing/DIOTDataManagement.Codeunit.al | 18 - .../Common/CommonModuleNL.Codeunit.al | 17 - .../WarehouseModuleSetupNL.Codeunit.al | 17 - .../Common/CommonModuleNO.Codeunit.al | 17 - .../CreateItemChargeNO.Codeunit.al | 20 - .../CreateItemTemplateNO.Codeunit.al | 18 - .../Common/CommonModuleNZ.Codeunit.al | 17 - .../CreateNZVATPostingGroup.Codeunit.al | 9 - .../CreateNZItemCharge.Codeunit.al | 19 - .../CreateNZItemTemplate.Codeunit.al | 19 - .../Common/CommonModuleSE.Codeunit.al | 18 - .../CreateVatPostingGroupsSE.Codeunit.al | 9 - .../CreateItemChargeSE.Codeunit.al | 19 - .../CreateItemTemplateSE.Codeunit.al | 17 - .../src/Processing/IRS1096FormMgt.Codeunit.al | 7 - .../src/pages/PostedBankDepositList.Page.al | 12 - .../CreateCommonPostingGroup.Codeunit.al | 34 - .../CreateVATPostingGroups.Codeunit.al | 7 - .../1.Setup data/CreateNoSeries.Codeunit.al | 25 - .../EDocCoreBasic.PermissionSet.al | 40 - .../Permissions/EDocCoreEdit.PermissionSet.al | 55 - .../ControlAddIn/PDFViewer.ControlAddIn.al | 29 - .../App/src/Document/EDocument.Table.al | 22 - .../Inbound/InboundEDocFactbox.Page.al | 64 - .../Inbound/InboundEDocuments.Page.al | 41 - .../App/src/Processing/EDocImport.Codeunit.al | 13 - .../EDocHistoricalMatchingSetup.Table.al | 5 - .../Import/EDocumentLineMapping.Table.al | 6 - .../src/Connection/ConnectionSetup.Table.al | 20 - .../Connection/ConnectionSetupCard.Page.al | 12 - .../app/src/OutlookProcessing.Codeunit.al | 12 - .../src/Financials/TrialBalance.Codeunit.al | 163 - .../src/TrialBalanceExcelReports.Codeunit.al | 9 - .../codeunits/ImageAnalyzerExtMgt.Codeunit.al | 17 - .../IntrastatReportManagement.Codeunit.al | 51 - .../app/src/LatePaymentUpgrade.Codeunit.al | 11 - .../LatePaymentObjects.PermissionSet.al | 3 - .../PowerBIEmbeddedObjects.PermissionSet.al | 15 - .../PowerBiReportBasic.PermissionSet.al | 11 - .../APIs/ValueEntriesPurch.Query.al | 87 - .../Sales/APIs/SalesLinePBIAPI.Query.al | 89 - .../Sales/APIs/ValueEntriesSales.Query.al | 66 - .../EmbeddedPages/CO2eAnalysis.Page.al | 64 - .../CO2eDecompositionTree.Page.al | 64 - .../EmbeddedPages/CO2eKeyInfluences.Page.al | 64 - .../EmissionsbyCatandScope.Page.al | 64 - .../JourneytoNetZeroCarbon.Page.al | 64 - .../RealizedEmissionsvsBaseline.Page.al | 64 - .../RealizedEmissionsvsTarget.Page.al | 64 - .../EmbeddedPages/SocialAnalysis.Page.al | 64 - .../SustainabilityOverview.Page.al | 64 - .../SustainabilityReport.Page.al | 64 - .../WaterandWasteAnalysis.Page.al | 64 - .../SetupSustainability.TableExt.al | 30 - .../Test Library/PowerBIAPIEndpoints.Enum.al | 22 - .../PowerBIFilterScenarios.Enum.al | 9 - .../ReviewGLEntriesRead.PermissionSet.al | 5 - .../ReviewGLEntriesView.PermissionSet.al | 5 - .../src/codeunits/ReviewGLEntry.Codeunit.al | 24 - .../src/tables/GLEntryReviewEntry.Table.al | 5 - .../app/src/Integration/SOAgent.codeunit.al | 28 - .../SubcItemJnlPostLineExt.Codeunit.al | 6 - .../SubcCalcBOMTreeExt.Codeunit.al | 6 - .../SubcCarryOutActionExt.Codeunit.al | 6 - .../SubcPlanningLineMgmtExt.Codeunit.al | 6 - .../SubcLibraryMfgManagement.Codeunit.al | 12 - .../APIs/Pages/CustomerContractsAPI.Page.al | 8 - .../App/APIs/Pages/VendorContractsAPI.Page.al | 8 - .../App/Base/Pages/ContractTypes.Page.al | 10 - .../Tables/SubscriptionBillingCue.Table.al | 5 - .../Tables/SubscriptionContractType.Table.al | 5 - .../Pages/CustomerContract.Page.al | 13 - .../CustomerSubscriptionContract.Table.al | 5 - .../Pages/ImportedCustomerContracts.Page.al | 10 - .../Tables/ImportedCustSubContract.Table.al | 5 - .../Pages/VendorContract.Page.al | 13 - .../VendorSubscriptionContract.Table.al | 5 - .../SustManufacturingSubscriber.Codeunit.al | 16 - .../Embedded/CO2eAnalysisPowerBI.Page.al | 6 - .../Embedded/CO2eDecompTreePowerBI.Page.al | 6 - .../Embedded/CO2eKeyInfluencesPowerBI.Page.al | 6 - .../EmissionsbyCatandScopePBI.Page.al | 6 - .../EmissionsvsBaselinePowerBI.Page.al | 6 - .../Embedded/EmissionsvsTargetPowerBI.Page.al | 6 - .../Embedded/SocialAnalysisPowerBI.Page.al | 6 - .../Embedded/SustOverviewPowerBI.Page.al | 6 - .../SustainabilityReportPowerBI.Page.al | 6 - .../Embedded/ToNetZeroCarbonPowerBI.Page.al | 6 - .../Embedded/WaterandWastePowerBI.Page.al | 6 - .../PBISustainFilterHelper.Codeunit.al | 12 - .../PowerBI/PBISustainabilityApp.Codeunit.al | 12 - .../src/PowerBI/PowerBISetupSust.TableExt.al | 4 +- .../PowerBI/SustPBIAssistedSetup.PageExt.al | 6 - .../PowerBI/SustPBIReportsSetup.PageExt.al | 6 - .../src/PowerBISustainabilityTest.Codeunit.al | 6 - .../Assembly/Document/AssemblyHeader.Table.al | 8 - .../AssemblyHeaderReserve.Codeunit.al | 3 - .../Document/AssemblyLinePlanning.Codeunit.al | 12 - .../Document/AssemblyLineReserve.Codeunit.al | 7 - .../History/PostedAssemblyHeader.Table.al | 8 - .../BOM/AsmCalculateBOMTree.Codeunit.al | 3 - .../Requisition/AsmCarryOutAction.Codeunit.al | 27 - .../AsmGetDemandToReserve.Codeunit.al | 8 - .../AsmReservCheckDateConfl.Codeunit.al | 9 - .../AsmCreateInvtPickMovement.Codeunit.al | 12 - .../AsmWhseActivityRegister.Codeunit.al | 13 - .../Bank/BankAccount/BankAccount.Table.al | 8 +- .../W1/BaseApp/CRM/Contact/Contact.Table.al | 8 +- .../CRM/Contact/ContactAltAddress.Table.al | 8 +- .../AttachmentManagement.Codeunit.al | 23 - .../W1/BaseApp/DocumentMailing.Codeunit.al | 144 - .../BaseApp/FeatureKeyManagement.Codeunit.al | 8 - .../ImportAndConsolidate.Codeunit.al | 15 - .../Deferral/DeferralSummaryGL.Report.al | 12 - .../DeferralSummaryPurchasing.Report.al | 12 - .../Deferral/DeferralSummarySales.Report.al | 12 - .../Dimension/DimensionManagement.Codeunit.al | 7 - .../Dimension/DimensionsTotal.Report.al | 41 +- .../AccScheduleOverview.Page.al | 23 +- .../AccountSchedule.Report.al | 15 - .../FinancialReports/ColumnLayout.Table.al | 42 +- .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Setup/GeneralLedgerSetup.Page.al | 19 +- .../BufferICInboxTransaction.Table.al | 5 - .../Inbox/HandledICInboxTrans.Table.al | 5 - .../Inbox/HandledICInboxTransactions.Page.al | 12 - .../Inbox/ICInboxTransaction.Table.al | 5 - .../Inbox/ICInboxTransactions.Page.al | 12 - .../Outbox/HandledICOutboxTrans.Table.al | 5 - .../HandledICOutboxTransactions.Page.al | 12 - .../Company/CompanyInformation.Table.al | 15 +- .../OrderTrackingManagement.Codeunit.al | 7 - .../ReportDistributionManagement.Codeunit.al | 26 - .../Reporting/ReportSelections.Table.al | 255 +- .../HumanResources/Setup/Union.Table.al | 8 +- .../D365Sales/CRMSetupDefaults.Codeunit.al | 7 - .../W1/BaseApp/IntelligentCloud.Page.al | 97 - .../AddOnIntegrManagement.Codeunit.al | 135 - .../Analysis/AnalysisColumn.Table.al | 19 +- .../AvailabletoPromise.Codeunit.al | 4 - .../CalcItemAvailability.Codeunit.al | 26 - .../Availability/CapabletoPromise.Codeunit.al | 33 - .../ItemAvailabilitybyBOMLevel.Page.al | 18 +- .../Inventory/BOM/BOMCostShares.Page.al | 43 +- .../Inventory/BOM/BOMStructure.Page.al | 38 +- .../BOM/Tree/CalculateBOMTree.Codeunit.al | 243 -- .../CalcInventoryAdjmtOrder.Codeunit.al | 26 +- .../Costing/InventoryAdjustment.Codeunit.al | 7 - .../Costing/PostInventoryCosttoGL.Report.al | 3 - .../Document/AvailableInvtDocLines.Page.al | 18 +- .../Inventory/Item/ExportItemData.XmlPort.al | 8 - .../Journal/ItemJnlLineReserve.Codeunit.al | 7 - .../Ledger/ItemApplicationEntry.Table.al | 12 +- .../Inventory/Ledger/ItemLedgerEntry.Table.al | 10 +- .../Ledger/ItemLedgerEntryReserve.Codeunit.al | 9 +- .../Inventory/Ledger/ValueEntry.Table.al | 32 +- .../Inventory/Location/Location.Table.al | 6 - .../Location/ResponsibilityCenter.Table.al | 8 +- .../Planning/CalcItemPlanPlanWksh.Codeunit.al | 16 +- .../PlanningLineManagement.Codeunit.al | 268 -- .../Planning/PlngComponentReserve.Codeunit.al | 7 - .../Posting/ItemJnlPostBatch.Codeunit.al | 12 - .../Posting/ItemJnlPostLine.Codeunit.al | 791 +--- .../Reports/InventoryCustomerSales.Report.al | 32 - .../Reports/InventoryOrderDetails.Report.al | 126 - .../InventorySalesBackOrders.Report.al | 114 - .../Reports/ItemAbletoMakeTimeline.Report.al | 16 - .../Reports/PlanningAvailability.Report.al | 577 --- .../CalculatePlanReqWksh.Report.al | 33 +- .../Requisition/CarryOutAction.Codeunit.al | 620 --- .../Requisition/GetActionMessages.Report.al | 7 - .../GetUnplannedDemand.Codeunit.al | 124 - .../Requisition/OrderPlanningMgt.Codeunit.al | 12 - .../Requisition/ReqLineReserve.Codeunit.al | 73 - .../Requisition/RequisitionLine.Table.al | 4 - .../Inventory/RoleCenters/MyItems.Query.al | 45 - .../Inventory/Setup/InventorySetup.Table.al | 94 - .../Tracking/GetDemandToReserve.Report.al | 7 - .../InventoryProfileOffsetting.Codeunit.al | 96 +- .../ItemTrackingDocManagement.Codeunit.al | 9 - .../ReservationCheckDateConfl.Codeunit.al | 120 - .../TransGetDemandToReserve.Codeunit.al | 7 - .../Transfer/TransferLineReserve.Codeunit.al | 7 - .../Invoicing/O365HTMLTemplMgt.Codeunit.al | 14 - .../CapacityConstrainedResources.Page.al | 66 +- .../Document/ChangeStatusonProdOrder.Page.al | 9 - .../Document/CheckProdOrderStatus.Codeunit.al | 6 - .../Document/FinishedProdOrderLines.Page.al | 12 +- .../FirmPlannedProdOrderLines.Page.al | 12 +- .../Document/PlannedProdOrderLines.Page.al | 12 +- .../ProdOrderAvailabilityMgt.Codeunit.al | 78 - .../Document/ProdOrderCompReserve.Codeunit.al | 7 - .../Document/ProdOrderLine.Table.al | 5 - .../ProdOrderLinePlanning.Codeunit.al | 18 - .../Document/ProdOrderLineReserve.Codeunit.al | 16 - .../Document/ReleasedProdOrderLines.Page.al | 12 +- .../Document/SimulatedProdOrderLines.Page.al | 12 +- .../Foundation/MfgPageManagement.Codeunit.al | 7 - .../BOM/MfgCalculateBOMTree.Codeunit.al | 56 - .../MfgInventoryAdjmtEntryOrder.Codeunit.al | 9 - .../Inventory/Item/MfgItem.TableExt.al | 16 - .../Inventory/Item/MfgItemList.PageExt.al | 13 - .../Location/MfgStockkeepingUnit.TableExt.al | 16 - .../MfgPlanningAvailability.ReportExt.al | 139 - .../MfgPlanningLineManagement.Codeunit.al | 48 - .../Posting/MfgItemJnlPostBatch.Codeunit.al | 6 - .../Posting/MfgItemJnlPostLine.Codeunit.al | 180 - .../Requisition/MfgCarryOutAction.Codeunit.al | 106 - .../MfgOrderPlanningMgt.Codeunit.al | 3 - .../MfgGetDemandToReserve.Codeunit.al | 7 - .../MfgInvtProfileOffsetting.Codeunit.al | 19 - .../MfgReservCheckDateConfl.Codeunit.al | 9 - .../MachineCenter/MachineCenterList.Page.al | 36 +- .../MfgCreateInventoryPutaway.Codeunit.al | 35 - .../Posting/MfgPurchPost.Codeunit.al | 10 - .../ProductionBOM/ProductionBOMList.Page.al | 17 +- .../Document/MfgPurchaseLine.TableExt.al | 18 - .../Reports/CapacityTaskList.Report.al | 11 - .../Reports/CompareList.Report.al | 295 -- .../Reports/DemandForecast.Report.al | 219 - .../Reports/MachineCenterLoad.Report.al | 259 -- .../Reports/MachineCenterLoadBar.Report.al | 304 -- .../Reports/ProdOrderCalculation.Report.al | 168 - .../Reports/ProdOrderShortageList.Report.al | 107 +- .../ProductionOrderStatistics.Report.al | 12 - .../Reports/QuantityExplosionofBOM.Report.al | 12 - .../SubcontractorDispatchList.Report.al | 11 - .../Reports/WhereUsedTopLevel.Report.al | 12 - .../Reports/WorkCenterLoad.Report.al | 275 -- .../Reports/WorkCenterLoadBar.Report.al | 309 -- .../ManufacturingManagerRC.Page.al | 250 -- .../ProductionPlannerRoleCenter.Page.al | 26 - .../ShopSupervisorMfgFoundation.Page.al | 13 - .../ShopSupervisorRoleCenter.Page.al | 13 - .../PlanningRoutingManagement.Codeunit.al | 6 - .../Setup/ManufacturingSetup.Page.al | 79 +- .../Setup/ManufacturingSetup.Table.al | 53 +- .../CalculateStandardCost.Codeunit.al | 11 - .../Upgrade/MfgUpgradeBaseApp.Codeunit.al | 101 - .../MfgCreateInvtPickMovement.Codeunit.al | 12 - .../Activity/MfgCreatePutaway.Codeunit.al | 68 +- .../Activity/MfgWhseActivityPost.Codeunit.al | 19 - .../MfgWhseActivityRegister.Codeunit.al | 10 - .../WorkCenter/WorkCenterGroups.Page.al | 36 +- .../WorkCenter/WorkCenterList.Page.al | 36 +- .../Modules/System/Email/EmailItem.Table.al | 43 - .../System/Email/MailManagement.Codeunit.al | 17 +- .../JobQueue/JobQueueDispatcher.Codeunit.al | 3 - .../JobQueueStartReportRunner.Codeunit.al | 4 - .../PowerBIWSReportSelection.Page.al | 30 - .../Obsoleted/PowerBIDeployments.Page.al | 182 - .../PowerBI/PowerBIServiceMgt.Codeunit.al | 19 +- .../PriceCalculationMgt.Codeunit.al | 4 - .../PrivacyNoticeRegistrations.Codeunit.al | 10 - .../Journal/JobJnlLineReserve.Codeunit.al | 7 - .../JobPlanningLineGetDemand.Codeunit.al | 7 - .../JobPlanningLineReserve.Codeunit.al | 7 - .../Document/PurchLineReserve.Codeunit.al | 7 - .../Purchases/Posting/PurchPost.Codeunit.al | 37 - .../PurchPostInvoiceEvents.Codeunit.al | 7 - .../Remittance/RemitAddress.Table.al | 8 +- .../Setup/PurchasesPayablesSetup.Page.al | 12 +- .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../Purchases/Vendor/OrderAddress.Table.al | 8 +- .../BaseApp/Purchases/Vendor/Vendor.Table.al | 8 +- .../Vendor/VendorBankAccount.Table.al | 8 +- .../Purchases/Vendor/VendorTempl.Table.al | 8 +- .../RoleCenters/ActivitiesMgt.Codeunit.al | 9 +- .../Sales/Archive/SalesHeaderArchive.Table.al | 6 - .../Customer/CustCheckCrLimit.Codeunit.al | 19 - .../BaseApp/Sales/Customer/Customer.Table.al | 13 +- .../Customer/CustomerBankAccount.Table.al | 8 +- .../Sales/Customer/CustomerMgt.Codeunit.al | 25 - .../Sales/Customer/CustomerStatistics.Page.al | 12 - .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Customer/ShiptoAddress.Table.al | 6 - .../Document/SalesDocCheckFactbox.Page.al | 23 +- .../Sales/Document/SalesHeader.Table.al | 46 +- .../Document/SalesLineReserve.Codeunit.al | 13 - .../History/ReturnReceiptHeader.Table.al | 8 +- .../Sales/History/SalesCrMemoHeader.Table.al | 8 +- .../Sales/History/SalesInvoiceHeader.Table.al | 8 +- .../History/SalesShipmentHeader.Table.al | 8 +- .../SalesGetDemandToReserve.Codeunit.al | 7 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Sales/Pricing/CustInvoiceDisc.Table.al | 16 +- .../History/ReminderActHistoryLog.Page.al | 15 +- .../History/ReminderActionGroupLog.Table.al | 20 +- .../History/ReminderActionLog.Table.al | 10 +- .../Sales/Reminder/IssuedReminderList.Page.al | 20 +- .../Sales/Reminder/ReminderList.Page.al | 20 +- .../Sales/Reminder/ReminderTerms.Page.al | 6 +- .../ReminderAttachmentText.Table.al | 18 +- .../ReminderCommunication.Codeunit.al | 150 - .../TermsAndLevels/ReminderTermsList.Page.al | 6 +- .../Sales/Reports/CustomerItemSales.Report.al | 126 - .../Reports/CustomerOrderDetail.Report.al | 74 - .../Reports/CustomerOrderSummary.Report.al | 94 - .../Reports/SalespersonCommission.Report.al | 175 - .../SalespersonSalesStatistics.Report.al | 32 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 12 +- .../Setup/SalesReceivablesSetup.Table.al | 5 - .../Document/ServiceCreditMemo.Page.al | 33 +- .../Document/ServiceCreditMemos.Page.al | 33 +- .../Service/Document/ServiceHeader.Table.al | 115 +- .../Service/Document/ServiceInvoice.Page.al | 33 +- .../Service/Document/ServiceInvoices.Page.al | 33 +- .../Service/Document/ServiceItemLine.Table.al | 9 +- .../Service/Document/ServiceLine.Table.al | 16 +- .../Document/ServiceLineReserve.Codeunit.al | 7 - .../Service/Document/ServiceOrder.Page.al | 33 +- .../Document/ServiceOrderStatistics.Page.al | 6 - .../Service/Document/ServiceOrders.Page.al | 33 +- .../Service/Document/ServiceQuote.Page.al | 33 +- .../Service/Document/ServiceQuotes.Page.al | 33 +- .../Document/ServiceStatistics.Page.al | 6 - .../History/PostedServiceCreditMemo.Page.al | 33 +- .../History/PostedServiceCreditMemos.Page.al | 33 +- .../History/PostedServiceInvoice.Page.al | 33 +- .../History/PostedServiceInvoices.Page.al | 33 +- .../History/PostedServiceShipment.Page.al | 33 +- .../History/PostedServiceShipments.Page.al | 33 +- .../History/ServiceCrMemoHeader.Table.al | 20 +- .../Service/History/ServiceInvoice.Report.al | 4 - .../History/ServiceInvoiceHeader.Table.al | 20 +- .../History/ServiceShipmentHeader.Table.al | 20 +- .../ServPlanningAvailability.Codeunit.al | 46 - .../ServGetDemandToReserve.Codeunit.al | 7 - .../ServicePostInvoiceEvents.Codeunit.al | 9 - .../Pricing/ServPriceListLine.TableExt.al | 22 - .../ServApplyCustomerEntries.Page.al | 14 - .../DataMigrationNotifier.Codeunit.al | 33 - .../JobQueue/JobQueueStartReport.Codeunit.al | 46 - .../System/OAuth/OAuth20Setup.Table.al | 56 - .../System/RapidStart/ConfigSetup.Table.al | 6 - .../System/Utilities/TypeHelper.Codeunit.al | 13 +- .../Workflow/WorkflowCustomerEntity.Page.al | 10 - .../SmallBusinessReportCatalog.Codeunit.al | 222 - .../SmallBusinessReportCatalog.Page.al | 137 - .../CreateInventoryPickMovement.Codeunit.al | 72 - .../CreateInventoryPutaway.Codeunit.al | 127 - .../Warehouse/Activity/CreatePick.Codeunit.al | 117 - .../Activity/CreatePutaway.Codeunit.al | 176 +- .../Activity/WhseActivityPost.Codeunit.al | 67 - .../Activity/WhseActivityRegister.Codeunit.al | 60 - .../Journal/WhseJnlRegisterLine.Codeunit.al | 11 - .../Warehouse/Ledger/WarehouseEntry.Table.al | 9 +- .../Ledger/WarehouseRegister.Table.al | 9 +- .../Warehouse/Setup/WarehouseSetup.Table.al | 9 +- .../Structure/WhseGetBinContent.Report.al | 9 - .../LibraryCashFlowHelper.Codeunit.al | 27 - .../LibraryCosting.Codeunit.al | 33 - .../LibraryItemTracking.Codeunit.al | 54 - .../LibraryJob.Codeunit.al | 25 - .../LibraryPatterns.Codeunit.al | 26 - .../LibraryPlanning.Codeunit.al | 33 - .../LibraryPurchase.Codeunit.al | 9 - .../LibrarySales.Codeunit.al | 9 - .../LibraryTimeSheet.Codeunit.al | 45 - .../LibraryWarehouse.Codeunit.al | 22 - .../ERMAccountSchedule.Codeunit.al | 36 - .../ERM/ERMInvoiceDiscountAndVAT.Codeunit.al | 42 - .../Misc/ReportSelectionsTests.Codeunit.al | 130 - .../SCMManufacturingReports.Codeunit.al | 48 - .../SCMPlanningReports.Codeunit.al | 1747 -------- .../ServicePostingDimensions.Codeunit.al | 50 - .../SCM-Service/ServiceStatistics.Codeunit.al | 3767 ++++------------- .../SCM/SCMInventoryBatchJobs.Codeunit.al | 534 --- .../Tests/SMB/ReportCatalogTests.Codeunit.al | 61 - .../TestLibraries/LibraryKitting.Codeunit.al | 11 - 552 files changed, 967 insertions(+), 26473 deletions(-) delete mode 100644 src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Common/CommonModuleAT.Codeunit.al delete mode 100644 src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Inventory/2. Master Data/CreateItemChargeAT.Codeunit.al delete mode 100644 src/Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Inventory/2. Master Data/CreateItemTemplateAT.Codeunit.al delete mode 100644 src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Common/CommonModuleAU.Codeunit.al delete mode 100644 src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Inventory/2.Master Data/CreateAUItemCharge.Codeunit.al delete mode 100644 src/Apps/AU/ContosoCoffeeDemoDatasetAU/app/DemoData/Inventory/2.Master Data/CreateAUItemTemplate.Codeunit.al delete mode 100644 src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Common/CommonModuleBE.Codeunit.al delete mode 100644 src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Inventory/2. Master Data/CreateItemChargeBE.Codeunit.al delete mode 100644 src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Inventory/2. Master Data/CreateItemTemplateBE.Codeunit.al delete mode 100644 src/Apps/BE/ContosoCoffeeDemoDatasetBE/app/DemoData/Warehousing/WarehouseModuleSetupBE.Codeunit.al delete mode 100644 src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Common/CommonModuleCH.Codeunit.al delete mode 100644 src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Inventory/2.Master Data/CreateCHItemCharge.Codeunit.al delete mode 100644 src/Apps/CH/ContosoCoffeeDemoDatasetCH/app/DemoData/Inventory/2.Master Data/CreateCHItemTemplate.Codeunit.al delete mode 100644 src/Apps/CZ/BankingDocumentsLocalization/app/Src/Pages/BankingDocStatisticsCZB.Page.al delete mode 100644 src/Apps/CZ/CashDeskLocalization/app/Src/Pages/CashDocumentStatisticsCZP.Page.al delete mode 100644 src/Apps/CZ/CashDeskLocalization/app/Src/Pages/PostedCashDocumentStatCZP.Page.al delete mode 100644 src/Apps/CZ/CoreLocalizationPack/app/Src/Codeunits/SyncDepFldSalesHeaderCZL.Codeunit.al delete mode 100644 src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Common/CommonModuleDE.Codeunit.al delete mode 100644 src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Inventory/2. Master Data/CreateDEItemCharge.Codeunit.al delete mode 100644 src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/Inventory/2. Master Data/CreateDEItemTemplate.Codeunit.al delete mode 100644 src/Apps/DE/ContosoCoffeeDemoDatasetDE/app/DemoData/WarehouseModuleSetupDE.Codeunit.al delete mode 100644 src/Apps/DK/ContosoCoffeeDemoDatasetDK/app/DemoData/Common/CommonModuleDK.Codeunit.al delete mode 100644 src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Common/CommonModuleES.Codeunit.al delete mode 100644 src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Inventory/2.Master Data/CreateESItemCharge.Codeunit.al delete mode 100644 src/Apps/ES/ContosoCoffeeDemoDatasetES/app/DemoData/Inventory/2.Master Data/CreateESItemTemplate.Codeunit.al delete mode 100644 src/Apps/FI/ContosoCoffeeDemoDatasetFI/app/DemoData/Common/CommonModuleFI.Codeunit.al delete mode 100644 src/Apps/FR/ContosoCoffeeDemoDatasetFR/app/DemoData/Common/CommonModuleFR.Codeunit.al delete mode 100644 src/Apps/FR/ContosoCoffeeDemoDatasetFR/app/DemoData/Warehousing/WarehouseModuleSetupFR.Codeunit.al delete mode 100644 src/Apps/GB/ContosoCoffeeDemoDatasetGB/app/DemoData/Finance/1.Setup Data/CreateGBVATReportSetup.Codeunit.al delete mode 100644 src/Apps/GB/GovTalk/app/src/Codeunits/FeatureGovTalk.Codeunit.al delete mode 100644 src/Apps/GB/GovTalk/app/src/Codeunits/GovTalk.Codeunit.al delete mode 100644 src/Apps/GB/GovTalk/app/src/EnumExtensions/FeatureGovTalk.EnumExt.al delete mode 100644 src/Apps/GB/PostingDateCheckOnPosting/app/src/Codeunits/PostingDateCheck.Codeunit.al delete mode 100644 src/Apps/GB/ReportsGB/app/src/Codeunits/FeatureReportsGB.Codeunit.al delete mode 100644 src/Apps/GB/ReportsGB/app/src/Codeunits/ReportsGB.Codeunit.al delete mode 100644 src/Apps/GB/ReportsGB/app/src/EnumExtensions/FeatureReportsGB.EnumExt.al delete mode 100644 src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/FeatureReverseChargeVAT.Codeunit.al delete mode 100644 src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/ReverseChargeVATGB.Codeunit.al delete mode 100644 src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/UpgTagReverseChargeVAT.Codeunit.al delete mode 100644 src/Apps/GB/ReverseChargeVAT/app/src/Codeunits/UpgradeReverseChargeVAT.Codeunit.al delete mode 100644 src/Apps/GB/ReverseChargeVAT/app/src/EnumExtensions/FeatureReverseChargeVAT.EnumExt.al delete mode 100644 src/Apps/GB/VATReporting/app/src/Codeunits/VATAuditGB.Codeunit.al delete mode 100644 src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTUseCaseConfig.Codeunit.al delete mode 100644 src/Apps/IN/INGST/app/GSTBase/src/TaxEngineSetup/GSTUseCaseLabels.Codeunit.al delete mode 100644 src/Apps/IS/ContosoCoffeeDemoDatasetIS/app/DemoData/Common/CommonModuleIS.Codeunit.al delete mode 100644 src/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Common/CommonModuleIT.Codeunit.al delete mode 100644 src/Apps/IT/ServiceDeclarationIT/app/src/ServDeclGetTotalsIT.Codeunit.al delete mode 100644 src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Common/CommonModuleMX.Codeunit.al delete mode 100644 src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Inventory/1.Setup Data/CreateItemChargeMX.Codeunit.al delete mode 100644 src/Apps/MX/ContosoCoffeeDemoDatasetMX/app/DemoData/Inventory/2.Master Data/CreateItemTemplateMX.Codeunit.al delete mode 100644 src/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/Common/CommonModuleNL.Codeunit.al delete mode 100644 src/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/Warehousing/WarehouseModuleSetupNL.Codeunit.al delete mode 100644 src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Common/CommonModuleNO.Codeunit.al delete mode 100644 src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Inventory/2.Master Data/CreateItemChargeNO.Codeunit.al delete mode 100644 src/Apps/NO/ContosoCoffeeDemoDatasetNO/app/DemoData/Inventory/2.Master Data/CreateItemTemplateNO.Codeunit.al delete mode 100644 src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Common/CommonModuleNZ.Codeunit.al delete mode 100644 src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Inventory/2.Master Data/CreateNZItemCharge.Codeunit.al delete mode 100644 src/Apps/NZ/ContosoCoffeeDemoDatasetNZ/app/DemoData/Inventory/2.Master Data/CreateNZItemTemplate.Codeunit.al delete mode 100644 src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Common/CommonModuleSE.Codeunit.al delete mode 100644 src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Inventory/2.Master Data/CreateItemChargeSE.Codeunit.al delete mode 100644 src/Apps/SE/ContosoCoffeeDemoDatasetSE/app/DemoData/Inventory/2.Master Data/CreateItemTemplateSE.Codeunit.al delete mode 100644 src/Apps/W1/EDocument/App/Permissions/EDocCoreBasic.PermissionSet.al delete mode 100644 src/Apps/W1/EDocument/App/Permissions/EDocCoreEdit.PermissionSet.al delete mode 100644 src/Apps/W1/EDocument/App/src/ControlAddIn/PDFViewer.ControlAddIn.al delete mode 100644 src/Apps/W1/LatePaymentPredictor/app/src/LatePaymentUpgrade.Codeunit.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Purchasing/APIs/ValueEntriesPurch.Query.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sales/APIs/SalesLinePBIAPI.Query.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sales/APIs/ValueEntriesSales.Query.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eAnalysis.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eDecompositionTree.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/CO2eKeyInfluences.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/EmissionsbyCatandScope.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/JourneytoNetZeroCarbon.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/RealizedEmissionsvsBaseline.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/RealizedEmissionsvsTarget.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SocialAnalysis.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SustainabilityOverview.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/SustainabilityReport.Page.al delete mode 100644 src/Apps/W1/PowerBIReports/App/_Obsolete/Sustainability/EmbeddedPages/WaterandWasteAnalysis.Page.al delete mode 100644 src/Apps/W1/SalesOrderAgent/app/src/Integration/SOAgent.codeunit.al delete mode 100644 src/Layers/W1/BaseApp/IntelligentCloud.Page.al delete mode 100644 src/Layers/W1/BaseApp/Inventory/AddOnIntegrManagement.Codeunit.al delete mode 100644 src/Layers/W1/BaseApp/Inventory/Reports/PlanningAvailability.Report.al delete mode 100644 src/Layers/W1/BaseApp/Manufacturing/Inventory/Planning/MfgPlanningAvailability.ReportExt.al delete mode 100644 src/Layers/W1/BaseApp/Manufacturing/Reports/CompareList.Report.al delete mode 100644 src/Layers/W1/BaseApp/Manufacturing/Reports/DemandForecast.Report.al delete mode 100644 src/Layers/W1/BaseApp/Manufacturing/Reports/MachineCenterLoad.Report.al delete mode 100644 src/Layers/W1/BaseApp/Manufacturing/Reports/MachineCenterLoadBar.Report.al delete mode 100644 src/Layers/W1/BaseApp/Manufacturing/Reports/ProdOrderCalculation.Report.al delete mode 100644 src/Layers/W1/BaseApp/Manufacturing/Reports/WorkCenterLoad.Report.al delete mode 100644 src/Layers/W1/BaseApp/Manufacturing/Reports/WorkCenterLoadBar.Report.al delete mode 100644 src/Layers/W1/BaseApp/Modules/System/PowerBI/Obsoleted/PowerBIDeployments.Page.al delete mode 100644 src/Layers/W1/BaseApp/Service/Inventory/Planning/ServPlanningAvailability.Codeunit.al delete mode 100644 src/Layers/W1/BaseApp/Service/Pricing/ServPriceListLine.TableExt.al delete mode 100644 src/Layers/W1/BaseApp/Utilities/SmallBusinessReportCatalog.Codeunit.al delete mode 100644 src/Layers/W1/BaseApp/Utilities/SmallBusinessReportCatalog.Page.al delete mode 100644 src/Layers/W1/Tests/SMB/ReportCatalogTests.Codeunit.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/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/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/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/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 c1c7bce023a..646e96127af 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; @@ -427,14 +424,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); @@ -467,12 +458,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."; @@ -545,13 +530,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 d64d1426b55..1c50f35a2ad 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 @@ -252,27 +252,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; @@ -396,14 +375,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) { } } } @@ -445,9 +416,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() @@ -614,12 +582,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"; @@ -630,7 +592,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/Layers/W1/BaseApp/Assembly/Document/AssemblyHeader.Table.al b/src/Layers/W1/BaseApp/Assembly/Document/AssemblyHeader.Table.al index 8584ab131e3..6616f564f2e 100644 --- a/src/Layers/W1/BaseApp/Assembly/Document/AssemblyHeader.Table.al +++ b/src/Layers/W1/BaseApp/Assembly/Document/AssemblyHeader.Table.al @@ -1254,14 +1254,6 @@ table 900 "Assembly Header" OnAfterShowDimensions(Rec); end; -#if not CLEAN27 - [Obsolete('the statistics action is refactored to use the RunObject property', '27.0')] - procedure ShowStatistics() - begin - TestField("Item No."); - PAGE.Run(PAGE::"Assembly Order Statistics", Rec); - end; -#endif procedure UpdateUnitCost() var CalculateAssemblyCost: Codeunit "Calculate Assembly Cost"; diff --git a/src/Layers/W1/BaseApp/Assembly/Document/AssemblyHeaderReserve.Codeunit.al b/src/Layers/W1/BaseApp/Assembly/Document/AssemblyHeaderReserve.Codeunit.al index 9f37629d0cd..a3720f8f018 100644 --- a/src/Layers/W1/BaseApp/Assembly/Document/AssemblyHeaderReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Assembly/Document/AssemblyHeaderReserve.Codeunit.al @@ -822,9 +822,6 @@ codeunit 925 "Assembly Header-Reserve" NewAssemblyHeader.TestField("Location Code", OldRequisitionLine."Location Code"); OnTransferReqLineToAsmHdrOnBeforeTransfer(OldReservationEntry, OldRequisitionLine, NewAssemblyHeader); -#if not CLEAN27 - ReqLineReserve.RunOnTransferReqLineToAsmHdrOnBeforeTransfer(OldReservationEntry, OldRequisitionLine, NewAssemblyHeader); -#endif OldReservationEntry.TransferReservations( OldReservationEntry, OldRequisitionLine."No.", OldRequisitionLine."Variant Code", OldRequisitionLine."Location Code", diff --git a/src/Layers/W1/BaseApp/Assembly/Document/AssemblyLinePlanning.Codeunit.al b/src/Layers/W1/BaseApp/Assembly/Document/AssemblyLinePlanning.Codeunit.al index 3f8fd0d234b..f6e0105c383 100644 --- a/src/Layers/W1/BaseApp/Assembly/Document/AssemblyLinePlanning.Codeunit.al +++ b/src/Layers/W1/BaseApp/Assembly/Document/AssemblyLinePlanning.Codeunit.al @@ -15,9 +15,6 @@ codeunit 99000851 "Assembly Line-Planning" var AssemblyHeader: Record "Assembly Header"; -#if not CLEAN27 - GetUnplannedDemand: Codeunit "Get Unplanned Demand"; -#endif AssemblyTxt: Label 'Assembly'; [EventSubscriber(ObjectType::Table, Database::"Requisition Line", 'OnSetDemandTypeFromUnplannedDemand', '', false, false)] @@ -144,9 +141,6 @@ codeunit 99000851 "Assembly Line-Planning" DemandQtyBase: Decimal; begin OnBeforeGetUnplannedAsmLine(UnplannedDemand, AssemblyLine); -#if not CLEAN27 - GetUnplannedDemand.RunOnBeforeGetUnplannedAsmLine(UnplannedDemand, AssemblyLine); -#endif AssemblyLine.SetRange("Document Type", "Assembly Document Type"::Order); AssemblyLine.SetFilter("No.", ItemFilter.ToText()); if AssemblyLine.FindSet() then @@ -161,9 +155,6 @@ codeunit 99000851 "Assembly Line-Planning" sender.InsertUnplannedDemand( UnplannedDemand, UnplannedDemand."Demand Type"::Assembly, AssemblyLine."Document Type".AsInteger(), AssemblyLine."Document No.", AssemblyHeader.Status); OnGetUnplannedAsmLineOnAfterInsertUnplannedDemand(UnplannedDemand); -#if not CLEAN27 - GetUnplannedDemand.RunOnGetUnplannedAsmLineOnAfterInsertUnplannedDemand(UnplannedDemand); -#endif end; InsertAssemblyLine(UnplannedDemand, AssemblyLine, DemandQtyBase); end; @@ -190,9 +181,6 @@ codeunit 99000851 "Assembly Line-Planning" DemandQtyBase, AssemblyLine."Due Date"); UnplannedDemand.Reserve := AssemblyLine.Reserve = AssemblyLine.Reserve::Always; OnInsertAsmLineOnBeforeInsert(UnplannedDemand, AssemblyLine); -#if not CLEAN27 - GetUnplannedDemand.RunOnInsertAsmLineOnBeforeInsert(UnplannedDemand, AssemblyLine); -#endif UnplannedDemand.Insert(); UnplannedDemand.Copy(UnplannedDemand2); end; diff --git a/src/Layers/W1/BaseApp/Assembly/Document/AssemblyLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Assembly/Document/AssemblyLineReserve.Codeunit.al index dcffd33da72..cbb5649f323 100644 --- a/src/Layers/W1/BaseApp/Assembly/Document/AssemblyLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Assembly/Document/AssemblyLineReserve.Codeunit.al @@ -741,13 +741,6 @@ codeunit 926 "Assembly Line-Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; AssemblyLine: Record "Assembly Line") - begin - end; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnAutoReserveOnBeforeStopReservation', '', false, false)] local procedure OnAutoReserveOnBeforeStopReservation(var CalcReservEntry: Record "Reservation Entry"; var StopReservation: Boolean); begin diff --git a/src/Layers/W1/BaseApp/Assembly/History/PostedAssemblyHeader.Table.al b/src/Layers/W1/BaseApp/Assembly/History/PostedAssemblyHeader.Table.al index 5ed7c8eb8e6..0b4b5494bcb 100644 --- a/src/Layers/W1/BaseApp/Assembly/History/PostedAssemblyHeader.Table.al +++ b/src/Layers/W1/BaseApp/Assembly/History/PostedAssemblyHeader.Table.al @@ -286,14 +286,6 @@ table 910 "Posted Assembly Header" DimMgt.ShowDimensionSet("Dimension Set ID", StrSubstNo('%1 %2', TableCaption(), "No.")); end; -#if not CLEAN27 - [Obsolete('The statistics action is refactored to use the RunObject property instead.', '27.0')] - procedure ShowStatistics() - begin - TestField("Item No."); - PAGE.Run(PAGE::"Posted Asm. Order Statistics", Rec); - end; -#endif procedure PrintRecords(ShowRequestForm: Boolean) var ReportSelections: Record "Report Selections"; diff --git a/src/Layers/W1/BaseApp/Assembly/Inventory/BOM/AsmCalculateBOMTree.Codeunit.al b/src/Layers/W1/BaseApp/Assembly/Inventory/BOM/AsmCalculateBOMTree.Codeunit.al index 71206a2fe9f..6136d2ec220 100644 --- a/src/Layers/W1/BaseApp/Assembly/Inventory/BOM/AsmCalculateBOMTree.Codeunit.al +++ b/src/Layers/W1/BaseApp/Assembly/Inventory/BOM/AsmCalculateBOMTree.Codeunit.al @@ -63,9 +63,6 @@ codeunit 931 "Asm. Calculate BOM Tree" sender.GenerateItemSubTree(AsmLine."No.", BOMBuffer); end; OnGenerateAsmHeaderSubTreeOnAfterAsmLineLoop(ParentBOMBuffer, BOMBuffer); -#if not CLEAN27 - sender.RunOnGenerateAsmHeaderSubTreeOnAfterAsmLineLoop(ParentBOMBuffer, BOMBuffer); -#endif until AsmLine.Next() = 0; BOMBuffer := ParentBOMBuffer; diff --git a/src/Layers/W1/BaseApp/Assembly/Inventory/Requisition/AsmCarryOutAction.Codeunit.al b/src/Layers/W1/BaseApp/Assembly/Inventory/Requisition/AsmCarryOutAction.Codeunit.al index 8ace66927bc..077d680e847 100644 --- a/src/Layers/W1/BaseApp/Assembly/Inventory/Requisition/AsmCarryOutAction.Codeunit.al +++ b/src/Layers/W1/BaseApp/Assembly/Inventory/Requisition/AsmCarryOutAction.Codeunit.al @@ -19,9 +19,6 @@ codeunit 945 "Asm. Carry Out Action" ReqLineReserve: Codeunit "Req. Line-Reserve"; ReservationManagement: Codeunit "Reservation Management"; AsmReservCheckDateConfl: Codeunit "Asm. ReservCheckDateConfl"; -#if not CLEAN27 - CarryOutAction: Codeunit "Carry Out Action"; -#endif PrintOrder: Boolean; CouldNotChangeSupplyTxt: Label 'The supply type could not be changed in order %1, order line %2.', Comment = '%1 - Production Order No. or Assembly Header No. or Purchase Header No., %2 - Production Order Line or Assembly Line No. or Purchase Line No.'; @@ -37,9 +34,6 @@ codeunit 945 "Asm. Carry Out Action" begin PrintOrder := AsmOrderChoice = AsmOrderChoice::"Make Assembly Orders & Print"; OnCarryOutActionsFromAssemblyOrderOnAfterCalcPrintOrder(PrintOrder, AsmOrderChoice); -#if not CLEAN27 - CarryOutAction.RunOnCarryOutActionsFromAssemblyOrderOnAfterCalcPrintOrder(PrintOrder, AsmOrderChoice); -#endif case RequisitionLine."Action Message" of RequisitionLine."Action Message"::New: InsertAsmHeader(RequisitionLine, AssemblyHeader, TempDocumentEntry); @@ -61,14 +55,8 @@ codeunit 945 "Asm. Carry Out Action" AssemblyHeader.Init(); AssemblyHeader."Document Type" := AssemblyHeader."Document Type"::Order; OnInsertAsmHeaderOnBeforeAsmHeaderInsert(AssemblyHeader, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertAsmHeaderOnBeforeAsmHeaderInsert(AssemblyHeader, RequisitionLine); -#endif AssemblyHeader.Insert(true); OnInsertAsmHeaderOnAfterAsmHeaderInsert(AssemblyHeader, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertAsmHeaderOnAfterAsmHeaderInsert(AssemblyHeader, RequisitionLine); -#endif AssemblyHeader.SetWarningsOff(); AssemblyHeader.Validate("Item No.", RequisitionLine."No."); AssemblyHeader.Validate("Unit of Measure Code", RequisitionLine."Unit of Measure Code"); @@ -105,9 +93,6 @@ codeunit 945 "Asm. Carry Out Action" AddResourceComponents(RequisitionLine, AssemblyHeader); OnAfterInsertAsmHeader(RequisitionLine, AssemblyHeader); -#if not CLEAN27 - CarryOutAction.RunOnAfterInsertAsmHeader(RequisitionLine, AssemblyHeader); -#endif if PrintOrder then CollectAsmOrderForPrinting(AssemblyHeader); @@ -134,9 +119,6 @@ codeunit 945 "Asm. Carry Out Action" AssemblyHeader.Validate("Planning Flexibility", RequisitionLine."Planning Flexibility"); AssemblyHeader.Validate("Due Date", RequisitionLine."Due Date"); OnAsmOrderChgAndResheduleOnBeforeAsmHeaderModify(RequisitionLine, AssemblyHeader); -#if not CLEAN27 - CarryOutAction.RunOnAsmOrderChgAndResheduleOnBeforeAsmHeaderModify(RequisitionLine, AssemblyHeader); -#endif AssemblyHeader.Modify(true); AssemblyHeaderReserve.TransferPlanningLineToAsmHdr(RequisitionLine, AssemblyHeader, 0, true); ReqLineReserve.UpdateDerivedTracking(RequisitionLine); @@ -230,9 +212,6 @@ codeunit 945 "Asm. Carry Out Action" AssemblyLine."Shortcut Dimension 2 Code" := PlanningComponent."Shortcut Dimension 2 Code"; OnAfterTransferAsmPlanningComp(PlanningComponent, AssemblyLine); -#if not CLEAN27 - CarryOutAction.RunOnAfterTransferAsmPlanningComp(PlanningComponent, AssemblyLine); -#endif AssemblyLine.Insert(); AssemblyLineReserve.TransferPlanningCompToAsmLine(PlanningComponent, AssemblyLine, 0, true); @@ -276,9 +255,6 @@ codeunit 945 "Asm. Carry Out Action" begin IsHandled := false; OnBeforeAddResourceComponents(RequisitionLine, AssemblyHeader, IsHandled); -#if not CLEAN27 - CarryOutAction.RunOnBeforeAddResourceComponents(RequisitionLine, AssemblyHeader, IsHandled); -#endif if IsHandled then exit; @@ -297,9 +273,6 @@ codeunit 945 "Asm. Carry Out Action" begin IsHandled := false; OnBeforeDeleteAssemblyLines(RequisitionLine, IsHandled); -#if not CLEAN27 - CarryOutAction.RunOnBeforeDeleteAssemblyLines(RequisitionLine, IsHandled); -#endif if IsHandled then exit; diff --git a/src/Layers/W1/BaseApp/Assembly/Inventory/Tracking/AsmGetDemandToReserve.Codeunit.al b/src/Layers/W1/BaseApp/Assembly/Inventory/Tracking/AsmGetDemandToReserve.Codeunit.al index 834e297173b..9e0c0f911b9 100644 --- a/src/Layers/W1/BaseApp/Assembly/Inventory/Tracking/AsmGetDemandToReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Assembly/Inventory/Tracking/AsmGetDemandToReserve.Codeunit.al @@ -213,12 +213,4 @@ codeunit 929 "Asm. Get Demand To Reserve" local procedure OnSyncAssemblyOrderLinesOnBeforeInsertReservationWkshLine(var ReservationWkshLine: Record "Reservation Wksh. Line"; var TempAssemblyLine: Record "Assembly Line" temporary; var DoInsertReservationWkshLine: Boolean) begin end; - -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetDemandOnBeforeSetTempAssemblyLine(var AssemblyLine: Record "Assembly Line"; var IsHandled: Boolean) - begin - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Assembly/Inventory/Tracking/AsmReservCheckDateConfl.Codeunit.al b/src/Layers/W1/BaseApp/Assembly/Inventory/Tracking/AsmReservCheckDateConfl.Codeunit.al index 74e34cb2d15..8b2d57b0e70 100644 --- a/src/Layers/W1/BaseApp/Assembly/Inventory/Tracking/AsmReservCheckDateConfl.Codeunit.al +++ b/src/Layers/W1/BaseApp/Assembly/Inventory/Tracking/AsmReservCheckDateConfl.Codeunit.al @@ -23,9 +23,6 @@ codeunit 937 "Asm. ReservCheckDateConfl" IsHandled := false; OnAssemblyHeaderCheckOnBeforeIssueError(ReservationEntry, AssemblyHeader, ForceRequest, IsHandled); -#if not CLEAN27 - ReservationCheckDateConfl.RunOnAssemblyHeaderCheckOnBeforeIssueError(ReservationEntry, AssemblyHeader, ForceRequest, IsHandled); -#endif if not IsHandled then if ReservationCheckDateConfl.DateConflict(AssemblyHeader."Due Date", ForceRequest, ReservationEntry) then if ForceRequest then @@ -33,9 +30,6 @@ codeunit 937 "Asm. ReservCheckDateConfl" IsHandled := false; OnAssemblyHeaderCheckOnBeforeUpdateDate(ReservationEntry, AssemblyHeader, IsHandled); -#if not CLEAN27 - ReservationCheckDateConfl.RunOnAssemblyHeaderCheckOnBeforeUpdateDate(ReservationEntry, AssemblyHeader, IsHandled); -#endif if not IsHandled then ReservationCheckDateConfl.UpdateDate(ReservationEntry, AssemblyHeader."Due Date"); @@ -60,9 +54,6 @@ codeunit 937 "Asm. ReservCheckDateConfl" IsHandled := false; OnAssemblyLineCheckOnBeforeUpdateDate(ReservationEntry, AssemblyLine, IsHandled); -#if not CLEAN27 - ReservationCheckDateConfl.RunOnAssemblyLineCheckOnBeforeUpdateDate(ReservationEntry, AssemblyLine, IsHandled); -#endif if not IsHandled then ReservationCheckDateConfl.UpdateDate(ReservationEntry, AssemblyLine."Due Date"); diff --git a/src/Layers/W1/BaseApp/Assembly/Warehouse/Activity/AsmCreateInvtPickMovement.Codeunit.al b/src/Layers/W1/BaseApp/Assembly/Warehouse/Activity/AsmCreateInvtPickMovement.Codeunit.al index 6937458d5a3..4a66a4b81de 100644 --- a/src/Layers/W1/BaseApp/Assembly/Warehouse/Activity/AsmCreateInvtPickMovement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Assembly/Warehouse/Activity/AsmCreateInvtPickMovement.Codeunit.al @@ -14,9 +14,6 @@ codeunit 989 "Asm. Create Invt.Pick/Movement" { var FeatureTelemetry: Codeunit "Feature Telemetry"; -#if not CLEAN27 - CreateInventoryPickMovement: Codeunit "Create Inventory Pick/Movement"; -#endif ProdAsmJobWhseHandlingTelemetryCategoryTok: Label 'Prod/Asm/Project Whse. Handling', Locked = true; ProdAsmJobWhseHandlingTelemetryTok: Label 'Prod/Asm/Project Whse. Handling in used for warehouse pick.', Locked = true; @@ -110,9 +107,6 @@ codeunit 989 "Asm. Create Invt.Pick/Movement" FeatureTelemetry.LogUsage('0000KT3', ProdAsmJobWhseHandlingTelemetryCategoryTok, ProdAsmJobWhseHandlingTelemetryTok); IsHandled := false; OnBeforeCreatePickOrMoveLineFromAssemblyLoop(WarehouseActivityHeader, AssemblyHeader, IsHandled, AssemblyLine); -#if not CLEAN27 - sender.RunOnBeforeCreatePickOrMoveLineFromAssemblyLoop(WarehouseActivityHeader, AssemblyHeader, IsHandled, AssemblyLine); -#endif if not IsHandled and CanPickAssemblyLine(AssemblyLine, ReservedFromStock) then if not NewWarehouseActivityLine.ActivityExists(Database::"Assembly Line", AssemblyLine."Document Type".AsInteger(), AssemblyLine."Document No.", AssemblyLine."Line No.", 0, 0) @@ -139,9 +133,6 @@ codeunit 989 "Asm. Create Invt.Pick/Movement" RemQtyToPickBase := AssemblyLine."Quantity (Base)" - AssemblyLine."Remaining Quantity (Base)" + AssemblyLine."Quantity to Consume (Base)" - AssemblyLine."Qty. Picked (Base)"; OnBeforeNewWhseActivLineInsertFromAssembly(NewWarehouseActivityLine, AssemblyLine, WarehouseActivityHeader, RemQtyToPickBase); -#if not CLEAN27 - sender.RunOnBeforeNewWhseActivLineInsertFromAssembly(NewWarehouseActivityLine, AssemblyLine, WarehouseActivityHeader, RemQtyToPickBase); -#endif AssemblyLine.CalcFields(AssemblyLine."Reserved Quantity"); sender.CreatePickOrMoveLine(NewWarehouseActivityLine, RemQtyToPickBase, RemQtyToPickBase, AssemblyLine."Reserved Quantity" <> 0); end; @@ -167,9 +158,6 @@ codeunit 989 "Asm. Create Invt.Pick/Movement" end; OnBeforeFindAssemblyLine(AssemblyLine, AssemblyHeader, WarehouseActivityHeader); -#if not CLEAN27 - CreateInventoryPickMovement.RunOnBeforeFindAssemblyLine(AssemblyLine, AssemblyHeader, WarehouseActivityHeader); -#endif exit(AssemblyLine.Find('-')); end; diff --git a/src/Layers/W1/BaseApp/Assembly/Warehouse/Activity/AsmWhseActivityRegister.Codeunit.al b/src/Layers/W1/BaseApp/Assembly/Warehouse/Activity/AsmWhseActivityRegister.Codeunit.al index 9a790d2860b..dcd859c95e8 100644 --- a/src/Layers/W1/BaseApp/Assembly/Warehouse/Activity/AsmWhseActivityRegister.Codeunit.al +++ b/src/Layers/W1/BaseApp/Assembly/Warehouse/Activity/AsmWhseActivityRegister.Codeunit.al @@ -10,10 +10,6 @@ using Microsoft.Warehouse.Request; codeunit 939 "Asm. Whse.-Activity-Register" { -#if not CLEAN27 - var - WhseActivityRegister: Codeunit "Whse.-Activity-Register"; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Activity-Register", 'OnUpdateWhseDocHeaderByWhseDocumentType', '', false, false)] local procedure OnUpdateWhseDocHeaderByWhseDocumentType(var WarehouseActivityLine: Record "Warehouse Activity Line") @@ -69,14 +65,8 @@ codeunit 939 "Asm. Whse.-Activity-Register" AssemblyLine."Qty. Picked" := Round(AssemblyLine."Qty. Picked" + WhseActivityLine."Qty. to Handle (Base)" / WhseActivityLine."Qty. per Unit of Measure"); OnBeforeAssemblyLineModify(AssemblyLine, WhseActivityLine); -#if not CLEAN27 - WhseActivityRegister.RunOnBeforeAssemblyLineModify(AssemblyLine, WhseActivityLine); -#endif AssemblyLine.Modify(); OnAfterAssemblyLineModify(AssemblyLine); -#if not CLEAN27 - WhseActivityRegister.RunOnAfterAssemblyLineModify(AssemblyLine); -#endif end; [IntegrationEvent(false, false)] @@ -119,9 +109,6 @@ codeunit 939 "Asm. Whse.-Activity-Register" begin IsHandled := false; OnBeforeAutoReserveForAssemblyLine(TempWhseActivLineToReserve, IsHandled); -#if not CLEAN27 - WhseActivityRegister.RunOnBeforeAutoReserveForAssemblyLine(TempWhseActivLineToReserve, IsHandled); -#endif if IsHandled then exit; diff --git a/src/Layers/W1/BaseApp/Bank/BankAccount/BankAccount.Table.al b/src/Layers/W1/BaseApp/Bank/BankAccount/BankAccount.Table.al index 4e509c5a552..47a52db4de0 100644 --- a/src/Layers/W1/BaseApp/Bank/BankAccount/BankAccount.Table.al +++ b/src/Layers/W1/BaseApp/Bank/BankAccount/BankAccount.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/CRM/Contact/Contact.Table.al b/src/Layers/W1/BaseApp/CRM/Contact/Contact.Table.al index cb8f0779797..7314d0d9e1f 100644 --- a/src/Layers/W1/BaseApp/CRM/Contact/Contact.Table.al +++ b/src/Layers/W1/BaseApp/CRM/Contact/Contact.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/CRM/Contact/ContactAltAddress.Table.al b/src/Layers/W1/BaseApp/CRM/Contact/ContactAltAddress.Table.al index 9d4bb5f01d1..dd3bb3e0536 100644 --- a/src/Layers/W1/BaseApp/CRM/Contact/ContactAltAddress.Table.al +++ b/src/Layers/W1/BaseApp/CRM/Contact/ContactAltAddress.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -175,13 +175,7 @@ table 5051 "Contact Alt. Address" SetSearchEmail(); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(18; "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/W1/BaseApp/CRM/Interaction/AttachmentManagement.Codeunit.al b/src/Layers/W1/BaseApp/CRM/Interaction/AttachmentManagement.Codeunit.al index d0473d99b6c..3f4ad742b5a 100644 --- a/src/Layers/W1/BaseApp/CRM/Interaction/AttachmentManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/CRM/Interaction/AttachmentManagement.Codeunit.al @@ -317,12 +317,7 @@ codeunit 5052 AttachmentManagement GetAttachment(Attachment, TempDeliverySorterHtml."Attachment No.", false); Clear(HtmlBody); Attachment.ExportAttachmentToTempBlob(HtmlBody); -#if not CLEAN27 - OnDeliverHTMLEmailOnBeforeSendEmail(TempDeliverySorterHtml, Attachment, InteractLogEntry, ''); -#else OnDeliverHTMLEmailOnBeforeSendEmail(TempDeliverySorterHtml, Attachment, InteractLogEntry); - -#endif SendHTMLEmail(TempDeliverySorterHtml, InteractLogEntry, HtmlBody); end else SetDeliveryState(InteractLogEntry, false); @@ -374,11 +369,7 @@ codeunit 5052 AttachmentManagement Attachment.ExportAttachmentToTempBlob(AttachmentTempBlob); Clear(HtmlBody); PrepareDummyEmailBody(HtmlBody); -#if not CLEAN27 - OnDeliverEmailWithAttachmentOnBeforeSendEmail(TempDeliverySorterOther, InteractLogEntry, '', ''); -#else OnDeliverEmailWithAttachmentOnBeforeSendEmail(TempDeliverySorterOther, InteractLogEntry); -#endif SendEmailWithAttachment(TempDeliverySorterOther, InteractLogEntry, AttachmentTempBlob, HtmlBody); end else SetDeliveryState(InteractLogEntry, false); @@ -668,19 +659,6 @@ codeunit 5052 AttachmentManagement begin end; -#if not CLEAN27 - [Obsolete('Parameter AttachmentFileFullName and EmailBodyFilePath will be removed', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnDeliverEmailWithAttachmentOnBeforeSendEmail(var DeliverySorter: Record "Delivery Sorter"; var InteractionLogEntry: Record "Interaction Log Entry"; AttachmentFileFullName: Text; EmailBodyFilePath: Text) - begin - end; - - [Obsolete('Parameter EmailBodyFilePath will be removed', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnDeliverHTMLEmailOnBeforeSendEmail(var DeliverySorter: Record "Delivery Sorter"; Attachment: Record Attachment; var InteractionLogEntry: Record "Interaction Log Entry"; EmailBodyFilePath: Text) - begin - end; -#else [IntegrationEvent(false, false)] local procedure OnDeliverEmailWithAttachmentOnBeforeSendEmail(var DeliverySorter: Record "Delivery Sorter"; var InteractionLogEntry: Record "Interaction Log Entry") begin @@ -690,7 +668,6 @@ codeunit 5052 AttachmentManagement local procedure OnDeliverHTMLEmailOnBeforeSendEmail(var DeliverySorter: Record "Delivery Sorter"; Attachment: Record Attachment; var InteractionLogEntry: Record "Interaction Log Entry") begin end; -#endif [IntegrationEvent(false, false)] local procedure OnProcessDeliverySorterHtml(var DeliverySorter: Record "Delivery Sorter"; var TempDeliverySorter: Record "Delivery Sorter" temporary; Attachment: Record Attachment; I: Integer) diff --git a/src/Layers/W1/BaseApp/DocumentMailing.Codeunit.al b/src/Layers/W1/BaseApp/DocumentMailing.Codeunit.al index 89d6350a253..8eb9cf6a295 100644 --- a/src/Layers/W1/BaseApp/DocumentMailing.Codeunit.al +++ b/src/Layers/W1/BaseApp/DocumentMailing.Codeunit.al @@ -10,9 +10,6 @@ using Microsoft.Foundation.Reporting; using Microsoft.Purchases.Vendor; using Microsoft.Sales.Customer; using System; -#if not CLEAN27 -using System.IO; -#endif using System.Threading; using System.Utilities; @@ -60,19 +57,6 @@ codeunit 260 "Document-Mailing" end; -#if not CLEAN27 - [Obsolete('Use procedure EmailFile that accepts a "Temp Blob" for the html body instead.', '27.0')] - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; HtmlBodyFilePath: Text; EmailSubject: Text; ToEmailAddress: Text; HideDialog: Boolean; EmailScenario: Enum "Email Scenario"): Boolean - var - FileManagement: Codeunit "File Management"; - HtmlBody: Codeunit "Temp Blob"; - begin - if HtmlBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - - exit(EmailFile(AttachmentStream, AttachmentName, HtmlBody, EmailSubject, ToEmailAddress, HideDialog, EmailScenario)); - end; -#endif procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; var HtmlBody: Codeunit "Temp Blob"; EmailSubject: Text; ToEmailAddress: Text; HideDialog: Boolean; EmailScenario: Enum "Email Scenario"): Boolean var TempEmailItem: Record "Email Item" temporary; @@ -95,18 +79,6 @@ codeunit 260 "Document-Mailing" false)); end; -#if not CLEAN27 - [Obsolete('Use procedure EmailFile that accepts a "Temp Blob" for the html body instead.', '27.0')] - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; HtmlBodyFilePath: Text[250]; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer): Boolean - var - FileManagement: Codeunit "File Management"; - HtmlBody: Codeunit "Temp Blob"; - begin - if HtmlBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - exit(EmailFile(AttachmentStream, AttachmentName, HtmlBody, PostedDocNo, ToEmailAddress, EmailDocName, HideDialog, ReportUsage)); - end; -#endif procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; var HtmlBody: Codeunit "Temp Blob"; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer): Boolean var @@ -129,19 +101,6 @@ codeunit 260 "Document-Mailing" false)); end; -#if not CLEAN27 - [Obsolete('Use procedure EmailFile that accepts a "Temp Blob" for the html body instead.', '27.0')] - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; HtmlBodyFilePath: Text; EmailSubject: Text; ToEmailAddress: Text; HideDialog: Boolean; EmailScenario: Enum "Email Scenario"; SourceReference: RecordRef): Boolean - var - FileManagement: Codeunit "File Management"; - HtmlBody: Codeunit "Temp Blob"; - begin - if HtmlBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - exit(EmailFile(AttachmentStream, AttachmentName, HtmlBody, EmailSubject, ToEmailAddress, HideDialog, EmailScenario, SourceReference)); - end; -#endif - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; var HtmlBody: Codeunit "Temp Blob"; EmailSubject: Text; ToEmailAddress: Text; HideDialog: Boolean; EmailScenario: Enum "Email Scenario"; SourceReference: RecordRef): Boolean var TempEmailItem: Record "Email Item" temporary; @@ -166,19 +125,6 @@ codeunit 260 "Document-Mailing" false)); end; -#if not CLEAN27 - [Obsolete('Use procedure EmailFile that accepts a "Temp Blob" for the html body instead.', '27.0')] - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; HtmlBodyFilePath: Text; EmailSubject: Text; ToEmailAddress: Text; HideDialog: Boolean; EmailScenario: Enum "Email Scenario"; SourceTables: List of [Integer]; SourceIDs: List of [Guid]; SourceRelationTypes: List of [Integer]): Boolean - var - FileManagement: Codeunit "File Management"; - HtmlBody: Codeunit "Temp Blob"; - begin - if HtmlBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - exit(EmailFile(AttachmentStream, AttachmentName, HtmlBody, EmailSubject, ToEmailAddress, HideDialog, EmailScenario, SourceTables, SourceIDs, SourceRelationTypes)); - end; -#endif - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; var HtmlBody: Codeunit "Temp Blob"; EmailSubject: Text; ToEmailAddress: Text; HideDialog: Boolean; EmailScenario: Enum "Email Scenario"; SourceTables: List of [Integer]; SourceIDs: List of [Guid]; SourceRelationTypes: List of [Integer]): Boolean var TempEmailItem: Record "Email Item" temporary; @@ -201,19 +147,6 @@ codeunit 260 "Document-Mailing" false)); end; -#if not CLEAN27 - [Obsolete('Use procedure EmailFile that accepts a "Temp Blob" for the html body instead.', '27.0')] - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; HtmlBodyFilePath: Text[250]; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer; SourceReference: RecordRef): Boolean - var - FileManagement: Codeunit "File Management"; - HtmlBody: Codeunit "Temp Blob"; - begin - if HtmlBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - exit(EmailFile(AttachmentStream, AttachmentName, HtmlBody, PostedDocNo, ToEmailAddress, EmailDocName, HideDialog, ReportUsage, SourceReference)); - end; -#endif - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; var HtmlBody: Codeunit "Temp Blob"; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer; SourceReference: RecordRef): Boolean var TempEmailItem: Record "Email Item" temporary; @@ -265,19 +198,6 @@ codeunit 260 "Document-Mailing" false)); end; -#if not CLEAN27 - [Obsolete('Use procedure EmailFile that accepts a "Temp Blob" for the html body instead.', '27.0')] - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; HtmlBodyFilePath: Text[250]; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer; SourceTables: List of [Integer]; SourceIDs: List of [Guid]; SourceRelationTypes: List of [Integer]): Boolean - var - FileManagement: Codeunit "File Management"; - HtmlBody: Codeunit "Temp Blob"; - begin - if HtmlBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - exit(EmailFile(AttachmentStream, AttachmentName, HtmlBody, PostedDocNo, ToEmailAddress, EmailDocName, HideDialog, ReportUsage, SourceTables, SourceIDs, SourceRelationTypes)); - end; -#endif - procedure EmailFile(AttachmentStream: Instream; AttachmentName: Text; var EmailBody: Codeunit "Temp Blob"; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer; SourceTables: List of [Integer]; SourceIDs: List of [Guid]; SourceRelationTypes: List of [Integer]): Boolean var TempEmailItem: Record "Email Item" temporary; @@ -350,19 +270,6 @@ codeunit 260 "Document-Mailing" false)); end; -#if not CLEAN27 - [Obsolete('Use procedure EmailFileWithSubjectAndReportUsage that accepts a "Temp Blob" for the html body instead.', '27.0')] - procedure EmailFileWithSubjectAndReportUsage(AttachmentStream: InStream; AttachmentName: Text; HtmlBodyFilePath: Text[250]; EmailSubject: Text[250]; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer): Boolean - var - FileManagement: Codeunit "File Management"; - HtmlBody: Codeunit "Temp Blob"; - begin - if HtmlBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - exit(EmailFileWithSubjectAndReportUsage(AttachmentStream, AttachmentName, HtmlBody, EmailSubject, PostedDocNo, ToEmailAddress, EmailDocName, HideDialog, ReportUsage)); - end; -#endif - procedure EmailFileWithSubjectAndReportUsage(AttachmentStream: InStream; AttachmentName: Text; var HtmlBody: Codeunit "Temp Blob"; EmailSubject: Text[250]; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer): Boolean var TempEmailItem: Record "Email Item" temporary; @@ -383,19 +290,6 @@ codeunit 260 "Document-Mailing" false)); end; -#if not CLEAN27 - [Obsolete('Use procedure EmailFileWithSubjectAndReportUsage that accepts a "Temp Blob" for the html body instead.', '27.0')] - procedure EmailFileWithSubjectAndReportUsage(AttachmentStream: InStream; AttachmentName: Text; HtmlBodyFilePath: Text[250]; EmailSubject: Text[250]; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer; SourceReference: RecordRef): Boolean - var - FileManagement: Codeunit "File Management"; - HtmlBody: Codeunit "Temp Blob"; - begin - if HtmlBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - exit(EmailFileWithSubjectAndReportUsage(AttachmentStream, AttachmentName, HtmlBody, EmailSubject, PostedDocNo, ToEmailAddress, EmailDocName, HideDialog, ReportUsage, SourceReference)); - end; -#endif - procedure EmailFileWithSubjectAndReportUsage(AttachmentStream: InStream; AttachmentName: Text; var HtmlBody: Codeunit "Temp Blob"; EmailSubject: Text[250]; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer; SourceReference: RecordRef): Boolean var TempEmailItem: Record "Email Item" temporary; @@ -421,18 +315,6 @@ codeunit 260 "Document-Mailing" false)); end; -#if not CLEAN27 - [Obsolete('Use procedure EmailFileWithSubjectAndReportUsage that accepts a "Temp Blob" for the html body instead.', '27.0')] - procedure EmailFileWithSubjectAndReportUsage(AttachmentStream: InStream; AttachmentName: Text; HtmlBodyFilePath: Text[250]; EmailSubject: Text[250]; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer; SourceTables: List of [Integer]; SourceIDs: List of [Guid]; SourceRelationTypes: List of [Integer]): Boolean - var - FileManagement: Codeunit "File Management"; - HtmlBody: Codeunit "Temp Blob"; - begin - if HtmlBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - exit(EmailFileWithSubjectAndReportUsage(AttachmentStream, AttachmentName, HtmlBody, EmailSubject, PostedDocNo, ToEmailAddress, EmailDocName, HideDialog, ReportUsage, SourceTables, SourceIDs, SourceRelationTypes)); - end; -#endif procedure EmailFileWithSubjectAndReportUsage(AttachmentStream: InStream; AttachmentName: Text; var HtmlBody: Codeunit "Temp Blob"; EmailSubject: Text[250]; PostedDocNo: Code[20]; ToEmailAddress: Text[250]; EmailDocName: Text[250]; HideDialog: Boolean; ReportUsage: Integer; SourceTables: List of [Integer]; SourceIDs: List of [Guid]; SourceRelationTypes: List of [Integer]): Boolean var TempEmailItem: Record "Email Item" temporary; @@ -625,33 +507,14 @@ codeunit 260 "Document-Mailing" EmailScenarioMapping: Codeunit "Email Scenario Mapping"; Attachments: Codeunit "Temp Blob List"; Attachment: Codeunit "Temp Blob"; -#if not CLEAN27 - FileManagement: Codeunit "File Management"; -#endif EmailSentSuccesfully: Boolean; IsHandled: Boolean; AttachmentStream: Instream; AttachmentNames: List of [Text]; -#if not CLEAN27 - HtmlBodyFilePath: Text[250]; -#endif Name: Text[250]; begin IsHandled := false; -#if not CLEAN27 - if HtmlBody.HasValue() then - HtmlBodyFilePath := FileManagement.TempBlobToServerFile(HtmlBody, 'html'); - OnBeforeEmailFileInternal(TempEmailItem, HtmlBodyFilePath, EmailSubject, ToEmailAddress, PostedDocNo, EmailDocName, HideDialog, ReportUsage, IsFromPostedDoc, SenderUserID, EmailScenario, EmailSentSuccesfully, IsHandled); - if IsHandled then - exit(EmailSentSuccesfully); - if HtmlBodyFilePath <> '' then begin - Clear(HtmlBody); - FileManagement.BLOBImportFromServerFile(HtmlBody, HtmlBodyFilePath); - FileManagement.DeleteServerFile(HtmlBodyFilePath); - end; -#endif - OnBeforeEmailItemPreparation(TempEmailItem, HtmlBody, EmailSubject, ToEmailAddress, PostedDocNo, EmailDocName, HideDialog, ReportUsage, IsFromPostedDoc, SenderUserID, EmailScenario, EmailSentSuccesfully, IsHandled); if IsHandled then exit(EmailSentSuccesfully); @@ -816,13 +679,6 @@ codeunit 260 "Document-Mailing" begin end; -#if not CLEAN27 - [Obsolete('Use new Event OnBeforeEmailItemPreparation instead.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeEmailFileInternal(var TempEmailItem: Record "Email Item" temporary; var HtmlBodyFilePath: Text[250]; var EmailSubject: Text[250]; var ToEmailAddress: Text[250]; var PostedDocNo: Code[20]; var EmailDocName: Text[250]; var HideDialog: Boolean; var ReportUsage: Integer; var IsFromPostedDoc: Boolean; var SenderUserID: Code[50]; var EmailScenario: Enum "Email Scenario"; var EmailSentSuccessfully: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeEmailItemPreparation(var TempEmailItem: Record "Email Item" temporary; var HtmlBody: Codeunit "Temp Blob"; var EmailSubject: Text[250]; var ToEmailAddress: Text[250]; var PostedDocNo: Code[20]; var EmailDocName: Text[250]; var HideDialog: Boolean; var ReportUsage: Integer; var IsFromPostedDoc: Boolean; var SenderUserID: Code[50]; var EmailScenario: Enum "Email Scenario"; var EmailSentSuccessfully: Boolean; var IsHandled: Boolean) begin diff --git a/src/Layers/W1/BaseApp/FeatureKeyManagement.Codeunit.al b/src/Layers/W1/BaseApp/FeatureKeyManagement.Codeunit.al index 34214fc57d0..f7a8ac92022 100644 --- a/src/Layers/W1/BaseApp/FeatureKeyManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/FeatureKeyManagement.Codeunit.al @@ -43,14 +43,6 @@ codeunit 265 "Feature Key Management" exit(FeatureManagementFacade.IsEnabled(DocumentReportExperienceTxt)); end; -#if not CLEAN27 - [Obsolete('This function is deprecated. Concurrent warehouse posting is always on.', '27.0')] - procedure IsConcurrentWarehousingPostingEnabled(): Boolean - begin - exit(true); - end; -#endif - procedure IsConcurrentInventoryPostingEnabled(): Boolean begin if not ConcurrentInventoryPostingRead then diff --git a/src/Layers/W1/BaseApp/Finance/Consolidation/ImportAndConsolidate.Codeunit.al b/src/Layers/W1/BaseApp/Finance/Consolidation/ImportAndConsolidate.Codeunit.al index fd53e26cf12..9ebf3a1743d 100644 --- a/src/Layers/W1/BaseApp/Finance/Consolidation/ImportAndConsolidate.Codeunit.al +++ b/src/Layers/W1/BaseApp/Finance/Consolidation/ImportAndConsolidate.Codeunit.al @@ -125,19 +125,4 @@ codeunit 107 "Import and Consolidate" end; // No other event should be required in this codeunit. -#if not CLEAN27 - /// - /// Integration event raised before setting consolidation process parameters. - /// OBSOLETE: Use OnAfterGetBusinessUnitConsolidationImplementations instead with custom interface implementations. - /// - /// Consolidation Process record being configured - /// Business Unit in Consolidation Process record - /// Set to true to bypass standard parameter setting - [IntegrationEvent(false, false)] - [Obsolete('Please use OnAfterGetBusinessUnitConsolidationImplementations instead. You can override the behavior by providing your own implementations of the interfaces "Import Consolidation Data" and "Consolidation Method"', '27.0')] - local procedure OnImportAndConsolidateOnBeforeSetConsolidationProcessParameters(var ConsolidationProcess: Record "Consolidation Process"; var BusUnitInConsProcess: Record "Bus. Unit In Cons. Process"; var IsHandled: Boolean) - begin - end; -#endif - } diff --git a/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummaryGL.Report.al b/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummaryGL.Report.al index ef73a190d35..ce8d7a2f54d 100644 --- a/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummaryGL.Report.al +++ b/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummaryGL.Report.al @@ -284,18 +284,6 @@ report 1700 "Deferral Summary - G/L" LayoutFile = './Finance/Deferral/DeferralSummaryGL.docx'; Summary = 'Report layout made for print. Use a Word editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Deferral Summary G/L RDLC'; - Type = RDLC; - LayoutFile = './Finance/Deferral/DeferralSummaryGL.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels diff --git a/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummaryPurchasing.Report.al b/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummaryPurchasing.Report.al index bd2351cf2c4..5897b94494d 100644 --- a/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummaryPurchasing.Report.al +++ b/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummaryPurchasing.Report.al @@ -351,18 +351,6 @@ report 1702 "Deferral Summary - Purchasing" LayoutFile = './Finance/Deferral/DeferralSummaryPurchasing.docx'; Summary = 'Report layout made for print. Use a Word editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Deferral Summary Purchasing RDLC'; - Type = RDLC; - LayoutFile = './Finance/Deferral/DeferralSummaryPurchasing.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels diff --git a/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummarySales.Report.al b/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummarySales.Report.al index 34dfa58b13b..6ef0398b2ef 100644 --- a/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummarySales.Report.al +++ b/src/Layers/W1/BaseApp/Finance/Deferral/DeferralSummarySales.Report.al @@ -351,18 +351,6 @@ report 1701 "Deferral Summary - Sales" LayoutFile = './Finance/Deferral/DeferralSummarySales.docx'; Summary = 'Report layout made for print. Use a Word editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Deferral Summary Sales RDLC'; - Type = RDLC; - LayoutFile = './Finance/Deferral/DeferralSummarySales.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels diff --git a/src/Layers/W1/BaseApp/Finance/Dimension/DimensionManagement.Codeunit.al b/src/Layers/W1/BaseApp/Finance/Dimension/DimensionManagement.Codeunit.al index 88e9c445fb7..f9a9911a16c 100644 --- a/src/Layers/W1/BaseApp/Finance/Dimension/DimensionManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Finance/Dimension/DimensionManagement.Codeunit.al @@ -4057,13 +4057,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/W1/BaseApp/Finance/Dimension/DimensionsTotal.Report.al b/src/Layers/W1/BaseApp/Finance/Dimension/DimensionsTotal.Report.al index 0f41b177fbf..21f19005836 100644 --- a/src/Layers/W1/BaseApp/Finance/Dimension/DimensionsTotal.Report.al +++ b/src/Layers/W1/BaseApp/Finance/Dimension/DimensionsTotal.Report.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -68,38 +68,6 @@ report 27 "Dimensions - Total" column(DimFilterText; DimFilterText) { } -#if not CLEAN27 - column(Header_5_; Header30[5]) - { - ObsoleteState = Pending; - ObsoleteReason = 'The text length limit will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(Header_4_; Header30[4]) - { - ObsoleteState = Pending; - ObsoleteReason = 'The text length limit will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(Header_3_; Header30[3]) - { - ObsoleteState = Pending; - ObsoleteReason = 'The text length limit will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(Header_2_; Header30[2]) - { - ObsoleteState = Pending; - ObsoleteReason = 'The text length limit will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(Header_1_; Header30[1]) - { - ObsoleteState = Pending; - ObsoleteReason = 'The text length limit will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#else column(Header_5_; Header[5]) { } @@ -115,7 +83,6 @@ report 27 "Dimensions - Total" column(Header_1_; Header[1]) { } -#endif column(RoundingHeader_5_; RoundingHeader[5]) { AutoCalcField = false; @@ -659,9 +626,6 @@ report 27 "Dimensions - Total" i := i + 1; if i <= MaxColumnsDisplayed then begin Header[i] := AccSchedManagement.CalcColumnHeader(AccSchedLine, TempColumnLayout); -#if not CLEAN27 - Header30[i] := CopyStr(Header[i], 1, MaxStrLen(Header30[i])); -#endif RoundingHeader[i] := ''; if TempColumnLayout."Rounding Factor" in [TempColumnLayout."Rounding Factor"::"1000", TempColumnLayout."Rounding Factor"::"1000000"] then case TempColumnLayout."Rounding Factor" of @@ -942,9 +906,6 @@ report 27 "Dimensions - Total" ColumnValuesDisplayed: array[5] of Decimal; ColumnValuesAsText: array[5, 4] of Text[30]; Header: array[5] of Text; -#if not CLEAN27 - Header30: array[5] of Text[30]; -#endif RoundingHeader: array[5] of Text[30]; MaxColumnsDisplayed: Integer; NoOfCols: Integer; diff --git a/src/Layers/W1/BaseApp/Finance/FinancialReports/AccScheduleOverview.Page.al b/src/Layers/W1/BaseApp/Finance/FinancialReports/AccScheduleOverview.Page.al index 91dbf0e6d2b..78175230fbf 100644 --- a/src/Layers/W1/BaseApp/Finance/FinancialReports/AccScheduleOverview.Page.al +++ b/src/Layers/W1/BaseApp/Finance/FinancialReports/AccScheduleOverview.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -2032,30 +2032,14 @@ page 490 "Acc. Schedule Overview" protected procedure UpdateColumnCaptions() var -#if not CLEAN27 - ColumnCaptions80: array[15] of Text[80]; -#endif ColumnNo: Integer; i: Integer; IsHandled: Boolean; begin -#if not CLEAN27 -#pragma warning disable AL0432 - for i := 1 to ArrayLen(ColumnCaptions) do - ColumnCaptions80[i] := CopyStr(ColumnCaptions[i], 1, MaxStrLen(ColumnCaptions80[i])); - OnBeforeUpdateColumnCaptions(ColumnCaptions80, ColumnOffset, TempColumnLayout, NoOfColumns, IsHandled); - if IsHandled then begin - for i := 1 to ArrayLen(ColumnCaptions80) do - ColumnCaptions[i] := ColumnCaptions80[i]; - exit; - end; -#pragma warning restore AL0432 -#else IsHandled := false; OnBeforeUpdateColumnCaptions(ColumnCaptions, ColumnOffset, TempColumnLayout, NoOfColumns, IsHandled); if IsHandled then exit; -#endif Clear(ColumnCaptions); if TempColumnLayout.FindSet() then @@ -2543,12 +2527,7 @@ page 490 "Acc. Schedule Overview" /// Number of columns to process for caption update /// Set to true to skip standard caption update processing [IntegrationEvent(false, false)] -#if not CLEAN27 - [Obsolete('The ColumnCaptions parameter will be changed to array[15] of Text in a future release.', '27.0')] - local procedure OnBeforeUpdateColumnCaptions(var ColumnCaptions: array[15] of Text[80]; ColumnOffset: Integer; var TempColumnLayout: Record "Column Layout" temporary; NoOfColumns: Integer; var IsHandled: Boolean) -#else local procedure OnBeforeUpdateColumnCaptions(var ColumnCaptions: array[15] of Text; ColumnOffset: Integer; var TempColumnLayout: Record "Column Layout" temporary; NoOfColumns: Integer; var IsHandled: Boolean) -#endif begin end; diff --git a/src/Layers/W1/BaseApp/Finance/FinancialReports/AccountSchedule.Report.al b/src/Layers/W1/BaseApp/Finance/FinancialReports/AccountSchedule.Report.al index 2e0926d907c..491701efaa0 100644 --- a/src/Layers/W1/BaseApp/Finance/FinancialReports/AccountSchedule.Report.al +++ b/src/Layers/W1/BaseApp/Finance/FinancialReports/AccountSchedule.Report.al @@ -183,18 +183,9 @@ report 25 "Account Schedule" column(ColumnNo; "Column No.") { } -#if not CLEAN27 - column(Header; Header50) - { - ObsoleteState = Pending; - ObsoleteReason = 'The text length limit will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#else column(Header; Header) { } -#endif column(RoundingHeader; RoundingHeader) { AutoCalcField = false; @@ -225,9 +216,6 @@ report 25 "Account Schedule" end; ColumnValuesAsText := CalcColumnValueAsText("Acc. Schedule Line", "Column Layout", Header, ValueIsEmpty); -#if not CLEAN27 - Header50 := CopyStr(Header, 1, MaxStrLen(Header50)); -#endif ColumnValuesArrayIndex += 1; if ColumnValuesArrayIndex <= ArrayLen(ColumnValuesArrayText) then ColumnValuesArrayText[ColumnValuesArrayIndex] := ColumnValuesAsText; @@ -916,9 +904,6 @@ report 25 "Account Schedule" PeriodText: Text; AccSchedLineFilter: Text; Header: Text; -#if not CLEAN27 - Header50: Text[50]; -#endif RoundingHeader: Text[30]; BusinessUnitFilterVisible: Boolean; BudgetFilterEnable: Boolean; diff --git a/src/Layers/W1/BaseApp/Finance/FinancialReports/ColumnLayout.Table.al b/src/Layers/W1/BaseApp/Finance/FinancialReports/ColumnLayout.Table.al index 8bf0bb541fc..43db368f23f 100644 --- a/src/Layers/W1/BaseApp/Finance/FinancialReports/ColumnLayout.Table.al +++ b/src/Layers/W1/BaseApp/Finance/FinancialReports/ColumnLayout.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -344,33 +344,6 @@ table 334 "Column Layout" #pragma warning restore AA0470 #pragma warning restore AA0074 -#if not CLEAN27 - /// - /// Parses period formula expression into component values for period calculation processing. - /// - /// Period formula code to parse into components - /// Number of period steps calculated from formula - /// Period type determined from formula expression - /// Starting range type for period calculation - /// Ending range type for period calculation - /// Starting range integer value - /// Ending range integer value - [Obsolete('Moved to codeunit Period Formula Parser', '27.0')] - procedure ParsePeriodFormula(FormulaExpression: Code[20]; var Steps: Integer; var Type: Enum "Period Type"; var RangeFromType: Enum "Period Formula Range"; var RangeToType: Enum "Period Formula Range"; var RangeFromInt: Integer; var RangeToInt: Integer) - var - PeriodFormulaParser: Codeunit "Period Formula Parser"; - begin - PeriodFormulaParser.ParsePeriodFormula( - FormulaExpression, - Steps, - Type, - RangeFromType, - RangeToType, - RangeFromInt, - RangeToInt, - "Comparison Period Formula LCID"); - end; -#endif /// /// Opens dimension value lookup dialog and returns selected dimension filter expression. @@ -530,19 +503,6 @@ table 334 "Column Layout" Validate("G/L Account Totaling", GLAccountList.GetSelectionFilter()); end; -#if not CLEAN27 - /// - /// Retrieves current period name for display purposes in financial reporting. - /// - /// Period name code for current period identification - [Obsolete('Moved to codeunit Period Formula Parser', '27.0')] - procedure GetPeriodName(): Code[10] - var - PeriodFormulaParser: Codeunit "Period Formula Parser"; - begin - exit(PeriodFormulaParser.GetPeriodName()); - end; -#endif /// /// Integration event raised before retrieving caption class for dimension field display. diff --git a/src/Layers/W1/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al b/src/Layers/W1/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al index 60531bfe898..2b98d6f9468 100644 --- a/src/Layers/W1/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al +++ b/src/Layers/W1/BaseApp/Finance/GeneralLedger/Ledger/GLEntry.Table.al @@ -913,17 +913,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/W1/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al b/src/Layers/W1/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al index bf7b4fe3063..6eb9514f4de 100644 --- a/src/Layers/W1/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al +++ b/src/Layers/W1/BaseApp/Finance/GeneralLedger/Setup/GeneralLedgerSetup.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -468,17 +468,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.") { @@ -888,11 +882,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 @@ -903,17 +892,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/W1/BaseApp/Finance/Intercompany/DataExchange/BufferICInboxTransaction.Table.al b/src/Layers/W1/BaseApp/Finance/Intercompany/DataExchange/BufferICInboxTransaction.Table.al index fcd4ad8a2b5..61cd9c092d5 100644 --- a/src/Layers/W1/BaseApp/Finance/Intercompany/DataExchange/BufferICInboxTransaction.Table.al +++ b/src/Layers/W1/BaseApp/Finance/Intercompany/DataExchange/BufferICInboxTransaction.Table.al @@ -43,13 +43,8 @@ table 610 "Buffer IC Inbox Transaction" Caption = 'Source Type'; Editable = false; ObsoleteReason = 'Replaced by IC Source Type for Enum typing'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '29.0'; -#endif } #endif /// diff --git a/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/HandledICInboxTrans.Table.al b/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/HandledICInboxTrans.Table.al index 9042cd3fee2..7e76e832a40 100644 --- a/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/HandledICInboxTrans.Table.al +++ b/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/HandledICInboxTrans.Table.al @@ -46,13 +46,8 @@ table 420 "Handled IC Inbox Trans." Caption = 'Source Type'; Editable = false; ObsoleteReason = 'Replaced by IC Source Type for Enum typing'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '29.0'; -#endif } #endif /// diff --git a/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/HandledICInboxTransactions.Page.al b/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/HandledICInboxTransactions.Page.al index 05ec7c0cbac..0f1493cde82 100644 --- a/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/HandledICInboxTransactions.Page.al +++ b/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/HandledICInboxTransactions.Page.al @@ -47,18 +47,6 @@ page 617 "Handled IC Inbox Transactions" Editable = false; ToolTip = 'Specifies what action has been taken on the transaction.'; } -#if not CLEAN27 - field("Source Type"; Rec."Source Type") - { - ApplicationArea = Intercompany; - Editable = false; - Visible = false; - ToolTip = 'Specifies whether the transaction was created in a journal, a sales document, or a purchase document.'; - ObsoleteReason = 'Replaced with IC Source Type for consistent naming.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("IC Source Type"; Rec."IC Source Type") { ApplicationArea = Intercompany; diff --git a/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/ICInboxTransaction.Table.al b/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/ICInboxTransaction.Table.al index 8d4177e2304..1ccd68673fa 100644 --- a/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/ICInboxTransaction.Table.al +++ b/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/ICInboxTransaction.Table.al @@ -48,13 +48,8 @@ table 418 "IC Inbox Transaction" Caption = 'Source Type'; Editable = false; ObsoleteReason = 'Replaced by IC Source Type for Enum typing'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '29.0'; -#endif } #endif /// diff --git a/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/ICInboxTransactions.Page.al b/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/ICInboxTransactions.Page.al index 2e47b23d85c..9fd5209cc91 100644 --- a/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/ICInboxTransactions.Page.al +++ b/src/Layers/W1/BaseApp/Finance/Intercompany/Inbox/ICInboxTransactions.Page.al @@ -111,18 +111,6 @@ page 615 "IC Inbox Transactions" ApplicationArea = Intercompany; ToolTip = 'Specifies the code of the intercompany partner that the transaction is related to if the entry was created from an intercompany transaction.'; } -#if not CLEAN27 - field("Source Type"; Rec."Source Type") - { - ApplicationArea = Intercompany; - Editable = false; - Visible = false; - ToolTip = 'Specifies whether the transaction was created in a journal, a sales document, or a purchase document.'; - ObsoleteReason = 'Replaced with IC Source Type for consistent naming.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("IC Source Type"; Rec."IC Source Type") { ApplicationArea = Intercompany; diff --git a/src/Layers/W1/BaseApp/Finance/Intercompany/Outbox/HandledICOutboxTrans.Table.al b/src/Layers/W1/BaseApp/Finance/Intercompany/Outbox/HandledICOutboxTrans.Table.al index e3a77f02523..6f7cbc0e2de 100644 --- a/src/Layers/W1/BaseApp/Finance/Intercompany/Outbox/HandledICOutboxTrans.Table.al +++ b/src/Layers/W1/BaseApp/Finance/Intercompany/Outbox/HandledICOutboxTrans.Table.al @@ -51,13 +51,8 @@ table 416 "Handled IC Outbox Trans." Caption = 'Source Type'; Editable = false; ObsoleteReason = 'Replaced by IC Source Type for Enum typing'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '29.0'; -#endif } #endif /// diff --git a/src/Layers/W1/BaseApp/Finance/Intercompany/Outbox/HandledICOutboxTransactions.Page.al b/src/Layers/W1/BaseApp/Finance/Intercompany/Outbox/HandledICOutboxTransactions.Page.al index f168c3a07bf..09d102d16b5 100644 --- a/src/Layers/W1/BaseApp/Finance/Intercompany/Outbox/HandledICOutboxTransactions.Page.al +++ b/src/Layers/W1/BaseApp/Finance/Intercompany/Outbox/HandledICOutboxTransactions.Page.al @@ -52,18 +52,6 @@ page 613 "Handled IC Outbox Transactions" Editable = false; ToolTip = 'Specifies what action has been taken on the transaction.'; } -#if not CLEAN27 - field("Source Type"; Rec."Source Type") - { - ApplicationArea = Intercompany; - Editable = false; - Visible = false; - ToolTip = 'Specifies whether the transaction was created in a journal, a sales document, or a purchase document.'; - ObsoleteReason = 'Replaced with IC Source Type for consistent naming.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field("IC Source Type"; Rec."IC Source Type") { ApplicationArea = Intercompany; diff --git a/src/Layers/W1/BaseApp/Foundation/Company/CompanyInformation.Table.al b/src/Layers/W1/BaseApp/Foundation/Company/CompanyInformation.Table.al index e9ebc49f5cc..3f8fd2861df 100644 --- a/src/Layers/W1/BaseApp/Foundation/Company/CompanyInformation.Table.al +++ b/src/Layers/W1/BaseApp/Foundation/Company/CompanyInformation.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -300,13 +300,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.'; @@ -852,13 +846,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/W1/BaseApp/Foundation/Navigate/OrderTrackingManagement.Codeunit.al b/src/Layers/W1/BaseApp/Foundation/Navigate/OrderTrackingManagement.Codeunit.al index ff5e187425f..917ac21cd35 100644 --- a/src/Layers/W1/BaseApp/Foundation/Navigate/OrderTrackingManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Foundation/Navigate/OrderTrackingManagement.Codeunit.al @@ -724,13 +724,6 @@ codeunit 99000778 OrderTrackingManagement begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceLine(SourceRecRef: RecordRef; var ReservEntry: Record "Reservation Entry"; var ItemLedgerEntry: Record "Item Ledger Entry") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnDerivePlanningFilterOnSetToReservationFilter(var ToReservEntry: Record "Reservation Entry"; FilterPlanningComponent: Record "Planning Component") begin diff --git a/src/Layers/W1/BaseApp/Foundation/Reporting/ReportDistributionManagement.Codeunit.al b/src/Layers/W1/BaseApp/Foundation/Reporting/ReportDistributionManagement.Codeunit.al index 7e4006ccb7f..2b731ad8f68 100644 --- a/src/Layers/W1/BaseApp/Foundation/Reporting/ReportDistributionManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Foundation/Reporting/ReportDistributionManagement.Codeunit.al @@ -360,19 +360,6 @@ codeunit 452 "Report Distribution Management" exit(IssuedReminderDocTypeTxt); end; -#if not CLEAN27 - [Scope('OnPrem')] - [Obsolete('Replaced with SendXmlEmailAttachment that accepts a TempBlob as additional parameter.', '27.0')] - procedure SendXmlEmailAttachment(DocumentVariant: Variant; DocumentFormat: Code[20]; ServerEmailBodyFilePath: Text[250]; SendToEmailAddress: Text[250]; ReportUsage: Enum "Report Selection Usage") - var - FileManagement: Codeunit "File Management"; - EmailBodyTempBlob: Codeunit "Temp Blob"; - begin - if ServerEmailBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(EmailBodyTempBlob, ServerEmailBodyFilePath); - SendXmlEmailAttachment(DocumentVariant, DocumentFormat, EmailBodyTempBlob, SendToEmailAddress, ReportUsage); - end; -#endif procedure SendXmlEmailAttachment(DocumentVariant: Variant; DocumentFormat: Code[20]; var EmailBodyTempBlob: Codeunit "Temp Blob"; SendToEmailAddress: Text[250]; ReportUsage: Enum "Report Selection Usage") var @@ -410,19 +397,6 @@ codeunit 452 "Report Distribution Management" EmailBodyTempBlob, ReportUsage, ReceiverRecord); end; -#if not CLEAN27 - [Scope('OnPrem')] - [Obsolete('Replaced with SendXmlEmailAttachmentVendor that accepts a TempBlob as additional parameter.', '27.0')] - procedure SendXmlEmailAttachmentVendor(DocumentVariant: Variant; DocumentFormat: Code[20]; ServerEmailBodyFilePath: Text[250]; SendToEmailAddress: Text[250]) - var - FileManagement: Codeunit "File Management"; - EmailBodyTempBlob: Codeunit "Temp Blob"; - begin - if ServerEmailBodyFilePath <> '' then - FileManagement.BLOBImportFromServerFile(EmailBodyTempBlob, ServerEmailBodyFilePath); - SendXmlEmailAttachmentVendor(DocumentVariant, DocumentFormat, EmailBodyTempBlob, SendToEmailAddress); - end; -#endif procedure SendXmlEmailAttachmentVendor(DocumentVariant: Variant; DocumentFormat: Code[20]; var EmailBodyTempBlob: Codeunit "Temp Blob"; SendToEmailAddress: Text[250]) var diff --git a/src/Layers/W1/BaseApp/Foundation/Reporting/ReportSelections.Table.al b/src/Layers/W1/BaseApp/Foundation/Reporting/ReportSelections.Table.al index a2c8a9f792d..1cecef9cd66 100644 --- a/src/Layers/W1/BaseApp/Foundation/Reporting/ReportSelections.Table.al +++ b/src/Layers/W1/BaseApp/Foundation/Reporting/ReportSelections.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -847,75 +847,6 @@ table 77 "Report Selections" SaveReportAsPDFInTempBlob(TempBlob, TempBodyReportSelections."Report ID", RecordVariant, TempBodyReportSelections."Custom Report Layout Code", ReportUsage); end; -#if not CLEAN27 - [Scope('OnPrem')] - [Obsolete('Replaced with GetEmailBodyForCust that accepts a TempBlob as parameter.', '27.0')] - procedure GetEmailBodyForCust(var ServerEmailBodyFilePath: Text[250]; ReportUsage: Enum "Report Selection Usage"; RecordVariant: Variant; CustNo: Code[20]; var CustEmailAddress: Text[250]): Boolean - begin - exit( - GetEmailBodyTextForCust( - ServerEmailBodyFilePath, ReportUsage, RecordVariant, CustNo, CustEmailAddress, '')); - end; - - [Scope('OnPrem')] - [Obsolete('Replaced with GetEmailBodyTextForCust that accepts a TempBlob as parameter.', '27.0')] - procedure GetEmailBodyTextForCust(var ServerEmailBodyFilePath: Text[250]; ReportUsage: Enum "Report Selection Usage"; RecordVariant: Variant; CustNo: Code[20]; var CustEmailAddress: Text[250]; EmailBodyText: Text) Result: Boolean - var - TempBodyReportSelections: Record "Report Selections" temporary; - O365HTMLTemplMgt: Codeunit "O365 HTML Templ. Mgt."; - IsHandled: Boolean; - EmailBodyUsageFound: Boolean; - EmailBody: Codeunit "Temp Blob"; - begin - ServerEmailBodyFilePath := ''; - - IsHandled := false; - OnBeforeGetEmailBodyCustomer( - ReportUsage.AsInteger(), RecordVariant, TempBodyReportSelections, CustNo, CustEmailAddress, EmailBodyText, IsHandled, Result); - if IsHandled then - exit(Result); - - if CustEmailAddress = '' then - CustEmailAddress := GetEmailAddressIgnoringLayout(ReportUsage, RecordVariant, CustNo); - - IsHandled := false; - OnGetEmailBodyTextForCustOnBeforeFindEmailBodyUsageForCust(Rec, ReportUsage, RecordVariant, CustNo, TempBodyReportSelections, Result, IsHandled); - if IsHandled then - exit(Result); - - if not FindEmailBodyUsageForCust(ReportUsage, CustNo, TempBodyReportSelections) then begin - IsHandled := false; - EmailBodyUsageFound := false; - OnGetEmailBodyCustomerTextOnAfterNotFindEmailBodyUsage( - ReportUsage.AsInteger(), RecordVariant, CustNo, TempBodyReportSelections, IsHandled, EmailBodyUsageFound); - if not EmailBodyUsageFound then begin - if IsHandled then - exit(true); - exit(false); - end; - end; - - case "Email Body Layout Type" of - "Email Body Layout Type"::"Custom Report Layout": - if TempBodyReportSelections."Email Body Layout Code" <> '' then - SaveReportAsHTML(TempBodyReportSelections."Report ID", RecordVariant, TempBodyReportSelections."Email Body Layout Code", ReportUsage, EmailBody) - else - SaveReportAsHTML(TempBodyReportSelections."Report ID", RecordVariant, TempBodyReportSelections."Email Body Layout Name", TempBodyReportSelections."Email Body Layout AppID", ReportUsage, EmailBody); - "Email Body Layout Type"::"HTML Layout": - O365HTMLTemplMgt.CreateEmailBodyFromReportSelections(Rec, RecordVariant, CustEmailAddress, EmailBodyText, EmailBody); - end; - ServerEmailBodyFilePath := FileManagement.TempBlobToServerFile(EmailBody, 'html'); - - CustEmailAddress := GetEmailAddress(ReportUsage, RecordVariant, CustNo, TempBodyReportSelections); - - IsHandled := false; - OnAfterGetEmailBodyCustomer(CustEmailAddress, ServerEmailBodyFilePath, RecordVariant, Result, IsHandled); - if IsHandled then - exit(Result); - - exit(true); - end; -#endif /// /// Gets the email body for a customer into tempblob. @@ -947,10 +878,6 @@ table 77 "Report Selections" O365HTMLTemplMgt: Codeunit "O365 HTML Templ. Mgt."; IsHandled: Boolean; EmailBodyUsageFound: Boolean; -#if not CLEAN27 - ServerEmailBodyFileCreated: Boolean; - ServerEmailBodyFilePath: Text[250]; -#endif begin Clear(EmailBody); @@ -993,21 +920,6 @@ table 77 "Report Selections" CustEmailAddress := GetEmailAddress(ReportUsage, RecordVariant, CustNo, TempBodyReportSelections); IsHandled := false; -#if not CLEAN27 - if EmailBody.HasValue() then begin - ServerEmailBodyFilePath := FileManagement.TempBlobToServerFile(EmailBody, 'html'); - ServerEmailBodyFileCreated := true; - end; - OnAfterGetEmailBodyCustomer(CustEmailAddress, ServerEmailBodyFilePath, RecordVariant, Result, IsHandled); - if ServerEmailBodyFileCreated then - Clear(EmailBody); - if ServerEmailBodyFilePath <> '' then begin - FileManagement.BLOBImportFromServerFile(EmailBody, ServerEmailBodyFilePath); - FileManagement.DeleteServerFile(ServerEmailBodyFilePath); - end; - if IsHandled then - exit(Result); -#endif OnAfterGetEmailBodyCustomerProcedure(CustEmailAddress, EmailBody, RecordVariant, Result, IsHandled); if IsHandled then @@ -1081,58 +993,6 @@ table 77 "Report Selections" exit(EmailAddress); end; -#if not CLEAN27 - [Scope('OnPrem')] - [Obsolete('Replaced with GetEmailBodyForVend that accepts a TempBlob as parameter.', '27.0')] - procedure GetEmailBodyForVend(var ServerEmailBodyFilePath: Text[250]; ReportUsage: Enum "Report Selection Usage"; RecordVariant: Variant; VendorNo: Code[20]; var VendorEmailAddress: Text[250]) Result: Boolean - var - TempBodyReportSelections: Record "Report Selections" temporary; - FoundVendorEmailAddress: Text[250]; - IsHandled, EmailBodyUsageFound : Boolean; - EMailBody: Codeunit "Temp Blob"; - begin - ServerEmailBodyFilePath := ''; - - IsHandled := false; - OnBeforeGetEmailBodyVendor( - ReportUsage.AsInteger(), RecordVariant, TempBodyReportSelections, VendorNo, VendorEmailAddress, IsHandled); - if IsHandled then - exit; - - VendorEmailAddress := GetEmailAddressForVend(VendorNo, RecordVariant, ReportUsage); - - if not FindEmailBodyUsageForVend(ReportUsage, VendorNo, TempBodyReportSelections) then begin - IsHandled := false; - EmailBodyUsageFound := false; - OnGetEmailBodyVendorTextOnAfterNotFindEmailBodyUsage( - ReportUsage.AsInteger(), RecordVariant, VendorNo, TempBodyReportSelections, IsHandled, EmailBodyUsageFound); - if not EmailBodyUsageFound then begin - if IsHandled then - exit(true); - exit(false); - end; - end; - - if TempBodyReportSelections."Email Body Layout Code" <> '' then - SaveReportAsHTML(TempBodyReportSelections."Report ID", RecordVariant, TempBodyReportSelections."Email Body Layout Code", ReportUsage, EMailBody) - else - SaveReportAsHTML(TempBodyReportSelections."Report ID", RecordVariant, TempBodyReportSelections."Email Body Layout Name", TempBodyReportSelections."Email Body Layout AppID", ReportUsage, EMailBody); - - ServerEmailBodyFilePath := FileManagement.TempBlobToServerFile(EmailBody, 'html'); - - FoundVendorEmailAddress := - FindEmailAddressForEmailLayout(TempBodyReportSelections."Email Body Layout Code", VendorNo, ReportUsage, Database::Vendor); - if FoundVendorEmailAddress <> '' then - VendorEmailAddress := FoundVendorEmailAddress; - - IsHandled := false; - OnAfterGetEmailBodyVendor(VendorEmailAddress, ServerEmailBodyFilePath, RecordVariant, Result, IsHandled); - if IsHandled then - exit(Result); - - exit(true); - end; -#endif procedure GetEmailBodyForVend(var EmailBody: Codeunit "Temp Blob"; ReportUsage: Enum "Report Selection Usage"; RecordVariant: Variant; VendorNo: Code[20]; var VendorEmailAddress: Text[250]) Result: Boolean @@ -1140,10 +1000,6 @@ table 77 "Report Selections" TempBodyReportSelections: Record "Report Selections" temporary; FoundVendorEmailAddress: Text[250]; IsHandled, EmailBodyUsageFound : Boolean; -#if not CLEAN27 - ServerEmailBodyFileCreated: Boolean; - ServerEmailBodyFilePath: Text[250]; -#endif begin Clear(EmailBody); @@ -1177,21 +1033,6 @@ table 77 "Report Selections" VendorEmailAddress := FoundVendorEmailAddress; IsHandled := false; -#if not CLEAN27 - if EmailBody.HasValue() then begin - ServerEmailBodyFilePath := FileManagement.TempBlobToServerFile(EmailBody, 'html'); - ServerEmailBodyFileCreated := true; - end; - OnAfterGetEmailBodyVendor(VendorEmailAddress, ServerEmailBodyFilePath, RecordVariant, Result, IsHandled); - if ServerEmailBodyFileCreated then - Clear(EmailBody); - if ServerEmailBodyFilePath <> '' then begin - FileManagement.BLOBImportFromServerFile(EmailBody, ServerEmailBodyFilePath); - FileManagement.DeleteServerFile(ServerEmailBodyFilePath); - end; - if IsHandled then - exit(Result); -#endif OnAfterGetEmailBodyVendorProcedure(VendorEmailAddress, EmailBody, RecordVariant, Result, IsHandled); if IsHandled then exit(Result); @@ -1585,15 +1426,9 @@ table 77 "Report Selections" FieldRef: FieldRef; FieldName: Text; EmailAddress: Text[250]; -#if not CLEAN27 - ServerEmailBodyFilePath: Text[250]; -#endif SourceTableIDs, SourceRelationTypes : List of [Integer]; SourceIDs: List of [Guid]; IsHandled: Boolean; -#if not CLEAN27 - ServerEmailBodyFileCreated: Boolean; -#endif AttachmentStream: InStream; TableId: Integer; begin @@ -1647,21 +1482,6 @@ table 77 "Report Selections" SourceRelationTypes.Add(Enum::"Email Relation Type"::"Related Entity".AsInteger()); end; end; -#if not CLEAN27 - if EmailBodyTempBlob.HasValue() then begin - ServerEmailBodyFilePath := FileManagement.TempBlobToServerFile(EmailBodyTempBlob, 'html'); - ServerEmailBodyFileCreated := true; - end; - OnBeforeSendEmailDirectly(Rec, ReportUsage, RecordVariant, DocNo, DocName, FoundBody, FoundAttachment, ServerEmailBodyFilePath, DefaultEmailAddress, ShowDialog, TempAttachReportSelections, CustomReportSelection, AllEmailsWereSuccessful, IsHandled, SourceTableIDs, SourceIDs, SourceRelationTypes); - if ServerEmailBodyFileCreated then - Clear(ServerEmailBodyFileCreated); - if ServerEmailBodyFilePath <> '' then begin - FileManagement.BLOBImportFromServerFile(EmailBodyTempBlob, ServerEmailBodyFilePath); - FileManagement.DeleteServerFile(ServerEmailBodyFilePath); - end; - if IsHandled then - exit(AllEmailsWereSuccessful); -#endif OnSendEmailDirectlyOnBeforeSend(Rec, ReportUsage, RecordVariant, DocNo, DocName, FoundBody, FoundAttachment, EmailBodyTempBlob, DefaultEmailAddress, ShowDialog, TempAttachReportSelections, CustomReportSelection, AllEmailsWereSuccessful, IsHandled, SourceTableIDs, SourceIDs, SourceRelationTypes); if IsHandled then exit(AllEmailsWereSuccessful); @@ -1695,20 +1515,6 @@ table 77 "Report Selections" Error(ReminderAndSalesInvoiceErr); IsHandled := false; -#if not CLEAN27 - ServerEmailBodyFileCreated := false; - if EmailBodyTempBlob.HasValue() then begin - ServerEmailBodyFilePath := FileManagement.TempBlobToServerFile(EmailBodyTempBlob, 'html'); - ServerEmailBodyFileCreated := true; - end; - OnSendEmailDirectlyOnBeforeSendFileLoop(ReportUsage, RecordVariant, DocNo, DocName, DefaultEmailAddress, ShowDialog, TempAttachReportSelections, CustomReportSelection, IsHandled, ServerEmailBodyFilePath); - if ServerEmailBodyFileCreated then - Clear(EmailBodyTempBlob); - if ServerEmailBodyFilePath <> '' then begin - FileManagement.BLOBImportFromServerFile(EmailBodyTempBlob, ServerEmailBodyFilePath); - FileManagement.DeleteServerFile(ServerEmailBodyFilePath); - end; -#endif OnSendEmailDirectlyOnBeforeSendSingleFile(ReportUsage, RecordVariant, DocNo, DocName, DefaultEmailAddress, ShowDialog, TempAttachReportSelections, CustomReportSelection, IsHandled, EmailBodyTempBlob); if not IsHandled then begin @@ -2040,31 +1846,14 @@ table 77 "Report Selections" local procedure DoSaveReportAsHTMLInTempBlob(ReportID: Integer; var RecordVariant: Variant; var TempBlob: Codeunit "Temp Blob") var IsHandled: Boolean; -#if not CLEAN27 - FilePath: Text; -#endif FileOutStream: OutStream; begin IsHandled := false; -#if not CLEAN27 - OnBeforeDoSaveReportAsHTML(ReportID, FilePath, RecordVariant, IsHandled); - if FilePath <> '' then - FileManagement.BLOBImportFromServerFile(TempBlob, FilePath); -#endif OnBeforeDoSaveReportAsHTMLInTempBlob(ReportID, TempBlob, RecordVariant, IsHandled); if IsHandled then exit; TempBlob.CreateOutStream(FileOutStream, TextEncoding::UTF8); Report.SaveAs(ReportID, '', ReportFormat::Html, FileOutStream, GetRecRef(RecordVariant)); -#if not CLEAN27 - FilePath := FileManagement.ServerTempFileName('html'); - FileManagement.BLOBExportToServerFile(TempBlob, FilePath); - OnReplaceHTMLText(ReportID, FilePath, RecordVariant, IsHandled); - if FilePath <> '' then - FileManagement.BLOBImportFromServerFile(TempBlob, FilePath) - else - Clear(TempBlob); -#endif OnAfterDoSaveReportAsHTMLInTempBlob(ReportID, TempBlob, RecordVariant); end; @@ -2477,13 +2266,6 @@ table 77 "Report Selections" begin end; -#if not CLEAN27 - [Obsolete('This event will be removed. Please use Event OnBeforeDoSaveReportAsHTMLInTempBlob instead.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeDoSaveReportAsHTML(ReportID: Integer; var FilePath: Text[250]; var RecordVariant: Variant; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeDoSaveReportAsHTMLInTempBlob(ReportID: Integer; var TemBlob: Codeunit "Temp Blob"; var RecordVariant: Variant; var IsHandled: Boolean) begin @@ -2604,13 +2386,6 @@ table 77 "Report Selections" begin end; -#if not CLEAN27 - [Obsolete('Use new Event OnAfterGetEmailBodyCustomerProcedure instead.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetEmailBodyCustomer(var CustomerEmailAddress: Text[250]; ServerEmailBodyFilePath: Text[250]; RecordVariant: Variant; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterGetEmailBodyCustomerProcedure(var CustomerEmailAddress: Text[250]; var EmailBody: Codeunit "Temp Blob"; RecordVariant: Variant; var Result: Boolean; var IsHandled: Boolean) @@ -2627,13 +2402,6 @@ table 77 "Report Selections" begin end; -#if not CLEAN27 - [Obsolete('Use new Event OnAfterGetEmailBodyVendorProcedure instead.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetEmailBodyVendor(var VendorEmailAddress: Text[250]; ServerEmailBodyFilePath: Text[250]; RecordVariant: Variant; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterGetEmailBodyVendorProcedure(var VendorEmailAddress: Text[250]; var EmailBody: Codeunit "Temp Blob"; RecordVariant: Variant; var Result: Boolean; var IsHandled: Boolean) @@ -2670,13 +2438,6 @@ table 77 "Report Selections" begin end; -#if not CLEAN27 - [Obsolete('Use new Event OnSendEmailDirectlyOnBeforeSend instead.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeSendEmailDirectly(var ReportSelections: Record "Report Selections"; ReportUsage: Enum "Report Selection Usage"; RecordVariant: Variant; var DocNo: Code[20]; var DocName: Text[150]; FoundBody: Boolean; FoundAttachment: Boolean; ServerEmailBodyFilePath: Text[250]; var DefaultEmailAddress: Text[250]; ShowDialog: Boolean; var TempAttachReportSelections: Record "Report Selections" temporary; var CustomReportSelection: Record "Custom Report Selection"; var AllEmailsWereSuccessful: Boolean; var IsHandled: Boolean; var SourceTableIDs: List of [Integer]; var SourceIDs: List of [Guid]; var SourceRelationTypes: List of [Integer]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnSendEmailDirectlyOnBeforeSend(var ReportSelections: Record "Report Selections"; ReportUsage: Enum "Report Selection Usage"; RecordVariant: Variant; var DocNo: Code[20]; var DocName: Text[150]; FoundBody: Boolean; FoundAttachment: Boolean; var EmailBody: Codeunit "Temp Blob"; var DefaultEmailAddress: Text[250]; ShowDialog: Boolean; var TempAttachReportSelections: Record "Report Selections" temporary; var CustomReportSelection: Record "Custom Report Selection"; var AllEmailsWereSuccessful: Boolean; var IsHandled: Boolean; var SourceTableIDs: List of [Integer]; var SourceIDs: List of [Guid]; var SourceRelationTypes: List of [Integer]) @@ -2713,13 +2474,6 @@ table 77 "Report Selections" begin end; -#if not CLEAN27 - [Obsolete('Use new Event OnSendEmailDirectlyOnBeforeSendSingleFile instead.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSendEmailDirectlyOnBeforeSendFileLoop(ReportUsage: Enum "Report Selection Usage"; RecordVariant: Variant; DocNo: Code[20]; var DocName: Text[150]; var DefaultEmailAddress: Text[250]; ShowDialog: Boolean; var TempAttachReportSelections: Record "Report Selections" temporary; var CustomReportSelection: Record "Custom Report Selection"; var IsHandled: Boolean; var ServerEmailBodyFilePath: Text[250]) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnSendEmailDirectlyOnBeforeSendSingleFile(ReportUsage: Enum "Report Selection Usage"; RecordVariant: Variant; DocNo: Code[20]; var DocName: Text[150]; var DefaultEmailAddress: Text[250]; ShowDialog: Boolean; var TempAttachReportSelections: Record "Report Selections" temporary; var CustomReportSelection: Record "Custom Report Selection"; var IsHandled: Boolean; var EmailBody: Codeunit "Temp Blob") @@ -2866,13 +2620,6 @@ table 77 "Report Selections" begin end; -#if not CLEAN27 - [Obsolete('This event will be removed. Please use Event OnBeforeDoSaveReportAsHTMLInTempBlob instead.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnReplaceHTMLText(ReportID: Integer; var FilePath: Text[250]; var RecordVariant: Variant; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterDoSaveReportAsHTMLInTempBlob(ReportID: Integer; var TempBlob: Codeunit "Temp Blob"; var RecordVariant: Variant) diff --git a/src/Layers/W1/BaseApp/HumanResources/Setup/Union.Table.al b/src/Layers/W1/BaseApp/HumanResources/Setup/Union.Table.al index a821f1b9a0e..be472c0cf17 100644 --- a/src/Layers/W1/BaseApp/HumanResources/Setup/Union.Table.al +++ b/src/Layers/W1/BaseApp/HumanResources/Setup/Union.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -125,13 +125,7 @@ table 5209 Union MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(13; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ExtendedDatatype = URL; diff --git a/src/Layers/W1/BaseApp/Integration/D365Sales/CRMSetupDefaults.Codeunit.al b/src/Layers/W1/BaseApp/Integration/D365Sales/CRMSetupDefaults.Codeunit.al index a87a7e9fef0..b0c973d21be 100644 --- a/src/Layers/W1/BaseApp/Integration/D365Sales/CRMSetupDefaults.Codeunit.al +++ b/src/Layers/W1/BaseApp/Integration/D365Sales/CRMSetupDefaults.Codeunit.al @@ -2779,13 +2779,6 @@ codeunit 5334 "CRM Setup Defaults" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnGetTableIDCRMEntityNameMappingOnAfterAddFSEntityTableMapping(var TempNameValueBuffer: Record "Name/Value Buffer" temporary) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnResetSalesPriceProductPricelevelMappingOnAfterInsertFieldsMapping(IntegrationTableMappingName: Code[20]) diff --git a/src/Layers/W1/BaseApp/IntelligentCloud.Page.al b/src/Layers/W1/BaseApp/IntelligentCloud.Page.al deleted file mode 100644 index 8c6a27945d4..00000000000 --- a/src/Layers/W1/BaseApp/IntelligentCloud.Page.al +++ /dev/null @@ -1,97 +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 System.AI; - -using System.Environment; -using System.Integration; - -page 4010 "Intelligent Cloud" -{ - Caption = 'Intelligent Cloud'; - Editable = false; - PageType = Card; - ShowFilter = false; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - ObsoleteReason = 'The Intelligent Cloud Insights feature is deprecated. Go to the article Deprecated Features in the Base App in the Business Central documentation to learn more.'; - - layout - { - area(content) - { - usercontrol(WebPageViewer; WebPageViewer) - { - ApplicationArea = Basic, Suite; - Visible = ShowIntelligentCloud; - - trigger ControlAddInReady(callbackUrl: Text) - begin - AddInReady := true; - NavigateToUrl(); - end; - - trigger DocumentReady() - begin - end; - - trigger Callback(data: Text) - begin - end; - - trigger Refresh(callbackUrl: Text) - begin - if AddInReady then - NavigateToUrl(); - end; - } - } - } - - actions - { - } - - trigger OnOpenPage() - begin - ShowIntelligentCloud := not EnvironmentInfo.IsSaaS(); - ShowDeprecatedNotification(); - end; - - var - EnvironmentInfo: Codeunit "Environment Information"; - AddInReady: Boolean; - IntelligentCloudUrlTxt: Label 'https://go.microsoft.com/fwlink/?linkid=2009848&clcid=0x409', Locked = true; - IntelligentCloudDeprecatedMsg: Label 'The Intelligent Cloud Insights feature is being deprecated and will be removed in a later release. Please go to the article Deprecated Features in the Base App in the Business Central documentation to learn more.'; - ShowIntelligentCloud: Boolean; - - local procedure ShowDeprecatedNotification() - var - DeprecatedNotification: Notification; - begin - DeprecatedNotification.Id := CreateGuid(); - DeprecatedNotification.Message(IntelligentCloudDeprecatedMsg); - DeprecatedNotification.Send(); - end; - - local procedure NavigateToUrl() - begin - CurrPage.WebPageViewer.Navigate(IntelligentCloudUrlTxt); - end; - - procedure GetIntelligentCloudInsightsUrl(): Text - var - BaseUrl: Text; - ParameterUrl: Text; - NoDomainUrl: Text; - begin - BaseUrl := GetUrl(CLIENTTYPE::Web); - ParameterUrl := GetUrl(CLIENTTYPE::Web, '', OBJECTTYPE::Page, 4013); - NoDomainUrl := DelChr(ParameterUrl, '<', BaseUrl); - - exit(StrSubstNo('https://businesscentral.dynamics.com/%1', NoDomainUrl)); - end; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Inventory/AddOnIntegrManagement.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/AddOnIntegrManagement.Codeunit.al deleted file mode 100644 index 884c28800f4..00000000000 --- a/src/Layers/W1/BaseApp/Inventory/AddOnIntegrManagement.Codeunit.al +++ /dev/null @@ -1,135 +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.Inventory; - -using Microsoft.Inventory.Requisition; -using Microsoft.Purchases.Document; -using Microsoft.Sales.Document; - -codeunit 5403 AddOnIntegrManagement -{ - Permissions = TableData Microsoft.Manufacturing.Setup."Manufacturing Setup" = rimd; - ObsoleteReason = 'Procedures from thois codeunit moved to other codeunits'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnRun() - begin - end; - - [Obsolete('Moved to codeunit CheckProdOrderStatus', '27.0')] - procedure CheckReceiptOrderStatus(var SalesLine: Record "Sales Line") - var - CheckProdOrderStatus: Codeunit Microsoft.Manufacturing.Document."Check Prod. Order Status"; - begin - CheckProdOrderStatus.CheckReceiptOrderStatus(SalesLine); - end; - - [Obsolete('Moved to table extension MfgPurchaseLine', '27.0')] - procedure ValidateProdOrderOnPurchLine(var PurchLine: Record "Purchase Line") - var - RequisitionLine: Record "Requisition Line"; - begin - PurchLine.ValidateProdOrderOnPurchLine(); - end; - - [Obsolete('Replaced by subscriber in codeunit MfgRequisitionLine', '27.0')] - procedure ResetReqLineFields(var ReqLine: Record "Requisition Line") - begin - ReqLine.ResetReqLineFields(); - end; - - [Obsolete('Moved to table extension MfgRequisitionLine', '27.0')] - procedure ValidateProdOrderOnReqLine(var ReqLine: Record "Requisition Line") - begin - ReqLine.ValidateProdOrderOnReqLine(ReqLine); - end; - - [Obsolete('Not used', '27.0')] - procedure InitMfgSetup() - var - MfgSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; - begin - if not MfgSetup.FindFirst() then begin - MfgSetup.Init(); - MfgSetup.Insert(); - end; - end; - - [Obsolete('Moved to codeunit ', '27.0')] - procedure TransferFromReqLineToPurchLine(var PurchOrderLine: Record "Purchase Line"; ReqLine: Record "Requisition Line") - begin - PurchOrderLine.TransferFromReqLineToPurchLine(PurchOrderLine, ReqLine); - end; - - internal procedure RunOnBeforeCheckReceiptOrderStatus(SalesLine: Record "Sales Line"; var Checked: Boolean) - begin - OnBeforeCheckReceiptOrderStatus(SalesLine, Checked); - end; - - [Obsolete('Moved to codeunit CheckProdOrderStatus', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCheckReceiptOrderStatus(SalesLine: Record "Sales Line"; var Checked: Boolean) - begin - end; - - internal procedure RunOnAfterTransferFromReqLineToPurchLine(var PurchOrderLine: Record "Purchase Line"; var ReqLine: Record "Requisition Line") - begin - OnAfterTransferFromReqLineToPurchLine(PurchOrderLine, ReqLine); - end; - - [Obsolete('Moved to codeunit MfgRequisitionLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferFromReqLineToPurchLine(var PurchOrderLine: Record "Purchase Line"; var ReqLine: Record "Requisition Line") - begin - end; - - internal procedure RunOnBeforeTransferFromReqLineToPurchLine(var PurchOrderLine: Record "Purchase Line"; var ReqLine: Record "Requisition Line"; var IsHandled: Boolean) - begin - OnBeforeTransferFromReqLineToPurchLine(PurchOrderLine, ReqLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgRequisitionLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransferFromReqLineToPurchLine(var PurchOrderLine: Record "Purchase Line"; var ReqLine: Record "Requisition Line"; var IsHandled: Boolean) - begin - end; - - internal procedure RunOnBeforeValidateProdOrderOnPurchLine(var PurchLine: Record "Purchase Line"; var IsHandled: Boolean) - begin - OnBeforeValidateProdOrderOnPurchLine(PurchLine, IsHandled); - end; - - [Obsolete('Moved to table extension MfgPurchaseLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeValidateProdOrderOnPurchLine(var PurchLine: Record "Purchase Line"; var IsHandled: Boolean) - begin - end; - - internal procedure RunOnTransferFromReqLineToPurchLineOnBeforeBeforeAssignOverheadRate(var WordCenter: Record Microsoft.Manufacturing.WorkCenter."Work Center"; var OrderDate: Date) - begin - OnTransferFromReqLineToPurchLineOnBeforeBeforeAssignOverheadRate(WordCenter, OrderDate); - end; - - [Obsolete('Moved to cpodeunit MfgRequisitionLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferFromReqLineToPurchLineOnBeforeBeforeAssignOverheadRate(var WordCenter: Record Microsoft.Manufacturing.WorkCenter."Work Center"; var OrderDate: Date) - begin - end; - - internal procedure RunOnAfterResetReqLineFields(var ReqLine: Record "Requisition Line") - begin - OnAfterResetReqLineFields(ReqLine); - end; - - [Obsolete('Moved to codeunit MfgRequisitionLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterResetReqLineFields(var ReqLine: Record "Requisition Line") - begin - end; -} -#endif - diff --git a/src/Layers/W1/BaseApp/Inventory/Analysis/AnalysisColumn.Table.al b/src/Layers/W1/BaseApp/Inventory/Analysis/AnalysisColumn.Table.al index 61327f9deeb..c0880b181d2 100644 --- a/src/Layers/W1/BaseApp/Inventory/Analysis/AnalysisColumn.Table.al +++ b/src/Layers/W1/BaseApp/Inventory/Analysis/AnalysisColumn.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -182,22 +182,5 @@ table 7118 "Analysis Column" TempAnalysisLine: Record "Analysis Line" temporary; AnalysisRepMgmt: Codeunit "Analysis Report Management"; -#if not CLEAN27 - [Obsolete('Moved to codeunit Period Formula Parser', '27.0')] - procedure ParsePeriodFormula(FormulaExpression: Code[20]; var Steps: Integer; var Type: Enum "Period Type"; var RangeFromType: Enum "Period Formula Range"; var RangeToType: Enum "Period Formula Range"; var RangeFromInt: Integer; var RangeToInt: Integer) - var - PeriodFormulaParser: Codeunit "Period Formula Parser"; - begin - PeriodFormulaParser.ParsePeriodFormula( - FormulaExpression, - Steps, - Type, - RangeFromType, - RangeToType, - RangeFromInt, - RangeToInt, - "Comparison Period Formula LCID"); - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Inventory/Availability/AvailabletoPromise.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Availability/AvailabletoPromise.Codeunit.al index 440b6ed4dfc..0862500b93a 100644 --- a/src/Layers/W1/BaseApp/Inventory/Availability/AvailabletoPromise.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Availability/AvailabletoPromise.Codeunit.al @@ -24,10 +24,6 @@ codeunit 5790 "Available to Promise" tabledata "Item Ledger Entry" = r, tabledata "Job Planning Line" = r, tabledata "Planning Component" = r, -#if not CLEAN27 - tabledata Microsoft.Manufacturing.Document."Prod. Order Component" = r, - tabledata Microsoft.Manufacturing.Document."Prod. Order Line" = r, -#endif tabledata "Purchase Line" = r, tabledata "Requisition Line" = r, tabledata "Reservation Entry" = r, diff --git a/src/Layers/W1/BaseApp/Inventory/Availability/CalcItemAvailability.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Availability/CalcItemAvailability.Codeunit.al index cbae93aeca4..0d8f0531ffe 100644 --- a/src/Layers/W1/BaseApp/Inventory/Availability/CalcItemAvailability.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Availability/CalcItemAvailability.Codeunit.al @@ -1019,19 +1019,6 @@ codeunit 5530 "Calc. Item Availability" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeRunProductionOrderPage(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean) - begin - OnBeforeRunProductionOrderPage(ProductionOrder, IsHandled); - end; - - [Obsolete('Moved to codeunit ProdOrderAvailabilityMgt', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeRunProductionOrderPage(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean) - begin - end; -#endif - [IntegrationEvent(false, false)] local procedure OnBeforeTryGetQtyOnInventory(var InvtEventBuf: Record "Inventory Event Buffer"; var Item: Record Item; var Result: Boolean; var IsHandled: Boolean); begin @@ -1142,19 +1129,6 @@ codeunit 5530 "Calc. Item Availability" begin end; -#if not CLEAN27 - internal procedure RunOnParentIsInPlanningOnAfterReqLineSetFilters(var RequisitionLine: Record "Requisition Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnParentIsInPlanningOnAfterReqLineSetFilters(RequisitionLine, ProdOrderComp); - end; - - [Obsolete('Moved to codeunit ProdOrderAvailabilityMgt', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnParentIsInPlanningOnAfterReqLineSetFilters(var RequisitionLine: Record "Requisition Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - [IntegrationEvent(false, false)] local procedure OnParentIsInPlanning(InvtEventBuf: Record "Inventory Event Buffer"; var ParentActionMessage: Enum "Action Message Type"; var Result: Boolean) begin diff --git a/src/Layers/W1/BaseApp/Inventory/Availability/CapabletoPromise.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Availability/CapabletoPromise.Codeunit.al index 1c6431bc13e..2fd3f4ce969 100644 --- a/src/Layers/W1/BaseApp/Inventory/Availability/CapabletoPromise.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Availability/CapabletoPromise.Codeunit.al @@ -398,15 +398,6 @@ codeunit 99000886 "Capable to Promise" exit(1); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit ProdOrderAvailabilityMgt', '27.0')] - procedure ReassignRefOrderNos(OrderPromisingID: Code[20]) - var - ProdOrderAvailabilityMgt: Codeunit Microsoft.Manufacturing.Document."Prod. Order Availability Mgt."; - begin - ProdOrderAvailabilityMgt.ReassignRefOrderNos(OrderPromisingID); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeReqLineInsert(var RequisitionLine: Record "Requisition Line") @@ -448,30 +439,6 @@ codeunit 99000886 "Capable to Promise" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeReassignRefOrderNos(OrderPromisingID: Code[20]; var IsHandled: Boolean); - begin - OnBeforeReassignRefOrderNos(OrderPromisingID, IsHandled); - end; - [Obsolete('Moved to codeunit ProdOrderAvailabilityMgt', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeReassignRefOrderNos(OrderPromisingID: Code[20]; var IsHandled: Boolean); - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnReassignRefOrderNosOnAfterRequisitionLineModifyAll(var RequisitionLine: Record "Requisition Line"); - begin - OnReassignRefOrderNosOnAfterRequisitionLineModifyAll(RequisitionLine); - end; - - [Obsolete('Moved to codeunit ProdOrderAvailabilityMgt', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnReassignRefOrderNosOnAfterRequisitionLineModifyAll(var RequisitionLine: Record "Requisition Line"); - begin - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Inventory/Availability/ItemAvailabilitybyBOMLevel.Page.al b/src/Layers/W1/BaseApp/Inventory/Availability/ItemAvailabilitybyBOMLevel.Page.al index 3c87b4eb4db..d5848c65d29 100644 --- a/src/Layers/W1/BaseApp/Inventory/Availability/ItemAvailabilitybyBOMLevel.Page.al +++ b/src/Layers/W1/BaseApp/Inventory/Availability/ItemAvailabilitybyBOMLevel.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -495,23 +495,7 @@ page 5871 "Item Availability by BOM Level" ShowBy := NewShowBy; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure InitSource()', '27.0')] - procedure InitAsmOrder(NewAsmHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - SourceRecordVar := NewAsmHeader; - ShowBy := ShowBy::Assembly; - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure InitSource()', '27.0')] - procedure InitProdOrder(NewProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - SourceRecordVar := NewProdOrderLine; - ShowBy := ShowBy::Production; - end; -#endif procedure InitDate(NewDemandDate: Date) begin diff --git a/src/Layers/W1/BaseApp/Inventory/BOM/BOMCostShares.Page.al b/src/Layers/W1/BaseApp/Inventory/BOM/BOMCostShares.Page.al index 31621bc8804..760f3fd2818 100644 --- a/src/Layers/W1/BaseApp/Inventory/BOM/BOMCostShares.Page.al +++ b/src/Layers/W1/BaseApp/Inventory/BOM/BOMCostShares.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -352,49 +352,15 @@ page 5872 "BOM Cost Shares" ShowBy := NewShowBy; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure InitSource()', '27.0')] - procedure InitAsmOrder(NewAsmHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - SourceRecordVar := NewAsmHeader; - ShowBy := ShowBy::Assembly; - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure InitSource()', '27.0')] - procedure InitProdOrder(NewProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - SourceRecordVar := NewProdOrderLine; - ShowBy := ShowBy::Production; - end; -#endif local procedure UpdatePage() var -#if not CLEAN27 - AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; - ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; -#endif CalcBOMTree: Codeunit "Calculate BOM Tree"; HasBOM: Boolean; IsHandled: Boolean; -#if not CLEAN27 - ShowByOption: Option; -#endif begin IsHandled := false; -#if not CLEAN27 - ShowByOption := ShowBy.AsInteger(); - case ShowBy of - ShowBy::Assembly: - AssemblyHeader := SourceRecordVar; - ShowBy::Production: - ProdOrderLine := SourceRecordVar; - end; - OnBeforeRefreshPage(Rec, Item, AssemblyHeader, ProdOrderLine, ShowByOption, ItemFilter, IsHandled); - ShowBy := Enum::"BOM Structure Show By".FromInteger(ShowByOption); -#endif OnBeforeUpdatePage(Rec, Item, SourceRecordVar, ShowBy, ItemFilter, IsHandled); if IsHandled then exit; @@ -457,13 +423,6 @@ page 5872 "BOM Cost Shares" PAGE.RunModal(PAGE::"BOM Warning Log", TempBOMWarningLog); end; -#if not CLEAN27 - [Obsolete('Replaced by event OnBeforeUpdatePage()', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeRefreshPage(var BOMBuffer: Record "BOM Buffer"; var Item: Record Item; var AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ShowBy: Option; ItemFilter: Code[250]; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeUpdatePage(var BOMBuffer: Record "BOM Buffer"; var Item: Record Item; var SourceRecordVar: Variant; ShowBy: Enum "BOM Structure Show By"; ItemFilter: Code[250]; var IsHandled: Boolean) diff --git a/src/Layers/W1/BaseApp/Inventory/BOM/BOMStructure.Page.al b/src/Layers/W1/BaseApp/Inventory/BOM/BOMStructure.Page.al index 27b12c740a5..19ee5126eaf 100644 --- a/src/Layers/W1/BaseApp/Inventory/BOM/BOMStructure.Page.al +++ b/src/Layers/W1/BaseApp/Inventory/BOM/BOMStructure.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -324,30 +324,10 @@ page 5870 "BOM Structure" ShowBy := NewShowBy; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure InitSource()', '27.0')] - procedure InitAsmOrder(NewAsmHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - SourceRecordVar := NewAsmHeader; - ShowBy := ShowBy::Assembly; - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure InitSource()', '27.0')] - procedure InitProdOrder(NewProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - SourceRecordVar := NewProdOrderLine; - ShowBy := ShowBy::Production; - end; -#endif procedure RefreshPage() var -#if not CLEAN27 - AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; - ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; -#endif CalculateBOMTree: Codeunit "Calculate BOM Tree"; RaiseError: Boolean; ErrorText: Text; @@ -355,15 +335,6 @@ page 5870 "BOM Structure" IsUpdatePageNeeded: Boolean; begin IsHandled := false; -#if not CLEAN27 - case ShowBy of - ShowBy::Assembly: - AssemblyHeader := SourceRecordVar; - ShowBy::Production: - ProdOrderLine := SourceRecordVar; - end; - OnBeforeGenerateBOMTree(Rec, Item, AssemblyHeader, ProdOrderLine, ShowBy.AsInteger(), ItemFilter, IsHandled); -#endif OnBeforeRefreshPage(Rec, Item, SourceRecordVar, ShowBy, ItemFilter, IsHandled); if IsHandled then exit; @@ -429,13 +400,6 @@ page 5870 "BOM Structure" ItemAvailabilityFormsMgt.ShowItemAvailabilityFromItem(ItemForShowAvailability, AvailType); end; -#if not CLEAN27 - [Obsolete('Replaced by event OnBeforeRefreshPage', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGenerateBOMTree(var BOMBuffer: Record "BOM Buffer"; var Item: Record Item; var AsmHeader: Record Microsoft.Assembly.Document."Assembly Header"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ShowBy: Integer; ItemFilter: Code[250]; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeRefreshPage(var BOMBuffer: Record "BOM Buffer"; var Item: Record Item; var SourceRecordVar: Variant; ShowBy: Enum "BOM Structure Show By"; ItemFilter: Code[250]; var IsHandled: Boolean) diff --git a/src/Layers/W1/BaseApp/Inventory/BOM/Tree/CalculateBOMTree.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/BOM/Tree/CalculateBOMTree.Codeunit.al index 9028088bdc5..dfd6aaeaa3e 100644 --- a/src/Layers/W1/BaseApp/Inventory/BOM/Tree/CalculateBOMTree.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/BOM/Tree/CalculateBOMTree.Codeunit.al @@ -85,13 +85,6 @@ codeunit 5870 "Calculate BOM Tree" exit(GlobalTreeType); end; -#if not CLEAN27 - [Obsolete('Replaced by procedure GenerateTreeForManyItems', '27.0')] - procedure GenerateTreeForItems(var ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; TreeType: Option " ",Availability,Cost) - begin - GenerateTreeForManyItems(ParentItem, BOMBuffer, "BOM Tree Type".FromInteger(TreeType)); - end; -#endif procedure GenerateTreeForManyItems(var ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; TreeType: Enum "BOM Tree Type") var @@ -129,13 +122,6 @@ codeunit 5870 "Calculate BOM Tree" Window.Close(); end; -#if not CLEAN27 - [Obsolete('Replaced by procedure GenerateTreeForOneItem()', '27.0')] - procedure GenerateTreeForItem(var ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; DemandDate: Date; TreeType: Option) - begin - GenerateTreeForOneItem(ParentItem, BOMBuffer, DemandDate, "BOM Tree Type".FromInteger(TreeType)); - end; -#endif procedure GenerateTreeForOneItem(var ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; DemandDate: Date; TreeType: Enum "BOM Tree Type") begin @@ -181,34 +167,9 @@ codeunit 5870 "Calculate BOM Tree" OnGenerateTreeForSource(SourceRecordVar, BOMBuffer, BOMTreeType, ShowBy, DemandDate, ItemFilter, EntryNo); end; -#if not CLEAN27 - [Obsolete('Replaced by procedure GenerateTreeForAssemblyHeader()', '27.0')] - procedure GenerateTreeForAsm(AsmHeader: Record Microsoft.Assembly.Document."Assembly Header"; var BOMBuffer: Record "BOM Buffer"; TreeType: Option) - begin - end; -#endif -#if not CLEAN27 - [Obsolete('Moved to codeunit AsmCalculateBOMTree', '27.0')] - procedure GenerateTreeForAssemblyHeader(AsmHeader: Record Microsoft.Assembly.Document."Assembly Header"; var BOMBuffer: Record "BOM Buffer"; TreeType: Enum "BOM Tree Type") - begin - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure GenerateTreeForProdOrderLine', '27.0')] - procedure GenerateTreeForProdLine(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var BOMBuffer: Record "BOM Buffer"; TreeType: Option) - begin - GenerateTreeForProdOrderLine(ProdOrderLine, BOMBuffer, "BOM Tree Type".FromInteger(TreeType)); - end; -#endif -#if not CLEAN27 - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - procedure GenerateTreeForProdOrderLine(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var BOMBuffer: Record "BOM Buffer"; TreeType: Enum "BOM Tree Type") - begin - end; -#endif procedure CalculateTreeType(var BOMBuffer: Record "BOM Buffer"; ShowTotalAvailability2: Boolean; TreeType: Enum "BOM Tree Type") begin @@ -842,88 +803,16 @@ codeunit 5870 "Calculate BOM Tree" begin end; -#if not CLEAN27 - internal procedure RunOnAfterGenerateProdCompSubTree(var ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; var ParentBOMBuffer: Record "BOM Buffer") - begin - OnAfterGenerateProdCompSubTree(ParentItem, BOMBuffer, ParentBOMBuffer); - end; - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGenerateProdCompSubTree(var ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; var ParentBOMBuffer: Record "BOM Buffer") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnAfterTransferFromProdItem(var BOMBuffer: Record "BOM Buffer"; ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var EntryNo: Integer) - begin - OnAfterTransferFromProdItem(BOMBuffer, ProdBOMLine, EntryNo); - end; - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferFromProdItem(var BOMBuffer: Record "BOM Buffer"; ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var EntryNo: Integer) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnAfterTransferFromProdBOM(var BOMBuffer: Record "BOM Buffer"; ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line") - begin - OnAfterTransferFromProdBOM(BOMBuffer, ProdBOMLine); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferFromProdBOM(var BOMBuffer: Record "BOM Buffer"; ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterTransferFromProdRouting(var BOMBuffer: Record "BOM Buffer"; var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line") - begin - OnAfterTransferFromProdRouting(BOMBuffer, RoutingLine); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferFromProdRouting(var BOMBuffer: Record "BOM Buffer"; var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeCalcRoutingLineCosts(var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var LotSize: Decimal; var ScrapPct: Decimal; ParentItem: Record Item) - begin - OnBeforeCalcRoutingLineCosts(RoutingLine, LotSize, ScrapPct, ParentItem); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCalcRoutingLineCosts(var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var LotSize: Decimal; var ScrapPct: Decimal; ParentItem: Record Item) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeFilterBOMBuffer(var ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; DemandDate: Date; TreeType: Option; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnBeforeFilterByQuantityPer(var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var IsHandled: Boolean; BOMBuffer: Record "BOM Buffer") - begin - OnBeforeFilterByQuantityPer(ProductionBOMLine, IsHandled, BOMBuffer); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFilterByQuantityPer(var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var IsHandled: Boolean; BOMBuffer: Record "BOM Buffer") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGenerateTreeForItems(var HideDialog: Boolean) @@ -935,101 +824,17 @@ codeunit 5870 "Calculate BOM Tree" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeTransferFromProdBOM(var BOMBuffer: Record "BOM Buffer"; var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var ParentItem: Record Item; var ParentBOMBuffer: Record "BOM Buffer"; var EntryNo2: Integer; TreeType: Option " ",Availability,Cost) - begin - OnBeforeTransferFromProdBOM(BOMBuffer, ProdBOMLine, ParentItem, ParentBOMBuffer, EntryNo2, TreeType); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransferFromProdBOM(var BOMBuffer: Record "BOM Buffer"; var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var ParentItem: Record Item; var ParentBOMBuffer: Record "BOM Buffer"; var EntryNo: Integer; TreeType: Option " ",Availability,Cost) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeTransferProdBOMLine(var BOMBuffer: Record "BOM Buffer"; var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var ParentItem: Record Item; var ParentBOMBuffer: Record "BOM Buffer"; var EntryNo2: Integer; TreeType: Option " ",Availability,Cost; var IsHandled: Boolean) - begin - OnBeforeTransferProdBOMLine(BOMBuffer, ProdBOMLine, ParentItem, ParentBOMBuffer, EntryNo2, TreeType, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransferProdBOMLine(var BOMBuffer: Record "BOM Buffer"; var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var ParentItem: Record Item; var ParentBOMBuffer: Record "BOM Buffer"; var EntryNo: Integer; TreeType: Option " ",Availability,Cost; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnGenerateAsmHeaderSubTreeOnAfterAsmLineLoop(var ParentBOMBuffer: Record "BOM Buffer"; var BOMBuffer: Record "BOM Buffer") - begin - OnGenerateAsmHeaderSubTreeOnAfterAsmLineLoop(ParentBOMBuffer, BOMBuffer); - end; - [Obsolete('Moved to codeunit AsmCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGenerateAsmHeaderSubTreeOnAfterAsmLineLoop(var ParentBOMBuffer: Record "BOM Buffer"; var BOMBuffer: Record "BOM Buffer") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnGenerateProdCompSubTreeOnBeforeExitForNonProdOrder(ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; var FoundSubTree: Boolean) - begin - OnGenerateProdCompSubTreeOnBeforeExitForNonProdOrder(ParentItem, BOMBuffer, FoundSubTree); - end; - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGenerateProdCompSubTreeOnBeforeExitForNonProdOrder(ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; var FoundSubTree: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnGenerateProdCompSubTreeOnAfterGenerateItemSubTree(var ParentBOMBuffer: Record "BOM Buffer"; var BOMBuffer: Record "BOM Buffer") - begin - OnGenerateProdCompSubTreeOnAfterGenerateItemSubTree(ParentBOMBuffer, BOMBuffer); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGenerateProdCompSubTreeOnAfterGenerateItemSubTree(var ParentBOMBuffer: Record "BOM Buffer"; var BOMBuffer: Record "BOM Buffer") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnGenerateProdCompSubTreeOnAfterProdBOMLineLoop(var ParentBOMBuffer: Record "BOM Buffer"; var BOMBuffer: Record "BOM Buffer") - begin - OnGenerateProdCompSubTreeOnAfterProdBOMLineLoop(ParentBOMBuffer, BOMBuffer); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGenerateProdCompSubTreeOnAfterProdBOMLineLoop(var ParentBOMBuffer: Record "BOM Buffer"; var BOMBuffer: Record "BOM Buffer") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnGenerateItemSubTreeOnAfterParentItemGet(var ParentItem: Record Item) begin end; -#if not CLEAN27 - internal procedure RunOnGenerateProdCompSubTreeOnBeforeBOMBufferModify(var BOMBuffer: Record "BOM Buffer"; var ParentBOMBuffer: Record "BOM Buffer"; ParentItem: Record Item) - begin - OnGenerateProdCompSubTreeOnBeforeBOMBufferModify(BOMBuffer, ParentBOMBuffer, ParentItem); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGenerateProdCompSubTreeOnBeforeBOMBufferModify(var BOMBuffer: Record "BOM Buffer"; var ParentBOMBuffer: Record "BOM Buffer"; ParentItem: Record Item) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnTraverseCostTreeOnAfterAddCosts(var ParentBOMBuffer: Record "BOM Buffer"; var BOMBuffer: Record "BOM Buffer") @@ -1051,44 +856,8 @@ codeunit 5870 "Calculate BOM Tree" begin end; -#if not CLEAN27 - internal procedure RunOnCalcRoutingLineCostsOnBeforeBOMBufferAdd(RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; LotSize: Decimal; ScrapPct: Decimal; var CapCost: Decimal; var SubcontractedCapCost: Decimal; var CapOverhead: Decimal; var BOMBuffer: Record "BOM Buffer"); - begin - OnCalcRoutingLineCostsOnBeforeBOMBufferAdd(RoutingLine, LotSize, ScrapPct, CapCost, SubcontractedCapCost, CapOverhead, BOMBuffer); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcRoutingLineCostsOnBeforeBOMBufferAdd(RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; LotSize: Decimal; ScrapPct: Decimal; var CapCost: Decimal; var SubcontractedCapCost: Decimal; var CapOverhead: Decimal; var BOMBuffer: Record "BOM Buffer"); - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnGenerateProdCompSubTreeOnAfterBOMBufferModify(var BOMBuffer: Record "BOM Buffer"; RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; LotSize: Decimal; ParentItem: Record Item; ParentBOMBuffer: Record "BOM Buffer"; TreeType: Option) - begin - OnGenerateProdCompSubTreeOnAfterBOMBufferModify(BOMBuffer, RoutingLine, LotSize, ParentItem, ParentBOMBuffer, TreeType); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGenerateProdCompSubTreeOnAfterBOMBufferModify(var BOMBuffer: Record "BOM Buffer"; RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; LotSize: Decimal; ParentItem: Record Item; ParentBOMBuffer: Record "BOM Buffer"; TreeType: Option) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnGenerateProdCompSubTreeOnBeforeRoutingLineLoop(var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var BOMBuffer: Record "BOM Buffer"; var RunIteration: Boolean) - begin - OnGenerateProdCompSubTreeOnBeforeRoutingLineLoop(RoutingLine, BOMBuffer, RunIteration); - end; - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGenerateProdCompSubTreeOnBeforeRoutingLineLoop(var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var BOMBuffer: Record "BOM Buffer"; var RunIteration: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnGenerateTreeForItemLocalOnBeforeCalculateTreeType(var ParentItem: Record Item; var BOMBuffer: Record "BOM Buffer"; var TreeType: Option; var EntryNo: Integer) @@ -1115,18 +884,6 @@ codeunit 5870 "Calculate BOM Tree" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeGenerateProdOrderLineSubTree(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var BOMBuffer: Record "BOM Buffer"; var ParentBOMBuffer: Record "BOM Buffer"; var Result: Boolean; var IsHandled: Boolean) - begin - OnBeforeGenerateProdOrderLineSubTree(ProdOrderLine, BOMBuffer, ParentBOMBuffer, Result, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgCalculateBOMTree', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGenerateProdOrderLineSubTree(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var BOMBuffer: Record "BOM Buffer"; var ParentBOMBuffer: Record "BOM Buffer"; var Result: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(true, false)] procedure OnGenerateTreeForSource(SourceRecordVar: Variant; var BOMBuffer: Record "BOM Buffer"; BOMTreeType: Enum "BOM Tree Type"; ShowBy: Enum "BOM Structure Show By"; DemandDate: Date; var ItemFilter: Record Item; var EntryNo: Integer) diff --git a/src/Layers/W1/BaseApp/Inventory/Costing/CalcInventoryAdjmtOrder.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Costing/CalcInventoryAdjmtOrder.Codeunit.al index ae63cafdc5e..f6bf242ba37 100644 --- a/src/Layers/W1/BaseApp/Inventory/Costing/CalcInventoryAdjmtOrder.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Costing/CalcInventoryAdjmtOrder.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -453,18 +453,6 @@ codeunit 5896 "Calc. Inventory Adjmt. - Order" begin end; -#if not CLEAN27 - internal procedure RunOnCalcActualCapacityCostsOnAfterSetFilters(var CapLedgEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; var InventoryAdjmtEntryOrder: Record "Inventory Adjmt. Entry (Order)"; var IsHandled: Boolean; ShareOfTotalCapCost: Decimal) - begin - OnCalcActualCapacityCostsOnAfterSetFilters(CapLedgEntry, InventoryAdjmtEntryOrder, IsHandled, ShareOfTotalCapCost); - end; - - [Obsolete('Moved to codeunit MfgInventoryAdjmtOrder', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalcActualCapacityCostsOnAfterSetFilters(var CapLedgEntry: Record Microsoft.Manufacturing.Capacity."Capacity Ledger Entry"; var InventoryAdjmtEntryOrder: Record "Inventory Adjmt. Entry (Order)"; var IsHandled: Boolean; ShareOfTotalCapCost: Decimal) - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnCalcActualMaterialCostsOnAfterSetFilters(var ItemLedgEntry: Record "Item Ledger Entry"; var InventoryAdjmtEntryOrder: Record "Inventory Adjmt. Entry (Order)"; var CalculateActualMaterialCost: Query "Calculate Actual Material Cost"; var IsHandled: Boolean) @@ -496,18 +484,6 @@ codeunit 5896 "Calc. Inventory Adjmt. - Order" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCalcShareOfCapCost(var InvtAdjmtEntryOrder: Record "Inventory Adjmt. Entry (Order)"; var ShareOfCapCost: Decimal; var IsHandled: Boolean) - begin - OnBeforeCalcShareOfCapCost(InvtAdjmtEntryOrder, ShareOfCapCost, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgInventoryAdjmtEntryOrder', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCalcShareOfCapCost(var InvtAdjmtEntryOrder: Record "Inventory Adjmt. Entry (Order)"; var ShareOfCapCost: Decimal; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterCalcExactCostReversingQty(ItemLedgEntry: Record "Item Ledger Entry"; var Qty: Decimal) diff --git a/src/Layers/W1/BaseApp/Inventory/Costing/InventoryAdjustment.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Costing/InventoryAdjustment.Codeunit.al index 2609a3dc528..9f62606e3a0 100644 --- a/src/Layers/W1/BaseApp/Inventory/Costing/InventoryAdjustment.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Costing/InventoryAdjustment.Codeunit.al @@ -3536,13 +3536,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/W1/BaseApp/Inventory/Costing/PostInventoryCosttoGL.Report.al b/src/Layers/W1/BaseApp/Inventory/Costing/PostInventoryCosttoGL.Report.al index 05f443ccab6..44c8cb9bf68 100644 --- a/src/Layers/W1/BaseApp/Inventory/Costing/PostInventoryCosttoGL.Report.al +++ b/src/Layers/W1/BaseApp/Inventory/Costing/PostInventoryCosttoGL.Report.al @@ -23,9 +23,6 @@ report 1002 "Post Inventory Cost to G/L" ToolTip = 'Post the quantity and value changes to the inventory in the item ledger entries and the value entries when you post inventory transactions, such as sales shipments or purchase receipts.'; Permissions = TableData "Item Ledger Entry" = r, TableData "Invt. Posting Buffer" = r, -#if not CLEAN28 - TableData Microsoft.Manufacturing.Document."Prod. Order Line" = r, -#endif TableData "Value Entry" = rm, TableData "Post Value Entry to G/L" = rd, TableData Microsoft.Manufacturing.Capacity."Capacity Ledger Entry" = rm; diff --git a/src/Layers/W1/BaseApp/Inventory/Document/AvailableInvtDocLines.Page.al b/src/Layers/W1/BaseApp/Inventory/Document/AvailableInvtDocLines.Page.al index ecc8df91ba5..021ec1ae6d0 100644 --- a/src/Layers/W1/BaseApp/Inventory/Document/AvailableInvtDocLines.Page.al +++ b/src/Layers/W1/BaseApp/Inventory/Document/AvailableInvtDocLines.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -284,22 +284,6 @@ page 6873 "Available - Invt. Doc. Lines" Direction := Direction::Outbound; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure SetSource', '27.0')] - procedure SetAssemblyLine(var CurrentAssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; CurrentReservEntry: Record "Reservation Entry") - begin - SourceRecRef.GetTable(CurrentAssemblyLine); - SetSource(SourceRecRef, CurrentReservEntry); - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure SetSource', '27.0')] - procedure SetAssemblyHeader(var CurrentAssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; CurrentReservEntry: Record "Reservation Entry") - begin - SourceRecRef.GetTable(CurrentAssemblyHeader); - SetSource(SourceRecRef, CurrentReservEntry); - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Inventory/Item/ExportItemData.XmlPort.al b/src/Layers/W1/BaseApp/Inventory/Item/ExportItemData.XmlPort.al index e1228a9b640..102378f4eb9 100644 --- a/src/Layers/W1/BaseApp/Inventory/Item/ExportItemData.XmlPort.al +++ b/src/Layers/W1/BaseApp/Inventory/Item/ExportItemData.XmlPort.al @@ -2243,14 +2243,6 @@ xmlport 5801 "Export Item Data" until ItemApplnEntryHistory.Next() = 0; end; -#if not CLEAN27 - [Obsolete('Use xml port MfgExportItemData instead', '27.0')] - procedure CollectProdOrder(ProdOrderNo: Code[20]) - begin - if ProdOrderNo = '' then - exit; - end; -#endif procedure CollectCapValueEntry(CapEntryNo: Integer) var diff --git a/src/Layers/W1/BaseApp/Inventory/Journal/ItemJnlLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Journal/ItemJnlLineReserve.Codeunit.al index 342d8bf1bb3..0f816482a72 100644 --- a/src/Layers/W1/BaseApp/Inventory/Journal/ItemJnlLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Journal/ItemJnlLineReserve.Codeunit.al @@ -701,13 +701,6 @@ codeunit 99000835 "Item Jnl. Line-Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; ItemJnlLine: Record "Item Journal Line") - begin - end; -#endif // codeunit Create Reserv. Entry [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Reserv. Entry", 'OnCheckSourceTypeSubtype', '', false, false)] diff --git a/src/Layers/W1/BaseApp/Inventory/Ledger/ItemApplicationEntry.Table.al b/src/Layers/W1/BaseApp/Inventory/Ledger/ItemApplicationEntry.Table.al index 17dd82953a3..91f90210585 100644 --- a/src/Layers/W1/BaseApp/Inventory/Ledger/ItemApplicationEntry.Table.al +++ b/src/Layers/W1/BaseApp/Inventory/Ledger/ItemApplicationEntry.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -182,9 +182,6 @@ table 339 "Item Application Entry" var TempVisitedItemApplicationEntry: Record "Item Application Entry" temporary; TempItemLedgerEntryInChainNo: Record "Integer" temporary; -#if not CLEAN27 - SearchedItemLedgerEntry: Record "Item Ledger Entry"; -#endif TrackChain: Boolean; MaxValuationDate: Date; CheckCyclicalLoopDepth: Integer; @@ -1032,13 +1029,6 @@ table 339 "Item Application Entry" exit(ValueEntry.IsEmpty()); end; -#if not CLEAN27 - [Obsolete('The optimization that used this function was obsoleted.', '27.0')] - procedure SetSearchedItemLedgerEntry(var ItemLedgerEntry: Record "Item Ledger Entry") - begin - SearchedItemLedgerEntry.Copy(ItemLedgerEntry); - end; -#endif procedure SetCostApplication(NewCostApplication: Boolean) begin diff --git a/src/Layers/W1/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al b/src/Layers/W1/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al index 695785b2ad8..30df4e5740a 100644 --- a/src/Layers/W1/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al +++ b/src/Layers/W1/BaseApp/Inventory/Ledger/ItemLedgerEntry.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -712,14 +712,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/W1/BaseApp/Inventory/Ledger/ItemLedgerEntryReserve.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Ledger/ItemLedgerEntryReserve.Codeunit.al index c0de2c4cccb..8fba8843067 100644 --- a/src/Layers/W1/BaseApp/Inventory/Ledger/ItemLedgerEntryReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Ledger/ItemLedgerEntryReserve.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -190,13 +190,6 @@ codeunit 99000841 "Item Ledger Entry-Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetItemLedgEntryOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; ItemLedgerEntry: Record "Item Ledger Entry") - begin - end; -#endif // codeunit Reservation Engine Mgt. subscribers [EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Engine Mgt.", 'OnRevertDateToSourceDate', '', false, false)] diff --git a/src/Layers/W1/BaseApp/Inventory/Ledger/ValueEntry.Table.al b/src/Layers/W1/BaseApp/Inventory/Ledger/ValueEntry.Table.al index b96afa90db3..4f8c9c62d34 100644 --- a/src/Layers/W1/BaseApp/Inventory/Ledger/ValueEntry.Table.al +++ b/src/Layers/W1/BaseApp/Inventory/Ledger/ValueEntry.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -832,36 +832,6 @@ table 5802 "Value Entry" PAGE.RunModal(0, TempGLEntry); end; -#if not CLEAN27 - [Obsolete('Moved to the Inventory Adjustment codeunit', '27.0')] - procedure IsAvgCostException(IsAvgCostCalcTypeItem: Boolean): Boolean - var - ItemApplnEntry: Record "Item Application Entry"; - ItemLedgEntry: Record "Item Ledger Entry"; - SearchedItemLedgerEntry: Record "Item Ledger Entry"; - TempItemLedgEntry: Record "Item Ledger Entry" temporary; - begin - if "Partial Revaluation" then - exit(true); - if "Item Charge No." <> '' then - exit(true); - - ItemLedgEntry.Get("Item Ledger Entry No."); - if ItemLedgEntry.Positive then - exit(false); - - SearchedItemLedgerEntry.SetRange("Item No.", "Item No."); - SearchedItemLedgerEntry.SetRange(Positive, true); - if IsAvgCostCalcTypeItem then begin - SearchedItemLedgerEntry.SetRange("Location Code", "Location Code"); - SearchedItemLedgerEntry.SetRange("Variant Code", "Variant Code"); - end; - ItemApplnEntry.SetSearchedItemLedgerEntry(SearchedItemLedgerEntry); - ItemApplnEntry.GetVisitedEntries(ItemLedgEntry, TempItemLedgEntry, true); - TempItemLedgEntry.CopyFilters(SearchedItemLedgerEntry); - exit(not TempItemLedgEntry.IsEmpty()); - end; -#endif procedure ShowDimensions() var diff --git a/src/Layers/W1/BaseApp/Inventory/Location/Location.Table.al b/src/Layers/W1/BaseApp/Inventory/Location/Location.Table.al index d3be87f5b2a..0b7edc02ace 100644 --- a/src/Layers/W1/BaseApp/Inventory/Location/Location.Table.al +++ b/src/Layers/W1/BaseApp/Inventory/Location/Location.Table.al @@ -161,13 +161,7 @@ table 14 Location MailManagement.ValidateEmailAddressField("E-Mail"); end; } -#if not CLEAN27 -#pragma warning disable AS0086 -#endif field(5719; "Home Page"; Text[255]) -#if not CLEAN27 -#pragma warning restore AS0086 -#endif { Caption = 'Home Page'; ToolTip = 'Specifies the location''s web site.'; diff --git a/src/Layers/W1/BaseApp/Inventory/Location/ResponsibilityCenter.Table.al b/src/Layers/W1/BaseApp/Inventory/Location/ResponsibilityCenter.Table.al index 190acbe5d6f..ea9692eaa04 100644 --- a/src/Layers/W1/BaseApp/Inventory/Location/ResponsibilityCenter.Table.al +++ b/src/Layers/W1/BaseApp/Inventory/Location/ResponsibilityCenter.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -167,13 +167,7 @@ table 5714 "Responsibility Center" MailManagement.ValidateEmailAddressField("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 responsibility center''s web site.'; diff --git a/src/Layers/W1/BaseApp/Inventory/Planning/CalcItemPlanPlanWksh.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Planning/CalcItemPlanPlanWksh.Codeunit.al index 1595ee36272..893c2919491 100644 --- a/src/Layers/W1/BaseApp/Inventory/Planning/CalcItemPlanPlanWksh.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Planning/CalcItemPlanPlanWksh.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -101,18 +101,11 @@ codeunit 5431 "Calc. Item Plan - Plan Wksh." local procedure CalculateAndGetPlanningCompList() var -#if not CLEAN27 - MfgSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; -#endif CurrWorksheetType: Option Requisition,Planning; IsHandled: Boolean; begin IsHandled := false; OnBeforeCalculateAndGetPlanningComponents(Item, CurrTemplateName, CurrWorksheetName, ToDate, FromDate, UseForecast, ExcludeForecastBefore, MRP, RespectPlanningParm, TempPlanningCompList, IsHandled, InvtProfileOffsetting); -#if not CLEAN27 - MfgSetup.Get(); - OnBeforeCalculateAndGetPlanningCompList(Item, CurrTemplateName, CurrWorksheetName, ToDate, FromDate, UseForecast, ExcludeForecastBefore, MfgSetup, MRP, RespectPlanningParm, TempPlanningCompList, IsHandled, InvtProfileOffsetting); -#endif if IsHandled then exit; @@ -338,13 +331,6 @@ codeunit 5431 "Calc. Item Plan - Plan Wksh." begin end; -#if not CLEAN27 - [Obsolete('Replaced by event OnBeforeCalculateAndGetPlanningComponents()', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCalculateAndGetPlanningCompList(var Item: Record Item; CurrTemplateName: Code[10]; CurrWorksheetName: Code[10]; ToDate: Date; FromDate: Date; UseForecast: Code[10]; ExcludeForecastBefore: Date; MfgSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; MRP: Boolean; RespectPlanningParm: Boolean; var TempPlanningCompList: Record "Planning Component" temporary; var IsHandled: Boolean; var InventoryProfileOffsetting: Codeunit "Inventory Profile Offsetting") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCalculateAndGetPlanningComponents(var Item: Record Item; CurrTemplateName: Code[10]; CurrWorksheetName: Code[10]; ToDate: Date; FromDate: Date; UseForecast: Code[10]; ExcludeForecastBefore: Date; MRP: Boolean; RespectPlanningParm: Boolean; var TempPlanningCompList: Record "Planning Component" temporary; var IsHandled: Boolean; var InventoryProfileOffsetting: Codeunit "Inventory Profile Offsetting") diff --git a/src/Layers/W1/BaseApp/Inventory/Planning/PlanningLineManagement.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Planning/PlanningLineManagement.Codeunit.al index 68b01afbcae..3c4c52a9324 100644 --- a/src/Layers/W1/BaseApp/Inventory/Planning/PlanningLineManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Planning/PlanningLineManagement.Codeunit.al @@ -14,17 +14,7 @@ using Microsoft.Inventory.Tracking; codeunit 99000809 "Planning Line Management" { -#if not CLEAN28 - Permissions = TableData Microsoft.Manufacturing.Setup."Manufacturing Setup" = rm, - TableData Microsoft.Manufacturing.Routing."Routing Header" = r, - TableData Microsoft.Manufacturing.ProductionBOM."Production BOM Header" = r, - TableData Microsoft.Manufacturing.ProductionBOM."Production BOM Line" = r, - TableData Microsoft.Manufacturing.Document."Prod. Order Capacity Need" = rd, - TableData "Planning Component" = rimd, - TableData Microsoft.Manufacturing.Routing."Planning Routing Line" = rimd; -#else Permissions = tabledata "Planning Component" = rimd; -#endif trigger OnRun() begin @@ -191,25 +181,7 @@ codeunit 99000809 "Planning Line Management" until PlanningComponent.Next() = 0; end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Planning Routing Management', '27.0')] - procedure CalculateRoutingFromActual(PlanningRtngLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; Direction: Option Forward,Backward; CalcStartEndDate: Boolean) - var - PlanningRoutingManagement: Codeunit Microsoft.Manufacturing.Routing.PlanningRoutingManagement; - begin - PlanningRoutingManagement.CalculateRoutingFromActual(ReqLine, PlanningRtngLine, Direction, CalcStartEndDate, PlanningResiliency); - end; -#endif -#if not CLEAN27 - [Obsolete('Moved to codeunit Planning Routing Management', '27.0')] - procedure CalculatePlanningLineDates(var ReqLine2: Record "Requisition Line") - var - PlanningRoutingManagement: Codeunit Microsoft.Manufacturing.Routing.PlanningRoutingManagement; - begin - PlanningRoutingManagement.CalculatePlanningLineDates(ReqLine2); - end; -#endif procedure Calculate(var ReqLine2: Record "Requisition Line"; Direction: Option Forward,Backward; CalcRouting: Boolean; CalcComponents: Boolean; PlanningLevel: Integer) var @@ -551,150 +523,30 @@ codeunit 99000809 "Planning Line Management" begin end; -#if not CLEAN27 - internal procedure RunOnAfterIsPlannedCompFound(var PlanningComp: Record "Planning Component"; var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var IsFound: Boolean; var SKU2: Record "Stockkeeping Unit") - begin - OnAfterIsPlannedCompFound(PlanningComp, ProdBOMLine, IsFound, SKU2); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterIsPlannedCompFound(var PlanningComp: Record "Planning Component"; var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var IsFound: Boolean; var SKU: Record "Stockkeeping Unit") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterIsPlannedAsmCompFound(PlanningComp: Record "Planning Component"; AsmBOMComp: Record "BOM Component"; var IsFound: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnAfterTransferBOM(RequisitionLine: Record "Requisition Line"; ProdBOMNo: Code[20]; Level: Integer; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal) - begin - OnAfterTransferBOM(RequisitionLine, ProdBOMNo, Level, LineQtyPerUOM, ItemQtyPerUOM); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferBOM(RequisitionLine: Record "Requisition Line"; ProdBOMNo: Code[20]; Level: Integer; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterRecalculateWithOptionalModify(var RequisitionLine: Record "Requisition Line"; Direction: Option Forward,Backward) begin end; -#if not CLEAN27 - internal procedure RunOnAfterTransferRouting(var RequisitionLine: Record "Requisition Line") - begin - OnAfterTransferRouting(RequisitionLine); - end; - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferRouting(var RequisitionLine: Record "Requisition Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnAfterTransferRtngLine(var ReqLine2: Record "Requisition Line"; var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line") - begin - OnAfterTransferRtngLine(ReqLine2, RoutingLine, PlanningRoutingLine); - end; - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferRtngLine(var ReqLine: Record "Requisition Line"; var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnTransferBOMOnAfterProdBOMLineSetFilters(var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; RequisitionLine: Record "Requisition Line") - begin - OnTransferBOMOnAfterProdBOMLineSetFilters(ProdBOMLine, RequisitionLine); - end; - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferBOMOnAfterProdBOMLineSetFilters(var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; RequisitionLine: Record "Requisition Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnTransferBOMOnBeforeGetDefaultBin(var PlanningComponent2: Record "Planning Component"; var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; RequisitionLine: Record "Requisition Line"; var StockkeepingUnit: Record "Stockkeeping Unit") - begin - OnTransferBOMOnBeforeGetDefaultBin(PlanningComponent2, ProductionBOMLine, RequisitionLine, StockkeepingUnit); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferBOMOnBeforeGetDefaultBin(var PlanningComponent: Record "Planning Component"; var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; RequisitionLine: Record "Requisition Line"; var StockkeepingUnit: Record "Stockkeeping Unit") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnTransferRoutingLineOnBeforeValidateDirectUnitCost(var ReqLine2: Record "Requisition Line"; var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line") - begin - OnTransferRoutingLineOnBeforeValidateDirectUnitCost(ReqLine2, RoutingLine, PlanningRoutingLine); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferRoutingLineOnBeforeValidateDirectUnitCost(var ReqLine: Record "Requisition Line"; var RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnTransferRoutingLineOnBeforeCalcRoutingCostPerUnit(var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; ReqLine2: Record "Requisition Line"; RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line") - begin - OnTransferRoutingLineOnBeforeCalcRoutingCostPerUnit(PlanningRoutingLine, ReqLine2, RoutingLine); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferRoutingLineOnBeforeCalcRoutingCostPerUnit(var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; ReqLine: Record "Requisition Line"; RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCalculate(var ReqLine2: Record "Requisition Line"; Direction: Option Forward,Backward; CalcRouting: Boolean; CalcComponents: Boolean; PlanningLevel: Integer; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnBeforeInsertPlanningComponent(var ReqLine2: Record "Requisition Line"; var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var PlanningComponent2: Record "Planning Component"; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal) - begin - OnBeforeInsertPlanningComponent(ReqLine2, ProductionBOMLine, PlanningComponent2, LineQtyPerUOM, ItemQtyPerUOM); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeInsertPlanningComponent(var ReqLine: Record "Requisition Line"; var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var PlanningComponent: Record "Planning Component"; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeModifyPlanningComponent(var ReqLine2: Record "Requisition Line"; var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var PlanningComponent2: Record "Planning Component"; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal) - begin - OnBeforeModifyPlanningComponent(ReqLine2, ProductionBOMLine, PlanningComponent2, LineQtyPerUOM, ItemQtyPerUOM); - end; - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeModifyPlanningComponent(var ReqLine: Record "Requisition Line"; var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var PlanningComponent: Record "Planning Component"; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeInsertAsmPlanningComponent(var ReqLine: Record "Requisition Line"; var BOMComponent: Record "BOM Component"; var PlanningComponent: Record "Planning Component") @@ -706,49 +558,13 @@ codeunit 99000809 "Planning Line Management" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeTransferBOM(ProdBOMNo: Code[20]; Level: Integer; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal; var RequisitionLine: Record "Requisition Line"; Blocked2: Boolean; var IsHandled: Boolean) - begin - OnBeforeTransferBOM(ProdBOMNo, Level, LineQtyPerUOM, ItemQtyPerUOM, RequisitionLine, Blocked2, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransferBOM(ProdBOMNo: Code[20]; Level: Integer; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal; var RequisitionLine: Record "Requisition Line"; Blocked: Boolean; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeTransferRouting(var RequisitionLine: Record "Requisition Line"; PlanningResilency: Boolean; var IsHandled: Boolean) - begin - OnBeforeTransferRouting(RequisitionLine, PlanningResilency, IsHandled); - end; - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransferRouting(var RequisitionLine: Record "Requisition Line"; PlanningResilency: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCalculateOnBeforeTransferBOM(var RequisitionLine: Record "Requisition Line"; var StockkeepingUnit: Record "Stockkeeping Unit"; PlanningResilency: Boolean; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnCalculateRoutingOnAfterUpdateReqLine(var RequisitionLine: Record "Requisition Line"; Direction: Option Forward,Backward) - begin - OnCalculateRoutingOnAfterUpdateReqLine(RequisitionLine, Direction); - end; - - [Obsolete('Moved to codeunit PlanningRoutingManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCalculateRoutingOnAfterUpdateReqLine(var RequisitionLine: Record "Requisition Line"; Direction: Option Forward,Backward) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCheckMultiLevelStructureOnBeforeInsertPlanningLine(var ReqLine: Record "Requisition Line"; var PlanningComponent: Record "Planning Component") @@ -765,57 +581,9 @@ codeunit 99000809 "Planning Line Management" begin end; -#if not CLEAN27 - internal procedure RunOnTransferBOMOnBeforeTransferPlanningComponent(var RequisitionLine: Record "Requisition Line"; var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; Blocked2: Boolean; var IsHandled: Boolean; Level: Integer) - begin - OnTransferBOMOnBeforeTransferPlanningComponent(RequisitionLine, ProductionBOMLine, Blocked2, IsHandled, Level); - end; - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferBOMOnBeforeTransferPlanningComponent(var RequisitionLine: Record "Requisition Line"; var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; Blocked: Boolean; var IsHandled: Boolean; Level: Integer) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnTransferBOMOnBeforeTransferProductionBOM(var ReqQty: Decimal; ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal; RequisitionLine: Record "Requisition Line") - begin - OnTransferBOMOnBeforeTransferProductionBOM(ReqQty, ProductionBOMLine, LineQtyPerUOM, ItemQtyPerUOM, RequisitionLine); - end; - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferBOMOnBeforeTransferProductionBOM(var ReqQty: Decimal; ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal; RequisitionLine: Record "Requisition Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnTransferBOMOnBeforeUpdatePlanningComp(var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var UpdateCondition: Boolean; var IsHandled: Boolean) - begin - OnTransferBOMOnBeforeUpdatePlanningComp(ProductionBOMLine, UpdateCondition, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferBOMOnBeforeUpdatePlanningComp(var ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var UpdateCondition: Boolean; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnTransferBOMOnAfterCalculateReqQty(var ReqQty: Decimal; ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal); - begin - OnTransferBOMOnAfterCalculateReqQty(ReqQty, ProductionBOMLine, PlanningRoutingLine, LineQtyPerUOM, ItemQtyPerUOM); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferBOMOnAfterCalculateReqQty(var ReqQty: Decimal; ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnTransferAsmBOMOnBeforeGetDefaultBin(var PlanningComponent: Record "Planning Component"; var AsmBOMComponent: Record "BOM Component"; ReqLine: Record "Requisition Line") @@ -842,44 +610,8 @@ codeunit 99000809 "Planning Line Management" begin end; -#if not CLEAN27 - internal procedure RunOnAfterSetPlanningLevelCode(var PlanningComponent2: Record "Planning Component"; var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var SKU2: Record "Stockkeeping Unit"; var ComponentSKU: Record "Stockkeeping Unit"; var Result: Boolean) - begin - OnAfterSetPlanningLevelCode(PlanningComponent2, ProdBOMLine, SKU2, ComponentSKU, Result); - end; - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterSetPlanningLevelCode(var PlanningComponent: Record "Planning Component"; var ProdBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; var SKU: Record "Stockkeeping Unit"; var ComponentSKU: Record "Stockkeeping Unit"; var Result: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeTransferRoutingLine(var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; RequisitionLine: Record "Requisition Line"; RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var IsHandled: Boolean) - begin - OnBeforeTransferRoutingLine(PlanningRoutingLine, RequisitionLine, RoutingLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransferRoutingLine(var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; RequisitionLine: Record "Requisition Line"; RoutingLine: Record Microsoft.Manufacturing.Routing."Routing Line"; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnTransferBOMOnBeforePlanningRtngLineFind(var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; RequisitionLine: Record "Requisition Line") - begin - OnTransferBOMOnBeforePlanningRtngLineFind(PlanningRoutingLine, ProductionBOMLine, RequisitionLine); - end; - - [Obsolete('Moved to codeunit MfgPlanningLineManagement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferBOMOnBeforePlanningRtngLineFind(var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; ProductionBOMLine: Record Microsoft.Manufacturing.ProductionBOM."Production BOM Line"; RequisitionLine: Record "Requisition Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnGetResiliencyErrorOnRouting(var PlanningErrorLog: Record "Planning Error Log"; var ShouldExit: Boolean) diff --git a/src/Layers/W1/BaseApp/Inventory/Planning/PlngComponentReserve.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Planning/PlngComponentReserve.Codeunit.al index 6d79a7b6d75..10c4a592b56 100644 --- a/src/Layers/W1/BaseApp/Inventory/Planning/PlngComponentReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Planning/PlngComponentReserve.Codeunit.al @@ -506,13 +506,6 @@ codeunit 99000840 "Plng. Component-Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; PlanningComponent: Record "Planning Component") - begin - end; -#endif // codeunit Create Reserv. Entry [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Reserv. Entry", 'OnCheckSourceTypeSubtype', '', false, false)] diff --git a/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostBatch.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostBatch.Codeunit.al index f03bdd02bc3..56293f73200 100644 --- a/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostBatch.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostBatch.Codeunit.al @@ -1257,18 +1257,6 @@ codeunit 23 "Item Jnl.-Post Batch" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeSelfReservedQty(SKU: Record "Stockkeeping Unit"; ItemJnlLine2: Record "Item Journal Line"; var Result: Decimal; var IsHandled: Boolean) - begin - OnBeforeSelfReservedQty(SKU, ItemJnlLine2, Result, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgItemJnlPostBatch', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeSelfReservedQty(SKU: Record "Stockkeeping Unit"; ItemJnlLine: Record "Item Journal Line"; var Result: Decimal; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnHandleNonRecurringLineOnBeforeSetItemJnlBatchName(ItemJnlTemplate: Record "Item Journal Template"; var IsHandled: Boolean) diff --git a/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al index 755acf686b4..013b3e0f0f1 100644 --- a/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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, @@ -933,34 +930,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; @@ -969,12 +941,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 @@ -983,9 +949,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); @@ -4811,13 +4774,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 @@ -5018,19 +4974,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 @@ -6148,18 +6091,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) @@ -6176,31 +6107,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") @@ -6297,18 +6204,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") @@ -6325,18 +6220,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") @@ -6363,44 +6246,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) @@ -6417,31 +6264,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) @@ -6558,18 +6381,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) @@ -6586,18 +6397,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") @@ -6649,31 +6448,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) @@ -6733,18 +6508,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") @@ -6821,44 +6584,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) @@ -6900,44 +6627,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") @@ -7004,18 +6695,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) @@ -7077,158 +6756,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) @@ -7245,122 +6792,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) @@ -7475,18 +6914,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. @@ -8054,70 +7481,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) @@ -8139,44 +7506,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) @@ -8378,44 +7709,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) @@ -8497,18 +7792,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") @@ -8605,36 +7888,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") @@ -8666,18 +7925,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") @@ -8799,18 +8046,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") @@ -8827,31 +8062,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/W1/BaseApp/Inventory/Reports/InventoryCustomerSales.Report.al b/src/Layers/W1/BaseApp/Inventory/Reports/InventoryCustomerSales.Report.al index 4e8ed26fef5..b7dd37d5361 100644 --- a/src/Layers/W1/BaseApp/Inventory/Reports/InventoryCustomerSales.Report.al +++ b/src/Layers/W1/BaseApp/Inventory/Reports/InventoryCustomerSales.Report.al @@ -22,14 +22,6 @@ report 713 "Inventory - Customer Sales" dataitem(ReportHeader; "Integer") { DataItemTableView = sorting(Number) where(Number = const(0)); -#if not CLEAN27 - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif #if not CLEAN28 column(PeriodText; PeriodText) { @@ -311,18 +303,6 @@ report 713 "Inventory - Customer Sales" Type = Word; Summary = 'Built in layout for the Inventory Customer Sales Word report.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Inventory Customer Sales RDLC (Obsolete)'; - Type = RDLC; - LayoutFile = '.\Inventory\Reports\InventoryCustomerSales.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Built in layout for the Inventory Customer Sales RDLC (Obsolete) report.'; - } -#endif } labels @@ -347,18 +327,6 @@ report 713 "Inventory - Customer Sales" RunOnLbl = 'Run on'; ReportNameLbl = 'Report name'; DocumentationLbl = 'Documentation'; -#if not CLEAN27 - ReportTitle = 'Inventory - Customer Sales'; - Page = 'Page'; - CustomerNo = 'Customer No.'; - Name = 'Name'; - InvoicedQty = 'Invoiced Quantity'; - Amount = 'Amount'; - DiscountAmt = 'Discount Amount'; - Profit = 'Profit'; - ProfitPct = 'Profit %'; - Total = 'Total'; -#endif } trigger OnPreReport() diff --git a/src/Layers/W1/BaseApp/Inventory/Reports/InventoryOrderDetails.Report.al b/src/Layers/W1/BaseApp/Inventory/Reports/InventoryOrderDetails.Report.al index 27ec010f0a1..7859400d1d4 100644 --- a/src/Layers/W1/BaseApp/Inventory/Reports/InventoryOrderDetails.Report.al +++ b/src/Layers/W1/BaseApp/Inventory/Reports/InventoryOrderDetails.Report.al @@ -23,14 +23,6 @@ report 708 "Inventory Order Details" { PrintOnlyIfDetail = true; RequestFilterFields = "No.", "Search Description", "Assembly BOM", "Inventory Posting Group", "Statistics Group", "Bin Filter"; -#if not CLEAN27 - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif column(ItemTableCaptItemFilter; ItemFilterText) { } @@ -63,92 +55,6 @@ report 708 "Inventory Order Details" { IncludeCaption = true; } -#if not CLEAN27 - column(VariantFilter_Item; "Variant Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(LocationFilter_Item; "Location Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(GlobalDim1Filter_Item; "Global Dimension 1 Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(GlobalDim2Filter_Item; "Global Dimension 2 Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(BinFilter_Item; "Bin Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(InvntryOrderDetailCapt; InvntryOrderDetailCaptLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CurrReportPageNoCaption; CurrReportPageNoCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalesHeaderBilltoNameCapt; SalesHeaderBilltoNameCaptLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalesLineShipDateCaption; SalesLineShipDateCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(BackOrderQtyCaption; BackOrderQtyCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalesLineLineDiscCaption; SalesLineLineDiscCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalesLineInvDiscAmtCapt; SalesLineInvDiscAmtCaptLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalesLineOutstngAmtCapt; SalesLineOutstngAmtCaptLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(TotalCaption; TotalCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif dataitem("Sales Line"; "Sales Line") { DataItemLink = "No." = field("No."), "Variant Code" = field("Variant Filter"), "Location Code" = field("Location Filter"), "Shortcut Dimension 1 Code" = field("Global Dimension 1 Filter"), "Shortcut Dimension 2 Code" = field("Global Dimension 2 Filter"), "Bin Code" = field("Bin Filter"); @@ -299,18 +205,6 @@ report 708 "Inventory Order Details" Type = Word; Summary = 'Report layout made for print. Use a Word editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Inventory Order Details RDLC'; - LayoutFile = '.\Inventory\Reports\InventoryOrderDetails.rdlc'; - Type = RDLC; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels @@ -360,26 +254,6 @@ report 708 "Inventory Order Details" #pragma warning restore AA0470 #pragma warning restore AA0074 ItemFilterCaptLbl: Label 'Item: %1', Comment = '%1 - item filter'; -#if not CLEAN27 - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - TotalCaptionLbl: Label 'Total'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - InvntryOrderDetailCaptLbl: Label 'Inventory Order Details'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - CurrReportPageNoCaptionLbl: Label 'Page'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - SalesHeaderBilltoNameCaptLbl: Label 'Customer'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - SalesLineShipDateCaptionLbl: Label 'Shipment Date'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - BackOrderQtyCaptionLbl: Label 'Quantity on Back Order'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - SalesLineLineDiscCaptionLbl: Label 'Line Discount %'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - SalesLineInvDiscAmtCaptLbl: Label 'Invoice Discount Amount'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - SalesLineOutstngAmtCaptLbl: Label 'Amount on Order Inclusive VAT'; -#endif protected var SalesHeader: Record "Sales Header"; } diff --git a/src/Layers/W1/BaseApp/Inventory/Reports/InventorySalesBackOrders.Report.al b/src/Layers/W1/BaseApp/Inventory/Reports/InventorySalesBackOrders.Report.al index dfa975c21b9..7149ee09ce3 100644 --- a/src/Layers/W1/BaseApp/Inventory/Reports/InventorySalesBackOrders.Report.al +++ b/src/Layers/W1/BaseApp/Inventory/Reports/InventorySalesBackOrders.Report.al @@ -24,26 +24,6 @@ report 718 "Inventory - Sales Back Orders" { PrintOnlyIfDetail = true; RequestFilterFields = "No.", "Search Description", "Assembly BOM", "Inventory Posting Group", "Statistics Group", "Bin Filter"; -#if not CLEAN27 - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ItemTableCaptItemFilter; TableCaption + ': ' + ItemFilter) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(StrSubStNoSalesLineFltr; StrSubstNo(Text000, SalesLineFilter)) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif column(ItemFilter; ItemFilter) { } @@ -64,74 +44,6 @@ report 718 "Inventory - Sales Back Orders" { IncludeCaption = true; } -#if not CLEAN27 - column(VariantFilter_Item; "Variant Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(LocationFilter_Item; "Location Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(BinFilter_Item; "Bin Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(GlobalDim1Filter_Item; "Global Dimension 1 Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(GlobalDim2Filter_Item; "Global Dimension 2 Filter") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(InvSalesBackOrdersCaption; InvSalesBackOrdersCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CurrReportPageNoCaption; CurrReportPageNoCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CustNameCaption; CustNameCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CustPhoneNoCaption; CustPhoneNoCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalesLineShipDateCaption; SalesLineShipDateCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(OtherBackOrdersCaption; OtherBackOrdersCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif dataitem("Sales Line"; "Sales Line") { DataItemLink = "No." = field("No."), "Variant Code" = field("Variant Filter"), "Location Code" = field("Location Filter"), "Bin Code" = field("Bin Filter"), "Shortcut Dimension 1 Code" = field("Global Dimension 1 Filter"), "Shortcut Dimension 2 Code" = field("Global Dimension 2 Filter"); @@ -254,18 +166,6 @@ report 718 "Inventory - Sales Back Orders" Type = Word; Summary = 'Built in layout for the Inventory - Sales Back Orders word report.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Inventory - Sales Back Orders RDLC'; - Type = RDLC; - LayoutFile = '.\Inventory\Reports\InventorySalesBackOrders.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels @@ -314,19 +214,5 @@ report 718 "Inventory - Sales Back Orders" Text000: Label 'Sales Order Line: %1'; #pragma warning restore AA0470 #pragma warning restore AA0074 -#if not CLEAN27 - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - InvSalesBackOrdersCaptionLbl: Label 'Inventory - Sales Back Orders'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - CurrReportPageNoCaptionLbl: Label 'Page'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - CustNameCaptionLbl: Label 'Customer'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - CustPhoneNoCaptionLbl: Label 'Phone No.'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - SalesLineShipDateCaptionLbl: Label 'Shipment Date'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - OtherBackOrdersCaptionLbl: Label 'Other Back Orders'; -#endif } diff --git a/src/Layers/W1/BaseApp/Inventory/Reports/ItemAbletoMakeTimeline.Report.al b/src/Layers/W1/BaseApp/Inventory/Reports/ItemAbletoMakeTimeline.Report.al index b56f45008a5..fb598089109 100644 --- a/src/Layers/W1/BaseApp/Inventory/Reports/ItemAbletoMakeTimeline.Report.al +++ b/src/Layers/W1/BaseApp/Inventory/Reports/ItemAbletoMakeTimeline.Report.al @@ -277,23 +277,7 @@ report 5871 "Item - Able to Make (Timeline)" ShowBy := NewShowBy; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure InitSource()', '27.0')] - procedure InitAsmOrder(NewAsmHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - SourceRecordVar := NewAsmHeader; - ShowBy := ShowBy::Assembly; - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure InitSource()', '27.0')] - procedure InitProdOrder(NewProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - SourceRecordVar := NewProdOrderLine; - ShowBy := ShowBy::Production; - end; -#endif local procedure CalcQuantities(var Item: Record Item; var InvtQty: Decimal; var SchRcptQty: Decimal; var GrossReqQty: Decimal; Date: Date) var diff --git a/src/Layers/W1/BaseApp/Inventory/Reports/PlanningAvailability.Report.al b/src/Layers/W1/BaseApp/Inventory/Reports/PlanningAvailability.Report.al deleted file mode 100644 index 99bfdb719e0..00000000000 --- a/src/Layers/W1/BaseApp/Inventory/Reports/PlanningAvailability.Report.al +++ /dev/null @@ -1,577 +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.Manufacturing.Reports; - -using Microsoft.Inventory.Item; -using Microsoft.Inventory.Planning; -using Microsoft.Inventory.Requisition; -using Microsoft.Inventory.Setup; -using Microsoft.Inventory.Transfer; -using Microsoft.Projects.Project.Planning; -using Microsoft.Purchases.Document; -using Microsoft.Sales.Document; -using System.Utilities; - -report 99001048 "Planning Availability" -{ - ApplicationArea = Basic, Suite; - Caption = 'Planning Availability (Obsolete)'; - UsageCategory = ReportsAndAnalysis; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been deprecated and will be removed in a future release.'; - ObsoleteTag = '27.0'; - DefaultRenderingLayout = RDLCLayout; - - dataset - { - dataitem(TopLevel; Integer) - { - DataItemTableView = where(Number = const(1)); - - dataitem("Production Forecast Entry"; Microsoft.Manufacturing.Forecast."Production Forecast Entry") - { - DataItemTableView = sorting("Production Forecast Name", "Item No.", "Variant Code", "Component Forecast", "Forecast Date", "Location Code"); - - trigger OnAfterGetRecord() - begin - BufferCounter += 1; - TempForecastPlanningBuffer.SetRange("Item No.", "Item No."); - TempForecastPlanningBuffer.SetRange(Date, "Forecast Date"); - if "Component Forecast" then - TempForecastPlanningBuffer.SetRange("Document Type", TempForecastPlanningBuffer."Document Type"::"Production Forecast-Component") - else - TempForecastPlanningBuffer.SetRange("Document Type", TempForecastPlanningBuffer."Document Type"::"Production Forecast-Sales"); - - if TempForecastPlanningBuffer.FindFirst() then begin - TempForecastPlanningBuffer."Gross Requirement" += "Forecast Quantity"; - TempForecastPlanningBuffer.Modify(); - end else - InsertNewForecast("Production Forecast Entry"); - end; - - trigger OnPreDataItem() - var - InventorySetup: Record "Inventory Setup"; - begin - InventorySetup.Get(); - SetRange("Production Forecast Name", InventorySetup."Current Demand Forecast"); - end; - } - dataitem("Sales Line"; "Sales Line") - { - DataItemTableView = sorting("Document Type", "Document No.", "Line No."); - - trigger OnAfterGetRecord() - begin - if SelectionReq then begin - NewRecordWithDetails("Shipment Date", "No.", Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Sales Order"; - TempPlanningBuffer."Document No." := "Document No."; - TempPlanningBuffer."Gross Requirement" := "Outstanding Qty. (Base)"; - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", "No."); - TempPlanningBuffer.SetRange(Date, "Shipment Date"); - if TempPlanningBuffer.Find('-') then begin - TempPlanningBuffer."Gross Requirement" := TempPlanningBuffer."Gross Requirement" + "Outstanding Qty. (Base)"; - TempPlanningBuffer.Modify(); - end else begin - NewRecordWithDetails("Shipment Date", "No.", Description); - TempPlanningBuffer."Gross Requirement" := "Outstanding Qty. (Base)"; - TempPlanningBuffer.Insert(); - end; - end; - ModifyForecast("No.", "Shipment Date", TempPlanningBuffer."Document Type"::"Production Forecast-Sales", "Outstanding Qty. (Base)"); - end; - - trigger OnPreDataItem() - begin - TempPlanningBuffer.DeleteAll(); - SetRange("Document Type", "Document Type"::Order); - SetRange(Type, Type::Item); - end; - } - dataitem("Job Planning Line"; "Job Planning Line") - { - DataItemTableView = sorting("Job No.", "Job Task No.", "Line No."); - - trigger OnAfterGetRecord() - begin - if SelectionReq then begin - NewRecordWithDetails("Planning Date", "No.", Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Job Order"; - TempPlanningBuffer."Document No." := "Job No."; - TempPlanningBuffer."Gross Requirement" := "Remaining Qty. (Base)"; - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", "No."); - TempPlanningBuffer.SetRange(Date, "Planning Date"); - if TempPlanningBuffer.Find('-') then begin - TempPlanningBuffer."Gross Requirement" := TempPlanningBuffer."Gross Requirement" + "Remaining Qty. (Base)"; - TempPlanningBuffer.Modify(); - end else begin - NewRecordWithDetails("Planning Date", "No.", Description); - TempPlanningBuffer."Gross Requirement" := "Remaining Qty. (Base)"; - TempPlanningBuffer.Insert(); - end; - end; - end; - - trigger OnPreDataItem() - begin - SetRange(Status, Status::Order); - SetRange(Type, Type::Item); - end; - } - dataitem("Purchase Line"; "Purchase Line") - { - DataItemTableView = sorting("Document Type", "Document No.", "Line No."); - - trigger OnAfterGetRecord() - begin - ReqLine2.SetRange("Ref. Order No.", "Document No."); - ReqLine2.SetRange("Ref. Line No.", "Line No."); - if ReqLine2.FindFirst() then - CurrReport.Skip(); - - if SelectionReq then begin - NewRecordWithDetails("Expected Receipt Date", "No.", Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Purchase Order"; - TempPlanningBuffer."Document No." := "Document No."; - TempPlanningBuffer."Scheduled Receipts" := "Outstanding Qty. (Base)"; - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", "No."); - TempPlanningBuffer.SetRange(Date, "Expected Receipt Date"); - if TempPlanningBuffer.Find('-') then begin - TempPlanningBuffer."Scheduled Receipts" := TempPlanningBuffer."Scheduled Receipts" + "Outstanding Qty. (Base)"; - TempPlanningBuffer.Modify(); - end else begin - NewRecordWithDetails("Expected Receipt Date", "No.", Description); - TempPlanningBuffer."Scheduled Receipts" := "Outstanding Qty. (Base)"; - TempPlanningBuffer.Insert(); - end; - end; - end; - - trigger OnPreDataItem() - begin - SetRange("Document Type", "Document Type"::Order); - SetRange(Type, Type::Item); - ReqLine2.Reset(); - ReqLine2.SetCurrentKey("Ref. Order Type", "Ref. Order Status", "Ref. Order No.", "Ref. Line No."); - ReqLine2.SetRange("Ref. Order Type", ReqLine2."Ref. Order Type"::Purchase); - end; - } - dataitem("Transfer Line"; "Transfer Line") - { - DataItemTableView = sorting("Transfer-from Code", Status, "Derived From Line No.", "Item No.", "Variant Code", "Shortcut Dimension 1 Code", "Shortcut Dimension 2 Code", "Shipment Date", "In-Transit Code"); - - trigger OnAfterGetRecord() - begin - if SelectionReq then begin - NewRecordWithDetails("Shipment Date", "Item No.", Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::Transfer; - TempPlanningBuffer."Document No." := "Document No."; - TempPlanningBuffer."Gross Requirement" := "Outstanding Qty. (Base)"; - TempPlanningBuffer.Insert(); - NewRecordWithDetails("Receipt Date", "Item No.", Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::Transfer; - TempPlanningBuffer."Document No." := "Document No."; - TempPlanningBuffer."Scheduled Receipts" := "Outstanding Qty. (Base)" + "Qty. in Transit (Base)"; - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", "Item No."); - TempPlanningBuffer.SetRange(Date, "Shipment Date"); - if TempPlanningBuffer.Find('-') then begin - TempPlanningBuffer."Gross Requirement" := TempPlanningBuffer."Gross Requirement" + "Outstanding Qty. (Base)"; - TempPlanningBuffer.Modify(); - end else begin - NewRecordWithDetails("Shipment Date", "Item No.", Description); - TempPlanningBuffer."Gross Requirement" := "Outstanding Qty. (Base)"; - TempPlanningBuffer.Insert(); - end; - TempPlanningBuffer.SetRange(Date, "Receipt Date"); - if TempPlanningBuffer.Find('-') then begin - TempPlanningBuffer."Scheduled Receipts" := - TempPlanningBuffer."Scheduled Receipts" + - "Outstanding Qty. (Base)" + - "Qty. in Transit (Base)"; - TempPlanningBuffer.Modify(); - end else begin - NewRecordWithDetails("Receipt Date", "Item No.", Description); - TempPlanningBuffer."Scheduled Receipts" := "Outstanding Qty. (Base)" + "Qty. in Transit (Base)"; - TempPlanningBuffer.Insert(); - end; - end; - end; - - trigger OnPreDataItem() - begin - SetRange("Derived From Line No.", 0); - end; - } - dataitem("Requisition Line"; "Requisition Line") - { - DataItemTableView = sorting("Worksheet Template Name", "Journal Batch Name", "Line No."); - - trigger OnAfterGetRecord() - begin - if SelectionReq then begin - NewRecordWithDetails("Due Date", "No.", Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Requisition Line"; - TempPlanningBuffer."Planned Receipts" := "Quantity (Base)"; - OnRequisitionLineOnBeforeTempPlanningBufferInsert(TempPlanningBuffer, "Requisition Line"); - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", "No."); - TempPlanningBuffer.SetRange(Date, "Due Date"); - if TempPlanningBuffer.Find('-') then begin - TempPlanningBuffer."Planned Receipts" := TempPlanningBuffer."Planned Receipts" + "Quantity (Base)"; - TempPlanningBuffer.Modify(); - end else begin - NewRecordWithDetails("Due Date", "No.", Description); - TempPlanningBuffer."Planned Receipts" := "Quantity (Base)"; - TempPlanningBuffer.Insert(); - end; - end; - end; - - trigger OnPreDataItem() - begin - SetRange(Type, Type::Item); - end; - } - dataitem("Planning Component"; "Planning Component") - { - DataItemTableView = sorting("Worksheet Template Name", "Worksheet Batch Name", "Worksheet Line No.", "Line No."); - - trigger OnAfterGetRecord() - begin - if SelectionReq then begin - NewRecordWithDetails("Due Date", "Item No.", Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Planning Comp."; - TempPlanningBuffer."Document No." := ReqLine."Ref. Order No."; - TempPlanningBuffer."Gross Requirement" := "Expected Quantity (Base)"; - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", "Item No."); - TempPlanningBuffer.SetRange(Date, "Due Date"); - if TempPlanningBuffer.Find('-') then begin - TempPlanningBuffer."Gross Requirement" := TempPlanningBuffer."Gross Requirement" + "Expected Quantity (Base)"; - TempPlanningBuffer.Modify(); - end else begin - NewRecordWithDetails("Due Date", "Item No.", Description); - TempPlanningBuffer."Gross Requirement" := "Expected Quantity (Base)"; - TempPlanningBuffer.Insert(); - end; - end; - ModifyForecast("Item No.", "Due Date", TempPlanningBuffer."Document Type"::"Production Forecast-Component", "Expected Quantity (Base)"); - end; - } - dataitem("Planning Buffer"; "Planning Buffer") - { - DataItemTableView = sorting("Item No.", Date); - RequestFilterFields = "Item No.", Date; - } - dataitem("Integer"; "Integer") - { - DataItemTableView = sorting(Number) where(Number = filter(1 ..)); - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - } - column(TodayFormatted; Format(Today, 0, 4)) - { - } - column(PlngBuffTableCaptFilter; TempPlanningBuffer.TableCaption + ': ' + PlanningFilter) - { - } - column(PlanningFilter; PlanningFilter) - { - } - column(ItemInventory; Item.Inventory) - { - } - column(PlanningBuffItemNo; TempPlanningBuffer."Item No.") - { - } - column(PlanningBuffDesc; TempPlanningBuffer.Description) - { - } - column(ShowIntBody1; PrintBoolean and SelectionReq) - { - } - column(PlanningBuffDocNo; TempPlanningBuffer."Document No.") - { - } - column(PlanningBuffDocType; Format(TempPlanningBuffer."Document Type")) - { - } - column(ProjectedBalance; ProjectedBalance) - { - DecimalPlaces = 0 : 5; - } - column(PlngBuffScheduledReceipts; TempPlanningBuffer."Scheduled Receipts") - { - } - column(PlngBuffPlannedReceipts; TempPlanningBuffer."Planned Receipts") - { - } - column(PlngBuffGrossRequirement; TempPlanningBuffer."Gross Requirement") - { - } - column(PlanningBuffDate; Format(TempPlanningBuffer.Date)) - { - } - column(ShowIntBody2; SelectionReq and PrintBoolean2) - { - } - column(ShowIntBody3; PrintBoolean and (not SelectionReq)) - { - } - column(ShowIntBody4; (not SelectionReq) and PrintBoolean2) - { - } - column(PlanningAvailabilityCaptn; PlanningAvailabilityCaptnLbl) - { - } - column(CurrReportPageNoCaption; CurrReportPageNoCaptionLbl) - { - } - column(DocumentNoCaption; DocumentNoCaptionLbl) - { - } - column(DocumentTypeCaption; DocumentTypeCaptionLbl) - { - } - column(ProjectedBalanceCaption; ProjectedBalanceCaptionLbl) - { - } - column(ScheduledReceiptsCaption; ScheduledReceiptsCaptionLbl) - { - } - column(PlannedReceiptsCaption; PlannedReceiptsCaptionLbl) - { - } - column(GrossRequirementCaption; GrossRequirementCaptionLbl) - { - } - column(AvailableInventoryCaption; AvailableInventoryCaptionLbl) - { - } - column(DateCaption; DateCaptionLbl) - { - } - - trigger OnAfterGetRecord() - begin - if Number = 1 then - TempPlanningBuffer.Find('-') - else - if TempPlanningBuffer.Next() = 0 then - CurrReport.Break(); - - Item.SetRange("Date Filter", 0D, TempPlanningBuffer.Date); - if Item.Get(TempPlanningBuffer."Item No.") then begin - PrintBoolean2 := true; - if TempPlanningBuffer."Item No." = OldItem then - PrintBoolean := false - else begin - PrintBoolean := true; - OldItem := TempPlanningBuffer."Item No."; - Item.CalcFields(Inventory); - ProjectedBalance := Item.Inventory; - end; - - ProjectedBalance := - ProjectedBalance - - TempPlanningBuffer."Gross Requirement" + - TempPlanningBuffer."Planned Receipts" + - TempPlanningBuffer."Scheduled Receipts"; - end else - PrintBoolean2 := false; - end; - - trigger OnPreDataItem() - begin - TempForecastPlanningBuffer.Reset(); - TempForecastPlanningBuffer.SetFilter("Gross Requirement", '>0'); - if TempForecastPlanningBuffer.FindSet() then - repeat - if SelectionReq then begin - NewRecord(); - TempPlanningBuffer := TempForecastPlanningBuffer; - TempPlanningBuffer."Buffer No." := BufferCounter; - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", TempForecastPlanningBuffer."Item No."); - TempPlanningBuffer.SetRange(Date, TempForecastPlanningBuffer.Date); - if TempPlanningBuffer.FindSet(true) then begin - TempPlanningBuffer."Gross Requirement" += TempForecastPlanningBuffer."Gross Requirement"; - TempPlanningBuffer.Modify(); - end else begin - NewRecord(); - TempPlanningBuffer := TempForecastPlanningBuffer; - TempPlanningBuffer."Buffer No." := BufferCounter; - TempPlanningBuffer.Insert(); - end; - end; - until TempForecastPlanningBuffer.Next() = 0; - - TempPlanningBuffer.SetCurrentKey("Item No.", Date); - TempPlanningBuffer.CopyFilters("Planning Buffer"); - end; - } - } - } - - requestpage - { - AboutTitle = 'About Planning Availability (Obsolete)'; - AboutText = 'Helps you manage inventory levels and ensure that items are available when you need them.** This report is obsolete and will be removed in a future release.** Please refer to the report documentation for alternative ways to retrieve this information.'; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(Selection; SelectionReq) - { - ApplicationArea = Manufacturing; - Caption = 'Detailed'; - DrillDown = true; - ToolTip = 'Specifies whether you want the report to display a detailed list of each demand and supply entry. The report will instead show the total cumulative demand and supply.'; - } - } - } - } - - actions - { - } - } - - rendering - { - layout(RDLCLayout) - { - Type = RDLC; - LayoutFile = './Inventory/Reports/PlanningAvailability.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } - } - - labels - { - } - - trigger OnInitReport() - begin - SelectionReq := true; - end; - - trigger OnPreReport() - begin - PlanningFilter := "Planning Buffer".GetFilters(); - - CollectData(); - end; - - var - TempForecastPlanningBuffer: Record "Planning Buffer" temporary; - Item: Record Item; - ReqLine: Record "Requisition Line"; - PlanningFilter: Text; - OldItem: Code[20]; - PrintBoolean: Boolean; - BufferCounter: Integer; - ProjectedBalance: Decimal; - PrintBoolean2: Boolean; - PlanningAvailabilityCaptnLbl: Label 'Planning Availability'; - CurrReportPageNoCaptionLbl: Label 'Page'; - DocumentNoCaptionLbl: Label 'Document No.'; - DocumentTypeCaptionLbl: Label 'Document Type'; - ProjectedBalanceCaptionLbl: Label 'Projected Balance'; - ScheduledReceiptsCaptionLbl: Label 'Scheduled Receipts'; - PlannedReceiptsCaptionLbl: Label 'Planned Receipts'; - GrossRequirementCaptionLbl: Label 'Gross Requirement'; - AvailableInventoryCaptionLbl: Label 'Available Inventory'; - DateCaptionLbl: Label 'Date'; - - protected var - ReqLine2: Record "Requisition Line"; - TempPlanningBuffer: Record "Planning Buffer" temporary; - SelectionReq: Boolean; - - local procedure CollectData(); - begin - OnCollectData(TempPlanningBuffer, SelectionReq); - end; - - local procedure NewRecord() - begin - TempPlanningBuffer.SetRange("Item No."); - TempPlanningBuffer.SetRange(Date); - - if not TempPlanningBuffer.Find('+') then - BufferCounter := 1 - else begin - BufferCounter := TempPlanningBuffer."Buffer No." + 1; - Clear(TempPlanningBuffer); - end; - TempPlanningBuffer."Buffer No." := BufferCounter; - end; - - procedure NewRecordWithDetails(NewDate: Date; NewItemNo: Code[20]; NewDescription: Text[100]) - begin - NewRecord(); - TempPlanningBuffer.Date := NewDate; - TempPlanningBuffer."Item No." := NewItemNo; - TempPlanningBuffer.Description := NewDescription; - end; - - local procedure InsertNewForecast(ProdForecastEntry: Record Microsoft.Manufacturing.Forecast."Production Forecast Entry") - begin - TempForecastPlanningBuffer.Init(); - TempForecastPlanningBuffer."Buffer No." := BufferCounter; - TempForecastPlanningBuffer.Date := ProdForecastEntry."Forecast Date"; - if ProdForecastEntry."Component Forecast" then - TempForecastPlanningBuffer."Document Type" := TempForecastPlanningBuffer."Document Type"::"Production Forecast-Component" - else - TempForecastPlanningBuffer."Document Type" := TempForecastPlanningBuffer."Document Type"::"Production Forecast-Sales"; - TempForecastPlanningBuffer."Document No." := ProdForecastEntry."Production Forecast Name"; - TempForecastPlanningBuffer."Item No." := ProdForecastEntry."Item No."; - TempForecastPlanningBuffer.Description := ProdForecastEntry.Description; - TempForecastPlanningBuffer."Gross Requirement" := ProdForecastEntry."Forecast Quantity"; - TempForecastPlanningBuffer.Insert(); - end; - - protected procedure ModifyForecast(ItemNo: Code[20]; Date: Date; DocumentType: Option; Quantity: Decimal) - begin - Clear(TempForecastPlanningBuffer); - TempForecastPlanningBuffer.SetRange("Item No.", ItemNo); - TempForecastPlanningBuffer.SetFilter(Date, '..%1', Date); - TempForecastPlanningBuffer.SetRange("Document Type", DocumentType); - if TempForecastPlanningBuffer.FindLast() then begin - TempForecastPlanningBuffer."Gross Requirement" -= Quantity; - TempForecastPlanningBuffer.Modify(); - end; - end; - - [IntegrationEvent(true, false)] - local procedure OnCollectData(var TempPlanningBuffer: Record "Planning Buffer" temporary; Selection: Boolean) - begin - end; - - [InternalEvent(false)] - local procedure OnRequisitionLineOnBeforeTempPlanningBufferInsert(var TempPlanningBuffer: Record "Planning Buffer" temporary; RequisitionLine: Record "Requisition Line") - begin - end; -} - -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Inventory/Requisition/CalculatePlanReqWksh.Report.al b/src/Layers/W1/BaseApp/Inventory/Requisition/CalculatePlanReqWksh.Report.al index 5a05ef7a4cf..addb6a9d9b0 100644 --- a/src/Layers/W1/BaseApp/Inventory/Requisition/CalculatePlanReqWksh.Report.al +++ b/src/Layers/W1/BaseApp/Inventory/Requisition/CalculatePlanReqWksh.Report.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -235,10 +235,6 @@ report 699 "Calculate Plan - Req. Wksh." #pragma warning restore AA0074 protected var -#if not CLEAN27 - [Obsolete('Replaced by record Inventory Setup', '27.0')] - MfgSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; -#endif SKU: Record "Stockkeeping Unit"; ReqLine: Record "Requisition Line"; ReqLineExtern: Record "Requisition Line"; @@ -274,9 +270,6 @@ report 699 "Calculate Plan - Req. Wksh." begin IsHandled := false; OnBeforeInitializeFromSetup(UseForecast, IsHandled, InventorySetup); -#if not CLEAN27 - OnBeforeInitializeFromMfgSetup(UseForecast, IsHandled, MfgSetup); -#endif if IsHandled then exit; @@ -284,13 +277,6 @@ report 699 "Calculate Plan - Req. Wksh." UseForecast := InventorySetup."Current Demand Forecast"; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure InitializeFromSetup()', '27.0')] - procedure InitializeFromMfgSetup() - begin - InitializeFromSetup(); - end; -#endif procedure SetParamAndCalculatePlanFromWorksheet() var @@ -298,9 +284,6 @@ report 699 "Calculate Plan - Req. Wksh." begin IsHandled := false; OnBeforeSetParamAndCalculatePlanFromReqWorksheet(UseForecast, ExcludeForecastBefore, CurrWorksheetType, PriceCalculationMethod, Item, CurrTemplateName, CurrWorksheetName, FromDate, ToDate, RespectPlanningParm, IsHandled); -#if not CLEAN27 - OnBeforeSetParamAndCalculatePlanFromWorksheet(UseForecast, ExcludeForecastBefore, CurrWorksheetType, PriceCalculationMethod, Item, MfgSetup, CurrTemplateName, CurrWorksheetName, FromDate, ToDate, RespectPlanningParm, IsHandled); -#endif if IsHandled then exit; @@ -375,13 +358,6 @@ report 699 "Calculate Plan - Req. Wksh." begin end; -#if not CLEAN27 - [Obsolete('Replaced by OnBeforeSetParamAndCalculatePlanFromReqWorksheet', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeSetParamAndCalculatePlanFromWorksheet(UseForecast: Code[10]; ExcludeForecastBefore: Date; CurrWorksheetType: Option; PriceCalculationMethod: Enum "Price Calculation Method"; Item: Record Item; ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; CurrTemplateName: Code[10]; CurrWorksheetName: Code[10]; FromDate: Date; ToDate: Date; RespectPlanningParm: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeSetParamAndCalculatePlanFromReqWorksheet(UseForecast: Code[10]; ExcludeForecastBefore: Date; CurrWorksheetType: Option; PriceCalculationMethod: Enum "Price Calculation Method"; Item: Record Item; CurrTemplateName: Code[10]; CurrWorksheetName: Code[10]; FromDate: Date; ToDate: Date; RespectPlanningParm: Boolean; var IsHandled: Boolean) @@ -398,13 +374,6 @@ report 699 "Calculate Plan - Req. Wksh." begin end; -#if not CLEAN27 - [Obsolete('Replaced by event OnBeforeInitializeFromSetup', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeInitializeFromMfgSetup(var UseForecast: Code[10]; var IsHandled: Boolean; var MfgSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeOnPreReport(var CurrTemplateName: code[10]; var CurrWorksheetName: Code[10]; var RequistionLine: Record "Requisition Line"; var FromDate: Date; var ToDate: Date; var IsHandled: Boolean) diff --git a/src/Layers/W1/BaseApp/Inventory/Requisition/CarryOutAction.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Requisition/CarryOutAction.Codeunit.al index a8b8dab8a2d..d95cc8b0077 100644 --- a/src/Layers/W1/BaseApp/Inventory/Requisition/CarryOutAction.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Requisition/CarryOutAction.Codeunit.al @@ -7,9 +7,6 @@ namespace Microsoft.Inventory.Requisition; using Microsoft.Foundation.Enums; using Microsoft.Foundation.Navigate; using Microsoft.Foundation.Reporting; -#if not CLEAN27 -using Microsoft.Inventory.Item; -#endif using Microsoft.Inventory.Planning; using Microsoft.Inventory.Setup; using Microsoft.Inventory.Tracking; @@ -72,10 +69,6 @@ codeunit 99000813 "Carry Out Action" CarryOutAction: Codeunit "Carry Out Action"; ReservationManagement: Codeunit "Reservation Management"; ReqLineReserve: Codeunit "Req. Line-Reserve"; -#if not CLEAN27 - AsmCarryOutAction: Codeunit "Asm. Carry Out Action"; - MfgCarryOutAction: Codeunit "Mfg. Carry Out Action"; -#endif PrintOrder: Boolean; SplitTransferOrders: Boolean; ProductionExist: Boolean; @@ -102,13 +95,6 @@ codeunit 99000813 "Carry Out Action" TryWkshName := WkshName; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit MfgCarryOutAction', '27.0')] - procedure CarryOutActionsFromProdOrder(RequisitionLine: Record "Requisition Line"; ProdOrderChoice: Enum Microsoft.Manufacturing.Document."Planning Create Prod. Order"; ProdWkshTempl: Code[10]; ProdWkshName: Code[10]) Result: Boolean - begin - OnTrySourceTypeForProduction(RequisitionLine, ProdOrderChoice.AsInteger(), ProdWkshTempl, ProdWkshName, Result, TempDocumentEntry); - end; -#endif procedure CarryOutActionsFromTransOrder(RequisitionLine: Record "Requisition Line"; TransOrderChoice: Enum "Planning Create Transfer Order"; TransWkshTempName: Code[10]; TransJournalName: Code[10]) @@ -147,13 +133,6 @@ codeunit 99000813 "Carry Out Action" end; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit AsmCarryOutAction', '27.0')] - procedure CarryOutActionsFromAssemblyOrder(RequisitionLine: Record "Requisition Line"; AsmOrderChoice: Enum "Planning Create Assembly Order"): Boolean - begin - exit(AsmCarryOutAction.CarryOutActionsFromAssemblyOrder(RequisitionLine, AsmOrderChoice, TempDocumentEntry)); - end; -#endif procedure CarryOutToReqWksh(RequisitionLine: Record "Requisition Line"; ReqWkshTempName: Code[10]; ReqJournalName: Code[10]) var @@ -229,13 +208,6 @@ codeunit 99000813 "Carry Out Action" until TempTransferHeaderToPrint.Next() = 0; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit MfgCarryOutAction', '27.0')] - procedure ProdOrderChgAndReshedule(RequisitionLine: Record "Requisition Line"): Boolean - begin - exit(MfgCarryOutAction.ProdOrderChgAndReshedule(RequisitionLine)); - end; -#endif procedure PurchOrderChgAndReshedule(RequisitionLine: Record "Requisition Line") var @@ -301,13 +273,6 @@ codeunit 99000813 "Carry Out Action" end; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit AsmCarryOutAction', '27.0')] - procedure AsmOrderChgAndReshedule(RequisitionLine: Record "Requisition Line"): Boolean - begin - exit(AsmOrderChgAndReshedule(RequisitionLine)); - end; -#endif procedure DeleteOrderLines(RequisitionLine: Record "Requisition Line") begin @@ -378,38 +343,9 @@ codeunit 99000813 "Carry Out Action" OnAfterDeleteRequisitionLine(RequisitionLine); end; -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit MfgCarryOutAction', '27.0')] - procedure InsertProductionOrder(RequisitionLine: Record "Requisition Line"; ProdOrderChoice: Enum Microsoft.Manufacturing.Document."Planning Create Prod. Order") - begin - MfgCarryOutAction.InsertProductionOrder(RequisitionLine, ProdOrderChoice, TempDocumentEntry); - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit MfgCarryOutAction', '27.0')] - procedure InsertProdOrderLine(RequisitionLine: Record "Requisition Line"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; Item: Record Item) - begin - MfgCarryOutAction.InsertProdOrderLine(RequisitionLine, ProductionOrder, Item); - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit AsmCarryOutAction', '27.0')] - [Scope('OnPrem')] - procedure InsertAsmHeader(RequisitionLine: Record "Requisition Line"; var AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - AsmCarryOutAction.InsertAsmHeader(RequisitionLine, AssemblyHeader, TempDocumentEntry); - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit AsmCarryOutAction', '27.0')] - procedure TransferAsmPlanningComp(RequisitionLine: Record "Requisition Line"; AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - AsmCarryOutAction.TransferAsmPlanningComp(RequisitionLine, AssemblyHeader); - end; -#endif procedure InsertTransHeader(RequisitionLine: Record "Requisition Line"; var TransferHeader: Record "Transfer Header") var @@ -630,48 +566,10 @@ codeunit 99000813 "Carry Out Action" ReportSelections.Usage::"P.Order", PurchaseHeader, false, PurchaseHeader.FieldNo("Buy-from Vendor No.")); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit AsmCarryOutActionPrint', '27.0')] - procedure PrintAsmOrder(AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header") - var - AsmCarryOutActionPrint: Codeunit "Asm. Carry Out Action Print"; - begin - if PrintOrder then - AsmCarryOutActionPrint.PrintAsmOrder(AssemblyHeader); - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit MfgCarryOutAction', '27.0')] - procedure TransferRouting(RequisitionLine: Record "Requisition Line"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; RoutingNo: Code[20]; RoutingRefNo: Integer): Boolean - begin - exit(MfgCarryOutAction.TransferRouting(RequisitionLine, ProductionOrder, RoutingNo, RoutingRefNo)); - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit MfgCarryOutAction', '27.0')] - procedure TransferBOM(RequisitionLine: Record "Requisition Line"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLineNo: Integer) - begin - MfgCarryOutAction.TransferBOM(RequisitionLine, ProductionOrder, ProdOrderLineNo); - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit MfgCarryOutAction', '27.0')] - procedure TransferCapNeed(RequisitionLine: Record "Requisition Line"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; RoutingNo: Code[20]; RoutingRefNo: Integer) - begin - MfgCarryOutAction.TransferCapNeed(RequisitionLine, ProductionOrder, RoutingNo, RoutingRefNo); - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit MfgCarryOutAction', '27.0')] - procedure UpdateComponentLink(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - MfgCarryOutAction.UpdateComponentLink(ProdOrderLine); - end; -#endif procedure SetCreatedDocumentBuffer(var TempDocumentEntryNew: Record "Document Entry" temporary) begin @@ -688,13 +586,6 @@ codeunit 99000813 "Carry Out Action" SplitTransferOrders := Split; end; -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit MfgCarryOutAction', '27.0')] - procedure ReserveBindingOrderToProd(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RequisitionLine: Record "Requisition Line") - begin - MfgCarryOutAction.ReserveBindingOrderToProd(ProdOrderLine, RequisitionLine); - end; -#endif procedure ReserveBindingOrderToTrans(var TransferLine: Record "Transfer Line"; var RequisitionLine: Record "Requisition Line") var @@ -721,13 +612,6 @@ codeunit 99000813 "Carry Out Action" TransferLine.Modify(); end; -#if not CLEAN27 - [Obsolete('Replaced by procedure in codeunit AsmCarryOutAction', '27.0')] - procedure ReserveBindingOrderToAsm(var AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var RequisitionLine: Record "Requisition Line") - begin - AsmCarryOutAction.ReserveBindingOrderToAsm(AssemblyHeader, RequisitionLine); - end; -#endif procedure ReserveBindingOrderToReqLine(var DemandRequisitionLine: Record "Requisition Line"; var SupplyRequisitionLine: Record "Requisition Line") var @@ -762,132 +646,24 @@ codeunit 99000813 "Carry Out Action" begin end; -#if not CLEAN27 - internal procedure RunOnAfterInsertProdOrder(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderChoice: Integer; var RequisitionLine: Record "Requisition Line") - begin - OnAfterInsertProdOrder(ProductionOrder, ProdOrderChoice, RequisitionLine); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterInsertProdOrder(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderChoice: Integer; var RequisitionLine: Record "Requisition Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnAfterInsertProdOrderLine(ReqLine: Record "Requisition Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; Item: Record Item) - begin - OnAfterInsertProdOrderLine(ReqLine, ProdOrder, ProdOrderLine, Item); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterInsertProdOrderLine(ReqLine: Record "Requisition Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; Item: Record Item) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterInsertAsmHeader(var ReqLine: Record "Requisition Line"; var AsmHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - OnAfterInsertAsmHeader(ReqLine, AsmHeader); - end; - - [Obsolete('Moved to codeunit AsmCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterInsertAsmHeader(var ReqLine: Record "Requisition Line"; var AsmHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterInsertTransLine(var TransHeader: Record "Transfer Header"; var ReqLine: Record "Requisition Line"; var TransLine: Record "Transfer Line"; var NextLineNo: Integer); begin end; -#if not CLEAN27 - internal procedure RunOnAfterTransferAsmPlanningComp(var PlanningComponent: Record "Planning Component"; var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line") - begin - OnAfterTransferAsmPlanningComp(PlanningComponent, AssemblyLine); - end; - - [Obsolete('Moved to codeunit AsmCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferAsmPlanningComp(var PlanningComponent: Record "Planning Component"; var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterTransLineInsert(var TransferLine: Record "Transfer Line"; RequisitionLine: Record "Requisition Line") begin end; -#if not CLEAN27 - internal procedure RunOnAfterTransferPlanningRtngLine(var PlanningRtngLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - OnAfterTransferPlanningRtngLine(PlanningRtngLine, ProdOrderRtngLine); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferPlanningRtngLine(var PlanningRtngLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; var ProdOrderRtngLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterTransferPlanningComp(var PlanningComponent: Record "Planning Component"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnAfterTransferPlanningComp(PlanningComponent, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferPlanningComp(var PlanningComponent: Record "Planning Component"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnAfterProdOrderRtngLineInsert(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; RequisitionLine: Record "Requisition Line") - begin - OnAfterProdOrderRtngLineInsert(ProdOrderRoutingLine, PlanningRoutingLine, ProdOrder, RequisitionLine); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterProdOrderRtngLineInsert(var ProdOrderRoutingLine: Record Microsoft.Manufacturing.Document."Prod. Order Routing Line"; PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; RequisitionLine: Record "Requisition Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnAfterProdOrderChgAndReshedule(var RequisitionLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - OnAfterProdOrderChgAndReshedule(RequisitionLine, ProdOrderLine); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterProdOrderChgAndReshedule(var RequisitionLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeAddResourceComponents(RequisitionLine: Record "Requisition Line"; var AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var IsHandled: Boolean) - begin - OnBeforeAddResourceComponents(RequisitionLine, AssemblyHeader, IsHandled); - end; - [Obsolete('Moved to codeunit AsmCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeAddResourceComponents(RequisitionLine: Record "Requisition Line"; var AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCopyDimensionsFromReqToTransLine(var TransferLine: Record "Transfer Line"; RequisitionLine: Record "Requisition Line"; var IsHandled: Boolean) @@ -899,31 +675,7 @@ codeunit 99000813 "Carry Out Action" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeDeleteAssemblyLines(RequisitionLine: Record "Requisition Line"; var IsHandled: Boolean) - begin - OnBeforeDeleteAssemblyLines(RequisitionLine, IsHandled); - end; - - [Obsolete('Moved to codeunit AsmCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeDeleteAssemblyLines(RequisitionLine: Record "Requisition Line"; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeDeleteProdOrderLines(RequisitionLine: Record "Requisition Line"; var IsHandled: Boolean) - begin - OnBeforeDeleteProdOrderLines(RequisitionLine, IsHandled); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeDeleteProdOrderLines(RequisitionLine: Record "Requisition Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeDeletePurchaseLines(RequisitionLine: Record "Requisition Line"; var IsHandled: Boolean) @@ -940,18 +692,6 @@ codeunit 99000813 "Carry Out Action" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeFinalizeOrderHeader(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; PrintOrder2: Boolean; var IsHandled: Boolean) - begin - OnBeforeFinalizeOrderHeader(ProdOrder, PrintOrder2, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFinalizeOrderHeader(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; PrintOrder: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeInsertTransHeader(ReqLine: Record "Requisition Line"; var TransHeader: Record "Transfer Header"; var IsHandled: Boolean) @@ -963,215 +703,35 @@ codeunit 99000813 "Carry Out Action" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeTransferBOM(ReqLine: Record "Requisition Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLineNo: Integer; var IsHandled: Boolean) - begin - OnBeforeTransferBOM(ReqLine, ProdOrder, ProdOrderLineNo, IsHandled); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransferBOM(ReqLine: Record "Requisition Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLineNo: Integer; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeTransferCapNeed(ReqLine: Record "Requisition Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; RoutingNo: Code[20]; RoutingRefNo: Integer; var IsHandled: Boolean) - begin - OnBeforeTransferCapNeed(ReqLine, ProdOrder, RoutingNo, RoutingRefNo, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransferCapNeed(ReqLine: Record "Requisition Line"; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; RoutingNo: Code[20]; RoutingRefNo: Integer; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeUpdateProdOrderLineQuantity(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReqLine: Record "Requisition Line"; Item: Record Item; var IsHandled: Boolean) - begin - OnBeforeUpdateProdOrderLineQuantity(ProdOrderLine, ReqLine, Item, IsHandled); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeUpdateProdOrderLineQuantity(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReqLine: Record "Requisition Line"; Item: Record Item; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeSetProdOrderLineBinCodeFromPlanningRtngLines(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReqLine: Record "Requisition Line"; Item: Record Item; var IsHandled: Boolean) - begin - OnBeforeSetProdOrderLineBinCodeFromPlanningRtngLines(ProdOrder, ProdOrderLine, ReqLine, Item, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeSetProdOrderLineBinCodeFromPlanningRtngLines(ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReqLine: Record "Requisition Line"; Item: Record Item; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeUpdateComponentLink(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - OnBeforeUpdateComponentLink(ProdOrderLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeUpdateComponentLink(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCarryOutToReqWkshOnAfterPlanningCompInsert(var PlanningComponent: Record "Planning Component"; PlanningComponent2: Record "Planning Component") begin end; -#if not CLEAN27 - internal procedure RunOnCarryOutToReqWkshOnAfterPlanningRoutingLineInsert(var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; PlanningRoutingLine2: Record Microsoft.Manufacturing.Routing."Planning Routing Line") - begin - OnCarryOutToReqWkshOnAfterPlanningRoutingLineInsert(PlanningRoutingLine, PlanningRoutingLine2); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCarryOutToReqWkshOnAfterPlanningRoutingLineInsert(var PlanningRoutingLine: Record Microsoft.Manufacturing.Routing."Planning Routing Line"; PlanningRoutingLine2: Record Microsoft.Manufacturing.Routing."Planning Routing Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCarryOutToReqWkshOnBeforeReqLineInsert(var ReqLine: Record "Requisition Line"; var ReqWkshTempName: Code[10]; var ReqJournalName: Code[10]; var LineNo: Integer); begin end; -#if not CLEAN27 - internal procedure RunOnInsertProdOrderWithReqLine(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var RequisitionLine: Record "Requisition Line") - begin - OnInsertProdOrderWithReqLine(ProductionOrder, RequisitionLine); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderWithReqLine(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var RequisitionLine: Record "Requisition Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnInsertProdOrderLineWithReqLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RequisitionLine: Record "Requisition Line") - begin - OnInsertProdOrderLineWithReqLine(ProdOrderLine, RequisitionLine); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderLineWithReqLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RequisitionLine: Record "Requisition Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnInsertProdOrderLineOnBeforeProdOrderLineInit(var ReqLine: Record "Requisition Line"; var Item: Record Item) - begin - OnInsertProdOrderLineOnBeforeProdOrderLineInit(ReqLine, Item); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderLineOnBeforeProdOrderLineInit(var ReqLine: Record "Requisition Line"; var Item: Record Item) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnInsertTransLineWithReqLine(var TransferLine: Record "Transfer Line"; var RequisitionLine: Record "Requisition Line"; var NextLineNo: Integer) begin end; -#if not CLEAN27 - internal procedure RunOnInsertProdOrderLineOnAfterTransferRouting(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RefreshProdOrderLine: Boolean) - begin - OnInsertProdOrderLineOnAfterTransferRouting(ProdOrderLine, RefreshProdOrderLine); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderLineOnAfterTransferRouting(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RefreshProdOrderLine: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnInsertProdOrderLineOnAfterProdOrderLineInsert(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RequisitionLine: Record "Requisition Line") - begin - OnInsertProdOrderLineOnAfterProdOrderLineInsert(ProdOrderLine, RequisitionLine); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderLineOnAfterProdOrderLineInsert(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RequisitionLine: Record "Requisition Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnInsertProdOrderOnBeforeProdOrderInit(var ReqLine: Record "Requisition Line") - begin - OnInsertProdOrderOnBeforeProdOrderInit(ReqLine); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderOnBeforeProdOrderInit(var ReqLine: Record "Requisition Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnInsertProdOrderOnAfterFindTempProdOrder(var ReqLine: Record "Requisition Line"; var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var HeaderExists: Boolean; var Item: Record Item) - begin - OnInsertProdOrderOnAfterFindTempProdOrder(ReqLine, ProdOrder, HeaderExists, Item); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderOnAfterFindTempProdOrder(var ReqLine: Record "Requisition Line"; var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; var HeaderExists: Boolean; var Item: Record Item) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnInsertProdOrderOnAfterProdOrderInsert(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ReqLine: Record "Requisition Line") - begin - OnInsertProdOrderOnAfterProdOrderInsert(ProdOrder, ReqLine); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderOnAfterProdOrderInsert(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ReqLine: Record "Requisition Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnInsertProdOrderOnBeforeProdOrderInsert(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ReqLine: Record "Requisition Line") - begin - OnInsertProdOrderOnBeforeProdOrderInsert(ProdOrder, ReqLine); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderOnBeforeProdOrderInsert(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ReqLine: Record "Requisition Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPurchOrderChgAndResheduleOnAfterGetPurchHeader(var PurchaseHeader: Record "Purchase Header"; var PurchaseLine: Record "Purchase Line"; var RequisitionLine: Record "Requisition Line") @@ -1193,57 +753,9 @@ codeunit 99000813 "Carry Out Action" begin end; -#if not CLEAN27 - internal procedure RunOnTransferBOMOnBeforeProdOrderComp2Init(var PlanningComponent: Record "Planning Component") - begin - OnTransferBOMOnBeforeProdOrderComp2Init(PlanningComponent); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferBOMOnBeforeProdOrderComp2Init(var PlanningComponent: Record "Planning Component") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnAsmOrderChgAndResheduleOnBeforeAsmHeaderModify(var ReqLine: Record "Requisition Line"; var AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - OnAsmOrderChgAndResheduleOnBeforeAsmHeaderModify(ReqLine, AssemblyHeader); - end; - [Obsolete('Moved to codeunit AsmCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAsmOrderChgAndResheduleOnBeforeAsmHeaderModify(var ReqLine: Record "Requisition Line"; var AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnProdOrderChgAndResheduleOnAfterValidateQuantity(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RequisitionLine: Record "Requisition Line") - begin - OnProdOrderChgAndResheduleOnAfterValidateQuantity(ProdOrderLine, RequisitionLine); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnProdOrderChgAndResheduleOnAfterValidateQuantity(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RequisitionLine: Record "Requisition Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnProdOrderChgAndResheduleOnBeforeProdOrderModify(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; RequisitionLine: Record "Requisition Line") - begin - OnProdOrderChgAndResheduleOnBeforeProdOrderModify(ProductionOrder, ProdOrderLine, RequisitionLine); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnProdOrderChgAndResheduleOnBeforeProdOrderModify(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; RequisitionLine: Record "Requisition Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnInsertTransHeaderOnBeforeTransHeaderInsert(var TransHeader: Record "Transfer Header"; ReqLine: Record "Requisition Line") @@ -1270,106 +782,22 @@ codeunit 99000813 "Carry Out Action" begin end; -#if not CLEAN27 - internal procedure RunOnInsertAsmHeaderOnBeforeAsmHeaderInsert(var AsmHeader: Record Microsoft.Assembly.Document."Assembly Header"; ReqLine: Record "Requisition Line"); - begin - OnInsertAsmHeaderOnBeforeAsmHeaderInsert(AsmHeader, ReqLine); - end; - - [Obsolete('Moved to codeunit AsmCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertAsmHeaderOnBeforeAsmHeaderInsert(var AsmHeader: Record Microsoft.Assembly.Document."Assembly Header"; ReqLine: Record "Requisition Line"); - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnInsertAsmHeaderOnAfterAsmHeaderInsert(var AsmHeader: Record Microsoft.Assembly.Document."Assembly Header"; ReqLine: Record "Requisition Line"); - begin - OnInsertAsmHeaderOnAfterAsmHeaderInsert(AsmHeader, ReqLine); - end; - [Obsolete('Moved to codeunit AsmCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertAsmHeaderOnAfterAsmHeaderInsert(var AsmHeader: Record Microsoft.Assembly.Document."Assembly Header"; ReqLine: Record "Requisition Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPrintTransferOrderOnBeforePrintWithDialogWithCheckForCust(var ReportSelections: Record "Report Selections") begin end; -#if not CLEAN27 - internal procedure RunOnCarryOutActionsFromProdOrderOnAfterCalcPrintOrder(var PrintOrder2: Boolean; ProdOrderChoice: Option) - begin - OnCarryOutActionsFromProdOrderOnAfterCalcPrintOrder(PrintOrder2, ProdOrderChoice); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCarryOutActionsFromProdOrderOnAfterCalcPrintOrder(var PrintOrder: Boolean; ProdOrderChoice: Option) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnCarryOutActionsFromAssemblyOrderOnAfterCalcPrintOrder(var PrintOrder2: Boolean; AsmOrderChoice: Enum "Planning Create Assembly Order") - begin - OnCarryOutActionsFromAssemblyOrderOnAfterCalcPrintOrder(PrintOrder2, AsmOrderChoice); - end; - - [Obsolete('Moved to codeunit AsmCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCarryOutActionsFromAssemblyOrderOnAfterCalcPrintOrder(var PrintOrder: Boolean; AsmOrderChoice: Enum "Planning Create Assembly Order") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnInsertProductionOrderOnProdOrderChoiceCaseElse(ProdOrderChoice: Enum Microsoft.Manufacturing.Document."Planning Create Prod. Order") - begin - OnInsertProductionOrderOnProdOrderChoiceCaseElse(ProdOrderChoice); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProductionOrderOnProdOrderChoiceCaseElse(ProdOrderChoice: Enum Microsoft.Manufacturing.Document."Planning Create Prod. Order") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCarryOutActionsFromTransOrderOnBeforeTransOrderChgAndReshedule(ReqLine: Record "Requisition Line"; PrintOrder: Boolean; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnInsertProdOrderLineOnBeforeGetBinCode(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReqLine: Record "Requisition Line") - begin - OnInsertProdOrderLineOnBeforeGetBinCode(ProdOrderLine, ReqLine); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderLineOnBeforeGetBinCode(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ReqLine: Record "Requisition Line") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnInsertProdOrderOnProdOrderChoiceNotFirmPlannedPrint(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderChoice: Enum Microsoft.Manufacturing.Document."Planning Create Prod. Order"; var IsHandled: Boolean) - begin - OnInsertProdOrderOnProdOrderChoiceNotFirmPlannedPrint(ProdOrder, ProdOrderChoice, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderOnProdOrderChoiceNotFirmPlannedPrint(var ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderChoice: Enum Microsoft.Manufacturing.Document."Planning Create Prod. Order"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCarryOutActionsFromTransOrderOnBeforeInsertTransLine(ReqLine: Record "Requisition Line"; PrintOrder: Boolean; var IsHandled: Boolean) @@ -1401,62 +829,14 @@ codeunit 99000813 "Carry Out Action" begin end; -#if not CLEAN27 - internal procedure RunOnTransferBOMOnAfterCopyProdBOMComments(var PlanningComponent: Record "Planning Component"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnTransferBOMOnAfterCopyProdBOMComments(PlanningComponent, ProdOrderComponent); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferBOMOnAfterCopyProdBOMComments(var PlanningComponent: Record "Planning Component"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnInsertProdOrderLineOnBeforeValidateUnitCost(var RequisitionLine: Record "Requisition Line"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; Item: Record Item) - begin - OnInsertProdOrderLineOnBeforeValidateUnitCost(RequisitionLine, ProductionOrder, ProdOrderLine, Item); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderLineOnBeforeValidateUnitCost(var RequisitionLine: Record "Requisition Line"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; Item: Record Item) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeRun(var Rec: Record "Requisition Line") begin end; -#if not CLEAN27 - internal procedure RunOnInsertProdOrderLineOnBeforeModifyProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RequisitionLine: Record "Requisition Line") - begin - OnInsertProdOrderLineOnBeforeModifyProdOrderLine(ProdOrderLine, RequisitionLine); - end; - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnInsertProdOrderLineOnBeforeModifyProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RequisitionLine: Record "Requisition Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnCollectProdOrderForPrinting(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order") - begin - OnCollectProdOrderForPrinting(ProductionOrder); - end; - - [Obsolete('Moved to codeunit MfgCarryOutAction', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCollectProdOrderForPrinting(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnTrySourceTypeForAssembly(var RequisitionLine: Record "Requisition Line"; TryChoice: Option; var AssemblyExist: Boolean; var TempDocumentEntry: Record "Document Entry" temporary) diff --git a/src/Layers/W1/BaseApp/Inventory/Requisition/GetActionMessages.Report.al b/src/Layers/W1/BaseApp/Inventory/Requisition/GetActionMessages.Report.al index 264f9ea3a4b..f3c3dbcbda3 100644 --- a/src/Layers/W1/BaseApp/Inventory/Requisition/GetActionMessages.Report.al +++ b/src/Layers/W1/BaseApp/Inventory/Requisition/GetActionMessages.Report.al @@ -219,13 +219,6 @@ report 99001023 "Get Action Messages" CurrWorksheetName := WorksheetName; end; -#if not CLEAN27 - [Obsolete('Replaced by UpdateActionMessageList due to extending ForBin to Code20', '27.0')] - procedure UpdateActionMsgList(ForType: Integer; ForSubtype: Integer; ForID: Code[20]; ForBatchName: Code[10]; ForProdOrderLine: Integer; ForRefNo: Integer; ForLocation: Code[10]; ForBin: Code[10]; ForVariant: Code[10]; ForItem: Code[20]; OrderDate: Date) - begin - UpdateActionMessageList(ForType, ForSubtype, ForID, ForBatchName, ForProdOrderLine, ForRefNo, ForLocation, ForBin, ForVariant, ForItem, OrderDate); - end; -#endif procedure UpdateActionMessageList(ForType: Integer; ForSubtype: Integer; ForID: Code[20]; ForBatchName: Code[10]; ForProdOrderLine: Integer; ForRefNo: Integer; ForLocation: Code[10]; ForBin: Code[20]; ForVariant: Code[10]; ForItem: Code[20]; OrderDate: Date) begin diff --git a/src/Layers/W1/BaseApp/Inventory/Requisition/GetUnplannedDemand.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Requisition/GetUnplannedDemand.Codeunit.al index a416cabcf51..03936bed8c8 100644 --- a/src/Layers/W1/BaseApp/Inventory/Requisition/GetUnplannedDemand.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Requisition/GetUnplannedDemand.Codeunit.al @@ -23,10 +23,6 @@ codeunit 5520 "Get Unplanned Demand" TableNo = "Unplanned Demand"; trigger OnRun() -#if not CLEAN27 - var - ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; -#endif begin if IncludeMetDemandForSpecificSalesOrderNo <> '' then SetFilterToSpecificSalesOrder(); @@ -38,11 +34,6 @@ codeunit 5520 "Get Unplanned Demand" SalesLine.SetFilter("Document Type", '%1|%2', SalesLine."Document Type"::Order, SalesLine."Document Type"::"Return Order"); JobPlanningLine.SetRange(Status, JobPlanningLine.Status::Order); RecordCounter := SalesLine.Count() + JobPlanningLine.Count(); -#if not CLEAN27 - ProdOrderComp.SetFilter( - Status, '%1|%2|%3', ProdOrderComp.Status::Planned, ProdOrderComp.Status::"Firm Planned", ProdOrderComp.Status::Released); - OnBeforeOpenPlanningWindow(RecordCounter, ProdOrderComp); -#endif OnBeforeOpenWindow(RecordCounter); OpenWindow(ProgressMsg, RecordCounter); @@ -561,13 +552,6 @@ codeunit 5520 "Get Unplanned Demand" begin end; -#if not CLEAN27 - [Obsolete('Replaced by event OnBeforeOpenWindow', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeOpenPlanningWindow(var RecordCounter: Integer; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeOpenWindow(var RecordCounter: Integer) @@ -584,31 +568,7 @@ codeunit 5520 "Get Unplanned Demand" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeGetUnplannedProdOrderComp(var UnplannedDemand: Record "Unplanned Demand"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"); - begin - OnBeforeGetUnplannedProdOrderComp(UnplannedDemand, ProdOrderComponent); - end; - [Obsolete('Moved to codeunit ProdOrderLinePlanning', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetUnplannedProdOrderComp(var UnplannedDemand: Record "Unplanned Demand"; var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"); - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeGetUnplannedAsmLine(var UnplannedDemand: Record "Unplanned Demand"; var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"); - begin - OnBeforeGetUnplannedAsmLine(UnplannedDemand, AssemblyLine); - end; - - [Obsolete('Moved to codeunit AssemblyLinePlanning', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetUnplannedAsmLine(var UnplannedDemand: Record "Unplanned Demand"; var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"); - begin - end; -#endif [IntegrationEvent(false, false)] @@ -621,36 +581,12 @@ codeunit 5520 "Get Unplanned Demand" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeGetProdOrderCompNeededQty(ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NeededQty: Decimal; var IsHandled: Boolean); - begin - OnBeforeGetProdOrderCompNeededQty(ProdOrderComponent, NeededQty, IsHandled); - end; - - [Obsolete('Moved to codeunit ProdOrderLinePlanning', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeGetProdOrderCompNeededQty(ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NeededQty: Decimal; var IsHandled: Boolean); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnCalcNeededDemandsOnAfterCalcForceIncludeDemand(var UnplannedDemand: Record "Unplanned Demand"; var ForceIncludeDemand: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnGetUnplannedAsmLineOnAfterInsertUnplannedDemand(var UnplannedDemand: Record "Unplanned Demand") - begin - OnGetUnplannedAsmLineOnAfterInsertUnplannedDemand(UnplannedDemand); - end; - - [Obsolete('Moved to codeunit AssemblyLinePlanning', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetUnplannedAsmLineOnAfterInsertUnplannedDemand(var UnplannedDemand: Record "Unplanned Demand") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnGetUnplannedSalesLineOnBeforeCheckDemandQtyBase(var SalesLine: Record "Sales Line"; var IsHandled: Boolean) @@ -668,75 +604,15 @@ codeunit 5520 "Get Unplanned Demand" begin end; -#if not CLEAN27 - internal procedure RunOnGetUnplannedProdOrderCompOnAfterCalcNeedInsertUnplannedDemand(var UnplannedDemand: Record "Unplanned Demand"; var ProdOrderComp2: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NeedInsertUnplannedDemand: Boolean) - begin - OnGetUnplannedProdOrderCompOnAfterCalcNeedInsertUnplannedDemand(UnplannedDemand, ProdOrderComp2, NeedInsertUnplannedDemand); - end; - - [Obsolete('Moved to codeunit ProdOrderLinePlanning', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetUnplannedProdOrderCompOnAfterCalcNeedInsertUnplannedDemand(var UnplannedDemand: Record "Unplanned Demand"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var NeedInsertUnplannedDemand: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnGetUnplannedProdOrderCompOnAfterInsertUnplannedDemand(var UnplannedDemand: Record "Unplanned Demand"; var ProdOrderComp2: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnGetUnplannedProdOrderCompOnAfterInsertUnplannedDemand(UnplannedDemand, ProdOrderComp2); - end; - [Obsolete('Moved to codeunit ProdOrderLinePlanning', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetUnplannedProdOrderCompOnAfterInsertUnplannedDemand(var UnplannedDemand: Record "Unplanned Demand"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnGetUnplannedProdOrderCompOnAfterInsertProdOrderCompLine(var UnplannedDemand: Record "Unplanned Demand"; var ProdOrderComp2: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnGetUnplannedProdOrderCompOnAfterInsertProdOrderCompLine(UnplannedDemand, ProdOrderComp2); - end; - - [Obsolete('Moved to codeunit ProdOrderLinePlanning', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetUnplannedProdOrderCompOnAfterInsertProdOrderCompLine(var UnplannedDemand: Record "Unplanned Demand"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterSetFilterToSpecificSalesOrder(ItemFilter: Text) begin end; -#if not CLEAN27 - internal procedure RunOnInsertAsmLineOnBeforeInsert(var UnplannedDemand: Record "Unplanned Demand"; AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line") - begin - OnInsertAsmLineOnBeforeInsert(UnplannedDemand, AssemblyLine); - end; - [Obsolete('Moved to codeunit AssemblyLinePlanning', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertAsmLineOnBeforeInsert(var UnplannedDemand: Record "Unplanned Demand"; AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnInsertProdOrderCompLineOnBeforeInsert(var UnplannedDemand: Record "Unplanned Demand"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnInsertProdOrderCompLineOnBeforeInsert(UnplannedDemand, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit ProdOrderLinePlanning', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnInsertProdOrderCompLineOnBeforeInsert(var UnplannedDemand: Record "Unplanned Demand"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnInsertSalesLineOnBeforeInsert(var UnplannedDemand: Record "Unplanned Demand"; SalesLine: Record "Sales Line") diff --git a/src/Layers/W1/BaseApp/Inventory/Requisition/OrderPlanningMgt.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Requisition/OrderPlanningMgt.Codeunit.al index 387890be0b1..3b260f06b3f 100644 --- a/src/Layers/W1/BaseApp/Inventory/Requisition/OrderPlanningMgt.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Requisition/OrderPlanningMgt.Codeunit.al @@ -520,18 +520,6 @@ codeunit 5522 "Order Planning Mgt." begin end; -#if not CLEAN27 - internal procedure RunOnBeforeReqLineModify(var RequisitionLine: Record "Requisition Line"; RequisitionLine2: Record "Requisition Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnBeforeReqLineModify(RequisitionLine, RequisitionLine2, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgOrderPlanningMgt', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeReqLineModify(var RequisitionLine: Record "Requisition Line"; RequisitionLine2: Record "Requisition Line"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeRunGetUnplannedDemand(var UnplannedDemand: Record "Unplanned Demand"; var IsHandled: Boolean) diff --git a/src/Layers/W1/BaseApp/Inventory/Requisition/ReqLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Requisition/ReqLineReserve.Codeunit.al index d6bc7545eb2..57cdf88c0e6 100644 --- a/src/Layers/W1/BaseApp/Inventory/Requisition/ReqLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Requisition/ReqLineReserve.Codeunit.al @@ -322,25 +322,7 @@ codeunit 99000833 "Req. Line-Reserve" Database::"Purchase Line", PurchaseLine."Document Type".AsInteger(), PurchaseLine."Document No.", '', 0, PurchaseLine."Line No."); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit ProdOrderLineReserve', '27.0')] - procedure TransferPlanningLineToPOLine(var OldRequisitionLine: Record "Requisition Line"; var NewProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; TransferQty: Decimal; TransferAll: Boolean) - var - ProdOrderLineReserve: Codeunit Microsoft.Manufacturing.Document."Prod. Order Line-Reserve"; - begin - ProdOrderLineReserve.TransferPlanningLineToPOLine(OldRequisitionLine, NewProdOrderLine, TransferQty, TransferAll); - end; -#endif -#if not CLEAN27 - [Obsolete('Moved to codeunit AssemblyHeaderReserve', '27.0')] - procedure TransferPlanningLineToAsmHdr(var OldRequisitionLine: Record "Requisition Line"; var NewAssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; TransferQty: Decimal; TransferAll: Boolean) - var - AssemblyHeaderReserve: Codeunit Microsoft.Assembly.Document."Assembly Header-Reserve"; - begin - AssemblyHeaderReserve.TransferPlanningLineToAsmHdr(OldRequisitionLine, NewAssemblyHeader, TransferQty, TransferAll); - end; -#endif procedure TransferReqLineToTransLine(var RequisitionLine: Record "Requisition Line"; var TransferLine: Record "Transfer Line"; TransferQty: Decimal; TransferAll: Boolean) var @@ -733,36 +715,12 @@ codeunit 99000833 "Req. Line-Reserve" begin end; -#if not CLEAN27 - internal procedure RunOnTransferReqLineToAsmHdrOnBeforeTransfer(var OldReservEntry: Record "Reservation Entry"; var OldReqLine: Record "Requisition Line"; var AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - OnTransferReqLineToAsmHdrOnBeforeTransfer(OldReservEntry, OldReqLine, AssemblyHeader); - end; - - [Obsolete('Moved to codeunit AssemblyHeaderReserve', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferReqLineToAsmHdrOnBeforeTransfer(var OldReservEntry: Record "Reservation Entry"; var OldReqLine: Record "Requisition Line"; var AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnTransferReqLineToPurchLineOnBeforeTransfer(var OldReservEntry: Record "Reservation Entry"; var OldReqLine: Record "Requisition Line"; var PurchLine: Record "Purchase Line") begin end; -#if not CLEAN27 - internal procedure RunOnTransferReqLineToPOLineOnBeforeTransfer(var OldReservEntry: Record "Reservation Entry"; var OldReqLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - OnTransferReqLineToPOLineOnBeforeTransfer(OldReservEntry, OldReqLine, ProdOrderLine); - end; - - [Obsolete('Moved to codeunit ProdOrderLineReserve', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferReqLineToPOLineOnBeforeTransfer(var OldReservEntry: Record "Reservation Entry"; var OldReqLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnTransferReqLineToReqLineOnBeforeTransfer(var OldReservEntry: Record "Reservation Entry"; var OldReqLine: Record "Requisition Line"; var NewReqLine: Record "Requisition Line") @@ -789,44 +747,13 @@ codeunit 99000833 "Req. Line-Reserve" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeTransferPlanningLineToPOLine(var OldRequisitionLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; TransferQty: Decimal; TransferAll: Boolean; var IsHandled: Boolean) - begin - OnBeforeTransferPlanningLineToPOLine(OldRequisitionLine, ProdOrderLine, TransferQty, TransferAll, IsHandled); - end; - - [Obsolete('Moved to codeunit ProdOrderLineReserve', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransferPlanningLineToPOLine(var OldRequisitionLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; TransferQty: Decimal; TransferAll: Boolean; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnTransferPlanningLineToPOLineOnBeforeCheckFields(var OldRequisitionLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; TransferQty: Decimal; TransferAll: Boolean; var IsHandled: Boolean) - begin - OnTransferPlanningLineToPOLineOnBeforeCheckFields(OldRequisitionLine, ProdOrderLine, TransferQty, TransferAll, IsHandled); - end; - [Obsolete('Moved to codeunit ProdOrderLineReserve', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransferPlanningLineToPOLineOnBeforeCheckFields(var OldRequisitionLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; TransferQty: Decimal; TransferAll: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnDeleteLineOnAfterCalcShouldExitForBlocked(var RequisitionLine: Record "Requisition Line"; var ShouldExitForBlocked: Boolean) begin end; -#if not CLEAN27 - [Obsolete('Event is not used', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; ReqLine: Record "Requisition Line") - begin - end; -#endif // codeunit Create Reserv. Entry diff --git a/src/Layers/W1/BaseApp/Inventory/Requisition/RequisitionLine.Table.al b/src/Layers/W1/BaseApp/Inventory/Requisition/RequisitionLine.Table.al index 24f99645e05..7dee01ad107 100644 --- a/src/Layers/W1/BaseApp/Inventory/Requisition/RequisitionLine.Table.al +++ b/src/Layers/W1/BaseApp/Inventory/Requisition/RequisitionLine.Table.al @@ -38,10 +38,6 @@ table 246 "Requisition Line" DataCaptionFields = "Journal Batch Name", "Line No."; DrillDownPageID = "Requisition Lines"; LookupPageID = "Requisition Lines"; -#if not CLEAN28 - Permissions = TableData Microsoft.Manufacturing.Routing."Routing Header" = r, - TableData Microsoft.Manufacturing.ProductionBOM."Production BOM Header" = r; -#endif DataClassification = CustomerContent; fields diff --git a/src/Layers/W1/BaseApp/Inventory/RoleCenters/MyItems.Query.al b/src/Layers/W1/BaseApp/Inventory/RoleCenters/MyItems.Query.al index 5ee3f6ab646..8b137891791 100644 --- a/src/Layers/W1/BaseApp/Inventory/RoleCenters/MyItems.Query.al +++ b/src/Layers/W1/BaseApp/Inventory/RoleCenters/MyItems.Query.al @@ -1,46 +1 @@ -#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.Inventory.Item; -query 9152 "My Items" -{ - Caption = 'My Items'; - ObsoleteReason = 'Not used, replaced by Costing Overview functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - elements - { - dataitem(My_Item; "My Item") - { - filter(User_ID; "User ID") - { - } - column(Item_No; "Item No.") - { - } - dataitem(Prod_Order_Line; Microsoft.Manufacturing.Document."Prod. Order Line") - { - DataItemLink = "Item No." = My_Item."Item No."; - filter(Date_Filter; "Date Filter") - { - } - column(Status; Status) - { - } - column(Remaining_Quantity; "Remaining Quantity") - { - } - } - } - } - - trigger OnBeforeOpen() - begin - SetRange(User_ID, UserId); - end; -} -#endif diff --git a/src/Layers/W1/BaseApp/Inventory/Setup/InventorySetup.Table.al b/src/Layers/W1/BaseApp/Inventory/Setup/InventorySetup.Table.al index f579eb07441..f88406f1d8e 100644 --- a/src/Layers/W1/BaseApp/Inventory/Setup/InventorySetup.Table.al +++ b/src/Layers/W1/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/W1/BaseApp/Inventory/Tracking/GetDemandToReserve.Report.al b/src/Layers/W1/BaseApp/Inventory/Tracking/GetDemandToReserve.Report.al index 40f8d32803e..25a09033208 100644 --- a/src/Layers/W1/BaseApp/Inventory/Tracking/GetDemandToReserve.Report.al +++ b/src/Layers/W1/BaseApp/Inventory/Tracking/GetDemandToReserve.Report.al @@ -403,13 +403,6 @@ report 302 "Get Demand To Reserve" AutoAllocate := NewAutoAllocate; end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetDemand(var FilterItem: Record Item; var ReservationWkshBatch: Record "Reservation Wksh. Batch"; DemandType: Enum "Reservation Demand Type"; DateFilter: Text; VariantFilterFromBatch: Text; LocationFilterFromBatch: Text; ItemFilterFromBatch: Text; ReservedFromStock: Enum "Reservation From Stock"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnSalesOrderLineOnAfterGetRecordOnBeforeSetTempSalesLine(var OrderSalesLine: Record "Sales Line"; var IsHandled: Boolean) begin diff --git a/src/Layers/W1/BaseApp/Inventory/Tracking/InventoryProfileOffsetting.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Tracking/InventoryProfileOffsetting.Codeunit.al index b1ae1bf3a86..6eefbb200bd 100644 --- a/src/Layers/W1/BaseApp/Inventory/Tracking/InventoryProfileOffsetting.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Tracking/InventoryProfileOffsetting.Codeunit.al @@ -99,26 +99,11 @@ codeunit 99000854 "Inventory Profile Offsetting" PlanningParametersTakenFromItemCardTxt: Label 'Item %3 at Location %4 was planned using the planning parameters from the Item Card, because no stockkeeping unit exists and %1 is set to %2.', Comment = '%1: Field Caption, %2: Missing SKU Policy, %3: Item No., %4: Location Code'; SKUNotPlannedTxt: Label 'Item %1 at Location %2 was not planned, because no stockkeeping unit exists and %3 is set to %4.', Comment = '%1: Item No., %2: Location Code, %3: Field Caption, %4: Missing SKU Policy'; -#if not CLEAN27 - [Obsolete('Replaced by same procedure without parameter Manufacturing Setup', '27.0')] - procedure CalculatePlanFromWorksheet(var Item: Record Item; ManufacturingSetup2: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; TemplateName: Code[10]; WorksheetName: Code[10]; OrderDate: Date; ToDate: Date; MRPPlanning: Boolean; RespectPlanningParm: Boolean) - begin - CalculatePlanFromWorksheet(Item, TemplateName, WorksheetName, OrderDate, ToDate, MRPPlanning, RespectPlanningParm); - end; -#endif procedure CalculatePlanFromWorksheet(var Item: Record Item; TemplateName: Code[10]; WorksheetName: Code[10]; OrderDate: Date; ToDate: Date; MRPPlanning: Boolean; RespectPlanningParm: Boolean) var InventoryProfile: array[2] of Record "Inventory Profile" temporary; -#if not CLEAN27 - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; -#endif - begin -#if not CLEAN27 - ManufacturingSetup.GetRecordOnce(); - OnBeforeCalculatePlanFromWorksheet( - Item, ManufacturingSetup, TemplateName, WorksheetName, OrderDate, ToDate, MRPPlanning, RespectPlanningParm); -#endif + begin OnBeforeCalculatePlanFromWorksheet2( Item, TemplateName, WorksheetName, OrderDate, ToDate, MRPPlanning, RespectPlanningParm); @@ -5020,18 +5005,6 @@ codeunit 99000854 "Inventory Profile Offsetting" begin end; -#if not CLEAN27 - internal procedure RunOnAfterGetRoutingFromProdOrder(var RequisitionLine: Record "Requisition Line") - begin - OnAfterGetRoutingFromProdOrder(RequisitionLine); - end; - - [Obsolete('Moved to codeunit MfgInvtProfileOffsetting', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetRoutingFromProdOrder(var RequisitionLine: Record "Requisition Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterInitSupply(var InventoryProfile: Record "Inventory Profile"; var StockkeepingUnit: Record "Stockkeeping Unit"; Item: Record Item) @@ -5108,18 +5081,6 @@ codeunit 99000854 "Inventory Profile Offsetting" begin end; -#if not CLEAN27 - internal procedure RunOnAfterSetProdOrder(var ReqLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var InventoryProfile: Record "Inventory Profile") - begin - OnAfterSetProdOrder(ReqLine, ProdOrderLine, InventoryProfile); - end; - - [Obsolete('Moved to codeunit MfgInvtProfileOffsetting', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterSetProdOrder(var ReqLine: Record "Requisition Line"; var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var InventoryProfile: Record "Inventory Profile") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterSetPurchase(var PurchaseLine: Record "Purchase Line"; ReqLine: Record "Requisition Line"; var InventoryProfile: Record "Inventory Profile") @@ -5335,13 +5296,6 @@ codeunit 99000854 "Inventory Profile Offsetting" begin end; -#if not CLEAN27 - [Obsolete('Replaced by event OnBeforeCalculatePlanFromWorksheet2', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCalculatePlanFromWorksheet(var Item: Record Item; ManufacturingSetup2: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; TemplateName: Code[10]; WorksheetName: Code[10]; OrderDate: Date; ToDate: Date; MRPPlanning: Boolean; RespectPlanningParm: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCalculatePlanFromWorksheet2(var Item: Record Item; TemplateName: Code[10]; WorksheetName: Code[10]; OrderDate: Date; ToDate: Date; MRPPlanning: Boolean; RespectPlanningParm: Boolean) @@ -5549,18 +5503,6 @@ codeunit 99000854 "Inventory Profile Offsetting" begin end; -#if not CLEAN27 - internal procedure RunOnAfterGetComponents(var RequisitionLine: Record "Requisition Line"); - begin - OnAfterGetComponents(RequisitionLine); - end; - - [Obsolete('Moved to codeunit MfgInvtProfileOffsetting', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetComponents(var RequisitionLine: Record "Requisition Line"); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeInsertInitialSafetyStockWarningSupply(var SupplyInvtProfile: Record "Inventory Profile"; var LastAvailableInventory: Decimal; var LastProjectedInventory: Decimal; PlanningStartDate: Date; RespectPlanningParm: Boolean; var IsReorderPointPlanning: Boolean; var IsHandled: Boolean) @@ -5789,18 +5731,6 @@ codeunit 99000854 "Inventory Profile Offsetting" begin end; -#if not CLEAN27 - internal procedure RunOnFindCombinationOnBeforeCreateTempSKUForLocation(var Item: Record Item; var IsHandled: Boolean) - begin - OnFindCombinationOnBeforeCreateTempSKUForLocation(Item, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgInvtProfileOffsetting', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnFindCombinationOnBeforeCreateTempSKUForLocation(var Item: Record Item; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPlanItemNextStateCreateSupplyOnAfterCalcNewSupplyDate(var NewSupplyDate: Date; var TempStockkeepingUnit: Record "Stockkeeping Unit" temporary; var SupplyInvtProfile: Record "Inventory Profile") @@ -5813,18 +5743,6 @@ codeunit 99000854 "Inventory Profile Offsetting" begin end; -#if not CLEAN27 - internal procedure RunOnTransProdOrderToProfileOnBeforeProcessLine(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ShouldProcess: Boolean) - begin - OnTransProdOrderToProfileOnBeforeProcessLine(ProdOrderLine, ShouldProcess); - end; - - [Obsolete('Moved to codeunit MfgInvtProfileOffsetting', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnTransProdOrderToProfileOnBeforeProcessLine(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var ShouldProcess: Boolean) - begin - end; -#endif @@ -5977,18 +5895,6 @@ codeunit 99000854 "Inventory Profile Offsetting" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeTransProdOrderToProfile(var InventoryProfile: Record "Inventory Profile"; var Item: Record Item; ToDate: Date; var IsHandled: Boolean) - begin - OnBeforeTransProdOrderToProfile(InventoryProfile, Item, ToDate, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgInvtProfileOffsetting', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeTransProdOrderToProfile(var InventoryProfile: Record "Inventory Profile"; var Item: Record Item; ToDate: Date; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnGetComponentsOnNewActionMessage(var RequisitionLine: Record "Requisition Line") diff --git a/src/Layers/W1/BaseApp/Inventory/Tracking/ItemTrackingDocManagement.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Tracking/ItemTrackingDocManagement.Codeunit.al index 3844d496636..9b2fc0de047 100644 --- a/src/Layers/W1/BaseApp/Inventory/Tracking/ItemTrackingDocManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Tracking/ItemTrackingDocManagement.Codeunit.al @@ -609,15 +609,6 @@ codeunit 6503 "Item Tracking Doc. Management" ShowItemTrackingForEntity(SourceType, SourceNo, ItemNo, VariantCode, LocationCode, DummyItemTrackingSetup); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Mfg. Item Tracking Mgt.', '27.0')] - procedure ShowItemTrackingForProdOrderComp(Type: Integer; ID: Code[20]; ProdOrderLine: Integer; RefNo: Integer): Boolean - var - MfgItemTrackingMgt: Codeunit "Mfg. Item Tracking Mgt."; - begin - exit(MfgItemTrackingMgt.ShowItemTrackingForProdOrderComp(Type, ID, ProdOrderLine, RefNo)); - end; -#endif internal procedure ShowItemTrackingForJobPlanningLine(Type: Integer; ID: Code[20]; RefNo: Integer): Boolean var diff --git a/src/Layers/W1/BaseApp/Inventory/Tracking/ReservationCheckDateConfl.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Tracking/ReservationCheckDateConfl.Codeunit.al index 3b847ed727f..daf1fff5be7 100644 --- a/src/Layers/W1/BaseApp/Inventory/Tracking/ReservationCheckDateConfl.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Tracking/ReservationCheckDateConfl.Codeunit.al @@ -133,45 +133,9 @@ codeunit 99000815 "Reservation-Check Date Confl." ReservMgt.AutoTrack(RequisitionLine."Quantity (Base)"); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit "Mfg. ReservCheckDateConfl"', '27.0')] - procedure ProdOrderLineCheck(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ForceRequest: Boolean) - var - MfgReservCheckDateConfl: Codeunit "Mfg. ReservCheckDateConfl"; - begin - MfgReservCheckDateConfl.ProdOrderLineCheck(ProdOrderLine, ForceRequest); - end; -#endif -#if not CLEAN27 - [Obsolete('Moved to codeunit "Mfg. ReservCheckDateConfl"', '27.0')] - procedure ProdOrderComponentCheck(ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ForceRequest: Boolean; IsCritical: Boolean): Boolean - var - MfgReservCheckDateConfl: Codeunit "Mfg. ReservCheckDateConfl"; - begin - exit(MfgReservCheckDateConfl.ProdOrderComponentCheck(ProdOrderComponent, ForceRequest, IsCritical)); - end; -#endif -#if not CLEAN27 - [Obsolete('Moved to codeunit "Asm. ReservCheckDateConfl"', '27.0')] - procedure AssemblyHeaderCheck(AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; ForceRequest: Boolean) - var - AsmReservCheckDateConfl: Codeunit "Asm. ReservCheckDateConfl"; - begin - AsmReservCheckDateConfl.AssemblyHeaderCheck(AssemblyHeader, ForceRequest); - end; -#endif -#if not CLEAN27 - [Obsolete('Moved to codeunit "Asm. ReservCheckDateConfl"', '27.0')] - procedure AssemblyLineCheck(AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; ForceRequest: Boolean) - var - AsmReservCheckDateConfl: Codeunit "Asm. ReservCheckDateConfl"; - begin - AsmReservCheckDateConfl.AssemblyLineCheck(AssemblyLine, ForceRequest); - end; -#endif procedure PlanningComponentCheck(PlanningComponent: Record "Planning Component"; ForceRequest: Boolean) var @@ -441,18 +405,6 @@ codeunit 99000815 "Reservation-Check Date Confl." OnSameProdOrderAutoReserve(FilterReservationEntry, Result); end; -#if not CLEAN27 - internal procedure RunOnBeforeCheckProdOrderLineDateConflict(DueDate: Date; var ForceRequest: Boolean; var ReservationEntry2: Record "Reservation Entry"; var IsHandled: Boolean) - begin - OnBeforeCheckProdOrderLineDateConflict(DueDate, ForceRequest, ReservationEntry2, IsHandled); - end; - - [Obsolete('Moved to codeunit "Mfg. ReservCheckDateConfl"', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCheckProdOrderLineDateConflict(DueDate: Date; var ForceRequest: Boolean; var ReservationEntry: Record "Reservation Entry"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeUpdateDate(var ReservationEntry: Record "Reservation Entry"; NewDate: Date; var IsHandled: Boolean) @@ -479,62 +431,14 @@ codeunit 99000815 "Reservation-Check Date Confl." begin end; -#if not CLEAN27 - internal procedure RunOnProdOrderLineCheckOnBeforeUpdateDate(var ReservationEntry2: Record "Reservation Entry"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - OnProdOrderLineCheckOnBeforeUpdateDate(ReservationEntry2, ProdOrderLine, IsHandled); - end; - - [Obsolete('Moved to codeunit "Mfg. ReservCheckDateConfl"', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnProdOrderLineCheckOnBeforeUpdateDate(var ReservationEntry: Record "Reservation Entry"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnProdOrderComponentCheckOnBeforeUpdateDate(var ReservationEntry2: Record "Reservation Entry"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var IsHandled: Boolean) - begin - OnProdOrderComponentCheckOnBeforeUpdateDate(ReservationEntry2, ProdOrderComp, IsHandled); - end; - [Obsolete('Moved to codeunit "Mfg. ReservCheckDateConfl"', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnProdOrderComponentCheckOnBeforeUpdateDate(var ReservationEntry: Record "Reservation Entry"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnPlanningComponentCheckOnBeforeUpdateDate(var ReservationEntry: Record "Reservation Entry"; PlanningComponent: Record "Planning Component"; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnAssemblyHeaderCheckOnBeforeUpdateDate(var ReservationEntry2: Record "Reservation Entry"; AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var IsHandled: Boolean) - begin - OnAssemblyHeaderCheckOnBeforeUpdateDate(ReservationEntry2, AssemblyHeader, IsHandled); - end; - - [Obsolete('Moved to codeunit AsmReservCheckDateConfl', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAssemblyHeaderCheckOnBeforeUpdateDate(var ReservationEntry: Record "Reservation Entry"; AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnAssemblyLineCheckOnBeforeUpdateDate(var ReservationEntry2: Record "Reservation Entry"; AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; var IsHandled: Boolean) - begin - OnAssemblyLineCheckOnBeforeUpdateDate(ReservationEntry2, AssemblyLine, IsHandled); - end; - - [Obsolete('Moved to codeunit AsmReservCheckDateConfl', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAssemblyLineCheckOnBeforeUpdateDate(var ReservationEntry: Record "Reservation Entry"; AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterDateConflict(var ReservationEntry: Record "Reservation Entry"; var Date: Date; var IsConflict: Boolean; var ForceRequest: Boolean) @@ -571,36 +475,12 @@ codeunit 99000815 "Reservation-Check Date Confl." begin end; -#if not CLEAN27 - internal procedure RunOnProdOrderComponentCheckOnBeforeIssueError(var ReservationEntry2: Record "Reservation Entry"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ForceRequest: Boolean; var IsHandled: Boolean) - begin - OnProdOrderComponentCheckOnBeforeIssueError(ReservationEntry2, ProdOrderComponent, ForceRequest, IsHandled); - end; - - [Obsolete('Moved to codeunit "Mfg. ReservCheckDateConfl"', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnProdOrderComponentCheckOnBeforeIssueError(var ReservationEntry: Record "Reservation Entry"; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var ForceRequest: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnItemJnlLineCheckOnBeforeIssueError(var ReservationEntry: Record "Reservation Entry"; ItemJournalLine: Record "Item Journal Line"; var ForceRequest: Boolean; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnAssemblyHeaderCheckOnBeforeIssueError(var ReservationEntry: Record "Reservation Entry"; AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var ForceRequest: Boolean; var IsHandled: Boolean) - begin - OnAssemblyHeaderCheckOnBeforeIssueError(ReservationEntry, AssemblyHeader, ForceRequest, IsHandled); - end; - - [Obsolete('Moved to codeunit AsmReservCheckDateConfl', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAssemblyHeaderCheckOnBeforeIssueError(var ReservationEntry: Record "Reservation Entry"; AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var ForceRequest: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnTransferLineCheckOutboundOnBeforeIssueError(var ReservationEntry: Record "Reservation Entry"; TransferLine: Record "Transfer Line"; var ForceRequest: Boolean; var IsHandled: Boolean) diff --git a/src/Layers/W1/BaseApp/Inventory/Transfer/TransGetDemandToReserve.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Transfer/TransGetDemandToReserve.Codeunit.al index edcf564a002..6bf48f12a7f 100644 --- a/src/Layers/W1/BaseApp/Inventory/Transfer/TransGetDemandToReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Transfer/TransGetDemandToReserve.Codeunit.al @@ -205,13 +205,6 @@ codeunit 99000846 "Trans. Get Demand To Reserve" until TempTransferLine.Next() = 0; end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetDemandOnBeforeSetTempTransferLine(var TransferLine: Record "Transfer Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnSyncTransferOrderLinesOnBeforeInsertReservationWkshLine(var ReservationWkshLine: Record "Reservation Wksh. Line"; var TempTransferLine: Record "Transfer Line" temporary; var DoInsertReservationWkshLine: Boolean) diff --git a/src/Layers/W1/BaseApp/Inventory/Transfer/TransferLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Inventory/Transfer/TransferLineReserve.Codeunit.al index 0fd198a2c51..64141620cb7 100644 --- a/src/Layers/W1/BaseApp/Inventory/Transfer/TransferLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Inventory/Transfer/TransferLineReserve.Codeunit.al @@ -1108,13 +1108,6 @@ codeunit 99000836 "Transfer Line-Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; TransferLine: Record "Transfer Line") - begin - end; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnIssueActionMessageOnSetSourceTypeFromSKU', '', false, false)] local procedure OnIssueActionMessageOnSetSourceTypeFromSKU(var ActionMessageEntry: Record "Action Message Entry"; SKU: Record "Stockkeeping Unit") begin diff --git a/src/Layers/W1/BaseApp/Invoicing/O365HTMLTemplMgt.Codeunit.al b/src/Layers/W1/BaseApp/Invoicing/O365HTMLTemplMgt.Codeunit.al index ae1e9a22d09..10ac9d0a12f 100644 --- a/src/Layers/W1/BaseApp/Invoicing/O365HTMLTemplMgt.Codeunit.al +++ b/src/Layers/W1/BaseApp/Invoicing/O365HTMLTemplMgt.Codeunit.al @@ -27,20 +27,6 @@ codeunit 2114 "O365 HTML Templ. Mgt." InvoiceFromTitleTxt: Label 'Invoice from %1', Comment = 'This is a mail title. %1 - company name'; EstimateFromTitleTxt: Label 'Estimate from %1', Comment = 'This is a mail title. %1 - company name'; -#if not CLEAN27 - [Obsolete('Replaced with CreateEmailBodyFromReportSelections that accepts a TempBlob as additional parameter.', '27.0')] - procedure CreateEmailBodyFromReportSelections(ReportSelections: Record "Report Selections"; RecordVariant: Variant; MailTo: Text; MailText: Text) OutputFileName: Text[250] - var - FileMgt: Codeunit "File Management"; - HTMLText: Text; - begin - OutputFileName := CopyStr(FileMgt.ServerTempFileName('html'), 1, 250); - - HTMLText := CreateHTMLTextFromReportSelections(ReportSelections, RecordVariant, MailTo, MailText); - - SaveHTML(OutputFileName, HTMLText); - end; -#endif /// /// Creates an email body from the report selections into TempBlob. diff --git a/src/Layers/W1/BaseApp/Manufacturing/Capacity/CapacityConstrainedResources.Page.al b/src/Layers/W1/BaseApp/Manufacturing/Capacity/CapacityConstrainedResources.Page.al index 22591181ec5..6848d8414be 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Capacity/CapacityConstrainedResources.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Capacity/CapacityConstrainedResources.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -67,56 +67,6 @@ page 99000866 "Capacity Constrained Resources" { area(reporting) { -#if not CLEAN27 - action("Work Center Load") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load'; - Image = "Report"; - RunObject = Report "Work Center Load"; - ToolTip = 'Get an overview of availability at the work center, such as the capacity, the allocated quantity, availability after order, and the load in percent.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Work Center Load/Bar") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load/Bar'; - Image = "Report"; - //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true' - //PromotedCategory = "Report"; - RunObject = Report "Work Center Load/Bar"; - ToolTip = 'View a list of work centers that are overloaded according to the plan. The efficiency or overloading is shown by efficiency bars.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Machine Center Load") - { - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load'; - Image = "Report"; - RunObject = Report "Machine Center Load"; - ToolTip = 'Get an overview of availability at the machine center, such as the capacity, the allocated quantity, availability after order, and the load in percent.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Machine Center Load/Bar") - { - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load/Bar'; - Image = "Report"; - //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true' - //PromotedCategory = "Report"; - RunObject = Report "Machine Center Load/Bar"; - ToolTip = 'View a list of machine centers that are overloaded according to the plan. The efficiency or overloading is shown by efficiency bars.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Work/Machine Center Load") { ApplicationArea = Manufacturing; @@ -130,20 +80,6 @@ page 99000866 "Capacity Constrained Resources" group(Category_Report) { Caption = 'Reports'; -#if not CLEAN27 - actionref("Work Center Load_Promoted"; "Work Center Load") - { - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - actionref("Machine Center Load_Promoted"; "Machine Center Load") - { - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif actionref("Work/Machine Center Load_Promoted"; "Work/Machine Center Load") { } diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/ChangeStatusonProdOrder.Page.al b/src/Layers/W1/BaseApp/Manufacturing/Document/ChangeStatusonProdOrder.Page.al index b0d03d60265..b0627567c6e 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/ChangeStatusonProdOrder.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/ChangeStatusonProdOrder.Page.al @@ -126,15 +126,6 @@ page 99000882 "Change Status on Prod. Order" OnAfterSet(ProdOrder, PostingDate, ReqUpdUnitCost, ProdOrderStatus, FirmPlannedStatusEditable, ReleasedStatusEditable, FinishedStatusEditable); end; -#if not CLEAN27 - [Obsolete('Replaced with namesake procedure with additional parameter.', '27.0')] - procedure ReturnPostingInfo(var Status: Enum "Production Order Status"; var PostingDate2: Date; var UpdUnitCost: Boolean) - var - DummyFinishOrderWithoutOutput: Boolean; - begin - ReturnPostingInfo(Status, PostingDate2, UpdUnitCost, DummyFinishOrderWithoutOutput); - end; -#endif procedure ReturnPostingInfo(var Status: Enum "Production Order Status"; var PostingDate2: Date; var UpdUnitCost: Boolean; var NewFinishOrderWithoutOutput: Boolean) var diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/CheckProdOrderStatus.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Document/CheckProdOrderStatus.Codeunit.al index bbe93f3c636..2f1a72520da 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/CheckProdOrderStatus.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/CheckProdOrderStatus.Codeunit.al @@ -46,16 +46,10 @@ codeunit 99000777 "Check Prod. Order Status" procedure CheckReceiptOrderStatus(var SalesLine: Record "Sales Line") var -#if not CLEAN27 - AddonIntegrManagement: Codeunit Microsoft.Inventory.AddOnIntegrManagement; -#endif IsHandled: Boolean; begin IsHandled := false; OnBeforeCheckReceiptOrderStatus(SalesLine, IsHandled); -#if not CLEAN27 - AddonIntegrManagement.RunOnBeforeCheckReceiptOrderStatus(SalesLine, IsHandled); -#endif if IsHandled then exit; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/FinishedProdOrderLines.Page.al b/src/Layers/W1/BaseApp/Manufacturing/Document/FinishedProdOrderLines.Page.al index fca75e11509..ab4c56ddfe7 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/FinishedProdOrderLines.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/FinishedProdOrderLines.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -148,16 +148,6 @@ page 99000868 "Finished Prod. Order Lines" ApplicationArea = Dimensions; Visible = false; } -#if not CLEAN27 - field("Standard Task Code"; Rec."Standard Task Code") - { - ApplicationArea = Manufacturing; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif } } } diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/FirmPlannedProdOrderLines.Page.al b/src/Layers/W1/BaseApp/Manufacturing/Document/FirmPlannedProdOrderLines.Page.al index 272920a2dde..49c139a9455 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/FirmPlannedProdOrderLines.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/FirmPlannedProdOrderLines.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -304,16 +304,6 @@ page 99000830 "Firm Planned Prod. Order Lines" Rec.ValidateShortcutDimCode(8, ShortcutDimCode[8]); end; } -#if not CLEAN27 - field("Standard Task Code"; Rec."Standard Task Code") - { - ApplicationArea = Manufacturing; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif } } } diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/PlannedProdOrderLines.Page.al b/src/Layers/W1/BaseApp/Manufacturing/Document/PlannedProdOrderLines.Page.al index d662b489352..90c93837973 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/PlannedProdOrderLines.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/PlannedProdOrderLines.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -296,16 +296,6 @@ page 99000814 "Planned Prod. Order Lines" Rec.ValidateShortcutDimCode(8, ShortcutDimCode[8]); end; } -#if not CLEAN27 - field("Standard Task Code"; Rec."Standard Task Code") - { - ApplicationArea = Manufacturing; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif } } } diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderAvailabilityMgt.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderAvailabilityMgt.Codeunit.al index e3bb8faaa05..bbefda601b4 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderAvailabilityMgt.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderAvailabilityMgt.Codeunit.al @@ -8,23 +8,14 @@ using Microsoft.Foundation.NoSeries; using Microsoft.Inventory.Availability; using Microsoft.Inventory.BOM; using Microsoft.Inventory.Item; -#if not CLEAN27 -using Microsoft.Inventory.Planning; -#endif using Microsoft.Inventory.Requisition; using Microsoft.Inventory.Tracking; using Microsoft.Manufacturing.Forecast; -#if not CLEAN27 -using Microsoft.Manufacturing.Reports; -#endif using Microsoft.Manufacturing.Setup; codeunit 99000875 "Prod. Order Availability Mgt." { var -#if not CLEAN27 - CalcItemAvailability: Codeunit "Calc. Item Availability"; -#endif ProductionTxt: Label 'Production'; ProdCompTxt: Label 'Prod. Comp.'; ProdDocumentTxt: Label 'Production %1', Comment = '%1 - status'; @@ -331,9 +322,6 @@ codeunit 99000875 "Prod. Order Availability Mgt." begin IsHandled := false; OnBeforeRunProductionOrderPage(ProductionOrder, IsHandled); -#if not CLEAN27 - CalcItemAvailability.RunOnBeforeRunProductionOrderPage(ProductionOrder, IsHandled); -#endif if IsHandled then exit; @@ -405,9 +393,6 @@ codeunit 99000875 "Prod. Order Availability Mgt." ReqLine.SetRange("Ref. Line No.", ProdOrderComp."Prod. Order Line No."); ReqLine.SetRange("Operation No.", ''); OnParentIsInPlanningOnAfterReqLineSetFilters(ReqLine, ProdOrderComp); -#if not CLEAN27 - CalcItemAvailability.RunOnParentIsInPlanningOnAfterReqLineSetFilters(ReqLine, ProdOrderComp); -#endif if ReqLine.FindFirst() then begin ParentActionMessage := ReqLine."Action Message"; exit(true); @@ -785,47 +770,7 @@ codeunit 99000875 "Prod. Order Availability Mgt." OnAfterTransferFromProdOrder(InventoryEventBuffer, ProdOrderLine); end; -#if not CLEAN27 - [Obsolete('Moved back to InventoryEventBuffer', '27.0')] - procedure TransferFromForecast(var InventoryEventBuffer: Record "Inventory Event Buffer"; ProdForecastEntry: Record "Production Forecast Entry"; UnconsumedQtyBase: Decimal; ForecastOnLocation: Boolean) - begin - TransferFromForecast(InventoryEventBuffer, ProdForecastEntry, UnconsumedQtyBase, ForecastOnLocation, false); - end; -#endif - -#if not CLEAN27 - [Obsolete('Moved back to InventoryEventBuffer', '27.0')] - procedure TransferFromForecast(var InventoryEventBuffer: Record "Inventory Event Buffer"; ProdForecastEntry: Record "Production Forecast Entry"; UnconsumedQtyBase: Decimal; ForecastOnLocation: Boolean; ForecastOnVariant: Boolean) - var - RecRef: RecordRef; - begin - InventoryEventBuffer.Init(); - RecRef.GetTable(ProdForecastEntry); - InventoryEventBuffer."Source Line ID" := RecRef.RecordId; - InventoryEventBuffer."Item No." := ProdForecastEntry."Item No."; - InventoryEventBuffer."Variant Code" := ''; - if ForecastOnLocation then - InventoryEventBuffer."Location Code" := ProdForecastEntry."Location Code" - else - InventoryEventBuffer."Location Code" := ''; - if ForecastOnVariant then - InventoryEventBuffer."Variant Code" := ProdForecastEntry."Variant Code" - else - InventoryEventBuffer."Variant Code" := ''; - InventoryEventBuffer."Availability Date" := ProdForecastEntry."Forecast Date"; - InventoryEventBuffer.Type := InventoryEventBuffer.Type::Forecast; - if ProdForecastEntry."Component Forecast" then - InventoryEventBuffer."Forecast Type" := InventoryEventBuffer."Forecast Type"::Component - else - InventoryEventBuffer."Forecast Type" := InventoryEventBuffer."Forecast Type"::Sales; - InventoryEventBuffer."Remaining Quantity (Base)" := -UnconsumedQtyBase; - InventoryEventBuffer."Reserved Quantity (Base)" := 0; - InventoryEventBuffer."Orig. Quantity (Base)" := -ProdForecastEntry."Forecast Quantity (Base)"; - InventoryEventBuffer.Positive := not (InventoryEventBuffer."Remaining Quantity (Base)" < 0); - OnAfterTransferFromForecast(InventoryEventBuffer, ProdForecastEntry); - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterTransferFromProdComp(var InventoryEventBuffer: Record "Inventory Event Buffer"; ProdOrderComponent: Record "Prod. Order Component") @@ -837,13 +782,6 @@ codeunit 99000875 "Prod. Order Availability Mgt." begin end; -#if not CLEAN27 - [Obsolete('Moved back to InventoryEventBuffer', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterTransferFromForecast(var InventoryEventBuffer: Record "Inventory Event Buffer"; ProdForecastEntry: Record "Production Forecast Entry") - begin - end; -#endif // Codeunit "Available to Promise" @@ -911,18 +849,12 @@ codeunit 99000875 "Prod. Order Availability Mgt." MfgSetup: Record "Manufacturing Setup"; RequisitionLine: Record "Requisition Line"; NoSeries: Codeunit "No. Series"; -#if not CLEAN27 - CapableToPromise: Codeunit "Capable to Promise"; -#endif NewRefOrderNo: Code[20]; LastRefOrderNo: Code[20]; IsHandled: Boolean; begin IsHandled := false; OnBeforeReassignRefOrderNos(OrderPromisingID, IsHandled); -#if not CLEAN27 - CapableToPromise.RunOnBeforeReassignRefOrderNos(OrderPromisingID, IsHandled); -#endif if IsHandled then exit; @@ -949,9 +881,6 @@ codeunit 99000875 "Prod. Order Availability Mgt." NewRefOrderNo := NoSeries.GetNextNo(RequisitionLine."No. Series", RequisitionLine."Due Date"); RequisitionLine.ModifyAll("Ref. Order No.", NewRefOrderNo); OnReassignRefOrderNosOnAfterRequisitionLineModifyAll(RequisitionLine); -#if not CLEAN27 - CapableToPromise.RunOnReassignRefOrderNosOnAfterRequisitionLineModifyAll(RequisitionLine); -#endif RequisitionLine.SetFilter("Ref. Order No.", '<>%1&<=%2', '', LastRefOrderNo); until RequisitionLine.Next() = 0; end; @@ -1029,11 +958,4 @@ codeunit 99000875 "Prod. Order Availability Mgt." Item.CalcFields("Reserved Qty. on Prod. Order"); Result := Item."Reserved Qty. on Prod. Order"; end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Report, Report::"Planning Availability", 'OnRequisitionLineOnBeforeTempPlanningBufferInsert', '', true, false)] - local procedure OnRequisitionLineOnBeforeTempPlanningBufferInsert(var TempPlanningBuffer: Record "Planning Buffer" temporary; RequisitionLine: Record "Requisition Line") - begin - TempPlanningBuffer."Document No." := RequisitionLine."Prod. Order No."; - end; -#endif } \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderCompReserve.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderCompReserve.Codeunit.al index c68056ed034..f6309f6023d 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderCompReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderCompReserve.Codeunit.al @@ -860,13 +860,6 @@ codeunit 99000838 "Prod. Order Comp.-Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; ProdOrderComp: Record "Prod. Order Component") - begin - end; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnAutoReserveOnBeforeStopReservation', '', true, false)] local procedure OnAutoReserveOnBeforeStopReservation(var CalcReservEntry: Record "Reservation Entry"; var StopReservation: Boolean; SourceRecRef: RecordRef); begin diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLine.Table.al b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLine.Table.al index e72a3e5f67d..efeaf3847ec 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLine.Table.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLine.Table.al @@ -276,13 +276,8 @@ table 5406 "Prod. Order Line" ToolTip = 'Specifies a standard task.'; TableRelation = "Standard Task"; ObsoleteReason = 'This field is not required anymore. The standard task code is now defined on the routing line.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif } #endif field(40; Quantity; Decimal) diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLinePlanning.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLinePlanning.Codeunit.al index e82af5f1132..904ce52ce60 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLinePlanning.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLinePlanning.Codeunit.al @@ -18,9 +18,6 @@ codeunit 99000857 "Prod. Order Line-Planning" var ProductionOrder: Record "Production Order"; -#if not CLEAN27 - GetUnplannedDemand: Codeunit "Get Unplanned Demand"; -#endif ProductionTxt: Label 'Production'; [EventSubscriber(ObjectType::Table, Database::"Requisition Line", 'OnSetDemandTypeFromUnplannedDemand', '', true, false)] @@ -149,9 +146,6 @@ codeunit 99000857 "Prod. Order Line-Planning" DemandQtyBase: Decimal; begin OnBeforeGetUnplannedProdOrderComp(UnplannedDemand, ProdOrderComp); -#if not CLEAN27 - GetUnplannedDemand.RunOnBeforeGetUnplannedProdOrderComp(UnplannedDemand, ProdOrderComp); -#endif ProdOrderComp.SetFilter( Status, '%1|%2|%3', ProdOrderComp.Status::Planned, ProdOrderComp.Status::"Firm Planned", ProdOrderComp.Status::Released); @@ -165,23 +159,14 @@ codeunit 99000857 "Prod. Order Line-Planning" not ((ProdOrderComp.Status.AsInteger() = UnplannedDemand."Demand SubType") and (ProdOrderComp."Prod. Order No." = UnplannedDemand."Demand Order No.")); OnGetUnplannedProdOrderCompOnAfterCalcNeedInsertUnplannedDemand(UnplannedDemand, ProdOrderComp, NeedInsertUnplannedDemand); -#if not CLEAN27 - GetUnplannedDemand.RunOnGetUnplannedProdOrderCompOnAfterCalcNeedInsertUnplannedDemand(UnplannedDemand, ProdOrderComp, NeedInsertUnplannedDemand); -#endif if NeedInsertUnplannedDemand then begin sender.InsertUnplannedDemand( UnplannedDemand, UnplannedDemand."Demand Type"::Production, ProdOrderComp.Status.AsInteger(), ProdOrderComp."Prod. Order No.", ProdOrderComp.Status.AsInteger()); OnGetUnplannedProdOrderCompOnAfterInsertUnplannedDemand(UnplannedDemand, ProdOrderComp); -#if not CLEAN27 - GetUnplannedDemand.RunOnGetUnplannedProdOrderCompOnAfterInsertUnplannedDemand(UnplannedDemand, ProdOrderComp); -#endif end; InsertProdOrderCompLine(UnplannedDemand, ProdOrderComp, DemandQtyBase); OnGetUnplannedProdOrderCompOnAfterInsertProdOrderCompLine(UnplannedDemand, ProdOrderComp); -#if not CLEAN27 - GetUnplannedDemand.RunOnGetUnplannedProdOrderCompOnAfterInsertProdOrderCompLine(UnplannedDemand, ProdOrderComp); -#endif end; until ProdOrderComp.Next() = 0; end; @@ -219,9 +204,6 @@ codeunit 99000857 "Prod. Order Line-Planning" not ((UnplannedDemand."Demand Type" = UnplannedDemand."Demand Type"::Production) and (UnplannedDemand."Demand SubType" = ProdOrderComp.Status::Planned.AsInteger())); OnInsertProdOrderCompLineOnBeforeInsert(UnplannedDemand, ProdOrderComp); -#if not CLEAN27 - GetUnplannedDemand.RunOnInsertProdOrderCompLineOnBeforeInsert(UnplannedDemand, ProdOrderComp); -#endif UnplannedDemand.Insert(); UnplannedDemand.Copy(UnplannedDemand2); end; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLineReserve.Codeunit.al index 786d53e5aca..61a0a712ab1 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/ProdOrderLineReserve.Codeunit.al @@ -841,13 +841,6 @@ codeunit 99000837 "Prod. Order Line-Reserve" StopReservation := CalcReservEntry."Source Subtype" < 2; // Not simulated or planned end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; ProdOrderLine: Record "Prod. Order Line") - begin - end; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnAutoTrackOnCheckSourceType', '', true, false)] local procedure OnAutoTrackOnCheckSourceType(var ReservationEntry: Record "Reservation Entry"; var ShouldExit: Boolean) begin @@ -1184,9 +1177,6 @@ codeunit 99000837 "Prod. Order Line-Reserve" begin IsHandled := false; OnBeforeTransferPlanningLineToPOLine(OldRequisitionLine, NewProdOrderLine, TransferQty, TransferAll, IsHandled); -#if not CLEAN27 - ReqLineReserve.RunOnBeforeTransferPlanningLineToPOLine(OldRequisitionLine, NewProdOrderLine, TransferQty, TransferAll, IsHandled); -#endif if IsHandled then exit; @@ -1195,9 +1185,6 @@ codeunit 99000837 "Prod. Order Line-Reserve" IsHandled := false; OnTransferPlanningLineToPOLineOnBeforeCheckFields(OldRequisitionLine, NewProdOrderLine, TransferQty, TransferAll, IsHandled); -#if not CLEAN27 - ReqLineReserve.RunOnTransferPlanningLineToPOLineOnBeforeCheckFields(OldRequisitionLine, NewProdOrderLine, TransferQty, TransferAll, IsHandled); -#endif if not IsHandled then begin NewProdOrderLine.TestField("Item No.", OldRequisitionLine."No."); NewProdOrderLine.TestField("Variant Code", OldRequisitionLine."Variant Code"); @@ -1205,9 +1192,6 @@ codeunit 99000837 "Prod. Order Line-Reserve" end; OnTransferReqLineToPOLineOnBeforeTransfer(OldReservationEntry, OldRequisitionLine, NewProdOrderLine); -#if not CLEAN27 - ReqLineReserve.RunOnTransferReqLineToPOLineOnBeforeTransfer(OldReservationEntry, OldRequisitionLine, NewProdOrderLine); -#endif OldReservationEntry.TransferReservations( OldReservationEntry, OldRequisitionLine."No.", OldRequisitionLine."Variant Code", OldRequisitionLine."Location Code", diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/ReleasedProdOrderLines.Page.al b/src/Layers/W1/BaseApp/Manufacturing/Document/ReleasedProdOrderLines.Page.al index c1563799f7f..1ed22d4d1c8 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/ReleasedProdOrderLines.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/ReleasedProdOrderLines.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -314,16 +314,6 @@ page 99000832 "Released Prod. Order Lines" Rec.ValidateShortcutDimCode(8, ShortcutDimCode[8]); end; } -#if not CLEAN27 - field("Standard Task Code"; Rec."Standard Task Code") - { - ApplicationArea = Manufacturing; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif } } } diff --git a/src/Layers/W1/BaseApp/Manufacturing/Document/SimulatedProdOrderLines.Page.al b/src/Layers/W1/BaseApp/Manufacturing/Document/SimulatedProdOrderLines.Page.al index 49216f99d17..63ca412d114 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Document/SimulatedProdOrderLines.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Document/SimulatedProdOrderLines.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -286,16 +286,6 @@ page 99000913 "Simulated Prod. Order Lines" Rec.ValidateShortcutDimCode(8, ShortcutDimCode[8]); end; } -#if not CLEAN27 - field("Standard Task Code"; Rec."Standard Task Code") - { - ApplicationArea = Manufacturing; - Visible = false; - ObsoleteReason = 'Discontinued functionality'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif } } } diff --git a/src/Layers/W1/BaseApp/Manufacturing/Foundation/MfgPageManagement.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Foundation/MfgPageManagement.Codeunit.al index 151ee6aa0b9..08bd5a8b6a0 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Foundation/MfgPageManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Foundation/MfgPageManagement.Codeunit.al @@ -104,11 +104,4 @@ codeunit 99000791 "Mfg. Page Management" end; end; -#if not CLEAN27 - [Obsolete('This event added by mistake to Mfg part, use correct event in ServPageManagement codeunit', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterGetServiceHeaderPageID(RecRef: RecordRef; ServiceHeader: Record Microsoft.Service.Document."Service Header"; var Result: Integer) - begin - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/BOM/MfgCalculateBOMTree.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/BOM/MfgCalculateBOMTree.Codeunit.al index 793a1a5bcc4..73b5172d5ff 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/BOM/MfgCalculateBOMTree.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/BOM/MfgCalculateBOMTree.Codeunit.al @@ -72,9 +72,6 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" ProdBOMLine.SetFilter("Ending Date", '%1|%2..', 0D, ParentBOMBuffer."Needed by Date"); IsHandled := false; OnBeforeFilterByQuantityPer(ProdBOMLine, IsHandled, ParentBOMBuffer); -#if not CLEAN27 - sender.RunOnBeforeFilterByQuantityPer(ProdBOMLine, IsHandled, ParentBOMBuffer); -#endif if not IsHandled then if TreeType = "BOM Tree Type"::Availability then ProdBOMLine.SetFilter("Quantity per", '>%1', 0); @@ -82,17 +79,11 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" if not ParentItem.IsMfgItem() then begin FoundSubTree := true; OnGenerateProdCompSubTreeOnBeforeExitForNonProdOrder(ParentItem, BOMBuffer, FoundSubTree); -#if not CLEAN27 - sender.RunOnGenerateProdCompSubTreeOnBeforeExitForNonProdOrder(ParentItem, BOMBuffer, FoundSubTree); -#endif exit(FoundSubTree); end; repeat IsHandled := false; OnBeforeTransferProdBOMLine(BOMBuffer, ProdBOMLine, ParentItem, ParentBOMBuffer, EntryNo, TreeType.AsInteger(), IsHandled); -#if not CLEAN27 - sender.RunOnBeforeTransferProdBOMLine(BOMBuffer, ProdBOMLine, ParentItem, ParentBOMBuffer, EntryNo, TreeType.AsInteger(), IsHandled); -#endif if not IsHandled then if ProdBOMLine."No." <> '' then case ProdBOMLine.Type of @@ -122,21 +113,12 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" BOMBuffer."Qty. per BOM Line" := BOMBuffer."Qty. per BOM Line" * ParentBOMBuffer."Qty. per Parent"; end; OnAfterTransferFromProdItem(BOMBuffer, ProdBOMLine, EntryNo); -#if not CLEAN27 - sender.RunOnAfterTransferFromProdItem(BOMBuffer, ProdBOMLine, EntryNo); -#endif sender.GenerateItemSubTree(ProdBOMLine."No.", BOMBuffer); OnGenerateProdCompSubTreeOnAfterGenerateItemSubTree(ParentBOMBuffer, BOMBuffer); -#if not CLEAN27 - sender.RunOnGenerateProdCompSubTreeOnAfterGenerateItemSubTree(ParentBOMBuffer, BOMBuffer); -#endif end; ProdBOMLine.Type::"Production BOM": begin OnBeforeTransferFromProdBOM(BOMBuffer, ProdBOMLine, ParentItem, ParentBOMBuffer, EntryNo, TreeType); -#if not CLEAN27 - sender.RunOnBeforeTransferFromProdBOM(BOMBuffer, ProdBOMLine, ParentItem, ParentBOMBuffer, EntryNo, TreeType.AsInteger()); -#endif BOMBuffer := ParentBOMBuffer; BOMBuffer."Qty. per Top Item" := Round(BOMBuffer."Qty. per Top Item" * ProdBOMLine."Quantity per", UOMMgt.QtyRndPrecision()); if ParentItem."Production BOM No." <> ParentBOMBuffer."Production BOM No." then @@ -148,9 +130,6 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" BOMBuffer."Scrap %" := Round(BOMBuffer."Scrap %", 0.00001); OnAfterTransferFromProdBOM(BOMBuffer, ProdBOMLine); -#if not CLEAN27 - sender.RunOnAfterTransferFromProdBOM(BOMBuffer, ProdBOMLine); -#endif CopyOfParentItem := ParentItem; ParentItem."Routing No." := ''; @@ -159,15 +138,9 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" ParentItem := CopyOfParentItem; OnAfterGenerateProdCompSubTree(ParentItem, BOMBuffer, ParentBOMBuffer); -#if not CLEAN27 - sender.RunOnAfterGenerateProdCompSubTree(ParentItem, BOMBuffer, ParentBOMBuffer); -#endif end; end; OnGenerateProdCompSubTreeOnAfterProdBOMLineLoop(ParentBOMBuffer, BOMBuffer); -#if not CLEAN27 - sender.RunOnGenerateProdCompSubTreeOnAfterProdBOMLineLoop(ParentBOMBuffer, BOMBuffer); -#endif until ProdBOMLine.Next() = 0; FoundSubTree := true; end; @@ -179,9 +152,6 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" repeat RunIteration := RoutingLine."No." <> ''; OnGenerateProdCompSubTreeOnBeforeRoutingLineLoop(RoutingLine, BOMBuffer, RunIteration, ItemFilter); -#if not CLEAN27 - sender.RunOnGenerateProdCompSubTreeOnBeforeRoutingLineLoop(RoutingLine, BOMBuffer, RunIteration); -#endif if RunIteration then begin BOMBuffer.SetLocationVariantFiltersFrom(ItemFilter); BOMBuffer.TransferFromProdRouting( @@ -191,9 +161,6 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" ParentBOMBuffer."Needed by Date", ParentBOMBuffer."Location Code"); OnAfterTransferFromProdRouting(BOMBuffer, RoutingLine); -#if not CLEAN27 - sender.RunOnAfterTransferFromProdRouting(BOMBuffer, RoutingLine); -#endif if TreeType = "BOM Tree Type"::Cost then begin LotSize := ParentBOMBuffer."Lot Size"; if LotSize = 0 then @@ -201,24 +168,14 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" LotSize := ParentBOMBuffer."Qty. per Top Item" else LotSize := 1; -#if not CLEAN27 - CalcRoutingLineCosts(RoutingLine, LotSize, ParentBOMBuffer."Scrap %", BOMBuffer, ParentItem, sender); -#else CalcRoutingLineCosts(RoutingLine, LotSize, ParentBOMBuffer."Scrap %", BOMBuffer, ParentItem); -#endif BOMBuffer.RoundCosts( ParentBOMBuffer."Qty. per Top Item" * UOMMgt.GetQtyPerUnitOfMeasure(ParentItem, ParentBOMBuffer."Unit of Measure Code") / LotSize); OnGenerateProdCompSubTreeOnBeforeBOMBufferModify(BOMBuffer, ParentBOMBuffer, ParentItem); -#if not CLEAN27 - sender.RunOnGenerateProdCompSubTreeOnBeforeBOMBufferModify(BOMBuffer, ParentBOMBuffer, ParentItem); -#endif BOMBuffer.Modify(); end; OnGenerateProdCompSubTreeOnAfterBOMBufferModify(BOMBuffer, RoutingLine, LotSize, ParentItem, ParentBOMBuffer, TreeType); -#if not CLEAN27 - sender.RunOnGenerateProdCompSubTreeOnAfterBOMBufferModify(BOMBuffer, RoutingLine, LotSize, ParentItem, ParentBOMBuffer, TreeType.AsInteger()); -#endif end; until RoutingLine.Next() = 0; FoundSubTree := true; @@ -235,9 +192,6 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" IsHandled: Boolean; begin OnBeforeGenerateProdOrderLineSubTree(ProdOrderLine, BOMBuffer, ParentBOMBuffer, Result, IsHandled); -#if not CLEAN27 - sender.RunOnBeforeGenerateProdOrderLineSubTree(ProdOrderLine, BOMBuffer, ParentBOMBuffer, Result, IsHandled); -#endif if IsHandled then exit(Result); @@ -263,11 +217,7 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" end; end; -#if not CLEAN27 - local procedure CalcRoutingLineCosts(RoutingLine: Record "Routing Line"; LotSize: Decimal; ScrapPct: Decimal; var BOMBuffer: Record "BOM Buffer"; var ParentItem: Record Item; var sender: Codeunit "Calculate BOM Tree") -#else local procedure CalcRoutingLineCosts(RoutingLine: Record "Routing Line"; LotSize: Decimal; ScrapPct: Decimal; var BOMBuffer: Record "BOM Buffer"; var ParentItem: Record Item) -#endif var CalcStdCost: Codeunit "Calculate Standard Cost"; CapCost: Decimal; @@ -275,18 +225,12 @@ codeunit 99000781 "Mfg. Calculate BOM Tree" CapOverhead: Decimal; begin OnBeforeCalcRoutingLineCosts(RoutingLine, LotSize, ScrapPct, ParentItem); -#if not CLEAN27 - sender.RunOnBeforeCalcRoutingLineCosts(RoutingLine, LotSize, ScrapPct, ParentItem); -#endif CalcStdCost.SetProperties(WorkDate(), false, false, false, '', false); CalcStdCost.CalcRtngLineCost( RoutingLine, MfgCostCalcMgt.CalcQtyAdjdForBOMScrap(LotSize, ScrapPct), CapCost, SubcontractedCapCost, CapOverhead, ParentItem); OnCalcRoutingLineCostsOnBeforeBOMBufferAdd(RoutingLine, LotSize, ScrapPct, CapCost, SubcontractedCapCost, CapOverhead, BOMBuffer); -#if not CLEAN27 - sender.RunOnCalcRoutingLineCostsOnBeforeBOMBufferAdd(RoutingLine, LotSize, ScrapPct, CapCost, SubcontractedCapCost, CapOverhead, BOMBuffer); -#endif BOMBuffer.AddCapacityCost(CapCost, CapCost); BOMBuffer.AddSubcontrdCost(SubcontractedCapCost, SubcontractedCapCost); diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Costing/MfgInventoryAdjmtEntryOrder.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Costing/MfgInventoryAdjmtEntryOrder.Codeunit.al index 87cb420a3d3..89a938dbbde 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Costing/MfgInventoryAdjmtEntryOrder.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Costing/MfgInventoryAdjmtEntryOrder.Codeunit.al @@ -15,9 +15,6 @@ codeunit 99000776 "Mfg. InventoryAdjmtEntryOrder" { var MfgCostCalcMgt: Codeunit "Mfg. Cost Calculation Mgt."; -#if not CLEAN27 - CalcInventoryAdjmtOrder: Codeunit "Calc. Inventory Adjmt. - Order"; -#endif #pragma warning disable AA0074 #pragma warning disable AA0470 Text009: Label 'This %1 Order has not been adjusted.'; @@ -157,9 +154,6 @@ codeunit 99000776 "Mfg. InventoryAdjmtEntryOrder" CapLedgEntry.SetRange("Item No.", InvtAdjmtEntryOrder."Item No."); IsHandled := false; OnCalcActualCapacityCostsOnAfterSetFilters(CapLedgEntry, InvtAdjmtEntryOrder, IsHandled, ShareOfTotalCapCost); -#if not CLEAN27 - CalcInventoryAdjmtOrder.RunOnCalcActualCapacityCostsOnAfterSetFilters(CapLedgEntry, InvtAdjmtEntryOrder, IsHandled, ShareOfTotalCapCost); -#endif if not IsHandled then if CapLedgEntry.Find('-') then repeat @@ -182,9 +176,6 @@ codeunit 99000776 "Mfg. InventoryAdjmtEntryOrder" begin IsHandled := false; OnBeforeCalcShareOfCapCost(InvtAdjmtEntryOrder, ShareOfCapCost, IsHandled); -#if not CLEAN27 - CalcInventoryAdjmtOrder.RunOnBeforeCalcShareOfCapCost(InvtAdjmtEntryOrder, ShareOfCapCost, IsHandled); -#endif if IsHandled then exit(ShareOfCapCost); diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Item/MfgItem.TableExt.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Item/MfgItem.TableExt.al index 86a218820cb..d8f474362e4 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Item/MfgItem.TableExt.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Item/MfgItem.TableExt.al @@ -271,9 +271,6 @@ tableextension 99000750 "Mfg. Item" extends Item } var -#if not CLEAN27 - HideNonInventoryValidateOnStdCost: Boolean; -#endif NoActiveBOMVersionFoundErr: Label 'There is no active Production BOM for the item %1.', Comment = '%1 - Item No.'; ProductionBlockedOutputItemErr: Label 'You cannot produce %1 %2 because the %3 is %4 on the %1 card.', Comment = '%1 - Table Caption (Item), %2 - Item No., %3 - Field Caption, %4 - Field Value'; ProductionBlockedOutputItemVariantErr: Label 'You cannot produce variant %1 for %2 %3 because it is blocked for production output.', Comment = '%1 - Item Variant Code, %2 - Table Caption (Item), %3 - Item No.'; @@ -296,19 +293,6 @@ tableextension 99000750 "Mfg. Item" extends Item begin end; -#if not CLEAN27 - [Obsolete('procedure that was implemented to bypass the error has now been identified as unnecessary', '27.0')] - procedure SetHideNonInventoryValidateOnStdCost(NewHideNonInventoryValidateOnStdCost: Boolean) - begin - HideNonInventoryValidateOnStdCost := NewHideNonInventoryValidateOnStdCost; - end; - - [Obsolete('procedure that was implemented to bypass the error has now been identified as unnecessary', '27.0')] - procedure CanHideNonInventoryValidateOnStdCost(): Boolean - begin - exit(HideNonInventoryValidateOnStdCost); - end; -#endif internal procedure OpenActiveProdBOMForItem(ProdBOMNo: Code[20]; ItemNo: Code[20]) var diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Item/MfgItemList.PageExt.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Item/MfgItemList.PageExt.al index 67c8f2e1855..9b328d2f8c8 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Item/MfgItemList.PageExt.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Item/MfgItemList.PageExt.al @@ -155,19 +155,6 @@ pageextension 99000751 "Mfg. Item List" extends "Item List" } addafter("Invt. Valuation - Cost Spec.") { -#if not CLEAN27 - action("Compare List") - { - ApplicationArea = Basic, Suite; - Caption = 'Compare List (Obsolete)'; - Image = "Report"; - RunObject = Report "Compare List"; - ToolTip = 'View a comparison of components for two items. The printout compares the components, their unit cost, cost share and cost per component.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Compare Production Cost Shares" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Compare Production Cost Shares") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Location/MfgStockkeepingUnit.TableExt.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Location/MfgStockkeepingUnit.TableExt.al index 34edaf059c9..f857dd5b08e 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Location/MfgStockkeepingUnit.TableExt.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Location/MfgStockkeepingUnit.TableExt.al @@ -184,24 +184,8 @@ tableextension 99000759 "Mfg. Stockkeeping Unit" extends "Stockkeeping Unit" } var -#if not CLEAN27 - HideNonInventoryValidateOnStdCost: Boolean; -#endif NoActiveBOMVersionFoundErr: Label 'There is no active Production BOM for the item %1', Comment = '%1 - Item No.'; -#if not CLEAN27 - [Obsolete('procedure that was implemented to bypass the error has now been identified as unnecessary', '27.0')] - procedure SetHideNonInventoryValidateOnStdCost(NewHideNonInventoryValidateOnStdCost: Boolean) - begin - HideNonInventoryValidateOnStdCost := NewHideNonInventoryValidateOnStdCost; - end; - - [Obsolete('procedure that was implemented to bypass the error has now been identified as unnecessary', '27.0')] - procedure CanHideNonInventoryValidateOnStdCost(): Boolean - begin - exit(HideNonInventoryValidateOnStdCost); - end; -#endif internal procedure OpenProductionBOMForSKUItem(ProductionBOMNo: Code[20]; ItemNo: Code[20]) var diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Planning/MfgPlanningAvailability.ReportExt.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Planning/MfgPlanningAvailability.ReportExt.al deleted file mode 100644 index 675cf73d4da..00000000000 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Planning/MfgPlanningAvailability.ReportExt.al +++ /dev/null @@ -1,139 +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.Manufacturing.Reports; - -using Microsoft.Manufacturing.Document; - -reportextension 99001048 "Mfg. Planning Availability" extends "Planning Availability" -{ - dataset - { - addafter("Transfer Line") - { - dataitem("Prod. Order Line"; "Prod. Order Line") - { - DataItemTableView = sorting(Status, "Prod. Order No.", "Line No."); - - trigger OnAfterGetRecord() - begin - if not (Status in [Status::Simulated, Status::Finished]) then begin - ReqLine2.SetRange("Ref. Order Status", Status); - ReqLine2.SetRange("Ref. Order No.", "Prod. Order No."); - ReqLine2.SetRange("Ref. Line No.", "Line No."); - if ReqLine2.FindFirst() then - CurrReport.Skip(); - - if SelectionReq then begin - NewRecordWithDetails("Due Date", "Item No.", Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Purchase Order"; - TempPlanningBuffer."Document No." := "Prod. Order No."; - case Status of - Status::"Firm Planned": - begin - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Firm Planned Prod. Order"; - TempPlanningBuffer."Scheduled Receipts" := "Remaining Qty. (Base)"; - end; - Status::Released: - begin - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Released Prod. Order"; - TempPlanningBuffer."Scheduled Receipts" := "Remaining Qty. (Base)"; - end; - Status::Planned: - begin - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Planned Prod. Order"; - TempPlanningBuffer."Planned Receipts" := "Remaining Qty. (Base)"; - end; - end; - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", "Item No."); - TempPlanningBuffer.SetRange(Date, "Due Date"); - if TempPlanningBuffer.Find('-') then begin - if Status = Status::Planned then - TempPlanningBuffer."Planned Receipts" := - TempPlanningBuffer."Planned Receipts" + - "Remaining Qty. (Base)" - else - TempPlanningBuffer."Scheduled Receipts" := - TempPlanningBuffer."Scheduled Receipts" + - "Remaining Qty. (Base)"; - TempPlanningBuffer.Modify(); - end else begin - NewRecordWithDetails("Due Date", "Item No.", Description); - if Status = Status::Planned then - TempPlanningBuffer."Planned Receipts" := "Remaining Qty. (Base)" - else - TempPlanningBuffer."Scheduled Receipts" := "Remaining Qty. (Base)"; - TempPlanningBuffer.Insert(); - end; - end; - end; - end; - - trigger OnPreDataItem() - begin - ReqLine2.Reset(); - ReqLine2.SetCurrentKey("Ref. Order Type", "Ref. Order Status", "Ref. Order No.", "Ref. Line No."); - ReqLine2.SetRange("Ref. Order Type", ReqLine2."Ref. Order Type"::"Prod. Order"); - end; - } - } - addafter("Requisition Line") - { - dataitem("Prod. Order Component"; "Prod. Order Component") - { - DataItemTableView = sorting(Status, "Prod. Order No.", "Prod. Order Line No.", "Line No."); - - trigger OnAfterGetRecord() - begin - if not (Status in [Status::Simulated, Status::Finished]) then begin - ReqLine2.SetRange("Ref. Order Status", Status); - ReqLine2.SetRange("Ref. Order No.", "Prod. Order No."); - ReqLine2.SetRange("Ref. Line No.", "Prod. Order Line No."); - if ReqLine2.FindFirst() then - CurrReport.Skip(); - - if SelectionReq then begin - NewRecordWithDetails("Due Date", "Item No.", Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Purchase Order"; - TempPlanningBuffer."Document No." := "Prod. Order No."; - TempPlanningBuffer."Gross Requirement" := "Remaining Qty. (Base)"; - case Status of - Status::"Firm Planned": - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Firm Planned Prod. Order Comp."; - Status::Released: - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Released Prod. Order Comp."; - Status::Planned: - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Planned Prod. Order Comp."; - end; - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", "Item No."); - TempPlanningBuffer.SetRange(Date, "Due Date"); - if TempPlanningBuffer.Find('-') then begin - TempPlanningBuffer."Gross Requirement" := TempPlanningBuffer."Gross Requirement" + "Remaining Qty. (Base)"; - TempPlanningBuffer.Modify(); - end else begin - NewRecordWithDetails("Due Date", "Item No.", Description); - TempPlanningBuffer."Gross Requirement" := "Remaining Qty. (Base)"; - TempPlanningBuffer.Insert(); - end; - end; - end; - ModifyForecast("Item No.", "Due Date", TempPlanningBuffer."Document Type"::"Production Forecast-Component", "Remaining Qty. (Base)"); - end; - - trigger OnPreDataItem() - begin - ReqLine2.Reset(); - ReqLine2.SetCurrentKey("Ref. Order Type", "Ref. Order Status", "Ref. Order No.", "Ref. Line No."); - ReqLine2.SetRange("Ref. Order Type", ReqLine2."Ref. Order Type"::"Prod. Order"); - end; - } - } - } -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Planning/MfgPlanningLineManagement.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Planning/MfgPlanningLineManagement.Codeunit.al index 7727b0dcec3..3643a9732ef 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Planning/MfgPlanningLineManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Planning/MfgPlanningLineManagement.Codeunit.al @@ -29,9 +29,6 @@ codeunit 99000819 "Mfg. Planning Line Management" GetPlanningParameters: Codeunit "Planning-Get Parameters"; MfgCostCalcMgt: Codeunit "Mfg. Cost Calculation Mgt."; VersionMgt: Codeunit VersionManagement; -#if not CLEAN27 - PlanningLineManagement: Codeunit "Planning Line Management"; -#endif Text000: Label 'BOM phantom structure for %1 is higher than 50 levels.'; Text010: Label 'The line with %1 %2 for %3 %4 or one of its versions, has no %5 defined.'; Text011: Label '%1 has recalculate set to false.'; @@ -47,9 +44,6 @@ codeunit 99000819 "Mfg. Planning Line Management" begin IsHandled := false; OnBeforeTransferRouting(ReqLine, PlanningResiliency, IsHandled); -#if not CLEAN27 - PlanningLineManagement.RunOnBeforeTransferRouting(ReqLine, PlanningResiliency, IsHandled); -#endif if IsHandled then exit; @@ -71,9 +65,6 @@ codeunit 99000819 "Mfg. Planning Line Management" until RoutingLine.Next() = 0; OnAfterTransferRouting(ReqLine); -#if not CLEAN27 - PlanningLineManagement.RunOnAfterTransferRouting(ReqLine); -#endif end; local procedure CheckRoutingLine(RoutingHeader: Record "Routing Header"; RoutingLine: Record "Routing Line"; var TempPlanningErrorLog: Record "Planning Error Log" temporary; PlanningResiliency: Boolean) @@ -111,9 +102,6 @@ codeunit 99000819 "Mfg. Planning Line Management" begin IsHandled := false; OnBeforeTransferRoutingLine(PlanningRoutingLine, ReqLine, RoutingLine, IsHandled); -#if not CLEAN27 - PlanningLineManagement.RunOnBeforeTransferRoutingLine(PlanningRoutingLine, ReqLine, RoutingLine, IsHandled); -#endif if IsHandled then exit; @@ -121,9 +109,6 @@ codeunit 99000819 "Mfg. Planning Line Management" PlanningRoutingLine.TransferFromRoutingLine(RoutingLine); OnTransferRoutingLineOnBeforeCalcRoutingCostPerUnit(PlanningRoutingLine, ReqLine, RoutingLine); -#if not CLEAN27 - PlanningLineManagement.RunOnTransferRoutingLineOnBeforeCalcRoutingCostPerUnit(PlanningRoutingLine, ReqLine, RoutingLine); -#endif MfgCostCalcMgt.CalcRoutingCostPerUnit( PlanningRoutingLine.Type, PlanningRoutingLine."No.", PlanningRoutingLine."Direct Unit Cost", PlanningRoutingLine."Indirect Cost %", PlanningRoutingLine."Overhead Rate", PlanningRoutingLine."Unit Cost per", PlanningRoutingLine."Unit Cost Calculation"); @@ -133,9 +118,6 @@ codeunit 99000819 "Mfg. Planning Line Management" PlanningRoutingLine.UpdateDatetime(); OnAfterTransferRtngLine(ReqLine, RoutingLine, PlanningRoutingLine); -#if not CLEAN27 - PlanningLineManagement.RunOnAfterTransferRtngLine(ReqLine, RoutingLine, PlanningRoutingLine); -#endif PlanningRoutingLine.Insert(); end; @@ -170,9 +152,6 @@ codeunit 99000819 "Mfg. Planning Line Management" begin IsHandled := false; OnBeforeTransferBOM(ProdBOMNo, Level, LineQtyPerUOM, ItemQtyPerUOM, ReqLine, Blocked, IsHandled); -#if not CLEAN27 - PlanningLineManagement.RunOnBeforeTransferBOM(ProdBOMNo, Level, LineQtyPerUOM, ItemQtyPerUOM, ReqLine, Blocked, IsHandled); -#endif if not IsHandled then begin if ReqLine."Production BOM No." = '' then @@ -219,16 +198,10 @@ codeunit 99000819 "Mfg. Planning Line Management" ProdBOMLine[Level].SetFilter("Starting Date", '%1|..%2', 0D, ReqLine."Starting Date"); ProdBOMLine[Level].SetFilter("Ending Date", '%1|%2..', 0D, ReqLine."Starting Date"); OnTransferBOMOnAfterProdBOMLineSetFilters(ProdBOMLine[Level], ReqLine); -#if not CLEAN27 - PlanningLineManagement.RunOnTransferBOMOnAfterProdBOMLineSetFilters(ProdBOMLine[Level], ReqLine); -#endif if ProdBOMLine[Level].Find('-') then repeat IsHandled := false; OnTransferBOMOnBeforeTransferPlanningComponent(ReqLine, ProdBOMLine[Level], Blocked, IsHandled, Level); -#if not CLEAN27 - PlanningLineManagement.RunOnTransferBOMOnBeforeTransferPlanningComponent(ReqLine, ProdBOMLine[Level], Blocked, IsHandled, Level); -#endif if not IsHandled then begin if ProdBOMLine[Level]."Routing Link Code" <> '' then begin PlanningRtngLine2.SetRange("Worksheet Template Name", ReqLine."Worksheet Template Name"); @@ -236,9 +209,6 @@ codeunit 99000819 "Mfg. Planning Line Management" PlanningRtngLine2.SetRange("Worksheet Line No.", ReqLine."Line No."); PlanningRtngLine2.SetRange("Routing Link Code", ProdBOMLine[Level]."Routing Link Code"); OnTransferBOMOnBeforePlanningRtngLineFind(PlanningRtngLine2, ProdBOMLine[Level], ReqLine); -#if not CLEAN27 - PlanningLineManagement.RunOnTransferBOMOnBeforePlanningRtngLineFind(PlanningRtngLine2, ProdBOMLine[Level], ReqLine); -#endif PlanningRtngLine2.FindFirst(); ReqQty := ProdBOMLine[Level].Quantity * @@ -277,9 +247,6 @@ codeunit 99000819 "Mfg. Planning Line Management" PlanningComponent."Quantity per" + ProdBOMLine[Level]."Quantity per" * LineQtyPerUOM / ItemQtyPerUOM); PlanningComponent.Validate("Routing Link Code", ProdBOMLine[Level]."Routing Link Code"); OnBeforeModifyPlanningComponent(ReqLine, ProdBOMLine[Level], PlanningComponent, LineQtyPerUOM, ItemQtyPerUOM); -#if not CLEAN27 - PlanningLineManagement.RunOnBeforeModifyPlanningComponent(ReqLine, ProdBOMLine[Level], PlanningComponent, LineQtyPerUOM, ItemQtyPerUOM); -#endif PlanningComponent.Modify(); end; @@ -308,9 +275,6 @@ codeunit 99000819 "Mfg. Planning Line Management" until ProdBOMLine[Level].Next() = 0; end; OnAfterTransferBOM(ReqLine, ProdBOMNo, Level, LineQtyPerUOM, ItemQtyPerUOM); -#if not CLEAN27 - PlanningLineManagement.RunOnAfterTransferBOM(ReqLine, ProdBOMNo, Level, LineQtyPerUOM, ItemQtyPerUOM); -#endif end; local procedure CreatePlanningComponentFromProdBOM(var PlanningComponent: Record "Planning Component"; ReqLine: Record "Requisition Line"; ProdBOMLine: Record "Production BOM Line"; CompSKU: Record "Stockkeeping Unit"; LineQtyPerUOM: Decimal; ItemQtyPerUOM: Decimal; var NextPlanningCompLineNo: Integer; SKU: Record "Stockkeeping Unit"; Blocked: Boolean) @@ -353,9 +317,6 @@ codeunit 99000819 "Mfg. Planning Line Management" PlanningComponent."Flushing Method" := CompSKU."Flushing Method"; OnTransferBOMOnBeforeGetDefaultBin(PlanningComponent, ProdBOMLine, ReqLine, SKU); -#if not CLEAN27 - PlanningLineManagement.RunOnTransferBOMOnBeforeGetDefaultBin(PlanningComponent, ProdBOMLine, ReqLine, SKU); -#endif PlanningComponent.GetDefaultBin(); if SetPlanningLevelCode(PlanningComponent, ProdBOMLine, SKU, CompSKU) then @@ -365,9 +326,6 @@ codeunit 99000819 "Mfg. Planning Line Management" PlanningComponent."Ref. Order Status" := ReqLine."Ref. Order Status"; PlanningComponent."Ref. Order No." := ReqLine."Ref. Order No."; OnBeforeInsertPlanningComponent(ReqLine, ProdBOMLine, PlanningComponent, LineQtyPerUOM, ItemQtyPerUOM); -#if not CLEAN27 - PlanningLineManagement.RunOnBeforeInsertPlanningComponent(ReqLine, ProdBOMLine, PlanningComponent, LineQtyPerUOM, ItemQtyPerUOM); -#endif PlanningComponent.Insert(); end; @@ -379,9 +337,6 @@ codeunit 99000819 "Mfg. Planning Line Management" (ComponentSKU."Replenishment System" = ComponentSKU."Replenishment System"::"Prod. Order"); OnAfterSetPlanningLevelCode(PlanningComponent, ProdBOMLine, SKU, ComponentSKU, Result); -#if not CLEAN27 - PlanningLineManagement.RunOnAfterSetPlanningLevelCode(PlanningComponent, ProdBOMLine, SKU, ComponentSKU, Result); -#endif end; local procedure IsPlannedComp(var PlanningComp: Record "Planning Component"; ReqLine: Record "Requisition Line"; ProdBOMLine: Record "Production BOM Line"; SKU: Record "Stockkeeping Unit"): Boolean @@ -422,9 +377,6 @@ codeunit 99000819 "Mfg. Planning Line Management" (PlanningComp."Unit of Measure Code" = ProdBOMLine."Unit of Measure Code") and (PlanningComp."Calculation Formula" = ProdBOMLine."Calculation Formula"); OnAfterIsPlannedCompFound(PlanningComp, ProdBOMLine, IsFound, SKU); -#if not CLEAN27 - PlanningLineManagement.RunOnAfterIsPlannedCompFound(PlanningComp, ProdBOMLine, IsFound, SKU); -#endif exit(IsFound); end; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Posting/MfgItemJnlPostBatch.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Posting/MfgItemJnlPostBatch.Codeunit.al index ed5d90f79b7..40c456be2a9 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Posting/MfgItemJnlPostBatch.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Posting/MfgItemJnlPostBatch.Codeunit.al @@ -16,9 +16,6 @@ codeunit 99000823 "Mfg. Item Jnl.-Post Batch" var MfgCreatePutaway: Codeunit "Mfg. Create Put-away"; -#if not CLEAN27 - ItemJnlPostBatch: Codeunit "Item Jnl.-Post Batch"; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Jnl.-Post Batch", 'OnBeforePostLines', '', true, false)] local procedure OnBeforePostLines() @@ -70,9 +67,6 @@ codeunit 99000823 "Mfg. Item Jnl.-Post Batch" begin IsHandled := false; OnBeforeSelfReservedQty(SKU, ItemJnlLine, Result, IsHandled); -#if not CLEAN27 - ItemJnlPostBatch.RunOnBeforeSelfReservedQty(SKU, ItemJnlLine, Result, IsHandled); -#endif if IsHandled then exit(Result); diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Posting/MfgItemJnlPostLine.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Posting/MfgItemJnlPostLine.Codeunit.al index 620fcd09699..fcb2efe7bc3 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Posting/MfgItemJnlPostLine.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Posting/MfgItemJnlPostLine.Codeunit.al @@ -32,9 +32,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" Location: Record Location; ManufacturingSetup: Record "Manufacturing Setup"; WhseJnlLine: Record "Warehouse Journal Line"; -#if not CLEAN27 - ItemJnlPostLine: Codeunit "Item Jnl.-Post Line"; -#endif ProdOrderCompReserve: Codeunit "Prod. Order Comp.-Reserve"; ProdOrderLineReserve: Codeunit "Prod. Order Line-Reserve"; ProdOrderWarehouseMgt: Codeunit "Prod. Order Warehouse Mgt."; @@ -71,9 +68,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnPostConsumptionOnBeforeCheckOrderType(ProdOrderComp, ItemJnlLine, IsHandled); -#if not CLEAN27 - sender.RunOnPostConsumptionOnBeforeCheckOrderType(ProdOrderComp, ItemJnlLine, IsHandled); -#endif if not IsHandled then ItemJnlLine.TestField("Order Type", ItemJnlLine."Order Type"::Production); ProdOrderComp.SetCurrentKey(Status, "Prod. Order No.", "Prod. Order Line No.", "Item No.", "Line No."); @@ -91,14 +85,8 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" RemQtyToPost := ItemJnlLine.Quantity; OnPostConsumptionOnBeforeFindSetProdOrderComp(ProdOrderComp, ItemJnlLine); -#if not CLEAN27 - sender.RunOnPostConsumptionOnBeforeFindSetProdOrderComp(ProdOrderComp, ItemJnlLine); -#endif if ProdOrderComp.FindSet() then begin OnPostConsumptionOnAfterFindProdOrderComp(ProdOrderComp); -#if not CLEAN27 - sender.RunOnPostConsumptionOnAfterFindProdOrderComp(ProdOrderComp); -#endif if ItemJnlLine.TrackingExists() and not sender.GetSkipRetrieveItemTracking() then UseItemTrackingApplication := MfgItemTrackingMgt.RetrieveConsumpItemTracking(ItemJnlLine, TempHandlingSpecification); @@ -113,9 +101,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" repeat IsHandled := false; OnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(ProdOrderComp, ItemJnlLine, TempHandlingSpecification, RemQtyToPost, UseItemTrackingApplication, LastLoop, IsHandled); -#if not CLEAN27 - sender.RunOnPostConsumptionOnBeforeCalcRemQtyToPostThisLine(ProdOrderComp, ItemJnlLine, TempHandlingSpecification, RemQtyToPost, UseItemTrackingApplication, LastLoop, IsHandled); -#endif if not IsHandled then if UseItemTrackingApplication then begin TempHandlingSpecification.SetRange("Source Ref. No.", ProdOrderComp."Line No."); @@ -149,9 +134,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ProdOrderComp.CalcFields("Act. Consumption (Qty)"); NewRemainingQty := ProdOrderComp."Expected Qty. (Base)" - ProdOrderComp."Act. Consumption (Qty)" - QtyToPost; OnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComp, NewRemainingQty, QtyToPost); -#if not CLEAN27 - sender.RunOnPostConsumptionOnAfterCalcNewRemainingQty(ProdOrderComp, NewRemainingQty, QtyToPost); -#endif NewRemainingQty := Round(NewRemainingQty, UOMMgt.QtyRndPrecision()); if (NewRemainingQty * ProdOrderComp."Expected Qty. (Base)") <= 0 then begin QtyToPost := ProdOrderComp."Remaining Qty. (Base)"; @@ -166,9 +148,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" IsHandled := false; OnPostConsumptionOnBeforeCalcRemainingQuantity(ProdOrderComp, ItemJnlLine, NewRemainingQty, QtyToPost, IsHandled, RemQtyToPost); -#if not CLEAN27 - sender.RunOnPostConsumptionOnBeforeCalcRemainingQuantity(ProdOrderComp, ItemJnlLine, NewRemainingQty, QtyToPost, IsHandled, RemQtyToPost); -#endif if not IsHandled then ProdOrderComp."Remaining Quantity" := Round(ProdOrderComp."Remaining Qty. (Base)" / ProdOrderComp."Qty. per Unit of Measure", UOMMgt.QtyRndPrecision()); @@ -186,9 +165,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ItemJnlLine, ProdOrderComp, ProdOrderComp."Line No.", QtyToPost, true, ItemLedgEntryNo, TempSplitItemJnlLine, sender); OnPostConsumptionOnAfterInsertEntry(ProdOrderComp); -#if not CLEAN27 - sender.RunOnPostConsumptionOnAfterInsertEntry(ProdOrderComp); -#endif end; if UseItemTrackingApplication then begin @@ -205,9 +181,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" end; OnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(ItemJnlLine, ProdOrderComp); -#if not CLEAN27 - sender.RunOnPostConsumptionOnRemQtyToPostOnBeforeInsertConsumpEntry(ItemJnlLine, ProdOrderComp); -#endif IsHandled := false; OnPostConsumptionOnBeforeInsertRemainingConsumpEntry(ItemJnlLine, ProdOrderComp, IsHandled); if not IsHandled then @@ -219,9 +192,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ProdOrderCompModified := false; OnAfterPostConsumption(ProdOrderComp, ItemJnlLine); -#if not CLEAN27 - sender.RunOnAfterPostConsumption(ProdOrderComp, ItemJnlLine); -#endif end; local procedure CheckItemTrackingOfComp(GlobalItemTrackingSetup: Record "Item Tracking Setup"; TempHandlingSpecification: Record "Tracking Specification"; ItemJnlLine: Record "Item Journal Line") @@ -233,9 +203,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ItemJnlLine.CheckTrackingIfRequired(ItemTrackingSetup2); OnAfterCheckItemTrackingOfComp(TempHandlingSpecification, ItemJnlLine); -#if not CLEAN27 - ItemJnlPostLine.RunOnAfterCheckItemTrackingOfComp(TempHandlingSpecification, ItemJnlLine); -#endif end; local procedure InsertConsumpEntry(var ItemJnlLine: Record "Item Journal Line"; var ProdOrderComp: Record "Prod. Order Component"; ProdOrderCompLineNo: Integer; QtyBase: Decimal; ModifyProdOrderComp: Boolean; ItemLedgEntryNo: Integer; var TempSplitItemJnlLine: Record "Item Journal Line" temporary; var sender: Codeunit "Item Jnl.-Post Line") @@ -243,9 +210,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" PostWhseJnlLine: Boolean; begin OnBeforeInsertConsumpEntry(ProdOrderComp, QtyBase, ModifyProdOrderComp, ItemJnlLine, TempSplitItemJnlLine); -#if not CLEAN27 - sender.RunOnBeforeInsertConsumpEntry(ProdOrderComp, QtyBase, ModifyProdOrderComp, ItemJnlLine, TempSplitItemJnlLine); -#endif ItemJnlLine.Quantity := QtyBase; ItemJnlLine."Quantity (Base)" := QtyBase; @@ -256,9 +220,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" if not sender.GetCalledFromInvtPutawayPick() then ProdOrderCompReserve.TransferPOCompToItemJnlLine(ProdOrderComp, ItemJnlLine, QtyBase); OnBeforeProdOrderCompModify(ProdOrderComp, ItemJnlLine); -#if not CLEAN27 - sender.RunOnBeforeProdOrderCompModify(ProdOrderComp, ItemJnlLine); -#endif ProdOrderComp.Modify(); end; @@ -273,18 +234,12 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" end; OnInsertConsumpEntryOnBeforePostItem(ItemJnlLine, ProdOrderComp, PostWhseJnlLine, WhseJnlLine); -#if not CLEAN27 - sender.RunOnInsertConsumpEntryOnBeforePostItem(ItemJnlLine, ProdOrderComp, PostWhseJnlLine, WhseJnlLine); -#endif sender.PostItem(ItemJnlLine); if PostWhseJnlLine then sender.RegisterWhseJnlLine(WhseJnlLine); OnAfterInsertConsumpEntry(WhseJnlLine, ProdOrderComp, QtyBase, PostWhseJnlLine, ItemJnlLine, ItemLedgEntryNo); -#if not CLEAN27 - sender.RunOnAfterInsertConsumpEntry(WhseJnlLine, ProdOrderComp, QtyBase, PostWhseJnlLine, ItemJnlLine, ItemLedgEntryNo); -#endif end; local procedure ReservationExists(ItemJnlLine: Record "Item Journal Line"): Boolean @@ -296,9 +251,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnBeforeReservationExists(ItemJnlLine, Result, IsHandled); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforeReservationExists(ItemJnlLine, Result, IsHandled); -#endif if IsHandled then exit(Result); @@ -442,17 +394,11 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" SkipInventoryValueZeroCheck: Boolean; begin OnBeforePostOutput(ItemJnlLine, SkipInventoryValueZeroCheck); -#if not CLEAN27 - sender.RunOnBeforePostOutput(ItemJnlLine); -#endif if ItemJnlLine."Stop Time" <> 0 then begin sender.InsertCapLedgEntry(ItemJnlLine, CapLedgEntry, ItemJnlLine."Stop Time", ItemJnlLine."Stop Time"); SkipPost := ItemJnlLine.OnlyStopTime(); OnPostOutputOnAfterInsertCapLedgEntry(ItemJnlLine, SkipPost); -#if not CLEAN27 - sender.RunOnPostOutputOnAfterInsertCapLedgEntry(ItemJnlLine, SkipPost); -#endif if SkipPost then exit; end; @@ -482,16 +428,10 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" sender.CalcDirAndIndirCostAmts(DirCostAmt, IndirCostAmt, ValuedQty, ItemJnlLine); OnPostOutputOnBeforeInsertCostValueEntries(ItemJnlLine, CapLedgEntry, ValuedQty, DirCostAmt, IndirCostAmt, sender); -#if not CLEAN27 - sender.RunOnPostOutputOnBeforeInsertCostValueEntries(ItemJnlLine, CapLedgEntry, ValuedQty, DirCostAmt, IndirCostAmt); -#endif sender.InsertCapValueEntry(ItemJnlLine, CapLedgEntry, ItemJnlLine."Value Entry Type"::"Direct Cost", ValuedQty, ValuedQty, DirCostAmt); sender.InsertCapValueEntry(ItemJnlLine, CapLedgEntry, ItemJnlLine."Value Entry Type"::"Indirect Cost", ValuedQty, 0, IndirCostAmt); OnPostOutputOnAfterInsertCostValueEntries(ItemJnlLine, CapLedgEntry, sender.GetCalledFromAdjustment(), sender.GetPostToGL(), sender); -#if not CLEAN27 - sender.RunOnPostOutputOnAfterInsertCostValueEntries(ItemJnlLine, CapLedgEntry, sender.GetCalledFromAdjustment(), sender.GetPostToGL()); -#endif if LastOperation and (ItemJnlLine."Output Quantity" <> 0) then begin sender.CheckItemTracking(ItemJnlLine); @@ -505,9 +445,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" IsHandled := false; OnPostOutputOnBeforeGetMfgAmounts(ItemJnlLine, ProdOrder, IsHandled); -#if not CLEAN27 - sender.RunOnPostOutputOnBeforeGetMfgAmounts(ItemJnlLine, ProdOrder, IsHandled); -#endif if not IsHandled then begin MfgItem.Get(ProdOrderLine."Item No."); MfgItem.TestField("Gen. Prod. Posting Group"); @@ -519,16 +456,10 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" else MfgUnitCost := MfgItem."Unit Cost"; OnPostOutputOnAfterSetMfgUnitCost(ItemJnlLine, MfgUnitCost, ProdOrderLine); -#if not CLEAN27 - sender.RunOnPostOutputOnAfterSetMfgUnitCost(ItemJnlLine, MfgUnitCost, ProdOrderLine); -#endif ItemJnlLine.Amount := ItemJnlLine."Output Quantity" * MfgUnitCost; ItemJnlLine."Amount (ACY)" := ACYMgt.CalcACYAmt(ItemJnlLine.Amount, ItemJnlLine."Posting Date", false); OnPostOutputOnAfterUpdateAmounts(ItemJnlLine); -#if not CLEAN27 - sender.RUnOnPostOutputOnAfterUpdateAmounts(ItemJnlLine); -#endif ItemJnlLine."Gen. Bus. Posting Group" := ProdOrder."Gen. Bus. Posting Group"; ItemJnlLine."Gen. Prod. Posting Group" := MfgItem."Gen. Prod. Posting Group"; @@ -542,9 +473,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" PostWhseJnlLine := true; OnPostOutputOnBeforeCreateWhseJnlLine(ItemJnlLine, PostWhseJnlLine); -#if not CLEAN27 - sender.RunOnPostOutputOnBeforeCreateWhseJnlLine(ItemJnlLine, PostWhseJnlLine); -#endif if PostWhseJnlLine then begin GetLocation(ItemJnlLine."Location Code"); if Location."Bin Mandatory" and (not sender.GetCalledFromInvtPutawayPick()) then @@ -554,9 +482,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" end; end; OnPostOutputOnAfterCreateWhseJnlLine(ItemJnlLine); -#if not CLEAN27 - sender.RunOnPostOutputOnAfterCreateWhseJnlLine(ItemJnlLine); -#endif if ItemJnlLine.Subcontracting and ItemJnlLine.Correction then ItemJnlLineSubContracting := ItemJnlLine; @@ -571,23 +496,14 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" IsHandled := false; OnPostOutputOnBeforePostItem(ItemJnlLine, ProdOrderLine, IsHandled); -#if not CLEAN27 - sender.RunOnPostOutputOnBeforePostItem(ItemJnlLine, ProdOrderLine, IsHandled); -#endif if not IsHandled then sender.PostItem(ItemJnlLine); IsHandled := false; OnPostOutputOnBeforeUpdateProdOrderLine(ItemJnlLine, IsHandled); -#if not CLEAN27 - sender.RunOnPostOutputOnBeforeUpdateProdOrderLine(ItemJnlLine, IsHandled); -#endif if not IsHandled then begin UpdateProdOrderLine(ItemJnlLine, ProdOrderLine, ReTrack, sender.GetItemLedgerEntryNo()); OnPostOutputOnAfterUpdateProdOrderLine(ItemJnlLine, WhseJnlLine, GlobalItemLedgerEntry); -#if not CLEAN27 - sender.RunOnPostOutputOnAfterUpdateProdOrderLine(ItemJnlLine, WhseJnlLine, GlobalItemLedgerEntry); -#endif end; if PostWhseJnlLine then @@ -603,9 +519,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" end; OnAfterPostOutput(GlobalItemLedgerEntry, ProdOrderLine, ItemJnlLine); -#if not CLEAN27 - sender.RunOnAfterPostOutput(GlobalItemLedgerEntry, ProdOrderLine, ItemJnlLine); -#endif end; local procedure GetItem(ItemNo: Code[20]; ForceGetItem: Boolean): Boolean @@ -640,9 +553,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnBeforePostOutputForProdOrder(ItemJnlLine, LastOperation, IsHandled); -#if not CLEAN27 - sender.RunOnBeforePostOutputForProdOrder(ItemJnlLine, LastOperation, IsHandled); -#endif if IsHandled then exit; @@ -659,9 +569,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ProdOrderRtngLine.SetRange("Routing Reference No.", ItemJnlLine."Routing Reference No."); ProdOrderRtngLine.SetRange("Routing No.", ItemJnlLine."Routing No."); OnPostOutputOnAfterProdOrderRtngLineSetFilters(ProdOrderRtngLine); -#if not CLEAN27 - sender.RunOnPostOutputOnAfterProdOrderRtngLineSetFilters(ProdOrderRtngLine); -#endif if not ProdOrderRtngLine.IsEmpty() then begin ItemJnlLine.TestField("Operation No."); ItemJnlLine.TestField("No."); @@ -675,9 +582,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ApplyCapNeed(ItemJnlLine, ItemJnlLine."Setup Time (Base)", ItemJnlLine."Run Time (Base)"); OnPostOutputForProdOrderOnAfterApplyCapNeed(ItemJnlLine, ValuedQty); -#if not CLEAN27 - sender.RunOnPostOutputForProdOrderOnAfterApplyCapNeed(ItemJnlLine, ValuedQty); -#endif end; if ItemJnlLine."Operation No." <> '' then @@ -692,9 +596,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ShouldFlushOperation := ItemJnlLine."Output Quantity" >= 0; OnBeforeCallFlushOperation(ItemJnlLine, ShouldFlushOperation); -#if not CLEAN27 - sender.RunOnBeforeCallFlushOperation(ItemJnlLine, ShouldFlushOperation); -#endif if ShouldFlushOperation then FlushOperation( ItemJnlLine, ProdOrder, ProdOrderLine, GlobalItemTrackingSetup, GlobalItemTrackingCode, LastOperation, sender); @@ -706,9 +607,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnBeforeGetOutputProdOrder(ProdOrder, ItemJnlLine, IsHandled); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforeGetOutputProdOrder(ProdOrder, ItemJnlLine, IsHandled); -#endif if IsHandled then exit; @@ -721,9 +619,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnBeforeGetOutputProdOrderLine(ProdOrderLine, ItemJnlLine, IsHandled); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforeGetOutputProdOrderLine(ProdOrderLine, ItemJnlLine, IsHandled); -#endif if IsHandled then exit; @@ -736,9 +631,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnBeforeGetProdOrderRoutingLine(ProdOrderRoutingLine, OldItemJnlLine, IsHandled); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforeGetProdOrderRoutingLine(ProdOrderRoutingLine, OldItemJnlLine, IsHandled); -#endif if IsHandled then exit; @@ -754,9 +646,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnBeforePostOutputUpdateProdOrderRtngLine(ProdOrderRtngLine, ItemJnlLine, IsHandled); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforePostOutputUpdateProdOrderRtngLine(ProdOrderRtngLine, ItemJnlLine, IsHandled); -#endif if IsHandled then exit; @@ -767,18 +656,12 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ProdOrderRtngLine."Routing Status" := ProdOrderRtngLine."Routing Status"::"In Progress"; LastOperation := (not NextOperationExist(ProdOrderRtngLine)); OnPostOutputOnBeforeProdOrderRtngLineModify(ProdOrderRtngLine, ProdOrderLine, ItemJnlLine, LastOperation); -#if not CLEAN27 - ItemJnlPostLine.RunOnPostOutputOnBeforeProdOrderRtngLineModify(ProdOrderRtngLine, ProdOrderLine, ItemJnlLine, LastOperation); -#endif ProdOrderRtngLine.Modify(); end; local procedure NextOperationExist(var ProdOrderRtngLine: Record "Prod. Order Routing Line"): Boolean begin OnBeforeNextOperationExist(ProdOrderRtngLine); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforeNextOperationExist(ProdOrderRtngLine); -#endif exit(ProdOrderRtngLine."Next Operation No." <> ''); end; @@ -795,9 +678,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" CapQty := ItemJnlLine.Quantity + ItemJnlLine."Scrap Quantity"; OnAfterCalcCapQty(ItemJnlLine, CapQty); -#if not CLEAN27 - ItemJnlPostLine.RunOnAfterCalcCapQty(ItemJnlLine, CapQty); -#endif end; local procedure ApplyCapNeed(var ItemJnlLine: Record "Item Journal Line"; PostedSetupTime: Decimal; PostedRunTime: Decimal) @@ -811,9 +691,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnBeforeOnApplyCapNeed(ItemJnlLine, PostedSetupTime, PostedRunTime, IsHandled); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforeOnApplyCapNeed(ItemJnlLine, PostedSetupTime, PostedRunTime, IsHandled); -#endif if IsHandled then exit; @@ -832,9 +709,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ProdOrderCapNeed.ModifyAll("Allocated Time", 0) else begin OnApplyCapNeedOnAfterSetFilters(ProdOrderCapNeed, ItemJnlLine); -#if not CLEAN27 - ItemJnlPostLine.RunOnApplyCapNeedOnAfterSetFilters(ProdOrderCapNeed, ItemJnlLine); -#endif CalcCapLedgerEntriesSetupRunTime(ItemJnlLine, PrevSetupTime, PrevRunTime); if PostedSetupTime <> 0 then begin @@ -876,9 +750,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" CapLedgerEntry.SetRange("Routing Reference No.", ItemJnlLine."Routing Reference No."); CapLedgerEntry.SetRange("Operation No.", ItemJnlLine."Operation No."); OnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(CapLedgerEntry, ItemJnlLine); -#if not CLEAN27 - ItemJnlPostLine.RunOnCalcCapLedgerEntriesSetupRunTimeOnAfterCapLedgerEntrySetFilters(CapLedgerEntry, ItemJnlLine); -#endif CapLedgerEntry.CalcSums("Setup Time", "Run Time"); TotalSetupTime := CapLedgerEntry."Setup Time"; @@ -890,9 +761,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ReservMgt: Codeunit "Reservation Management"; begin OnBeforeUpdateProdOrderLine(ProdOrderLine, ItemJnlLine, ReTrack); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforeUpdateProdOrderLine(ProdOrderLine, ItemJnlLine, ReTrack); -#endif if ItemJnlLine."Output Quantity (Base)" > ProdOrderLine."Remaining Qty. (Base)" then ProdOrderLineReserve.AssignForPlanning(ProdOrderLine); @@ -905,9 +773,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ProdOrderLine."Remaining Qty. (Base)" := 0; ProdOrderLine."Remaining Quantity" := ProdOrderLine."Remaining Qty. (Base)" / ProdOrderLine."Qty. per Unit of Measure"; OnBeforeProdOrderLineModify(ProdOrderLine, ItemJnlLine, ItemLedgEntryNo); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforeProdOrderLineModify(ProdOrderLine, ItemJnlLine, ItemLedgEntryNo); -#endif ProdOrderLine.Modify(); if ReTrack then begin @@ -917,9 +782,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" end; OnAfterUpdateProdOrderLine(ProdOrderLine, ReTrack, ItemJnlLine); -#if not CLEAN27 - ItemJnlPostLine.RunOnAfterUpdateProdOrderLine(ProdOrderLine, ReTrack, ItemJnlLine); -#endif end; local procedure FlushOperation( @@ -936,9 +798,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" xCalledFromInvtPutawayPick: Boolean; begin OnBeforeFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine, LastOperation); -#if not CLEAN27 - sender.RunOnBeforeFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine, LastOperation); -#endif if ItemJnlLine."Operation No." = '' then exit; @@ -954,9 +813,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" GetProdOrderRoutingLine(ProdOrderRoutingLine, ItemJnlLineSaved); OnFlushOperationOnBeforeCheckRoutingLinkCode(ProdOrder, ProdOrderLine, ProdOrderRoutingLine, ItemJnlLine, LastOperation); -#if not CLEAN27 - sender.RunOnFlushOperationOnBeforeCheckRoutingLinkCode(ProdOrder, ProdOrderLine, ProdOrderRoutingLine, ItemJnlLine, LastOperation); -#endif if ProdOrderRoutingLine."Routing Link Code" <> '' then begin ProdOrderComp.SetCurrentKey(Status, "Prod. Order No.", "Routing Link Code", "Flushing Method"); ProdOrderComp.SetRange("Flushing Method", ProdOrderComp."Flushing Method"::Forward, ProdOrderComp."Flushing Method"::"Pick + Backward"); @@ -965,9 +821,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ProdOrderComp.SetRange("Prod. Order No.", ItemJnlLineSaved."Order No."); ProdOrderComp.SetRange("Prod. Order Line No.", ItemJnlLineSaved."Order Line No."); OnFlushOperationOnAfterProdOrderCompSetFilters(ProdOrderComp, ItemJnlLineSaved, ProdOrderRoutingLine); -#if not CLEAN27 - sender.RunOnFlushOperationOnAfterProdOrderCompSetFilters(ProdOrderComp, ItemJnlLineSaved, ProdOrderRoutingLine); -#endif if ProdOrderComp.FindSet() then begin sender.SetSkipRetrieveItemTracking(true); repeat @@ -985,9 +838,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" sender.SetCalledFromInvtPutawayPick(xCalledFromInvtPutawayPick); OnAfterFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine); -#if not CLEAN27 - sender.RunOnAfterFlushOperation(ProdOrder, ProdOrderLine, ItemJnlLine); -#endif end; procedure PostFlushedConsumption(var ItemJnlLine: Record "Item Journal Line"; ProdOrder: Record "Production Order"; ProdOrderLine: Record "Prod. Order Line"; ProdOrderComp: Record "Prod. Order Component"; var ProdOrderRoutingLine: Record "Prod. Order Routing Line"; OldItemJnlLine: Record "Item Journal Line"; var sender: Codeunit "Item Jnl.-Post Line") @@ -1003,9 +853,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnBeforePostFlushedConsump(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, IsHandled); -#if not CLEAN27 - sender.RunOnBeforePostFlushedConsump(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, IsHandled); -#endif if IsHandled then exit; @@ -1015,9 +862,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" CompItem.TestField("Rounding Precision"); OnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, OutputQtyBase); -#if not CLEAN27 - sender.RunOnPostFlushedConsumptionOnBeforeCalcQtyToPost(ProdOrder, ProdOrderLine, ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine, OutputQtyBase); -#endif if ProdOrderComp."Flushing Method" in [ProdOrderComp."Flushing Method"::Backward, ProdOrderComp."Flushing Method"::"Pick + Backward"] then begin @@ -1033,9 +877,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" QtyToPost := ProdOrderComp.GetNeededQty(CalcBasedOn::"Expected Output", true); QtyToPost := UOMMgt.RoundToItemRndPrecision(QtyToPost, CompItem."Rounding Precision"); OnPostFlushedConsumpOnAfterCalcQtyToPost(ProdOrder, ProdOrderLine, ProdOrderComp, OutputQtyBase, QtyToPost, OldItemJnlLine, ProdOrderRoutingLine, CompItem); -#if not CLEAN27 - sender.RunOnPostFlushedConsumpOnAfterCalcQtyToPost(ProdOrder, ProdOrderLine, ProdOrderComp, OutputQtyBase, QtyToPost, OldItemJnlLine, ProdOrderRoutingLine, CompItem); -#endif if QtyToPost = 0 then exit; @@ -1067,34 +908,22 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ItemJnlLine."Gen. Bus. Posting Group" := ProdOrder."Gen. Bus. Posting Group"; ItemJnlLine."Gen. Prod. Posting Group" := CompItem."Gen. Prod. Posting Group"; OnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(ItemJnlLine, OldItemJnlLine, ProdOrderLine, ProdOrderComp, CompItem); -#if not CLEAN27 - sender.RunOnPostFlushedConsumpOnAfterCopyProdOrderFieldsToItemJnlLine(ItemJnlLine, OldItemJnlLine, ProdOrderLine, ProdOrderComp, CompItem); -#endif TempTrackingSpecificationSaved.Reset(); TempTrackingSpecificationSaved.DeleteAll(); sender.SaveTempTrackingSpecification(TempTrackingSpecificationSaved); OnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJnlLine, ProdOrderComp); -#if not CLEAN27 - sender.RunOnPostFlushedConsumpOnBeforeProdOrderCompReserveTransferPOCompToItemJnlLine(ItemJnlLine, ProdOrderComp); -#endif ProdOrderCompReserve.TransferPOCompToItemJnlLine( ProdOrderComp, ItemJnlLine, Round(QtyToPost * ProdOrderComp."Qty. per Unit of Measure", UOMMgt.QtyRndPrecision())); OnBeforePostFlushedConsumpItemJnlLine(ItemJnlLine); -#if not CLEAN27 - sender.RunOnBeforePostFlushedConsumpItemJnlLine(ItemJnlLine); -#endif sender.PostFlushedConsumptionItemJnlLine( ItemJnlLine, GetCombinedDimSetID(ProdOrderLine."Dimension Set ID", ProdOrderComp."Dimension Set ID")); sender.RestoreTempTrackingSpecification(TempTrackingSpecificationSaved); OnAfterPostFlushedConsump(ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine); -#if not CLEAN27 - sender.RunOnAfterPostFlushedConsump(ProdOrderComp, ProdOrderRoutingLine, OldItemJnlLine); -#endif end; local procedure GetCombinedDimSetID(DimSetID1: Integer; DimSetID2: Integer): Integer @@ -1151,9 +980,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" begin IsHandled := false; OnBeforeGetProdOrderLine(ProdOrderLine, OrderNo, OrderLineNo, IsHandled); -#if not CLEAN27 - ItemJnlPostLine.RunOnBeforeGetProdOrderLine(ProdOrderLine, OrderNo, OrderLineNo, IsHandled); -#endif if IsHandled then exit; @@ -1172,9 +998,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" IsHandled := false; OnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry, IsHandled); -#if not CLEAN27 - sender.RunOnCorrectOutputValuationDateOnBeforeCheckProdOrder(ItemLedgerEntry, IsHandled); -#endif if not IsHandled then if not ProductionOrder.Get(ProductionOrder.Status::Released, ItemLedgerEntry."Order No.") then exit; @@ -1188,9 +1011,6 @@ codeunit 99000822 "Mfg. Item Jnl.-Post Line" ValueEntry.SetRange("Order Line No.", ItemLedgerEntry."Order Line No."); ValueEntry.SetRange("Item Ledger Entry Type", ValueEntry."Item Ledger Entry Type"::Output); OnCorrectOutputValuationDateOnBeforeValueEntryFindSet(ValueEntry); -#if not CLEAN27 - sender.RunOnCorrectOutputValuationDateOnBeforeValueEntryFindSet(ValueEntry); -#endif if ValueEntry.FindSet() then repeat TempValueEntry := ValueEntry; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Requisition/MfgCarryOutAction.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Requisition/MfgCarryOutAction.Codeunit.al index 31c6d414d5f..a3a70afdf26 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Requisition/MfgCarryOutAction.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Requisition/MfgCarryOutAction.Codeunit.al @@ -20,9 +20,6 @@ codeunit 99000818 "Mfg. Carry Out Action" Permissions = TableData "Prod. Order Capacity Need" = rid; var -#if not CLEAN27 - CarryOutAction: Codeunit "Carry Out Action"; -#endif CalculateProdOrder: Codeunit "Calculate Prod. Order"; PlngComponentReserve: Codeunit "Plng. Component-Reserve"; ProdOrderLineReserve: Codeunit "Prod. Order Line-Reserve"; @@ -44,9 +41,6 @@ codeunit 99000818 "Mfg. Carry Out Action" begin PrintOrder := ProdOrderChoice in [ProdOrderChoice::"Firm Planned & Print", ProdOrderChoice::"Released & Print"]; OnCarryOutActionsFromProdOrderOnAfterCalcPrintOrder(PrintOrder, ProdOrderChoice.AsInteger()); -#if not CLEAN27 - CarryOutAction.RunOnCarryOutActionsFromProdOrderOnAfterCalcPrintOrder(PrintOrder, ProdOrderChoice.AsInteger()); -#endif IsHandled := false; OnCarryOutActionsFromProdOrderOnBeforeCaseStatement(RequisitionLine, ProdOrderChoice, ProdWkshTempl, ProdWkshName, TempDocumentEntry, sender, IsHandled, Result); @@ -90,9 +84,6 @@ codeunit 99000818 "Mfg. Carry Out Action" ProdOrderLine.BlockDynamicTracking(true); ProdOrderLine.Validate(Quantity, RequisitionLine.Quantity); OnProdOrderChgAndResheduleOnAfterValidateQuantity(ProdOrderLine, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnProdOrderChgAndResheduleOnAfterValidateQuantity(ProdOrderLine, RequisitionLine); -#endif ProdOrderLine."Ending Time" := RequisitionLine."Ending Time"; ProdOrderLine.Validate("Planning Flexibility", RequisitionLine."Planning Flexibility"); ProdOrderLine.Validate("Ending Date", RequisitionLine."Ending Date"); @@ -132,16 +123,10 @@ codeunit 99000818 "Mfg. Carry Out Action" ProductionOrder."Ending Date" := RequisitionLine."Ending Date"; ProductionOrder."Due Date" := RequisitionLine."Due Date"; OnProdOrderChgAndResheduleOnBeforeProdOrderModify(ProductionOrder, ProdOrderLine, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnProdOrderChgAndResheduleOnBeforeProdOrderModify(ProductionOrder, ProdOrderLine, RequisitionLine); -#endif ProductionOrder.Modify(); FinalizeOrderHeader(ProductionOrder); end; OnAfterProdOrderChgAndReshedule(RequisitionLine, ProdOrderLine); -#if not CLEAN27 - CarryOutAction.RunOnAfterProdOrderChgAndReshedule(RequisitionLine, ProdOrderLine); -#endif end else begin Message(StrSubstNo(CouldNotChangeSupplyTxt, RequisitionLine."Ref. Order No.", RequisitionLine."Ref. Line No.")); exit(false); @@ -163,17 +148,11 @@ codeunit 99000818 "Mfg. Carry Out Action" HeaderExist := ProductionOrder.Get(TempDocumentEntry."Document Type", TempDocumentEntry."Document No."); OnInsertProdOrderOnAfterFindTempProdOrder(RequisitionLine, ProductionOrder, HeaderExist, Item); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderOnAfterFindTempProdOrder(RequisitionLine, ProductionOrder, HeaderExist, Item); -#endif if not HeaderExist then begin VerifyProdOrderNoSeriesSetup(ProdOrderChoice); OnInsertProdOrderOnBeforeProdOrderInit(RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderOnBeforeProdOrderInit(RequisitionLine); -#endif Item.CheckItemAndVariantForProdBlocked(RequisitionLine."No.", RequisitionLine."Variant Code", Item."Production Blocked"::Output); ProductionOrder.Init(); @@ -182,14 +161,8 @@ codeunit 99000818 "Mfg. Carry Out Action" if ProductionOrder."No. Series" = RequisitionLine."No. Series" then ProductionOrder."No." := RequisitionLine."Ref. Order No."; OnInsertProdOrderOnBeforeProdOrderInsert(ProductionOrder, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderOnBeforeProdOrderInsert(ProductionOrder, RequisitionLine); -#endif ProductionOrder.Insert(true); OnInsertProdOrderOnAfterProdOrderInsert(ProductionOrder, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderOnAfterProdOrderInsert(ProductionOrder, RequisitionLine); -#endif ProductionOrder."Source Type" := ProductionOrder."Source Type"::Item; ProductionOrder."Source No." := RequisitionLine."No."; ProductionOrder.Validate(Description, RequisitionLine.Description); @@ -216,9 +189,6 @@ codeunit 99000818 "Mfg. Carry Out Action" ProductionOrder."Dimension Set ID" := RequisitionLine."Dimension Set ID"; ProductionOrder.UpdateDatetime(); OnInsertProdOrderWithReqLine(ProductionOrder, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderWithReqLine(ProductionOrder, RequisitionLine); -#endif ProductionOrder.Modify(); end; InsertProdOrderLine(RequisitionLine, ProductionOrder, Item); @@ -230,9 +200,6 @@ codeunit 99000818 "Mfg. Carry Out Action" ProdOrderStatusMgt.FlushProdOrder(ProductionOrder, ProductionOrder.Status, WorkDate()); OnAfterInsertProdOrder(ProductionOrder, ProdOrderChoice.AsInteger(), RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnAfterInsertProdOrder(ProductionOrder, ProdOrderChoice.AsInteger(), RequisitionLine); -#endif if not HeaderExist then InsertTempProdOrder(RequisitionLine, ProductionOrder, TempDocumentEntry); @@ -280,9 +247,6 @@ codeunit 99000818 "Mfg. Carry Out Action" IsHandled := false; OnInsertProdOrderOnProdOrderChoiceNotFirmPlannedPrint(ProductionOrder, ProdOrderChoice, IsHandled); #endif -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderOnProdOrderChoiceNotFirmPlannedPrint(ProductionOrder, ProdOrderChoice, IsHandled); -#endif #if not CLEAN29 if not IsHandled then #endif @@ -309,9 +273,6 @@ codeunit 99000818 "Mfg. Carry Out Action" NextLineNo := 10000; OnInsertProdOrderLineOnBeforeProdOrderLineInit(RequisitionLine, Item); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderLineOnBeforeProdOrderLineInit(RequisitionLine, Item); -#endif ProdOrderLine.Init(); ProdOrderLine.BlockDynamicTracking(true); ProdOrderLine.Status := ProductionOrder.Status; @@ -328,9 +289,6 @@ codeunit 99000818 "Mfg. Carry Out Action" ProdOrderLine."Variant Code" := RequisitionLine."Variant Code"; ProdOrderLine."Location Code" := RequisitionLine."Location Code"; OnInsertProdOrderLineOnBeforeGetBinCode(ProdOrderLine, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderLineOnBeforeGetBinCode(ProdOrderLine, RequisitionLine); -#endif if RequisitionLine."Bin Code" <> '' then ProdOrderLine.Validate("Bin Code", RequisitionLine."Bin Code") else @@ -339,9 +297,6 @@ codeunit 99000818 "Mfg. Carry Out Action" ProdOrderLine."Production BOM No." := RequisitionLine."Production BOM No."; ProdOrderLine."Inventory Posting Group" := Item."Inventory Posting Group"; OnInsertProdOrderLineOnBeforeValidateUnitCost(RequisitionLine, ProductionOrder, ProdOrderLine, Item); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderLineOnBeforeValidateUnitCost(RequisitionLine, ProductionOrder, ProdOrderLine, Item); -#endif ProdOrderLine.Validate("Unit Cost", RequisitionLine."Unit Cost"); ProdOrderLine."Routing No." := RequisitionLine."Routing No."; ProdOrderLine."Starting Time" := RequisitionLine."Starting Time"; @@ -361,14 +316,8 @@ codeunit 99000818 "Mfg. Carry Out Action" ProdOrderLine."Shortcut Dimension 2 Code" := RequisitionLine."Shortcut Dimension 2 Code"; ProdOrderLine."Dimension Set ID" := RequisitionLine."Dimension Set ID"; OnInsertProdOrderLineWithReqLine(ProdOrderLine, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderLineWithReqLine(ProdOrderLine, RequisitionLine); -#endif ProdOrderLine.Insert(); OnInsertProdOrderLineOnAfterProdOrderLineInsert(ProdOrderLine, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderLineOnAfterProdOrderLineInsert(ProdOrderLine, RequisitionLine); -#endif CalculateProdOrder.CalculateProdOrderDates(ProdOrderLine, false); ProdOrderLineReserve.TransferPlanningLineToPOLine(RequisitionLine, ProdOrderLine, RequisitionLine."Net Quantity (Base)", false); @@ -376,9 +325,6 @@ codeunit 99000818 "Mfg. Carry Out Action" ReserveBindingOrderToProd(ProdOrderLine, RequisitionLine); OnInsertProdOrderLineOnBeforeModifyProdOrderLine(ProdOrderLine, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderLineOnBeforeModifyProdOrderLine(ProdOrderLine, RequisitionLine); -#endif ProdOrderLine.Modify(); SetProdOrderLineBinCodeFromPlanningRtngLines(ProductionOrder, ProdOrderLine, RequisitionLine, Item); TransferBOM(RequisitionLine, ProductionOrder, ProdOrderLine."Line No."); @@ -388,9 +334,6 @@ codeunit 99000818 "Mfg. Carry Out Action" UpdateComponentLink(ProdOrderLine); OnAfterInsertProdOrderLine(RequisitionLine, ProductionOrder, ProdOrderLine, Item); -#if not CLEAN27 - CarryOutAction.RunOnAfterInsertProdOrderLine(RequisitionLine, ProductionOrder, ProdOrderLine, Item); -#endif end; procedure ReserveBindingOrderToProd(var ProdOrderLine: Record "Prod. Order Line"; var RequisitionLine: Record "Requisition Line") @@ -428,9 +371,6 @@ codeunit 99000818 "Mfg. Carry Out Action" begin IsHandled := false; OnBeforeDeleteProdOrderLines(RequisitionLine, IsHandled); -#if not CLEAN27 - CarryOutAction.RunOnBeforeDeleteProdOrderLines(RequisitionLine, IsHandled); -#endif if IsHandled then exit; @@ -455,18 +395,12 @@ codeunit 99000818 "Mfg. Carry Out Action" begin IsHandled := false; OnBeforeSetProdOrderLineBinCodeFromPlanningRtngLines(ProductionOrder, ProdOrderLine, RequisitionLine, Item, IsHandled); -#if not CLEAN27 - CarryOutAction.RunOnBeforeSetProdOrderLineBinCodeFromPlanningRtngLines(ProductionOrder, ProdOrderLine, RequisitionLine, Item, IsHandled); -#endif if IsHandled then exit; if TransferRouting(RequisitionLine, ProductionOrder, ProdOrderLine."Routing No.", ProdOrderLine."Routing Reference No.") then begin RefreshProdOrderLine := false; OnInsertProdOrderLineOnAfterTransferRouting(ProdOrderLine, RefreshProdOrderLine); -#if not CLEAN27 - CarryOutAction.RunOnInsertProdOrderLineOnAfterTransferRouting(ProdOrderLine, RefreshProdOrderLine); -#endif if RefreshProdOrderLine then ProdOrderLine.Get(ProdOrderLine.Status, ProdOrderLine."Prod. Order No.", ProdOrderLine."Line No."); CalculateProdOrder.SetProdOrderLineBinCodeFromPlanningRtngLines(ProdOrderLine, RequisitionLine); @@ -480,9 +414,6 @@ codeunit 99000818 "Mfg. Carry Out Action" begin IsHandled := false; OnBeforeUpdateProdOrderLineQuantity(ProdOrderLine, RequisitionLine, Item, IsHandled); -#if not CLEAN27 - CarryOutAction.RunOnBeforeUpdateProdOrderLineQuantity(ProdOrderLine, RequisitionLine, Item, IsHandled); -#endif if IsHandled then exit; @@ -496,9 +427,6 @@ codeunit 99000818 "Mfg. Carry Out Action" begin IsHandled := false; OnBeforeFinalizeOrderHeader(ProductionOrder, PrintOrder, IsHandled); -#if not CLEAN27 - CarryOutAction.RunOnBeforeFinalizeOrderHeader(ProductionOrder, PrintOrder, IsHandled); -#endif if IsHandled then exit; @@ -551,14 +479,8 @@ codeunit 99000818 "Mfg. Carry Out Action" ProdOrderRoutingLine.UpdateDatetime(); OnAfterTransferPlanningRtngLine(PlanningRoutingLine, ProdOrderRoutingLine); -#if not CLEAN27 - CarryOutAction.RunOnAfterTransferPlanningRtngLine(PlanningRoutingLine, ProdOrderRoutingLine); -#endif ProdOrderRoutingLine.Insert(); OnAfterProdOrderRtngLineInsert(ProdOrderRoutingLine, PlanningRoutingLine, ProductionOrder, RequisitionLine); -#if not CLEAN27 - CarryOutAction.RunOnAfterProdOrderRtngLineInsert(ProdOrderRoutingLine, PlanningRoutingLine, ProductionOrder, RequisitionLine); -#endif CalculateProdOrder.TransferTaskInfo(ProdOrderRoutingLine, RequisitionLine."Routing Version Code"); until PlanningRoutingLine.Next() = 0; @@ -574,9 +496,6 @@ codeunit 99000818 "Mfg. Carry Out Action" begin IsHandled := false; OnBeforeTransferBOM(RequisitionLine, ProductionOrder, ProdOrderLineNo, IsHandled); -#if not CLEAN27 - CarryOutAction.RunOnBeforeTransferBOM(RequisitionLine, ProductionOrder, ProdOrderLineNo, IsHandled); -#endif if IsHandled then exit; @@ -586,9 +505,6 @@ codeunit 99000818 "Mfg. Carry Out Action" if PlanningComponent.Find('-') then repeat OnTransferBOMOnBeforeProdOrderComp2Init(PlanningComponent); -#if not CLEAN27 - CarryOutAction.RunOnTransferBOMOnBeforeProdOrderComp2Init(PlanningComponent); -#endif ProdOrderComponent2.Init(); ProdOrderComponent2.Status := ProductionOrder.Status; ProdOrderComponent2."Prod. Order No." := ProductionOrder."No."; @@ -596,15 +512,9 @@ codeunit 99000818 "Mfg. Carry Out Action" ProdOrderComponent2.CopyFromPlanningComp(PlanningComponent); ProdOrderComponent2.UpdateDatetime(); OnAfterTransferPlanningComp(PlanningComponent, ProdOrderComponent2); -#if not CLEAN27 - CarryOutAction.RunOnAfterTransferPlanningComp(PlanningComponent, ProdOrderComponent2); -#endif ProdOrderComponent2.Insert(); CopyProdBOMComments(ProdOrderComponent2); OnTransferBOMOnAfterCopyProdBOMComments(PlanningComponent, ProdOrderComponent2); -#if not CLEAN27 - CarryOutAction.RunOnTransferBOMOnAfterCopyProdBOMComments(PlanningComponent, ProdOrderComponent2); -#endif ProdOrderCompReserve.TransferPlanningCompToPOComp(PlanningComponent, ProdOrderComponent2, 0, true); if ProdOrderComponent2.Status in [ProdOrderComponent2.Status::"Firm Planned", ProdOrderComponent2.Status::Released] then ProdOrderComponent2.AutoReserve(); @@ -622,9 +532,6 @@ codeunit 99000818 "Mfg. Carry Out Action" begin IsHandled := false; OnBeforeTransferCapNeed(RequisitionLine, ProductionOrder, RoutingNo, RoutingRefNo, IsHandled); -#if not CLEAN27 - CarryOutAction.RunOnBeforeTransferCapNeed(RequisitionLine, ProductionOrder, RoutingNo, RoutingRefNo, IsHandled); -#endif if IsHandled then exit; @@ -656,9 +563,6 @@ codeunit 99000818 "Mfg. Carry Out Action" begin IsHandled := false; OnBeforeUpdateComponentLink(ProdOrderLine, IsHandled); -#if not CLEAN27 - CarryOutAction.RunOnBeforeUpdateComponentLink(ProdOrderLine, IsHandled); -#endif if IsHandled then exit; @@ -774,15 +678,8 @@ codeunit 99000818 "Mfg. Carry Out Action" end; if PrintOrder then -#if not CLEAN27 - if RequisitionLine."Ref. Order Status" in [RequisitionLine."Ref. Order Status"::Planned, RequisitionLine."Ref. Order Status"::"Firm Planned"] then begin - OnCollectProdOrderForPrinting(NewProductionOrder); - CarryOutAction.RunOnCollectProdOrderForPrinting(NewProductionOrder); - end; -#else if RequisitionLine."Ref. Order Status" in [RequisitionLine."Ref. Order Status"::Planned, RequisitionLine."Ref. Order Status"::"Firm Planned"] then OnCollectProdOrderForPrinting(NewProductionOrder); -#endif end; local procedure FindTempProdOrder(var RequisitionLine: Record "Requisition Line"; var TempDocumentEntry: Record "Document Entry" temporary): Boolean @@ -826,9 +723,6 @@ codeunit 99000818 "Mfg. Carry Out Action" PlanningRoutingLine2."Worksheet Batch Name" := ReqJournalName; PlanningRoutingLine2."Worksheet Line No." := LineNo; OnCarryOutToReqWkshOnAfterPlanningRoutingLineInsert(PlanningRoutingLine2, PlanningRoutingLine); -#if not CLEAN27 - CarryOutAction.RunOnCarryOutToReqWkshOnAfterPlanningRoutingLineInsert(PlanningRoutingLine2, PlanningRoutingLine); -#endif PlanningRoutingLine2.Insert(); until PlanningRoutingLine.Next() = 0; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Requisition/MfgOrderPlanningMgt.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Requisition/MfgOrderPlanningMgt.Codeunit.al index 98c39770359..1c3a54b34e7 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Requisition/MfgOrderPlanningMgt.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Requisition/MfgOrderPlanningMgt.Codeunit.al @@ -54,9 +54,6 @@ codeunit 99000867 "Mfg. Order Planning Mgt." RequisitionLine."Original Item No." := TempReqLine2."No."; RequisitionLine."Original Variant Code" := TempReqLine2."Variant Code"; OnBeforeReqLineModify(RequisitionLine, TempReqLine2, ProdOrderComp); -#if not CLEAN27 - OrderPlanningMgt.RunOnBeforeReqLineModify(RequisitionLine, TempReqLine2, ProdOrderComp); -#endif RequisitionLine.Modify(); PlanningLineMgt.Calculate(RequisitionLine, 1, true, true, 0); end; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgGetDemandToReserve.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgGetDemandToReserve.Codeunit.al index 81cbef6619e..309e1f35def 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgGetDemandToReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgGetDemandToReserve.Codeunit.al @@ -214,11 +214,4 @@ codeunit 99000858 "Mfg. Get Demand To Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetDemandOnBeforeSetTempProdOrderComponent(var ProdOrderComponent: Record "Prod. Order Component"; var IsHandled: Boolean) - begin - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgInvtProfileOffsetting.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgInvtProfileOffsetting.Codeunit.al index 074a51cd913..5cf21d0f8e9 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgInvtProfileOffsetting.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgInvtProfileOffsetting.Codeunit.al @@ -18,10 +18,6 @@ codeunit 99000869 "Mfg. Invt. Profile Offsetting" Permissions = TableData "Reservation Entry" = id, TableData "Prod. Order Capacity Need" = rmd; -#if not CLEAN27 - var - InventoryProfileOffsetting: Codeunit "Inventory Profile Offsetting"; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Inventory Profile Offsetting", 'OnAfterSupplyToInvProfile', '', true, false)] local procedure OnAfterSupplyToInvProfile(var InventoryProfile: Record "Inventory Profile"; var Item: Record Item; var ToDate: Date; var ReservEntry: Record "Reservation Entry" temporary; var NextLineNo: Integer) @@ -40,17 +36,11 @@ codeunit 99000869 "Mfg. Invt. Profile Offsetting" IsHandled: Boolean; begin OnBeforeTransProdOrderToProfile(InventoryProfile, Item, ToDate, IsHandled); -#if not CLEAN27 - InventoryProfileOffsetting.RunOnBeforeTransProdOrderToProfile(InventoryProfile, Item, ToDate, IsHandled); -#endif if not IsHandled then if ProdOrderLine.FindLinesWithItemToPlan(Item, true) then repeat ShouldProcess := ProdOrderLine."Due Date" <> 0D; OnTransProdOrderToProfileOnBeforeProcessLine(ProdOrderLine, ShouldProcess); -#if not CLEAN27 - InventoryProfileOffsetting.RunOnTransProdOrderToProfileOnBeforeProcessLine(ProdOrderLine, ShouldProcess); -#endif if ShouldProcess then begin InventoryProfile.Init(); LineNo += 1; @@ -134,9 +124,6 @@ codeunit 99000869 "Mfg. Invt. Profile Offsetting" ReqLine.TransferFromProdOrderLine(ProdOrderLine); OnAfterSetProdOrder(ReqLine, ProdOrderLine, InventoryProfile); -#if not CLEAN27 - InventoryProfileOffsetting.RunOnAfterSetProdOrder(ReqLine, ProdOrderLine, InventoryProfile); -#endif end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Inventory Profile Offsetting", 'OnMaintainPlanningLineOnBeforeValidateNo', '', true, false)] @@ -320,9 +307,6 @@ codeunit 99000869 "Mfg. Invt. Profile Offsetting" PlanRoutingLine.Insert(); until ProdOrderRoutingLine.Next() = 0; OnAfterGetRoutingFromProdOrder(ReqLine); -#if not CLEAN27 - InventoryProfileOffsetting.RunOnAfterGetRoutingFromProdOrder(ReqLine); -#endif end; OnAfterGetRouting(ReqLine); end; @@ -341,9 +325,6 @@ codeunit 99000869 "Mfg. Invt. Profile Offsetting" if (not InventorySetup."Location Mandatory") and (ManufacturingSetup."Components at Location" = '') then begin IsHandled := false; OnFindCombinationOnBeforeCreateTempSKUForLocation(Item, IsHandled); -#if not CLEAN27 - InventoryProfileOffsetting.RunOnFindCombinationOnBeforeCreateTempSKUForLocation(Item, IsHandled); -#endif if not IsHandled then sender.CreateTempSKUForLocation( Item."No.", diff --git a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgReservCheckDateConfl.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgReservCheckDateConfl.Codeunit.al index c6dd9480ac5..dba5a923d0f 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgReservCheckDateConfl.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Inventory/Tracking/MfgReservCheckDateConfl.Codeunit.al @@ -25,9 +25,6 @@ codeunit 99000849 "Mfg. ReservCheckDateConfl" IsHandled := false; OnProdOrderLineCheckOnBeforeUpdateDate(ReservationEntry, ProdOrderLine, IsHandled); -#if not CLEAN27 - ReservationCheckDateConfl.RunOnProdOrderLineCheckOnBeforeUpdateDate(ReservationEntry, ProdOrderLine, IsHandled); -#endif if not IsHandled then ReservationCheckDateConfl.UpdateDate(ReservationEntry, ProdOrderLine."Due Date"); @@ -63,9 +60,6 @@ codeunit 99000849 "Mfg. ReservCheckDateConfl" IsHandled := false; OnProdOrderComponentCheckOnBeforeIssueError(ReservationEntry, ProdOrderComponent, ForceRequest, IsHandled, IsCritical); -#if not CLEAN27 - ReservationCheckDateConfl.RunOnProdOrderComponentCheckOnBeforeIssueError(ReservationEntry, ProdOrderComponent, ForceRequest, IsHandled); -#endif if not IsHandled then if ReservationCheckDateConfl.DateConflict(ProdOrderComponent."Due Date", ForceRequest, ReservationEntry) then if ForceRequest then @@ -76,9 +70,6 @@ codeunit 99000849 "Mfg. ReservCheckDateConfl" IsHandled := false; OnProdOrderComponentCheckOnBeforeUpdateDate(ReservationEntry, ProdOrderComponent, IsHandled); -#if not CLEAN27 - ReservationCheckDateConfl.RunOnProdOrderComponentCheckOnBeforeUpdateDate(ReservationEntry, ProdOrderComponent, IsHandled); -#endif if not IsHandled then ReservationCheckDateConfl.UpdateDate(ReservationEntry, ProdOrderComponent."Due Date"); diff --git a/src/Layers/W1/BaseApp/Manufacturing/MachineCenter/MachineCenterList.Page.al b/src/Layers/W1/BaseApp/Manufacturing/MachineCenter/MachineCenterList.Page.al index 570ebf9e399..66a38f9db4e 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/MachineCenter/MachineCenterList.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/MachineCenter/MachineCenterList.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -227,32 +227,6 @@ page 99000761 "Machine Center List" } area(reporting) { -#if not CLEAN27 - action("Machine Center Load") - { - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load'; - Image = "Report"; - RunObject = Report "Machine Center Load"; - ToolTip = 'Get an overview of availability at the machine center, such as the capacity, the allocated quantity, availability after order, and the load in percent.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Machine Center Load/Bar") - { - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load/Bar'; - Image = "Report"; - //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true' - //PromotedCategory = "Report"; - RunObject = Report "Machine Center Load/Bar"; - ToolTip = 'View a list of machine centers that are overloaded according to the plan. The efficiency or overloading is shown by efficiency bars.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Work/Machine Center Load") { ApplicationArea = Manufacturing; @@ -286,14 +260,6 @@ page 99000761 "Machine Center List" group(Category_Report) { Caption = 'Reports'; -#if not CLEAN27 - actionref("Machine Center Load_Promoted"; "Machine Center Load") - { - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif actionref("Work/Machine Center Load_Promoted"; "Work/Machine Center Load") { } diff --git a/src/Layers/W1/BaseApp/Manufacturing/MfgCreateInventoryPutaway.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/MfgCreateInventoryPutaway.Codeunit.al index 7ac482d883c..38bfb4d8f2f 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/MfgCreateInventoryPutaway.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/MfgCreateInventoryPutaway.Codeunit.al @@ -14,9 +14,6 @@ codeunit 99000878 "Mfg. Create Inventory Put-Away" { var FeatureTelemetry: Codeunit "Feature Telemetry"; -#if not CLEAN27 - CreateInventoryPutaway: Codeunit "Create Inventory Put-away"; -#endif ProdAsmJobWhseHandlingTelemetryCategoryTok: Label 'Prod/Asm/Job Whse. Handling', Locked = true; ProdAsmJobWhseHandlingTelemetryTok: Label 'Prod/Asm/Job Whse. Handling in used for creating put-away lines.', Locked = true; @@ -130,9 +127,6 @@ codeunit 99000878 "Mfg. Create Inventory Put-Away" repeat IsHandled := false; OnBeforeCreatePutAwayLinesFromProdLoop(WarehouseActivityHeader, ProductionOrder, IsHandled, ProdOrderLine); -#if not CLEAN27 - CreateInventoryPutaway.RunOnBeforeCreatePutAwayLinesFromProdLoop(WarehouseActivityHeader, ProductionOrder, IsHandled, ProdOrderLine); -#endif if not IsHandled then if not NewWarehouseActivityLine.ActivityExists(Database::"Prod. Order Line", ProdOrderLine.Status.AsInteger(), ProdOrderLine."Prod. Order No.", ProdOrderLine."Line No.", 0, 0) then begin GetLocation(Location, ProdOrderLine."Location Code"); @@ -149,15 +143,8 @@ codeunit 99000878 "Mfg. Create Inventory Put-Away" CreatePutawayWithDefaultBinPolicy(ProdOrderLine, RemQtyToPutAway, sender); Location."Put-away Bin Policy"::"Put-away Template": CreatePutawayWithPutawayTemplateBinPolicy(ProdOrderLine, sender); -#if not CLEAN27 - else begin - OnCreatePutawayForProdOrderLine(ProdOrderLine, RemQtyToPutAway); - CreateInventoryPutaway.RunOnCreatePutawayForProdOrderLine(ProdOrderLine, RemQtyToPutAway); - end; -#else else OnCreatePutawayForProdOrderLine(ProdOrderLine, RemQtyToPutAway); -#endif end; if (Location."Always Create Put-away Line" or not Location."Bin Mandatory") and (RemQtyToPutAway > 0) then @@ -218,9 +205,6 @@ codeunit 99000878 "Mfg. Create Inventory Put-Away" begin IsHandled := false; OnBeforeFindReservationFromProdOrderLine(ProdOrderLine, WhseItemTrackingSetup, ItemTrackingManagement, ReservationFound, IsHandled); -#if not CLEAN27 - CreateInventoryPutaway.RunOnBeforeFindReservationFromProdOrderLine(ProdOrderLine, WhseItemTrackingSetup, ItemTrackingManagement, ReservationFound, IsHandled); -#endif if IsHandled then begin sender.SetReservationFound(ReservationFound); exit; @@ -251,9 +235,6 @@ codeunit 99000878 "Mfg. Create Inventory Put-Away" end; OnBeforeFindProdOrderLine(ProdOrderLine, WarehouseActivityHeader); -#if not CLEAN27 - CreateInventoryPutaway.RunOnBeforeFindProdOrderLine(ProdOrderLine, WarehouseActivityHeader); -#endif exit(ProdOrderLine.Find('-')); end; @@ -278,9 +259,6 @@ codeunit 99000878 "Mfg. Create Inventory Put-Away" repeat IsHandled := false; OnBeforeCreatePutAwayLinesFromCompLoop(WarehouseActivityHeader, ProductionOrder, IsHandled, ProdOrderComponent); -#if not CLEAN27 - CreateInventoryPutaway.RunOnBeforeCreatePutAwayLinesFromCompLoop(WarehouseActivityHeader, ProductionOrder, IsHandled, ProdOrderComponent); -#endif if not IsHandled then if not NewWarehouseActivityLine.ActivityExists( @@ -297,15 +275,8 @@ codeunit 99000878 "Mfg. Create Inventory Put-Away" CreatePutawayWithDefaultBinPolicy(ProdOrderComponent, RemQtyToPutaway, sender); Location."Put-away Bin Policy"::"Put-away Template": CreatePutawayWithPutawayTemplateBinPolicy(ProdOrderComponent, sender); -#if not CLEAN27 - else begin - OnCreatePutawayForProdOrderComponent(ProdOrderComponent, RemQtyToPutAway); - CreateInventoryPutaway.RunOnCreatePutawayForProdOrderComponent(ProdOrderComponent, RemQtyToPutAway); - end; -#else else OnCreatePutawayForProdOrderComponent(ProdOrderComponent, RemQtyToPutAway); -#endif end; if (Location."Always Create Put-away Line" or not Location."Bin Mandatory") and (RemQtyToPutAway > 0) then @@ -365,9 +336,6 @@ codeunit 99000878 "Mfg. Create Inventory Put-Away" begin IsHandled := false; OnBeforeFindReservationFromProdOrderComponent(ProdOrderComponent, WhseItemTrackingSetup, ItemTrackingManagement, ReservationFound, IsHandled); -#if not CLEAN27 - CreateInventoryPutaway.RunOnBeforeFindReservationFromProdOrderComponent(ProdOrderComponent, WhseItemTrackingSetup, ItemTrackingManagement, ReservationFound, IsHandled); -#endif if IsHandled then begin sender.SetReservationFound(ReservationFound); exit; @@ -397,9 +365,6 @@ codeunit 99000878 "Mfg. Create Inventory Put-Away" end; OnBeforeFindProdOrderComp(ProdOrderComponent, WarehouseActivityHeader); -#if not CLEAN27 - CreateInventoryPutaway.RunOnBeforeFindProdOrderComp(ProdOrderComponent, WarehouseActivityHeader); -#endif exit(ProdOrderComponent.Find('-')); end; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Posting/MfgPurchPost.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Posting/MfgPurchPost.Codeunit.al index 2feb6f378cd..68e8df84086 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Posting/MfgPurchPost.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Posting/MfgPurchPost.Codeunit.al @@ -12,10 +12,6 @@ using Microsoft.Purchases.History; codeunit 99000890 "Mfg. Purch.-Post" { -#if not CLEAN27 - var - PurchPost: Codeunit "Purch.-Post"; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Purch.-Post", 'OnAfterCheckPurchRcptLine', '', true, false)] local procedure OnAfterCheckPurchRcptLine(PurchRcptLine: Record "Purch. Rcpt. Line"; PurchaseLine: Record "Purchase Line") @@ -36,9 +32,6 @@ codeunit 99000890 "Mfg. Purch.-Post" begin IsHandled := false; OnBeforePostItemJnlLineCopyProdOrder(PurchLine, ItemJnlLine, QtyToBeReceived, QtyToBeInvoiced, SuppressCommit, IsHandled); -#if not CLEAN27 - PurchPost.RunOnBeforePostItemJnlLineCopyProdOrder(PurchLine, ItemJnlLine, QtyToBeReceived, QtyToBeInvoiced, SuppressCommit, IsHandled); -#endif if IsHandled then exit; @@ -61,9 +54,6 @@ codeunit 99000890 "Mfg. Purch.-Post" ItemJnlLine.Finished := PurchLine.Finished; OnAfterPostItemJnlLineCopyProdOrder(ItemJnlLine, PurchLine, PurchRcptHeader, QtyToBeReceived, SuppressCommit, QtyToBeInvoiced); -#if not CLEAN27 - PurchPost.RunOnAfterPostItemJnlLineCopyProdOrder(ItemJnlLine, PurchLine, PurchRcptHeader, QtyToBeReceived, SuppressCommit, QtyToBeInvoiced); -#endif end; local procedure CalcBaseQty(ItemNo: Code[20]; UOMCode: Code[10]; Qty: Decimal; QtyRoundingPrecision: Decimal): Decimal diff --git a/src/Layers/W1/BaseApp/Manufacturing/ProductionBOM/ProductionBOMList.Page.al b/src/Layers/W1/BaseApp/Manufacturing/ProductionBOM/ProductionBOMList.Page.al index 7598f9bd52b..73113aabbfd 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/ProductionBOM/ProductionBOMList.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/ProductionBOM/ProductionBOMList.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -208,21 +208,6 @@ page 99000787 "Production BOM List" Image = "Report"; RunObject = Report "Quantity Explosion of BOM"; } -#if not CLEAN27 - action("Compare List") - { - ApplicationArea = Manufacturing; - Caption = 'Compare List (Obsolete)'; - Image = "Report"; - //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true' - //PromotedCategory = "Report"; - RunObject = Report "Compare List"; - ToolTip = 'View a comparison of components for two items. The printout compares the components, their unit cost, cost share and cost per component.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Compare Production Cost Shares" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Compare Production Cost Shares") { ApplicationArea = Manufacturing; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Purchases/Document/MfgPurchaseLine.TableExt.al b/src/Layers/W1/BaseApp/Manufacturing/Purchases/Document/MfgPurchaseLine.TableExt.al index e3c19b4a10b..deef6f51c95 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Purchases/Document/MfgPurchaseLine.TableExt.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Purchases/Document/MfgPurchaseLine.TableExt.al @@ -154,16 +154,10 @@ tableextension 99000751 "Mfg. Purchase Line" extends "Purchase Line" Item: Record Item; ProdOrder: Record Microsoft.Manufacturing.Document."Production Order"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; -#if not CLEAN27 - AddonIntegrManagement: Codeunit Microsoft.Inventory.AddOnIntegrManagement; -#endif IsHandled: Boolean; begin IsHandled := false; OnBeforeValidateProdOrderOnPurchLine(Rec, IsHandled); -#if not CLEAN27 - AddonIntegrManagement.RunOnBeforeValidateProdOrderOnPurchLine(Rec, IsHandled); -#endif if IsHandled then exit; @@ -198,17 +192,11 @@ tableextension 99000751 "Mfg. Purchase Line" extends "Purchase Line" ManufacturingSetup: Record "Manufacturing Setup"; ProdOrderRoutingLine: Record "Prod. Order Routing Line"; CostCalculationManagement: Codeunit "Cost Calculation Management"; -#if not CLEAN27 - AddonIntegrManagement: Codeunit Microsoft.Inventory.AddOnIntegrManagement; -#endif RndgSetupRead: Boolean; IsHandled: Boolean; begin IsHandled := false; OnBeforeTransferFromReqLineToPurchLine(PurchOrderLine, ReqLine, IsHandled); -#if not CLEAN27 - AddonIntegrManagement.RunOnBeforeTransferFromReqLineToPurchLine(PurchOrderLine, ReqLine, IsHandled); -#endif if not IsHandled then begin PurchOrderLine."Routing No." := ReqLine."Routing No."; PurchOrderLine."Routing Reference No." := ReqLine."Routing Reference No."; @@ -217,9 +205,6 @@ tableextension 99000751 "Mfg. Purchase Line" extends "Purchase Line" if ReqLine."Prod. Order No." <> '' then if ReqLine."Work Center No." <> '' then begin OnTransferFromReqLineToPurchLineOnBeforeBeforeAssignOverheadRate(WorkCenter, ReqLine."Order Date"); -#if not CLEAN27 - AddonIntegrManagement.RunOnTransferFromReqLineToPurchLineOnBeforeBeforeAssignOverheadRate(WorkCenter, ReqLine."Order Date"); -#endif WorkCenter.Get(PurchOrderLine."Work Center No."); if WorkCenter."Unit Cost Calculation" = WorkCenter."Unit Cost Calculation"::Time then begin ProdOrderRoutingLine.Get( @@ -248,9 +233,6 @@ tableextension 99000751 "Mfg. Purchase Line" extends "Purchase Line" end; OnAfterTransferFromReqLineToPurchLine(PurchOrderLine, ReqLine); -#if not CLEAN27 - AddonIntegrManagement.RunOnAfterTransferFromReqLineToPurchLine(PurchOrderLine, ReqLine); -#endif end; [IntegrationEvent(false, false)] diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/CapacityTaskList.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/CapacityTaskList.Report.al index 31de9b4be11..fc14bce923e 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/CapacityTaskList.Report.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Reports/CapacityTaskList.Report.al @@ -243,17 +243,6 @@ report 99000780 "Capacity Task List" LayoutFile = './Manufacturing/Reports/CapacityTaskList.xlsx'; Summary = 'Report layout primarily made for data analysis. Use an Excel editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLCLayout) - { - Type = RDLC; - LayoutFile = './Manufacturing/Reports/CapacityTaskList.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/CompareList.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/CompareList.Report.al deleted file mode 100644 index 69aed18300e..00000000000 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/CompareList.Report.al +++ /dev/null @@ -1,295 +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.Manufacturing.Reports; - -using Microsoft.Inventory.Item; -using Microsoft.Manufacturing.ProductionBOM; -using System.Utilities; - -report 99000758 "Compare List" -{ - ApplicationArea = Manufacturing; - Caption = 'Item BOM Compare List (Obsolete)'; - UsageCategory = ReportsAndAnalysis; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Compare Production Cost Shares" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - DefaultRenderingLayout = RDLCLayout; - - dataset - { - dataitem(ItemLoop; "Integer") - { - DataItemTableView = sorting(Number); - MaxIteration = 1; - - trigger OnPreDataItem() - begin - for i := 1 to 2 do begin - Item[i].Get(Item[i]."No."); - Item[i].TestField("Production BOM No."); - end; - BOMMatrixMgt.CompareTwoItems( - Item[1], - Item[2], - CalculateDate, - true, - VersionCode1, - VersionCode2, - UnitOfMeasure1, UnitOfMeasure2); - end; - } - dataitem(BOMLoop; "Integer") - { - DataItemTableView = sorting(Number); - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - } - column(AsOfCalcDate; Text000 + Format(CalculateDate)) - { - } - column(TodayFormatted; Format(Today, 0, 4)) - { - } - column(Item1No; Item[1]."No.") - { - } - column(Item2No; Item[2]."No.") - { - } - column(BOMMatrixListItemNo; BOMMatrixList."Item No.") - { - } - column(BOMMatrixListDesc; BOMMatrixList.Description) - { - } - column(CompItemUnitCost; CompItem."Unit Cost") - { - AutoFormatType = 2; - } - column(Qty1; Qty1) - { - DecimalPlaces = 0 : 5; - } - column(Cost1; Cost1) - { - AutoFormatType = 1; - } - column(Qty2; Qty2) - { - DecimalPlaces = 0 : 5; - } - column(Cost2; Cost2) - { - AutoFormatType = 1; - } - column(CostDiff; CostDiff) - { - AutoFormatType = 1; - } - column(CurrReportPageNoCaption; CurrReportPageNoCaptionLbl) - { - } - column(CompareListCaption; CompareListCaptionLbl) - { - } - column(BOMMatrixListItemNoCapt; BOMMatrixListItemNoCaptLbl) - { - } - column(BOMMatrixListDescCapt; BOMMatrixListDescCaptLbl) - { - } - column(CompItemUnitCostCapt; CompItemUnitCostCaptLbl) - { - } - column(CostDiffCaption; CostDiffCaptionLbl) - { - } - column(Item1NoCaption; Item1NoCaptionLbl) - { - } - column(Item2NoCaption; Item2NoCaptionLbl) - { - } - column(TotalCostDifferenceCapt; TotalCostDifferenceCaptLbl) - { - } - - trigger OnAfterGetRecord() - begin - if First then begin - if not BOMMatrixMgt.FindRecord('-', BOMMatrixList) then - CurrReport.Break(); - First := false; - end else - if BOMMatrixMgt.NextRecord(1, BOMMatrixList) = 0 then - CurrReport.Break(); - - Qty1 := BOMMatrixMgt.GetComponentNeed(BOMMatrixList."Item No.", BOMMatrixList."Variant Code", Item[1]."No."); - Qty2 := BOMMatrixMgt.GetComponentNeed(BOMMatrixList."Item No.", BOMMatrixList."Variant Code", Item[2]."No."); - - CompItem.Get(BOMMatrixList."Item No."); - - Cost1 := CompItem."Unit Cost" * Qty1; - Cost2 := CompItem."Unit Cost" * Qty2; - CostDiff := Cost1 - Cost2; - end; - - trigger OnPreDataItem() - begin - Clear(CostDiff); - First := true; - end; - } - } - - requestpage - { - AboutTitle = 'About Item BOM Compare List (Obsolete)'; - AboutText = 'Compare the costs of similar final products. ** This report is obsolete and will be removed in a later release.** Please consult the report documentation for alternative ways to get to this data.'; - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(ItemNo1; Item[1]."No.") - { - ApplicationArea = Manufacturing; - Caption = 'Item No. 1'; - DrillDownPageID = "Item List"; - LookupPageID = "Item List"; - NotBlank = true; - TableRelation = Item; - ToolTip = 'Specifies the number of the first item you want to compare, when comparing components for two items.'; - - trigger OnLookup(var Text: Text): Boolean - begin - Item[1].SetCurrentKey("Production BOM No."); - Item[1].SetFilter("Production BOM No.", '<>%1', ''); - if PAGE.RunModal(PAGE::"Item List", Item[1]) = ACTION::LookupOK then begin - Text := Item[1]."No."; - exit(true); - end; - exit(false); - end; - - trigger OnValidate() - begin - Item[1].Get(Item[1]."No."); - Item[1].TestField("Production BOM No."); - - if Item[1]."No." = Item[2]."No." then - Item[1].FieldError("No."); - end; - } - field(ItemNo2; Item[2]."No.") - { - ApplicationArea = Manufacturing; - Caption = 'Item No. 2'; - LookupPageID = "Item List"; - NotBlank = true; - TableRelation = Item; - ToolTip = 'Specifies the number of the second item you want to compare, when comparing components for two items.'; - - trigger OnLookup(var Text: Text): Boolean - begin - Item[2].SetCurrentKey("Production BOM No."); - Item[2].SetFilter("Production BOM No.", '<>%1', ''); - if PAGE.RunModal(PAGE::"Item List", Item[2]) = ACTION::LookupOK then begin - Text := Item[2]."No."; - exit(true); - end; - exit(false); - end; - - trigger OnValidate() - begin - Item[2].Get(Item[2]."No."); - Item[2].TestField("Production BOM No."); - - if Item[1]."No." = Item[2]."No." then - Item[2].FieldError("No."); - end; - } - field(CalculationDt; CalculateDate) - { - ApplicationArea = Manufacturing; - Caption = 'Calculation Date'; - ToolTip = 'Specifies the date for which you want to make the comparison. The program automatically enters the working date.'; - } - } - } - } - - actions - { - } - - trigger OnInit() - begin - CalculateDate := WorkDate(); - end; - } - - rendering - { - layout(RDLCLayout) - { - Type = RDLC; - LayoutFile = './Manufacturing/Reports/CompareList.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } - } - - labels - { - Qty1Caption = 'Exploded Quantity'; - Cost1Caption = 'Cost Share'; - } - - var - CompItem: Record Item; - BOMMatrixList: Record "Production Matrix BOM Line"; - BOMMatrixMgt: Codeunit "BOM Matrix Management"; - CalculateDate: Date; - i: Integer; - First: Boolean; - VersionCode1: Code[20]; - VersionCode2: Code[20]; - UnitOfMeasure1: Code[10]; - UnitOfMeasure2: Code[10]; - Qty1: Decimal; - Qty2: Decimal; - Cost1: Decimal; - Cost2: Decimal; - CostDiff: Decimal; - -#pragma warning disable AA0074 - Text000: Label 'As of '; -#pragma warning restore AA0074 - CurrReportPageNoCaptionLbl: Label 'Page'; - CompareListCaptionLbl: Label 'Compare List'; - BOMMatrixListItemNoCaptLbl: Label 'No.'; - BOMMatrixListDescCaptLbl: Label 'Description'; - CompItemUnitCostCaptLbl: Label 'Unit Cost'; - CostDiffCaptionLbl: Label 'Difference Cost'; - Item1NoCaptionLbl: Label 'Item No. 1'; - Item2NoCaptionLbl: Label 'Item No. 2'; - TotalCostDifferenceCaptLbl: Label 'Total Cost Difference'; - - protected var - Item: array[2] of Record Item; - - procedure InitializeRequest(NewItem1: Code[20]; NewItem2: Code[20]; NewCalculateDate: Date) - begin - Item[1]."No." := NewItem1; - Item[2]."No." := NewItem2; - CalculateDate := NewCalculateDate; - end; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/DemandForecast.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/DemandForecast.Report.al deleted file mode 100644 index 3c42b082a76..00000000000 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/DemandForecast.Report.al +++ /dev/null @@ -1,219 +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.Manufacturing.Reports; - -using Microsoft.Inventory.Setup; -using Microsoft.Manufacturing.Forecast; -using Microsoft.Sales.Document; -using System.Utilities; - -report 99003804 "Demand Forecast" -{ - ApplicationArea = Manufacturing; - Caption = 'Demand Forecast (Obsolete)'; - UsageCategory = ReportsAndAnalysis; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been deprecated and will be removed in a future release.'; - ObsoleteTag = '27.0'; - DefaultRenderingLayout = RDLCLayout; - - dataset - { - dataitem("Production Forecast Entry"; "Production Forecast Entry") - { - DataItemTableView = sorting("Production Forecast Name", "Item No.", "Variant Code", "Location Code", "Forecast Date", "Component Forecast"); - RequestFilterFields = "Production Forecast Name", "Item No.", "Forecast Date"; - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - } - column(ForecastEntryTblCaptFilt; TableCaption + ': ' + ForecastFilter) - { - } - column(ForecastFilter; ForecastFilter) - { - } - column(ItemNo_ForecastEntry; "Item No.") - { - IncludeCaption = true; - } - column(VariantCode_ForecastEntry; "Variant Code") - { - IncludeCaption = true; - } - column(ForecastDt_ForecastEntry; Format("Forecast Date")) - { - } - column(ForecastQty_ForecastEntry; "Forecast Quantity") - { - } - column(LocationCode_ForecastEntry; "Location Code") - { - IncludeCaption = true; - } - column(Desc_ForecastEntry; Description) - { - IncludeCaption = true; - } - column(EntryNo_ForecastEntry; "Entry No.") - { - } - column(ProductionForecastCaption; ProductionForecastCaptionLbl) - { - } - column(CurrReportPageNoCaption; CurrReportPageNoCaptionLbl) - { - } - column(SalesOrdShipmentDateCapt; SalesOrdShipmentDateCaptLbl) - { - } - column(QuantityCaption; QuantityCaptionLbl) - { - } - column(TypeCaption; TypeCaptionLbl) - { - } - column(NoCaption; NoCaptionLbl) - { - } - column(ForecastCaption; ForecastCaptionLbl) - { - } - dataitem("Sales Line"; "Sales Line") - { - DataItemTableView = sorting("Document Type", Type, "No.", "Variant Code", "Drop Shipment", "Location Code", "Shipment Date"); - column(DocNo_SalesLine; "Document No.") - { - } - column(Qty_SalesLine; Quantity) - { - } - column(ShipmentDate_SalesLine; Format("Shipment Date")) - { - } - column(Desc_SalesLine; Description) - { - } - column(No_SalesLine; "No.") - { - } - column(SalesOrderCaption; SalesOrderCaptionLbl) - { - } - - trigger OnAfterGetRecord() - begin - Total := Total - Quantity; - end; - - trigger OnPreDataItem() - begin - if not (ProdForecastEntry.Next() = 0) then - SetRange("Shipment Date", - "Production Forecast Entry"."Forecast Date", - ProdForecastEntry."Forecast Date" - 1) - else - SetFilter("Shipment Date", '%1..', "Production Forecast Entry"."Forecast Date"); - SetRange(Type, Type::Item); - SetRange("No.", "Production Forecast Entry"."Item No."); - SetRange("Document Type", "Document Type"::Order); - if InventorySetup."Use Forecast on Locations" then - SetRange("Location Code", "Production Forecast Entry"."Location Code"); - if InventorySetup."Use Forecast on Variants" then - SetRange("Variant Code", "Production Forecast Entry"."Variant Code"); - end; - } - dataitem("Integer"; "Integer") - { - DataItemTableView = sorting(Number); - MaxIteration = 1; - column(Total; Total) - { - DecimalPlaces = 0 : 5; - } - column(TotalCaption; TotalCaptionLbl) - { - } - } - - trigger OnAfterGetRecord() - begin - ProdForecastEntry.Copy("Production Forecast Entry"); - ProdForecastEntry.SetRange("Production Forecast Name", "Production Forecast Name"); - ProdForecastEntry.SetRange("Item No.", "Item No."); - ProdForecastEntry.SetRange("Forecast Date", "Forecast Date"); - if InventorySetup."Use Forecast on Locations" then - ProdForecastEntry.SetRange("Location Code", "Location Code"); - if InventorySetup."Use Forecast on Variants" then - ProdForecastEntry.SetRange("Variant Code", "Variant Code"); - Total := 0; - repeat - Total += ProdForecastEntry."Forecast Quantity"; - until ProdForecastEntry.Next() = 0; - ProdForecastEntry.SetRange("Forecast Date"); - - Copy(ProdForecastEntry); - CopyFilters(ProdForecastEntry2); - "Forecast Quantity" := Total; - end; - - trigger OnPreDataItem() - begin - ProdForecastEntry2.Copy("Production Forecast Entry"); - InventorySetup.Get(); - end; - } - } - - requestpage - { - AboutTitle = 'About Demand Forecast (Obsolete)'; - AboutText = 'Helps you plan future production needs by predicting the demand for items based on historical data and other factors. Use the report to help ensure that production schedules align with anticipated sales and inventory requirements.** This report is obsolete and will be removed in a future release.** Please refer to the report documentation for alternative ways to retrieve this information.'; - layout - { - } - - actions - { - } - } - - rendering - { - layout(RDLCLayout) - { - Type = RDLC; - LayoutFile = './Manufacturing/Reports/DemandForecast.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } - } - - labels - { - } - - trigger OnPreReport() - begin - ForecastFilter := "Production Forecast Entry".GetFilters(); - end; - - var - ProdForecastEntry: Record "Production Forecast Entry"; - ProdForecastEntry2: Record "Production Forecast Entry"; - InventorySetup: Record "Inventory Setup"; - Total: Decimal; - ForecastFilter: Text; - ProductionForecastCaptionLbl: Label 'Demand Forecast'; - CurrReportPageNoCaptionLbl: Label 'Page'; - SalesOrdShipmentDateCaptLbl: Label 'Date'; - QuantityCaptionLbl: Label 'Quantity'; - TypeCaptionLbl: Label 'Type'; - NoCaptionLbl: Label 'No.'; - ForecastCaptionLbl: Label 'Forecast'; - SalesOrderCaptionLbl: Label 'Sales Order'; - TotalCaptionLbl: Label 'Total'; -} - -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/MachineCenterLoad.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/MachineCenterLoad.Report.al deleted file mode 100644 index 5bd585c27e9..00000000000 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/MachineCenterLoad.Report.al +++ /dev/null @@ -1,259 +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.Manufacturing.Reports; - -using Microsoft.Manufacturing.MachineCenter; -using Microsoft.Manufacturing.WorkCenter; -using System.Utilities; - -report 99000784 "Machine Center Load" -{ - DefaultRenderingLayout = MachineCenterLoadRDLC; - AdditionalSearchTerms = 'production resource load,production personnel load'; - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load (obsolete)'; - UsageCategory = ReportsAndAnalysis; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - - dataset - { - dataitem("Work Center"; "Work Center") - { - PrintOnlyIfDetail = true; - RequestFilterFields = "No.", "Work Shift Filter"; - column(TodayFormatted; Format(Today, 0, 4)) - { - } - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - } - column(WorkCenterTableCaptFilter; TableCaption + ':' + WorkCenterFilter) - { - } - column(WorkCenterFilter; WorkCenterFilter) - { - } - column(No_WorkCenter; "No.") - { - } - column(Name_WorkCenter; Name) - { - } - column(MachineCenterLoadCaption; MachineCenterLoadCaptionLbl) - { - } - column(CurrReportPageNoCaption; CurrReportPageNoCaptionLbl) - { - } - column(CapacityAvailableCaption; CapacityAvailableCaptionLbl) - { - } - column(CapacityEfficiencyCaption; CapacityEfficiencyCaptionLbl) - { - } - dataitem("Integer"; "Integer") - { - DataItemTableView = sorting(Number); - PrintOnlyIfDetail = true; - column(PeriodStartingDate; Format(PeriodStartingDate)) - { - } - column(PeriodEndingDate; Format(PeriodEndingDate)) - { - } - column(PeriodStartingDateCaption; PeriodStartingDateCaptionLbl) - { - } - column(PeriodEndingDateCaption; PeriodEndingDateCaptionLbl) - { - } - dataitem("Machine Center"; "Machine Center") - { - DataItemLink = "Work Center No." = field("No."), "Work Shift Filter" = field("Work Shift Filter"); - DataItemLinkReference = "Work Center"; - DataItemTableView = sorting("Work Center No."); - column(No_MachineCenter; "No.") - { - IncludeCaption = true; - } - column(Name_MachineCenter; Name) - { - IncludeCaption = true; - } - column(Capacity_MachineCenter; Capacity) - { - IncludeCaption = true; - } - column(CpctyEffete_MachineCenter; "Capacity (Effective)") - { - IncludeCaption = true; - } - column(PONdQty_MachineCenter; "Prod. Order Need (Qty.)") - { - IncludeCaption = true; - } - column(CapacityAvailable; CapacityAvailable) - { - DecimalPlaces = 0 : 5; - } - column(CapacityEfficiency; CapacityEfficiency) - { - DecimalPlaces = 1 : 1; - } - - trigger OnAfterGetRecord() - begin - CalcFields("Capacity (Effective)", "Prod. Order Need (Qty.)"); - - CapacityAvailable := "Capacity (Effective)" - "Prod. Order Need (Qty.)"; - if "Capacity (Effective)" <> 0 then - CapacityEfficiency := Round("Prod. Order Need (Qty.)" / "Capacity (Effective)" * 100, 0.1) - else - if "Prod. Order Need (Qty.)" <> 0 then - CapacityEfficiency := 100 - else - CapacityEfficiency := 0; - - if CapacityEfficiency < MinCapEfficToPrint then - CurrReport.Skip(); - end; - - trigger OnPostDataItem() - begin - PeriodStartingDate := PeriodEndingDate + 1; - end; - - trigger OnPreDataItem() - begin - SetRange("Date Filter", PeriodStartingDate, PeriodEndingDate); - end; - } - - trigger OnAfterGetRecord() - begin - i := i + 1; - if i > NoOfPeriods then - CurrReport.Break(); - - PeriodEndingDate := CalcDate(PeriodLength, PeriodStartingDate) - 1; - end; - - trigger OnPreDataItem() - begin - i := 0; - - PeriodStartingDate := StartingDate; - end; - } - } - } - - requestpage - { - AboutTitle = 'About Machine Center Load (obsolete)'; - AboutText = 'Analyze the load on a machine center. ** This report is obsolete and will be removed in a later release.** Please consult the report documentation for alternative ways to get to this data.'; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(StartingDate; StartingDate) - { - ApplicationArea = Manufacturing; - Caption = 'Starting Date'; - ToolTip = 'Specifies the starting date for the machine center load evaluation.'; - } - field(NoOfPeriods; NoOfPeriods) - { - ApplicationArea = Manufacturing; - Caption = 'No. of Periods'; - ToolTip = 'Specifies the number of time intervals for which the evaluation is to be created.'; - } - field(PeriodLength; PeriodLength) - { - ApplicationArea = Manufacturing; - Caption = 'Period Length'; - ToolTip = 'Specifies the time interval you have selected to view the report, such as day, week, month, quarter.'; - } - field(MinCapEfficToPrint; MinCapEfficToPrint) - { - ApplicationArea = Manufacturing; - AutoFormatType = 0; - Caption = 'Load bigger than (pct.)'; - DecimalPlaces = 0 : 5; - ToolTip = 'Specifies a filter to print only machine centers whose loads exceed this percentage, for example, if you want to print all machine centers with a load of over 95% in order to troubleshoot a particular problem.'; - } - } - } - } - - actions - { - } - - trigger OnInit() - begin - if StartingDate = 0D then - StartingDate := WorkDate(); - if Format(PeriodLength) = '' then - Evaluate(PeriodLength, '<1W>'); - if NoOfPeriods = 0 then - NoOfPeriods := 4; - end; - } - - rendering - { - layout(MachineCenterLoadRDLC) - { - Caption = 'Machine Center Load (obsolete)'; - Type = RDLC; - LayoutFile = './Manufacturing/Reports/MachineCenterLoad.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } - } - - labels - { - } - - trigger OnPreReport() - begin - WorkCenterFilter := "Work Center".GetFilters(); - end; - - var - WorkCenterFilter: Text; - StartingDate: Date; - PeriodStartingDate: Date; - PeriodEndingDate: Date; - PeriodLength: DateFormula; - NoOfPeriods: Integer; - i: Integer; - CapacityAvailable: Decimal; - CapacityEfficiency: Decimal; - MinCapEfficToPrint: Decimal; - MachineCenterLoadCaptionLbl: Label 'Machine Center Load'; - CurrReportPageNoCaptionLbl: Label 'Page'; - CapacityAvailableCaptionLbl: Label 'Available'; - CapacityEfficiencyCaptionLbl: Label 'Expected Efficiency'; - PeriodStartingDateCaptionLbl: Label 'Period Starting Date'; - PeriodEndingDateCaptionLbl: Label 'Period Ending Date'; - - procedure InitializeRequest(NewStartingDate: Date; NewNoOfPeriods: Integer; NewPeriodLength: DateFormula; NewMinCapEfficToPrint: Decimal) - begin - StartingDate := NewStartingDate; - NoOfPeriods := NewNoOfPeriods; - PeriodLength := NewPeriodLength; - MinCapEfficToPrint := NewMinCapEfficToPrint; - end; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/MachineCenterLoadBar.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/MachineCenterLoadBar.Report.al deleted file mode 100644 index 34a7baf62d2..00000000000 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/MachineCenterLoadBar.Report.al +++ /dev/null @@ -1,304 +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.Manufacturing.Reports; - -using Microsoft.Manufacturing.MachineCenter; -using Microsoft.Manufacturing.WorkCenter; -using System.Utilities; - -report 99000786 "Machine Center Load/Bar" -{ - DefaultRenderingLayout = MachineCenterLoadBarRDLC; - AdditionalSearchTerms = 'production resource load/bar,production personnel load/bar'; - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load/Bar (obsolete)'; - UsageCategory = ReportsAndAnalysis; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - - dataset - { - dataitem("Work Center"; "Work Center") - { - PrintOnlyIfDetail = true; - RequestFilterFields = "No.", "Work Shift Filter"; - column(FORMAT_TODAY_0_4_; Format(Today, 0, 4)) - { - } - column(COMPANYNAME; COMPANYPROPERTY.DisplayName()) - { - } - column(Work_Center__TABLECAPTION_________WorkCenterFilter; TableCaption + ':' + WorkCenterFilter) - { - } - column(WorkCenterFilter; WorkCenterFilter) - { - } - column(Work_Center__No__; "No.") - { - } - column(Work_Center_Name; Name) - { - } - column(Machine_Center_Load___BarCaption; Machine_Center_Load___BarCaptionLbl) - { - } - column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl) - { - } - column(Machine_Center__No__Caption; "Machine Center".FieldCaption("No.")) - { - } - column(Machine_Center_NameCaption; "Machine Center".FieldCaption(Name)) - { - } - column(Machine_Center__Capacity__Effective__Caption; Machine_Center__Capacity__Effective__CaptionLbl) - { - } - column(Machine_Center__Prod__Order_Need__Qty___Caption; "Machine Center".FieldCaption("Prod. Order Need (Qty.)")) - { - } - column(CapacityAvailableCaption; CapacityAvailableCaptionLbl) - { - } - column(CapacityEfficiencyCaption; CapacityEfficiencyCaptionLbl) - { - } - column(LoadStrTotalCaption; LoadStrTotalCaptionLbl) - { - } - dataitem("Integer"; "Integer") - { - DataItemTableView = sorting(Number); - PrintOnlyIfDetail = true; - column(PeriodStartingDate; Format(PeriodStartingDate)) - { - } - column(PeriodEndingDate; Format(PeriodEndingDate)) - { - } - column(BarTxt; BarTxt) - { - } - column(BarTxt2; BarTxt2) - { - } - column(PeriodStartingDateCaption; PeriodStartingDateCaptionLbl) - { - } - column(PeriodEndingDateCaption; PeriodEndingDateCaptionLbl) - { - } - dataitem("Machine Center"; "Machine Center") - { - DataItemLink = "Work Center No." = field("No."), "Work Shift Filter" = field("Work Shift Filter"); - DataItemLinkReference = "Work Center"; - DataItemTableView = sorting("Work Center No."); - column(Machine_Center__No__; "No.") - { - } - column(Machine_Center_Name; Name) - { - } - column(Machine_Center__Capacity__Effective__; "Capacity (Effective)") - { - } - column(Machine_Center__Prod__Order_Need__Qty___; "Prod. Order Need (Qty.)") - { - } - column(CapacityAvailable; CapacityAvailable) - { - DecimalPlaces = 0 : 5; - } - column(CapacityEfficiency; CapacityEfficiency) - { - DecimalPlaces = 1 : 1; - } - column(LoadStrTotal; LoadStrTotal) - { - } - - trigger OnAfterGetRecord() - var - EffectivityStr: Text[30]; - begin - CalcFields("Capacity (Effective)", "Prod. Order Need (Qty.)"); - - CapacityAvailable := "Capacity (Effective)" - "Prod. Order Need (Qty.)"; - if "Capacity (Effective)" <> 0 then - CapacityEfficiency := Round("Prod. Order Need (Qty.)" / "Capacity (Effective)" * 100, 0.1) - else - if "Prod. Order Need (Qty.)" <> 0 then - CapacityEfficiency := 100 - else - CapacityEfficiency := 0; - - if CapacityEfficiency < MinCapEfficToPrint then - CurrReport.Skip(); - - EffectivityStr := Format(Round(CapacityEfficiency, 1)); - if CapacityEfficiency <= 100 then begin - LoadStr := PadStr('', Round(CapacityEfficiency / 100 * MaxStrLen(LoadStr), 1), '#'); - LoadStr2 := ''; - end else begin - LoadStr := PadStr('', Round(MaxStrLen(LoadStr), 1), '#'); - if Round(CapacityEfficiency, 1) <= 200 then - LoadStr2 := PadStr('', Round((CapacityEfficiency - 100) / 100 * MaxStrLen(LoadStr), 1), '#') - else begin - LoadStr2 := PadStr('', Round(MaxStrLen(LoadStr) - (5 + StrLen(EffectivityStr)), 1), '#'); - LoadStr2 := LoadStr2 + '...' + EffectivityStr + ' %'; - end; - end; - - LoadStrTotal := LoadStr + LoadStr2; - end; - - trigger OnPostDataItem() - begin - PeriodStartingDate := PeriodEndingDate + 1; - end; - - trigger OnPreDataItem() - begin - SetRange("Date Filter", PeriodStartingDate, PeriodEndingDate); - end; - } - - trigger OnAfterGetRecord() - begin - i := i + 1; - if i > NoOfPeriods then - CurrReport.Break(); - - PeriodEndingDate := CalcDate(PeriodLength, PeriodStartingDate) - 1; - end; - - trigger OnPreDataItem() - begin - i := 0; - - PeriodStartingDate := StartingDate; - end; - } - } - } - - requestpage - { - AboutTitle = 'About Machine Center Load/Bar (obsolete)'; - AboutText = 'Get a list of machine centers that are overloaded according to the plan. ** This report is obsolete and will be removed in a later release.** Please consult the report documentation for alternative ways to get to this data.'; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(StartingDate; StartingDate) - { - ApplicationArea = Manufacturing; - Caption = 'Starting Date'; - ToolTip = 'Specifies the starting date for the evaluation.'; - } - field(NoOfPeriods; NoOfPeriods) - { - ApplicationArea = Manufacturing; - Caption = 'No. of Periods'; - ToolTip = 'Specifies the number of time intervals the evaluation is to be created for.'; - } - field(PeriodLength; PeriodLength) - { - ApplicationArea = Manufacturing; - Caption = 'Period Length'; - ToolTip = 'Specifies the length of the time interval, for example 1W = one week.'; - } - field(MinCapEfficToPrint; MinCapEfficToPrint) - { - ApplicationArea = Manufacturing; - AutoFormatType = 0; - Caption = 'Load bigger than (pct.)'; - DecimalPlaces = 0 : 5; - ToolTip = 'Specifies a filter to print only work centers whose loads exceed this percentage, for example, if you want to print all work centers with a load of over 95% in order to troubleshoot a particular problem.'; - } - } - } - } - - actions - { - } - - trigger OnInit() - begin - if StartingDate = 0D then - StartingDate := WorkDate(); - if Format(PeriodLength) = '' then - Evaluate(PeriodLength, '<1W>'); - if NoOfPeriods = 0 then - NoOfPeriods := 4; - end; - } - - rendering - { - layout(MachineCenterLoadBarRDLC) - { - Caption = 'Machine Center Load/Bar (obsolete)'; - Type = RDLC; - LayoutFile = './Manufacturing/Reports/MachineCenterLoadBar.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } - } - - labels - { - } - - trigger OnInitReport() - begin - BarTxt := '0 100 200'; - BarTxt2 := '| | |'; - if StartingDate = 0D then - StartingDate := WorkDate(); - if Format(PeriodLength) = '' then - Evaluate(PeriodLength, '<1W>'); - if NoOfPeriods = 0 then - NoOfPeriods := 4; - end; - - trigger OnPreReport() - begin - WorkCenterFilter := "Work Center".GetFilters(); - end; - - var - WorkCenterFilter: Text; - StartingDate: Date; - PeriodStartingDate: Date; - PeriodEndingDate: Date; - PeriodLength: DateFormula; - NoOfPeriods: Integer; - i: Integer; - CapacityAvailable: Decimal; - CapacityEfficiency: Decimal; - LoadStr: Text[25]; - LoadStr2: Text[25]; - LoadStrTotal: Text[50]; - MinCapEfficToPrint: Decimal; - BarTxt: Text[52]; - BarTxt2: Text[51]; - Machine_Center_Load___BarCaptionLbl: Label 'Machine Center Load/Bar'; - CurrReport_PAGENOCaptionLbl: Label 'Page'; - Machine_Center__Capacity__Effective__CaptionLbl: Label 'Capacity (Effective)'; - CapacityAvailableCaptionLbl: Label 'Available'; - CapacityEfficiencyCaptionLbl: Label 'Expected Efficiency'; - LoadStrTotalCaptionLbl: Label 'Load'; - PeriodStartingDateCaptionLbl: Label 'Period Starting Date'; - PeriodEndingDateCaptionLbl: Label 'Period Ending Date'; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/ProdOrderCalculation.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/ProdOrderCalculation.Report.al deleted file mode 100644 index 8dc88038bb0..00000000000 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/ProdOrderCalculation.Report.al +++ /dev/null @@ -1,168 +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.Manufacturing.Reports; - -using Microsoft.Manufacturing.Document; - -report 99000767 "Prod. Order - Calculation" -{ - ApplicationArea = Manufacturing; - Caption = 'Prod. Order - Calculation (Obsolete)'; - UsageCategory = ReportsAndAnalysis; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Production Order Statistics" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - DefaultRenderingLayout = RDLCLayout; - - dataset - { - dataitem("Production Order"; "Production Order") - { - DataItemTableView = sorting(Status, "No."); - RequestFilterFields = Status, "No.", "Source Type", "Source No."; - column(FORMAT_TODAY_0_4_; Format(Today, 0, 4)) - { - } - column(COMPANYNAME; COMPANYPROPERTY.DisplayName()) - { - } - column(Production_Order__TABLECAPTION_________ProdOrderFilter; TableCaption + ':' + ProdOrderFilter) - { - } - column(ProdOrderFilter; ProdOrderFilter) - { - } - column(Prod__Order_Line___Expected_Operation_Cost_Amt__; "Prod. Order Line"."Expected Operation Cost Amt.") - { - } - column(Prod__Order_Line___Expected_Component_Cost_Amt__; "Prod. Order Line"."Expected Component Cost Amt.") - { - } - column(TotalCost; TotalCost) - { - AutoFormatType = 1; - } - column(Production_Order_No_; "No.") - { - } - column(Prod__Order___CalculationCaption; Prod__Order___CalculationCaptionLbl) - { - } - column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl) - { - } - column(Prod__Order_No_Caption; Prod__Order_No_CaptionLbl) - { - } - column(DescriptionCaption; DescriptionCaptionLbl) - { - } - column(Item_No_Caption; Item_No_CaptionLbl) - { - } - column(QuantityCaption; QuantityCaptionLbl) - { - } - column(Expected_Operation_Cost_Amt_Caption; Expected_Operation_Cost_Amt_CaptionLbl) - { - } - column(Expected_Component_Cost_Amt_Caption; Expected_Component_Cost_Amt_CaptionLbl) - { - } - column(Total_CostCaption; Total_CostCaptionLbl) - { - } - column(Total_CostsCaption; Total_CostsCaptionLbl) - { - } - dataitem("Prod. Order Line"; "Prod. Order Line") - { - DataItemLink = Status = field(Status), "Prod. Order No." = field("No."); - DataItemTableView = sorting(Status, "Prod. Order No.", "Line No.") where("Planning Level Code" = const(0)); - column(Prod__Order_Line__Prod__Order_No__; "Prod. Order No.") - { - } - column(Prod__Order_Line_Description; Description) - { - } - column(Prod__Order_Line__Item_No__; "Item No.") - { - } - column(Prod__Order_Line_Quantity; Quantity) - { - } - column(Prod__Order_Line__Expected_Operation_Cost_Amt__; "Expected Operation Cost Amt.") - { - } - column(Prod__Order_Line__Expected_Component_Cost_Amt__; "Expected Component Cost Amt.") - { - } - column(TotalCost_Control29; TotalCost) - { - } - - trigger OnAfterGetRecord() - begin - CalcFields( - "Expected Operation Cost Amt.", - "Expected Component Cost Amt."); - - TotalCost := - "Expected Operation Cost Amt." + - "Expected Component Cost Amt."; - end; - } - - trigger OnPreDataItem() - begin - ProdOrderFilter := GetFilters(); - Clear(TotalCost); - end; - } - } - - requestpage - { - AboutTitle = 'About Prod. Order - Calculation (Obsolete)'; - AboutText = 'Get a list of your production orders and their costs. ** This report is obsolete and will be removed in a future release.** Please refer to the report documentation for alternative ways to retrieve this information.'; - layout - { - } - - actions - { - } - } - - rendering - { - layout(RDLCLayout) - { - Type = RDLC; - LayoutFile = './Manufacturing/Reports/ProdOrderCalculation.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } - } - - labels - { - } - - var - ProdOrderFilter: Text; - TotalCost: Decimal; - Prod__Order___CalculationCaptionLbl: Label 'Prod. Order - Calculation'; - CurrReport_PAGENOCaptionLbl: Label 'Page'; - Prod__Order_No_CaptionLbl: Label 'Prod. Order No.'; - DescriptionCaptionLbl: Label 'Description'; - Item_No_CaptionLbl: Label 'Item No.'; - QuantityCaptionLbl: Label 'Quantity'; - Expected_Operation_Cost_Amt_CaptionLbl: Label 'Expected Operation Cost Amt.'; - Expected_Component_Cost_Amt_CaptionLbl: Label 'Expected Component Cost Amt.'; - Total_CostCaptionLbl: Label 'Total Cost'; - Total_CostsCaptionLbl: Label 'Total Costs'; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/ProdOrderShortageList.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/ProdOrderShortageList.Report.al index 6fa3f10fd85..4b0222e08c4 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/ProdOrderShortageList.Report.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Reports/ProdOrderShortageList.Report.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -37,86 +37,6 @@ report 99000788 "Prod. Order - Shortage List" column(DueDate_ProdOrder; Format("Due Date")) { } -#if not CLEAN27 - column(TodayFormatted; Format(Today, 0, 4)) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ShortageListCaption; ShortageListCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(PageNoCaption; PageNoCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(DueDateCaption; DueDateCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(NeededQtyCaption; NeededQtyCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CompItemScheduledNeedQtyCaption; CompItemScheduledNeedQtyCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CompItemInventoryCaption; CompItemInventoryCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(RemainingQtyBaseCaption; RemainingQtyBaseCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(RemQtyBaseCaption; RemQtyBaseCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ReceiptQtyCaption; ReceiptQtyCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(QtyonPurchOrderCaption; QtyonPurchOrderCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(QtyonSalesOrderCaption; QtyonSalesOrderCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif dataitem("Prod. Order Line"; "Prod. Order Line") { DataItemLink = Status = field(Status), "Prod. Order No." = field("No."); @@ -370,18 +290,6 @@ report 99000788 "Prod. Order - Shortage List" LayoutFile = './Manufacturing/Reports/ProdOrderShortageList.xlsx'; Summary = 'Report layout primarily made for data analysis. Use an Excel editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Prod. Order - Shortage List RDLC'; - Type = RDLC; - LayoutFile = './Manufacturing/Reports/ProdOrderShortageList.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels @@ -424,19 +332,6 @@ report 99000788 "Prod. Order - Shortage List" NeededQty: Decimal; QtyOnHandAfterProd: Decimal; PostingDateFilter: Text; -#if not CLEAN27 - ShortageListCaptionLbl: Label 'Shortage List'; - PageNoCaptionLbl: Label 'Page'; - DueDateCaptionLbl: Label 'Due Date'; - NeededQtyCaptionLbl: Label 'Needed Quantity'; - CompItemScheduledNeedQtyCaptionLbl: Label 'Scheduled Need'; - CompItemInventoryCaptionLbl: Label 'Quantity on Hand'; - RemainingQtyBaseCaptionLbl: Label 'Qty. on Hand after Production'; - RemQtyBaseCaptionLbl: Label 'Remaining Qty. (Base)'; - ReceiptQtyCaptionLbl: Label 'Scheduled Receipt'; - QtyonPurchOrderCaptionLbl: Label 'Qty. on Purch. Order'; - QtyonSalesOrderCaptionLbl: Label 'Qty. on Sales Order'; -#endif local procedure CalcProdOrderLineFields(var ProdOrderLineFields: Record "Prod. Order Line") var diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/ProductionOrderStatistics.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/ProductionOrderStatistics.Report.al index 0433ad1e579..3e4c90a2c8b 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/ProductionOrderStatistics.Report.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Reports/ProductionOrderStatistics.Report.al @@ -327,18 +327,6 @@ report 99000791 "Production Order Statistics" Type = Word; Summary = 'Report layout made for print. Use a Word editor to modify the layout.'; } -#if not CLEAN27 - layout(ProdOrderStatisticsRDLC) - { - Caption = 'Production Order Statistics RDLC'; - LayoutFile = '.\Manufacturing\Reports\ProductionOrderStatistics.rdlc'; - Type = RDLC; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels { diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/QuantityExplosionofBOM.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/QuantityExplosionofBOM.Report.al index a2f2f91c039..cd86512e9ca 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/QuantityExplosionofBOM.Report.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Reports/QuantityExplosionofBOM.Report.al @@ -276,18 +276,6 @@ report 99000753 "Quantity Explosion of BOM" LayoutFile = './Manufacturing/Reports/QuantityExplosionOfBOM.xlsx'; Summary = 'Report layout primarily made for data analysis. Use an Excel editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLCLayout) - { - Caption = 'Quantity Explosion of BOM RDLC'; - Type = RDLC; - LayoutFile = './Manufacturing/Reports/QuantityExplosionofBOM.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/SubcontractorDispatchList.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/SubcontractorDispatchList.Report.al index bda64c8e5f7..119195e1bc1 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/SubcontractorDispatchList.Report.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Reports/SubcontractorDispatchList.Report.al @@ -263,17 +263,6 @@ report 99000789 "Subcontractor - Dispatch List" LayoutFile = './Manufacturing/Reports/SubcontractorDispatchList.xlsx'; Summary = 'Report layout primarily made for data analysis. Use an Excel editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLCLayout) - { - Type = RDLC; - LayoutFile = './Manufacturing/Reports/SubcontractorDispatchList.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/WhereUsedTopLevel.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/WhereUsedTopLevel.Report.al index 5b3dee93be8..4e3fcae897f 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/WhereUsedTopLevel.Report.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Reports/WhereUsedTopLevel.Report.al @@ -168,18 +168,6 @@ report 99000757 "Where-Used (Top Level)" Type = Excel; Summary = 'Report layout primarily made for data analysis. Use an Excel editor to modify the layout.'; } -#if not CLEAN27 - layout(WhereUsedTopLevelRDLC) - { - Caption = 'Where-Used (Top Level) RDLC'; - LayoutFile = './Manufacturing/Reports/WhereUsedTopLevel.rdlc'; - Type = RDLC; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels { diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/WorkCenterLoad.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/WorkCenterLoad.Report.al deleted file mode 100644 index ad2af2d9aee..00000000000 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/WorkCenterLoad.Report.al +++ /dev/null @@ -1,275 +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.Manufacturing.Reports; - -using Microsoft.Manufacturing.WorkCenter; -using System.Utilities; - -report 99000783 "Work Center Load" -{ - DefaultRenderingLayout = WorkCenterLoadRDLC; - ApplicationArea = Manufacturing; - Caption = 'Work Center Load (obsolete)'; - UsageCategory = ReportsAndAnalysis; - UseSystemPrinter = true; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - - dataset - { - dataitem("Work Center Group"; "Work Center Group") - { - PrintOnlyIfDetail = true; - RequestFilterFields = "Code"; - column(TodayFormatted; Format(Today, 0, 4)) - { - } - column(CompantName; COMPANYPROPERTY.DisplayName()) - { - } - column(WorkCntrGroupTblCaptFilt; TableCaption + ':' + WorkCntrGroupFilter) - { - } - column(WorkCntrGroupFilter; WorkCntrGroupFilter) - { - } - column(WorkCntrTableCaptionFilt; "Work Center".TableCaption + ':' + WorkCntrFilter) - { - } - column(WorkCntrFilter; WorkCntrFilter) - { - } - column(Code_WorkCntrGroup; Code) - { - } - column(Name_WorkCntrGroup; Name) - { - } - column(WorkCenterLoadCaption; WorkCenterLoadCaptionLbl) - { - } - column(CurrReportPageNoCaption; CurrReportPageNoCaptionLbl) - { - } - column(CapacityAvailableCaption; CapacityAvailableCaptionLbl) - { - } - column(CapacityEfficiencyCaption; CapacityEfficiencyCaptionLbl) - { - } - dataitem("Integer"; "Integer") - { - DataItemTableView = sorting(Number); - PrintOnlyIfDetail = true; - column(PeriodStartingDate; Format(PeriodStartingDate)) - { - } - column(PeriodEndingDate; Format(PeriodEndingDate)) - { - } - column(PeriodStartingDateCaption; PeriodStartingDateCaptionLbl) - { - } - column(PeriodEndingDateCaption; PeriodEndingDateCaptionLbl) - { - } - dataitem("Work Center"; "Work Center") - { - DataItemLink = "Work Center Group Code" = field(Code); - DataItemLinkReference = "Work Center Group"; - DataItemTableView = sorting("Work Center Group Code"); - RequestFilterFields = "Work Shift Filter"; - column(No_WorkCntr; "No.") - { - IncludeCaption = true; - } - column(Name_WorkCntr; Name) - { - IncludeCaption = true; - } - column(Capacity_WorkCntr; Capacity) - { - IncludeCaption = true; - } - column(UOMCode_WorkCntr; "Unit of Measure Code") - { - IncludeCaption = true; - } - column(CapacityEffect_WorkCntr; "Capacity (Effective)") - { - IncludeCaption = true; - } - column(ProdOrderNeedQty_WorkCntr; "Prod. Order Need (Qty.)") - { - IncludeCaption = true; - } - column(CapacityAvailable; CapacityAvailable) - { - DecimalPlaces = 0 : 5; - } - column(CapacityEfficiency; CapacityEfficiency) - { - DecimalPlaces = 1 : 1; - } - column(CEMinCapEfficToPrint; CapacityEfficiency > MinCapEfficToPrint) - { - } - - trigger OnAfterGetRecord() - begin - CalcFields("Capacity (Effective)", "Prod. Order Need (Qty.)"); - - CapacityAvailable := "Capacity (Effective)" - "Prod. Order Need (Qty.)"; - if "Capacity (Effective)" <> 0 then - CapacityEfficiency := Round("Prod. Order Need (Qty.)" / "Capacity (Effective)" * 100, 0.1) - else - if "Prod. Order Need (Qty.)" <> 0 then - CapacityEfficiency := 100 - else - CapacityEfficiency := 0; - - if CapacityEfficiency < MinCapEfficToPrint then - CurrReport.Skip(); - end; - - trigger OnPostDataItem() - begin - PeriodStartingDate := PeriodEndingDate + 1; - end; - - trigger OnPreDataItem() - begin - SetRange("Date Filter", PeriodStartingDate, PeriodEndingDate); - end; - } - - trigger OnAfterGetRecord() - begin - i := i + 1; - - if i > NoOfPeriods then - CurrReport.Break(); - - PeriodEndingDate := CalcDate(PeriodLength, PeriodStartingDate) - 1; - end; - - trigger OnPreDataItem() - begin - i := 0; - - PeriodStartingDate := StartingDate; - end; - } - } - } - - requestpage - { - AboutTitle = 'About Work Center Load (obsolete)'; - AboutText = 'Analyze the load on a work center. ** This report is obsolete and will be removed in a later release.** Please consult the report documentation for alternative ways to get to this data.'; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(StartingDate; StartingDate) - { - ApplicationArea = Manufacturing; - Caption = 'Starting Date'; - ToolTip = 'Specifies the starting date for the evaluation.'; - } - field(NoOfPeriods; NoOfPeriods) - { - ApplicationArea = Manufacturing; - Caption = 'No. of Periods'; - ToolTip = 'Specifies the number of time intervals for which the evaluation is to be created'; - } - field(PeriodLength; PeriodLength) - { - ApplicationArea = Manufacturing; - Caption = 'Period Length'; - ToolTip = 'Specifies the time interval you have selected to view the report, such as day, week, month, quarter.'; - } - field(MinCapEfficToPrint; MinCapEfficToPrint) - { - AutoFormatType = 0; - ApplicationArea = Manufacturing; - Caption = 'Load bigger than (pct.)'; - DecimalPlaces = 0 : 5; - ToolTip = 'Specifies a filter to print only work centers whose loads exceed this percentage, for example, if you want to print all work centers with a load of over 95% in order to troubleshoot a particular problem.'; - } - } - } - } - - actions - { - } - - trigger OnInit() - begin - if StartingDate = 0D then - StartingDate := WorkDate(); - if Format(PeriodLength) = '' then - Evaluate(PeriodLength, '<1W>'); - if NoOfPeriods = 0 then - NoOfPeriods := 4; - end; - } - - rendering - { - layout(WorkCenterLoadRDLC) - { - Caption = 'Work Center Load (obsolete)'; - Type = RDLC; - LayoutFile = './Manufacturing/Reports/WorkCenterLoad.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } - } - - labels - { - } - - trigger OnPreReport() - begin - WorkCntrGroupFilter := "Work Center Group".GetFilters(); - WorkCntrFilter := "Work Center".GetFilters(); - end; - - var - PeriodLength: DateFormula; - WorkCntrGroupFilter: Text; - WorkCntrFilter: Text; - StartingDate: Date; - PeriodStartingDate: Date; - PeriodEndingDate: Date; - NoOfPeriods: Integer; - i: Integer; - CapacityAvailable: Decimal; - CapacityEfficiency: Decimal; - MinCapEfficToPrint: Decimal; - WorkCenterLoadCaptionLbl: Label 'Work Center Load'; - CurrReportPageNoCaptionLbl: Label 'Page'; - CapacityAvailableCaptionLbl: Label 'Available'; - CapacityEfficiencyCaptionLbl: Label 'Expected Efficiency'; - PeriodStartingDateCaptionLbl: Label 'Period Starting Date'; - PeriodEndingDateCaptionLbl: Label 'Period Ending Date'; - - procedure InitializeRequest(NewStartingDate: Date; NewNoOfPeriods: Integer; NewPeriodLength: DateFormula; NewMinCapEfficToPrint: Decimal) - begin - StartingDate := NewStartingDate; - NoOfPeriods := NewNoOfPeriods; - PeriodLength := NewPeriodLength; - MinCapEfficToPrint := NewMinCapEfficToPrint; - end; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Reports/WorkCenterLoadBar.Report.al b/src/Layers/W1/BaseApp/Manufacturing/Reports/WorkCenterLoadBar.Report.al deleted file mode 100644 index 3ec33e710f7..00000000000 --- a/src/Layers/W1/BaseApp/Manufacturing/Reports/WorkCenterLoadBar.Report.al +++ /dev/null @@ -1,309 +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.Manufacturing.Reports; - -using Microsoft.Manufacturing.WorkCenter; -using System.Utilities; - -report 99000785 "Work Center Load/Bar" -{ - DefaultRenderingLayout = WorkCenterLoadBarRDLC; - ApplicationArea = Manufacturing; - Caption = 'Work Center Load/Bar (obsolete)'; - UsageCategory = ReportsAndAnalysis; - UseSystemPrinter = true; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - - dataset - { - dataitem("Work Center Group"; "Work Center Group") - { - PrintOnlyIfDetail = true; - RequestFilterFields = "Code"; - column(FORMAT_TODAY_0_4_; Format(Today, 0, 4)) - { - } - column(COMPANYNAME; COMPANYPROPERTY.DisplayName()) - { - } - column(Work_Center_Group__TABLECAPTION_________WorkCenterGroupFilter; TableCaption + ':' + WorkCenterGroupFilter) - { - } - column(WorkCenterGroupFilter; WorkCenterGroupFilter) - { - } - column(Work_Center__TABLECAPTION_________WorkCenterFilter; "Work Center".TableCaption + ':' + WorkCenterFilter) - { - } - column(WorkCenterFilter; WorkCenterFilter) - { - } - column(Work_Center_Group_Code; Code) - { - } - column(Work_Center_Group_Name; Name) - { - } - column(Work_Center_Load___BarCaption; Work_Center_Load___BarCaptionLbl) - { - } - column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl) - { - } - column(Work_Center__No__Caption; "Work Center".FieldCaption("No.")) - { - } - column(Work_Center_NameCaption; "Work Center".FieldCaption(Name)) - { - } - column(Work_Center__Capacity__Effective__Caption; "Work Center".FieldCaption("Capacity (Effective)")) - { - } - column(Work_Center__Prod__Order_Need__Qty___Caption; "Work Center".FieldCaption("Prod. Order Need (Qty.)")) - { - } - column(CapacityAvailableCaption; CapacityAvailableCaptionLbl) - { - } - column(LoadStrTotalCaption; LoadStrTotalCaptionLbl) - { - } - column(CapacityEfficiencyCaption; CapacityEfficiencyCaptionLbl) - { - } - dataitem("Integer"; "Integer") - { - DataItemTableView = sorting(Number); - PrintOnlyIfDetail = true; - column(PeriodStartingDate; Format(PeriodStartingDate)) - { - } - column(PeriodEndingDate; Format(PeriodEndingDate)) - { - } - column(BarTxt2; BarTxt2) - { - } - column(BarTxt; BarTxt) - { - } - column(PeriodStartingDateCaption; PeriodStartingDateCaptionLbl) - { - } - column(PeriodEndingDateCaption; PeriodEndingDateCaptionLbl) - { - } - dataitem("Work Center"; "Work Center") - { - DataItemLink = "Work Center Group Code" = field(Code); - DataItemLinkReference = "Work Center Group"; - DataItemTableView = sorting("Work Center Group Code"); - RequestFilterFields = "Work Shift Filter"; - column(Work_Center__No__; "No.") - { - } - column(Work_Center_Name; Name) - { - } - column(Work_Center__Capacity__Effective__; "Capacity (Effective)") - { - } - column(Work_Center__Prod__Order_Need__Qty___; "Prod. Order Need (Qty.)") - { - } - column(CapacityAvailable; CapacityAvailable) - { - DecimalPlaces = 0 : 5; - } - column(CapacityEfficiency; CapacityEfficiency) - { - DecimalPlaces = 1 : 1; - } - column(LoadStrTotal; LoadStrTotal) - { - } - column(CapacityEfficiency___MinCapEfficToPrint; CapacityEfficiency > MinCapEfficToPrint) - { - } - - trigger OnAfterGetRecord() - var - EffStr: Text[30]; - begin - CalcFields("Capacity (Effective)", "Prod. Order Need (Qty.)"); - - CapacityAvailable := "Capacity (Effective)" - "Prod. Order Need (Qty.)"; - if "Capacity (Effective)" <> 0 then - CapacityEfficiency := Round("Prod. Order Need (Qty.)" / "Capacity (Effective)" * 100, 0.1) - else - if "Prod. Order Need (Qty.)" <> 0 then - CapacityEfficiency := 100 - else - CapacityEfficiency := 0; - - if CapacityEfficiency < MinCapEfficToPrint then - CurrReport.Skip(); - - EffStr := Format(Round(CapacityEfficiency, 1)); - if CapacityEfficiency <= 100 then begin - LoadStr := PadStr('', Round(CapacityEfficiency / 100 * MaxStrLen(LoadStr), 1), '#'); - LoadStr2 := ''; - end else begin - LoadStr := PadStr('', Round(MaxStrLen(LoadStr), 1), '#'); - if Round(CapacityEfficiency, 1) <= 200 then - LoadStr2 := PadStr('', Round((CapacityEfficiency - 100) / 100 * MaxStrLen(LoadStr), 1), '#') - else begin - LoadStr2 := PadStr('', Round(MaxStrLen(LoadStr) - (5 + StrLen(EffStr)), 1), '#'); - LoadStr2 := LoadStr2 + '...' + EffStr + ' %'; - end; - end; - - LoadStrTotal := LoadStr + LoadStr2; - end; - - trigger OnPostDataItem() - begin - PeriodStartingDate := PeriodEndingDate + 1; - end; - - trigger OnPreDataItem() - begin - SetRange("Date Filter", PeriodStartingDate, PeriodEndingDate); - end; - } - - trigger OnAfterGetRecord() - begin - i := i + 1; - - if i > NoOfPeriods then - CurrReport.Break(); - - PeriodEndingDate := CalcDate(PeriodLength, PeriodStartingDate) - 1; - end; - - trigger OnPreDataItem() - begin - i := 0; - - PeriodStartingDate := StartingDate; - end; - } - } - } - - requestpage - { - AboutTitle = 'About Work Center Load/Bar (obsolete)'; - AboutText = 'Get a list of work centers that are overloaded according to the plan. ** This report is obsolete and will be removed in a later release.** Please consult the report documentation for alternative ways to get to this data.'; - - layout - { - area(content) - { - group(Options) - { - Caption = 'Options'; - field(StartingDate; StartingDate) - { - ApplicationArea = Manufacturing; - Caption = 'Starting Date'; - ToolTip = 'Specifies the starting date for the evaluation.'; - } - field(NoOfPeriods; NoOfPeriods) - { - ApplicationArea = Manufacturing; - Caption = 'No. of Periods'; - ToolTip = 'Specifies the number of time intervals for which the evaluation is to be created.'; - } - field(PeriodLength; PeriodLength) - { - ApplicationArea = Manufacturing; - Caption = 'Period Length'; - ToolTip = 'Specifies the length of the time interval, for example 1W = one week.'; - } - field(MinCapEfficToPrint; MinCapEfficToPrint) - { - AutoFormatType = 0; - ApplicationArea = Manufacturing; - Caption = 'Load bigger than (pct.)'; - DecimalPlaces = 0 : 5; - ToolTip = 'Specifies a filter to print only work centers whose loads exceed this percentage, for example, if you want to print all work centers with a load of over 95% in order to troubleshoot a particular problem.'; - } - } - } - } - - actions - { - } - - trigger OnInit() - begin - if StartingDate = 0D then - StartingDate := WorkDate(); - if Format(PeriodLength) = '' then - Evaluate(PeriodLength, '<1W>'); - if NoOfPeriods = 0 then - NoOfPeriods := 4; - end; - } - - rendering - { - layout(WorkCenterLoadBarRDLC) - { - Caption = 'Work Center Load/Bar (obsolete)'; - Type = RDLC; - LayoutFile = './Manufacturing/Reports/WorkCenterLoadBar.rdlc'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } - } - - labels - { - } - - trigger OnInitReport() - begin - BarTxt := '0 100 200'; - BarTxt2 := '| | |'; - end; - - trigger OnPreReport() - begin - WorkCenterGroupFilter := "Work Center Group".GetFilters(); - WorkCenterFilter := "Work Center".GetFilters(); - end; - - var - PeriodLength: DateFormula; - WorkCenterGroupFilter: Text; - WorkCenterFilter: Text; - StartingDate: Date; - PeriodStartingDate: Date; - PeriodEndingDate: Date; - NoOfPeriods: Integer; - i: Integer; - CapacityAvailable: Decimal; - CapacityEfficiency: Decimal; - LoadStr: Text[25]; - LoadStr2: Text[25]; - LoadStrTotal: Text[50]; - MinCapEfficToPrint: Decimal; - BarTxt: Text[52]; - BarTxt2: Text[51]; - Work_Center_Load___BarCaptionLbl: Label 'Work Center Load/Bar'; - CurrReport_PAGENOCaptionLbl: Label 'Page'; - CapacityAvailableCaptionLbl: Label 'Available'; - LoadStrTotalCaptionLbl: Label 'Load'; - CapacityEfficiencyCaptionLbl: Label 'Expected Efficiency'; - PeriodStartingDateCaptionLbl: Label 'Period Starting Date'; - PeriodEndingDateCaptionLbl: Label 'Period Ending Date'; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ManufacturingManagerRC.Page.al b/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ManufacturingManagerRC.Page.al index e214b0af9d9..6c7bd22c34e 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ManufacturingManagerRC.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ManufacturingManagerRC.Page.al @@ -179,25 +179,6 @@ page 8903 "Manufacturing Manager RC" RunObject = page "Recurring Capacity Journal"; } } -#if not CLEAN27 - group("Group6") - { - Caption = 'Reports'; - ObsoleteState = Pending; - ObsoleteReason = 'This group will be removed in a future release.'; - ObsoleteTag = '27.0'; - action("Capacity Task List1") - { - ApplicationArea = Manufacturing; - Caption = 'Capacity Task List'; - RunObject = report "Capacity Task List"; - Visible = false; - ObsoleteState = Pending; - ObsoleteReason = 'This action is a duplicate and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - } -#endif } group("Group7") { @@ -310,26 +291,6 @@ page 8903 "Manufacturing Manager RC" Caption = 'Item - Able to Make (Timeline)'; RunObject = report "Item - Able to Make (Timeline)"; } -#if not CLEAN27 - action("Planning Availability") - { - ApplicationArea = Basic, Suite; - Caption = 'Planning Availability (Obsolete)'; - RunObject = report "Planning Availability"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been deprecated and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Production Forecast") - { - ApplicationArea = Manufacturing; - Caption = 'Demand Forecast (Obsolete)'; - RunObject = report "Demand Forecast"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been deprecated and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Item Substitutions") { ApplicationArea = Suite; @@ -435,44 +396,6 @@ page 8903 "Manufacturing Manager RC" Caption = 'Subcontractor Dispatch List'; RunObject = report "Subcontractor - Dispatch List"; } -#if not CLEAN27 - action("Machine Center Load/Bar") - { - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load/Bar'; - RunObject = report "Machine Center Load/Bar"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Work Center Load/Bar") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load/Bar'; - RunObject = report "Work Center Load/Bar"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Machine Center Load") - { - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load'; - RunObject = report "Machine Center Load"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Work Center Load") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load'; - RunObject = report "Work Center Load"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Work/Machine Center Load") { ApplicationArea = Manufacturing; @@ -587,28 +510,6 @@ page 8903 "Manufacturing Manager RC" Caption = 'Production Order Statistics'; RunObject = report "Production Order Statistics"; } -#if not CLEAN27 - action("Prod. Order - Precalc. Time1") - { - ApplicationArea = Manufacturing; - Caption = 'Prod. Order - Precalc. Time'; - RunObject = report "Prod. Order - Precalc. Time"; - Visible = false; - ObsoleteState = Pending; - ObsoleteReason = 'This action is a duplicate and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Compare List1") - { - ApplicationArea = Manufacturing; - Caption = 'Compare List (Obsolete)'; - RunObject = report "Compare List"; - Visible = false; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Compare Production Cost Shares" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif } } group("Group17") @@ -681,157 +582,6 @@ page 8903 "Manufacturing Manager RC" RunObject = page "Work Center Groups"; } } -#if not CLEAN27 - group("Group18") - { - Caption = 'Legacy Reports'; - ObsoleteState = Pending; - ObsoleteReason = 'This group will be removed in a future release.'; - ObsoleteTag = '27.0'; - group("Group19") - { - Caption = 'Reports'; - ObsoleteState = Pending; - ObsoleteReason = 'This group will be removed in a future release.'; - ObsoleteTag = '27.0'; - action("BOM Cost Share Distribution") - { - ApplicationArea = Manufacturing; - Caption = 'BOM Cost Share Distribution'; - RunObject = report "BOM Cost Share Distribution"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the page BOM Cost Shares and report Production Cost Shares. This report will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Rolled-up Cost Shares") - { - ApplicationArea = Manufacturing; - Caption = 'Rolled-up Cost Shares'; - RunObject = report "Rolled-up Cost Shares"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the page BOM Cost Shares and report Production Cost Shares. This report will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Single-Level Cost Shares") - { - ApplicationArea = Manufacturing; - Caption = 'Single-Level Cost Shares'; - RunObject = report "Single-level Cost Shares"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the page BOM Cost Shares and report Production Cost Shares. This report will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Cost Shares Breakdown") - { - ApplicationArea = Manufacturing; - Caption = 'Cost Shares Breakdown'; - RunObject = report "Cost Shares Breakdown"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the page BOM Cost Shares and report Production Cost Shares. This report will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Detailed Calculation") - { - ApplicationArea = Manufacturing; - Caption = 'Detailed Calculation'; - RunObject = report "Detailed Calculation"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the page BOM Cost Shares and report Production Cost Shares. This report will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Prod. Order - Calculation") - { - ApplicationArea = Manufacturing; - Caption = 'Prod. Order - Calculation'; - RunObject = report "Prod. Order - Calculation"; - ObsoleteState = Pending; - ObsoleteReason = 'This report will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Prod. Order - Detailed Calc.") - { - ApplicationArea = Manufacturing; - Caption = 'Prod. Order - Detailed Calc.'; - RunObject = report "Prod. Order - Detailed Calc."; - ObsoleteState = Pending; - ObsoleteReason = 'This report will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Work Center Load1") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load'; - RunObject = report "Work Center Load"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Machine Center Load1") - { - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load'; - RunObject = report "Machine Center Load"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Work Center Load/Bar1") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load/Bar'; - RunObject = report "Work Center Load/Bar"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Machine Center Load/Bar1") - { - ApplicationArea = Manufacturing; - Caption = 'Machine Center Load/Bar'; - RunObject = report "Machine Center Load/Bar"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Compare List") - { - ApplicationArea = Manufacturing; - Caption = 'Item BOM Compare List (Obsolete)'; - RunObject = report "Compare List"; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Compare Production Cost Shares" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Inventory - Transaction Detail") - { - ApplicationArea = Basic, Suite; - Caption = 'Inventory Transaction Detail'; - RunObject = report "Inventory - Transaction Detail"; - ObsoleteState = Pending; - ObsoleteReason = 'This action is available on the Purchasing Manager Role Center. It will be removed from this Role Center in a future release.'; - ObsoleteTag = '27.0'; - } - action("Status") - { - ApplicationArea = Manufacturing; - Caption = 'Status'; - RunObject = report "Status"; - ObsoleteState = Pending; - ObsoleteReason = 'This action is available on the Finance Manager Role Center. It will be removed from this Role Center in a future release.'; - ObsoleteTag = '27.0'; - } - action("Item Register - Quantity") - { - ApplicationArea = Basic, Suite; - Caption = 'Item Register - Quantity'; - RunObject = report "Item Register - Quantity"; - ObsoleteState = Pending; - ObsoleteReason = 'This action is available on the Purchasing Manager and Finance Manager Role Centers. It will be removed from this Role Center in a future release.'; - ObsoleteTag = '27.0'; - } - } - } -#endif } } } \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ProductionPlannerRoleCenter.Page.al b/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ProductionPlannerRoleCenter.Page.al index 359762f0d19..ba7289c5305 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ProductionPlannerRoleCenter.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ProductionPlannerRoleCenter.Page.al @@ -137,19 +137,6 @@ page 9010 "Production Planner Role Center" Image = ItemAvailability; RunObject = Report "Inv. Availability Plan"; } -#if not CLEAN27 - action("Planning Availability") - { - ApplicationArea = Manufacturing; - Caption = 'Planning Availability (Obsolete)'; - Image = "Report"; - RunObject = Report "Planning Availability"; - ToolTip = 'View all known existing requirements and receipts for the items that you select on a specific date. You can use the report to get a quick picture of the current demand-supply situation for an item. The report displays the item number and description plus the actual quantity in inventory.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been deprecated and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Capacity Task List") { ApplicationArea = Manufacturing; @@ -182,19 +169,6 @@ page 9010 "Production Planner Role Center" Image = "Report"; RunObject = Report "Detailed Calculation"; } -#if not CLEAN27 - action("P&roduction Order - Calculation") - { - ApplicationArea = Manufacturing; - Caption = 'P&roduction Order - Calculation (Obsolete)'; - Image = "Report"; - RunObject = Report "Prod. Order - Calculation"; - ToolTip = 'View a list of the production orders and their costs, such as expected operation costs, expected component costs, and total costs.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Production Order Statistics" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Production Order Statistics") { ApplicationArea = Manufacturing; diff --git a/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ShopSupervisorMfgFoundation.Page.al b/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ShopSupervisorMfgFoundation.Page.al index 8d67dfc081e..432e9b28415 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ShopSupervisorMfgFoundation.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ShopSupervisorMfgFoundation.Page.al @@ -91,19 +91,6 @@ page 9011 "Shop Supervisor Mfg Foundation" separator(Action42) { } -#if not CLEAN27 - action("Production &Order Calculation") - { - ApplicationArea = Manufacturing; - Caption = 'Production &Order Calculation (Obsolete)'; - Image = "Report"; - RunObject = Report "Prod. Order - Calculation"; - ToolTip = 'View a list of the production orders and their costs. Expected Operation Costs, Expected Component Costs and Total Costs are printed.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Production Order Statistics" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Production Order Statistics") { ApplicationArea = Manufacturing; diff --git a/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ShopSupervisorRoleCenter.Page.al b/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ShopSupervisorRoleCenter.Page.al index 54ba5bb1938..fc7e32a7e14 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ShopSupervisorRoleCenter.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/RoleCenters/ShopSupervisorRoleCenter.Page.al @@ -122,19 +122,6 @@ page 9012 "Shop Supervisor Role Center" separator(Action42) { } -#if not CLEAN27 - action("Production Order Ca&lculation") - { - ApplicationArea = Manufacturing; - Caption = 'Production Order Ca&lculation (Obsolete)'; - Image = "Report"; - RunObject = Report "Prod. Order - Calculation"; - ToolTip = 'View a list of the production orders and their costs. Expected Operation Costs, Expected Component Costs and Total Costs are printed.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Production Order Statistics" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Production Order Statistics") { ApplicationArea = Manufacturing; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Routing/PlanningRoutingManagement.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Routing/PlanningRoutingManagement.Codeunit.al index e794f5c178f..14048e7bccd 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Routing/PlanningRoutingManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Routing/PlanningRoutingManagement.Codeunit.al @@ -474,9 +474,6 @@ codeunit 99000808 PlanningRoutingManagement procedure CalculateRouting(var ReqLine: Record "Requisition Line"; Direction: Option Forward,Backward) var PlanningRtngLine: Record "Planning Routing Line"; -#if not CLEAN27 - PlanningLineManagement: Codeunit "Planning Line Management"; -#endif begin if NeedsCalculation( ReqLine."Worksheet Template Name", @@ -508,9 +505,6 @@ codeunit 99000808 PlanningRoutingManagement ReqLine.CalcStartingDate(''); ReqLine.UpdateDatetime(); OnCalculateRoutingOnAfterUpdateReqLine(ReqLine, Direction); -#if not CLEAN27 - PlanningLineManagement.RunOnCalculateRoutingOnAfterUpdateReqLine(ReqLine, Direction); -#endif exit; end; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Setup/ManufacturingSetup.Page.al b/src/Layers/W1/BaseApp/Manufacturing/Setup/ManufacturingSetup.Page.al index 9c632e4a84e..1e8554e8517 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Setup/ManufacturingSetup.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Setup/ManufacturingSetup.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -123,87 +123,10 @@ page 99000768 "Manufacturing Setup" group(Planning) { Caption = 'Planning'; -#if not CLEAN27 - field("Current Production Forecast"; Rec."Current Production Forecast") - { - ApplicationArea = Planning; - ObsoleteReason = 'Moved to page Inventory Setup'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Editable = false; - Visible = false; - } - field("Use Forecast on Locations"; Rec."Use Forecast on Locations") - { - ApplicationArea = Planning; - ObsoleteReason = 'Moved to page Inventory Setup'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Editable = false; - Visible = false; - } - field("Use Forecast on Variants"; Rec."Use Forecast on Variants") - { - ApplicationArea = Planning; - ObsoleteReason = 'Moved to page Inventory Setup'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Editable = false; - Visible = false; - } - field("Default Safety Lead Time"; Rec."Default Safety Lead Time") - { - ApplicationArea = Manufacturing, Planning; - ObsoleteReason = 'Moved to page Inventory Setup'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Editable = false; - Visible = false; - } - field("Blank Overflow Level"; Rec."Blank Overflow Level") - { - ApplicationArea = Planning; - ObsoleteReason = 'Moved to page Inventory Setup'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Editable = false; - Visible = false; - } - field("Combined MPS/MRP Calculation"; Rec."Combined MPS/MRP Calculation") - { - ApplicationArea = Planning; - ObsoleteReason = 'Moved to page Inventory Setup'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Editable = false; - Visible = false; - } -#endif field("Components at Location"; Rec."Components at Location") { ApplicationArea = Manufacturing, Planning; } -#if not CLEAN27 - field("Default Dampener Period"; Rec."Default Dampener Period") - { - ApplicationArea = Planning; - ObsoleteReason = 'Moved to page Inventory Setup'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Editable = false; - Visible = false; - } - field("Default Dampener %"; Rec."Default Dampener %") - { - ApplicationArea = Planning; - AutoFormatType = 0; - ObsoleteReason = 'Moved to page Inventory Setup'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Editable = false; - Visible = false; - } -#endif field("Manual Scheduling"; Rec."Manual Scheduling") { ApplicationArea = Manufacturing; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Setup/ManufacturingSetup.Table.al b/src/Layers/W1/BaseApp/Manufacturing/Setup/ManufacturingSetup.Table.al index 34fb6c210d5..93a1b72e369 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Setup/ManufacturingSetup.Table.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Setup/ManufacturingSetup.Table.al @@ -1,13 +1,10 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Setup; using Microsoft.Finance.GeneralLedger.Setup; -#if not CLEAN27 -using Microsoft.Foundation.Calendar; -#endif using Microsoft.Foundation.NoSeries; using Microsoft.Inventory.BOM.Tree; using Microsoft.Inventory.Item; @@ -136,39 +133,24 @@ table 99000765 "Manufacturing Setup" ToolTip = 'Specifies the name of the relevant demand forecast to use to calculate a plan. Use Inventory Setup page to change this field.'; TableRelation = "Production Forecast Name".Name; ObsoleteReason = 'Field moved to same field in table Inventory Setup'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#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. Use Inventory Setup page to change this field.'; ObsoleteReason = 'Field moved to same field in table Inventory Setup'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#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. Use Inventory Setup page to change this field.'; ObsoleteReason = 'Field moved to same field in table Inventory Setup'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } field(38; "Combined MPS/MRP Calculation"; Boolean) { @@ -177,13 +159,8 @@ table 99000765 "Manufacturing Setup" 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. Use Inventory Setup page to change this field.'; InitValue = true; ObsoleteReason = 'Field moved to same field in table Inventory Setup'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } field(39; "Components at Location"; Code[10]) { @@ -196,21 +173,8 @@ table 99000765 "Manufacturing Setup" Caption = 'Default Dampener Period'; ToolTip = 'Specifies a period of time during which you do not want the planning system to propose to reschedule existing supply order''s forward. This value in this field applies to all items except for items that have a different value in the Dampener Period field on the item card. When a dampener time is set, an order is only rescheduled when the defined dampener time has passed since the order s original due date. Note: The dampener time that is applied to an item can never be higher than the value in the item''s Lot Accumulation Period field. This is because the inventory build-up time that occurs during a dampener period would conflict with the build-up period defined by the item''s lot accumulation period. Accordingly, the default dampener period generally applies to all items. However, if an item''s lot accumulation period is shorter than the default dampener period, then the item''s dampener time equals its lot accumulation period. Use Inventory Setup page to change this field.'; ObsoleteReason = 'Field moved to same field in table Inventory Setup'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif -#if not CLEAN27 - trigger OnValidate() - var - CalendarMgt: Codeunit "Calendar Management"; - begin - CalendarMgt.CheckDateFormulaPositive("Default Dampener Period"); - end; -#endif } field(41; "Default Dampener %"; Decimal) { @@ -220,26 +184,16 @@ table 99000765 "Manufacturing Setup" DecimalPlaces = 1 : 1; MinValue = 0; ObsoleteReason = 'Field moved to same field in table Inventory Setup'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#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. Use Inventory Setup page to change this field.'; ObsoleteReason = 'Field moved to same field in table Inventory Setup'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } field(43; "Blank Overflow Level"; Option) { @@ -248,13 +202,8 @@ table 99000765 "Manufacturing Setup" OptionCaption = 'Allow Default Calculation,Use Item/SKU Values Only'; OptionMembers = "Allow Default Calculation","Use Item/SKU Values Only"; ObsoleteReason = 'Field moved to same field in table Inventory Setup'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#else ObsoleteState = Removed; ObsoleteTag = '30.0'; -#endif } field(50; "Show Capacity In"; Code[10]) { diff --git a/src/Layers/W1/BaseApp/Manufacturing/StandardCost/CalculateStandardCost.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/StandardCost/CalculateStandardCost.Codeunit.al index f37fe741204..32d95a2ba32 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/StandardCost/CalculateStandardCost.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/StandardCost/CalculateStandardCost.Codeunit.al @@ -258,17 +258,6 @@ codeunit 5812 "Calculate Standard Cost" until TempItem.Next() = 0; end; -#if not CLEAN27 - [Obsolete('procedure that was implemented to throw the error has now been identified as unnecessary', '27.0')] - procedure CalcItemForNonInventoryValue(var Item: Record Item) - begin - end; - - [Obsolete('procedure that was implemented to throw the error has now been identified as unnecessary', '27.0')] - procedure CalcSKUForNonInventoryValue(var SKU: Record "Stockkeeping Unit") - begin - end; -#endif procedure CalcItemSKU(ItemNo: Code[20]; LocationCode: Code[20]; VariantCode: Code[20]) var diff --git a/src/Layers/W1/BaseApp/Manufacturing/Upgrade/MfgUpgradeBaseApp.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Upgrade/MfgUpgradeBaseApp.Codeunit.al index ecfddca5fc6..d78c0477795 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Upgrade/MfgUpgradeBaseApp.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Upgrade/MfgUpgradeBaseApp.Codeunit.al @@ -28,17 +28,11 @@ codeunit 104062 "Mfg. Upgrade BaseApp" if not HybridDeployment.VerifyCanStartUpgrade(CompanyName()) then exit; -#if not CLEAN27 - UpgradeInventoryPlanningFields(); -#endif #if not CLEANSCHEMA29 UpgradeFlushingMethod(); #endif -#if not CLEAN27 - UpgradeGranularWarehouseHandlingSetup(); -#endif UpgradeProdDefinitionDisplaySetup(); end; @@ -238,100 +232,5 @@ codeunit 104062 "Mfg. Upgrade BaseApp" end; #endif -#if not CLEAN27 - local procedure UpgradeInventoryPlanningFields() - var - InventorySetup: Record Microsoft.Inventory.Setup."Inventory Setup"; - ManufacturingSetup: Record Microsoft.Manufacturing.Setup."Manufacturing Setup"; - begin - if UpgradeTag.HasUpgradeTag(UpgradeTagDefinitions.GetInventoryPlanningSetupUpgradeTag()) then - exit; - - if not ManufacturingSetup.Get() then - exit; - - if InventorySetup.Get() then begin - InventorySetup."Current Demand Forecast" := ManufacturingSetup."Current Production Forecast"; - InventorySetup."Use Forecast on Variants" := ManufacturingSetup."Use Forecast on Variants"; - InventorySetup."Use Forecast on Locations" := ManufacturingSetup."Use Forecast on Locations"; - InventorySetup."Default Safety Lead Time" := ManufacturingSetup."Default Safety Lead Time"; - InventorySetup."Combined MPS/MRP Calculation" := ManufacturingSetup."Combined MPS/MRP Calculation"; - InventorySetup."Default Dampener %" := ManufacturingSetup."Default Dampener %"; - InventorySetup."Default Dampener Period" := ManufacturingSetup."Default Dampener Period"; - InventorySetup."Blank Overflow Level" := ManufacturingSetup."Blank Overflow Level"; - InventorySetup.Modify(); - end; - SetUpgradeTag(true, UpgradeTagDefinitions.GetInventoryPlanningSetupUpgradeTag()); - end; -#endif - -#if not CLEAN27 - local procedure UpgradeGranularWarehouseHandlingSetup() - var - Location: Record Location; - LocationDataTransfer: DataTransfer; - begin - if UpgradeTag.HasUpgradeTag(UpgradeTagDefinitions.GetLocationGranularWarehouseHandlingSetupsUpgradeTag()) then - exit; - - LocationDataTransfer.SetTables(Database::Location, Database::Location); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Pick"), '=%1', false); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Shipment"), '=%1', false); - LocationDataTransfer.AddConstantValue("Prod. Consump. Whse. Handling"::"Warehouse Pick (optional)", Location.FieldNo("Prod. Consump. Whse. Handling")); - LocationDataTransfer.CopyFields(); - Clear(LocationDataTransfer); - - LocationDataTransfer.SetTables(Database::Location, Database::Location); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Pick"), '=%1', false); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Shipment"), '=%1', true); - LocationDataTransfer.AddConstantValue("Prod. Consump. Whse. Handling"::"Warehouse Pick (optional)", Location.FieldNo("Prod. Consump. Whse. Handling")); - LocationDataTransfer.CopyFields(); - Clear(LocationDataTransfer); - - LocationDataTransfer.SetTables(Database::Location, Database::Location); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Pick"), '=%1', true); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Shipment"), '=%1', false); - LocationDataTransfer.AddConstantValue("Prod. Consump. Whse. Handling"::"Inventory Pick/Movement", Location.FieldNo("Prod. Consump. Whse. Handling")); - LocationDataTransfer.CopyFields(); - Clear(LocationDataTransfer); - - LocationDataTransfer.SetTables(Database::Location, Database::Location); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Pick"), '=%1', true); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Shipment"), '=%1', true); - LocationDataTransfer.AddConstantValue("Prod. Consump. Whse. Handling"::"Warehouse Pick (mandatory)", Location.FieldNo("Prod. Consump. Whse. Handling")); - LocationDataTransfer.CopyFields(); - Clear(LocationDataTransfer); - - LocationDataTransfer.SetTables(Database::Location, Database::Location); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Put-away"), '=%1', false); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Receive"), '=%1', false); - LocationDataTransfer.AddConstantValue("Prod. Output Whse. Handling"::"No Warehouse Handling", Location.FieldNo("Prod. Output Whse. Handling")); - LocationDataTransfer.CopyFields(); - Clear(LocationDataTransfer); - - LocationDataTransfer.SetTables(Database::Location, Database::Location); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Put-away"), '=%1', false); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Receive"), '=%1', true); - LocationDataTransfer.AddConstantValue("Prod. Output Whse. Handling"::"No Warehouse Handling", Location.FieldNo("Prod. Output Whse. Handling")); - LocationDataTransfer.CopyFields(); - Clear(LocationDataTransfer); - - LocationDataTransfer.SetTables(Database::Location, Database::Location); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Put-away"), '=%1', true); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Receive"), '=%1', true); - LocationDataTransfer.AddConstantValue("Prod. Output Whse. Handling"::"No Warehouse Handling", Location.FieldNo("Prod. Output Whse. Handling")); - LocationDataTransfer.CopyFields(); - Clear(LocationDataTransfer); - - LocationDataTransfer.SetTables(Database::Location, Database::Location); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Put-away"), '=%1', true); - LocationDataTransfer.AddSourceFilter(Location.FieldNo("Require Receive"), '=%1', false); - LocationDataTransfer.AddConstantValue("Prod. Output Whse. Handling"::"Inventory Put-away", Location.FieldNo("Prod. Output Whse. Handling")); - LocationDataTransfer.CopyFields(); - Clear(LocationDataTransfer); - - UpgradeTag.SetUpgradeTag(UpgradeTagDefinitions.GetLocationGranularWarehouseHandlingSetupsUpgradeTag()); - end; -#endif } \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgCreateInvtPickMovement.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgCreateInvtPickMovement.Codeunit.al index d7856a1f3c9..1804498d888 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgCreateInvtPickMovement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgCreateInvtPickMovement.Codeunit.al @@ -14,9 +14,6 @@ codeunit 99000899 "Mfg. Create Invt.Pick/Movement" { var FeatureTelemetry: Codeunit "Feature Telemetry"; -#if not CLEAN27 - CreateInventoryPickMovement: Codeunit "Create Inventory Pick/Movement"; -#endif ProdAsmJobWhseHandlingTelemetryCategoryTok: Label 'Prod/Asm/Project Whse. Handling', Locked = true; ProdAsmJobWhseHandlingTelemetryTok: Label 'Prod/Asm/Project Whse. Handling in used for warehouse pick.', Locked = true; @@ -108,9 +105,6 @@ codeunit 99000899 "Mfg. Create Invt.Pick/Movement" IsHandled := false; OnBeforeCreatePickOrMoveLineFromProductionLoop(WarehouseActivityHeader, ProductionOrder, IsHandled, ProdOrderComponent); -#if not CLEAN27 - CreateInventoryPickMovement.RunOnBeforeCreatePickOrMoveLineFromProductionLoop(WarehouseActivityHeader, ProductionOrder, IsHandled, ProdOrderComponent); -#endif if not IsHandled and CanPickProdOrderComponent(ProdOrderComponent, ReservedFromStock) then if not NewWarehouseActivityLine.ActivityExists( @@ -139,9 +133,6 @@ codeunit 99000899 "Mfg. Create Invt.Pick/Movement" else RemQtyToPickBase := ProdOrderComponent."Expected Qty. (Base)" - ProdOrderComponent."Qty. Picked (Base)"; OnBeforeNewWhseActivLineInsertFromComp(NewWarehouseActivityLine, ProdOrderComponent, WarehouseActivityHeader, RemQtyToPickBase); -#if not CLEAN27 - CreateInventoryPickMovement.RunOnBeforeNewWhseActivLineInsertFromComp(NewWarehouseActivityLine, ProdOrderComponent, WarehouseActivityHeader, RemQtyToPickBase); -#endif ProdOrderComponent.CalcFields(ProdOrderComponent."Reserved Quantity"); sender.CreatePickOrMoveLine( NewWarehouseActivityLine, RemQtyToPickBase, RemQtyToPickBase, ProdOrderComponent."Reserved Quantity" <> 0); @@ -175,9 +166,6 @@ codeunit 99000899 "Mfg. Create Invt.Pick/Movement" end; OnBeforeFindProdOrderComp(ProdOrderComponent, ProductionOrder, WarehouseActivityHeader); -#if not CLEAN27 - CreateInventoryPickMovement.RunOnBeforeFindProdOrderComp(ProdOrderComponent, ProductionOrder, WarehouseActivityHeader); -#endif exit(ProdOrderComponent.Find('-')); end; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgCreatePutaway.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgCreatePutaway.Codeunit.al index 06d72e0d4da..9e6b18f27e9 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgCreatePutaway.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgCreatePutaway.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -45,9 +45,6 @@ codeunit 99000893 "Mfg. Create Put-away" UnitOfMeasureManagement: Codeunit "Unit of Measure Management"; FeatureTelemetry: Codeunit "Feature Telemetry"; MfgPutAwayHelper: Codeunit "Mfg. Put Away Helper"; -#if not CLEAN27 - CreatePutaway: Codeunit "Create Put-away"; -#endif BinTypeFilter: Text; MessageText: Text; WarehouseClassCode: Code[10]; @@ -100,9 +97,6 @@ codeunit 99000893 "Mfg. Create Put-away" CurrBinContent.SetRange("Unit of Measure Code", PutAwayItemUnitOfMeasure.Code); IsHandled := false; OnFindBinContent(PostedWhseReceiptLine, PutAwayTemplateLine, CurrBinContent, BinContentFound, IsHandled); -#if not CLEAN27 - CreatePutaway.RunOnFindBinContent(PostedWhseReceiptLine, PutAwayTemplateLine, CurrBinContent, BinContentFound, IsHandled); -#endif if not IsHandled then BinContentFound := CurrBinContent.Find('+'); @@ -127,9 +121,6 @@ codeunit 99000893 "Mfg. Create Put-away" CurrBin.SetRange(CurrBin.Empty, true); IsHandled := false; OnFindBin(PostedWhseReceiptLine, PutAwayTemplateLine, CurrBin, BinFound, IsHandled); -#if not CLEAN27 - CreatePutaway.RunOnFindBin(PostedWhseReceiptLine, PutAwayTemplateLine, CurrBin, BinFound, IsHandled); -#endif if IsHandled then exit(BinFound); @@ -156,9 +147,6 @@ codeunit 99000893 "Mfg. Create Put-away" local procedure AssignQtyToPutAwayForBinMandatory() begin OnBeforeAssignQtyToPutAwayForBinMandatory(CurrItem, CurrLocation, QtyToPutAwayBase, RemQtyToPutAwayBase); -#if not CLEAN27 - CreatePutaway.RunOnBeforeAssignQtyToPutAwayForBinMandatory(CurrItem, CurrLocation, QtyToPutAwayBase, RemQtyToPutAwayBase); -#endif if QtyToPutAwayBase >= RemQtyToPutAwayBase then begin QtyToPutAwayBase := RemQtyToPutAwayBase; @@ -175,9 +163,6 @@ codeunit 99000893 "Mfg. Create Put-away" begin IsHandled := false; OnBeforeCalcAvailCubageAndWeight(CurrBin, PostedWhseReceiptLine, PutAwayItemUnitOfMeasure, QtyToPutAwayBase, IsHandled, PutAwayTemplateLine); -#if not CLEAN27 - CreatePutaway.RunOnBeforeCalcAvailCubageAndWeight(CurrBin, PostedWhseReceiptLine, PutAwayItemUnitOfMeasure, QtyToPutAwayBase, IsHandled, PutAwayTemplateLine); -#endif if IsHandled then exit; @@ -239,9 +224,6 @@ codeunit 99000893 "Mfg. Create Put-away" CurrLocation.Get(LocationCode); OnAfterGetLocation(LocationCode, CurrLocation, PostedWhseReceiptLine); -#if not CLEAN27 - CreatePutaway.RunOnAfterGetLocation(LocationCode, CurrLocation, PostedWhseReceiptLine); -#endif end; local procedure GetBin(LocationCode: Code[10]; BinCode: Code[20]) @@ -270,9 +252,6 @@ codeunit 99000893 "Mfg. Create Put-away" Clear(CurrStockkeepingUnit); OnAfterGetItemAndSKU(CurrLocation, CurrItem, CurrStockkeepingUnit); -#if not CLEAN27 - CreatePutaway.RunOnAfterGetItemAndSKU(CurrLocation, CurrItem, CurrStockkeepingUnit); -#endif end; local procedure GetWarehouseClassCode() @@ -286,9 +265,6 @@ codeunit 99000893 "Mfg. Create Put-away" begin IsHandled := false; OnBeforeGetPutAwayTemplate(CurrStockkeepingUnit, CurrItem, CurrLocation, PutAwayTemplateHeader, IsHandled); -#if not CLEAN27 - CreatePutaway.RunOnBeforeGetPutAwayTemplate(CurrStockkeepingUnit, CurrItem, CurrLocation, PutAwayTemplateHeader, IsHandled); -#endif if IsHandled then exit; @@ -323,9 +299,6 @@ codeunit 99000893 "Mfg. Create Put-away" BreakbulkFilter := BreakbulkFilter2; OnAfterSetValues(AssignedID, SortActivity, DoNotFillQtytoHandle, BreakbulkFilter); -#if not CLEAN27 - CreatePutaway.RunOnAfterSetValues(AssignedID, SortActivity, DoNotFillQtytoHandle, BreakbulkFilter); -#endif end; procedure GetWhseActivHeaderNo(var FirstPutAwayNo: Code[20]; var LastPutAwayNo: Code[20]) @@ -334,17 +307,11 @@ codeunit 99000893 "Mfg. Create Put-away" LastPutAwayNo := CurrWarehouseActivityHeader."No."; OnAfterGetWhseActivHeaderNo(FirstPutAwayNo, LastPutAwayNo); -#if not CLEAN27 - CreatePutaway.RunOnAfterGetWhseActivHeaderNo(FirstPutAwayNo, LastPutAwayNo); -#endif end; procedure EverythingIsHandled(): Boolean begin OnBeforeEverythingIsHandled(EverythingHandled); -#if not CLEAN27 - CreatePutaway.RunOnBeforeEverythingIsHandled(EverythingHandled); -#endif exit(EverythingHandled); end; @@ -361,9 +328,6 @@ codeunit 99000893 "Mfg. Create Put-away" Found: Boolean; begin OnBeforeGetFirstPutAwayDocument(TempWarehouseActivityHeader); -#if not CLEAN27 - CreatePutaway.RunOnBeforeGetFirstPutAwayDocument(TempWarehouseActivityHeader); -#endif Found := TempWarehouseActivityHeader.Find('-'); if Found then begin WhseActivHeader := TempWarehouseActivityHeader; @@ -380,9 +344,6 @@ codeunit 99000893 "Mfg. Create Put-away" Found: Boolean; begin OnBeforeGetNextPutAwayDocument(TempWarehouseActivityHeader); -#if not CLEAN27 - CreatePutaway.RunOnBeforeGetNextPutAwayDocument(TempWarehouseActivityHeader); -#endif Found := TempWarehouseActivityHeader.Next() <> 0; if Found then begin WhseActivHeader := TempWarehouseActivityHeader; @@ -411,9 +372,6 @@ codeunit 99000893 "Mfg. Create Put-away" TempWhseItemTrackingLine.CopyTrackingFromPostedWhseRcptLine(PostedWhseRcptLine); TempWhseItemTrackingLine."Quantity (Base)" := QtyToPickBase; OnUpdateTempWhseItemTrkgLines(TempWhseItemTrackingLine, PostedWhseRcptLine); -#if not CLEAN27 - CreatePutaway.RunOnUpdateTempWhseItemTrkgLines(TempWhseItemTrackingLine, PostedWhseRcptLine); -#endif TempWhseItemTrackingLine.Insert(); end; @@ -465,9 +423,6 @@ codeunit 99000893 "Mfg. Create Put-away" IsHandled := false; OnNextBin(PostedWhseReceiptLine, PutAwayTemplateLine, CurrBin, BinFound, IsHandled); -#if not CLEAN27 - CreatePutaway.RunOnNextBin(PostedWhseReceiptLine, PutAwayTemplateLine, CurrBin, BinFound, IsHandled); -#endif if not IsHandled then BinFound := CurrBin.Next(-1) <> 0; @@ -484,9 +439,6 @@ codeunit 99000893 "Mfg. Create Put-away" IsHandled := false; OnNextBinContent(PostedWhseReceiptLine, PutAwayTemplateLine, CurrBinContent, BinContentFound, IsHandled); -#if not CLEAN27 - CreatePutaway.RunOnNextBinContent(PostedWhseReceiptLine, PutAwayTemplateLine, CurrBinContent, BinContentFound, IsHandled); -#endif if not IsHandled then BinContentFound := CurrBinContent.Next(-1) <> 0; @@ -531,9 +483,6 @@ codeunit 99000893 "Mfg. Create Put-away" internal procedure CreateWhsePutAwayForProdOutput() begin OnBeforeCreateWhsePutAwayForProdOutput(TempProductionOrderForWhsePutAwayForProdOutput); -#if not CLEAN27 - CreatePutaway.RunOnBeforeCreateWhsePutAwayForProdOutput(TempProductionOrderForWhsePutAwayForProdOutput); -#endif if TempProductionOrderForWhsePutAwayForProdOutput.FindSet() then repeat ProcessWhsePutAwayForProdOrderFromItemJnlLine(TempProductionOrderForWhsePutAwayForProdOutput); @@ -661,9 +610,6 @@ codeunit 99000893 "Mfg. Create Put-away" internal procedure CreateWhsePutAwayForProdOrder(var ProductionOrder: Record "Production Order") begin OnBeforeCreateWhsePutAwayForProdOrder(ProductionOrder); -#if not CLEAN27 - CreatePutaway.RunOnBeforeCreateWhsePutAwayForProdOrder(ProductionOrder); -#endif if not MfgPutAwayHelper.CanCreateProdWhsePutAway(ProductionOrder) then exit; @@ -810,9 +756,6 @@ codeunit 99000893 "Mfg. Create Put-away" local procedure FindBinForProdOrderLine(ProdOrderLine: Record "Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary; var BinContentQtyBase: Decimal) begin OnBeforeFindBinForProdOrderLine(ProdOrderLine, TempProdOrdLineTrackingBuff, BinContentQtyBase); -#if not CLEAN27 - CreatePutaway.RunOnBeforeFindBinForProdOrderLine(ProdOrderLine, TempProdOrdLineTrackingBuff, BinContentQtyBase); -#endif if not FindBin(ProdOrderLine."Location Code", WarehouseClassCode) then exit; @@ -825,9 +768,6 @@ codeunit 99000893 "Mfg. Create Put-away" local procedure FindBinFromBinContentForProdOrderLine(ProdOrderLine: Record "Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record "Prod. Ord. Line Tracking Buff." temporary; var BinContentQtyBase: Decimal) begin OnBeforeFindBinFromBinContentForProdOrderLine(ProdOrderLine, TempProdOrdLineTrackingBuff, BinContentQtyBase); -#if not CLEAN27 - CreatePutaway.RunOnBeforeFindBinFromBinContentForProdOrderLine(ProdOrderLine, TempProdOrdLineTrackingBuff, BinContentQtyBase); -#endif if not FindBinContent(ProdOrderLine."Location Code", ProdOrderLine."Item No.", ProdOrderLine."Variant Code", WarehouseClassCode) then exit; @@ -1145,9 +1085,6 @@ codeunit 99000893 "Mfg. Create Put-away" end; OnCreateNewWhseActivityForProdOrderLineOnBeforeValidateQuantity(WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff); -#if not CLEAN27 - CreatePutaway.RunOnCreateNewWhseActivityForProdOrderLineOnBeforeValidateQuantity(WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff); -#endif WarehouseActivityLine.Validate( Quantity, UnitOfMeasureManagement.RoundQty(QtyToHandleBase / WarehouseActivityLine."Qty. per Unit of Measure", WarehouseActivityLine."Qty. Rounding Precision")); @@ -1164,9 +1101,6 @@ codeunit 99000893 "Mfg. Create Put-away" end; OnCreateNewWhseActivityForProdOrderLineOnAfterSetQtyToHandle(WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff, DoNotFillQtytoHandle); -#if not CLEAN27 - CreatePutaway.RunOnCreateNewWhseActivityForProdOrderLineOnAfterSetQtyToHandle(WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff, DoNotFillQtytoHandle); -#endif WarehouseActivityLine.CopyTrackingFromProdOrderLineTrackingBuffer(TempProdOrdLineTrackingBuff); WarehouseActivityLine."Warranty Date" := TempProdOrdLineTrackingBuff."Warranty Date"; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhseActivityPost.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhseActivityPost.Codeunit.al index ee31b34409d..5dc7124c0b6 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhseActivityPost.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhseActivityPost.Codeunit.al @@ -13,10 +13,6 @@ using Microsoft.Warehouse.Journal; codeunit 99000766 "Mfg. Whse. Activity Post" { -#if not CLEAN27 - var - WhseActivityPost: Codeunit "Whse.-Activity-Post"; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Activity-Post", 'OnPostProdConsumption', '', true, false)] local procedure OnPostProdConsumption(var WarehouseActivityHeader: Record "Warehouse Activity Header"; var TempWhseActivLine: Record "Warehouse Activity Line" temporary; var PostedSourceType: Integer; var PostedSourceSubType: Integer; var PostedSourceNo: Code[20]) @@ -70,9 +66,6 @@ codeunit 99000766 "Mfg. Whse. Activity Post" ItemJnlLine.Init(); SourceCodeSetup.Get(); OnPostConsumptionLineOnAfterInitItemJournalLine(ItemJnlLine, SourceCodeSetup); -#if not CLEAN27 - WhseActivityPost.RunOnPostConsumptionLineOnAfterInitItemJournalLine(ItemJnlLine, SourceCodeSetup); -#endif ItemJnlLine.Validate("Entry Type", ItemJnlLine."Entry Type"::Consumption); ItemJnlLine.Validate("Posting Date", WarehouseActivityHeader."Posting Date"); ItemJnlLine."Source No." := ProdOrderLine."Item No."; @@ -102,9 +95,6 @@ codeunit 99000766 "Mfg. Whse. Activity Post" Item.Get(WarehouseActivityLine."Item No."); ItemJnlLine."Gen. Prod. Posting Group" := Item."Gen. Prod. Posting Group"; OnPostConsumptionLineOnAfterCreateItemJnlLine(ItemJnlLine, ProdOrderLine, WarehouseActivityLine, SourceCodeSetup); -#if not CLEAN27 - WhseActivityPost.RunOnPostConsumptionLineOnAfterCreateItemJnlLine(ItemJnlLine, ProdOrderLine, WarehouseActivityLine, SourceCodeSetup); -#endif ProdOrderCompReserve.TransferPOCompToItemJnlLineCheckILE(ProdOrderComp, ItemJnlLine, ItemJnlLine."Quantity (Base)", true); ItemJnlPostLine.SetCalledFromInvtPutawayPick(true); ItemJnlPostLine.RunWithCheck(ItemJnlLine); @@ -139,9 +129,6 @@ codeunit 99000766 "Mfg. Whse. Activity Post" begin ItemJnlLine.Init(); OnPostOutputLineOnAfterItemJournalLineInit(ItemJnlLine, SourceCodeSetup); -#if not CLEAN27 - WhseActivityPost.RunOnPostOutputLineOnAfterItemJournalLineInit(ItemJnlLine, SourceCodeSetup); -#endif ItemJnlLine.Validate("Entry Type", ItemJnlLine."Entry Type"::Output); ItemJnlLine.Validate("Posting Date", WarehouseActivityHeader."Posting Date"); ItemJnlLine."Document No." := ProdOrder."No."; @@ -166,9 +153,6 @@ codeunit 99000766 "Mfg. Whse. Activity Post" ItemJnlLine."Source Code" := SourceCodeSetup."Output Journal"; ItemJnlLine."Dimension Set ID" := ProdOrderLine."Dimension Set ID"; OnPostOutputLineOnAfterCreateItemJnlLine(ItemJnlLine, ProdOrderLine, WarehouseActivityLine, SourceCodeSetup); -#if not CLEAN27 - WhseActivityPost.RunOnPostOutputLineOnAfterCreateItemJnlLine(ItemJnlLine, ProdOrderLine, WarehouseActivityLine, SourceCodeSetup); -#endif ReservProdOrderLine.TransferPOLineToItemJnlLine( ProdOrderLine, ItemJnlLine, ItemJnlLine."Quantity (Base)"); ItemJnlPostLine.SetCalledFromInvtPutawayPick(true); @@ -201,9 +185,6 @@ codeunit 99000766 "Mfg. Whse. Activity Post" begin IsHandled := false; OnBeforeCheckProdOrderLine(ProdOrderLine, IsHandled); -#if not CLEAN27 - WhseActivityPost.RunOnBeforeCheckProdOrderLine(ProdOrderLine, IsHandled); -#endif if IsHandled then exit; diff --git a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhseActivityRegister.Codeunit.al b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhseActivityRegister.Codeunit.al index e35623e2b49..41a652633c0 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhseActivityRegister.Codeunit.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhseActivityRegister.Codeunit.al @@ -14,10 +14,6 @@ codeunit 99000765 "Mfg. Whse. Activity Register" Permissions = tabledata "Production Order" = rm, tabledata "Prod. Order Line" = rm; -#if not CLEAN27 - var - WhseActivityRegister: Codeunit "Whse.-Activity-Register"; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Activity-Register", 'OnUpdateWhseDocHeaderByWhseDocumentType', '', true, false)] local procedure OnUpdateWhseDocHeaderByWhseDocumentType(var WarehouseActivityLine: Record "Warehouse Activity Line") @@ -169,15 +165,9 @@ codeunit 99000765 "Mfg. Whse. Activity Register" ProdOrderComponent."Completely Picked" := ProdOrderComponent."Qty. Picked" = ProdOrderComponent."Expected Quantity"; OnBeforeProdCompLineModify(ProdOrderComponent, WhseActivityLine); -#if not CLEAN27 - WhseActivityRegister.RunOnBeforeProdCompLineModify(ProdOrderComponent, WhseActivityLine); -#endif ProdOrderComponent.Modify(); UpdateCompletelyPickedProdOrderComponent(WhseActivityLine); OnAfterProdCompLineModify(ProdOrderComponent); -#if not CLEAN27 - WhseActivityRegister.RunOnAfterProdCompLineModify(ProdOrderComponent); -#endif end; local procedure UpdateProdOrderLine(WarehouseActivityLine: Record "Warehouse Activity Line") diff --git a/src/Layers/W1/BaseApp/Manufacturing/WorkCenter/WorkCenterGroups.Page.al b/src/Layers/W1/BaseApp/Manufacturing/WorkCenter/WorkCenterGroups.Page.al index a61d9f84cce..9030c6ead64 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/WorkCenter/WorkCenterGroups.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/WorkCenter/WorkCenterGroups.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -77,32 +77,6 @@ page 99000758 "Work Center Groups" } area(reporting) { -#if not CLEAN27 - action("Work Center Load") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load'; - Image = "Report"; - RunObject = Report "Work Center Load"; - ToolTip = 'Get an overview of availability at the work center, such as the capacity, the allocated quantity, availability after order, and the load in percent.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Work Center Load/Bar") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load/Bar'; - Image = "Report"; - //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true' - //PromotedCategory = "Report"; - RunObject = Report "Work Center Load/Bar"; - ToolTip = 'View a list of work centers that are overloaded according to the plan. The efficiency or overloading is shown by efficiency bars.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Work/Machine Center Load") { ApplicationArea = Manufacturing; @@ -116,14 +90,6 @@ page 99000758 "Work Center Groups" group(Category_Report) { Caption = 'Reports'; -#if not CLEAN27 - actionref("Work Center Load_Promoted"; "Work Center Load") - { - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif actionref("Work/Machine Center Load_Promoted"; "Work/Machine Center Load") { } diff --git a/src/Layers/W1/BaseApp/Manufacturing/WorkCenter/WorkCenterList.Page.al b/src/Layers/W1/BaseApp/Manufacturing/WorkCenter/WorkCenterList.Page.al index f58003c59b0..89eb45f6c5a 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/WorkCenter/WorkCenterList.Page.al +++ b/src/Layers/W1/BaseApp/Manufacturing/WorkCenter/WorkCenterList.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -293,32 +293,6 @@ page 99000755 "Work Center List" } area(reporting) { -#if not CLEAN27 - action("Work Center Load") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load'; - Image = "Report"; - RunObject = Report "Work Center Load"; - ToolTip = 'Get an overview of availability at the work center, such as the capacity, the allocated quantity, availability after order, and the load in percent.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - action("Work Center Load/Bar") - { - ApplicationArea = Manufacturing; - Caption = 'Work Center Load/Bar'; - Image = "Report"; - //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true' - //PromotedCategory = "Report"; - RunObject = Report "Work Center Load/Bar"; - ToolTip = 'View a list of work centers that are overloaded according to the plan. The efficiency or overloading is shown by efficiency bars.'; - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif action("Work/Machine Center Load") { ApplicationArea = Manufacturing; @@ -349,14 +323,6 @@ page 99000755 "Work Center List" group(Category_Report) { Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.'; -#if not CLEAN27 - actionref("Work Center Load_Promoted"; "Work Center Load") - { - ObsoleteState = Pending; - ObsoleteReason = 'This report has been replaced by the "Work/Machine Center Load" report and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif actionref("Work/Machine Center Load_Promoted"; "Work/Machine Center Load") { } diff --git a/src/Layers/W1/BaseApp/Modules/System/Email/EmailItem.Table.al b/src/Layers/W1/BaseApp/Modules/System/Email/EmailItem.Table.al index d5c0132efc4..908f54cedaf 100644 --- a/src/Layers/W1/BaseApp/Modules/System/Email/EmailItem.Table.al +++ b/src/Layers/W1/BaseApp/Modules/System/Email/EmailItem.Table.al @@ -1,8 +1,5 @@ namespace System.Email; -#if not CLEAN27 -using System.IO; -#endif using System.Utilities; table 9500 "Email Item" @@ -93,16 +90,7 @@ table 9500 "Email Item" trigger OnValidate() begin -#if not CLEAN27 - if "Plaintext Formatted" then -#pragma warning disable AL0432 - Validate("Body File Path", '') -#pragma warning restore AL0432 - else - SetBodyText(''); -#else Clear(Body); -#endif end; } #if not CLEANSCHEMA30 @@ -110,20 +98,8 @@ table 9500 "Email Item" { Caption = 'Body File Path'; ObsoleteReason = 'Replaced with field Body. You can use the new procedure SetBody to update the value of the html formatted body.'; -#if CLEAN27 ObsoleteState = Removed; ObsoleteTag = '30.0'; -#else - ObsoleteState = Pending; - ObsoleteTag = '27.0'; -#endif -#if not CLEAN27 - trigger OnValidate() - begin - if "Body File Path" <> '' then - TestField("Plaintext Formatted", false); - end; -#endif } #endif field(13; "Message Type"; Option) @@ -356,12 +332,6 @@ table 9500 "Email Item" [Scope('OnPrem')] procedure GetBodyText() Value: Text var -#if not CLEAN27 - TempBlob: Codeunit "Temp Blob"; - FileManagement: Codeunit "File Management"; - BlobInStream: InStream; - BodyOutStream: OutStream; -#endif IsHandled: Boolean; begin // Note this is intended only to get the body in memory - not from the database. @@ -373,21 +343,8 @@ table 9500 "Email Item" exit(Value); // If the body doesn't have a value, attempt to import the value from the file path, otherwise exit. -#if not CLEAN27 -#pragma warning disable AL0432 - if not Body.HasValue() and not (("Body File Path" <> '') and Exists("Body File Path")) then - exit; - if not Body.HasValue() and ("Body File Path" <> '') and Exists("Body File Path") then begin - FileManagement.BLOBImportFromServerFile(TempBlob, "Body File Path"); - TempBlob.CreateInStream(BlobInStream, TextEncoding::UTF8); - Body.CreateOutStream(BodyOutStream); - CopyStream(BodyOutStream, BlobInStream); - end; -#pragma warning restore AL0432 -#else if not Body.HasValue() then exit; -#endif Value := GetBodyTextFromBlob(); exit(Value); diff --git a/src/Layers/W1/BaseApp/Modules/System/Email/MailManagement.Codeunit.al b/src/Layers/W1/BaseApp/Modules/System/Email/MailManagement.Codeunit.al index e5f0da3115f..ce56a66d823 100644 --- a/src/Layers/W1/BaseApp/Modules/System/Email/MailManagement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Modules/System/Email/MailManagement.Codeunit.al @@ -1,4 +1,4 @@ -namespace System.Email; +namespace System.Email; using System; using System.Environment; @@ -507,21 +507,6 @@ codeunit 9520 "Mail Management" begin end; -#if not CLEAN27 -#pragma warning disable AA0228 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeSendMailOnWinClient(var TempEmailItem: Record "Email Item" temporary) - begin - end; - - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterDeleteTempAttachments(var EmailItem: Record "Email Item") - begin - end; -#pragma warning restore AA0228 -#endif [IntegrationEvent(false, false)] local procedure OnAfterGetSenderEmailAddress(var EmailItem: Record "Email Item") begin diff --git a/src/Layers/W1/BaseApp/Modules/System/JobQueue/JobQueueDispatcher.Codeunit.al b/src/Layers/W1/BaseApp/Modules/System/JobQueue/JobQueueDispatcher.Codeunit.al index 66753e666c9..a3d7782e808 100644 --- a/src/Layers/W1/BaseApp/Modules/System/JobQueue/JobQueueDispatcher.Codeunit.al +++ b/src/Layers/W1/BaseApp/Modules/System/JobQueue/JobQueueDispatcher.Codeunit.al @@ -287,9 +287,6 @@ codeunit 448 "Job Queue Dispatcher" local procedure RescheduleAsWaiting(var JobQueueEntry: Record "Job Queue Entry") begin Clear(JobQueueEntry."System Task ID"); // to avoid canceling this task, which has already been executed -#if not CLEAN27 - OnRescheduleOnBeforeJobQueueEnqueue(JobQueueEntry); -#endif OnRescheduleOnBeforeJobQueueEnqueueAsWaiting(JobQueueEntry); JobQueueEntry."System Task ID" := TASKSCHEDULER.CreateTask(CODEUNIT::"Job Queue Dispatcher", CODEUNIT::"Job Queue Error Handler", false, JobQueueEntry.CurrentCompany(), JobQueueEntry."Earliest Start Date/Time", JobQueueEntry.RecordId()); JobQueueEntry.Status := JobQueueEntry.Status::Waiting; diff --git a/src/Layers/W1/BaseApp/Modules/System/JobQueue/JobQueueStartReportRunner.Codeunit.al b/src/Layers/W1/BaseApp/Modules/System/JobQueue/JobQueueStartReportRunner.Codeunit.al index f08ccdec217..ed6e516dee5 100644 --- a/src/Layers/W1/BaseApp/Modules/System/JobQueue/JobQueueStartReportRunner.Codeunit.al +++ b/src/Layers/W1/BaseApp/Modules/System/JobQueue/JobQueueStartReportRunner.Codeunit.al @@ -21,10 +21,6 @@ codeunit 9812 "Job Queue Start Report Runner" implements "Job Queue Report Runne ShouldModifyNotifyOnSuccess := JobQueueEntry."Notify On Success" = false; OriginalReportOutputType := JobQueueEntry."Report Output Type"; OnAfterExecuteReport(ReportID, JobQueueEntry, ShouldModifyNotifyOnSuccess); -#if not CLEAN27 // Backwards compatibility - if JobQueueEntry."Report Output Type" <> OriginalReportOutputType then - exit; // Any change in report output type is handed in event subscriber -#endif if ShouldModifyNotifyOnSuccess then begin JobQueueEntry."Notify On Success" := true; diff --git a/src/Layers/W1/BaseApp/Modules/System/PowerBI/Embedding/PowerBIWSReportSelection.Page.al b/src/Layers/W1/BaseApp/Modules/System/PowerBI/Embedding/PowerBIWSReportSelection.Page.al index 4a57844ed7e..6ffe2ae47e8 100644 --- a/src/Layers/W1/BaseApp/Modules/System/PowerBI/Embedding/PowerBIWSReportSelection.Page.al +++ b/src/Layers/W1/BaseApp/Modules/System/PowerBI/Embedding/PowerBIWSReportSelection.Page.al @@ -176,25 +176,6 @@ page 6322 "Power BI WS Report Selection" HyperLink(PowerBIServiceMgt.GetContentPacksServicesUrl()); end; } -#if not CLEAN27 - action(CleanDeployments) - { - ApplicationArea = All; - Caption = 'Default Reports'; - Image = Setup; - ToolTip = 'Manage your deployed default reports.'; - Visible = false; - ObsoleteReason = 'This functionality is no longer supported.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - trigger OnAction() - begin - Page.RunModal(Page::"Power BI Deployments"); - // TODO: Set this button's visibility to equal "IsSaaS" so it's not visible for on-prem, where we won't have OOB uploads anyways. - end; - } -#endif } area(Promoted) { @@ -208,17 +189,6 @@ page 6322 "Power BI WS Report Selection" actionref(DisableReport_Promoted; DisableReport) { } -#if not CLEAN27 -#pragma warning disable AL0432 - actionref(CleanDeployments_Promoted; CleanDeployments) -#pragma warning restore AL0432 - { - Visible = false; - ObsoleteReason = 'This functionality is no longer supported.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif } group(Category_Category5) { diff --git a/src/Layers/W1/BaseApp/Modules/System/PowerBI/Obsoleted/PowerBIDeployments.Page.al b/src/Layers/W1/BaseApp/Modules/System/PowerBI/Obsoleted/PowerBIDeployments.Page.al deleted file mode 100644 index 53687dc462f..00000000000 --- a/src/Layers/W1/BaseApp/Modules/System/PowerBI/Obsoleted/PowerBIDeployments.Page.al +++ /dev/null @@ -1,182 +0,0 @@ -#if not CLEAN27 -namespace System.Integration.PowerBI; - -using System.Security.AccessControl; -using System.Security.User; - -page 6321 "Power BI Deployments" -{ - Caption = 'Power BI Deployments'; - DeleteAllowed = false; - InsertAllowed = false; - LinksAllowed = false; - ModifyAllowed = false; - PageType = List; - SourceTable = "Power BI Customer Reports"; - SourceTableTemporary = true; - Description = 'Page for letting the user delete their uploaded OOB PBI reports.'; - - ObsoleteReason = 'This functionality is no longer supported.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - - layout - { - area(content) - { - group(Control3) - { - ShowCaption = false; - field(SelectedUser; SelectedUser) - { - ApplicationArea = All; - Caption = 'User'; - Editable = false; - Enabled = IsUserPBIAdmin; - - trigger OnAssistEdit() - var - User: Record User; - Users: Page Users; - begin - // Handles clicking the ellipsis button next to the user field. - Users.SetRecord(User); - Users.LookupMode(true); - if Users.RunModal() in [ACTION::OK, ACTION::LookupOK] then begin - Users.GetRecord(User); - SelectedUser := User."User Name"; - SelectedUserSecurityId := User."User Security ID"; - LoadReports(); - end; - end; - - trigger OnValidate() - var - User: Record User; - begin - // Handles typing a value into the user field. - User.Reset(); - User.SetFilter("User Name", SelectedUser); - if User.FindFirst() then begin - SelectedUser := User."User Name"; - SelectedUserSecurityId := User."User Security ID"; - end else - Clear(SelectedUserSecurityId); - - LoadReports(); - end; - } - } - repeater("Default Reports") - { - Caption = 'Default Reports'; - field(ReportName; Rec.Name) - { - ApplicationArea = All; - Caption = 'Report Name'; - Editable = false; - } - field(ReportID; Rec.Id) - { - ApplicationArea = All; - Caption = 'Report ID'; - } - } - } - } - - actions - { - area(processing) - { - action(Delete) - { - ApplicationArea = All; - Caption = 'Delete'; - Ellipsis = true; - Image = Delete; - Scope = Repeater; - ToolTip = 'Removes the deployed report from your Power BI account.'; - - trigger OnAction() - var - PowerBIReportUploads: Record "Power BI Report Uploads"; - PowerBICustomerReports: Record "Power BI Customer Reports"; - begin - CurrPage.SetSelectionFilter(PowerBICustomerReports); - - if not Dialog.Confirm(DeleteQst, false) then - exit; - - if PowerBICustomerReports.FindSet() then - repeat - if PowerBIReportUploads.Get(PowerBICustomerReports.Id, SelectedUserSecurityId) then begin - PowerBIReportUploads.Validate("Report Upload Status", PowerBIReportUploads."Report Upload Status"::PendingDeletion); - PowerBIReportUploads.Modify(true); - end; - until PowerBICustomerReports.Next() = 0; - - PowerBIServiceMgt.SynchronizeReportsInBackground(''); - LoadReports(); - end; - } - } - area(Promoted) - { - group(Category_Report) - { - Caption = 'Reports'; - - actionref(Delete_Promoted; Delete) - { - } - } - } - } - - trigger OnInit() - begin - IsUserPBIAdmin := PowerBIServiceMgt.IsUserAdminForPowerBI(UserSecurityId()); - end; - - trigger OnOpenPage() - begin - SelectedUser := CopyStr(UserId(), 1, MaxStrLen(SelectedUser)); - SelectedUserSecurityId := UserSecurityId(); - LoadReports(); - end; - - var - PowerBIServiceMgt: Codeunit "Power BI Service Mgt."; - DeleteQst: Label 'Would you like to delete the selection from the table?'; - SelectedUserSecurityId: Guid; - SelectedUser: Code[50]; - IsUserPBIAdmin: Boolean; - - local procedure LoadReports() - var - PowerBIReportUploads: Record "Power BI Report Uploads"; - PowerBICustomerReports: Record "Power BI Customer Reports"; - begin - // Clear temp records - Rec.DeleteAll(); - - if IsNullGuid(SelectedUserSecurityId) then - exit; - - PowerBIReportUploads.SetRange("User ID", SelectedUserSecurityId); - PowerBIReportUploads.SetFilter("Report Upload Status", '<>%1', PowerBIReportUploads."Report Upload Status"::Completed); - - // Check all upload records for the user and find only the ones for customer reports - if PowerBIReportUploads.FindSet() then - repeat - if PowerBICustomerReports.Get(PowerBIReportUploads."PBIX BLOB ID") then begin - Rec.Copy(PowerBICustomerReports); - Rec.Insert(); - end; - until PowerBIReportUploads.Next() = 0; - - end; -} - -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Modules/System/PowerBI/PowerBIServiceMgt.Codeunit.al b/src/Layers/W1/BaseApp/Modules/System/PowerBI/PowerBIServiceMgt.Codeunit.al index 1eec8107b64..3f0ab84f004 100644 --- a/src/Layers/W1/BaseApp/Modules/System/PowerBI/PowerBIServiceMgt.Codeunit.al +++ b/src/Layers/W1/BaseApp/Modules/System/PowerBI/PowerBIServiceMgt.Codeunit.al @@ -1,4 +1,4 @@ -namespace System.Integration.PowerBI; +namespace System.Integration.PowerBI; using System; using System.Azure.Identity; @@ -15,10 +15,6 @@ codeunit 6301 "Power BI Service Mgt." AzureAdMgt: Codeunit "Azure AD Mgt."; GenericErr: Label 'An error occurred while trying to get reports from the Power BI service. Please try again or contact your system administrator if the error persists.'; PowerBiResourceNameTxt: Label 'Power BI Services'; -#if not CLEAN27 - MainPageRatioTxt: Label '16:9', Locked = true; - FactboxRatioTxt: Label '4:3', Locked = true; -#endif FailedAuthErr: Label 'We failed to authenticate with Power BI. Try to sign out and in again. This problem typically happens if you no longer have a license for Power BI or if you just changed your email or password.'; UnauthorizedErr: Label 'You do not have a Power BI account. If you have just activated a license, it might take several minutes for the changes to be effective in Power BI.'; PowerBIEmbedReportUrlTemplateTxt: Label 'https://app.powerbi.com/reportEmbed?reportId=%1', Locked = true; @@ -80,19 +76,6 @@ codeunit 6301 "Power BI Service Mgt." exit(GenericErr); end; -#if not CLEAN27 - [Obsolete('This function is now deprecated, and the client decides the addin ratio instead.', '27.0')] - procedure GetFactboxRatio(): Text - begin - exit(FactboxRatioTxt); - end; - - [Obsolete('This function is now deprecated, and the client decides the addin ratio instead.', '27.0')] - procedure GetMainPageRatio(): Text - begin - exit(MainPageRatioTxt); - end; -#endif procedure GetContentPacksServicesUrl(): Text begin diff --git a/src/Layers/W1/BaseApp/Pricing/Calculation/PriceCalculationMgt.Codeunit.al b/src/Layers/W1/BaseApp/Pricing/Calculation/PriceCalculationMgt.Codeunit.al index c6457d4205d..1fea1d3e8ee 100644 --- a/src/Layers/W1/BaseApp/Pricing/Calculation/PriceCalculationMgt.Codeunit.al +++ b/src/Layers/W1/BaseApp/Pricing/Calculation/PriceCalculationMgt.Codeunit.al @@ -110,11 +110,7 @@ codeunit 7001 "Price Calculation Mgt." begin if not IsExtendedPriceCalculationEnabled() then begin PriceCalculationSetup.Method := PriceCalculationSetup.Method::"Lowest Price"; -#if not CLEAN27 - PriceCalculationSetup.Implementation := PriceCalculationSetup.Implementation::"Business Central (Version 15.0)"; -#else PriceCalculationSetup.Implementation := PriceCalculationSetup.Implementation::"Business Central (Version 16.0)"; -#endif exit(true); end; diff --git a/src/Layers/W1/BaseApp/PrivacyNoticeRegistrations.Codeunit.al b/src/Layers/W1/BaseApp/PrivacyNoticeRegistrations.Codeunit.al index db670074894..9f01403c67d 100644 --- a/src/Layers/W1/BaseApp/PrivacyNoticeRegistrations.Codeunit.al +++ b/src/Layers/W1/BaseApp/PrivacyNoticeRegistrations.Codeunit.al @@ -13,9 +13,6 @@ codeunit 1357 "Privacy Notice Registrations" var MicrosoftOneDriveTxt: Label 'Microsoft OneDrive', Locked = true; // Product names are not translated and it's important this entry exists. MicrosoftExchangeTxt: Label 'Microsoft Exchange', Locked = true; -#if not CLEAN27 - MicrosoftPowerAutomateTxt: Label 'Power Automate', Locked = true; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Privacy Notice", 'OnRegisterPrivacyNotices', '', false, false)] local procedure CreatePrivacyNoticeRegistrations(var TempPrivacyNotice: Record "Privacy Notice" temporary) @@ -41,11 +38,4 @@ codeunit 1357 "Privacy Notice Registrations" exit(MicrosoftExchangeTxt); end; -#if not CLEAN27 - [Obsolete('This procedure has moved to "Flow Service Management" instead.', '27.0')] - procedure GetPowerAutomatePrivacyNoticeId(): Code[50] - begin - exit(MicrosoftPowerAutomateTxt); - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Projects/Project/Journal/JobJnlLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Projects/Project/Journal/JobJnlLineReserve.Codeunit.al index 79fca91b284..047750c61b4 100644 --- a/src/Layers/W1/BaseApp/Projects/Project/Journal/JobJnlLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Projects/Project/Journal/JobJnlLineReserve.Codeunit.al @@ -268,13 +268,6 @@ codeunit 99000844 "Job Jnl. Line-Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; JobJnlLine: Record "Job Journal Line") - begin - end; -#endif // codeunit Create Reserv. Entry [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Reserv. Entry", 'OnCheckSourceTypeSubtype', '', false, false)] diff --git a/src/Layers/W1/BaseApp/Projects/Project/Planning/JobPlanningLineGetDemand.Codeunit.al b/src/Layers/W1/BaseApp/Projects/Project/Planning/JobPlanningLineGetDemand.Codeunit.al index 008904177dd..f7f802cf7f6 100644 --- a/src/Layers/W1/BaseApp/Projects/Project/Planning/JobPlanningLineGetDemand.Codeunit.al +++ b/src/Layers/W1/BaseApp/Projects/Project/Planning/JobPlanningLineGetDemand.Codeunit.al @@ -222,11 +222,4 @@ codeunit 99000847 "Job Planning Line Get Demand" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetDemandOnBeforeSetTempJobPlanningLine(var JobPlanningLine: Record "Job Planning Line"; var IsHandled: Boolean) - begin - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Projects/Project/Planning/JobPlanningLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Projects/Project/Planning/JobPlanningLineReserve.Codeunit.al index c9aab046124..a0db9e673fb 100644 --- a/src/Layers/W1/BaseApp/Projects/Project/Planning/JobPlanningLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Projects/Project/Planning/JobPlanningLineReserve.Codeunit.al @@ -859,13 +859,6 @@ codeunit 1032 "Job Planning Line-Reserve" StopReservation := CalcReservEntry."Source Subtype" <> 2; end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; JobPlanningLine: Record "Job Planning Line") - begin - end; -#endif // codeunit Create Reserv. Entry [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Reserv. Entry", 'OnCheckSourceTypeSubtype', '', false, false)] diff --git a/src/Layers/W1/BaseApp/Purchases/Document/PurchLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Purchases/Document/PurchLineReserve.Codeunit.al index e87f44a30b6..b9234879c92 100644 --- a/src/Layers/W1/BaseApp/Purchases/Document/PurchLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Purchases/Document/PurchLineReserve.Codeunit.al @@ -1159,13 +1159,6 @@ codeunit 99000834 "Purch. Line-Reserve" ActionMessageEntry."Source Type" := Database::"Purchase Line"; end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; PurchLine: Record "Purchase Line") - begin - end; -#endif // codeunit Create Reserv. Entry [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Reserv. Entry", 'OnCheckSourceTypeSubtype', '', false, false)] diff --git a/src/Layers/W1/BaseApp/Purchases/Posting/PurchPost.Codeunit.al b/src/Layers/W1/BaseApp/Purchases/Posting/PurchPost.Codeunit.al index d8daaba4d6e..74e77c4f54c 100644 --- a/src/Layers/W1/BaseApp/Purchases/Posting/PurchPost.Codeunit.al +++ b/src/Layers/W1/BaseApp/Purchases/Posting/PurchPost.Codeunit.al @@ -9157,18 +9157,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") @@ -9700,18 +9688,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) @@ -11240,19 +11216,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/W1/BaseApp/Purchases/Posting/PurchPostInvoiceEvents.Codeunit.al b/src/Layers/W1/BaseApp/Purchases/Posting/PurchPostInvoiceEvents.Codeunit.al index 96e8f19be96..6bacf7cfd6e 100644 --- a/src/Layers/W1/BaseApp/Purchases/Posting/PurchPostInvoiceEvents.Codeunit.al +++ b/src/Layers/W1/BaseApp/Purchases/Posting/PurchPostInvoiceEvents.Codeunit.al @@ -210,13 +210,6 @@ codeunit 826 "Purch. Post Invoice Events" begin end; -#if not CLEAN27 - [Obsolete('Use the procedure with AccountNo parameter instead.', '27.0')] - procedure RunOnBeforePrepareLineFADiscount(var InvoicePostingBuffer: Record "Invoice Posting Buffer"; GenPostingSetup: Record "General Posting Setup"; var IsHandled: Boolean) - begin - RunOnBeforePrepareLineFADiscount(InvoicePostingBuffer, GenPostingSetup, '', IsHandled); - end; -#endif procedure RunOnBeforePrepareLineFADiscount(var InvoicePostingBuffer: Record "Invoice Posting Buffer"; GenPostingSetup: Record "General Posting Setup"; AccountNo: Code[20]; var IsHandled: Boolean) begin diff --git a/src/Layers/W1/BaseApp/Purchases/Remittance/RemitAddress.Table.al b/src/Layers/W1/BaseApp/Purchases/Remittance/RemitAddress.Table.al index e98c997aef2..83f562f32d9 100644 --- a/src/Layers/W1/BaseApp/Purchases/Remittance/RemitAddress.Table.al +++ b/src/Layers/W1/BaseApp/Purchases/Remittance/RemitAddress.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -158,13 +158,7 @@ table 2224 "Remit Address" end; #pragma warning restore AA0139 } -#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 recipient''s web site.'; diff --git a/src/Layers/W1/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al b/src/Layers/W1/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al index 55b8abaeb08..9641de0a472 100644 --- a/src/Layers/W1/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al +++ b/src/Layers/W1/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al b/src/Layers/W1/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al index cc5fc9fbc49..9d497bb6129 100644 --- a/src/Layers/W1/BaseApp/Purchases/Setup/PurchasesPayablesSetup.Table.al +++ b/src/Layers/W1/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/W1/BaseApp/Purchases/Vendor/OrderAddress.Table.al b/src/Layers/W1/BaseApp/Purchases/Vendor/OrderAddress.Table.al index c9e14231a5c..61b124aa27e 100644 --- a/src/Layers/W1/BaseApp/Purchases/Vendor/OrderAddress.Table.al +++ b/src/Layers/W1/BaseApp/Purchases/Vendor/OrderAddress.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -161,13 +161,7 @@ table 224 "Order Address" MailManagement.ValidateEmailAddressField("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 recipient''s web site.'; diff --git a/src/Layers/W1/BaseApp/Purchases/Vendor/Vendor.Table.al b/src/Layers/W1/BaseApp/Purchases/Vendor/Vendor.Table.al index 13f3799d139..f8c984674c0 100644 --- a/src/Layers/W1/BaseApp/Purchases/Vendor/Vendor.Table.al +++ b/src/Layers/W1/BaseApp/Purchases/Vendor/Vendor.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al b/src/Layers/W1/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al index e82f08992cf..b9b743c46f8 100644 --- a/src/Layers/W1/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al +++ b/src/Layers/W1/BaseApp/Purchases/Vendor/VendorBankAccount.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/Purchases/Vendor/VendorTempl.Table.al b/src/Layers/W1/BaseApp/Purchases/Vendor/VendorTempl.Table.al index eee3f0e3f2b..65a098469ab 100644 --- a/src/Layers/W1/BaseApp/Purchases/Vendor/VendorTempl.Table.al +++ b/src/Layers/W1/BaseApp/Purchases/Vendor/VendorTempl.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -310,13 +310,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/W1/BaseApp/RoleCenters/ActivitiesMgt.Codeunit.al b/src/Layers/W1/BaseApp/RoleCenters/ActivitiesMgt.Codeunit.al index 017f9b32650..ca7618ca95f 100644 --- a/src/Layers/W1/BaseApp/RoleCenters/ActivitiesMgt.Codeunit.al +++ b/src/Layers/W1/BaseApp/RoleCenters/ActivitiesMgt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -162,13 +162,6 @@ codeunit 1311 "Activities Mgt." TotalAmount := CustLedgEntrySales.Sum_Sales_LCY; end; -#if not CLEAN27 - [Obsolete('"Sales This Month" cue field is no longer calculated using cached value. Use CalcSalesThisMonthAmount(CalledFromWebService: Boolean) for live data.', '27.0')] - procedure CalcSalesThisMonthAmount(CalledFromWebService: Boolean; UseCachedValue: Boolean) TotalAmount: Decimal - begin - exit(CalcSalesThisMonthAmount(CalledFromWebService)); - end; -#endif [Scope('OnPrem')] procedure SetFilterForCalcSalesThisMonthAmount(var CustLedgerEntry: Record "Cust. Ledger Entry"; CalledFromWebService: Boolean) diff --git a/src/Layers/W1/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al b/src/Layers/W1/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al index ab02f5b09c9..4e32437512f 100644 --- a/src/Layers/W1/BaseApp/Sales/Archive/SalesHeaderArchive.Table.al +++ b/src/Layers/W1/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/W1/BaseApp/Sales/Customer/CustCheckCrLimit.Codeunit.al b/src/Layers/W1/BaseApp/Sales/Customer/CustCheckCrLimit.Codeunit.al index ef447573362..78182cda141 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/CustCheckCrLimit.Codeunit.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/CustCheckCrLimit.Codeunit.al @@ -371,25 +371,6 @@ codeunit 312 "Cust-Check Cr. Limit" begin end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Serv. Check Credit Limit', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnServiceHeaderCheckOnBeforeShowWarning(var CustCheckCreditLimit: Page "Check Credit Limit") - begin - end; - - [Obsolete('Moved to codeunit Serv. Check Credit Limit', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnServiceLineCheckOnBeforeShowWarning(var CustCheckCreditLimit: Page "Check Credit Limit") - begin - end; - - [Obsolete('Moved to codeunit Serv. Check Credit Limit', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnServiceContractHeaderCheckOnBeforeShowWarning(var CustCheckCreditLimit: Page "Check Credit Limit") - begin - end; -#endif /// /// Raised before showing the credit limit warning when converting a blanket order to a sales order. diff --git a/src/Layers/W1/BaseApp/Sales/Customer/Customer.Table.al b/src/Layers/W1/BaseApp/Sales/Customer/Customer.Table.al index 3d04a3b5f0b..8f700cf2787 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/Customer.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/Customer.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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; diff --git a/src/Layers/W1/BaseApp/Sales/Customer/CustomerBankAccount.Table.al b/src/Layers/W1/BaseApp/Sales/Customer/CustomerBankAccount.Table.al index 1ac02f65a2e..5ccd955e076 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/CustomerBankAccount.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/CustomerBankAccount.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -262,13 +262,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/W1/BaseApp/Sales/Customer/CustomerMgt.Codeunit.al b/src/Layers/W1/BaseApp/Sales/Customer/CustomerMgt.Codeunit.al index 6458838f0ef..24a1bffbbf1 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/CustomerMgt.Codeunit.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/CustomerMgt.Codeunit.al @@ -25,31 +25,6 @@ codeunit 1302 "Customer Mgt." var FiscalYearTotals: Boolean; -#if not CLEAN27 - /// - /// Calculates the average number of days it takes for a customer to pay their invoices. - /// - /// Specifies the customer number to calculate the average days to pay for. - /// The average number of days to pay as a decimal value. - [Obsolete('Use procedure CalculatePaymentStats(CustomerNo: Code[20]; var Stats: Dictionary of [Text, Text]) instead.', '27.0')] - procedure AvgDaysToPay(CustNo: Code[20]) AverageDaysToPay: Decimal - var - Stats: Dictionary of [Text, Text]; - begin - CalculatePaymentStats(CustNo, Stats); - exit(GetAvgDaysToPay(stats)); - end; - - local procedure GetAvgDaysToPay(var Stats: Dictionary of [Text, Text]) AverageDaysToPay: Decimal - var - CustomerCardCalculations: Codeunit "Customer Card Calculations"; - AverageDaysToPayText: Text; - begin - if Stats.Get(CustomerCardCalculations.GetAvgDaysToPayLabel(), AverageDaysToPayText) then - if Evaluate(AverageDaysToPay, AverageDaysToPayText, 0) then - exit(AverageDaysToPay); - end; -#endif /// /// Calculates payment statistics for a customer including average days to pay, late payment counts, and overdue invoices. /// diff --git a/src/Layers/W1/BaseApp/Sales/Customer/CustomerStatistics.Page.al b/src/Layers/W1/BaseApp/Sales/Customer/CustomerStatistics.Page.al index e933ba5c10d..f566250d8dc 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/CustomerStatistics.Page.al +++ b/src/Layers/W1/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 } } } diff --git a/src/Layers/W1/BaseApp/Sales/Customer/CustomerTempl.Table.al b/src/Layers/W1/BaseApp/Sales/Customer/CustomerTempl.Table.al index b7a74a07971..c44933d4d52 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/CustomerTempl.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/CustomerTempl.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -532,13 +532,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; diff --git a/src/Layers/W1/BaseApp/Sales/Customer/ShiptoAddress.Table.al b/src/Layers/W1/BaseApp/Sales/Customer/ShiptoAddress.Table.al index 1336d18ac46..592becf5122 100644 --- a/src/Layers/W1/BaseApp/Sales/Customer/ShiptoAddress.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Customer/ShiptoAddress.Table.al @@ -301,13 +301,7 @@ table 222 "Ship-to Address" /// /// Specifies the website URL for the ship-to address. /// -#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; diff --git a/src/Layers/W1/BaseApp/Sales/Document/SalesDocCheckFactbox.Page.al b/src/Layers/W1/BaseApp/Sales/Document/SalesDocCheckFactbox.Page.al index 4fdeb374b0d..50971e7e75b 100644 --- a/src/Layers/W1/BaseApp/Sales/Document/SalesDocCheckFactbox.Page.al +++ b/src/Layers/W1/BaseApp/Sales/Document/SalesDocCheckFactbox.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -40,24 +40,6 @@ page 9119 "Sales Doc. Check Factbox" end; } } -#if not CLEAN27 - field(Refresh; RefreshTxt) - { - ApplicationArea = Basic, Suite; - ShowCaption = false; - ObsoleteReason = 'Use the Refresh action instead.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - Visible = false; - trigger OnDrillDown() - var - DocumentErrorsMgt: Codeunit "Document Errors Mgt."; - begin - DocumentErrorsMgt.SetFullDocumentCheck(true); - CheckErrorsInBackground(Rec); - end; - } -#endif group(Control2) { Caption = 'Issues'; @@ -124,9 +106,6 @@ page 9119 "Sales Doc. Check Factbox" ErrorText: array[2] of Text; OtherIssuesTxt: Label '(+%1 other issues)', comment = '%1 - number of issues'; NoIssuesFoundTxt: Label 'No issues found.'; -#if not CLEAN27 - RefreshTxt: Label 'Refresh'; -#endif local procedure GetTotalErrorsStyle(): Text begin if NumberOfErrors = 0 then diff --git a/src/Layers/W1/BaseApp/Sales/Document/SalesHeader.Table.al b/src/Layers/W1/BaseApp/Sales/Document/SalesHeader.Table.al index a3416266fcd..c5a2beb5f5b 100644 --- a/src/Layers/W1/BaseApp/Sales/Document/SalesHeader.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Document/SalesHeader.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/Sales/Document/SalesLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Sales/Document/SalesLineReserve.Codeunit.al index a18cd863f0c..cd40dc215a2 100644 --- a/src/Layers/W1/BaseApp/Sales/Document/SalesLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Sales/Document/SalesLineReserve.Codeunit.al @@ -1857,19 +1857,6 @@ codeunit 99000832 "Sales Line-Reserve" end; end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; SalesLine: Record "Sales Line") - begin - end; - - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterSetSourceForReservation(var CalcReservEntry: Record "Reservation Entry"; SalesLine: Record "Sales Line") - begin - end; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnAutoReserveOnBeforeStopReservation', '', false, false)] local procedure OnAutoReserveOnBeforeStopReservation(var CalcReservEntry: Record "Reservation Entry"; var StopReservation: Boolean; SourceRecRef: RecordRef); var diff --git a/src/Layers/W1/BaseApp/Sales/History/ReturnReceiptHeader.Table.al b/src/Layers/W1/BaseApp/Sales/History/ReturnReceiptHeader.Table.al index d5d336e8021..fb814fadde1 100644 --- a/src/Layers/W1/BaseApp/Sales/History/ReturnReceiptHeader.Table.al +++ b/src/Layers/W1/BaseApp/Sales/History/ReturnReceiptHeader.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/Sales/History/SalesCrMemoHeader.Table.al b/src/Layers/W1/BaseApp/Sales/History/SalesCrMemoHeader.Table.al index 159def49a5a..e166bbed4aa 100644 --- a/src/Layers/W1/BaseApp/Sales/History/SalesCrMemoHeader.Table.al +++ b/src/Layers/W1/BaseApp/Sales/History/SalesCrMemoHeader.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/Sales/History/SalesInvoiceHeader.Table.al b/src/Layers/W1/BaseApp/Sales/History/SalesInvoiceHeader.Table.al index a6552113fc6..92edb10253f 100644 --- a/src/Layers/W1/BaseApp/Sales/History/SalesInvoiceHeader.Table.al +++ b/src/Layers/W1/BaseApp/Sales/History/SalesInvoiceHeader.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/Sales/History/SalesShipmentHeader.Table.al b/src/Layers/W1/BaseApp/Sales/History/SalesShipmentHeader.Table.al index 4cef974add5..ff1919b1d11 100644 --- a/src/Layers/W1/BaseApp/Sales/History/SalesShipmentHeader.Table.al +++ b/src/Layers/W1/BaseApp/Sales/History/SalesShipmentHeader.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/Sales/Inventory/Tracking/SalesGetDemandToReserve.Codeunit.al b/src/Layers/W1/BaseApp/Sales/Inventory/Tracking/SalesGetDemandToReserve.Codeunit.al index 5bed477e5db..96c09949b6a 100644 --- a/src/Layers/W1/BaseApp/Sales/Inventory/Tracking/SalesGetDemandToReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Sales/Inventory/Tracking/SalesGetDemandToReserve.Codeunit.al @@ -218,13 +218,6 @@ codeunit 99000839 "Sales Get Demand To Reserve" until TempSalesLine.Next() = 0; end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetDemandOnBeforeSetTempSalesLine(var SalesLine: Record "Sales Line"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnSyncSalesOrderLinesOnBeforeInsertReservationWkshLine(var ReservationWkshLine: Record "Reservation Wksh. Line"; var TempSalesLine: Record "Sales Line" temporary; var DoInsertReservationWkshLine: Boolean) begin diff --git a/src/Layers/W1/BaseApp/Sales/Posting/SalesPost.Codeunit.al b/src/Layers/W1/BaseApp/Sales/Posting/SalesPost.Codeunit.al index d0a29103c5c..34799c27ae1 100644 --- a/src/Layers/W1/BaseApp/Sales/Posting/SalesPost.Codeunit.al +++ b/src/Layers/W1/BaseApp/Sales/Posting/SalesPost.Codeunit.al @@ -13415,13 +13415,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 @@ -13627,19 +13620,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/W1/BaseApp/Sales/Pricing/CustInvoiceDisc.Table.al b/src/Layers/W1/BaseApp/Sales/Pricing/CustInvoiceDisc.Table.al index 0f7b44ae691..36c311ba750 100644 --- a/src/Layers/W1/BaseApp/Sales/Pricing/CustInvoiceDisc.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Pricing/CustInvoiceDisc.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -83,20 +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) - begin - 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/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActHistoryLog.Page.al b/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActHistoryLog.Page.al index 3cbc13720cd..79cc56f9921 100644 --- a/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActHistoryLog.Page.al +++ b/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActHistoryLog.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -47,19 +47,6 @@ page 6757 "Reminder Act. History Log" Caption = 'Last record processed'; ToolTip = 'Specifies the last record processed by the action job. In case of an error this was the last record processed before the error occurred. If the job was successful, this was the last record processed by the job.'; } -#if not CLEAN27 - field(TotalErrors; Rec."Total Errors") - { - ApplicationArea = All; - Caption = 'Total errors'; - Visible = false; - ObsoleteState = Pending; - ObsoleteReason = 'This field is obsolete and should not be used.'; -#pragma warning disable AS0074 - ObsoleteTag = '27.0'; -#pragma warning restore AS0074 - } -#endif } } } diff --git a/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActionGroupLog.Table.al b/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActionGroupLog.Table.al index 14eafbf89a1..76139c02117 100644 --- a/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActionGroupLog.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActionGroupLog.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -41,24 +41,6 @@ table 6753 "Reminder Action Group Log" field(11; "Last Step ID"; Integer) { } -#if not CLEAN27 -#pragma warning disable AA0232 - /// - /// Contains the total number of errors encountered during this automation run. - /// - field(15; "Number of Errors"; Integer) -#pragma warning restore AA0232 - { - ObsoleteReason = 'Field is removed do not use'; - ObsoleteState = Pending; -#pragma warning disable AS0074 - ObsoleteTag = '27.0'; -#pragma warning restore AS0074 - FieldClass = FlowField; - CalcFormula = sum("Reminder Action Log"."Total Errors" where("Reminder Action Group ID" = field("Reminder Action Group ID"), "Run Id" = field("Run Id"))); - Editable = false; - } -#endif /// /// Specifies the date and time when the automation run started. /// diff --git a/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActionLog.Table.al b/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActionLog.Table.al index 1c3eaa62a55..4b75523f9d5 100644 --- a/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActionLog.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Reminder/Automation/History/ReminderActionLog.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -52,17 +52,9 @@ table 6752 "Reminder Action Log" field(6; "Total Errors"; Integer) { ToolTip = 'Specifies the total number of errors that occurred during the action job.'; -#if not CLEAN27 - ObsoleteState = Pending; - ObsoleteReason = 'This field is obsolete and should not be used.'; -#pragma warning disable AS0074 - ObsoleteTag = '27.0'; -#pragma warning restore AS0074 -#else ObsoleteState = Removed; ObsoleteReason = 'This field is obsolete and should not be used.'; ObsoleteTag = '29.0'; -#endif } #endif /// diff --git a/src/Layers/W1/BaseApp/Sales/Reminder/IssuedReminderList.Page.al b/src/Layers/W1/BaseApp/Sales/Reminder/IssuedReminderList.Page.al index 8c51a75e4d4..e0a903858c4 100644 --- a/src/Layers/W1/BaseApp/Sales/Reminder/IssuedReminderList.Page.al +++ b/src/Layers/W1/BaseApp/Sales/Reminder/IssuedReminderList.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -236,24 +236,6 @@ page 440 "Issued Reminder List" } area(reporting) { -#if not CLEAN27 - action("Reminder Nos.") - { - ApplicationArea = Suite; - Caption = 'The action will be obsoleted.'; - Image = "Report"; - //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true' - //PromotedCategory = "Report"; - RunObject = Report Reminder; - ToolTip = 'The action will be obsoleted.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteReason = 'The related report doesn''t exist anymore'; -#pragma warning disable AS0074 - ObsoleteTag = '27.0'; -#pragma warning restore AS0074 - } -#endif action("Customer - Balance to Date") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/W1/BaseApp/Sales/Reminder/ReminderList.Page.al b/src/Layers/W1/BaseApp/Sales/Reminder/ReminderList.Page.al index 6b20cd337fd..82af617e8d6 100644 --- a/src/Layers/W1/BaseApp/Sales/Reminder/ReminderList.Page.al +++ b/src/Layers/W1/BaseApp/Sales/Reminder/ReminderList.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -239,24 +239,6 @@ page 436 "Reminder List" } area(reporting) { -#if not CLEAN27 - action("Reminder Nos.") - { - ApplicationArea = Basic, Suite; - Caption = 'The action will be obsoleted.'; - Image = "Report"; - //The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true' - //PromotedCategory = "Report"; - RunObject = Report Reminder; - ToolTip = 'The action will be obsoleted.'; - Visible = false; - ObsoleteState = Pending; - ObsoleteReason = 'The related report doesn''t exist anymore'; -#pragma warning disable AS0074 - ObsoleteTag = '27.0'; -#pragma warning restore AS0074 - } -#endif action("Reminder Test") { ApplicationArea = Basic, Suite; diff --git a/src/Layers/W1/BaseApp/Sales/Reminder/ReminderTerms.Page.al b/src/Layers/W1/BaseApp/Sales/Reminder/ReminderTerms.Page.al index 6f77c01f10f..ac6389cf90f 100644 --- a/src/Layers/W1/BaseApp/Sales/Reminder/ReminderTerms.Page.al +++ b/src/Layers/W1/BaseApp/Sales/Reminder/ReminderTerms.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -15,11 +15,7 @@ page 431 "Reminder Terms" Caption = 'Reminder Terms'; PageType = List; SourceTable = "Reminder Terms"; -#if not CLEAN27 - UsageCategory = Administration; -#else UsageCategory = None; -#endif layout { diff --git a/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderAttachmentText.Table.al b/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderAttachmentText.Table.al index 2dd0bdc0845..6970c73b040 100644 --- a/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderAttachmentText.Table.al +++ b/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderAttachmentText.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -61,17 +61,9 @@ table 502 "Reminder Attachment Text" { Caption = 'Beginning Line'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteReason = 'To support the use of multiple lines, this field will be replaced by the Reminder Attachment Text Line table.'; - ObsoleteState = Pending; -#pragma warning disable AS0074 - ObsoleteTag = '27.0'; -#pragma warning restore AS0074 -#else ObsoleteReason = 'To support the use of multiple lines, this is replaced by Reminder Attachment Text Line table.'; ObsoleteState = Removed; ObsoleteTag = '29.0'; -#endif } #endif /// @@ -91,17 +83,9 @@ table 502 "Reminder Attachment Text" { Caption = 'Ending Line'; DataClassification = CustomerContent; -#if not CLEAN27 - ObsoleteReason = 'To support the use of multiple lines, this field will be replaced by the Reminder Attachment Text Line table.'; - ObsoleteState = Pending; -#pragma warning disable AS0074 - ObsoleteTag = '27.0'; -#pragma warning restore AS0074 -#else ObsoleteReason = 'To support the use of multiple lines, this is replaced by Reminder Attachment Text Line table.'; ObsoleteState = Removed; ObsoleteTag = '29.0'; -#endif } #endif /// diff --git a/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderCommunication.Codeunit.al b/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderCommunication.Codeunit.al index 02b4dbfc865..bba30e82fc2 100644 --- a/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderCommunication.Codeunit.al +++ b/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderCommunication.Codeunit.al @@ -11,9 +11,6 @@ using Microsoft.Sales.Customer; using Microsoft.Sales.FinanceCharge; using Microsoft.Sales.Receivables; using System.EMail; -#if not CLEAN27 -using System.Environment.Configuration; -#endif using System.Globalization; using System.Reflection; using System.Text; @@ -26,16 +23,8 @@ codeunit 1890 "Reminder Communication" { internal procedure NewReminderCommunicationEnabled(): Boolean -#if not CLEAN27 - var - FeatureManagementFacade: Codeunit "Feature Management Facade"; -#endif begin -#if not CLEAN27 - exit(FeatureManagementFacade.IsEnabled(FeatureIdTok)); -#else exit(true); -#endif end; /// @@ -107,10 +96,6 @@ codeunit 1890 "Reminder Communication" end; end; -#if not CLEAN27 - if not NewReminderCommunicationEnabled() then - IntroduceBeginningTextFromReminderText(ReminderHeader, ReminderLevel, ReminderLine); -#endif end; /// @@ -160,78 +145,8 @@ codeunit 1890 "Reminder Communication" end; end; -#if not CLEAN27 - if not NewReminderCommunicationEnabled() then - IntroduceEndingTextFromReminderText(ReminderHeader, ReminderLevel, ReminderLine); -#endif - end; - -#if not CLEAN27 - [Obsolete('Reminder Text is being obsoleted. Use the new records Reminder Attachment Text and Reminder Email Text', '24.0')] - local procedure IntroduceBeginningTextFromReminderText(var ReminderHeader: Record "Reminder Header"; var ReminderLevel: Record "Reminder Level"; var ReminderLine: Record "Reminder Line") - var - ReminderText: Record "Reminder Text"; - LineSpacing, NextLineNo : Integer; - begin - ReminderText.Reset(); - ReminderText.SetRange("Reminder Terms Code", ReminderHeader."Reminder Terms Code"); - ReminderText.SetRange("Reminder Level", ReminderLevel."No."); - ReminderText.SetRange(Position, ReminderText.Position::Beginning); - ReminderHeader.OnInsertBeginTextsOnAfterReminderTextSetFilters(ReminderText, ReminderHeader); - - ReminderLine.Reset(); - ReminderLine.SetRange("Reminder No.", ReminderHeader."No."); - ReminderLine."Reminder No." := ReminderHeader."No."; - if ReminderLine.Find('-') then begin - LineSpacing := ReminderLine."Line No." div (ReminderText.Count + 2); - if LineSpacing = 0 then - Error(NoEnoughSpaceForTextErr); - end else - LineSpacing := 10000; - - NextLineNo := 0; - ReminderHeader.InsertTextLines(ReminderHeader, ReminderText, NextLineNo, LineSpacing); end; - [Obsolete('Reminder Text is being obsoleted. Use the new records Reminder Attachment Text and Reminder Email Text', '24.0')] - local procedure IntroduceEndingTextFromReminderText(var ReminderHeader: Record "Reminder Header"; var ReminderLevel: Record "Reminder Level"; var ReminderLine: Record "Reminder Line") - var - ReminderText: Record "Reminder Text"; - ReminderLine2: Record "Reminder Line"; - LineSpacing, NextLineNo : Integer; - begin - ReminderText.SetRange("Reminder Terms Code", ReminderHeader."Reminder Terms Code"); - ReminderText.SetRange("Reminder Level", ReminderLevel."No."); - ReminderText.SetRange(Position, ReminderText.Position::Ending); - ReminderHeader.OnInsertEndTextsOnAfterReminderTextSetFilters(ReminderText, ReminderHeader); - - ReminderLine.Reset(); - ReminderLine.SetRange("Reminder No.", ReminderHeader."No."); - ReminderLine.SetFilter( - "Line Type", '%1|%2|%3', - ReminderLine."Line Type"::"Reminder Line", - ReminderLine."Line Type"::"Additional Fee", - ReminderLine."Line Type"::Rounding); - ReminderHeader.OnInsertEndTextsOnAfterReminderLineSetFilters(ReminderLine, ReminderHeader); - if ReminderLine.FindLast() then - NextLineNo := ReminderLine."Line No." - else - NextLineNo := 0; - ReminderLine.SetRange("Line Type"); - ReminderLine2 := ReminderLine; - ReminderLine2.CopyFilters(ReminderLine); - ReminderLine2.SetFilter("Line Type", '<>%1', ReminderLine2."Line Type"::"Line Fee"); - if ReminderLine2.Next() <> 0 then begin - LineSpacing := - (ReminderLine2."Line No." - ReminderLine."Line No.") div - (ReminderText.Count + 2); - if LineSpacing = 0 then - Error(NoEnoughSpaceForTextErr); - end else - LineSpacing := 10000; - ReminderHeader.InsertTextLines(ReminderHeader, ReminderText, NextLineNo, LineSpacing); - end; -#endif local procedure GetCustomerLanguageOrDefaultUserLanguage(CustomerNo: Code[20]): Code[10] var @@ -508,10 +423,6 @@ codeunit 1890 "Reminder Communication" SubstituteRelatedValues(GreetingTxt, IssuedReminderHeader, IssuedReminderHeader.CalculateTotalIncludingVAT(), CopyStr(CompanyName, 1, 100)); SubstituteRelatedValues(ClosingTxt, IssuedReminderHeader, IssuedReminderHeader.CalculateTotalIncludingVAT(), CopyStr(CompanyName, 1, 100)); end; -#if not CLEAN27 - if not NewReminderCommunicationEnabled() then - PopulateEmailTextFromReminderText(IssuedReminderHeader, CompanyInfo, GreetingTxt, AmtDueTxt, BodyTxt, ClosingTxt, DescriptionTxt, NNC_TotalInclVAT); -#endif end; local procedure SelectEmailBodyText(var ReminderEmailText: Record "Reminder Email Text"; var IssuedReminderHeader: Record "Issued Reminder Header"; var BodyTxt: Text) @@ -571,64 +482,6 @@ codeunit 1890 "Reminder Communication" OnAfterSubstituteRelatedValues(BodyTxt, IssuedReminderHeader); end; -#if not CLEAN27 - local procedure PopulateEmailTextFromReminderText(var IssuedReminderHeader: Record "Issued Reminder Header"; var CompanyInfo: Record "Company Information"; var GreetingTxt: Text; var AmtDueTxt: Text; var BodyTxt: Text; var ClosingTxt: Text; var DescriptionTxt: Text; NNC_TotalInclVAT: Decimal) - var - ReminderEmailText: Record "Reminder Email Text"; - EmailTextInStream: InStream; - EmailTextLine: Text; - begin - AmtDueTxt := ''; - BodyTxt := ''; - GreetingTxt := ReminderEmailText.GetDefaultGreetingLbl(); - ClosingTxt := ReminderEmailText.GetDefaultClosingLbl(); - DescriptionTxt := ReminderEmailText.GetDescriptionLbl(); - if Format(IssuedReminderHeader."Due Date") <> '' then - AmtDueTxt := StrSubstNo(ReminderEmailText.GetAmtDueLbl(), IssuedReminderHeader."Due Date"); - - if GetEmailTextInStream(EmailTextInStream, IssuedReminderHeader) then begin - AmtDueTxt := ''; - BodyTxt := ''; - - while EmailTextInStream.ReadText(EmailTextLine) > 0 do - BodyTxt += EmailTextLine; - - SubstituteRelatedValues(BodyTxt, IssuedReminderHeader, NNC_TotalInclVAT, CompanyInfo.Name); - end else - BodyTxt := ReminderEmailText.GetBodyLbl(); - end; - - local procedure GetEmailTextInStream(var EmailTextInStream: InStream; var IssuedReminderHeader: Record "Issued Reminder Header"): Boolean - var - ReminderText: Record "Reminder Text"; - ReminderTextPosition: Enum "Reminder Text Position"; - begin - IssuedReminderHeader.CalcFields("Email Text"); - ReminderText.SetAutoCalcFields("Email Text"); - - // if there is email text on the reminder, prepare to read it - if IssuedReminderHeader."Email Text".HasValue() then begin - IssuedReminderHeader."Email Text".CreateInStream(EmailTextInStream); - exit(true); - end; - - // otherwise, if there is email text on the reminder level, prepare to read it - if ReminderText.Get(IssuedReminderHeader."Reminder Terms Code", IssuedReminderHeader."Reminder Level", ReminderTextPosition::"Email Body", 0) then - if ReminderText."Email Text".HasValue() then begin - ReminderText."Email Text".CreateInStream(EmailTextInstream); - exit(true); - end; - - // otherwise, if there is email text on the reminder terms, prepare to read it - if ReminderText.Get(IssuedReminderHeader."Reminder Terms Code", 0, ReminderTextPosition::"Email Body", 0) then - if ReminderText."Email Text".HasValue() then begin - ReminderText."Email Text".CreateInStream(EmailTextInstream); - exit(true) - end; - - exit(false) - end; -#endif internal procedure CheckMissMatchBetweenLanguages(var ReminderTerms: Record "Reminder Terms"): Boolean var @@ -1011,9 +864,6 @@ codeunit 1890 "Reminder Communication" end; var -#if not CLEAN27 - FeatureIdTok: Label 'ReminderTermsCommunicationTexts', Locked = true; -#endif ReplaceTextTok: Label '==ReplaceText==', Locked = true; PDFFileExtensionTok: Label '.pdf', Locked = true; CommaSeparatedTok: Label '%1, %2', Locked = true; diff --git a/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderTermsList.Page.al b/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderTermsList.Page.al index c1d888d33f8..f94cdb4ca5b 100644 --- a/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderTermsList.Page.al +++ b/src/Layers/W1/BaseApp/Sales/Reminder/TermsAndLevels/ReminderTermsList.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -13,11 +13,7 @@ page 837 "Reminder Terms List" Caption = 'Reminder Terms'; PageType = List; SourceTable = "Reminder Terms"; -#if not CLEAN27 - UsageCategory = None; -#else UsageCategory = Lists; -#endif CardPageID = "Reminder Terms Setup"; DataCaptionFields = Code; Editable = false; diff --git a/src/Layers/W1/BaseApp/Sales/Reports/CustomerItemSales.Report.al b/src/Layers/W1/BaseApp/Sales/Reports/CustomerItemSales.Report.al index 36e18544bb6..15479e41cbf 100644 --- a/src/Layers/W1/BaseApp/Sales/Reports/CustomerItemSales.Report.al +++ b/src/Layers/W1/BaseApp/Sales/Reports/CustomerItemSales.Report.al @@ -71,104 +71,6 @@ report 113 "Customer/Item Sales" { DecimalPlaces = 1 : 1; } -#if not CLEAN27 - column(COMPANYNAME; COMPANYPROPERTY.DisplayName()) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CustFilter; CustFilter) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ItemLedgEntryFilter; ValueEntryFilter) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Customer_Item_SalesCaption; Customer_Item_SalesCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(All_amounts_are_in_LCYCaption; All_amounts_are_in_LCYCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ValueEntryBuffer__Item_No__Caption; ValueEntryBuffer__Item_No__CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Item_DescriptionCaption; Item_DescriptionCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ValueEntryBuffer__Invoiced_Quantity_Caption; ValueEntryBuffer__Invoiced_Quantity_CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Item__Base_Unit_of_Measure_Caption; Item__Base_Unit_of_Measure_CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ValueEntryBuffer__Sales_Amount__Actual___Control44Caption; ValueEntryBuffer__Sales_Amount__Actual___Control44CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ValueEntryBuffer__Discount_Amount__Control45Caption; ValueEntryBuffer__Discount_Amount__Control45CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Profit_Control46Caption; Profit_Control46CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ProfitPct_Control47Caption; ProfitPct_Control47CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Customer__Phone_No__Caption; FieldCaption("Phone No.")) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(TotalCaption; TotalCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif dataitem("Value Entry"; "Value Entry") { DataItemLink = "Source No." = field("No."), "Posting Date" = field("Date Filter"), "Global Dimension 1 Code" = field("Global Dimension 1 Filter"), "Global Dimension 2 Code" = field("Global Dimension 2 Filter"); @@ -400,9 +302,7 @@ report 113 "Customer/Item Sales" ObsoleteState = Pending; ObsoleteReason = 'The New Page per Customer option is only supported by the RDLC layout which has been deprecated.'; ObsoleteTag = '28.0'; -#if CLEAN27 Visible = false; -#endif } #endif // Used to set a report header across multiple languages @@ -459,18 +359,6 @@ report 113 "Customer/Item Sales" LayoutFile = './Sales/Reports/CustomerItemSales.docx'; Summary = 'Report layout made for print. Use a Word editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Customer Item Sales RDLC (Obsolete)'; - Type = RDLC; - LayoutFile = './Sales/Reports/CustomerItemSales.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels @@ -536,20 +424,6 @@ report 113 "Customer/Item Sales" ReportHasData: Boolean; EmptyReportDatasetTxt: Label 'There is nothing to print for the selected filters.'; PeriodTxt: Label 'Period: %1', Comment = '%1 - period text'; -#if not CLEAN27 - Customer_Item_SalesCaptionLbl: Label 'Customer/Item Sales'; - CurrReport_PAGENOCaptionLbl: Label 'Page'; - All_amounts_are_in_LCYCaptionLbl: Label 'All amounts are in LCY'; - ValueEntryBuffer__Item_No__CaptionLbl: Label 'Item No.'; - Item_DescriptionCaptionLbl: Label 'Description'; - ValueEntryBuffer__Invoiced_Quantity_CaptionLbl: Label 'Invoiced Quantity'; - Item__Base_Unit_of_Measure_CaptionLbl: Label 'Unit of Measure'; - ValueEntryBuffer__Sales_Amount__Actual___Control44CaptionLbl: Label 'Amount'; - ValueEntryBuffer__Discount_Amount__Control45CaptionLbl: Label 'Discount Amount'; - Profit_Control46CaptionLbl: Label 'Profit'; - ProfitPct_Control47CaptionLbl: Label 'Profit %'; - TotalCaptionLbl: Label 'Total'; -#endif protected var Item: Record Item; diff --git a/src/Layers/W1/BaseApp/Sales/Reports/CustomerOrderDetail.Report.al b/src/Layers/W1/BaseApp/Sales/Reports/CustomerOrderDetail.Report.al index 3aff6952c9e..fcdf7e3a858 100644 --- a/src/Layers/W1/BaseApp/Sales/Reports/CustomerOrderDetail.Report.al +++ b/src/Layers/W1/BaseApp/Sales/Reports/CustomerOrderDetail.Report.al @@ -33,50 +33,6 @@ report 108 "Customer - Order Detail" { } -#if not CLEAN27 - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(PageGroupNo; PageGroupNo) - { - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(CustOrderDetailCaption; CustOrderDetailCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(PageCaption; PageCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(ShipmentDateCaption; ShipmentDateCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(QtyOnBackOrderCaption; QtyOnBackOrderCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } - column(OutstandingOrdersCaption; OutstandingOrdersCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif column(PrintAmountsInLCY; PrintAmountsInLCY) { } @@ -323,14 +279,6 @@ report 108 "Customer - Order Detail" column(CurrCode_CurrTotalBuff2; TempCurrencyTotalBuffer2."Currency Code") { } -#if not CLEAN27 - column(TotalCaption; TotalCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - } -#endif trigger OnAfterGetRecord() begin @@ -377,9 +325,7 @@ report 108 "Customer - Order Detail" ObsoleteState = Pending; ObsoleteReason = 'The New Page per Customer option is only supported by the RDLC layout which has been deprecated.'; ObsoleteTag = '28.0'; -#if CLEAN27 Visible = false; -#endif } #endif field(PostingDateFilter; PostingDateFilter) @@ -419,18 +365,6 @@ report 108 "Customer - Order Detail" LayoutFile = './Sales/Reports/CustomerOrderDetail.xlsx'; Summary = 'Report layout primarily made for data analysis. Use an Excel editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Customer - Order Detail RDLC (Obsolete)'; - Type = RDLC; - LayoutFile = './Sales/Reports/CustomerOrderDetail.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel layout and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels @@ -519,14 +453,6 @@ report 108 "Customer - Order Detail" AllAmtAreInLCYCaptionLbl: Label 'All amounts are in LCY'; CustFilterLbl: Label 'Customer: %1', Comment = '%1 Customer Name'; OrderNoAndDateLbl: Label 'Order No. %1 - %2', Comment = '%1 Sales Header No., %2 Order Date'; -#if not CLEAN27 - CustOrderDetailCaptionLbl: Label 'Customer - Order Detail'; - PageCaptionLbl: Label 'Page'; - ShipmentDateCaptionLbl: Label 'Shipment Date'; - QtyOnBackOrderCaptionLbl: Label 'Quantity on Back Order'; - OutstandingOrdersCaptionLbl: Label 'Outstanding Orders'; - TotalCaptionLbl: Label 'Total'; -#endif protected var SalesHeader: Record "Sales Header"; diff --git a/src/Layers/W1/BaseApp/Sales/Reports/CustomerOrderSummary.Report.al b/src/Layers/W1/BaseApp/Sales/Reports/CustomerOrderSummary.Report.al index aa3ce8cb259..1c4a7fbd775 100644 --- a/src/Layers/W1/BaseApp/Sales/Reports/CustomerOrderSummary.Report.al +++ b/src/Layers/W1/BaseApp/Sales/Reports/CustomerOrderSummary.Report.al @@ -30,14 +30,6 @@ report 107 "Customer - Order Summary" DataItemTableView = sorting("No."); PrintOnlyIfDetail = true; RequestFilterFields = "No.", "Search Name", "Customer Posting Group", "Currency Filter"; -#if not CLEAN27 - column(CompanyName; COMPANYPROPERTY.DisplayName()) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif column(PrintAmountsInLCY; PrintAmountsInLCY) { } @@ -98,62 +90,6 @@ report 107 "Customer - Order Summary" column(TotalCaption; TotalCaptionLbl) { } -#if not CLEAN27 - column(CustomerOrderSummaryCaption; CustomerOrderSummaryCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(PageNoCaption; PageNoCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(AllamountsareinLCYCaption; AllamountsareinLCYCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(OutstandingOrdersCaption; OutstandingOrdersCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CustomerNoCaption; CustomerNoCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CustomerNameCaption; CustomerNameCap) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(BeforeCaption; BeforeCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(AfterCaption; AfterCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(TotalLCYCaption; TotalLCYCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif dataitem("Sales Line"; "Sales Line") { DataItemLink = "Bill-to Customer No." = field("No."), "Shortcut Dimension 1 Code" = field("Global Dimension 1 Filter"), "Shortcut Dimension 2 Code" = field("Global Dimension 2 Filter"), "Currency Code" = field("Currency Filter"); @@ -468,18 +404,6 @@ report 107 "Customer - Order Summary" Type = Word; Summary = 'Built in layout for the Customer Order Summary word report.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Customer Order Summary RDLC'; - Type = RDLC; - LayoutFile = '.\Sales\Reports\CustomerOrderSummary.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels { @@ -582,24 +506,6 @@ report 107 "Customer - Order Summary" SalesAmtOnOrder: array[5] of Decimal; SalesAmtOnOrder1: array[5] of Decimal; -#if not CLEAN27 - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - CustomerOrderSummaryCaptionLbl: Label 'Customer - Order Summary'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - PageNoCaptionLbl: Label 'Page'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - OutstandingOrdersCaptionLbl: Label 'Outstanding Orders'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - CustomerNoCaptionLbl: Label 'Customer No.'; -#pragma warning disable AA0074 - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - CustomerNameCap: Label 'Name'; -#pragma warning restore AA0074 - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - BeforeCaptionLbl: Label '...before'; - [Obsolete('RDLC Only layout field caption. To be removed along with the RDLC layout', '27.0')] - AfterCaptionLbl: Label 'after...'; -#endif /// /// Initializes the report request options for the Customer Order Summary report. /// diff --git a/src/Layers/W1/BaseApp/Sales/Reports/SalespersonCommission.Report.al b/src/Layers/W1/BaseApp/Sales/Reports/SalespersonCommission.Report.al index 16c582c6314..a809daef2b1 100644 --- a/src/Layers/W1/BaseApp/Sales/Reports/SalespersonCommission.Report.al +++ b/src/Layers/W1/BaseApp/Sales/Reports/SalespersonCommission.Report.al @@ -46,156 +46,6 @@ report 115 "Salesperson - Commission" column(Salesperson_Purchaser__Commission___; "Commission %") { } -#if not CLEAN27 - column(COMPANYNAME; COMPANYPROPERTY.DisplayName()) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalespersonFilter; SalespersonFilter) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CustLedgEntryFilter; CustLedgEntryFilter) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(PageGroupNo; PageGroupNo) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Cust__Ledger_Entry___Sales__LCY__; "Cust. Ledger Entry"."Sales (LCY)") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Cust__Ledger_Entry___Profit__LCY__; "Cust. Ledger Entry"."Profit (LCY)") - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalesCommissionAmt; SalesCommissionAmt) - { - AutoFormatType = 1; - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ProfitCommissionAmt; ProfitCommissionAmt) - { - AutoFormatType = 1; - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(AdjProfit; AdjProfit) - { - AutoFormatType = 1; - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(AdjProfitCommissionAmt; AdjProfitCommissionAmt) - { - AutoFormatType = 1; - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Salesperson___CommissionCaption; Salesperson___CommissionCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(All_amounts_are_in_LCYCaption; All_amounts_are_in_LCYCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Cust__Ledger_Entry__Posting_Date_Caption; Cust__Ledger_Entry__Posting_Date_CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Cust__Ledger_Entry__Document_No__Caption; "Cust. Ledger Entry".FieldCaption("Document No.")) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Cust__Ledger_Entry__Customer_No__Caption; "Cust. Ledger Entry".FieldCaption("Customer No.")) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Cust__Ledger_Entry__Sales__LCY__Caption; "Cust. Ledger Entry".FieldCaption("Sales (LCY)")) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Cust__Ledger_Entry__Profit__LCY__Caption; "Cust. Ledger Entry".FieldCaption("Profit (LCY)")) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalesCommissionAmt_Control32Caption; SalesCommissionAmt_Control32CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(ProfitCommissionAmt_Control33Caption; ProfitCommissionAmt_Control33CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(AdjProfit_Control39Caption; AdjProfit_Control39CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(AdjProfitCommissionAmt_Control45Caption; AdjProfitCommissionAmt_Control45CaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(Salesperson_Purchaser__Commission___Caption; FieldCaption("Commission %")) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(TotalCaption; TotalCaptionLbl) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif dataitem("Cust. Ledger Entry"; "Cust. Ledger Entry") { DataItemLink = "Salesperson Code" = field(Code); @@ -397,9 +247,7 @@ report 115 "Salesperson - Commission" ObsoleteState = Pending; ObsoleteReason = 'The New Page per Person option is only supported by the RDLC layout which has been deprecated.'; ObsoleteTag = '28.0'; -#if CLEAN27 Visible = false; -#endif } #endif // Used to set the Period on the report header across multiple languages @@ -457,18 +305,6 @@ report 115 "Salesperson - Commission" LayoutFile = './Sales/Reports/SalespersonCommission.docx'; Summary = 'Report layout made for print. Use a Word editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Salesperson Commission RDLC'; - Type = RDLC; - LayoutFile = './Sales/Reports/SalespersonCommission.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels @@ -537,17 +373,6 @@ report 115 "Salesperson - Commission" TotalsProfitCommission: Decimal; TotalsAdjProfitCommission: Decimal; ReportHasData: Boolean; -#if not CLEAN27 - All_amounts_are_in_LCYCaptionLbl: Label 'All amounts are in LCY'; - TotalCaptionLbl: Label 'Total'; - Salesperson___CommissionCaptionLbl: Label 'Salesperson - Commission'; - CurrReport_PAGENOCaptionLbl: Label 'Page'; - Cust__Ledger_Entry__Posting_Date_CaptionLbl: Label 'Posting Date'; - SalesCommissionAmt_Control32CaptionLbl: Label 'Sales Commission (LCY)'; - ProfitCommissionAmt_Control33CaptionLbl: Label 'Profit Commission (LCY)'; - AdjProfit_Control39CaptionLbl: Label 'Adjusted Profit (LCY)'; - AdjProfitCommissionAmt_Control45CaptionLbl: Label 'Adjusted Profit Commission (LCY)'; -#endif local procedure ClearAmounts() begin diff --git a/src/Layers/W1/BaseApp/Sales/Reports/SalespersonSalesStatistics.Report.al b/src/Layers/W1/BaseApp/Sales/Reports/SalespersonSalesStatistics.Report.al index da1151db59a..193189d8ed4 100644 --- a/src/Layers/W1/BaseApp/Sales/Reports/SalespersonSalesStatistics.Report.al +++ b/src/Layers/W1/BaseApp/Sales/Reports/SalespersonSalesStatistics.Report.al @@ -73,26 +73,6 @@ report 114 "Salesperson - Sales Statistics" { IncludeCaption = true; } -#if not CLEAN27 - column(COMPANYNAME; COMPANYPROPERTY.DisplayName()) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(SalespersonFilter; SalespersonFilter) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } - column(CustLedgEntryFilter; CustLedgEntryFilter) - { - ObsoleteState = Pending; - ObsoleteReason = 'RDLC Only layout column. To be removed along with the RDLC layout.'; - ObsoleteTag = '27.0'; - } -#endif trigger OnAfterGetRecord() var @@ -260,18 +240,6 @@ report 114 "Salesperson - Sales Statistics" LayoutFile = './Sales/Reports/SalespersonSalesStatistics.docx'; Summary = 'Report layout made for print. Use a Word editor to modify the layout.'; } -#if not CLEAN27 - layout(RDLC) - { - Caption = 'Salesperson Sales Statistics RDLC'; - Type = RDLC; - LayoutFile = './Sales/Reports/SalespersonSalesStatistics.rdlc'; - ObsoleteState = Pending; - ObsoleteReason = 'The RDLC layout has been replaced by the Excel and Word layouts and will be removed in a future release.'; - ObsoleteTag = '27.0'; - Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.'; - } -#endif } labels diff --git a/src/Layers/W1/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al b/src/Layers/W1/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al index 65a1f144259..327a5543db1 100644 --- a/src/Layers/W1/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al +++ b/src/Layers/W1/BaseApp/Sales/Setup/SalesReceivablesSetup.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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/W1/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al b/src/Layers/W1/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al index 37526765ea0..4f65d2d4286 100644 --- a/src/Layers/W1/BaseApp/Sales/Setup/SalesReceivablesSetup.Table.al +++ b/src/Layers/W1/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/W1/BaseApp/Service/Document/ServiceCreditMemo.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceCreditMemo.Page.al index c85881975d9..6e6896e5b58 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceCreditMemo.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceCreditMemo.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -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; } @@ -917,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") { } diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceCreditMemos.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceCreditMemos.Page.al index d4396f670f7..7b652f3fa69 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceCreditMemos.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceCreditMemos.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -157,24 +157,6 @@ page 9320 "Service Credit Memos" { 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; @@ -182,11 +164,7 @@ page 9320 "Service Credit Memos" 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; } @@ -355,18 +333,9 @@ page 9320 "Service Credit Memos" 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") { } diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceHeader.Table.al b/src/Layers/W1/BaseApp/Service/Document/ServiceHeader.Table.al index 335d6ccb09d..778db21d0ed 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceHeader.Table.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceHeader.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -38,9 +38,6 @@ using Microsoft.Projects.Resources.Resource; using Microsoft.Sales.Customer; using Microsoft.Sales.Pricing; using Microsoft.Sales.Receivables; -#if not CLEAN27 -using Microsoft.Sales.Setup; -#endif using Microsoft.Service.Archive; using Microsoft.Service.Comment; using Microsoft.Service.Contract; @@ -3028,9 +3025,6 @@ table 5900 "Service Header" PostCode: Record "Post Code"; CurrExchRate: Record "Currency Exchange Rate"; GeneralLedgerSetup: Record "General Ledger Setup"; -#if not CLEAN27 - SalesReceivablesSetup: Record "Sales & Receivables Setup"; -#endif ServShptHeader: Record "Service Shipment Header"; ServInvHeader: Record "Service Invoice Header"; ServCrMemoHeader: Record "Service Cr.Memo Header"; @@ -3115,9 +3109,6 @@ table 5900 "Service Header" CannotDeleteWhenNextInvExistsErr: Label 'The service invoice cannot be deleted because there are service invoices with a later posting date.'; CannotRestoreInvoiceDatesErr: Label 'The service invoice cannot be deleted because the previous invoice dates cannot be restored in the service contract.'; InvoicePeriodChangedErr: Label 'The invoice period in the service contract has been changed and cannot be updated.'; -#if not CLEAN27 - SkipStatsPrep: Boolean; -#endif protected var GlobalNoSeries: Record "No. Series"; @@ -4614,15 +4605,6 @@ table 5900 "Service Header" until ValueEntry.Next() = 0; end; -#if not CLEAN27 - [Obsolete('Call CalculateIncDiscForHeader on codeunit "Service-Calc. Discount" directly instead', '27.0')] - procedure CalcInvDiscForHeader() - var - ServiceInvDisc: Codeunit "Service-Calc. Discount"; - begin - ServiceInvDisc.CalculateIncDiscForHeader(Rec); - end; -#endif procedure SetSecurityFilterOnRespCenter() var IsHandled: Boolean; @@ -4639,75 +4621,6 @@ table 5900 "Service Header" end; end; -#if not CLEAN27 - /// - /// Runs page service statistic for current service header record. - /// - /// Commit will be triggered. - [Obsolete('The new statistics actions use RunObject and do not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure OpenStatistics() - var - StatPageID: Integer; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeOpenStatistics(Rec, IsHandled); - if IsHandled then - exit; - - CalcInvDiscForHeader(); - Commit(); - StatPageID := Page::"Service Statistics"; - OnOpenStatisticsOnAfterSetStatPageID(Rec, StatPageID); - SkipStatsPrep := true; - Page.RunModal(StatPageID, Rec); - ResetSkipStatisticsPreparationFlag(); - end; - - [Obsolete('The new statistics actions use RunObject and do not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure OpenOrderStatistics() - var - ServiceLine: Record "Service Line"; - ServiceLines: Page "Service Lines"; - StatPageID: Integer; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeOpenOrderStatistics(Rec, IsHandled); - if IsHandled then - exit; - - SalesReceivablesSetup.GetRecordOnce(); - if SalesReceivablesSetup."Calc. Inv. Discount" then begin - ServiceLine.Reset(); - ServiceLine.SetRange("Document Type", "Document Type"); - ServiceLine.SetRange("Document No.", "No."); - if ServiceLine.FindFirst() then begin - ServiceLines.SetTableView(ServiceLine); - ServiceLines.CalcInvDisc(ServiceLine); - Commit(); - end; - end; - - StatPageID := Page::"Service Order Statistics"; - OnOpenOrderStatisticsOnAfterSetStatPageID(Rec, StatPageID); - SkipStatsPrep := true; - Page.RunModal(StatPageID, Rec); - ResetSkipStatisticsPreparationFlag(); - end; - - [Obsolete('The statistics action will be replaced with the SOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure SkipStatisticsPreparation(): Boolean - begin - exit(SkipStatsPrep) - end; - - [Obsolete('The statistics action will be replaced with the ServiceOrderStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - procedure ResetSkipStatisticsPreparationFlag() - begin - SkipStatsPrep := false; - end; -#endif local procedure CheckMandSalesPersonOrderData(ServiceMgtSetup: Record "Service Mgt. Setup") begin if ServiceMgtSetup."Salesperson Mandatory" then @@ -5940,19 +5853,6 @@ table 5900 "Service Header" local procedure OnAfterOnInsert(var ServiceHeader: Record "Service Header") begin end; -#if not CLEAN27 - [Obsolete('The new statistics actions use RunObject and do not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeOpenOrderStatistics(var ServiceHeader: Record "Service Header"; var IsHandled: Boolean) - begin - end; - - [Obsolete('The new statistics actions use RunObject and do not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeOpenStatistics(var ServiceHeader: Record "Service Header"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeTestMandatoryFields(var ServiceHeader: Record "Service Header"; var ServiceLine: Record "Service Line") begin @@ -6418,19 +6318,6 @@ table 5900 "Service Header" begin end; -#if not CLEAN27 - [Obsolete('The new statistics actions use RunObject and do not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnOpenStatisticsOnAfterSetStatPageID(var ServiceHeader: Record "Service Header"; var StatPageID: Integer) - begin - end; - - [Obsolete('The new statistics actions use RunObject and do not run the action trigger. Use a page extension to modify the behaviour.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnOpenOrderStatisticsOnAfterSetStatPageID(var ServiceHeader: Record "Service Header"; var StatPageID: Integer) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnDeleteOnBeforeArchiveServiceDocument(var ServiceHeader: Record "Service Header"; xServiceHeader: Record "Service Header") begin diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceInvoice.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceInvoice.Page.al index d971be6f2fb..65b0f7f88b5 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceInvoice.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceInvoice.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -604,24 +604,6 @@ page 5933 "Service Invoice" { Caption = '&Invoice'; Image = Invoice; -#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; @@ -629,11 +611,7 @@ page 5933 "Service Invoice" 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; } @@ -895,18 +873,9 @@ page 5933 "Service Invoice" 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("Service Document Lo&g_Promoted"; "Service Document Lo&g") { } diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceInvoices.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceInvoices.Page.al index 4e6e778a0e9..4178899b40c 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceInvoices.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceInvoices.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -171,24 +171,6 @@ page 9319 "Service Invoices" { Caption = '&Invoice'; Image = Invoice; -#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; @@ -196,11 +178,7 @@ page 9319 "Service Invoices" 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; } @@ -363,18 +341,9 @@ page 9319 "Service Invoices" 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") { } diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceItemLine.Table.al b/src/Layers/W1/BaseApp/Service/Document/ServiceItemLine.Table.al index b2e29abf683..4ccb57eb3e0 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceItemLine.Table.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceItemLine.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -2393,13 +2393,6 @@ table 5901 "Service Item Line" exit(true); end; -#if not CLEAN27 - [Obsolete('Replaced by namesake procedure with Enum parameter', '27.0')] - procedure ShowComments(Type: Option General,Fault,Resolution,Accessory,Internal,"Service Item Loaner") - begin - ShowComments("Service Comment Line Type".FromInteger(Type)); - end; -#endif procedure ShowComments(ServiceCommentLineType: Enum "Service Comment Line Type") begin diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceLine.Table.al b/src/Layers/W1/BaseApp/Service/Document/ServiceLine.Table.al index 849afab355c..982574c678b 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceLine.Table.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceLine.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -7343,13 +7343,6 @@ table 5902 "Service Line" begin end; -#if not CLEAN27 - [Obsolete('The event is never raised', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterUpdateVATOnLinesOnAfterCalcVATAmount(var ServiceLine: Record "Service Line"; var TempVATAmountLineRemainder: Record "VAT Amount Line" temporary; VATAmountLine: Record "VAT Amount Line"; var VATAmount: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeInitTableValuePair(var TableValuePair: Dictionary of [Integer, Code[20]]; FieldNo: Integer; var IsHandled: Boolean; var ServiceLine: Record "Service Line") begin @@ -7660,13 +7653,6 @@ table 5902 "Service Line" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterCopyPrepaymentFromVATPostingSetup(var ServiceLine: Record "Service Line"; var VATPostingSetupFrom: Record "VAT Posting Setup") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeValidateLineAmount(var ServiceLine: Record "Service Line"; xServiceLine: Record "Service Line"; Currency: Record Currency; CurrentFieldNo: Integer; var IsHandled: Boolean) begin diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceLineReserve.Codeunit.al b/src/Layers/W1/BaseApp/Service/Document/ServiceLineReserve.Codeunit.al index d77ef927ffe..d94efe61898 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceLineReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceLineReserve.Codeunit.al @@ -843,13 +843,6 @@ codeunit 99000842 "Service Line-Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnSetSourceForReservationOnBeforeUpdateReservation(var ReservEntry: Record "Reservation Entry"; ServiceLine: Record "Service Line") - begin - end; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Reservation Management", 'OnAutoReserveOnBeforeStopReservation', '', true, false)] local procedure OnAutoReserveOnBeforeStopReservation(var CalcReservEntry: Record "Reservation Entry"; var StopReservation: Boolean); begin diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceOrder.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceOrder.Page.al index 11129c6e5ed..0a579a855be 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceOrder.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceOrder.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -948,24 +948,6 @@ page 5900 "Service Order" { Caption = 'Statistics'; Image = Statistics; -#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 ServiceOrderStatistics 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.OpenOrderStatistics(); - end; - } -#endif action(ServiceOrderStatistics) { ApplicationArea = Service; @@ -973,11 +955,7 @@ page 5900 "Service Order" 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 Order Statistics"; RunPageOnRec = true; } @@ -1360,18 +1338,9 @@ page 5900 "Service Order" actionref("&Dimensions_Promoted"; "&Dimensions") { } -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the ServiceOrderStatistics 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(ServiceOrderStatistics_Promoted; ServiceOrderStatistics) { } -#endif actionref("Co&mments_Promoted"; "Co&mments") { } diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceOrderStatistics.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceOrderStatistics.Page.al index c7507db82f0..f99e527ce85 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceOrderStatistics.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceOrderStatistics.Page.al @@ -1283,9 +1283,6 @@ page 5914 "Service Order Statistics" begin SalesSetup.Get(); -#if not CLEAN27 - if not Rec.SkipStatisticsPreparation() then -#endif if SalesSetup."Calc. Inv. Discount" then begin ServiceLine.SetRange("Document Type", Rec."Document Type"); ServiceLine.SetRange("Document No.", Rec."No."); @@ -1294,9 +1291,6 @@ page 5914 "Service Order Statistics" Commit(); end; end; -#if not CLEAN27 - Rec.ResetSkipStatisticsPreparationFlag(); -#endif AllowInvDisc := not (SalesSetup."Calc. Inv. Discount" and CustInvDiscRecExists(Rec."Invoice Disc. Code")); AllowVATDifference := SalesSetup."Allow VAT Difference" and (Rec."Document Type" <> Rec."Document Type"::Quote); VATLinesFormIsEditable := AllowVATDifference or AllowInvDisc; diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceOrders.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceOrders.Page.al index 239deff782d..cee4dfaeb71 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceOrders.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceOrders.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -308,24 +308,6 @@ page 9318 "Service Orders" { Caption = 'Statistics'; Image = Statistics; -#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 ServiceOrderStatistics 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.OpenOrderStatistics(); - end; - } -#endif action(ServiceOrderStatistics) { ApplicationArea = Service; @@ -333,11 +315,7 @@ page 9318 "Service Orders" 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 Order Statistics"; RunPageOnRec = true; } @@ -683,18 +661,9 @@ page 9318 "Service Orders" actionref("&Dimensions_Promoted"; "&Dimensions") { } -#if not CLEAN27 - actionref(Statistics_Promoted; Statistics) - { - ObsoleteReason = 'The statistics action will be replaced with the ServiceOrderStatistics 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(ServiceOrderStatistics_Promoted; ServiceOrderStatistics) { } -#endif actionref("Co&mments_Promoted"; "Co&mments") { } diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceQuote.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceQuote.Page.al index 114413332f0..e203b2d47bc 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceQuote.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceQuote.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -723,24 +723,6 @@ page 5964 "Service Quote" Type = const(General); ToolTip = 'View or add comments for the record.'; } -#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; @@ -748,11 +730,7 @@ page 5964 "Service Quote" 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; } @@ -922,18 +900,9 @@ page 5964 "Service Quote" 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") { } diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceQuotes.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceQuotes.Page.al index b20f53f10ea..504f84d1ab6 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceQuotes.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceQuotes.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -239,24 +239,6 @@ page 9317 "Service Quotes" Type = const(General); ToolTip = 'View or add comments for the record.'; } -#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; @@ -264,11 +246,7 @@ page 9317 "Service Quotes" 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; } @@ -375,18 +353,9 @@ page 9317 "Service Quotes" 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") { } diff --git a/src/Layers/W1/BaseApp/Service/Document/ServiceStatistics.Page.al b/src/Layers/W1/BaseApp/Service/Document/ServiceStatistics.Page.al index f26dc2e96fc..2a9b92a9782 100644 --- a/src/Layers/W1/BaseApp/Service/Document/ServiceStatistics.Page.al +++ b/src/Layers/W1/BaseApp/Service/Document/ServiceStatistics.Page.al @@ -738,13 +738,7 @@ page 6030 "Service Statistics" var ServiceCalcDiscount: Codeunit "Service-Calc. Discount"; begin -#if not CLEAN27 - if not Rec.SkipStatisticsPreparation() then -#endif ServiceCalcDiscount.CalculateIncDiscForHeader(Rec); -#if not CLEAN27 - Rec.ResetSkipStatisticsPreparationFlag(); -#endif SalesSetup.Get(); AllowInvDisc := not (SalesSetup."Calc. Inv. Discount" and CustInvDiscRecExists(Rec."Invoice Disc. Code")); AllowVATDifference := SalesSetup."Allow VAT Difference" and (Rec."Document Type" <> Rec."Document Type"::Quote); diff --git a/src/Layers/W1/BaseApp/Service/History/PostedServiceCreditMemo.Page.al b/src/Layers/W1/BaseApp/Service/History/PostedServiceCreditMemo.Page.al index 5c14c0fb0d7..729d9ad369f 100644 --- a/src/Layers/W1/BaseApp/Service/History/PostedServiceCreditMemo.Page.al +++ b/src/Layers/W1/BaseApp/Service/History/PostedServiceCreditMemo.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -517,24 +517,6 @@ page 5972 "Posted 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; @@ -542,11 +524,7 @@ page 5972 "Posted 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 Credit Memo Statistics"; RunPageOnRec = true; } @@ -723,18 +701,9 @@ page 5972 "Posted 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") { } diff --git a/src/Layers/W1/BaseApp/Service/History/PostedServiceCreditMemos.Page.al b/src/Layers/W1/BaseApp/Service/History/PostedServiceCreditMemos.Page.al index 60bd84c1613..fb403a56ac8 100644 --- a/src/Layers/W1/BaseApp/Service/History/PostedServiceCreditMemos.Page.al +++ b/src/Layers/W1/BaseApp/Service/History/PostedServiceCreditMemos.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -192,24 +192,6 @@ page 5971 "Posted Service Credit Memos" { 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; @@ -217,11 +199,7 @@ page 5971 "Posted Service Credit Memos" 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 Credit Memo Statistics"; RunPageOnRec = true; } @@ -340,18 +318,9 @@ page 5971 "Posted Service Credit Memos" group("Category_Credit Memo") { Caption = 'Credit Memo'; -#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") { } diff --git a/src/Layers/W1/BaseApp/Service/History/PostedServiceInvoice.Page.al b/src/Layers/W1/BaseApp/Service/History/PostedServiceInvoice.Page.al index 0a112be79ef..2079ee67896 100644 --- a/src/Layers/W1/BaseApp/Service/History/PostedServiceInvoice.Page.al +++ b/src/Layers/W1/BaseApp/Service/History/PostedServiceInvoice.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -544,24 +544,6 @@ page 5978 "Posted Service Invoice" { Caption = '&Invoice'; Image = Invoice; -#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; @@ -569,11 +551,7 @@ page 5978 "Posted Service Invoice" 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 Invoice Statistics"; RunPageOnRec = true; } @@ -770,19 +748,10 @@ page 5978 "Posted Service Invoice" 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") { } diff --git a/src/Layers/W1/BaseApp/Service/History/PostedServiceInvoices.Page.al b/src/Layers/W1/BaseApp/Service/History/PostedServiceInvoices.Page.al index 9d238d10d70..01f7826215c 100644 --- a/src/Layers/W1/BaseApp/Service/History/PostedServiceInvoices.Page.al +++ b/src/Layers/W1/BaseApp/Service/History/PostedServiceInvoices.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -216,24 +216,6 @@ page 5977 "Posted Service Invoices" { Caption = '&Invoice'; Image = Invoice; -#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; @@ -241,11 +223,7 @@ page 5977 "Posted Service Invoices" 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 Invoice Statistics"; RunPageOnRec = true; } @@ -393,18 +371,9 @@ page 5977 "Posted Service Invoices" actionref("Update Document_Promoted"; "Update Document") { } -#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 } } } diff --git a/src/Layers/W1/BaseApp/Service/History/PostedServiceShipment.Page.al b/src/Layers/W1/BaseApp/Service/History/PostedServiceShipment.Page.al index 84a53ef0a63..8756c897ad3 100644 --- a/src/Layers/W1/BaseApp/Service/History/PostedServiceShipment.Page.al +++ b/src/Layers/W1/BaseApp/Service/History/PostedServiceShipment.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -633,24 +633,6 @@ page 5975 "Posted Service Shipment" RunPageView = sorting(Status, "Document Type", "Document No.", "Service Item Line No.", "Allocation Date", "Starting Time", Posted); ToolTip = 'View allocation of resources, such as technicians, to service items in service orders.'; } -#if not CLEAN27 - action("S&tatistics") - { - ApplicationArea = Service; - Caption = 'S&tatistics'; - Image = Statistics; - ShortCutKey = 'F7'; - ToolTip = 'View information about the physical contents of the shipment, such as quantity of the shipped items, resource hours or costs, and weight and volume of the shipped items.'; - 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("ServiceS&tatistics") { ApplicationArea = Service; @@ -658,11 +640,7 @@ page 5975 "Posted Service Shipment" Image = Statistics; ShortCutKey = 'F7'; ToolTip = 'View information about the physical contents of the shipment, such as quantity of the shipped items, resource hours or costs, and weight and volume of the shipped items.'; -#if CLEAN27 Visible = true; -#else - Visible = false; -#endif RunObject = Page "Service Shipment Statistics"; RunPageOnRec = true; } @@ -824,18 +802,9 @@ page 5975 "Posted Service Shipment" actionref(Dimensions_Promoted; Dimensions) { } -#if not CLEAN27 - actionref("S&tatistics_Promoted"; "S&tatistics") - { - 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"; "ServiceS&tatistics") { } -#endif actionref("Co&mments_Promoted"; "Co&mments") { } diff --git a/src/Layers/W1/BaseApp/Service/History/PostedServiceShipments.Page.al b/src/Layers/W1/BaseApp/Service/History/PostedServiceShipments.Page.al index fcc55065fa5..1f2f28094d3 100644 --- a/src/Layers/W1/BaseApp/Service/History/PostedServiceShipments.Page.al +++ b/src/Layers/W1/BaseApp/Service/History/PostedServiceShipments.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -235,24 +235,6 @@ page 5974 "Posted Service Shipments" { Caption = '&Shipment'; Image = Shipment; -#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; @@ -260,11 +242,7 @@ page 5974 "Posted Service Shipments" 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 Shipment Statistics"; RunPageOnRec = true; } @@ -443,18 +421,9 @@ page 5974 "Posted Service Shipments" 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") { } diff --git a/src/Layers/W1/BaseApp/Service/History/ServiceCrMemoHeader.Table.al b/src/Layers/W1/BaseApp/Service/History/ServiceCrMemoHeader.Table.al index 2f969b1e51e..2c2760f7228 100644 --- a/src/Layers/W1/BaseApp/Service/History/ServiceCrMemoHeader.Table.al +++ b/src/Layers/W1/BaseApp/Service/History/ServiceCrMemoHeader.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -1014,17 +1014,6 @@ table 5994 "Service Cr.Memo Header" end; end; -#if not CLEAN27 - [Obsolete('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.', '27.0')] - procedure OpenStatistics() - var - StatPageID: Integer; - begin - StatPageID := Page::"Service Credit Memo Statistics"; - OnOpenStatisticsOnAfterSetStatPageID(Rec, StatPageID); - Page.RunModal(StatPageID, Rec); - end; -#endif procedure GetDocExchStatusStyle(): Text begin case "Document Exchange Status" of @@ -1102,11 +1091,4 @@ table 5994 "Service Cr.Memo Header" begin end; -#if not CLEAN27 - [Obsolete('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.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnOpenStatisticsOnAfterSetStatPageID(var ServiceCrMemoHeader: Record "Service Cr.Memo Header"; var StatPageID: Integer); - begin - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Service/History/ServiceInvoice.Report.al b/src/Layers/W1/BaseApp/Service/History/ServiceInvoice.Report.al index 57d8555fbcb..73392d0e721 100644 --- a/src/Layers/W1/BaseApp/Service/History/ServiceInvoice.Report.al +++ b/src/Layers/W1/BaseApp/Service/History/ServiceInvoice.Report.al @@ -708,11 +708,7 @@ report 5911 "Service - 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/W1/BaseApp/Service/History/ServiceInvoiceHeader.Table.al b/src/Layers/W1/BaseApp/Service/History/ServiceInvoiceHeader.Table.al index 0a20a218c7e..d0c4cbdacf2 100644 --- a/src/Layers/W1/BaseApp/Service/History/ServiceInvoiceHeader.Table.al +++ b/src/Layers/W1/BaseApp/Service/History/ServiceInvoiceHeader.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -1076,17 +1076,6 @@ table 5992 "Service Invoice Header" end; end; -#if not CLEAN27 - [Obsolete('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.', '27.0')] - procedure OpenStatistics() - var - StatPageID: Integer; - begin - StatPageID := Page::"Service Invoice Statistics"; - OnOpenStatisticsOnAfterSetStatPageID(Rec, StatPageID); - Page.RunModal(StatPageID, Rec); - end; -#endif procedure ShowActivityLog() var ActivityLog: Record "Activity Log"; @@ -1159,13 +1148,6 @@ table 5992 "Service Invoice Header" begin end; -#if not CLEAN27 - [Obsolete('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.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnOpenStatisticsOnAfterSetStatPageID(var ServiceInvoiceHeader: Record "Service Invoice Header"; var StatPageID: Integer); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnLookupAppliestoDocNoOnAfterSetFilters(ServiceInvoiceHeader: Record "Service Invoice Header"; var CustLedgerEntry: Record "Cust. Ledger Entry") diff --git a/src/Layers/W1/BaseApp/Service/History/ServiceShipmentHeader.Table.al b/src/Layers/W1/BaseApp/Service/History/ServiceShipmentHeader.Table.al index 58b500199f7..e638342c743 100644 --- a/src/Layers/W1/BaseApp/Service/History/ServiceShipmentHeader.Table.al +++ b/src/Layers/W1/BaseApp/Service/History/ServiceShipmentHeader.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -976,17 +976,6 @@ table 5990 "Service Shipment Header" SetRange("Date Filter", 0D, WorkDate() - 1); end; -#if not CLEAN27 - [Obsolete('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.', '27.0')] - procedure OpenStatistics() - var - StatPageID: Integer; - begin - StatPageID := Page::"Service Shipment Statistics"; - OnOpenStatisticsOnAfterSetStatPageID(Rec, StatPageID); - Page.RunModal(StatPageID, Rec); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeSetSecurityFilterOnRespCenter(var ServiceShipmentHeader: Record "Service Shipment Header"; var IsHandled: Boolean) begin @@ -1074,11 +1063,4 @@ table 5990 "Service Shipment Header" begin end; -#if not CLEAN27 - [Obsolete('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.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnOpenStatisticsOnAfterSetStatPageID(var ServiceShipmentHeader: Record "Service Shipment Header"; var StatPageID: Integer); - begin - end; -#endif } \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Service/Inventory/Planning/ServPlanningAvailability.Codeunit.al b/src/Layers/W1/BaseApp/Service/Inventory/Planning/ServPlanningAvailability.Codeunit.al deleted file mode 100644 index 5d2972d50ae..00000000000 --- a/src/Layers/W1/BaseApp/Service/Inventory/Planning/ServPlanningAvailability.Codeunit.al +++ /dev/null @@ -1,46 +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.Inventory.Planning; - -using Microsoft.Service.Document; - -codeunit 6497 "Serv. Planning Availability" -{ - ObsoleteState = Pending; - ObsoleteReason = 'The referenced report "Planning Availability" has been deprecated and will be removed in a future release.'; - ObsoleteTag = '27.0'; - - [EventSubscriber(ObjectType::Report, Report::Microsoft.Manufacturing.Reports."Planning Availability", 'OnCollectData', '', true, false)] - local procedure OnCollectData(var TempPlanningBuffer: Record "Planning Buffer" temporary; Selection: Boolean; var sender: Report Microsoft.Manufacturing.Reports."Planning Availability") - var - ServiceLine: Record "Service Line"; - begin - ServiceLine.SetRange("Document Type", "Service Document Type"::Order); - ServiceLine.SetRange(Type, "Service Line Type"::Item); - if ServiceLine.FindSet() then - repeat - if Selection then begin - sender.NewRecordWithDetails(ServiceLine."Needed by Date", ServiceLine."No.", ServiceLine.Description); - TempPlanningBuffer."Document Type" := TempPlanningBuffer."Document Type"::"Service Order"; - TempPlanningBuffer."Document No." := ServiceLine."Document No."; - TempPlanningBuffer."Gross Requirement" := ServiceLine."Outstanding Qty. (Base)"; - TempPlanningBuffer.Insert(); - end else begin - TempPlanningBuffer.SetRange("Item No.", ServiceLine."No."); - TempPlanningBuffer.SetRange(Date, ServiceLine."Needed by Date"); - if TempPlanningBuffer.Find('-') then begin - TempPlanningBuffer."Gross Requirement" := TempPlanningBuffer."Gross Requirement" + ServiceLine."Outstanding Qty. (Base)"; - TempPlanningBuffer.Modify(); - end else begin - sender.NewRecordWithDetails(ServiceLine."Posting Date", ServiceLine."No.", ServiceLine.Description); - TempPlanningBuffer."Gross Requirement" := ServiceLine."Outstanding Qty. (Base)"; - TempPlanningBuffer.Insert(); - end; - end; - until ServiceLine.Next() = 0; - end; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Service/Inventory/Tracking/ServGetDemandToReserve.Codeunit.al b/src/Layers/W1/BaseApp/Service/Inventory/Tracking/ServGetDemandToReserve.Codeunit.al index 44ecbcc4d86..cb75e8d8907 100644 --- a/src/Layers/W1/BaseApp/Service/Inventory/Tracking/ServGetDemandToReserve.Codeunit.al +++ b/src/Layers/W1/BaseApp/Service/Inventory/Tracking/ServGetDemandToReserve.Codeunit.al @@ -224,11 +224,4 @@ codeunit 6485 "Serv. Get Demand To Reserve" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnGetDemandOnBeforeSetTempServiceLine(var ServiceLine: Record "Service Line"; var IsHandled: Boolean) - begin - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Service/Posting/ServicePostInvoiceEvents.Codeunit.al b/src/Layers/W1/BaseApp/Service/Posting/ServicePostInvoiceEvents.Codeunit.al index 1571d9fa524..743039c423f 100644 --- a/src/Layers/W1/BaseApp/Service/Posting/ServicePostInvoiceEvents.Codeunit.al +++ b/src/Layers/W1/BaseApp/Service/Posting/ServicePostInvoiceEvents.Codeunit.al @@ -114,15 +114,6 @@ codeunit 827 "Service Post Invoice Events" OnPrepareLineOnAfterFillInvoicePostingBuffer(InvoicePostingBuffer, ServiceLine, ServiceLineACY, SuppressCommit, TempInvoicePostingBuffer); end; -#if not CLEAN27 - [Obsolete('Replaced by same procedure with parameter TempInvoicePostingBuffer', '27.0')] - procedure RunOnPrepareLineOnAfterFillInvoicePostingBuffer(var InvoicePostingBuffer: Record "Invoice Posting Buffer"; ServiceLine: Record "Service Line"; ServiceLineACY: Record "Service Line"; SuppressCommit: Boolean) - var - TempDummyInvoicePostingBuffer: Record "Invoice Posting Buffer" temporary; - begin - OnPrepareLineOnAfterFillInvoicePostingBuffer(InvoicePostingBuffer, ServiceLine, ServiceLineACY, SuppressCommit, TempDummyInvoicePostingBuffer); - end; -#endif [IntegrationEvent(false, false)] local procedure OnPrepareLineOnAfterFillInvoicePostingBuffer(var InvoicePostingBuffer: Record "Invoice Posting Buffer"; ServiceLine: Record "Service Line"; ServiceLineACY: Record "Service Line"; SuppressCommit: Boolean; var TempInvoicePostingBuffer: Record "Invoice Posting Buffer" temporary) diff --git a/src/Layers/W1/BaseApp/Service/Pricing/ServPriceListLine.TableExt.al b/src/Layers/W1/BaseApp/Service/Pricing/ServPriceListLine.TableExt.al deleted file mode 100644 index eb29720d490..00000000000 --- a/src/Layers/W1/BaseApp/Service/Pricing/ServPriceListLine.TableExt.al +++ /dev/null @@ -1,22 +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.Pricing.Worksheet; - -using Microsoft.Service.Pricing; - -// Replaced by table extension ServPriceListLineExt which extends PriceListLine table -// This is duplicate for table extension ServPriceWorksheetLine do excactly the same -tableextension 6474 "Serv. Price List Line" extends "Price Worksheet Line" -{ - fields - { - modify("Product No.") - { - TableRelation = if ("Asset Type" = const("Service Cost")) "Service Cost"; - } - } -} -#endif diff --git a/src/Layers/W1/BaseApp/Service/Sales/Receivables/ServApplyCustomerEntries.Page.al b/src/Layers/W1/BaseApp/Service/Sales/Receivables/ServApplyCustomerEntries.Page.al index 59988135acc..0e41f712d9e 100644 --- a/src/Layers/W1/BaseApp/Service/Sales/Receivables/ServApplyCustomerEntries.Page.al +++ b/src/Layers/W1/BaseApp/Service/Sales/Receivables/ServApplyCustomerEntries.Page.al @@ -1598,13 +1598,6 @@ page 5939 "Serv. Apply Customer Entries" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(true, false)] - local procedure OnSetApplyingCustLedgEntryOnBeforeCalcTypeDirectCalcApplnAmount(var CustLedgerEntry: Record "Cust. Ledger Entry"; var ApplyingAmount: Decimal; var TempApplyingCustLedgEntry: Record "Cust. Ledger Entry") - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnOnQueryClosePageOnBeforeRunCustEntryEdit(var CustLedgerEntry: Record "Cust. Ledger Entry") begin @@ -1625,13 +1618,6 @@ page 5939 "Serv. Apply Customer Entries" begin end; -#if not CLEAN27 - [Obsolete('This event is never raised.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterSetApplyingCustLedgEntryGenJnlLine(var TempApplyingCustLedgEntry: Record "Cust. Ledger Entry" temporary; var GenJnlLine: Record "Gen. Journal Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnExchangeLedgerEntryAmountsOnBeforeCalculateAmounts(var CalcCustLedgerEntry: Record "Cust. Ledger Entry"; CustLedgerEntry: Record "Cust. Ledger Entry"; CurrencyCode: Code[10]; CalculateCurrency: Boolean; var IsHandled: Boolean) begin diff --git a/src/Layers/W1/BaseApp/System/DataMigration/DataMigrationNotifier.Codeunit.al b/src/Layers/W1/BaseApp/System/DataMigration/DataMigrationNotifier.Codeunit.al index 76b6eb776c7..6e82eede39c 100644 --- a/src/Layers/W1/BaseApp/System/DataMigration/DataMigrationNotifier.Codeunit.al +++ b/src/Layers/W1/BaseApp/System/DataMigration/DataMigrationNotifier.Codeunit.al @@ -231,39 +231,6 @@ codeunit 1802 "Data Migration Notifier" if Notification.Recall() then; end; -#if not CLEAN27 - [Obsolete('This is very non-performant code. Existing callers should implement a query instead.', '27.0')] - procedure ShowContactNotificationIfCustWithoutContExist() - var - Customer: Record Customer; - ContactBusinessRelation: Record "Contact Business Relation"; - begin - if not IsNullGuid(CheckCustVendNotificationIdEnabled(DATABASE::Customer)) then - if Customer.FindSet() then - repeat - if not ContactBusinessRelation.FindByRelation(ContactBusinessRelation."Link to Table"::Customer, Customer."No.") then begin - OnCustomerListGetCurrRec(Customer); - exit; - end; - until Customer.Next() = 0; - end; - - [Obsolete('This is very non-performant code. Existing callers should implement a query instead.', '27.0')] - procedure ShowContactNotificationIfVendWithoutContExist() - var - Vendor: Record Vendor; - ContactBusinessRelation: Record "Contact Business Relation"; - begin - if not IsNullGuid(CheckCustVendNotificationIdEnabled(DATABASE::Vendor)) then - if Vendor.FindSet() then - repeat - if not ContactBusinessRelation.FindByRelation(ContactBusinessRelation."Link to Table"::Vendor, Vendor."No.") then begin - OnVendorListGetCurrRec(Vendor); - exit; - end; - until Vendor.Next() = 0; - end; -#endif [EventSubscriber(ObjectType::Page, Page::"Customer List", 'OnAfterGetCurrRecordEvent', '', false, false)] local procedure OnCustomerListGetCurrRec(var Rec: Record Customer) begin diff --git a/src/Layers/W1/BaseApp/System/JobQueue/JobQueueStartReport.Codeunit.al b/src/Layers/W1/BaseApp/System/JobQueue/JobQueueStartReport.Codeunit.al index e822ece7e2c..7df0d20c19d 100644 --- a/src/Layers/W1/BaseApp/System/JobQueue/JobQueueStartReport.Codeunit.al +++ b/src/Layers/W1/BaseApp/System/JobQueue/JobQueueStartReport.Codeunit.al @@ -143,39 +143,6 @@ codeunit 487 "Job Queue Start Report" implements "Job Queue Report Runner" REPORT.SaveAs(ReportID, JobQueueEntry.GetReportParameters(), RepFormat, OutStream); end; -#if not CLEAN27 - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Job Queue Start Report Base", OnBeforeRunReport, '', false, false)] - local procedure OnBeforeRunReportBase(ReportID: Integer; var JobQueueEntry: Record "Job Queue Entry"; var IsHandled: Boolean) - begin - OnBeforeRunReport(ReportID, JobQueueEntry, IsHandled); - end; - - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Job Queue Start Report Base", OnBeforeRunReportInterface, '', false, false)] - local procedure OnBeforeRunReportInterfaceBase(ReportID: Integer; var JobQueueEntry: Record "Job Queue Entry") - var - ReportInbox: Record "Report Inbox"; - begin - ReportInbox.Init(); - ReportInbox."User ID" := JobQueueEntry."User ID"; - ReportInbox."Job Queue Log Entry ID" := JobQueueEntry.ID; - ReportInbox."Report ID" := ReportID; - ReportInbox.Description := JobQueueEntry.Description; - OnRunReportOnAfterAssignFields(ReportInbox, JobQueueEntry); - end; - - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Job Queue Start Report Runner", OnAfterRunReport, '', false, false)] - local procedure OnAfterRunReportInterface(ReportID: Integer; var JobQueueEntry: Record "Job Queue Entry") - var - ReportInbox: Record "Report Inbox"; - begin - ReportInbox.Init(); - ReportInbox."User ID" := JobQueueEntry."User ID"; - ReportInbox."Job Queue Log Entry ID" := JobQueueEntry.ID; - ReportInbox."Report ID" := ReportID; - ReportInbox.Description := JobQueueEntry.Description; - OnRunReportOnBeforeCommit(ReportInbox, JobQueueEntry); - end; -#endif [EventSubscriber(ObjectType::Codeunit, Codeunit::"Job Queue Start Report Runner", OnAfterExecuteReport, '', false, false)] local procedure OnAfterExecuteReportBaseRunner(ReportID: Integer; var JobQueueEntry: Record "Job Queue Entry"; var ShouldModifyNotifyOnSuccess: Boolean) @@ -207,13 +174,6 @@ codeunit 487 "Job Queue Start Report" implements "Job Queue Report Runner" begin end; -#if not CLEAN27 - [IntegrationEvent(false, false)] - [Obsolete('This event has been moved to "Job Queue Start Report Base".', '27.0')] - local procedure OnBeforeRunReport(ReportID: Integer; var JobQueueEntry: Record "Job Queue Entry"; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnRunReportOnAfterCalcShouldModifyNotifyOnSuccess(ReportID: Integer; var JobQueueEntry: Record "Job Queue Entry"; var ShouldModifyNotifyOnSuccess: Boolean) @@ -221,9 +181,6 @@ codeunit 487 "Job Queue Start Report" implements "Job Queue Report Runner" end; [IntegrationEvent(false, false)] -#if not CLEAN27 // Warn users about breaking change even though event still exists - [Obsolete('This event will continue existing but only called for Job Queue Entries with output type <> None with this obsoletion. To handle Job Queue Entries of type None, hook into "Job Queue Start Report Base".OnBeforeRunReportInterface.', '27.0')] -#endif internal procedure OnRunReportOnAfterAssignFields(var ReportInbox: Record "Report Inbox"; var JobQueueEntry: Record "Job Queue Entry") begin end; @@ -239,9 +196,6 @@ codeunit 487 "Job Queue Start Report" implements "Job Queue Report Runner" end; [IntegrationEvent(false, false)] -#if not CLEAN27 // Warn users about breaking change even though event still exists - [Obsolete('This event will continue existing but only called for Job Queue Entries with output type <> None with this obsoletion. To handle Job Queue Entries of type None, hook into "Job Queue Start Report Runner".OnAfterRunReport.', '27.0')] -#endif local procedure OnRunReportOnBeforeCommit(ReportInbox: Record "Report Inbox"; var JobQueueEntry: Record "Job Queue Entry") begin end; diff --git a/src/Layers/W1/BaseApp/System/OAuth/OAuth20Setup.Table.al b/src/Layers/W1/BaseApp/System/OAuth/OAuth20Setup.Table.al index ed5881c1b6e..889bc635af9 100644 --- a/src/Layers/W1/BaseApp/System/OAuth/OAuth20Setup.Table.al +++ b/src/Layers/W1/BaseApp/System/OAuth/OAuth20Setup.Table.al @@ -183,14 +183,7 @@ table 1140 "OAuth 2.0 Setup" end; [NonDebuggable] -#if not CLEAN27 -#pragma warning disable AS0072 - [Obsolete('This method is being marked as internal. Call IsolatedStorage.SetEncrypted or IsolatedStorage.Set from your app.', '27.0')] -#pragma warning restore AS0072 internal procedure SetToken(var TokenKey: Guid; TokenValue: SecretText) -#else - internal procedure SetToken(var TokenKey: Guid; TokenValue: SecretText) -#endif begin if IsNullGuid(TokenKey) then TokenKey := CreateGuid(); @@ -202,14 +195,7 @@ table 1140 "OAuth 2.0 Setup" end; [NonDebuggable] -#if not CLEAN27 -#pragma warning disable AS0072 - [Obsolete('This method is being marked as internal. Call IsolatedStorage.Get from your app.', '27.0')] - internal procedure GetTokenAsSecretText(TokenKey: Guid) TokenValue: SecretText -#pragma warning restore AS0072 -#else internal procedure GetTokenAsSecretText(TokenKey: Guid) TokenValue: SecretText -#endif begin if not HasToken(TokenKey) then exit(TokenValue); @@ -218,14 +204,7 @@ table 1140 "OAuth 2.0 Setup" end; [NonDebuggable] -#if not CLEAN27 -#pragma warning disable AS0072 - [Obsolete('This method is being marked as internal. Call IsolatedStorage.Delete from your app.', '27.0')] internal procedure DeleteToken(TokenKey: Guid) -#pragma warning restore AS0072 -#else - internal procedure DeleteToken(TokenKey: Guid) -#endif begin if not HasToken(TokenKey) then exit; @@ -234,14 +213,7 @@ table 1140 "OAuth 2.0 Setup" end; [NonDebuggable] -#if not CLEAN27 -#pragma warning disable AS0072 - [Obsolete('This method is being marked as internal. Call IsolatedStorage.Contains from your app.', '27.0')] - internal procedure HasToken(TokenKey: Guid): Boolean -#pragma warning restore AS0072 -#else internal procedure HasToken(TokenKey: Guid): Boolean -#endif begin exit(not IsNullGuid(TokenKey) and IsolatedStorage.Contains(TokenKey, GetTokenDataScope())); end; @@ -261,14 +233,7 @@ table 1140 "OAuth 2.0 Setup" end; [NonDebuggable] -#if not CLEAN27 -#pragma warning disable AS0072 - [Obsolete('This method is being marked as internal. Get the Rec."Client ID" from IsolatedStorage, call OAuth20Mgt.GetAuthorizationURLAsSecretText with it, unwrap the result and make a hyperlink.', '27.0')] internal procedure RequestAuthorizationCode() -#pragma warning restore AS0072 -#else - internal procedure RequestAuthorizationCode() -#endif var Processed: Boolean; begin @@ -282,14 +247,7 @@ table 1140 "OAuth 2.0 Setup" end; [NonDebuggable] -#if not CLEAN27 -#pragma warning disable AS0072 - [Obsolete('This method is being marked as internal. Get the client credentials from IsolatedStorage using Rec."Client ID" and Rec."Client Secret", call OAuth20Mgt.RequestAccessToken or implement this yourself, then save the access token with IsolatedStorage.SetEncrypted or IsolatedStorage.Set.', '27.0')] - internal procedure RequestAccessToken(var MessageText: Text; AuthorizationCode: Text) Result: Boolean -#pragma warning restore AS0072 -#else internal procedure RequestAccessToken(var MessageText: Text; AuthorizationCode: Text) Result: Boolean -#endif var Processed: Boolean; begin @@ -301,14 +259,7 @@ table 1140 "OAuth 2.0 Setup" end; [NonDebuggable] -#if not CLEAN27 -#pragma warning disable AS0072 - [Obsolete('This method is being marked as internal. Get the refresh token with IsolatedStorage.Get(Rec."Refresh Token"), then call OAuth20Mgt.RefreshAccessToken with it and save the access token with IsolatedStorage.SetEncrypted or IsolatedStorage.Set.', '27.0')] internal procedure RefreshAccessToken(var MessageText: Text) Result: Boolean -#pragma warning restore AS0072 -#else - internal procedure RefreshAccessToken(var MessageText: Text) Result: Boolean -#endif var Processed: Boolean; begin @@ -318,14 +269,7 @@ table 1140 "OAuth 2.0 Setup" end; [NonDebuggable] -#if not CLEAN27 -#pragma warning disable AS0072 - [Obsolete('This method is being marked as internal. Implement your version of InvokeRequest by getting the Rec."Access Token" from IsolatedStorage, then calling public method OAuth20Mgt.InvokeRequest with it. If you set parameter RetryOnCredentialsFailure to true, you must also subscribe to event OnBeforeRefreshAccessToken raised by OAuth20Setup table and process it with your implementation of RefreshAccessToken and subscribe to OnBeforeInvokeRequest event raised by OAuth20Setup table and process it with your implementation of InvokeRequest (this implementation)', '27.0')] - internal procedure InvokeRequest(RequestJSON: Text; var ResponseJSON: Text; var HttpError: Text; RetryOnCredentialsFailure: Boolean) Result: Boolean -#pragma warning restore AS0072 -#else internal procedure InvokeRequest(RequestJSON: Text; var ResponseJSON: Text; var HttpError: Text; RetryOnCredentialsFailure: Boolean) Result: Boolean -#endif var Processed: Boolean; begin diff --git a/src/Layers/W1/BaseApp/System/RapidStart/ConfigSetup.Table.al b/src/Layers/W1/BaseApp/System/RapidStart/ConfigSetup.Table.al index a683494e540..81473dbc20c 100644 --- a/src/Layers/W1/BaseApp/System/RapidStart/ConfigSetup.Table.al +++ b/src/Layers/W1/BaseApp/System/RapidStart/ConfigSetup.Table.al @@ -179,13 +179,7 @@ table 8627 "Config. Setup" { Caption = 'Email'; } -#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'; ExtendedDatatype = URL; diff --git a/src/Layers/W1/BaseApp/System/Utilities/TypeHelper.Codeunit.al b/src/Layers/W1/BaseApp/System/Utilities/TypeHelper.Codeunit.al index 706c0f42a22..45ea15123e4 100644 --- a/src/Layers/W1/BaseApp/System/Utilities/TypeHelper.Codeunit.al +++ b/src/Layers/W1/BaseApp/System/Utilities/TypeHelper.Codeunit.al @@ -1,4 +1,4 @@ -namespace System.Reflection; +namespace System.Reflection; using Microsoft.Finance.GeneralLedger.Setup; using System; @@ -495,17 +495,6 @@ codeunit 10 "Type Helper" exit(EncodedValue); end; -#if not CLEAN27 - [NonDebuggable] - [Obsolete('Use UrlEncode with secret text.', '27.0')] - procedure UrlEncodeSecret(var Value: Text): Text - var - HttpUtility: DotNet HttpUtility; - begin - Value := HttpUtility.UrlEncode(Value); - exit(Value); - end; -#endif procedure UrlDecode(var Value: Text): Text var diff --git a/src/Layers/W1/BaseApp/System/Workflow/WorkflowCustomerEntity.Page.al b/src/Layers/W1/BaseApp/System/Workflow/WorkflowCustomerEntity.Page.al index f2e498f9425..eed75be95a0 100644 --- a/src/Layers/W1/BaseApp/System/Workflow/WorkflowCustomerEntity.Page.al +++ b/src/Layers/W1/BaseApp/System/Workflow/WorkflowCustomerEntity.Page.al @@ -201,16 +201,6 @@ page 6408 "Workflow - Customer Entity" ApplicationArea = All; Caption = 'Blocked', Locked = true; } -#if not CLEAN27 - field(invoiceCopies; Rec."Invoice Copies") - { - ApplicationArea = All; - Caption = 'Invoice Copies', Locked = true; - ObsoleteReason = 'This field is not used consequently and hence does not work as expected. It should be retired.'; - ObsoleteState = Pending; - ObsoleteTag = '27.0'; - } -#endif field(lastStatementNumber; Rec."Last Statement No.") { ApplicationArea = All; diff --git a/src/Layers/W1/BaseApp/Utilities/SmallBusinessReportCatalog.Codeunit.al b/src/Layers/W1/BaseApp/Utilities/SmallBusinessReportCatalog.Codeunit.al deleted file mode 100644 index 1dfa1a82b82..00000000000 --- a/src/Layers/W1/BaseApp/Utilities/SmallBusinessReportCatalog.Codeunit.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.Utilities; - -using Microsoft.Finance.GeneralLedger.Reports; -using Microsoft.Foundation.Period; -using Microsoft.Purchases.Reports; -using Microsoft.Sales.Customer; -using Microsoft.Sales.Reports; -using System.IO; - -codeunit 9025 "Small Business Report Catalog" -{ - ObsoleteState = Pending; - ObsoleteReason = 'The page that this codeunit is used in is no longer used. Therefore, this codeunit is no longer needed.'; - ObsoleteTag = '27.0'; - - trigger OnRun() - begin - end; - - var - ToFileNameTxt: Label 'DetailTrialBalance.xlsx'; - - procedure RunAgedAccountsReceivableReport(UseRequestPage: Boolean) - var - AgedAccountsReceivable: Report "Aged Accounts Receivable"; - PeriodLength: DateFormula; - AgingBy: Option "Due Date","Posting Date","Document Date"; - HeadingType: Option "Date Interval","Number of Days"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeRunAgedAccountsReceivableReport(UseRequestPage, IsHandled); - if IsHandled then - exit; - - Evaluate(PeriodLength, '<30D>'); - AgedAccountsReceivable.InitializeRequest( - WorkDate(), AgingBy::"Posting Date", PeriodLength, false, false, HeadingType::"Date Interval", false); - AgedAccountsReceivable.UseRequestPage(UseRequestPage); - - AgedAccountsReceivable.Run(); - end; - - procedure RunAgedAccountsPayableReport(UseRequestPage: Boolean) - var - AgedAccountsPayable: Report "Aged Accounts Payable"; - PeriodLength: DateFormula; - AgingBy: Option "Due Date","Posting Date","Document Date"; - HeadingType: Option "Date Interval","Number of Days"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeRunAgedAccountsPayableReport(UseRequestPage, IsHandled); - if IsHandled then - exit; - - Evaluate(PeriodLength, '<30D>'); - AgedAccountsPayable.InitializeRequest( - WorkDate(), AgingBy::"Posting Date", PeriodLength, false, false, HeadingType::"Date Interval", false); - AgedAccountsPayable.UseRequestPage(UseRequestPage); - - AgedAccountsPayable.Run(); - end; - - procedure RunCustomerTop10ListReport(UseRequestPage: Boolean) - var - CustomerTop10ListReport: Report "Customer - Top 10 List"; - ChartType: Option "Bar chart","Pie chart"; - ShowType: Option "Sales (LCY)","Balance (LCY)"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeRunCustomerTop10ListReport(UseRequestPage, IsHandled); - if IsHandled then - exit; - - CustomerTop10ListReport.InitializeRequest(ChartType::"Bar chart", ShowType::"Sales (LCY)", 10); - CustomerTop10ListReport.UseRequestPage(UseRequestPage); - CustomerTop10ListReport.Run(); - end; - - procedure RunVendorTop10ListReport(UseRequestPage: Boolean) - var - VendorTop10ListReport: Report "Vendor - Top 10 List"; - ShowType: Option "Purchases (LCY)","Balance (LCY)"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeRunVendorTop10ListReport(UseRequestPage, IsHandled); - if IsHandled then - exit; - - VendorTop10ListReport.InitializeRequest(ShowType::"Purchases (LCY)", 10); - VendorTop10ListReport.UseRequestPage(UseRequestPage); - VendorTop10ListReport.Run(); - end; - - procedure RunCustomerStatementReport(UseRequestPage: Boolean) - var - CustomerStatementReport: Report Statement; - AccountingPeriodMgt: Codeunit "Accounting Period Mgt."; - NewPrintEntriesDue: Boolean; - NewPrintAllHavingEntry: Boolean; - NewPrintAllHavingBal: Boolean; - NewPrintReversedEntries: Boolean; - NewPrintUnappliedEntries: Boolean; - NewIncludeAgingBand: Boolean; - NewPeriodLength: Text[30]; - NewDateChoice: Option; - NewLogInteraction: Boolean; - NewStartDate: Date; - NewEndDate: Date; - DateChoice: Option "Due Date","Posting Date"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeRunCustomerStatementReport(UseRequestPage, IsHandled); - if IsHandled then - exit; - - // Use default parameters when you launch the request page, with Start/End Date being the YTD of current financial year - NewPrintEntriesDue := false; - NewPrintAllHavingEntry := false; - NewPrintAllHavingBal := true; - NewPrintReversedEntries := false; - NewPrintUnappliedEntries := false; - NewIncludeAgingBand := false; - NewPeriodLength := '<1M+CM>'; - NewDateChoice := DateChoice::"Due Date"; - NewLogInteraction := true; - - NewStartDate := AccountingPeriodMgt.FindFiscalYear(WorkDate()); - NewEndDate := WorkDate(); - - CustomerStatementReport.InitializeRequest( - NewPrintEntriesDue, NewPrintAllHavingEntry, NewPrintAllHavingBal, NewPrintReversedEntries, - NewPrintUnappliedEntries, NewIncludeAgingBand, NewPeriodLength, NewDateChoice, - NewLogInteraction, NewStartDate, NewEndDate); - CustomerStatementReport.UseRequestPage(UseRequestPage); - CustomerStatementReport.Run(); - end; - - procedure RunTrialBalanceReport(UseRequestPage: Boolean) - var - TrialBalance: Report "Trial Balance"; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeRunTrialBalanceReport(UseRequestPage, IsHandled); - if IsHandled then - exit; - - TrialBalance.UseRequestPage(UseRequestPage); - TrialBalance.Run(); - end; - - [Scope('OnPrem')] - procedure RunDetailTrialBalanceReport(UseRequestPage: Boolean) - var - DetailTrialBalance: Report "Detail Trial Balance"; - FileMgt: Codeunit "File Management"; - FileName: Text; - ToFile: Text; - IsHandled: Boolean; - begin - IsHandled := false; - OnBeforeRunDetailTrialBalanceReport(UseRequestPage, IsHandled); - if IsHandled then - exit; - - DetailTrialBalance.UseRequestPage(UseRequestPage); - - FileName := FileMgt.ServerTempFileName('xlsx'); - // Render report on the server - DetailTrialBalance.SaveAsExcel(FileName); - - ToFile := ToFileNameTxt; - Download(FileName, '', FileMgt.Magicpath(), '', ToFile); - Erase(FileName); - end; - - [IntegrationEvent(false, false)] - local procedure OnBeforeRunCustomerStatementReport(UseRequestPage: Boolean; var IsHandled: Boolean) - begin - end; - - [IntegrationEvent(false, false)] - local procedure OnBeforeRunCustomerTop10ListReport(UseRequestPage: Boolean; var IsHandled: Boolean) - begin - end; - - [IntegrationEvent(false, false)] - local procedure OnBeforeRunVendorTop10ListReport(UseRequestPage: Boolean; var IsHandled: Boolean) - begin - end; - - [IntegrationEvent(false, false)] - local procedure OnBeforeRunTrialBalanceReport(UseRequestPage: Boolean; var IsHandled: Boolean) - begin - end; - - [IntegrationEvent(false, false)] - local procedure OnBeforeRunDetailTrialBalanceReport(UseRequestPage: Boolean; var IsHandled: Boolean) - begin - end; - - [IntegrationEvent(false, false)] - local procedure OnBeforeRunAgedAccountsReceivableReport(UseRequestPage: Boolean; var IsHandled: Boolean) - begin - end; - - [IntegrationEvent(false, false)] - local procedure OnBeforeRunAgedAccountsPayableReport(UseRequestPage: Boolean; var IsHandled: Boolean) - begin - end; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Utilities/SmallBusinessReportCatalog.Page.al b/src/Layers/W1/BaseApp/Utilities/SmallBusinessReportCatalog.Page.al deleted file mode 100644 index 99d067e34c5..00000000000 --- a/src/Layers/W1/BaseApp/Utilities/SmallBusinessReportCatalog.Page.al +++ /dev/null @@ -1,137 +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.Utilities; - -page 9025 "Small Business Report Catalog" -{ - Caption = 'Report Catalog'; - PageType = CardPart; - ObsoleteState = Pending; - ObsoleteReason = 'This page is no longer used.'; - ObsoleteTag = '27.0'; - - layout - { - area(content) - { - cuegroup(AgedAccountsReports) - { - Caption = 'Aged Accounts Reports'; - - actions - { - action(AgedAccountsReceivable) - { - ApplicationArea = Basic, Suite; - Caption = 'Aged Accounts Receivable'; - Image = TileReport; - RunPageMode = Create; - ToolTip = 'Specifies amounts owed by customers and the length of time outstanding.'; - - trigger OnAction() - begin - SmallBusinessReportCatalogCU.RunAgedAccountsReceivableReport(false); - end; - } - action(AgedAccountsPayable) - { - ApplicationArea = Basic, Suite; - Caption = 'Aged Accounts Payable'; - Image = TileReport; - RunPageMode = Create; - ToolTip = 'Specifies amounts owed to creditors and the length of time outstanding.'; - - trigger OnAction() - begin - SmallBusinessReportCatalogCU.RunAgedAccountsPayableReport(false); - end; - } - } - } - cuegroup(CustomersAndVendors) - { - Caption = 'Customers and Vendors'; - - actions - { - action(CustomerTop10List) - { - ApplicationArea = Basic, Suite; - Caption = 'Customer Top 10 List'; - ToolTip = 'Specifies information about customers'' purchases and balances.'; - - trigger OnAction() - begin - SmallBusinessReportCatalogCU.RunCustomerTop10ListReport(false); - end; - } - action(VendorTop10List) - { - ApplicationArea = Basic, Suite; - Caption = 'Vendor Top 10 List'; - ToolTip = 'View a list of the vendors from whom you purchase the most or to whom you owe the most.'; - - trigger OnAction() - begin - SmallBusinessReportCatalogCU.RunVendorTop10ListReport(false); - end; - } - action(CustomerStatement) - { - ApplicationArea = Basic, Suite; - Caption = 'Customer Statement'; - ToolTip = 'Specifies a list of customer statements.'; - - trigger OnAction() - begin - SmallBusinessReportCatalogCU.RunCustomerStatementReport(false); - end; - } - } - } - cuegroup(OtherReports) - { - Caption = 'Other Reports'; - - actions - { - action("Trial Balance") - { - ApplicationArea = Basic, Suite; - Caption = 'Trial Balance'; - Image = TileCurrency; - ToolTip = 'Specifies the chart of accounts with balances and net changes. You can use the report at the close of an accounting period or fiscal year.'; - - trigger OnAction() - begin - SmallBusinessReportCatalogCU.RunTrialBalanceReport(false); - end; - } - action("Detail Trial Balance") - { - ApplicationArea = Basic, Suite; - Caption = 'Detail Trial Balance'; - Image = TileCurrency; - ToolTip = 'Specifies general ledger account balances and activities.'; - - trigger OnAction() - begin - SmallBusinessReportCatalogCU.RunDetailTrialBalanceReport(false); - end; - } - } - } - } - } - - actions - { - } - - var - SmallBusinessReportCatalogCU: Codeunit "Small Business Report Catalog"; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Warehouse/Activity/CreateInventoryPickMovement.Codeunit.al b/src/Layers/W1/BaseApp/Warehouse/Activity/CreateInventoryPickMovement.Codeunit.al index 9ef427e40e6..6ebe6766db4 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Activity/CreateInventoryPickMovement.Codeunit.al +++ b/src/Layers/W1/BaseApp/Warehouse/Activity/CreateInventoryPickMovement.Codeunit.al @@ -2490,18 +2490,6 @@ codeunit 7322 "Create Inventory Pick/Movement" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCreatePickOrMoveLineFromProductionLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnBeforeCreatePickOrMoveLineFromProductionLoop(WarehouseActivityHeader, ProductionOrder, IsHandled, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgCreateInvtPickMovement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCreatePickOrMoveLineFromProductionLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCreateATOInventoryMovementsAutomatically(AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; PrintDocumentForATOMvmt: Boolean; ShowErrorForATOMvmt: Boolean; var IsHandled: Boolean) @@ -2518,18 +2506,6 @@ codeunit 7322 "Create Inventory Pick/Movement" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCreatePickOrMoveLineFromAssemblyLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var IsHandled: Boolean; AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line") - begin - OnBeforeCreatePickOrMoveLineFromAssemblyLoop(WarehouseActivityHeader, AssemblyHeader, IsHandled, AssemblyLine); - end; - - [Obsolete('Moved to codeunit AsmCreateInvtPickMovement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCreatePickOrMoveLineFromAssemblyLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; var IsHandled: Boolean; AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCreateTempHandlingSpec(WarehouseActivityLine: Record "Warehouse Activity Line"; var TotalQtyToPickBase: Decimal; var IsHandled: Boolean) @@ -2561,31 +2537,7 @@ codeunit 7322 "Create Inventory Pick/Movement" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeNewWhseActivLineInsertFromAssembly(var WarehouseActivityLine: Record "Warehouse Activity Line"; var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var RemQtyToPickBase: Decimal) - begin - OnBeforeNewWhseActivLineInsertFromAssembly(WarehouseActivityLine, AssemblyLine, WarehouseActivityHeader, RemQtyToPickBase); - end; - - [Obsolete('Moved to codeunit AsmCreateInvtPickMovement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeNewWhseActivLineInsertFromAssembly(var WarehouseActivityLine: Record "Warehouse Activity Line"; var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var RemQtyToPickBase: Decimal) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeNewWhseActivLineInsertFromComp(var WarehouseActivityLine: Record "Warehouse Activity Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var RemQtyToPickBase: Decimal) - begin - OnBeforeNewWhseActivLineInsertFromComp(WarehouseActivityLine, ProdOrderComp, WarehouseActivityHeader, RemQtyToPickBase); - end; - [Obsolete('Moved to codeunit MfgCreateInvtPickMovement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeNewWhseActivLineInsertFromComp(var WarehouseActivityLine: Record "Warehouse Activity Line"; var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var RemQtyToPickBase: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeOnRun(var WarehouseActivityHeader: Record "Warehouse Activity Header") @@ -2607,31 +2559,7 @@ codeunit 7322 "Create Inventory Pick/Movement" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeFindAssemblyLine(var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; WarehouseActivityHeader: Record "Warehouse Activity Header") - begin - OnBeforeFindAssemblyLine(AssemblyLine, AssemblyHeader, WarehouseActivityHeader); - end; - - [Obsolete('Moved to codeunit AsmCreateInvtPickMovement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFindAssemblyLine(var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; AssemblyHeader: Record Microsoft.Assembly.Document."Assembly Header"; WarehouseActivityHeader: Record "Warehouse Activity Header") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; WarehouseActivityHeader: Record "Warehouse Activity Header") - begin - OnBeforeFindProdOrderComp(ProdOrderComp, ProductionOrder, WarehouseActivityHeader); - end; - - [Obsolete('Moved to codeunit MfgCreateInvtPickMovement', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; WarehouseActivityHeader: Record "Warehouse Activity Header") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGetSourceDocHeader(var WhseRequest: Record "Warehouse Request"; var IsHandled: Boolean; var RecordExists: Boolean) diff --git a/src/Layers/W1/BaseApp/Warehouse/Activity/CreateInventoryPutaway.Codeunit.al b/src/Layers/W1/BaseApp/Warehouse/Activity/CreateInventoryPutaway.Codeunit.al index a421cd2efd8..4fa39b7e195 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Activity/CreateInventoryPutaway.Codeunit.al +++ b/src/Layers/W1/BaseApp/Warehouse/Activity/CreateInventoryPutaway.Codeunit.al @@ -621,17 +621,6 @@ codeunit 7321 "Create Inventory Put-away" exit(TransferLine.Find('-')); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit MfgCreateInventoiryPutaway', '27.0')] - procedure SetFilterProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"): Boolean - var - MfgCreateInventoryPutaway: Codeunit "Mfg. Create Inventory Put-Away"; - begin - exit( - MfgCreateInventoryPutaway.SetFilterProdOrderLine( - ProdOrderLine, ProductionOrder, CurrWarehouseActivityHeader, WarehouseSourceFilter, CheckLineExist, ApplySourceFilters)); - end; -#endif // Helper methods procedure CreateWarehouseActivityLine( @@ -883,12 +872,6 @@ codeunit 7321 "Create Inventory Put-away" OnBeforeNewWhseActivLineInsertFromSales(WarehouseActivityLine, RecordVariant); Database::"Transfer Line": OnBeforeNewWhseActivLineInsertFromTransfer(WarehouseActivityLine, RecordVariant); -#if not CLEAN27 - 5406: // Database::"Prod. Order Line" - OnBeforeNewWhseActivLineInsertFromProd(WarehouseActivityLine, RecordVariant); - 5407: // Database::"Prod. Order Component" - OnBeforeNewWhseActivLineInsertFromComp(WarehouseActivityLine, RecordVariant); -#endif else OnRaiseOnBeforeNewWhseActivLineInsertFromEvent(WarehouseActivityLine, RecordVariant, RecordRefToCheck); end; @@ -1343,21 +1326,7 @@ codeunit 7321 "Create Inventory Put-away" begin end; -#if not CLEAN27 - [Obsolete('Replaced by event OnRaiseOnBeforeNewWhseActivLineInsertFromEvent', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeNewWhseActivLineInsertFromProd(var WarehouseActivityLine: Record "Warehouse Activity Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by event OnRaiseOnBeforeNewWhseActivLineInsertFromEvent', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeNewWhseActivLineInsertFromComp(var WarehouseActivityLine: Record "Warehouse Activity Line"; ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnRaiseOnBeforeNewWhseActivLineInsertFromEvent(var WarehouseActivityLine: Record "Warehouse Activity Line"; RecordVariant: Variant; RecordRefToCheck: RecordRef) @@ -1379,31 +1348,7 @@ codeunit 7321 "Create Inventory Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeFindProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; WarehouseActivityHeader: Record "Warehouse Activity Header") - begin - OnBeforeFindProdOrderLine(ProdOrderLine, WarehouseActivityHeader); - end; - [Obsolete('Moved to codeunit MfgCreateInventoryPutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFindProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; WarehouseActivityHeader: Record "Warehouse Activity Header") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; WarehouseActivityHeader: Record "Warehouse Activity Header") - begin - OnBeforeFindProdOrderComp(ProdOrderComp, WarehouseActivityHeader); - end; - - [Obsolete('Moved to codeunit MfgCreateInventoryPutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFindProdOrderComp(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; WarehouseActivityHeader: Record "Warehouse Activity Header") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGetSourceDocHeader(var WarehouseRequest: Record "Warehouse Request"; var IsHandled: Boolean) @@ -1430,31 +1375,7 @@ codeunit 7321 "Create Inventory Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCreatePutAwayLinesFromCompLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnBeforeCreatePutAwayLinesFromCompLoop(WarehouseActivityHeader, ProductionOrder, IsHandled, ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgCreateInventoryPutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCreatePutAwayLinesFromCompLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeCreatePutAwayLinesFromProdLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - OnBeforeCreatePutAwayLinesFromProdLoop(WarehouseActivityHeader, ProductionOrder, IsHandled, ProdOrderLine); - end; - - [Obsolete('Moved to codeunit MfgCreateInventoryPutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCreatePutAwayLinesFromProdLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order"; var IsHandled: Boolean; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCreatePutAwayLinesFromPurchaseLoop(var WarehouseActivityHeader: Record "Warehouse Activity Header"; PurchaseHeader: Record "Purchase Header"; var IsHandled: Boolean; PurchaseLine: Record "Purchase Line") @@ -1486,31 +1407,7 @@ codeunit 7321 "Create Inventory Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeFindReservationFromProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) - begin - OnBeforeFindReservationFromProdOrderLine(ProdOrderLine, WhseItemTrackingSetup, ItemTrackingMgt, ReservationFound, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgCreateInventoryPutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFindReservationFromProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeFindReservationFromProdOrderComponent(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) - begin - OnBeforeFindReservationFromProdOrderComponent(ProdOrderComp, WhseItemTrackingSetup, ItemTrackingMgt, ReservationFound, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgCreateInventoryPutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFindReservationFromProdOrderComponent(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var WhseItemTrackingSetup: Record "Item Tracking Setup"; var ItemTrackingMgt: Codeunit "Item Tracking Management"; var ReservationFound: Boolean; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(true, false)] local procedure OnAutoCreatePutAwayLinesFromWhseRequest(var WarehouseRequest: Record "Warehouse Request"; SourceDocRecRef: RecordRef; var LineCreated: Boolean; var SourceDocRecVar: Variant; var RemQtyToPutaway: Decimal; var WarehouseActivityHeader: Record "Warehouse Activity Header"; var WarehouseSourceFilter: Record "Warehouse Source Filter"; CheckLineExist: Boolean; ApplySourceFilters: Boolean) @@ -1567,31 +1464,7 @@ codeunit 7321 "Create Inventory Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnCreatePutawayForProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RemQtyToPutAway: Decimal) - begin - OnCreatePutawayForProdOrderLine(ProdOrderLine, RemQtyToPutAway); - end; - - [Obsolete('Moved to codeunit MfgCreateInventoryPutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCreatePutawayForProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var RemQtyToPutAway: Decimal) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnCreatePutawayForProdOrderComponent(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var RemQtyToPutAway: Decimal) - begin - OnCreatePutawayForProdOrderComponent(ProdOrderComponent, RemQtyToPutAway); - end; - [Obsolete('Moved to codeunit MfgCreateInventoryPutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCreatePutawayForProdOrderComponent(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; var RemQtyToPutAway: Decimal) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnGetWhseRequestOnAfterFilterGroup(WarehouseRequest: Record "Warehouse Request"; var Result: Boolean; var IsHandled: Boolean) diff --git a/src/Layers/W1/BaseApp/Warehouse/Activity/CreatePick.Codeunit.al b/src/Layers/W1/BaseApp/Warehouse/Activity/CreatePick.Codeunit.al index 07be15a7eff..89adc2f152f 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Activity/CreatePick.Codeunit.al +++ b/src/Layers/W1/BaseApp/Warehouse/Activity/CreatePick.Codeunit.al @@ -2220,32 +2220,7 @@ codeunit 7312 "Create Pick" OnAfterSetWhseInternalPickLine(CurrWhseInternalPickLine); end; -#if not CLEAN27 - [Obsolete('Replaced by SetCustomWhseSourceLine', '27.0')] - procedure SetProdOrderCompLine(ProdOrderComponentLine2: Record Microsoft.Manufacturing.Document."Prod. Order Component"; TempNo2: Integer) - begin - SetCustomWhseSourceLine( - ProdOrderComponentLine2, TempNo2, Database::Microsoft.Manufacturing.Document."Prod. Order Component", - ProdOrderComponentLine2.Status.AsInteger(), ProdOrderComponentLine2."Prod. Order No.", - ProdOrderComponentLine2."Prod. Order Line No.", ProdOrderComponentLine2."Line No."); - - OnAfterSetProdOrderCompLine(ProdOrderComponentLine2); - CustomWhseSourceLine := ProdOrderComponentLine2; - end; -#endif -#if not CLEAN27 - [Obsolete('Replaced by SetCustomWhseSourceLine', '27.0')] - procedure SetAssemblyLine(AssemblyLine2: Record Microsoft.Assembly.Document."Assembly Line"; TempNo2: Integer) - begin - SetCustomWhseSourceLine( - AssemblyLine2, TempNo2, Database::Microsoft.Assembly.Document."Assembly Line", - AssemblyLine2."Document Type".AsInteger(), AssemblyLine2."Document No.", AssemblyLine2."Line No.", 0); - - OnAfterSetAssemblyLine(AssemblyLine2); - CustomWhseSourceLine := AssemblyLine2; - end; -#endif procedure SetJobPlanningLine(JobPlanningLine2: Record "Job Planning Line") begin @@ -3518,78 +3493,6 @@ codeunit 7312 "Create Pick" TotalQtyToPickBase := TotalQtyToPickBase - ToQtyToPickBase; end; -#if not CLEAN27 - // Replaced by Query CalcOutstandQtyOnWhseActLine - internal procedure CalcTotalQtyAssgndOnWhse(LocationCode: Code[10]; ItemNo: Code[20]; VariantCode: Code[10]): Decimal - var - WhseShipmentLine: Record "Warehouse Shipment Line"; - ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component"; - AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; - QtyAssgndToWhseAct: Decimal; - QtyAssgndToShipment: Decimal; - QtyAssgndToProdComp: Decimal; - QtyAssgndToAsmLine: Decimal; - begin - QtyAssgndToWhseAct += - CalcTotalQtyAssgndOnWhseAct("Warehouse Activity Type"::" ", LocationCode, ItemNo, VariantCode); - QtyAssgndToWhseAct += - CalcTotalQtyAssgndOnWhseAct("Warehouse Activity Type"::"Put-away", LocationCode, ItemNo, VariantCode); - QtyAssgndToWhseAct += - CalcTotalQtyAssgndOnWhseAct("Warehouse Activity Type"::Pick, LocationCode, ItemNo, VariantCode); - QtyAssgndToWhseAct += - CalcTotalQtyAssgndOnWhseAct("Warehouse Activity Type"::Movement, LocationCode, ItemNo, VariantCode); - QtyAssgndToWhseAct += - CalcTotalQtyAssgndOnWhseAct("Warehouse Activity Type"::"Invt. Put-away", LocationCode, ItemNo, VariantCode); - QtyAssgndToWhseAct += - CalcTotalQtyAssgndOnWhseAct("Warehouse Activity Type"::"Invt. Pick", LocationCode, ItemNo, VariantCode); - - WhseShipmentLine.SetCurrentKey("Item No.", "Location Code", "Variant Code", "Due Date"); - WhseShipmentLine.SetRange("Location Code", LocationCode); - WhseShipmentLine.SetRange("Item No.", ItemNo); - WhseShipmentLine.SetRange("Variant Code", VariantCode); - WhseShipmentLine.CalcSums("Qty. Picked (Base)", "Qty. Shipped (Base)"); - QtyAssgndToShipment := WhseShipmentLine."Qty. Picked (Base)" - WhseShipmentLine."Qty. Shipped (Base)"; - - ProdOrderComp.SetCurrentKey("Item No.", "Variant Code", "Location Code", Status, "Due Date"); - ProdOrderComp.SetRange("Location Code", LocationCode); - ProdOrderComp.SetRange("Item No.", ItemNo); - ProdOrderComp.SetRange("Variant Code", VariantCode); - ProdOrderComp.SetRange(Status, ProdOrderComp.Status::Released); - ProdOrderComp.CalcSums("Qty. Picked (Base)", "Expected Qty. (Base)", "Remaining Qty. (Base)"); - QtyAssgndToProdComp := ProdOrderComp."Qty. Picked (Base)" - (ProdOrderComp."Expected Qty. (Base)" - ProdOrderComp."Remaining Qty. (Base)"); - - AssemblyLine.SetCurrentKey("Document Type", Type, "No.", "Variant Code", "Location Code"); - AssemblyLine.SetRange("Document Type", AssemblyLine."Document Type"::Order); - AssemblyLine.SetRange("Location Code", LocationCode); - AssemblyLine.SetRange(Type, AssemblyLine.Type::Item); - AssemblyLine.SetRange("No.", ItemNo); - AssemblyLine.SetRange("Variant Code", VariantCode); - AssemblyLine.CalcSums("Qty. Picked (Base)", "Consumed Quantity (Base)"); - QtyAssgndToAsmLine := AssemblyLine.CalcQtyPickedNotConsumedBase(); - - OnAfterCalcTotalQtyAssgndOnWhse( - LocationCode, ItemNo, VariantCode, QtyAssgndToWhseAct, QtyAssgndToShipment, QtyAssgndToProdComp, QtyAssgndToAsmLine); - - exit(QtyAssgndToWhseAct + QtyAssgndToShipment + QtyAssgndToProdComp + QtyAssgndToAsmLine); - end; - - local procedure CalcTotalQtyAssgndOnWhseAct(ActivityType: Enum "Warehouse Activity Type"; LocationCode: Code[10]; ItemNo: Code[20]; VariantCode: Code[10]): Decimal - var - WarehouseActivityLine: Record "Warehouse Activity Line"; - begin - WarehouseActivityLine.SetCurrentKey( - "Item No.", "Location Code", "Activity Type", "Bin Type Code", - "Unit of Measure Code", "Variant Code", "Breakbulk No.", "Action Type"); - WarehouseActivityLine.SetRange("Location Code", LocationCode); - WarehouseActivityLine.SetRange("Item No.", ItemNo); - WarehouseActivityLine.SetRange("Variant Code", VariantCode); - WarehouseActivityLine.SetRange("Activity Type", ActivityType); - WarehouseActivityLine.SetRange("Breakbulk No.", 0); - WarehouseActivityLine.SetFilter("Action Type", '%1|%2', "Warehouse Action Type"::" ", "Warehouse Action Type"::Take); - WarehouseActivityLine.CalcSums("Qty. Outstanding (Base)"); - exit(WarehouseActivityLine."Qty. Outstanding (Base)"); - end; -#endif procedure CalcTotalQtyOnBinType(BinTypeFilter: Text[1024]; LocationCode: Code[10]; ItemNo: Code[20]; VariantCode: Code[10]): Decimal var @@ -4191,13 +4094,6 @@ codeunit 7312 "Create Pick" begin end; -#if not CLEAN27 - [Obsolete('Not used anymore.', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterCalcTotalQtyAssgndOnWhse(LocationCode: Code[10]; ItemNo: Code[20]; VariantCode: Code[10]; var QtyAssgndToWhseAct: Decimal; var QtyAssgndToShipment: Decimal; var QtyAssgndToProdComp: Decimal; var QtyAssgndToAsmLine: Decimal); - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterCheckOutBound(SourceType: Integer; SourceSubType: Integer; SourceNo: Code[20]; SourceLineNo: Integer; var OutBoundQty: Decimal; SourceSubLineNo: Integer) @@ -4254,19 +4150,6 @@ codeunit 7312 "Create Pick" begin end; -#if not CLEAN27 - [Obsolete('Replaced by OnAfterSetCustomWhseSourceLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterSetAssemblyLine(var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line") - begin - end; - - [Obsolete('Replaced by OnAfterSetCustomWhseSourceLine', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterSetProdOrderCompLine(var ProdOrderComp: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterSetCustomWhseSourceLine(CustomSourceWhseSourceLine: Variant) diff --git a/src/Layers/W1/BaseApp/Warehouse/Activity/CreatePutaway.Codeunit.al b/src/Layers/W1/BaseApp/Warehouse/Activity/CreatePutaway.Codeunit.al index df3011a0a74..c5efabe2b4b 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Activity/CreatePutaway.Codeunit.al +++ b/src/Layers/W1/BaseApp/Warehouse/Activity/CreatePutaway.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -1035,36 +1035,18 @@ codeunit 7313 "Create Put-away" exit(BinContentFound); end; -#if not CLEAN27 - [Obsolete('Use same procedure in codeunit MfgCreatePutaway instead.', '27.0')] - procedure SetCalledFromPutAwayWorksheet(NewCalledFromPutAwayWorksheet: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterAssignPlaceBinZone(var WarehouseActivityLine: Record "Warehouse Activity Line"); begin end; -#if not CLEAN27 - internal procedure RunOnAfterGetItemAndSKU(Location: Record Location; var Item: Record Item; var StockkeepingUnit: Record "Stockkeeping Unit") - begin - OnAfterGetItemAndSKU(Location, Item, StockkeepingUnit); - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterGetItemAndSKU(Location: Record Location; var Item: Record Item; var StockkeepingUnit: Record "Stockkeeping Unit") begin end; -#if not CLEAN27 - internal procedure RunOnAfterGetLocation(LocationCode: Code[10]; var Location: Record Location; var PostedWhseRcptLine: Record "Posted Whse. Receipt Line") - begin - OnAfterGetLocation(LocationCode, Location, PostedWhseRcptLine); - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterGetLocation(LocationCode: Code[10]; var Location: Record Location; var PostedWhseRcptLine: Record "Posted Whse. Receipt Line") @@ -1076,12 +1058,6 @@ codeunit 7313 "Create Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnAfterGetWhseActivHeaderNo(var FirstPutAwayNo: Code[20]; var LastPutAwayNo: Code[20]) - begin - OnAfterGetWhseActivHeaderNo(FirstPutAwayNo, LastPutAwayNo); - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterGetWhseActivHeaderNo(var FirstPutAwayNo: Code[20]; var LastPutAwayNo: Code[20]) @@ -1098,12 +1074,6 @@ codeunit 7313 "Create Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnAfterSetValues(var AssignedID: Code[50]; var SortActivity: Enum "Whse. Activity Sorting Method"; var DoNotFillQtytoHandle: Boolean; var BreakbulkFilter: Boolean) - begin - OnAfterSetValues(AssignedID, SortActivity, DoNotFillQtytoHandle, BreakbulkFilter); - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterSetValues(var AssignedID: Code[50]; var SortActivity: Enum "Whse. Activity Sorting Method"; var DoNotFillQtytoHandle: Boolean; var BreakbulkFilter: Boolean) @@ -1130,12 +1100,6 @@ codeunit 7313 "Create Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeAssignQtyToPutAwayForBinMandatory(Item: Record Item; Location: Record Location; var QtyToPutAwayBase: Decimal; var RemQtyToPutAwayBase: Decimal) - begin - OnBeforeAssignQtyToPutAwayForBinMandatory(Item, Location, QtyToPutAwayBase, RemQtyToPutAwayBase); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeAssignQtyToPutAwayForBinMandatory(Item: Record Item; Location: Record Location; var QtyToPutAwayBase: Decimal; var RemQtyToPutAwayBase: Decimal) @@ -1147,12 +1111,6 @@ codeunit 7313 "Create Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCalcAvailCubageAndWeight(var Bin: Record Bin; PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; PutAwayItemUOM: Record "Item Unit of Measure"; var QtyToPutAwayBase: Decimal; var IsHandled: Boolean; PutAwayTemplLine: Record "Put-away Template Line") - begin - OnBeforeCalcAvailCubageAndWeight(Bin, PostedWhseReceiptLine, PutAwayItemUOM, QtyToPutAwayBase, IsHandled, PutAwayTemplLine); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCalcAvailCubageAndWeight(var Bin: Record Bin; PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; PutAwayItemUOM: Record "Item Unit of Measure"; var QtyToPutAwayBase: Decimal; var IsHandled: Boolean; PutAwayTemplLine: Record "Put-away Template Line") @@ -1169,11 +1127,6 @@ codeunit 7313 "Create Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeEverythingIsHandled(var EverythingHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeEverythingIsHandled(var EverythingHandled: Boolean) @@ -1195,36 +1148,18 @@ codeunit 7313 "Create Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeGetPutAwayTemplate(SKU: Record "Stockkeeping Unit"; Item: Record Item; Location: Record Location; var PutAwayTemplHeader: Record "Put-away Template Header"; var IsHandled: Boolean) - begin - OnBeforeGetPutAwayTemplate(SKU, Item, Location, PutAwayTemplHeader, IsHandled); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGetPutAwayTemplate(SKU: Record "Stockkeeping Unit"; Item: Record Item; Location: Record Location; var PutAwayTemplHeader: Record "Put-away Template Header"; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnBeforeGetFirstPutAwayDocument(var TempWarehouseActivityHeader: Record "Warehouse Activity Header" temporary) - begin - OnBeforeGetFirstPutAwayDocument(TempWarehouseActivityHeader); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGetFirstPutAwayDocument(var TempWarehouseActivityHeader: Record "Warehouse Activity Header" temporary) begin end; -#if not CLEAN27 - internal procedure RunOnBeforeGetNextPutAwayDocument(var TempWarehouseActivityHeader: Record "Warehouse Activity Header" temporary) - begin - OnBeforeGetNextPutAwayDocument(TempWarehouseActivityHeader); - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeGetNextPutAwayDocument(var TempWarehouseActivityHeader: Record "Warehouse Activity Header" temporary) @@ -1291,48 +1226,24 @@ codeunit 7313 "Create Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnFindBin(PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; PutAwayTemplateLine: Record "Put-away Template Line"; var Bin: Record Bin; var BinFound: Boolean; var IsHandled: Boolean) - begin - OnFindBin(PostedWhseReceiptLine, PutAwayTemplateLine, Bin, BinFound, IsHandled); - end; -#endif [IntegrationEvent(false, false)] local procedure OnFindBin(PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; PutAwayTemplateLine: Record "Put-away Template Line"; var Bin: Record Bin; var BinFound: Boolean; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnFindBinContent(PostedWhseReceiptLine2: Record "Posted Whse. Receipt Line"; PutAwayTemplateLine2: Record "Put-away Template Line"; var BinContent: Record "Bin Content"; var BinContentFound: Boolean; var IsHandled: Boolean) - begin - OnFindBinContent(PostedWhseReceiptLine2, PutAwayTemplateLine2, BinContent, BinContentFound, IsHandled); - end; -#endif [IntegrationEvent(false, false)] local procedure OnFindBinContent(PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; PutAwayTemplateLine: Record "Put-away Template Line"; var BinContent: Record "Bin Content"; var BinContentFound: Boolean; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnNextBin(PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; PutAwayTemplateLine: Record "Put-away Template Line"; var Bin: Record Bin; var BinFound: Boolean; var IsHandled: Boolean) - begin - OnNextBin(PostedWhseReceiptLine, PutAwayTemplateLine, Bin, BinFound, IsHandled); - end; -#endif [IntegrationEvent(false, false)] local procedure OnNextBin(PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; PutAwayTemplateLine: Record "Put-away Template Line"; var Bin: Record Bin; var BinFound: Boolean; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnNextBinContent(PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; PutAwayTemplateLine: Record "Put-away Template Line"; var BinContent: Record "Bin Content"; var BinContentFound: Boolean; var IsHandled: Boolean) - begin - OnNextBinContent(PostedWhseReceiptLine, PutAwayTemplateLine, BinContent, BinContentFound, IsHandled); - end; -#endif [IntegrationEvent(false, false)] local procedure OnNextBinContent(PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; PutAwayTemplateLine: Record "Put-away Template Line"; var BinContent: Record "Bin Content"; var BinContentFound: Boolean; var IsHandled: Boolean) @@ -1341,12 +1252,6 @@ codeunit 7313 "Create Put-away" -#if not CLEAN27 - internal procedure RunOnUpdateTempWhseItemTrkgLines(var TempWhseItemTrackingLine: Record "Whse. Item Tracking Line" temporary; PostedWhseReceiptLine: Record "Posted Whse. Receipt Line") - begin - OnUpdateTempWhseItemTrkgLines(TempWhseItemTrackingLine, PostedWhseReceiptLine); - end; -#endif [IntegrationEvent(false, false)] local procedure OnUpdateTempWhseItemTrkgLines(var TempWhseItemTrackingLine: Record "Whse. Item Tracking Line" temporary; PostedWhseReceiptLine: Record "Posted Whse. Receipt Line") @@ -1383,57 +1288,9 @@ codeunit 7313 "Create Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCreateWhsePutAwayForProdOutput(var TempProductionOrderForWhsePutAwayForProdOutput: Record Microsoft.Manufacturing.Document."Production Order" temporary) - begin - OnBeforeCreateWhsePutAwayForProdOutput(TempProductionOrderForWhsePutAwayForProdOutput); - end; - [Obsolete('Moved to codeunit MfgCreatePutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCreateWhsePutAwayForProdOutput(var TempProductionOrderForWhsePutAwayForProdOutput: Record Microsoft.Manufacturing.Document."Production Order" temporary) - begin - end; -#endif -#if not CLEAN27 - internal procedure RunOnBeforeFindBinFromBinContentForProdOrderLine(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record Microsoft.Inventory.Tracking."Prod. Ord. Line Tracking Buff." temporary; var BinContentQtyBase: Decimal) - begin - OnBeforeFindBinFromBinContentForProdOrderLine(ProdOrderLine, TempProdOrdLineTrackingBuff, BinContentQtyBase); - end; - [Obsolete('Moved to codeunit MfgCreatePutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFindBinFromBinContentForProdOrderLine(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record Microsoft.Inventory.Tracking."Prod. Ord. Line Tracking Buff." temporary; var BinContentQtyBase: Decimal) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeFindBinForProdOrderLine(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record Microsoft.Inventory.Tracking."Prod. Ord. Line Tracking Buff." temporary; var BinContentQtyBase: Decimal) - begin - OnBeforeFindBinForProdOrderLine(ProdOrderLine, TempProdOrdLineTrackingBuff, BinContentQtyBase); - end; - - [Obsolete('Moved to codeunit MfgCreatePutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeFindBinForProdOrderLine(ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var TempProdOrdLineTrackingBuff: Record Microsoft.Inventory.Tracking."Prod. Ord. Line Tracking Buff." temporary; var BinContentQtyBase: Decimal) - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnBeforeCreateWhsePutAwayForProdOrder(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order") - begin - OnBeforeCreateWhsePutAwayForProdOrder(ProductionOrder); - end; - - [Obsolete('Moved to codeunit MfgCreatePutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCreateWhsePutAwayForProdOrder(var ProductionOrder: Record Microsoft.Manufacturing.Document."Production Order") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAssignPlaceBinZoneOnBeforeApplyBinCodeFilter(var BinCodeFilterText: Text[250]; var Location: Record Location; var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line") @@ -1445,35 +1302,4 @@ codeunit 7313 "Create Put-away" begin end; -#if not CLEAN27 - internal procedure RunOnCreateNewWhseActivityForProdOrderLineOnBeforeValidateQuantity(var WarehouseActivityLine: Record "Warehouse Activity Line"; - ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; - var TempProdOrdLineTrackingBuff: Record Microsoft.Inventory.Tracking."Prod. Ord. Line Tracking Buff." temporary) - begin - OnCreateNewWhseActivityForProdOrderLineOnBeforeValidateQuantity(WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff); - end; - - [Obsolete('Moved to codeunit MfgCreatePutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCreateNewWhseActivityForProdOrderLineOnBeforeValidateQuantity(var WarehouseActivityLine: Record "Warehouse Activity Line"; - ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; - var TempProdOrdLineTrackingBuff: Record Microsoft.Inventory.Tracking."Prod. Ord. Line Tracking Buff." temporary) - begin - end; - - internal procedure RunOnCreateNewWhseActivityForProdOrderLineOnAfterSetQtyToHandle(var WarehouseActivityLine: Record "Warehouse Activity Line"; - ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; - var TempProdOrdLineTrackingBuff: Record Microsoft.Inventory.Tracking."Prod. Ord. Line Tracking Buff." temporary; DoNotFillQtytoHandle: Boolean) - begin - OnCreateNewWhseActivityForProdOrderLineOnAfterSetQtyToHandle(WarehouseActivityLine, ProdOrderLine, TempProdOrdLineTrackingBuff, DoNotFillQtytoHandle); - end; - - [Obsolete('Moved to codeunit MfgCreatePutaway', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnCreateNewWhseActivityForProdOrderLineOnAfterSetQtyToHandle(var WarehouseActivityLine: Record "Warehouse Activity Line"; - ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; - var TempProdOrdLineTrackingBuff: Record Microsoft.Inventory.Tracking."Prod. Ord. Line Tracking Buff." temporary; DoNotFillQtytoHandle: Boolean) - begin - end; -#endif } diff --git a/src/Layers/W1/BaseApp/Warehouse/Activity/WhseActivityPost.Codeunit.al b/src/Layers/W1/BaseApp/Warehouse/Activity/WhseActivityPost.Codeunit.al index c6c1e82876c..f3de7b7faf8 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Activity/WhseActivityPost.Codeunit.al +++ b/src/Layers/W1/BaseApp/Warehouse/Activity/WhseActivityPost.Codeunit.al @@ -7,9 +7,6 @@ namespace Microsoft.Warehouse.Activity; using Microsoft.Finance.GeneralLedger.Preview; using Microsoft.Foundation.AuditCodes; using Microsoft.Inventory.Item; -#if not CLEAN27 -using Microsoft.Inventory.Journal; -#endif using Microsoft.Inventory.Location; using Microsoft.Inventory.Tracking; using Microsoft.Inventory.Transfer; @@ -1771,19 +1768,6 @@ codeunit 7324 "Whse.-Activity-Post" begin end; -#if not CLEAN27 - internal procedure RunOnPostConsumptionLineOnAfterCreateItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; WarehouseActivityLine: Record "Warehouse Activity Line"; SourceCodeSetup: Record "Source Code Setup") - begin - OnPostConsumptionLineOnAfterCreateItemJnlLine(ItemJournalLine, ProdOrderLine, WarehouseActivityLine, SourceCodeSetup); - end; - - [Obsolete('Moved to codeunit MfgWhseActivityPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionLineOnAfterCreateItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; WarehouseActivityLine: Record "Warehouse Activity Line"; SourceCodeSetup: Record "Source Code Setup") - begin - end; -#endif - [IntegrationEvent(false, false)] local procedure OnPostSourceDocumentOnBeforeTransferPostReceiptRun(var TransferHeader: Record "Transfer Header"; WarehouseActivityHeader: Record "Warehouse Activity Header") begin @@ -1799,32 +1783,6 @@ codeunit 7324 "Whse.-Activity-Post" begin end; -#if not CLEAN27 - internal procedure RunOnPostConsumptionLineOnAfterInitItemJournalLine(var ItemJournalLine: Record "Item Journal Line"; SourceCodeSetup: Record "Source Code Setup") - begin - OnPostConsumptionLineOnAfterInitItemJournalLine(ItemJournalLine, SourceCodeSetup); - end; - - [Obsolete('Moved to codeunit MfgWhseActivityPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostConsumptionLineOnAfterInitItemJournalLine(var ItemJournalLine: Record "Item Journal Line"; SourceCodeSetup: Record "Source Code Setup") - begin - end; -#endif - -#if not CLEAN27 - internal procedure RunOnPostOutputLineOnAfterCreateItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; WarehouseActivityLine: Record "Warehouse Activity Line"; SourceCodeSetup: Record "Source Code Setup") - begin - OnPostOutputLineOnAfterCreateItemJnlLine(ItemJournalLine, ProdOrderLine, WarehouseActivityLine, SourceCodeSetup); - end; - - [Obsolete('Moved to codeunit MfgWhseActivityPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputLineOnAfterCreateItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; WarehouseActivityLine: Record "Warehouse Activity Line"; SourceCodeSetup: Record "Source Code Setup") - begin - end; -#endif - [IntegrationEvent(false, false)] local procedure OnPostSourceDocumentOnBeforePurchPostRun(WarehouseActivityHeader: Record "Warehouse Activity Header"; var PurchaseHeader: Record "Purchase Header") begin @@ -1905,18 +1863,6 @@ codeunit 7324 "Whse.-Activity-Post" begin end; -#if not CLEAN27 - internal procedure RunOnPostOutputLineOnAfterItemJournalLineInit(var ItemJournalLine: Record "Item Journal Line"; SourceCodeSetup2: Record "Source Code Setup") - begin - OnPostOutputLineOnAfterItemJournalLineInit(ItemJournalLine, SourceCodeSetup2); - end; - - [Obsolete('Moved to codeunit MfgWhseActivityPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnPostOutputLineOnAfterItemJournalLineInit(var ItemJournalLine: Record "Item Journal Line"; SourceCodeSetup: Record "Source Code Setup") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnUpdateQtyToHandleOnPurchaseLineOnBeforePurchLineModify(var PurchaseLine: Record "Purchase Line"; var ModifyLine: Boolean) @@ -1953,19 +1899,6 @@ codeunit 7324 "Whse.-Activity-Post" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeCheckProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - OnBeforeCheckProdOrderLine(ProdOrderLine, IsHandled); - end; - - [Obsolete('Moved to codeunit MfgWhseActivityPost', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeCheckProdOrderLine(var ProdOrderLine: Record Microsoft.Manufacturing.Document."Prod. Order Line"; var IsHandled: Boolean) - begin - end; -#endif - [IntegrationEvent(true, false)] local procedure OnPostWhseActivityLineOnBeforeCreatePostedActivHeader(var WarehouseActivityHeader: Record "Warehouse Activity Header") begin diff --git a/src/Layers/W1/BaseApp/Warehouse/Activity/WhseActivityRegister.Codeunit.al b/src/Layers/W1/BaseApp/Warehouse/Activity/WhseActivityRegister.Codeunit.al index 4828ce03247..4d3b165acfb 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Activity/WhseActivityRegister.Codeunit.al +++ b/src/Layers/W1/BaseApp/Warehouse/Activity/WhseActivityRegister.Codeunit.al @@ -2306,18 +2306,6 @@ codeunit 7307 "Whse.-Activity-Register" begin end; -#if not CLEAN27 - internal procedure RunOnAfterAssemblyLineModify(var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line") - begin - OnAfterAssemblyLineModify(AssemblyLine); - end; - - [Obsolete('Moved to codeunit AsmWhseActivityRegister', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterAssemblyLineModify(var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterAvailabilityError(WhseActivLine: Record "Warehouse Activity Line") @@ -2384,18 +2372,6 @@ codeunit 7307 "Whse.-Activity-Register" begin end; -#if not CLEAN27 - internal procedure RunOnAfterProdCompLineModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - OnAfterProdCompLineModify(ProdOrderComponent); - end; - - [Obsolete('Moved to codeunit MfgWhseActivityRegister', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnAfterProdCompLineModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnAfterRegisterWhseActivity(var WarehouseActivityHeader: Record "Warehouse Activity Header"; SuppressCommit: Boolean) @@ -2442,36 +2418,12 @@ codeunit 7307 "Whse.-Activity-Register" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeAssemblyLineModify(var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; WarehouseActivityLine: Record "Warehouse Activity Line") - begin - OnBeforeAssemblyLineModify(AssemblyLine, WarehouseActivityLine); - end; - - [Obsolete('Moved to codeunit AsmWhseActivityRegister', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeAssemblyLineModify(var AssemblyLine: Record Microsoft.Assembly.Document."Assembly Line"; WarehouseActivityLine: Record "Warehouse Activity Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeAutoReserveForSalesLine(var TempWhseActivLineToReserve: Record "Warehouse Activity Line" temporary; var IsHandled: Boolean) begin end; -#if not CLEAN27 - internal procedure RunOnBeforeAutoReserveForAssemblyLine(var TempWhseActivLineToReserve: Record "Warehouse Activity Line" temporary; var IsHandled: Boolean) - begin - OnBeforeAutoReserveForAssemblyLine(TempWhseActivLineToReserve, IsHandled); - end; - - [Obsolete('Moved to codeunit AsmWhseActivityRegister', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeAutoReserveForAssemblyLine(var TempWhseActivLineToReserve: Record "Warehouse Activity Line" temporary; var IsHandled: Boolean) - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeCheckBinRelatedFields(WarehouseActivityLine: Record "Warehouse Activity Line"; var IsHandled: Boolean) @@ -2488,18 +2440,6 @@ codeunit 7307 "Whse.-Activity-Register" begin end; -#if not CLEAN27 - internal procedure RunOnBeforeProdCompLineModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; WarehouseActivityLine: Record "Warehouse Activity Line") - begin - OnBeforeProdCompLineModify(ProdOrderComponent, WarehouseActivityLine); - end; - - [Obsolete('Moved to codeunit MfgWhseActivityRegister', '27.0')] - [IntegrationEvent(false, false)] - local procedure OnBeforeProdCompLineModify(var ProdOrderComponent: Record Microsoft.Manufacturing.Document."Prod. Order Component"; WarehouseActivityLine: Record "Warehouse Activity Line") - begin - end; -#endif [IntegrationEvent(false, false)] local procedure OnBeforeRegWhseItemTrkgLine(var WhseActivLine2: Record "Warehouse Activity Line"; var TempTrackingSpecification: Record "Tracking Specification" temporary) diff --git a/src/Layers/W1/BaseApp/Warehouse/Journal/WhseJnlRegisterLine.Codeunit.al b/src/Layers/W1/BaseApp/Warehouse/Journal/WhseJnlRegisterLine.Codeunit.al index 0a5f7321975..0732dec3f02 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Journal/WhseJnlRegisterLine.Codeunit.al +++ b/src/Layers/W1/BaseApp/Warehouse/Journal/WhseJnlRegisterLine.Codeunit.al @@ -95,17 +95,6 @@ codeunit 7301 "Whse. Jnl.-Register Line" WarehouseRegister.Lock(); end; -#if not CLEAN27 - [Obsolete('This function is deprecated. Concurrent warehouse posting is always on.', '27.0')] - procedure LockIfLegacyPosting() - begin - end; - - [Obsolete('This function is deprecated. Concurrent warehouse posting is always on.', '27.0')] - procedure LockTables() - begin - end; -#endif procedure InitWhseEntry(var WhseEntry: Record "Warehouse Entry"; ZoneCode: Code[10]; BinCode: Code[20]; Sign: Integer) var ToBinContent: Record "Bin Content"; diff --git a/src/Layers/W1/BaseApp/Warehouse/Ledger/WarehouseEntry.Table.al b/src/Layers/W1/BaseApp/Warehouse/Ledger/WarehouseEntry.Table.al index 2ff9312fa03..694b8f8426c 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Ledger/WarehouseEntry.Table.al +++ b/src/Layers/W1/BaseApp/Warehouse/Ledger/WarehouseEntry.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -342,13 +342,6 @@ table 7312 "Warehouse Entry" Rec."SIFT Bucket No." := Rec."Warehouse Register No." mod 5; end; -#if not CLEAN27 - [Obsolete('This function is deprecated. Concurrent warehouse posting is always on.', '27.0')] - procedure InsertRecord(UseLegacyPosting: Boolean) - begin - InsertRecord(); - end; -#endif [InherentPermissions(PermissionObjectType::TableData, Database::"Warehouse Entry", 'r')] procedure InsertRecord() var diff --git a/src/Layers/W1/BaseApp/Warehouse/Ledger/WarehouseRegister.Table.al b/src/Layers/W1/BaseApp/Warehouse/Ledger/WarehouseRegister.Table.al index 089a9dfaa19..2cdbcd014a8 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Ledger/WarehouseRegister.Table.al +++ b/src/Layers/W1/BaseApp/Warehouse/Ledger/WarehouseRegister.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -83,13 +83,6 @@ table 7313 "Warehouse Register" { } - #if not CLEAN27 - [Obsolete('This function is deprecated. Concurrent warehouse posting is always on.', '27.0')] - procedure InsertRecord(UseLegacyPosting: Boolean) - begin - InsertRecord(); - end; -#endif [InherentPermissions(PermissionObjectType::TableData, Database::"Warehouse Register", 'r')] procedure InsertRecord() diff --git a/src/Layers/W1/BaseApp/Warehouse/Setup/WarehouseSetup.Table.al b/src/Layers/W1/BaseApp/Warehouse/Setup/WarehouseSetup.Table.al index b51a77222eb..1852e2f41ff 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Setup/WarehouseSetup.Table.al +++ b/src/Layers/W1/BaseApp/Warehouse/Setup/WarehouseSetup.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -278,13 +278,6 @@ table 5769 "Warehouse Setup" exit(2147483647); end; -#if not CLEAN27 - [Obsolete('This function is deprecated. Concurrent warehouse posting is always on.', '27.0')] - procedure UseLegacyPosting(): Boolean - begin - exit(false); - end; -#endif internal procedure GetRecordOnce() begin diff --git a/src/Layers/W1/BaseApp/Warehouse/Structure/WhseGetBinContent.Report.al b/src/Layers/W1/BaseApp/Warehouse/Structure/WhseGetBinContent.Report.al index 994744af298..299652a3058 100644 --- a/src/Layers/W1/BaseApp/Warehouse/Structure/WhseGetBinContent.Report.al +++ b/src/Layers/W1/BaseApp/Warehouse/Structure/WhseGetBinContent.Report.al @@ -608,9 +608,6 @@ report 7391 "Whse. Get Bin Content" begin end; -#if not CLEAN27 - [Obsolete('The GetItemTracking method has been refactored to use a query-based approach for improved performance. While this event publisher remains available, please verify that your subscriber logic continues to function as expected with the updated implementation.', '27.0')] -#endif [IntegrationEvent(true, false)] local procedure OnBeforeGetItemTracking(var BinContent: Record "Bin Content"; var IsHandled: Boolean; QtyToEmptyBase: Decimal; DestinationType2: Enum "Warehouse Destination Type 2"; var ItemJournalLine: Record "Item Journal Line"; var TransferLine: Record "Transfer Line") begin @@ -636,17 +633,11 @@ report 7391 "Whse. Get Bin Content" begin end; -#if not CLEAN27 - [Obsolete('The GetItemTracking method has been refactored to use a query-based approach for improved performance. While this event publisher remains available, please verify that your subscriber logic continues to function as expected with the updated implementation.', '27.0')] -#endif [IntegrationEvent(false, false)] local procedure OnGetItemTrackingOnDestinationTypeCaseElse(DestinationType2: Enum "Warehouse Destination Type 2"; BinContent: Record "Bin Content"; WarehouseEntry: Record "Warehouse Entry"; TrackedQtyToEmptyBase: Decimal) begin end; -#if not CLEAN27 - [Obsolete('The GetItemTracking method has been refactored to use a query-based approach for improved performance. While this event publisher remains available, please verify that your subscriber logic continues to function as expected with the updated implementation.', '27.0')] -#endif [IntegrationEvent(false, false)] local procedure OnGetItemTrackingOnAfterWarehouseEntrySetFilters(var WarehouseEntry: Record "Warehouse Entry"; var BinContent: Record "Bin Content") begin diff --git a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al index 500464e68b1..bbfde4459ea 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryCashFlowHelper.Codeunit.al @@ -500,35 +500,8 @@ 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 -#pragma warning disable AL0432 - CreateSpecificServiceOrder(ServiceHeader, '', ''); -#pragma warning restore AL0432 - 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 diff --git a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryCosting.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryCosting.Codeunit.al index 3b5d549d44a..1b0d49b957b 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryCosting.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryCosting.Codeunit.al @@ -295,17 +295,6 @@ codeunit 132200 "Library - Costing" end; end; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure CheckProductionOrderCost(ProdOrder: Record "Production Order"; VerifyVarianceinOutput: Boolean) - var - LibraryManufacturing: Codeunit "Library - Manufacturing"; - begin - LibraryManufacturing.CheckProductionOrderCost(ProdOrder, VerifyVarianceinOutput); - end; -#pragma warning restore AL0801 -#endif procedure CreatePurchasePrice(var PurchasePrice: Record "Purchase Price"; VendorNo: Code[20]; ItemNo: Code[20]; StartingDate: Date; CurrencyCode: Code[10]; VariantCode: Code[10]; UnitOfMeasureCode: Code[10]; MinimumQuantity: Decimal) begin @@ -444,17 +433,6 @@ codeunit 132200 "Library - Costing" exit(Round(Amount, LibraryERM.GetAmountRoundingPrecision(), '=')); end; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure SuggestCapacityStandardCost(var WorkCenter: Record "Work Center"; var MachineCenter: Record "Machine Center"; StandardCostWorksheetName: Code[10]; StandardCostAdjustmentFactor: Integer; StandardCostRoundingMethod: Code[10]) - var - LibraryManufacturing: Codeunit "Library - Manufacturing"; - begin - LibraryManufacturing.SuggestCapacityStandardCost(WorkCenter, MachineCenter, StandardCostWorksheetName, StandardCostAdjustmentFactor, StandardCostRoundingMethod); - end; -#pragma warning restore AL0801 -#endif procedure SuggestSalesPriceWorksheet(Item: Record Item; SalesCode: Code[20]; SalesType: Enum "Sales Price Type"; PriceLowerLimit: Decimal; UnitPriceFactor: Decimal) var @@ -520,17 +498,6 @@ codeunit 132200 "Library - Costing" SuggestItemStandardCostReport.Run(); end; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure UpdateUnitCost(var ProductionOrder: Record "Production Order"; CalcMethod: Option; UpdateReservations: Boolean) - var - LibraryManufacturing: Codeunit "Library - Manufacturing"; - begin - LibraryManufacturing.UpdateUnitCost(ProductionOrder, CalcMethod, UpdateReservations); - end; -#pragma warning restore AL0801 -#endif local procedure UpdateBufferforRoundingCheck(var TempItemJournalBuffer: Record "Item Journal Buffer" temporary; EntryNo: Integer; Quantity: Decimal; CostAmount: Decimal) begin diff --git a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryItemTracking.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryItemTracking.Codeunit.al index ebef4de2d14..e545391abb1 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryItemTracking.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryItemTracking.Codeunit.al @@ -335,63 +335,9 @@ codeunit 130502 "Library - Item Tracking" ItemTracking(ReservEntry, RecRef, ItemTrackingSetup, QtyBase); end; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure CreateProdOrderItemTracking(var ReservEntry: Record "Reservation Entry"; ProdOrderLine: Record "Prod. Order Line"; SerialNo: Code[50]; LotNo: Code[50]; QtyBase: Decimal) - var - ItemTrackingSetup: Record "Item Tracking Setup"; - begin - ItemTrackingSetup."Serial No." := SerialNo; - ItemTrackingSetup."Lot No." := LotNo; -#pragma warning disable AL0432 - CreateProdOrderItemTracking(ReservEntry, ProdOrderLine, ItemTrackingSetup, QtyBase); -#pragma warning restore AL0432 - end; -#pragma warning restore AL0801 -#endif -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure CreateProdOrderItemTracking(var ReservEntry: Record "Reservation Entry"; ProdOrderLine: Record "Prod. Order Line"; ItemTrackingSetup: Record "Item Tracking Setup"; QtyBase: Decimal) - var - RecRef: RecordRef; - begin - RecRef.GetTable(ProdOrderLine); - ItemTracking(ReservEntry, RecRef, ItemTrackingSetup, QtyBase); - end; -#pragma warning restore AL0801 -#endif -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure CreateProdOrderCompItemTracking(var ReservEntry: Record "Reservation Entry"; ProdOrderComp: Record "Prod. Order Component"; SerialNo: Code[50]; LotNo: Code[50]; QtyBase: Decimal) - var - ITemTrackingSetup: Record "Item Tracking Setup"; - begin - ItemTrackingSetup."Serial No." := SerialNo; - ItemTrackingSetup."Lot No." := LotNo; -#pragma warning disable AL0432 - CreateProdOrderCompItemTracking(ReservEntry, ProdOrderComp, ITemTrackingSetup, QtyBase); -#pragma warning restore AL0432 - end; -#pragma warning restore AL0801 -#endif -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure CreateProdOrderCompItemTracking(var ReservEntry: Record "Reservation Entry"; ProdOrderComp: Record "Prod. Order Component"; ItemTrackingSetup: Record "Item Tracking Setup"; QtyBase: Decimal) - var - RecRef: RecordRef; - begin - RecRef.GetTable(ProdOrderComp); - ItemTracking(ReservEntry, RecRef, ItemTrackingSetup, QtyBase); - end; -#pragma warning restore AL0801 -#endif procedure CreatePurchOrderItemTracking(var ReservEntry: Record "Reservation Entry"; PurchLine: Record "Purchase Line"; SerialNo: Code[50]; LotNo: Code[50]; QtyBase: Decimal) var diff --git a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryJob.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryJob.Codeunit.al index 6b7bb08c887..3180ab5115a 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryJob.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryJob.Codeunit.al @@ -246,15 +246,6 @@ codeunit 131920 "Library - Job" PurchaseLine.Modify(true) end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure CreateServiceLineForPlan(JobPlanningLine: Record "Job Planning Line"; UsageLineType: Enum "Job Line Type"; Fraction: Decimal; var ServiceLine: Record "Service Line") - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.CreateServiceLineForPlan(JobPlanningLine, UsageLineType, Fraction, ServiceLine); - end; -#endif procedure CreateJobGLAccountPrice(var JobGLAccountPrice: Record "Job G/L Account Price"; JobNo: Code[20]; JobTaskNo: Code[20]; GLAccountNo: Code[20]; CurrencyCode: Code[10]) begin @@ -1056,15 +1047,6 @@ codeunit 131920 "Library - Job" end end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure Job2ServiceConsumableType(Type: Enum "Job Planning Line Type"): Enum "Service Line Type" - var - LibraryService: Codeunit "Library - Service"; - begin - exit(LibraryService.Job2ServiceConsumableType(Type)); - end; -#endif procedure GetUnitAmountRoundingPrecision(CurrencyCode: Code[10]): Decimal var @@ -1218,13 +1200,6 @@ codeunit 131920 "Library - Job" exit(Right) end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure ServiceConsumption(): Integer - begin - exit(ConsumptionSource::Service) - end; -#endif procedure JobConsumption(): Integer begin diff --git a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPatterns.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPatterns.Codeunit.al index c1c2df2d9fc..79139415389 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPatterns.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPatterns.Codeunit.al @@ -91,11 +91,6 @@ codeunit 132212 "Library - Patterns" procedure SETNoSeries() var InventorySetup: Record "Inventory Setup"; -#if not CLEAN27 -#pragma warning disable AL0801 - ManufacturingSetup: Record "Manufacturing Setup"; -#pragma warning restore AL0801 -#endif SalesReceivablesSetup: Record "Sales & Receivables Setup"; MarketingSetup: Record "Marketing Setup"; NoSeries: Code[20]; @@ -112,27 +107,6 @@ codeunit 132212 "Library - Patterns" InventorySetup.Modify(); end; -#if not CLEAN27 -#pragma warning disable AL0801 - ManufacturingSetup.Get(); - if ManufacturingSetup."Simulated Order Nos." <> NoSeries then begin - ManufacturingSetup."Simulated Order Nos." := NoSeries; - ManufacturingSetup.Modify(); - end; - if ManufacturingSetup."Planned Order Nos." <> NoSeries then begin - ManufacturingSetup."Planned Order Nos." := NoSeries; - ManufacturingSetup.Modify(); - end; - if ManufacturingSetup."Firm Planned Order Nos." <> NoSeries then begin - ManufacturingSetup."Firm Planned Order Nos." := NoSeries; - ManufacturingSetup.Modify(); - end; - if ManufacturingSetup."Released Order Nos." <> NoSeries then begin - ManufacturingSetup."Released Order Nos." := NoSeries; - ManufacturingSetup.Modify(); - end; -#pragma warning restore AL0801 -#endif SalesReceivablesSetup.Get(); if SalesReceivablesSetup."Quote Nos." <> NoSeries then begin diff --git a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPlanning.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPlanning.Codeunit.al index 641c8076d3d..e80fdeae75f 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPlanning.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPlanning.Codeunit.al @@ -12,17 +12,6 @@ codeunit 132203 "Library - Planning" InventorySetup: Record "Inventory Setup"; LibraryUtility: Codeunit "Library - Utility"; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure CreateProdOrderUsingPlanning(var ProductionOrder: Record "Production Order"; Status: Enum "Production Order Status"; DocumentNo: Code[20]; SourceNo: Code[20]) - var - LibraryManufacturing: Codeunit "Library - Manufacturing"; - begin - LibraryManufacturing.CreateProdOrderUsingPlanning(ProductionOrder, Status, DocumentNo, SourceNo); - end; -#pragma warning restore AL0801 -#endif [Normal] procedure CreateRequisitionWkshName(var RequisitionWkshName: Record "Requisition Wksh. Name"; WorksheetTemplateName: Code[10]) @@ -250,17 +239,6 @@ codeunit 132203 "Library - Planning" PlanningComponent.Insert(true); end; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure CreatePlanningRoutingLine(var PlanningRoutingLine: Record "Planning Routing Line"; var RequisitionLine: Record "Requisition Line"; OperationNo: Code[10]) - var - LibraryManfacturing: Codeunit "Library - Manufacturing"; - begin - LibraryManfacturing.CreatePlanningRoutingLine(PlanningRoutingLine, RequisitionLine, OperationNo); - end; -#pragma warning restore AL0801 -#endif local procedure FindRequisitionLine(var RequisitionLine: Record "Requisition Line"; RequisitionWkshName: Record "Requisition Wksh. Name"; ItemNo: Code[20]) begin @@ -439,16 +417,5 @@ codeunit 132203 "Library - Planning" InventorySetup.Modify(); end; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure SetComponentsAtLocation(LocationCode: Code[10]) - var - LibraryManufacturing: Codeunit "Library - Manufacturing"; - begin - LibraryManufacturing.SetComponentsAtLocation(LocationCode); - end; -#pragma warning restore AL0801 -#endif } diff --git a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al index 532d1b164b8..a94c2bbf336 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryPurchase.Codeunit.al @@ -1078,15 +1078,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/W1/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al index 33f52c8e64f..5979e9f6b3b 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibrarySales.Codeunit.al @@ -1759,15 +1759,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/W1/Tests/ApplicationTestLibrary/LibraryTimeSheet.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryTimeSheet.Codeunit.al index ceff3b9deab..155b5ed6bef 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryTimeSheet.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryTimeSheet.Codeunit.al @@ -66,15 +66,6 @@ codeunit 131904 "Library - Time Sheet" Assert.IsTrue(TimeSheetLine.Posted, StrSubstNo(TimeSheetFieldValueErr, TimeSheetLine.FieldCaption(Posted))); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure CheckServiceTimeSheetLine(TimeSheetHeader: Record "Time Sheet Header"; ServiceHeaderNo: Code[20]; ServiceLineNo: Integer; ServiceLineQuantity: Decimal; Chargeable: Boolean) - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.CheckServiceTimeSheetLine(TimeSheetHeader, ServiceHeaderNo, ServiceLineNo, ServiceLineQuantity, Chargeable); - end; -#endif procedure CreateJobJournalLine(var JobJournalLine: Record "Job Journal Line"; JournalTemplateName: Code[10]; JournalBatchName: Code[10]) var @@ -202,15 +193,6 @@ codeunit 131904 "Library - Time Sheet" Resource.Modify(); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure CreateServiceOrder(var ServiceHeader: Record "Service Header"; PostingDate: Date) - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.CreateServiceOrder(ServiceHeader, PostingDate); - end; -#endif procedure CreateUserSetup(var UserSetup: Record "User Setup"; CurrUserID: Boolean) begin @@ -409,15 +391,6 @@ codeunit 131904 "Library - Time Sheet" AssemblyHeader, AssemblyLine, "BOM Component Type"::Resource, Resource."No.", Resource."Base Unit of Measure", 8, 8, 'Working resource'); end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure InitBackwayScenario(var TimeSheetHeader: Record "Time Sheet Header"; var ServiceHeader: Record "Service Header"; var ServiceLine: Record "Service Line") - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.InitBackwayScenario(TimeSheetHeader, ServiceHeader, ServiceLine); - end; -#endif procedure InitJobScenario(var TimeSheetHeader: Record "Time Sheet Header"; var TimeSheetLine: Record "Time Sheet Line") var @@ -501,25 +474,7 @@ codeunit 131904 "Library - Time Sheet" end; end; -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure InitScenarioWTForServiceOrder(var TimeSheetHeader: Record "Time Sheet Header"; var ServiceHeader: Record "Service Header") - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.InitScenarioWTForServiceOrder(TimeSheetHeader, ServiceHeader); - end; -#endif -#if not CLEAN27 - [Obsolete('Moved to codeunit Library Service', '27.0')] - procedure InitServiceScenario(var TimeSheetHeader: Record "Time Sheet Header"; var TimeSheetLine: Record "Time Sheet Line"; var ServiceHeader: Record "Service Header") - var - LibraryService: Codeunit "Library - Service"; - begin - LibraryService.InitServiceScenario(TimeSheetHeader, TimeSheetLine, ServiceHeader); - end; -#endif procedure SubmitTimeSheetLine(var TimeSheetLine: Record "Time Sheet Line") begin diff --git a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryWarehouse.Codeunit.al b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryWarehouse.Codeunit.al index d5ec9c9e09d..17a6b3f1da6 100644 --- a/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryWarehouse.Codeunit.al +++ b/src/Layers/W1/Tests/ApplicationTestLibrary/LibraryWarehouse.Codeunit.al @@ -341,17 +341,6 @@ codeunit 132204 "Library - Warehouse" BinType.Insert(true); end; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure CreateInboundWhseReqFromProdO(ProductionOrder: Record "Production Order") - var - LibraryManufacturing: Codeunit "Library - Manufacturing"; - begin - LibraryManufacturing.CreateInboundWhseReqFromProdOrder(ProductionOrder); - end; -#pragma warning restore AL0801 -#endif procedure CreateInternalMovementHeader(var InternalMovementHeader: Record "Internal Movement Header"; LocationCode: Code[10]; ToBinCode: Code[20]) begin @@ -986,17 +975,6 @@ codeunit 132204 "Library - Warehouse" WarehouseShipmentLineRec.CreatePickDoc(WhseShptLine, WhseShptHeader); end; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure CreateWhsePickFromProduction(ProductionOrder: Record "Production Order") - var - LibraryManufacturing: Codeunit "Library - Manufacturing"; - begin - LibraryManufacturing.CreateWhsePickFromProduction(ProductionOrder); - end; -#pragma warning restore AL0801 -#endif procedure CreateWhseReceiptFromPO(var PurchaseHeader: Record "Purchase Header") var diff --git a/src/Layers/W1/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al b/src/Layers/W1/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al index 20dc24d67ee..109227b592c 100644 --- a/src/Layers/W1/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al +++ b/src/Layers/W1/Tests/ERM-Finance/ERMAccountSchedule.Codeunit.al @@ -6057,9 +6057,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 @@ -6151,9 +6148,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(); @@ -6192,9 +6186,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(); @@ -6226,9 +6217,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); @@ -6241,9 +6229,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); @@ -6256,9 +6241,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); @@ -6271,9 +6253,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); @@ -6286,9 +6265,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); @@ -6318,18 +6294,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/W1/Tests/ERM/ERMInvoiceDiscountAndVAT.Codeunit.al b/src/Layers/W1/Tests/ERM/ERMInvoiceDiscountAndVAT.Codeunit.al index 4dd6d6e2e70..55294cc219a 100644 --- a/src/Layers/W1/Tests/ERM/ERMInvoiceDiscountAndVAT.Codeunit.al +++ b/src/Layers/W1/Tests/ERM/ERMInvoiceDiscountAndVAT.Codeunit.al @@ -1467,41 +1467,6 @@ codeunit 134027 "ERM Invoice Discount And VAT" // [THEN] No notification "G/L accounts for discounts are missing" (checked in VerifyNoNotificationsAreSend) end; -#if not CLEAN27 - [Test] - [HandlerFunctions('ServiceOrderStatisticsHandler,VerifyNoNotificationsAreSend')] - [Scope('OnPrem')] - procedure NoMissedGLAccountNotificationService() - var - ServHeader: Record "Service Header"; - ServLine: Record "Service Line"; - GeneralPostingSetup: Record "General Posting Setup"; - VATPostingSetup: Record "VAT Posting Setup"; - ServiceOrder: TestPage "Service Order"; - begin - // [FEATURE] [Service] [Discount] [UT] - // [SCENARIO 421486] "G/L accounts for discounts are missing" notification is not shown for service document if there is at least one general posting setup with empty G/L account - Initialize(); - - // [GIVEN] New general posting setup "BUS" "PROD" with empty G/L accounts - CreateGeneralPostingSetup(GeneralPostingSetup); - - // [GIVEN] Service order "SO" for customer "C" with some invoice discount and Gen. Bus. Posting Group = "BUS" - CreateVATPostingSetup(VATPostingSetup, LibraryRandom.RandInt(20)); - LibraryService.CreateServiceHeader( - ServHeader, ServHeader."Document Type"::Order, - CreateCustomerWithInvoiceDiscountGenPostGroup(VATPostingSetup."VAT Bus. Posting Group", GeneralPostingSetup."Gen. Bus. Posting Group")); - LibraryService.CreateServiceLine( - ServLine, ServHeader, ServLine.Type::Item, CreateItem(true, VATPostingSetup."VAT Prod. Posting Group")); - - // [WHEN] Open service order page for "SO" and run statistics to cause discount calculation - ServiceOrder.OpenEdit(); - ServiceOrder.Filter.SetFilter("No.", ServHeader."No."); - ServiceOrder.Statistics.Invoke(); - - // [THEN] No notification "G/L accounts for discounts are missing" (checked in VerifyNoNotificationsAreSend) - end; -#endif [Test] [HandlerFunctions('ServiceOrderStatisticsHandlerNM,VerifyNoNotificationsAreSend')] [Scope('OnPrem')] @@ -3273,13 +3238,6 @@ codeunit 134027 "ERM Invoice Discount And VAT" Assert.Fail('No notification should be thrown.'); end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceOrderStatisticsHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - begin - end; -#endif [PageHandler] [Scope('OnPrem')] procedure ServiceOrderStatisticsHandlerNM(var ServiceOrderStatistics: TestPage "Service Order Statistics") diff --git a/src/Layers/W1/Tests/Misc/ReportSelectionsTests.Codeunit.al b/src/Layers/W1/Tests/Misc/ReportSelectionsTests.Codeunit.al index 5a409f06960..0d6e3043a51 100644 --- a/src/Layers/W1/Tests/Misc/ReportSelectionsTests.Codeunit.al +++ b/src/Layers/W1/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')] @@ -3043,14 +2921,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/W1/Tests/SCM-Manufacturing/SCMManufacturingReports.Codeunit.al b/src/Layers/W1/Tests/SCM-Manufacturing/SCMManufacturingReports.Codeunit.al index baaa1f4bb93..a4ed216c48b 100644 --- a/src/Layers/W1/Tests/SCM-Manufacturing/SCMManufacturingReports.Codeunit.al +++ b/src/Layers/W1/Tests/SCM-Manufacturing/SCMManufacturingReports.Codeunit.al @@ -13,9 +13,6 @@ using Microsoft.Inventory.Reports; using Microsoft.Manufacturing.Capacity; using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Family; -#if not CLEAN27 -using Microsoft.Manufacturing.Forecast; -#endif using Microsoft.Manufacturing.MachineCenter; using Microsoft.Manufacturing.ProductionBOM; using Microsoft.Manufacturing.Reports; @@ -625,36 +622,6 @@ codeunit 137304 "SCM Manufacturing Reports" LibraryReportDataset.AssertCurrentRowValueEquals('ExpCost6', ExpMatCost + ExpCapDirCost + ExpSubDirCost + ExpCapOvhdCost + ExpMfgOvhdCost); end; -#if not CLEAN27 - [Test] - [HandlerFunctions('ProductionForecastRequestPageHandler')] - [Scope('OnPrem')] - procedure ProdOrderForecastReport() - var - Item: Record Item; - ProductionForecastName: Record "Production Forecast Name"; - ProductionForecastEntry: Record "Production Forecast Entry"; - begin - // Setup: Create Production Forecast Setup. - Initialize(); - LibraryInventory.CreateItem(Item); - LibraryManufacturing.CreateProductionForecastName(ProductionForecastName); - LibraryManufacturing.CreateProductionForecastEntry( - ProductionForecastEntry, ProductionForecastName.Name, Item."No.", '', WorkDate(), false); - UpdateProductionForecastQty(ProductionForecastEntry); - - // Exercise: Generate the Production Forecast report. - Commit(); - ProductionForecastEntry.SetRange("Item No.", Item."No."); - REPORT.Run(REPORT::"Demand Forecast", true, false, ProductionForecastEntry); - - // Verify: Check that Item No exists in the Production Forecast report and verify Forecast Quantity. - LibraryReportDataset.LoadDataSetFile(); - LibraryReportDataset.SetRange('ItemNo_ForecastEntry', ProductionForecastEntry."Item No."); - LibraryReportDataset.GetNextRow(); - LibraryReportDataset.AssertCurrentRowValueEquals('ForecastQty_ForecastEntry', ProductionForecastEntry."Forecast Quantity"); - end; -#endif [Test] [Scope('OnPrem')] @@ -1395,13 +1362,6 @@ codeunit 137304 "SCM Manufacturing Reports" ProdOrderLine.FindSet(); end; -#if not CLEAN27 - local procedure UpdateProductionForecastQty(var ProductionForecastEntry: Record "Production Forecast Entry") - begin - ProductionForecastEntry.Validate("Forecast Quantity", LibraryRandom.RandDec(10, 2)); - ProductionForecastEntry.Modify(true); - end; -#endif local procedure SelectConsumptionLines(var ItemJournalLine: Record "Item Journal Line"; ItemJournalBatch2: Record "Item Journal Batch") begin @@ -1681,14 +1641,6 @@ codeunit 137304 "SCM Manufacturing Reports" begin ProdOrderStatistics.SaveAsXml(LibraryReportDataset.GetParametersFileName(), LibraryReportDataset.GetFileName()); end; -#if not CLEAN27 - [RequestPageHandler] - [Scope('OnPrem')] - procedure ProductionForecastRequestPageHandler(var ProductionForecast: TestRequestPage "Demand Forecast") - begin - ProductionForecast.SaveAsXml(LibraryReportDataset.GetParametersFileName(), LibraryReportDataset.GetFileName()); - end; -#endif [RequestPageHandler] [Scope('OnPrem')] diff --git a/src/Layers/W1/Tests/SCM-Planning/SCMPlanningReports.Codeunit.al b/src/Layers/W1/Tests/SCM-Planning/SCMPlanningReports.Codeunit.al index 897b878fb58..0f79fbf819f 100644 --- a/src/Layers/W1/Tests/SCM-Planning/SCMPlanningReports.Codeunit.al +++ b/src/Layers/W1/Tests/SCM-Planning/SCMPlanningReports.Codeunit.al @@ -15,13 +15,7 @@ codeunit 137308 "SCM Planning Reports" LibraryInventory: Codeunit "Library - Inventory"; LibraryManufacturing: Codeunit "Library - Manufacturing"; LibraryPlanning: Codeunit "Library - Planning"; -#if not CLEAN27 - LibraryReportDataset: Codeunit "Library - Report Dataset"; -#endif LibraryUtility: Codeunit "Library - Utility"; -#if not CLEAN27 - LibrarySales: Codeunit "Library - Sales"; -#endif LibraryPurchase: Codeunit "Library - Purchase"; LibraryWarehouse: Codeunit "Library - Warehouse"; LibraryVariableStorage: Codeunit "Library - Variable Storage"; @@ -32,1231 +26,8 @@ codeunit 137308 "SCM Planning Reports" LibraryTestInitialize: Codeunit "Library - Test Initialize"; LibraryApplicationArea: Codeunit "Library - Application Area"; isInitialized: Boolean; -#if not CLEAN27 - PlannedReceiptsErr: Label 'Wrong planned receipts qty.'; - ScheduledReceiptsErr: Label 'Wrong scheduled receipts qty.'; - ErrMsgRequisition: Label 'Requisition Line must not exist.'; - ErrMsgDocument: Label 'Document must not exist.'; - OutputConfirmMessage: Label '\\ * Some output is still missing.\ * Some consumption is still missing.\\ Do you still want to finish the order?'; -#endif RecordShould: Option Exist,"Not Exist"; RecordExistenceErr: Label '%1 record should %2.'; -#if not CLEAN27 - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForPurchaseReorderPolicyLotForLot() - var - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityForPurchase(Item."Reordering Policy"::"Lot-for-Lot"); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForPurchaseReorderPolicyFRQ() - var - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityForPurchase(Item."Reordering Policy"::"Fixed Reorder Qty."); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForPurchaseReorderPolicyMQ() - var - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityForPurchase(Item."Reordering Policy"::"Maximum Qty."); - end; - - local procedure PlanningAvailabilityForPurchase(ReorderingPolicy: Enum "Reordering Policy") - var - Item: Record Item; - SalesLine: Record "Sales Line"; - PurchaseLine: Record "Purchase Line"; - PurchaseHeader: Record "Purchase Header"; - begin - // Setup: Create Item and Sales Order. - CreateItem(Item, '', '', ReorderingPolicy, Item."Replenishment System"::Purchase); - if ReorderingPolicy = Item."Reordering Policy"::"Fixed Reorder Qty." then - UpdateItemReorderPointParameters(Item) - else - if ReorderingPolicy = Item."Reordering Policy"::"Maximum Qty." then - UpdateItemMinMaxOrderQty(Item, 0, LibraryRandom.RandDec(5, 2) + 100); // Value required. - CreateSalesOrder(SalesLine, Item."No."); - - // Create Purchase Order with Planning Flexibility - None. - CreatePurchaseOrder(PurchaseHeader, PurchaseLine, Item."No."); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement, Scheduled Receipts, and Projected Balance in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - if (ReorderingPolicy = Item."Reordering Policy"::"Lot-for-Lot") or - (ReorderingPolicy = Item."Reordering Policy"::"Fixed Reorder Qty.") - then - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', PurchaseLine.Quantity - SalesLine.Quantity); - - VerifySalesGrossRequirement(SalesLine); - Assert.AreEqual(PurchaseLine.Quantity, SelectScheduledReceipts(PurchaseLine."Document No."), ScheduledReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForFirmPlannedProdOrder() - var - ProductionOrder: Record "Production Order"; - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityReport(ProductionOrder.Status::"Firm Planned", Item."Reordering Policy"::"Lot-for-Lot"); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForReleasedProdOrder() - var - ProductionOrder: Record "Production Order"; - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityReport(ProductionOrder.Status::Released, Item."Reordering Policy"::"Lot-for-Lot"); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForFirmPlannedProdOrderReorderPolicyFRQ() - var - ProductionOrder: Record "Production Order"; - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityReport(ProductionOrder.Status::"Firm Planned", Item."Reordering Policy"::"Fixed Reorder Qty."); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForReleasedProdOrderReorderPolicyFRQ() - var - ProductionOrder: Record "Production Order"; - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityReport(ProductionOrder.Status::Released, Item."Reordering Policy"::"Fixed Reorder Qty."); - end; - - local procedure PlanningAvailabilityReport(ProductionOrderStatus: Enum "Production Order Status"; ItemReorderingPolicy: Enum "Reordering Policy") - var - SalesLine: Record "Sales Line"; - ProductionOrder: Record "Production Order"; - begin - // Create Production Order. - CreateProductionOrderSetup(ProductionOrder, ProductionOrderStatus, ItemReorderingPolicy); - - // Create Sales Order. - CreateSalesOrder(SalesLine, ProductionOrder."Source No."); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(ProductionOrder."Source No.", 0D); - - // Verify: Check values - Gross Requirement, Scheduled Receipts, and Projected Balance in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', ProductionOrder.Quantity - SalesLine.Quantity); - VerifySalesGrossRequirement(SalesLine); - Assert.AreEqual(ProductionOrder.Quantity, SelectScheduledReceipts(ProductionOrder."No."), ScheduledReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanWithoutReorderPolicy() - begin - // Setup: Create Item without Re-order policy. Create Sales Order. - Initialize(); - CalcPlanWithoutReorderPolicy(true); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcNetChangePlanWithoutReorderPolicy() - begin - // Setup: Create Item without Re-order policy. Create Sales Order. - Initialize(); - CalcPlanWithoutReorderPolicy(false); - end; - - local procedure CalcPlanWithoutReorderPolicy(Regenerative: Boolean) - var - Item: Record Item; - SalesLine: Record "Sales Line"; - PlanningBuffer: Record "Planning Buffer"; - begin - // Create Item without Re-order policy. Create Sales Order. - CreateItem(Item, '', '', Item."Reordering Policy"::" ", Item."Replenishment System"::Purchase); - CreateSalesOrder(SalesLine, Item."No."); - - // Planning Worksheet -> Calculate Regenerative plan Or Calculate Net Change plan. - if Regenerative then - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()) - else - LibraryPlanning.CalcNetChangePlanForPlanWksh(Item, WorkDate(), WorkDate(), false); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement from Sales Order, but Requisition line is not available in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifySalesGrossRequirement(SalesLine); - LibraryReportDataset.SetRange('PlanningBuffDocType', PlanningBuffer."Document Type"::"Requisition Line"); - Assert.IsFalse(LibraryReportDataset.GetNextRow(), ErrMsgRequisition); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanWithReorderPolicyAndPurchase() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CalcRegenerativePlanAndPlanningAvailability(Item."Replenishment System"::Purchase); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanWithReorderPolicyAndProduction() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CalcRegenerativePlanAndPlanningAvailability(Item."Replenishment System"::"Prod. Order"); - end; - - local procedure CalcRegenerativePlanAndPlanningAvailability(ItemReplenishmentSystem: Enum "Replenishment System") - var - Item: Record Item; - SalesLine: Record "Sales Line"; - begin - // Create Item with Re-order policy- Lot-for-Lot. Create Sales Order. - CreateItem(Item, '', '', Item."Reordering Policy"::"Lot-for-Lot", ItemReplenishmentSystem); - CreateSalesOrder(SalesLine, Item."No."); - - // Planning Worksheet -> Calculate Regenerative plan. - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement from Sales Order, and Planned Receipts from Requisition Line in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifySalesGrossRequirement(SalesLine); - Assert.AreEqual(CalcItemReorderQty(Item, SalesLine.Quantity, 0), SelectPlannedReceipts(), PlannedReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMessageForPurchaseOrder() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMessageAndPlanningAvailability(Item."Replenishment System"::Purchase); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMessageForProductionOrder() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMessageAndPlanningAvailability(Item."Replenishment System"::"Prod. Order"); - end; - - local procedure CarryOutActionMessageAndPlanningAvailability(ItemReplenishmentSystem: Enum "Replenishment System") - var - Item: Record Item; - SalesLine: Record "Sales Line"; - begin - // Create Item with Re-order policy- Lot-for-Lot and required replenishment. Create Sales Order. - CreateItem(Item, '', '', Item."Reordering Policy"::"Lot-for-Lot", ItemReplenishmentSystem); - CreateSalesOrder(SalesLine, Item."No."); - - // Planning Worksheet -> Calculate Regenerative plan. - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - - // Carry-Out Action Message. - CarryOutActionMessageForRegenPlan(Item."No."); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement from Sales Order, and Scheduled Receipts from newly created Purchase or Production Order, in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifySalesGrossRequirement(SalesLine); - VerifyRefOrder(Item); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMessageAndDeletePurchaseOrder() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMessageAndDeleteOrder(Item."Replenishment System"::Purchase); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMessageAndDeleteProductionOrder() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMessageAndDeleteOrder(Item."Replenishment System"::"Prod. Order"); - end; - - local procedure CarryOutActionMessageAndDeleteOrder(ItemReplenishmentSystem: Enum "Replenishment System") - var - Item: Record Item; - SalesLine: Record "Sales Line"; - PlanningBuffer: Record "Planning Buffer"; - begin - // Create Item with Re-order policy - Lot-for-Lot and required replenishment. Create Sales Order. - CreateItem(Item, '', '', Item."Reordering Policy"::"Lot-for-Lot", ItemReplenishmentSystem); - CreateSalesOrder(SalesLine, Item."No."); - - // Planning Worksheet -> Calculate Regenerative plan. - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - - // Carry-Out Action Message. - CarryOutActionMessageForRegenPlan(Item."No."); - - // Delete Purchase or Production Order. - DeleteOrder(Item); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check value - Gross Requirement from Sales Order, but newly created Purchase or Production Order are not available in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifySalesGrossRequirement(SalesLine); - LibraryReportDataset.SetRange('PlanningBuffDocType', PlanningBuffer."Document Type"::"Purchase Order"); - Assert.IsFalse(LibraryReportDataset.GetNextRow(), ErrMsgDocument); - - LibraryReportDataset.SetRange('PlanningBuffDocType', PlanningBuffer."Document Type"::"Firm Planned Prod. Order"); - Assert.IsFalse(LibraryReportDataset.GetNextRow(), ErrMsgDocument); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMsgPurchaseReorderPolicyLotForLot() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMessageForDiffReplenishmentReorderPolicy( - Item."Reordering Policy"::"Lot-for-Lot", Item."Replenishment System"::Purchase); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMsgProductionReorderPolicyLotForLot() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMessageForDiffReplenishmentReorderPolicy( - Item."Reordering Policy"::"Lot-for-Lot", Item."Replenishment System"::"Prod. Order"); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMsgPurchaseReorderPolicyOrder() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMessageForDiffReplenishmentReorderPolicy(Item."Reordering Policy"::Order, Item."Replenishment System"::Purchase); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMsgProductionReorderPolicyOrder() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMessageForDiffReplenishmentReorderPolicy( - Item."Reordering Policy"::Order, Item."Replenishment System"::"Prod. Order"); - end; - - local procedure CarryOutActionMessageForDiffReplenishmentReorderPolicy(ItemReorderingPolicy: Enum "Reordering Policy"; ItemReplenishmentSystem: Enum "Replenishment System") - var - Item: Record Item; - SalesLine: Record "Sales Line"; - SalesLine2: Record "Sales Line"; - begin - // Create Item with required re-order policy and required replenishment system and create two Sales Order. - CreateItem(Item, '', '', ItemReorderingPolicy, ItemReplenishmentSystem); - CreateSalesOrder(SalesLine, Item."No."); - CreateSalesOrder(SalesLine2, Item."No."); - - // Planning Worksheet -> Calculate Regenerative plan. - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - - // Carry-Out Action Message. - CarryOutActionMessageForRegenPlan(Item."No."); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Verify Sales Order entries and Scheduled Receipts in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - LibraryReportDataset.AssertElementWithValueExists('PlanningBuffDocNo', SalesLine."Document No."); - LibraryReportDataset.AssertElementWithValueExists('PlanningBuffDocNo', SalesLine2."Document No."); - if ItemReorderingPolicy = Item."Reordering Policy"::"Lot-for-Lot" then - LibraryReportDataset.AssertElementWithValueExists('PlngBuffScheduledReceipts', SalesLine.Quantity + - SalesLine2.Quantity) - else - VerifyScheduledReceiptsForPolicyOrder(Item); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanForFirmPlannedOrder() - var - Item: Record Item; - ProductionOrder: Record "Production Order"; - begin - // Setup: Create Item, create and refresh Production Order. - Initialize(); - CreateItem(Item, '', '', Item."Reordering Policy"::"Lot-for-Lot", Item."Replenishment System"::"Prod. Order"); - CreateAndRefreshProdOrder(ProductionOrder, ProductionOrder.Status::"Firm Planned", Item."No."); - - // Planning Worksheet -> Calculate Regenerative plan. Cancels Production Order. - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - - // Exercise: Generate the Planning Availability Report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check value - Scheduled Receipts and Planned Receipts in the Planning Availability Report are Zero. - Assert.AreEqual(0, SelectPlannedReceipts(), PlannedReceiptsErr); - Assert.AreEqual(0, SelectScheduledReceipts(ProductionOrder."No."), ScheduledReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForFirmPlannedWithNewBOMVersion() - var - ProductionBOMVersion: Record "Production BOM Version"; - begin - // Setup. - Initialize(); - PlanningAvailabilityForFirmPlannedOrdersWithBOMVersion(ProductionBOMVersion.Status::New, false, false); // Calculate Regenerative Plan - False, BOM Version Item - False. - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanForFirmPlannedWithNewBOMVersion() - var - ProductionBOMVersion: Record "Production BOM Version"; - begin - // Setup. - Initialize(); - PlanningAvailabilityForFirmPlannedOrdersWithBOMVersion(ProductionBOMVersion.Status::New, true, false); // Calculate Regenerative Plan - True, BOM Version Item - False. - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForFirmPlannedProdItemWithCertifiedBOMVersion() - var - ProductionBOMVersion: Record "Production BOM Version"; - begin - // Setup. - Initialize(); - PlanningAvailabilityForFirmPlannedOrdersWithBOMVersion(ProductionBOMVersion.Status::Certified, false, false); // Calculate Regenerative Plan - False, BOM Version Item - False. - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForFirmPlannedBOMItemWithCertifiedBOMVersion() - var - ProductionBOMVersion: Record "Production BOM Version"; - begin - // Setup. - Initialize(); - PlanningAvailabilityForFirmPlannedOrdersWithBOMVersion(ProductionBOMVersion.Status::Certified, false, true); // Calculate Regenerative Plan - False, BOM Version Item - True. - end; - - local procedure PlanningAvailabilityForFirmPlannedOrdersWithBOMVersion(Status: Enum "BOM Status"; CalculateRegenerativePlan: Boolean; BOMVersionItem: Boolean) - var - Item: Record Item; - Item2: Record Item; - PurchaseHeader: Record "Purchase Header"; - PurchaseHeader2: Record "Purchase Header"; - PurchaseLine: Record "Purchase Line"; - PurchaseLine2: Record "Purchase Line"; - PurchaseLine3: Record "Purchase Line"; - ProductionOrder: Record "Production Order"; - ItemNo: Code[20]; - begin - // Create Item. Create Production BOM and Version, Create and Refresh Production Order. - CreateItem(Item, '', '', Item."Reordering Policy"::"Lot-for-Lot", Item."Replenishment System"::"Prod. Order"); - ItemNo := Item."No."; - - // Create Purchase Order with two Lines. - CreatePurchaseOrder(PurchaseHeader, PurchaseLine, Item."No."); - LibraryPurchase.CreatePurchaseLine( - PurchaseLine2, PurchaseHeader, PurchaseLine.Type::Item, Item."No.", LibraryRandom.RandDec(5, 2)); // Random Quantity for Purchase Line. - CreateItem(Item2, '', '', Item2."Reordering Policy"::"Lot-for-Lot", Item2."Replenishment System"::Purchase); - - if BOMVersionItem then begin - CreatePurchaseOrder(PurchaseHeader2, PurchaseLine3, Item2."No."); - ItemNo := Item2."No."; - end; - - CreateProductionBOMWithVersion(Item."Base Unit of Measure", Item2."No.", Status); - CreateAndRefreshProdOrder(ProductionOrder, ProductionOrder.Status::"Firm Planned", Item."No."); - - // Exercise: Generate the Planning Availability Report with Calculated Regenerative plan as required. - if CalculateRegenerativePlan then - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - RunPlanningAvailabilityReport(ItemNo, 0D); - - // Verify: Check values- Scheduled Receipts from Production Order and Projected Balance in the Planning Availability Report. - LibraryReportDataset.LoadDataSetFile(); - if BOMVersionItem then - Assert.AreEqual(PurchaseLine3.Quantity, SelectScheduledReceipts(PurchaseLine3."Document No."), ScheduledReceiptsErr) - else - VerifyPurchaseAndFirmPlannedValues(PurchaseLine, PurchaseLine2, ProductionOrder, CalculateRegenerativePlan); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanForFirmPlannedWithSales() - var - Item: Record Item; - SalesLine: Record "Sales Line"; - ProductionOrder: Record "Production Order"; - begin - // Setup: Create Item, create and refresh Firm Planned Production Order and create Sales Order. - Initialize(); - CreateItem(Item, '', '', Item."Reordering Policy"::"Lot-for-Lot", Item."Replenishment System"::"Prod. Order"); - CreateAndRefreshProdOrder(ProductionOrder, ProductionOrder.Status::"Firm Planned", Item."No."); - CreateSalesOrder(SalesLine, ProductionOrder."Source No."); - - // Exercise: Generate the Planning Availability Report after Calculate Regenerative plan. - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check value - Gross Requirement, Projected Balance and Planned receipts from Requisition Line in the Planning Availability Report. - LibraryReportDataset.LoadDataSetFile(); - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', -SalesLine.Quantity); - VerifySalesGrossRequirement(SalesLine); - Assert.AreEqual(CalcItemReorderQty(Item, SalesLine.Quantity, 0), SelectPlannedReceipts(), PlannedReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcNetChangePlanWithReorderPolicyFRQAndPurchase() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CalcNetChangePlanAndPlanningAvailability(Item."Replenishment System"::Purchase); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcNetChangePlanWithReorderPolicyFRQAndProduction() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CalcNetChangePlanAndPlanningAvailability(Item."Replenishment System"::"Prod. Order"); - end; - - local procedure CalcNetChangePlanAndPlanningAvailability(ItemReplenishmentSystem: Enum "Replenishment System") - var - Item: Record Item; - SalesLine: Record "Sales Line"; - begin - // Create Item with Re-order policy- Fixed Re-order Qty. Create Sales Order. - CreateItem(Item, '', '', Item."Reordering Policy"::"Fixed Reorder Qty.", ItemReplenishmentSystem); - UpdateItemReorderPointParameters(Item); - CreateSalesOrder(SalesLine, Item."No."); - - // Planning Worksheet -> Calculate Net Change Plan. - LibraryPlanning.CalcNetChangePlanForPlanWksh(Item, WorkDate(), WorkDate(), false); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement from Sales Order, and Planned Receipts from Requisition Line in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifySalesGrossRequirement(SalesLine); - Assert.AreEqual(SalesLine.Quantity + CalcItemReorderQty(Item, SalesLine.Quantity, 0), SelectPlannedReceipts(), PlannedReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForFirmPlannedNewBOMVersionReorderPolicyFRQ() - var - ProductionBOMVersion: Record "Production BOM Version"; - begin - // Setup. - Initialize(); - PlanningAvailabilityForFirmPlannedOrdersWithBOMVersionAndItemReorderPolicyFRQ(ProductionBOMVersion.Status::New, false, false); // Calculate Net Change Plan - False, BOM Version Item - False. - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanForFirmPlannedNewBOMVersionReorderPolicyFRQ() - var - ProductionBOMVersion: Record "Production BOM Version"; - begin - // Setup. - Initialize(); - PlanningAvailabilityForFirmPlannedOrdersWithBOMVersionAndItemReorderPolicyFRQ(ProductionBOMVersion.Status::New, true, false); // Calculate Net Change Plan - True, BOM Version Item - False. - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForFirmPlannedProdItemCertifiedBOMVersionReorderPolicyFRQ() - var - ProductionBOMVersion: Record "Production BOM Version"; - begin - // Setup. - Initialize(); - PlanningAvailabilityForFirmPlannedOrdersWithBOMVersionAndItemReorderPolicyFRQ( - ProductionBOMVersion.Status::Certified, false, false); // Calculate Net Change Plan - False, BOM Version Item - False. - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForFirmPlannedBOMItemCertifiedBOMVersionReorderPolicyFRQ() - var - ProductionBOMVersion: Record "Production BOM Version"; - begin - // Setup. - Initialize(); - PlanningAvailabilityForFirmPlannedOrdersWithBOMVersionAndItemReorderPolicyFRQ(ProductionBOMVersion.Status::Certified, false, true); // Calculate Net Change Plan - False, BOM Version Item - True. - end; - - local procedure PlanningAvailabilityForFirmPlannedOrdersWithBOMVersionAndItemReorderPolicyFRQ(Status: Enum "BOM Status"; CalculateNetChangePlan: Boolean; BOMVersionItem: Boolean) - var - Item: Record Item; - Item2: Record Item; - PurchaseHeader: Record "Purchase Header"; - PurchaseHeader2: Record "Purchase Header"; - PurchaseLine: Record "Purchase Line"; - PurchaseLine2: Record "Purchase Line"; - PurchaseLine3: Record "Purchase Line"; - ProductionOrder: Record "Production Order"; - ItemNo: Code[20]; - begin - // Create Item. Create Production BOM and Version, Create and Refresh Production Order. - CreateItem(Item, '', '', Item."Reordering Policy"::"Fixed Reorder Qty.", Item."Replenishment System"::"Prod. Order"); - UpdateItemReorderPointParameters(Item); - ItemNo := Item."No."; - - // Create Purchase Order with two Lines. - CreatePurchaseOrder(PurchaseHeader, PurchaseLine, Item."No."); - LibraryPurchase.CreatePurchaseLine( - PurchaseLine2, PurchaseHeader, PurchaseLine.Type::Item, Item."No.", LibraryRandom.RandDec(5, 2)); // Random Quantity for Purchase Line. - CreateItem(Item2, '', '', Item2."Reordering Policy"::"Fixed Reorder Qty.", Item2."Replenishment System"::Purchase); - UpdateItemReorderPointParameters(Item2); - - if BOMVersionItem then begin - CreatePurchaseOrder(PurchaseHeader2, PurchaseLine3, Item2."No."); - ItemNo := Item2."No."; - end; - - CreateProductionBOMWithVersion(Item."Base Unit of Measure", Item2."No.", Status); - CreateAndRefreshProdOrder(ProductionOrder, ProductionOrder.Status::"Firm Planned", Item."No."); - - // Exercise: Generate the Planning Availability Report with Calculate Net Change plan as required. - if CalculateNetChangePlan then - LibraryPlanning.CalcNetChangePlanForPlanWksh(Item, WorkDate(), WorkDate(), false); - RunPlanningAvailabilityReport(ItemNo, 0D); - - // Verify: Check values- Scheduled Receipts from Production Order and Projected Balance in the Planning Availability Report. - LibraryReportDataset.LoadDataSetFile(); - if BOMVersionItem then - Assert.AreEqual(PurchaseLine3.Quantity, SelectScheduledReceipts(PurchaseLine3."Document No."), ScheduledReceiptsErr) - else - VerifyPurchaseAndFirmPlannedValuesForFRQItem(PurchaseLine, PurchaseLine2, ProductionOrder); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityReportForProdWithRoutingAndMultipleSalesReorderPolicyLFL() - var - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityReportForProdWithRoutingAndMultipleSales(Item."Reordering Policy"::"Lot-for-Lot"); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityReportForProdWithRoutingAndMultipleSalesReorderPolicyMQ() - var - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityReportForProdWithRoutingAndMultipleSales(Item."Reordering Policy"::"Maximum Qty."); - end; - - local procedure PlanningAvailabilityReportForProdWithRoutingAndMultipleSales(ReorderingPolicy: Enum "Reordering Policy") - var - Item: Record Item; - ProductionOrder: Record "Production Order"; - SalesLine: Record "Sales Line"; - SalesLine2: Record "Sales Line"; - begin - // Create Item with Production BOM and Routing, create two Sales Order and Firm Planned Production Order. - CreateSalesOrdersWithFirmPlannedProd(Item, ProductionOrder, SalesLine, SalesLine2, ReorderingPolicy); - if ReorderingPolicy = Item."Reordering Policy"::"Maximum Qty." then - UpdateItemMinMaxOrderQty(Item, 0, LibraryRandom.RandDec(5, 2) + 100); // Value required. - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement,Production scheduled Receipts, Projected Balance in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifyGrossReqAndProjectedBalanceForMultipleSales(SalesLine, SalesLine2, ProductionOrder); - Assert.AreEqual(ProductionOrder.Quantity, SelectScheduledReceipts(ProductionOrder."No."), ScheduledReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanForProdWithRoutingAndMultipleSalesReorderPolicyLFL() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CalcRegenerativePlanForProdWithRoutingAndMultipleSales(Item."Reordering Policy"::"Lot-for-Lot"); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanForProdWithRoutingAndMultipleSalesReorderPolicyMQ() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CalcRegenerativePlanForProdWithRoutingAndMultipleSales(Item."Reordering Policy"::"Maximum Qty."); - end; - - local procedure CalcRegenerativePlanForProdWithRoutingAndMultipleSales(ReorderingPolicy: Enum "Reordering Policy") - var - Item: Record Item; - ProductionOrder: Record "Production Order"; - SalesLine: Record "Sales Line"; - SalesLine2: Record "Sales Line"; - begin - // Create Item with Production BOM and Routing, create two Sales Order and Firm Planned Production Order. - CreateSalesOrdersWithFirmPlannedProd(Item, ProductionOrder, SalesLine, SalesLine2, ReorderingPolicy); - if ReorderingPolicy = Item."Reordering Policy"::"Maximum Qty." then - UpdateItemMinMaxOrderQty(Item, 0, LibraryRandom.RandDec(5, 2) + 100); // Value required. - - // Planning Worksheet -> Calculate Regenerative plan. - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement,Projected Balance,Planned Receipts from Requisition Line in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifyGrossReqAndProjectedBalanceForMultipleSales(SalesLine, SalesLine2, ProductionOrder); - if ReorderingPolicy = Item."Reordering Policy"::"Maximum Qty." then - Assert.AreEqual(ProductionOrder.Quantity, SelectScheduledReceipts(ProductionOrder."No."), ScheduledReceiptsErr) - else - Assert.AreEqual(SalesLine.Quantity + SalesLine2.Quantity - SelectScheduledReceipts(ProductionOrder."No."), - SelectPlannedReceipts(), PlannedReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMsgForProdWithRoutingAndMultipleSalesReorderPolicyLFL() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMsgForProdWithRoutingAndMultipleSales(Item."Reordering Policy"::"Lot-for-Lot"); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMsgForProdWithRoutingAndMultipleSalesReorderPolicyMQ() - var - Item: Record Item; - begin - // Setup. - Initialize(); - CarryOutActionMsgForProdWithRoutingAndMultipleSales(Item."Reordering Policy"::"Maximum Qty."); - end; - - local procedure CarryOutActionMsgForProdWithRoutingAndMultipleSales(ReorderingPolicy: Enum "Reordering Policy") - var - Item: Record Item; - ProductionOrder: Record "Production Order"; - SalesLine: Record "Sales Line"; - SalesLine2: Record "Sales Line"; - begin - // Create Item with Production BOM and Routing, create two Sales Order and Firm Planned Production Order. - CreateSalesOrdersWithFirmPlannedProd(Item, ProductionOrder, SalesLine, SalesLine2, ReorderingPolicy); - if ReorderingPolicy = Item."Reordering Policy"::"Maximum Qty." then - UpdateItemMinMaxOrderQty(Item, 0, LibraryRandom.RandDec(5, 2) + 100); // Value required. - - // Planning Worksheet -> Calculate Regenerative plan. Carry-Out Action Message. - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - CarryOutActionMessageForRegenPlan(Item."No."); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirements, Scheduled Receipts, Projected Balance in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifyGrossReqAndProjectedBalanceForMultipleSales(SalesLine, SalesLine2, ProductionOrder); - LibraryReportDataset.Reset(); - if ReorderingPolicy = Item."Reordering Policy"::"Maximum Qty." then - LibraryReportDataset.AssertElementWithValueExists('PlngBuffScheduledReceipts', - SelectScheduledReceipts(ProductionOrder."No.")); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityReportForProdOrderWithBOMHierarchy() - begin - // Setup: Create Item with Order attributes. Create Production BOM and Routing with BOM hierarchy, create Sales Order and Firm Planned Production Order. - Initialize(); - PlanningAvailabilityReportForProdOrderSetup(true); // BOM Hierarchy- TRUE; - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityReportForProdItemWithoutRouting() - begin - // Setup. - Initialize(); - PlanningAvailabilityReportForProdOrderSetup(false); - end; - - local procedure PlanningAvailabilityReportForProdOrderSetup(BOMHierarchy: Boolean) - var - Item: Record Item; - ProductionOrder: Record "Production Order"; - SalesLine: Record "Sales Line"; - begin - if BOMHierarchy then - CreateSalesOrderWithFirmPlannedProdAndBOMHierarchy(Item, SalesLine, ProductionOrder) - else - CreateSalesOrderWtihProdOrderWithoutRouting(Item, SalesLine, ProductionOrder); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement, Projected Balance in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', ProductionOrder.Quantity - SalesLine.Quantity); - VerifySalesGrossRequirement(SalesLine); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityReportIncludesProductionForecast() - var - Item: Record Item; - ProductionForecastEntry: Record "Production Forecast Entry"; - ProductionForecastName: Record "Production Forecast Name"; - EventDate: Date; - begin - // 1) Setup: Create a production forecast entry for an item with a Production BOM - Initialize(); - CreateItemWithProductionBOM(Item); - CreateForecastEntry(ProductionForecastEntry, ProductionForecastName, Item, EventDate); - - // 2) Exercise - RunPlanningAvailabilityReport(Item."No.", EventDate); - - // 3) Verify - VerifyProductionForecastGrossRequirement(ProductionForecastEntry); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanForProdOrderWithBOMHierarchy() - begin - // Setup: Create Item with Order attributes. Create Production BOM and Routing with BOM hierarchy, create Sales Order and Firm Planned Production Order. - Initialize(); - CalcRegenerativePlanForProdOrderSetup(true); // BOM Hierarchy- TRUE; - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CalcRegenerativePlanForProdItemWithoutRouting() - begin - // Setup. - Initialize(); - CalcRegenerativePlanForProdOrderSetup(false); - end; - - local procedure CalcRegenerativePlanForProdOrderSetup(BOMHierarchy: Boolean) - var - Item: Record Item; - ProductionOrder: Record "Production Order"; - SalesLine: Record "Sales Line"; - begin - if BOMHierarchy then - CreateSalesOrderWithFirmPlannedProdAndBOMHierarchy(Item, SalesLine, ProductionOrder) - else - CreateSalesOrderWtihProdOrderWithoutRouting(Item, SalesLine, ProductionOrder); - - // Planning Worksheet -> Calculate Regenerative plan - LibraryPlanning.CalcRegenPlanForPlanWksh( - Item, WorkDate(), CalcDate('<' + Format(LibraryRandom.RandInt(5) + 30) + 'D>', WorkDate())); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement,Projected Balance,Planned Receipts from Requisition Line in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', -SalesLine.Quantity); - VerifySalesGrossRequirement(SalesLine); - Assert.AreEqual(CalcItemReorderQty(Item, SalesLine.Quantity, 0), SelectPlannedReceipts(), PlannedReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMsgForProdOrderWithBOMHierarchy() - begin - // Setup: Create Item with Order attributes. Create Production BOM and Routing with BOM hierarchy, create Sales Order and Firm Planned Production Order. - Initialize(); - CarryOutActionMessageForProductionSetup(true); // BOM Hierarchy - TRUE. - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure CarryOutActionMsgForProdItemWithoutRouting() - begin - // Setup. - Initialize(); - CarryOutActionMessageForProductionSetup(false); - end; - - local procedure CarryOutActionMessageForProductionSetup(BOMHierarchy: Boolean) - var - Item: Record Item; - ProductionOrder: Record "Production Order"; - SalesLine: Record "Sales Line"; - begin - if BOMHierarchy then - CreateSalesOrderWithFirmPlannedProdAndBOMHierarchy(Item, SalesLine, ProductionOrder) - else - CreateSalesOrderWtihProdOrderWithoutRouting(Item, SalesLine, ProductionOrder); - - // Planning Worksheet -> Calculate Regenerative plan. Carry-Out Action Message. - LibraryPlanning.CalcRegenPlanForPlanWksh( - Item, WorkDate(), CalcDate('<' + Format(LibraryRandom.RandInt(5) + 30) + 'D>', WorkDate())); - CarryOutActionMessageForRegenPlan(Item."No."); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Gross Requirement, Scheduled Receipts,Projected Balance in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifySalesGrossRequirement(SalesLine); - ProductionOrder.Get(ProductionOrder.Status, ProductionOrder."No."); - Assert.AreEqual(ProductionOrder.Quantity, SelectScheduledReceipts(ProductionOrder."No."), ScheduledReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityAfterSalesPostAndCalcRegenPlanReorderPolicyFRQ() - begin - // Setup. - Initialize(); - PlanningAvailabilityAfterSalesPostReorderPolicyFRQ(false); // Carry Out Action Message - False. - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityAfterSalesPostAndCarryOutActionMsgReorderPolicyFRQ() - begin - // Setup. - Initialize(); - PlanningAvailabilityAfterSalesPostReorderPolicyFRQ(true); // Carry Out Action Message - True. - end; - - local procedure PlanningAvailabilityAfterSalesPostReorderPolicyFRQ(CarryOutActionMessage: Boolean) - var - Item: Record Item; - SalesLine: Record "Sales Line"; - begin - // Create Item and Sales Order. - CreateItem(Item, '', '', Item."Reordering Policy"::"Fixed Reorder Qty.", Item."Replenishment System"::Purchase); - UpdateItemReorderQty(Item); - CreateAndPostSalesOrder(SalesLine, Item."No."); - LibraryPlanning.CalcRegenPlanForPlanWksh(Item, WorkDate(), WorkDate()); - if CarryOutActionMessage then - CarryOutActionMessageForRegenPlan(Item."No."); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Planned Receipts, Scheduled Receipts and Projected Balance in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifyMultiplePurchaseReceipts(SalesLine, Item."Reorder Quantity", CarryOutActionMessage); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityAfterSalesPostAndCalcPlanReqWkhstReorderPolicyFRQ() - begin - // Setup. - Initialize(); - PlanningAvailabilityAfterSalesPostReqWkshtReorderPolicyFRQ(false); // Carry Out Action Message - False. - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityAfterSalesPostReqWkhstCarryOutActionMsgReorderPolicyFRQ() - begin - // Setup. - Initialize(); - PlanningAvailabilityAfterSalesPostReqWkshtReorderPolicyFRQ(true); // Carry Out Action Message - True. - end; - - local procedure PlanningAvailabilityAfterSalesPostReqWkshtReorderPolicyFRQ(CarryOutActionMessage: Boolean) - var - Item: Record Item; - SalesLine: Record "Sales Line"; - RequisitionWkshName: Record "Requisition Wksh. Name"; - RequisitionLine: Record "Requisition Line"; - begin - // Create Item and Sales Order. - CreateItem(Item, '', '', Item."Reordering Policy"::"Fixed Reorder Qty.", Item."Replenishment System"::Purchase); - UpdateItemReorderQty(Item); - CreateAndPostSalesOrder(SalesLine, Item."No."); - - // Create Requisition Worksheet. - CalcPlanForRequisitionWorksheet(RequisitionWkshName, Item); - - if CarryOutActionMessage then begin - SelectRequisitionLineForReqWksht(RequisitionLine, RequisitionWkshName."Worksheet Template Name", RequisitionWkshName.Name); - repeat - RequisitionLine.Validate("Vendor No.", LibraryPurchase.CreateVendorNo()); - UpdateActionMessageRequisitionLine(RequisitionLine); - until RequisitionLine.Next() = 0; - LibraryPlanning.CarryOutReqWksh(RequisitionLine, WorkDate(), WorkDate(), WorkDate(), WorkDate(), ''); - end; - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Planned Receipts, Scheduled Receipts and Projected Balance in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifyMultiplePurchaseReceipts(SalesLine, Item."Reorder Quantity", CarryOutActionMessage); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForSalesWithProdOrderAndCalcPlanReqWkhstReorderPolicyFRQ() - var - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityForSalesWithProdOrder(Item."Reordering Policy"::"Fixed Reorder Qty."); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForSalesWithProdOrderAndCalcPlanReqWkhstReorderPolicyMQ() - var - Item: Record Item; - begin - // Setup. - Initialize(); - PlanningAvailabilityForSalesWithProdOrder(Item."Reordering Policy"::"Maximum Qty."); - end; - - local procedure PlanningAvailabilityForSalesWithProdOrder(ReorderingPolicy: Enum "Reordering Policy") - var - Item: Record Item; - SalesLine: Record "Sales Line"; - ProductionOrder: Record "Production Order"; - RequisitionWkshName: Record "Requisition Wksh. Name"; - begin - // Create Fixed Reorder Qty or Maximum Qty Item with Sales and Production Order. - CreateItem(Item, '', '', ReorderingPolicy, Item."Replenishment System"::Purchase); - CreateSalesOrder(SalesLine, Item."No."); - CreateAndRefreshProdOrder(ProductionOrder, ProductionOrder.Status::"Firm Planned", Item."No."); - - // Create Requisition Worksheet. - CalcPlanForRequisitionWorksheet(RequisitionWkshName, Item); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(Item."No.", 0D); - - // Verify: Check values - Sales Requirement and Production Scheduled Receipts, and Planned Receipts in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - VerifySalesGrossRequirement(SalesLine); - Assert.AreEqual(ProductionOrder.Quantity, SelectScheduledReceipts(ProductionOrder."No."), ScheduledReceiptsErr); - Assert.AreEqual(SalesLine.Quantity - ProductionOrder.Quantity, SelectPlannedReceipts(), PlannedReceiptsErr); - end; - - [Test] - [HandlerFunctions('PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForFirmPlannedToReleasedProdOrderReorderPolicyLotForLot() - var - ProductionOrder: Record "Production Order"; - begin - // Setup. - Initialize(); - PlanningAvailabilityReportForProdOrderStatusUpdate(ProductionOrder.Status::"Firm Planned"); - - LibraryVariableStorage.AssertEmpty(); - end; - - [Test] - [HandlerFunctions('ConfirmHandler,PlanningAvailabilityRequestPageHandler')] - [Scope('OnPrem')] - procedure PlanningAvailabilityForReleasedToFinishedProdOrderReorderPolicyLotForLot() - var - ProductionOrder: Record "Production Order"; - begin - // Setup. - Initialize(); - PlanningAvailabilityReportForProdOrderStatusUpdate(ProductionOrder.Status::Released); - - LibraryVariableStorage.AssertEmpty(); - end; - - local procedure PlanningAvailabilityReportForProdOrderStatusUpdate(ProductionOrderStatus: Enum "Production Order Status") - var - SalesLine: Record "Sales Line"; - ProductionOrder: Record "Production Order"; - Item: Record Item; - NewReleasedProdOrderNo: Code[20]; - begin - // Create Firm Planned or Released Production Order as required with planning flexibility - None. - CreateProductionOrderSetup(ProductionOrder, ProductionOrderStatus, Item."Reordering Policy"::"Lot-for-Lot"); - - // Change status of the Production Order, Firm Planned -> Released, or Released -> Finished. - if ProductionOrderStatus = ProductionOrder.Status::"Firm Planned" then - NewReleasedProdOrderNo := - LibraryManufacturing.ChangeStatusFirmPlanToReleased(ProductionOrder."No.") - else begin - LibraryVariableStorage.Enqueue(OutputConfirmMessage); - LibraryManufacturing.ChangeStatusReleasedToFinished(ProductionOrder."No."); - end; - - // Create Sales Order. - CreateSalesOrder(SalesLine, ProductionOrder."Source No."); - - // Planning Worksheet -> Calculate Regenerative plan - Item.Get(ProductionOrder."Source No."); - LibraryPlanning.CalcRegenPlanForPlanWksh( - Item, WorkDate(), CalcDate('<' + Format(LibraryRandom.RandInt(5) + 30) + 'D>', WorkDate())); - - // Exercise: Generate the Planning Availability report. - RunPlanningAvailabilityReport(ProductionOrder."Source No.", 0D); - - // Verify: Check values - Gross Requirement, Prod. Scheduled Receipts, and Planned Receipts in the Planning Availability report. - LibraryReportDataset.LoadDataSetFile(); - if ProductionOrderStatus = ProductionOrder.Status::"Firm Planned" then begin - VerifySalesGrossRequirement(SalesLine); - ProductionOrder.Get(ProductionOrder.Status::Released, NewReleasedProdOrderNo); - Assert.AreEqual(ProductionOrder.Quantity, SelectScheduledReceipts(ProductionOrder."No."), ScheduledReceiptsErr); - Assert.AreEqual(SalesLine.Quantity - ProductionOrder.Quantity, SelectPlannedReceipts(), PlannedReceiptsErr); - end else begin - VerifySalesGrossRequirement(SalesLine); - Assert.AreEqual(SalesLine.Quantity, SelectPlannedReceipts(), PlannedReceiptsErr); - end; - end; -#endif [Test] [Scope('OnPrem')] @@ -1356,48 +127,6 @@ codeunit 137308 "SCM Planning Reports" Item.SetRange("No.", Item."No."); Item.SetRange("Location Filter", Location.Code); end; -#if not CLEAN27 - [Normal] - local procedure CreateItemWithProductionBOM(var Item: Record Item) - var - ItemComponent: Record Item; - ProductionBOMHeader: Record "Production BOM Header"; - ProductionBOMLine: Record "Production BOM Line"; - begin - LibraryInventory.CreateItem(Item); - Item.Validate("Replenishment System", Item."Replenishment System"::"Prod. Order"); - Item.Modify(true); - - LibraryInventory.CreateItem(ItemComponent); - Item.Validate("Replenishment System", Item."Replenishment System"::Purchase); - Item.Modify(true); - - LibraryManufacturing.CreateProductionBOMHeader(ProductionBOMHeader, Item."Base Unit of Measure"); - LibraryManufacturing.CreateProductionBOMLine( - ProductionBOMHeader, ProductionBOMLine, '', ProductionBOMLine.Type::Item, ItemComponent."No.", LibraryRandom.RandInt(20)); - ProductionBOMHeader.Validate(Status, ProductionBOMHeader.Status::Certified); - ProductionBOMHeader.Modify(true); - Item.Validate("Production BOM No.", ProductionBOMHeader."No."); - Item.Modify(true); - end; - - local procedure CreateSalesOrder(var SalesLine: Record "Sales Line"; ItemNo: Code[20]) - var - SalesHeader: Record "Sales Header"; - begin - LibrarySales.CreateSalesHeader(SalesHeader, SalesHeader."Document Type"::Order, ''); - LibrarySales.CreateSalesLine(SalesLine, SalesHeader, SalesLine.Type::Item, ItemNo, LibraryRandom.RandDec(10, 2) + 10); // Take Random Quantity. - end; - - local procedure CreateAndPostSalesOrder(var SalesLine: Record "Sales Line"; ItemNo: Code[20]) - var - SalesHeader: Record "Sales Header"; - begin - CreateSalesOrder(SalesLine, ItemNo); - SalesHeader.Get(SalesHeader."Document Type"::Order, SalesLine."Document No."); - LibrarySales.PostSalesDocument(SalesHeader, true, true); - end; -#endif local procedure CreateProductionOrderWithComponent(ItemNo: Code[20]; LocationCode: Code[10]) var @@ -1409,173 +138,6 @@ codeunit 137308 "SCM Planning Reports" CreateItem(Item, '', ProductionBOMHeader."No.", Item."Reordering Policy"::"Lot-for-Lot", Item."Replenishment System"::"Prod. Order"); CreateAndRefreshProdOrderWithLocation(ProductionOrder, ProductionOrder.Status::Released, Item."No.", LocationCode); end; -#if not CLEAN27 - local procedure CreatePurchaseOrder(var PurchaseHeader: Record "Purchase Header"; var PurchaseLine: Record "Purchase Line"; ItemNo: Code[20]) - begin - LibraryPurchase.CreatePurchaseDocumentWithItem( - PurchaseHeader, PurchaseLine, PurchaseHeader."Document Type"::Order, '', ItemNo, LibraryRandom.RandDec(5, 2), '', 0D); - UpdatePurchasePlanningFlexibility(PurchaseLine); - end; - - local procedure UpdatePurchasePlanningFlexibility(var PurchaseLine: Record "Purchase Line") - begin - PurchaseLine.Validate("Planning Flexibility", PurchaseLine."Planning Flexibility"::None); - PurchaseLine.Modify(true); - end; - - local procedure RunPlanningAvailabilityReport(ItemNo: Code[20]; Date: Date) - var - PlanningBuffer: Record "Planning Buffer"; - begin - PlanningBuffer.SetRange("Item No.", ItemNo); - if Date <> 0D then - PlanningBuffer.SetRange(Date, Date); - Commit(); - REPORT.Run(REPORT::"Planning Availability", true, false, PlanningBuffer); - end; - - local procedure CreateProductionOrderSetup(var ProductionOrder: Record "Production Order"; ProductionOrderStatus: Enum "Production Order Status"; ItemReorderingPolicy: Enum "Reordering Policy") - var - Item: Record Item; - ProductionBOMHeader: Record "Production BOM Header"; - begin - // Create Parent and Child Items. - CreateProdOrderItemsSetup(Item, ProductionBOMHeader, ItemReorderingPolicy); - - // Create and Refresh Production Order. - CreateAndRefreshProdOrder(ProductionOrder, ProductionOrderStatus, Item."No."); - - // Update Production Order - Planning Flexibility to None. - UpdateProductionPlanningFlexibility(ProductionOrder."No."); - end; - - local procedure CreateProdOrderItemsSetup(var Item: Record Item; var ProductionBOMHeader: Record "Production BOM Header"; ReorderingPolicy: Enum "Reordering Policy") - var - RoutingHeader: Record "Routing Header"; - begin - // Create Child Items. - CreateCertifiedProductionBOM(ProductionBOMHeader); - - // Create Parent Item and attach Routing and Production BOM. - CreateRoutingSetup(RoutingHeader); - CreateItem(Item, RoutingHeader."No.", ProductionBOMHeader."No.", ReorderingPolicy, Item."Replenishment System"::"Prod. Order"); - end; - - local procedure CreateRoutingSetup(var RoutingHeader: Record "Routing Header") - var - WorkCenter: Record "Work Center"; - MachineCenter: Record "Machine Center"; - RoutingLine: Record "Routing Line"; - begin - CreateWorkCenter(WorkCenter); - CreateMachineCenter(MachineCenter, WorkCenter."No."); - LibraryManufacturing.CreateRoutingHeader(RoutingHeader, RoutingHeader.Type::Serial); - CreateRoutingLine(RoutingLine, RoutingHeader, WorkCenter."No."); - RoutingLine.Type := RoutingLine.Type::"Machine Center"; - CreateRoutingLine(RoutingLine, RoutingHeader, MachineCenter."No."); - RoutingHeader.Validate(Status, RoutingHeader.Status::Certified); - RoutingHeader.Modify(true); - end; - - local procedure CreateWorkCenter(var WorkCenter: Record "Work Center") - begin - LibraryManufacturing.CreateWorkCenterWithCalendar(WorkCenter); - end; - - local procedure CreateCertifiedProductionBOM(var ProductionBOMHeader: Record "Production BOM Header") - var - ChildItemNo: Code[20]; - ChildItemNo2: Code[20]; - begin - ChildItemNo := CreateChildItemWithInventory(); - ChildItemNo2 := CreateChildItemWithInventory(); - - // Create Production BOM. - LibraryManufacturing.CreateCertifProdBOMWithTwoComp(ProductionBOMHeader, ChildItemNo, ChildItemNo2, 100); // Quantity per Value important. - end; - - local procedure CreateProductionBOMWithVersion(ItemBaseUnitOfMeasure: Code[10]; ChildItemNo: Code[20]; Status: Enum "BOM Status") - var - ProductionBOMHeader: Record "Production BOM Header"; - ProductionBomVersion: Record "Production BOM Version"; - begin - // Create Production BOM. - CreateCertifiedProductionBOM(ProductionBOMHeader); - CreateProductionBOMVersion(ProductionBomVersion, ProductionBOMHeader, ItemBaseUnitOfMeasure, ChildItemNo); - UpdateProductionBOMVersionStatus(ProductionBomVersion, Status); - end; - - local procedure CreateProductionBOMVersion(var ProductionBOMVersion: Record "Production BOM Version"; ProductionBOMHeader: Record "Production BOM Header"; ItemBaseUnitOfMeasure: Code[10]; ItemNo: Code[20]) - var - ProductionBOMLine: Record "Production BOM Line"; - begin - LibraryManufacturing.CreateProductionBOMVersion(ProductionBOMVersion, ProductionBOMHeader."No.", - CopyStr( - LibraryUtility.GenerateRandomCode(ProductionBOMVersion.FieldNo("Version Code"), DATABASE::"Production BOM Version"), 1, - LibraryUtility.GetFieldLength(DATABASE::"Production BOM Version", ProductionBOMVersion.FieldNo("Version Code"))), - ItemBaseUnitOfMeasure); - LibraryManufacturing.CreateProductionBOMLine( - ProductionBOMHeader, ProductionBOMLine, ProductionBOMVersion."Version Code", ProductionBOMLine.Type::Item, ItemNo, - LibraryRandom.RandInt(10) + 10); // Random Quantity. - end; - - local procedure UpdateProductionBOMVersionStatus(ProductionBomVersion: Record "Production BOM Version"; Status: Enum "BOM Status") - begin - ProductionBomVersion.Validate(Status, Status); - ProductionBomVersion.Modify(true); - end; - - local procedure CreateMachineCenter(var MachineCenter: Record "Machine Center"; WorkCenterNo: Code[20]) - begin - // Random value important for test. - LibraryManufacturing.CreateMachineCenterWithCalendar(MachineCenter, WorkCenterNo, LibraryRandom.RandDec(105, 1)); - end; - - local procedure CreateRoutingLine(var RoutingLine: Record "Routing Line"; RoutingHeader: Record "Routing Header"; CenterNo: Code[20]) - var - OperationNo: Code[10]; - begin - // Random used such that the Next Operation No is greater than the Previous Operation No. - OperationNo := FindLastOperationNo(RoutingHeader."No.") + Format(LibraryRandom.RandInt(5)); - - // Random values not important for test. - LibraryManufacturing.CreateRoutingLineSetup( - RoutingLine, RoutingHeader, CenterNo, OperationNo, LibraryRandom.RandDec(5, 2), LibraryRandom.RandDec(5, 2)); - end; - - local procedure FindLastOperationNo(RoutingNo: Code[20]): Code[10] - var - RoutingLine: Record "Routing Line"; - begin - RoutingLine.SetRange("Routing No.", RoutingNo); - if RoutingLine.FindLast() then - exit(RoutingLine."Operation No."); - exit(''); - end; - - local procedure CreateChildItemWithInventory(): Code[20] - var - Item: Record Item; - ItemJournalLine: Record "Item Journal Line"; - begin - CreateItem(Item, '', '', Item."Reordering Policy"::" ", Item."Replenishment System"::Purchase); - - // Create Item Journal to populate Item Quantity. - LibraryInventory.ClearItemJournal(ItemJournalTemplate, ItemJournalBatch); - LibraryInventory.CreateItemJournalLine( - ItemJournalLine, ItemJournalBatch."Journal Template Name", ItemJournalBatch.Name, - ItemJournalLine."Entry Type"::"Positive Adjmt.", Item."No.", LibraryRandom.RandDec(5, 2)); - LibraryInventory.PostItemJournalLine(ItemJournalBatch."Journal Template Name", ItemJournalBatch.Name); - exit(Item."No."); - end; - - local procedure CreateAndRefreshProdOrder(var ProductionOrder: Record "Production Order"; ProductionOrderStatus: Enum "Production Order Status"; ItemNo: Code[20]) - begin - LibraryManufacturing.CreateProductionOrder( - ProductionOrder, ProductionOrderStatus, ProductionOrder."Source Type"::Item, ItemNo, LibraryRandom.RandDec(5, 2)); - LibraryManufacturing.RefreshProdOrder(ProductionOrder, false, true, true, true, false); - end; -#endif local procedure CreateAndRefreshProdOrderWithLocation(var ProductionOrder: Record "Production Order"; ProductionOrderStatus: Enum "Production Order Status"; ItemNo: Code[20]; LocationCode: Code[10]) begin @@ -1585,17 +147,6 @@ codeunit 137308 "SCM Planning Reports" ProductionOrder.Modify(true); LibraryManufacturing.RefreshProdOrder(ProductionOrder, false, true, true, true, false); end; -#if not CLEAN27 - local procedure UpdateProductionPlanningFlexibility(ProductionOrderNo: Code[20]) - var - ProdOrderLine: Record "Prod. Order Line"; - begin - ProdOrderLine.SetRange("Prod. Order No.", ProductionOrderNo); - ProdOrderLine.FindFirst(); - ProdOrderLine.Validate("Planning Flexibility", ProdOrderLine."Planning Flexibility"::None); - ProdOrderLine.Modify(true); - end; -#endif local procedure CarryOutActionMessageForRegenPlan(ItemNo: Code[20]) var @@ -1631,163 +182,12 @@ codeunit 137308 "SCM Planning Reports" PurchaseLine.SetRange("Document Type", PurchaseLine."Document Type"::Order); PurchaseLine.FindSet(); end; -#if not CLEAN27 - local procedure SelectProductionOrder(var ProductionOrder: Record "Production Order"; ItemNo: Code[20]) - begin - ProductionOrder.SetRange("Source No.", ItemNo); - ProductionOrder.SetRange(Status, ProductionOrder.Status::"Firm Planned"); - ProductionOrder.FindSet(); - end; - - local procedure DeleteOrder(Item: Record Item) - var - PurchaseHeader: Record "Purchase Header"; - PurchaseLine: Record "Purchase Line"; - ProductionOrder: Record "Production Order"; - begin - // If Item Replenishment System = Purchase, then delete Purchase Order. If Item Replenishment System = Prod. Order, then delete Production Order. - if Item."Replenishment System" = Item."Replenishment System"::Purchase then begin - SelectPurchaseLine(PurchaseLine, Item."No."); - PurchaseHeader.SetRange("No.", PurchaseLine."Document No."); - PurchaseHeader.FindFirst(); - PurchaseHeader.Delete(true); - end else begin - SelectProductionOrder(ProductionOrder, Item."No."); - ProductionOrder.Delete(true); - end; - end; - - local procedure SelectScheduledReceipts(DocumentNo: Code[20]): Decimal - begin - LibraryReportDataset.SetRange('PlanningBuffDocNo', DocumentNo); - exit(LibraryReportDataset.Sum('PlngBuffScheduledReceipts')); - end; - - local procedure SelectPlannedReceipts(): Decimal - var - PlanningBuffer: Record "Planning Buffer"; - begin - LibraryReportDataset.SetRange('PlanningBuffDocType', Format(PlanningBuffer."Document Type"::"Requisition Line")); - exit(LibraryReportDataset.Sum('PlngBuffPlannedReceipts')); - end; - - local procedure UpdateItemReorderPointParameters(var Item: Record Item) - begin - UpdateItemMinMaxOrderQty(Item, LibraryRandom.RandDec(5, 2), 0); // Value required. - Item.Validate("Order Multiple", Item."Minimum Order Quantity"); - UpdateItemReorderQty(Item); - end; - - local procedure UpdateItemReorderQty(var Item: Record Item) - begin - Item.Validate("Reorder Quantity", 100 + LibraryRandom.RandDec(5, 2)); // Large value required. - Item.Modify(true); - end; - - local procedure CreateSalesOrdersWithFirmPlannedProd(var Item: Record Item; var ProductionOrder: Record "Production Order"; var SalesLine: Record "Sales Line"; var SalesLine2: Record "Sales Line"; ReorderingPolicy: Enum "Reordering Policy") - var - ProductionBOMHeader: Record "Production BOM Header"; - begin - // Create Item and two Sales Order. Create Firm Planned Production Order. - CreateProdOrderItemsSetup(Item, ProductionBOMHeader, ReorderingPolicy); - CreateSalesOrder(SalesLine, Item."No."); - CreateSalesOrder(SalesLine2, Item."No."); - CreateAndRefreshProdOrder(ProductionOrder, ProductionOrder.Status::"Firm Planned", Item."No."); - end; - - local procedure CreateSalesOrderWithFirmPlannedProdAndBOMHierarchy(var Item: Record Item; var SalesLine: Record "Sales Line"; var ProductionOrder: Record "Production Order") - var - ProductionBOMHeader: Record "Production BOM Header"; - ProductionBOMHeader2: Record "Production BOM Header"; - ProductionBOMVersion: Record "Production BOM Version"; - ProductionBOMLine: Record "Production BOM Line"; - begin - // Create Item with Order attributes and New BOM Version, Update Item Order Policy. Create two Production BOM Lines Of Item and Production BOM Type. - CreateProdOrderItemsSetup(Item, ProductionBOMHeader, Item."Reordering Policy"::"Lot-for-Lot"); - UpdateItemMinMaxOrderQty(Item, LibraryRandom.RandDec(10, 2), LibraryRandom.RandDec(10, 2) + 100); - CreateCertifiedProductionBOM(ProductionBOMHeader2); - CreateProductionBOMVersion(ProductionBOMVersion, ProductionBOMHeader, Item."Base Unit of Measure", Item."No."); - LibraryManufacturing.CreateProductionBOMLine( - ProductionBOMHeader, ProductionBOMLine, ProductionBOMVersion."Version Code", ProductionBOMLine.Type::"Production BOM", - ProductionBOMHeader2."No.", LibraryRandom.RandInt(10) + 10); - UpdateProductionBOMVersionStatus(ProductionBOMVersion, ProductionBOMVersion.Status::"Under Development"); - CreateSalesOrder(SalesLine, Item."No."); - CreateAndRefreshProdOrder(ProductionOrder, ProductionOrder.Status::"Firm Planned", Item."No."); - end; - - local procedure CreateSalesOrderWtihProdOrderWithoutRouting(var Item: Record Item; var SalesLine: Record "Sales Line"; var ProductionOrder: Record "Production Order") - var - ProductionBOMHeader: Record "Production BOM Header"; - begin - // Create Item with Production BOM No. with deleted Routing No., Update item Order Policy. Create Sales Order and Firm Planned Production Order. - CreateProdOrderItemsSetup(Item, ProductionBOMHeader, Item."Reordering Policy"::"Lot-for-Lot"); - Item.Validate("Routing No.", ''); - UpdateItemMinMaxOrderQty(Item, LibraryRandom.RandDec(10, 2), LibraryRandom.RandDec(10, 2) + 100); - CreateSalesOrder(SalesLine, Item."No."); - CreateAndRefreshProdOrder(ProductionOrder, ProductionOrder.Status::"Firm Planned", Item."No."); - end; - - local procedure UpdateItemMinMaxOrderQty(var Item: Record Item; MinimumOrderQuantity: Decimal; MaximumOrderQuantity: Decimal) - begin - Item.Validate("Minimum Order Quantity", MinimumOrderQuantity); - Item.Validate("Maximum Order Quantity", MaximumOrderQuantity); - Item.Modify(true); - end; - - local procedure CreateRequisitionWorksheetName(var ReqWkshTemplate: Record "Req. Wksh. Template"; var RequisitionWkshName: Record "Requisition Wksh. Name") - begin - ReqWkshTemplate.SetRange(Type, ReqWkshTemplate.Type::"Req."); - RequisitionWkshName.SetRange(Recurring, false); - ReqWkshTemplate.FindFirst(); - LibraryPlanning.CreateRequisitionWkshName(RequisitionWkshName, ReqWkshTemplate.Name); - end; - - local procedure SelectRequisitionLineForReqWksht(var RequisitionLine: Record "Requisition Line"; WorksheetTemplateName: Code[10]; JournalBatchName: Code[10]) - begin - RequisitionLine.SetRange("Worksheet Template Name", WorksheetTemplateName); - RequisitionLine.SetRange("Journal Batch Name", JournalBatchName); - RequisitionLine.FindSet(); - end; -#endif local procedure UpdateActionMessageRequisitionLine(var RequisitionLine: Record "Requisition Line") begin RequisitionLine.Validate("Accept Action Message", true); RequisitionLine.Modify(true); end; -#if not CLEAN27 - local procedure CalcPlanForRequisitionWorksheet(var RequisitionWkshName: Record "Requisition Wksh. Name"; Item: Record Item) - var - ReqWkshTemplate: Record "Req. Wksh. Template"; - begin - CreateRequisitionWorksheetName(ReqWkshTemplate, RequisitionWkshName); - LibraryPlanning.CalculatePlanForReqWksh(Item, ReqWkshTemplate.Name, RequisitionWkshName.Name, WorkDate(), WorkDate()); - end; - - [Normal] - local procedure CalcItemReorderQty(Item: Record Item; GrossRequirement: Decimal; InitialScheduledReceipts: Decimal) PlannedReceipts: Decimal - begin - PlannedReceipts := 0; - if GrossRequirement < InitialScheduledReceipts then - exit(PlannedReceipts); - - if GrossRequirement - InitialScheduledReceipts < Item."Minimum Order Quantity" then - PlannedReceipts := Item."Minimum Order Quantity" - else - PlannedReceipts := GrossRequirement - InitialScheduledReceipts; - - if (PlannedReceipts > Item."Maximum Order Quantity") and (Item."Maximum Order Quantity" > 0) then - PlannedReceipts := Item."Maximum Order Quantity"; - - if Item."Reorder Quantity" > 0 then - PlannedReceipts := Item."Reorder Quantity"; - - if Item."Order Multiple" <> 0 then - PlannedReceipts := Item."Order Multiple" * (Round(PlannedReceipts / Item."Order Multiple", 1, '<') + 1); - - exit(PlannedReceipts); - end; -#endif local procedure PurchReceiptAndCancelReservation(ItemNo: Code[20]) var @@ -1811,120 +211,6 @@ codeunit 137308 "SCM Planning Reports" PurchaseLine.SetReservationFilters(ReservationEntry); ReservationEntry.FindFirst(); end; -#if not CLEAN27 - local procedure VerifySalesGrossRequirement(SalesLine: Record "Sales Line") - begin - LibraryReportDataset.SetRange('PlanningBuffDocNo', SalesLine."Document No."); - LibraryReportDataset.GetNextRow(); - LibraryReportDataset.AssertCurrentRowValueEquals('PlngBuffGrossRequirement', SalesLine.Quantity); - end; - - local procedure VerifyRefOrder(Item: Record Item) - var - PurchaseLine: Record "Purchase Line"; - ProductionOrder: Record "Production Order"; - begin - // Verify Purchase Order if Item Replenishment System = Purchase, or verify Production Order if Item Replenishment System = Prod. Order. - if Item."Replenishment System" = Item."Replenishment System"::Purchase then begin - SelectPurchaseLine(PurchaseLine, Item."No."); - Assert.AreEqual(PurchaseLine.Quantity, SelectScheduledReceipts(PurchaseLine."Document No."), - ScheduledReceiptsErr); - end else begin - SelectProductionOrder(ProductionOrder, Item."No."); - Assert.AreEqual(ProductionOrder.Quantity, SelectScheduledReceipts(ProductionOrder."No."), - ScheduledReceiptsErr); - end; - end; - - local procedure VerifyScheduledReceiptsForPolicyOrder(Item: Record Item) - begin - // Verify Purchase Order or Production Order details based on replenishment. - if Item."Replenishment System" = Item."Replenishment System"::Purchase then - VerifyPurchaseSchedReceiptsPolicyOrder(Item."No.") - else - VerifyProductionSchedReceiptsPolicyOrder(Item."No."); - end; - - local procedure VerifyPurchaseSchedReceiptsPolicyOrder(ItemNo: Code[20]) - var - Item: Record Item; - begin - // Verify values of multiple Purchase Lines from a single Purchase Order for multiple Sales Order. - Item.Get(ItemNo); - Item.CalcFields("Qty. on Purch. Order"); - LibraryReportDataset.SetRange('PlanningBuffItemNo', Item."No."); - Assert.AreEqual(Item."Qty. on Purch. Order", LibraryReportDataset.Sum('PlngBuffScheduledReceipts'), ScheduledReceiptsErr); - end; - - local procedure VerifyProductionSchedReceiptsPolicyOrder(ItemNo: Code[20]) - var - Item: Record Item; - begin - // Verify values from multiple Production Order for multiple Sales Order. - Item.Get(ItemNo); - Item.CalcFields("Qty. on Prod. Order"); - LibraryReportDataset.SetRange('PlanningBuffItemNo', Item."No."); - Assert.AreEqual(Item."Qty. on Prod. Order", LibraryReportDataset.Sum('PlngBuffScheduledReceipts'), ScheduledReceiptsErr); - end; - - local procedure VerifyPurchaseAndFirmPlannedValues(PurchaseLine: Record "Purchase Line"; PurchaseLine2: Record "Purchase Line"; ProductionOrder: Record "Production Order"; CalculateRegenerativePlan: Boolean) - begin - if CalculateRegenerativePlan then begin - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', PurchaseLine.Quantity); - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', PurchaseLine.Quantity + PurchaseLine2.Quantity); - end else begin - Assert.AreEqual(ProductionOrder.Quantity, SelectScheduledReceipts(ProductionOrder."No."), ScheduledReceiptsErr); - LibraryReportDataset.Reset(); - VerifyMultipleProjectedBalances(PurchaseLine, PurchaseLine2, ProductionOrder); - end; - VerifyMultipleSchedReceipts(PurchaseLine, PurchaseLine2); - end; - - local procedure VerifyPurchaseAndFirmPlannedValuesForFRQItem(PurchaseLine: Record "Purchase Line"; PurchaseLine2: Record "Purchase Line"; ProductionOrder: Record "Production Order") - begin - VerifyMultipleProjectedBalances(PurchaseLine, PurchaseLine2, ProductionOrder); - VerifyMultipleSchedReceipts(PurchaseLine, PurchaseLine2); - Assert.AreEqual(ProductionOrder.Quantity, SelectScheduledReceipts(ProductionOrder."No."), ScheduledReceiptsErr); - end; - - local procedure VerifyMultipleProjectedBalances(PurchaseLine: Record "Purchase Line"; PurchaseLine2: Record "Purchase Line"; ProductionOrder: Record "Production Order") - begin - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', ProductionOrder.Quantity); - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', ProductionOrder.Quantity + PurchaseLine.Quantity); - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', ProductionOrder.Quantity + PurchaseLine.Quantity + - PurchaseLine2.Quantity); - end; - - local procedure VerifyMultipleSchedReceipts(PurchaseLine: Record "Purchase Line"; PurchaseLine2: Record "Purchase Line") - begin - LibraryReportDataset.AssertElementWithValueExists('PlngBuffScheduledReceipts', PurchaseLine.Quantity); - Assert.AreEqual(PurchaseLine.Quantity + PurchaseLine2.Quantity, - SelectScheduledReceipts(PurchaseLine."Document No."), ScheduledReceiptsErr); - end; - - local procedure VerifyGrossReqAndProjectedBalanceForMultipleSales(SalesLine: Record "Sales Line"; SalesLine2: Record "Sales Line"; ProductionOrder: Record "Production Order") - var - SchedReceipts: Decimal; - begin - SchedReceipts := SelectScheduledReceipts(ProductionOrder."No."); - LibraryReportDataset.Reset(); - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', - SchedReceipts - SalesLine.Quantity - SalesLine2.Quantity); - VerifySalesGrossRequirement(SalesLine); - VerifySalesGrossRequirement(SalesLine2); - end; - - local procedure VerifyMultiplePurchaseReceipts(SalesLine: Record "Sales Line"; ItemReorderQuantity: Decimal; CarryOutActionMessage: Boolean) - begin - if CarryOutActionMessage then begin - LibraryReportDataset.AssertElementWithValueExists('PlngBuffScheduledReceipts', SalesLine.Quantity); - LibraryReportDataset.AssertElementWithValueExists('PlngBuffScheduledReceipts', ItemReorderQuantity); - end else begin - LibraryReportDataset.AssertElementWithValueExists('ProjectedBalance', ItemReorderQuantity); - Assert.AreEqual(SalesLine.Quantity + ItemReorderQuantity, SelectPlannedReceipts(), PlannedReceiptsErr); - end; - end; -#endif local procedure VerifyActionLinesExists(ItemNo: Code[20]; RecordShould: Option Exist,"Not Exist") var @@ -1943,38 +229,5 @@ codeunit 137308 "SCM Planning Reports" Assert.ExpectedMessage(LibraryVariableStorage.DequeueText(), ConfirmMessage); Reply := true; end; -#if not CLEAN27 - local procedure CreateForecastEntry(var ProductionForecastEntry: Record "Production Forecast Entry"; var ProductionForecastName: Record "Production Forecast Name"; Item: Record Item; var EventDate: Date) - begin - LibraryManufacturing.CreateProductionForecastName(ProductionForecastName); - LibraryPlanning.SetDemandForecast(ProductionForecastName.Name); - EventDate := GenerateRandomDateNextYear(); - LibraryManufacturing.CreateProductionForecastEntry( - ProductionForecastEntry, ProductionForecastName.Name, Item."No.", '', EventDate, false); - ProductionForecastEntry.Validate("Forecast Quantity (Base)", LibraryRandom.RandInt(50)); - ProductionForecastEntry.Modify(true); - end; - - local procedure GenerateRandomDateNextYear(): Date - begin - exit(CalcDate('<-CY + 1Y>', WorkDate()) + LibraryRandom.RandInt(365) - 1); - end; - - [Normal] - local procedure VerifyProductionForecastGrossRequirement(ProductionForecastEntry: Record "Production Forecast Entry") - begin - LibraryReportDataset.LoadDataSetFile(); - LibraryReportDataset.SetRange('PlanningBuffDocNo', ProductionForecastEntry."Production Forecast Name"); - LibraryReportDataset.GetNextRow(); - LibraryReportDataset.AssertCurrentRowValueEquals('PlngBuffGrossRequirement', ProductionForecastEntry."Forecast Quantity (Base)"); - end; - - [RequestPageHandler] - [Scope('OnPrem')] - procedure PlanningAvailabilityRequestPageHandler(var PlanningAvailability: TestRequestPage "Planning Availability") - begin - PlanningAvailability.SaveAsXml(LibraryReportDataset.GetParametersFileName(), LibraryReportDataset.GetFileName()); - end; -#endif } diff --git a/src/Layers/W1/Tests/SCM-Service/ServicePostingDimensions.Codeunit.al b/src/Layers/W1/Tests/SCM-Service/ServicePostingDimensions.Codeunit.al index 7c7d329a158..5633e2090ca 100644 --- a/src/Layers/W1/Tests/SCM-Service/ServicePostingDimensions.Codeunit.al +++ b/src/Layers/W1/Tests/SCM-Service/ServicePostingDimensions.Codeunit.al @@ -2548,48 +2548,6 @@ codeunit 136118 "Service Posting - Dimensions" ServiceLine.TestField("Dimension Set ID", ServiceItemLine."Dimension Set ID"); end; -#if not CLEAN27 - [Test] - [HandlerFunctions('ServiceOrderStatisticsMPH')] - [Scope('OnPrem')] - procedure NewDimOnInvoiceRoungingGLAccount() - var - Customer: Record Customer; - ServiceHeader: Record "Service Header"; - DimensionSetTreeNode: Record "Dimension Set Tree Node"; - ServiceOrder: TestPage "Service Order"; - InvoiceRoundingGLAccountNo: Code[20]; - DimValueId: Integer; - begin - // [FEATURE] [UI] - // [SCENARIO 380919] Dimension Set ID is not updated on Temporary Service Line on open Statistic page - Initialize(); - - // [GIVEN] Enabled "Invoice Rounding" in "Sales & Receivables Setup" - // [GIVEN] "Invoice Rounding Precision" = 1 - InitRoundingSetup(); - - // [GIVEN] Customer posting group "CPG" with Invoice Rounding G/L Account = "A" - // [GIVEN] New Dimension Value "DV" added to "A" - // [GIVEN] Customer "C" with posting group "CPG" - // [GIVEN] Service order for "C" with line having = 123.17 (the amount causes invoice rounding calculation for the service line) - LibrarySales.CreateCustomer(Customer); - InvoiceRoundingGLAccountNo := CreateGLAccountForInvoiceRounding(Customer."Customer Posting Group"); - DimValueId := CreateDimOnGLAccount(InvoiceRoundingGLAccountNo); - CreateServiceOrderWithItemLine(ServiceHeader, Customer."No."); - - // [WHEN] Open service order's statistics page - ServiceOrder.OpenEdit(); - ServiceOrder.GotoRecord(ServiceHeader); - ServiceOrder.Statistics.Invoke(); - ServiceOrder.Close(); - - // [THEN] Dimension Set Tree Node for "DV" has not been created - DimensionSetTreeNode.Init(); - DimensionSetTreeNode.SetRange("Dimension Value ID", DimValueId); - Assert.RecordIsEmpty(DimensionSetTreeNode); - end; -#endif [Test] [HandlerFunctions('ServiceOrderStatisticsMPH_NM')] [Scope('OnPrem')] @@ -4500,14 +4458,6 @@ codeunit 136118 "Service Posting - Dimensions" DimensionSetEntry.TestField("Dimension Value Code", LibraryVariableStorage.DequeueText()); end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceOrderStatisticsMPH(var ServiceOrderStatistics: TestPage "Service Order Statistics") - begin - ServiceOrderStatistics.OK().Invoke(); - end; -#endif [PageHandler] [Scope('OnPrem')] procedure ServiceOrderStatisticsMPH_NM(var ServiceOrderStatistics: TestPage "Service Order Statistics") diff --git a/src/Layers/W1/Tests/SCM-Service/ServiceStatistics.Codeunit.al b/src/Layers/W1/Tests/SCM-Service/ServiceStatistics.Codeunit.al index a93986768df..5ae402cb780 100644 --- a/src/Layers/W1/Tests/SCM-Service/ServiceStatistics.Codeunit.al +++ b/src/Layers/W1/Tests/SCM-Service/ServiceStatistics.Codeunit.al @@ -63,11 +63,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"; @@ -79,18 +78,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"; @@ -102,18 +101,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"; @@ -125,18 +124,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"; @@ -150,18 +149,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"; @@ -181,7 +180,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()); @@ -189,15 +188,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"; @@ -214,7 +213,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()); @@ -222,15 +221,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"; @@ -248,21 +247,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"; @@ -279,21 +278,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; @@ -309,15 +308,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"; @@ -332,15 +331,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"; @@ -355,15 +354,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"; @@ -378,15 +377,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"; @@ -403,15 +402,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"; @@ -437,15 +436,15 @@ codeunit 136130 "Service Statistics" CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Cost, ServiceCost.Code); ServiceCreditMemo."Calculate Invoice Discount".Invoke(); - 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"; @@ -470,15 +469,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"; @@ -498,17 +497,17 @@ codeunit 136130 "Service Statistics" DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); ServiceCreditMemo."Calculate Invoice Discount".Invoke(); - 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"; @@ -528,17 +527,17 @@ codeunit 136130 "Service Statistics" DocumentType2 := ServiceLine."Document Type"::"Credit Memo"; // Assign global variable for page handler. CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); ServiceCreditMemo."Calculate Invoice Discount".Invoke(); - 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; @@ -555,15 +554,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"; @@ -586,15 +585,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"; @@ -617,15 +616,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"; @@ -648,15 +647,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"; @@ -681,15 +680,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"; @@ -719,15 +718,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"; @@ -757,15 +756,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"; @@ -792,17 +791,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"; @@ -829,17 +828,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"; @@ -866,15 +865,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"; @@ -902,15 +901,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"; @@ -940,17 +939,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; @@ -974,16 +973,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"; @@ -1013,17 +1012,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"; @@ -1050,15 +1049,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"; @@ -1087,15 +1086,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"; @@ -1126,17 +1125,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"; @@ -1167,19 +1166,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"; @@ -1201,15 +1200,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"; @@ -1231,15 +1230,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"; @@ -1261,15 +1260,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"; @@ -1291,15 +1290,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"; @@ -1323,15 +1322,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"; @@ -1360,15 +1359,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"; @@ -1397,15 +1396,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"; @@ -1431,17 +1430,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"; @@ -1467,17 +1466,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"; @@ -1499,7 +1498,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; @@ -1507,7 +1506,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"; @@ -1537,7 +1536,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); @@ -1547,7 +1546,7 @@ codeunit 136130 "Service Statistics" [Test] [Scope('OnPrem')] - procedure PostedInvoiceStatistics() + procedure PostedInvoiceStatisticsNM() var ServiceLine: Record "Service Line"; ServiceInvoiceLine: Record "Service Invoice Line"; @@ -1570,7 +1569,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); @@ -1585,7 +1584,7 @@ codeunit 136130 "Service Statistics" [Test] [Scope('OnPrem')] - procedure CreditLimitLCYOnPostedInvoice() + procedure CreditLimitLCYOnPostedInvoiceNM() var ServiceLine: Record "Service Line"; Customer: Record Customer; @@ -1609,7 +1608,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)"); @@ -1618,7 +1617,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"; @@ -1642,7 +1641,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); @@ -1657,7 +1656,7 @@ codeunit 136130 "Service Statistics" [Test] [HandlerFunctions('ConfirmHandlerTrue')] [Scope('OnPrem')] - procedure CreditLimitLCYOnPostedMemo() + procedure CreditLimitLCYOnPostedMemoNM() var ServiceLine: Record "Service Line"; Customer: Record Customer; @@ -1682,16 +1681,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"; @@ -1720,7 +1719,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(); @@ -1735,2423 +1734,420 @@ 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. - end; + // [WHEN] Run Service-Calc. Discount (simulates closing Statistics page) + ServiceCalcDiscount.Run(ServiceLine); + ServiceLine.Get(ServiceLine."Document Type", ServiceLine."Document No.", ServiceLine."Line No."); - [Test] - [HandlerFunctions('DocumentGLAccountPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceStatisticsGLAccountNM() - var - ServiceLine: Record "Service Line"; - ServiceInvoice: TestPage "Service Invoice"; - begin - // Test creation of Service Invoice with G/L Account and verify Statistics Page. + // [GIVEN] Store the Service Order Amount Including VAT before posting + ServiceHeader.CalcFields("Amount Including VAT"); - // 1. Setup: Find VAT Posting Setup. - Initialize(); + // [WHEN] Post Service Order (Ship and Invoice) + LibraryService.PostServiceOrder(ServiceHeader, true, false, true); - // 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(); - - // 3. Verify: Verify Statistics Page with details on Page handler. + // [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 InvoiceStatisticsCostNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceInvoice: TestPage "Service Invoice"; + local procedure Initialize() begin - // Test creation of Service Invoice with Cost and verify Statistics Page. + LibraryTestInitialize.OnTestInitialize(CODEUNIT::"Service Statistics"); + InitVariables(); + LibrarySetupStorage.Restore(); - // 1. Setup: Find VAT Posting Setup and Service Cost. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); + if isInitialized then + exit; + LibraryTestInitialize.OnBeforeTestSuiteInitialize(CODEUNIT::"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)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Cost, ServiceCost.Code); - 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('ConfirmHandlerTrue,DocumentDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceWithInvoiceDiscountNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceInvoice: TestPage "Service Invoice"; - CustomerNo: Code[20]; + local procedure CreateCustomer(): Code[20] begin - // Test creation of Service Invoice with multiple lines, Allow Invoice Discount and verify Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup,Service Cost and - // Create Customer, Customer Invoice Discount. - Initialize(); - - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - LibraryService.FindServiceCost(ServiceCost); - - // 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); + exit(LibrarySales.CreateCustomerNo()); + end; - ServiceInvoice."Calculate Invoice Discount".Invoke(); - 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('DocumentWithVATPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceWithPriceIncludingVATNM() + 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"; + ServiceHeader: Record "Service Header"; + ServiceCreditMemoNo: Code[20]; begin - // Test creation of Service Invoice with multiple lines, Price Including Vat and verify Statistics page. + ServiceCreditMemoNo := LibraryService.CreateServiceCreditMemoHeaderUsingPage(); + Commit(); - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Service Cost. - 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; - 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 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); + // 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; - LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::Invoice, CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2))); - 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('ConfirmHandlerTrue,ChangeDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeDiscountAmountInvoiceNM() + local procedure CreateServiceInvoiceHeader(var ServiceInvoice: TestPage "Service Invoice"; CustomerNo: Code[20]) var - ServiceLine: Record "Service Line"; - ServiceInvoice: TestPage "Service Invoice"; - CustomerNo: Code[20]; + ServiceHeader: Record "Service Header"; + ServiceInvoiceNo: 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(); + ServiceInvoice.OpenNew(); + ServiceInvoice."Customer No.".Activate(); + ServiceInvoiceNo := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(ServiceInvoiceNo)); + ServiceInvoice.OK().Invoke(); + Commit(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); + 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; - // 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(); + 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,ChangeTotalVATPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeTotalVATInvoiceNM() + 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 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); + ServiceOrderNo := LibraryService.CreateServiceOrderHeaderUsingPage(); + 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(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('DocumentCreditLimitPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditLimitLCYOnInvoiceNM() + local procedure CreateServiceQuoteHeader(var ServiceQuote: TestPage "Service Quote"; CustomerNo: Code[20]) var - ServiceLine: Record "Service Line"; - Customer: Record Customer; - ServiceInvoice: TestPage "Service Invoice"; + ServiceHeader: Record "Service Header"; + ServiceQuoteNo: Code[20]; begin - // Test creation of Service Invoice and verify Credit limit on Statistics Page. - - // 1. Setup: Create Customer with Credit Limit(LCY). - Initialize(); - CreateCustomerWithCreditLimit(Customer); - CreditLimitLCY := Customer."Credit Limit (LCY)"; // Assign global variable for page handler. + ServiceQuote.OpenNew(); + ServiceQuote."Customer No.".Activate(); + ServiceQuoteNo := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(ServiceQuoteNo)); + ServiceQuote.OK().Invoke(); + Commit(); - // 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(); + 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 Credit Limit (LCY) in Statistics Page 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('DocumentItemPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditMemoStatisticsItemNM() + local procedure CreateServiceQuoteLine(var ServiceQuoteLines: TestPage "Service Quote Lines"; Type: Option; No: Code[20]) + begin + ServiceQuoteLines.Type.SetValue(Type); + ServiceQuoteLines."No.".SetValue(No); + + // Take Random Quantity and Unit Price. + ServiceQuoteLines.Quantity.SetValue(LibraryRandom.RandDec(10, 2)); + ServiceQuoteLines."Unit Price".SetValue(LibraryRandom.RandDec(100, 2)); + ServiceQuoteLines.New(); + end; + 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. - CreateServiceCreditMemoHeader(ServiceCreditMemo, CustomerNo); - 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()); - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Cost, ServiceCost.Code); + // Take Random for Total Incl. VAT. + ServiceOrderStatistics."Total Incl. VAT_General".SetValue(TotalInclVAT + LibraryRandom.RandDec(5, 2)); + end; - ServiceCreditMemo."Calculate Invoice Discount".Invoke(); - ServiceCreditMemo.ServiceStatistics.Invoke(); + local procedure UpdateTotalVATStatistics(ServiceStatistics: TestPage "Service Statistics") + var + TotalInclVAT: Decimal; + begin + Evaluate(TotalInclVAT, ServiceStatistics."Total Incl. VAT_General".Value); - // 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"; - ServiceCreditMemo: TestPage "Service Credit Memo"; - begin - // Test creation of Service Credit Memo with multiple lines, Price Including Vat and verify Statistics page. - - // 1. Setup: Find Service Cost. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); - - // 2. Exercise: Create Customer, Item, Resource,G/L Account, Service Credit Memo with Prices Including VAT as True, - // multiple lines, in lines Allow Invoice Discount as False and open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, CreateCustomer()); - ServiceCreditMemo."Prices Including VAT".SetValue(true); - 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()); - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Resource, LibraryResource.CreateResourceNo()); - CreateServiceCreditMemoLine( - ServiceCreditMemo, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Cost, ServiceCost.Code); - - LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::"Credit Memo", CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo2))); - ServiceCreditMemo.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ChangeDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeDiscountAmountCreditMemoNM() - var - ServiceLine: Record "Service Line"; - ServiceCreditMemo: TestPage "Service Credit Memo"; - CustomerNo: Code[20]; - begin - // Test creation of Service Credit Memo with Allow Invoice Discount and change Invoice Discount Amount on Statistics Page. - - // 1. Setup: Find VAT Posting Setup, Create Customer and Customer Invoice Discount. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // 2. Exercise: Create Item, Service Credit Memo, Calculate Invoice Discount, open Statistics Page and change - // Invoice Discount Amount and again open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, CustomerNo); - 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."Calculate Invoice Discount".Invoke(); - ServiceCreditMemo.ServiceStatistics.Invoke(); - UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceCreditMemo.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ChangeTotalVATPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeTotalVATCreditMemoNM() - var - ServiceLine: Record "Service Line"; - ServiceCreditMemo: TestPage "Service Credit Memo"; - CustomerNo: Code[20]; - begin - // Test creation of Service Credit Memo with Allow Invoice Discount and change Total Incl. VAT on Statistics Page. - - // 1. Setup: Find VAT Posting Setup, Create Customer and Customer Invoice Discount. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // 2. Exercise: Create Item, Service Credit Memo, Calculate Invoice Discount , open Statistics Page and change - // Total Incl. VAT and again open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, CustomerNo); - 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."Calculate Invoice Discount".Invoke(); - ServiceCreditMemo.ServiceStatistics.Invoke(); - UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceCreditMemo.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('DocumentCreditLimitPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditLimitLCYOnCreditMemoNM() - var - ServiceLine: Record "Service Line"; - Customer: Record Customer; - ServiceCreditMemo: TestPage "Service Credit Memo"; - begin - // Test creation of Service Credit Memo and verify Credit limit on Statistics Page. - - // 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 Credit Memo with G/L Account and open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, Customer."No."); - CreateServiceCreditMemoLine( - ServiceCreditMemo, ServiceLine.Type::"G/L Account", LibraryERM.CreateGLAccountWithSalesSetup()); - ServiceCreditMemo.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Credit Limit (LCY) in Statistics Page on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderItemPageHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderStatisticsItemNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - begin - // Test creation of Service Order with Item and verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup and Create Item. - Initialize(); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order with Item and open Service Order Statistics Page. - CreateServiceOrderHeader(ServiceOrder, CreateCustomer()); - 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. - Type2 := Type2::Item; // Assign global variable for page handler. - Commit(); - ServiceOrder.ServItemLines.First(); - ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderResourcePageHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderStatisticsResourceNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - begin - // Test creation of Service Order with Resource and verify Service Order Statistics Page. - - // 1. Setup: Create Resource. - Initialize(); - - // Assign global variable for page handler. - No2 := LibraryResource.CreateResourceNo(); - Type2 := Type2::Resource; - - // 2. Exercise: Create Customer Service Order with Resource and open Service Order Statistics Page. - CreateServiceOrderHeader(ServiceOrder, CreateCustomer()); - 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. - Type2 := Type2::Resource; // Assign global variable for page handler. - Commit(); - ServiceOrder.ServItemLines.First(); - ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page Handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderGLAccountPageHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderStatisticsGLAccountNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - begin - // Test creation of Service Order with G/L Account and verify Service Order Statistics Page. - - // 1. Setup: Create G/L Account. - Initialize(); - - // Assign global variable for page handler. - No2 := LibraryERM.CreateGLAccountWithSalesSetup(); - Type2 := Type2::"G/L Account"; - - // 2. Exercise: Create Customer, Service Order with G/L Account and open Service Order Statistics Page. - CreateServiceOrderHeader(ServiceOrder, CreateCustomer()); - 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. - Type2 := Type2::"G/L Account"; // Assign global variable for page handler. - Commit(); - ServiceOrder.ServItemLines.First(); - ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page Handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,OrderGLAccountPageHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderStatisticsCostNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceOrder: TestPage "Service Order"; - begin - // Test creation of Service Order with Cost and verify Service Order Statistics Page. - - // 1. Setup: Find Service Cost. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); - - // Assign global variable for page handler. - No2 := ServiceCost.Code; - Type2 := Type2::Cost; - - // 2. Exercise: Create Customer, Service Order with Cost and open Service Order Statistics Page. - CreateServiceOrderHeader(ServiceOrder, CreateCustomer()); - 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. - Type2 := Type2::Cost; // Assign global variable for page handler. - Commit(); - ServiceOrder.ServItemLines.First(); - ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesMultiPageHandler,OrderInvoiceDiscountHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderWithInvoiceDiscountNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order with multiple lines, Allow Invoice Discount and verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup and - // Create Customer, Customer Invoice Discount ,Item, Resource and G/L Account. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - ItemNo := LibraryInventory.CreateItemNo(); - ResourceNo := LibraryResource.CreateResourceNo(); - GLAccountNo := LibraryERM.CreateGLAccountWithSalesSetup(); - CostCode := ServiceCost.Code; - - // 2. Exercise: Create Service Order with multiple lines, Calculate Invoice Discount and open Service Order 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(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesMultiPageHandler,OrderWithVATPageHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderWithPriceIncludingVATNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceOrder: TestPage "Service Order"; - begin - // Test creation of Service Order with multiple lines, Price Including Vat and verify Service Order Statistics page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup, Service Cost and - // Create Item, Resource and G/L Account. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); - - // Assign global variable for page handler. - ItemNo := LibraryInventory.CreateItemNo(); - ResourceNo := LibraryResource.CreateResourceNo(); - GLAccountNo := LibraryERM.CreateGLAccountWithSalesSetup(); - CostCode := ServiceCost.Code; - - // 2. Exercise: Create Service Order with Prices Including VAT as True,multiple lines, - // in lines Allow Invoice Discount as False and open Service Order Statistics Page. - CreateServiceOrderHeader(ServiceOrder, CreateCustomer()); - ServiceOrder."Prices Including VAT".SetValue(true); - 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(); - LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::Order, CopyStr(ServiceOrder."No.".Value(), 1, MaxStrLen(DocumentNo2))); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderPageHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure ChangeDiscountAmountOrderNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order with Allow Invoice Discount and change Invoice Discount Amount on Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup, Create Customer, - // Customer Invoice Discount and Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order, Calculate Invoice Discount, open Service Order Statistics Page and change - // Invoice Discount Amount and again open Service Order 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(); - UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeTotalVATOrderPageHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure ChangeTotalVATOrderNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order with Allow Invoice Discount and change Total Incl. VAT on Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup, Create Customer and - // Customer Invoice Discount and Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order, Calculate Invoice Discount , open Service Order Statistics Page and change - // Total Incl. VAT and again open Service Order 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(); - UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToShipPageHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderWithQuantityToShipNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order, Update Quantity to Ship and verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup, Create Customer, - // Customer Invoice Discount and Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order with Item, Update Quantity to Ship and open Service Order 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(); - UpdateQuantityToShipLine(DocumentNo2); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToShipPageHandlerNM,ShipStrMenuHandler,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderWithQuantityToShipPostNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order, Update Quantity to Ship, Post and verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Create Customer, - // Customer Invoice Discount, Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order with Item, Update Quantity to Ship, Post and open Service Order 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(); - UpdateQuantityToShipLine(DocumentNo2); - ServiceOrder.Post.Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderShipHandlerNM,ShipStrMenuHandler,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure ChangeDiscountAmountOrderShipNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order, Update Quantity to Ship, Post, Update Invoice Discount Amount on Statistics Page and - // verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Create Customer, - // Customer Invoice Discount, Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order with Item, Update Quantity to Ship, Post, Open Service Order Statistics Page, - // Change Invoice Discount Amount, and again open Service Order 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(); - UpdateQuantityToShipLine(DocumentNo2); - ServiceOrder.Post.Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderShipHandlerNM,ShipStrMenuHandler')] - [Scope('OnPrem')] - procedure InvoiceDiscountAmountOrderShipNM() - var - CustomerNo: Code[20]; - InvoiceDiscountAmount: Decimal; - begin - // [FEATURE] [Invoice Discount] - // [SCENARIO 216154] Posted Service Line's Invoice Discount Amount after updating invoice discount amount on statistics page - Initialize(); - - // [GIVEN] Sales & Receivables Setup "Calc. Inv. Discount" = FALSE - LibrarySales.SetCalcInvDiscount(false); - // [GIVEN] Customer with Invoice Discount setup: "Minimum Amount" = 0, "Discount %" = 10 - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // [GIVEN] Service Order: "Service Item No." = "", "Item No." = "X" - // [GIVEN] Servie Line for item "X": "Type" = Item, "No." = "X", "Unit Price" = 100, "Quantity" = 1 - // [GIVEN] Calculate Invoice Discount for Service Line - // [GIVEN] Service Line's "Inv. Discount Amount" = 10 - // [GIVEN] Open Service Order's Statistics - // [GIVEN] Change Invoice Discount = 20 - // [WHEN] Post Service Invoice - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - CreateAndPostServiceOrderWithInvoiceDiscountAmountNM(CustomerNo, InvoiceDiscountAmount); - - // [THEN] Posted Service Line has "Inv. Discount Amount" = 20 - VerifyServiceLineInvoiceDiscountAmount(DocumentNo2, InvoiceDiscountAmount); - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeTotalVATOrderShipHandlerNM,ShipStrMenuHandler,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure ChangeTotalVATAmountOrderShipNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order, Update Quantity to Ship, Post, Update Total Incl. VAT on Statistics Page and - // verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Create Customer, - // Customer Invoice Discount, Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order with Item, Update Quantity to Ship, Post, Open Service Order Statistics Page, - // Change Total Incl. VAT , and again open Service Order 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(); - UpdateQuantityToShipLine(DocumentNo2); - ServiceOrder.Post.Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToInvoicePageHandlerNM,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderWithQuantityToInvoiceNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order with Item, Update Quantity to Invoice and verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Create Customer, - // Customer Invoice Discount, Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order with Item, Update Quantity to Invoice and open Service Order 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(); - UpdateQuantityToInvoiceLine(DocumentNo2); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,QuantityToInvoicePageHandlerNM,ShipAndInvoiceStrMenuHandler,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure OrderWithQuantityToInvoicePostNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order with Item, Update Quantity to Invoice, Post and verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Create Customer, - // Customer Invoice Discount, Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order with Item, Update Quantity to Invoice, Post and open Service Order 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(); - UpdateQuantityToShipLine(DocumentNo2); - UpdateQuantityToInvoiceLine(DocumentNo2); - ServiceOrder.Post.Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeDiscountOrderPostHandlerNM,ShipAndInvoiceStrMenuHandler,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure ChangeDiscountAmountOrderPostNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order with Item, Update Quantity to Invoice, Post, Update Invoice Discount Amount on Statistics Page and - // verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Create Customer, - // Customer Invoice Discount, Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order with Item, Update Quantity to Invoice, Post, Open Service Order Statistics Page, - // Change Invoice Discount Amount, and again open Service Order 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(); - UpdateQuantityToShipLine(DocumentNo2); - UpdateQuantityToInvoiceLine(DocumentNo2); - ServiceOrder.Post.Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ChangeTotalVATOrderPostHandlerNM,ShipAndInvoiceStrMenuHandler,VATAmountLinesPageHandler')] - [Scope('OnPrem')] - procedure ChangeTotalVATAmountOrderPostNM() - var - ServiceLine: Record "Service Line"; - ServiceOrder: TestPage "Service Order"; - CustomerNo: Code[20]; - begin - // Test creation of Service Order, Update Quantity to Invoice, Post, Update Total Incl. VAT on Statistics Page and - // verify Service Order Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Create Customer, - // Customer Invoice Discount, Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Order with Item, Update Quantity to Invoice, Post, - // open Service Order Statistics Page, Change Total Incl. VAT, and again open Service Order 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(); - UpdateQuantityToShipLine(DocumentNo2); - UpdateQuantityToInvoiceLine(DocumentNo2); - ServiceOrder.Post.Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - UpdateQuantityToShipLine(DocumentNo2); - UpdateQuantityToInvoiceLine(DocumentNo2); - UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,CreditLimitLCYPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditLimitLCYOnOrderNM() - var - Customer: Record Customer; - ServiceOrder: TestPage "Service Order"; - begin - // Test creation of Service Order and verify Credit limit on Service Order Statistics Page. - - // 1. Setup: Find VAT Posting Setup, Create Customer with Credit Limit(LCY) and G/L Account. - Initialize(); - CreateCustomerWithCreditLimit(Customer); - CreditLimitLCY := Customer."Credit Limit (LCY)"; // Assign global variable for page handler. - - // Assign global variable for page handler. - No2 := LibraryERM.CreateGLAccountWithSalesSetup(); - Type2 := Type2::"G/L Account"; - - // 2. Exercise: Create Service Order with G/L Account and open Service Order Statistics Page. - CreateServiceOrderHeader(ServiceOrder, Customer."No."); - CreateServiceOrderItemLine(ServiceOrder); - Commit(); - ServiceOrder.ServItemLines.First(); - ServiceOrder.ServItemLines."Service Lines".Invoke(); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // 3. Verify: Verify Credit Limit (LCY) in Service Order Statistics Page on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentItemPageHandlerNM')] - [Scope('OnPrem')] - procedure QuoteStatisticsItemNM() - var - ServiceLine: Record "Service Line"; - ServiceQuote: TestPage "Service Quote"; - begin - // Test creation of Service Quote with Item and verify Statistics Page. - - // 1. Setup: Find VAT Posting Setup and Create Item. - Initialize(); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Quote with Item and open Statistics Page. - CreateServiceQuoteHeader(ServiceQuote, CreateCustomer()); - CreateServiceQuoteItemLine(ServiceQuote); - DocumentNo2 := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::Quote; // Assign global variable for page handler. - Commit(); - ServiceQuote.ServItemLine.First(); - ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentResourcePageHandlerNM')] - [Scope('OnPrem')] - procedure QuoteStatisticsResourceNM() - var - ServiceLine: Record "Service Line"; - ServiceQuote: TestPage "Service Quote"; - begin - // Test creation of Service Quote with Resource and verify Statistics Page. - - // 1. Setup: Find VAT Posting Setup and Create Resource. - Initialize(); - - // Assign global variable for page handler. - No2 := LibraryResource.CreateResourceNo(); - Type2 := Type2::Resource; - - // 2. Exercise: Create Customer Service Quote with Resource and open Statistics Page. - CreateServiceQuoteHeader(ServiceQuote, CreateCustomer()); - CreateServiceQuoteItemLine(ServiceQuote); - DocumentNo2 := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::Quote; // Assign global variable for page handler. - Commit(); - ServiceQuote.ServItemLine.First(); - ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentGLAccountPageHandlerNM')] - [Scope('OnPrem')] - procedure QuoteStatisticsGLAccountNM() - var - ServiceLine: Record "Service Line"; - ServiceQuote: TestPage "Service Quote"; - begin - // Test creation of Service Quote with G/L Account and verify Statistics Page. - - // 1. Setup: Find VAT Posting Setup and Create G/L Account. - Initialize(); - - // Assign global variable for page handler. - No2 := LibraryERM.CreateGLAccountWithSalesSetup(); - Type2 := Type2::"G/L Account"; - - // 2. Exercise: Create Customer, Service Quote with G/L Account and open Statistics Page. - CreateServiceQuoteHeader(ServiceQuote, CreateCustomer()); - CreateServiceQuoteItemLine(ServiceQuote); - DocumentNo2 := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::Quote; // Assign global variable for page handler. - Commit(); - ServiceQuote.ServItemLine.First(); - ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentGLAccountPageHandlerNM')] - [Scope('OnPrem')] - procedure QuoteStatisticsCostNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceQuote: TestPage "Service Quote"; - begin - // Test creation of Service Quote with Cost and verify Statistics Page. - - // 1. Setup: Find VAT Posting Setup and Service Cost. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); - - // Assign global variable for page handler. - No2 := ServiceCost.Code; - Type2 := Type2::Cost; - - // 2. Exercise: Create Customer, Service Quote with Cost and open Statistics Page. - CreateServiceQuoteHeader(ServiceQuote, CreateCustomer()); - CreateServiceQuoteItemLine(ServiceQuote); - DocumentNo2 := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::Quote; // Assign global variable for page handler. - Commit(); - ServiceQuote.ServItemLine.First(); - ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesMultiplePageHandler,DocumentDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure QuoteWithInvoiceDiscountNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceQuote: TestPage "Service Quote"; - CustomerNo: Code[20]; - begin - // Test creation of Service Quote with multiple lines, Allow Invoice Discount and verify Statistics Page. - - // 1. Setup: Find VAT Posting Setup,Service Cost, Create Customer, Customer Invoice Discount ,Item, Resource and G/L Account. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - ItemNo := LibraryInventory.CreateItemNo(); - ResourceNo := LibraryResource.CreateResourceNo(); - GLAccountNo := LibraryERM.CreateGLAccountWithSalesSetup(); - CostCode := ServiceCost.Code; - - // 2. Exercise: Create Service Quote with multiple lines, Calculate Invoice Discount and open Statistics Page. - CreateServiceQuoteHeader(ServiceQuote, CustomerNo); - CreateServiceQuoteItemLine(ServiceQuote); - DocumentNo2 := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::Quote; // Assign global variable for page handler. - Commit(); - ServiceQuote.ServItemLine.First(); - ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesMultiplePageHandler,DocumentWithVATPageHandlerNM')] - [Scope('OnPrem')] - procedure QuoteWithPriceIncludingVATNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceQuote: TestPage "Service Quote"; - begin - // Test creation of Service Quote with multiple lines, Price Including Vat and verify Statistics page. - - // 1. Setup: Find VAT Posting Setup, Service Cost, Create Item, Resource and G/L Account. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); - - // Assign global variable for page handler. - ItemNo := LibraryInventory.CreateItemNo(); - ResourceNo := LibraryResource.CreateResourceNo(); - GLAccountNo := LibraryERM.CreateGLAccountWithSalesSetup(); - CostCode := ServiceCost.Code; - - // 2. Exercise: Create Service Quote with Prices Including VAT as True,multiple lines, - // in lines Allow Invoice Discount as False and open Statistics Page. - CreateServiceQuoteHeader(ServiceQuote, CreateCustomer()); - ServiceQuote."Prices Including VAT".SetValue(true); - CreateServiceQuoteItemLine(ServiceQuote); - DocumentNo2 := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::Quote; // Assign global variable for page handler. - Commit(); - ServiceQuote.ServItemLine.First(); - ServiceQuote.ServItemLine.ServiceLines.Invoke(); - LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::Quote, CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2))); - ServiceQuote.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,ChangeDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeDiscountAmountQuoteNM() - var - ServiceLine: Record "Service Line"; - ServiceQuote: TestPage "Service Quote"; - CustomerNo: Code[20]; - begin - // Test creation of Service Quote with Allow Invoice Discount and change Invoice Discount Amount on Statistics Page. - - // 1. Setup: Find VAT Posting Setup, Create Customer, Customer Invoice Discount and Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Quote, Calculate Invoice Discount, open Statistics Page, change - // Invoice Discount Amount and again open Statistics Page. - CreateServiceQuoteHeader(ServiceQuote, CustomerNo); - CreateServiceQuoteItemLine(ServiceQuote); - DocumentNo2 := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::Quote; // Assign global variable for page handler. - Commit(); - ServiceQuote.ServItemLine.First(); - ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.ServiceStatistics.Invoke(); - UpdateDiscountAmount := true; // Assign global variable for page handler. - ServiceQuote.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,ChangeTotalVATPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeTotalVATQuoteNM() - var - ServiceLine: Record "Service Line"; - ServiceQuote: TestPage "Service Quote"; - CustomerNo: Code[20]; - begin - // Test creation of Service Quote with Allow Invoice Discount and change Total Incl. VAT on Statistics Page. - - // 1. Setup: Find VAT Posting Setup, Create Customer, Customer Invoice Discount and Item. - Initialize(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Service Quote, Calculate Invoice Discount , open Statistics Page, change - // Total Incl. VAT and again open Statistics Page. - CreateServiceQuoteHeader(ServiceQuote, CustomerNo); - CreateServiceQuoteItemLine(ServiceQuote); - DocumentNo2 := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(DocumentNo2)); // Assign global variable for page handler. - DocumentType2 := ServiceLine."Document Type"::Quote; // Assign global variable for page handler. - Commit(); - ServiceQuote.ServItemLine.First(); - ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.ServiceStatistics.Invoke(); - UpdateTotalVAT := true; // Assign global variable for page handler. - ServiceQuote.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Order Statistics Page with details on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,QuoteLinesPageHandler,DocumentCreditLimitPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditLimitLCYOnQuoteNM() - var - Customer: Record Customer; - ServiceQuote: TestPage "Service Quote"; - begin - // Test creation of Service Quote and verify Credit limit on Statistics Page. - - // 1. Setup: Find VAT Posting Setup, Create Customer with Credit Limit(LCY) and G/L Account. - Initialize(); - CreateCustomerWithCreditLimit(Customer); - CreditLimitLCY := Customer."Credit Limit (LCY)"; // Assign global variable for page handler. - - // Assign global variable for page handler. - No2 := LibraryERM.CreateGLAccountWithSalesSetup(); - Type2 := Type2::"G/L Account"; - - // 2. Exercise: Create Service Quote with G/L Account and open Statistics Page. - CreateServiceQuoteHeader(ServiceQuote, Customer."No."); - CreateServiceQuoteItemLine(ServiceQuote); - Commit(); - ServiceQuote.ServItemLine.First(); - ServiceQuote.ServItemLine.ServiceLines.Invoke(); - ServiceQuote.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Credit Limit (LCY) in Service Statistics Page on Page handler. - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue,ServiceLinesPageHandler,ShipAndInvoiceStrMenuHandler')] - [Scope('OnPrem')] - procedure ServiceShipmentStatisticsNM() - var - ServiceShipmentLine: Record "Service Shipment Line"; - ServiceOrder: TestPage "Service Order"; - PostedServiceShipment: TestPage "Posted Service Shipment"; - ServiceShipmentStatisticsTestPage: TestPage "Service Shipment Statistics"; - DocumentNo: Code[20]; - begin - // Test creation of Service Order with Item, post Service Order and verify Service Shipment Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Create Item. - Initialize(); - - // Assign global variable for page handler. - No2 := LibraryInventory.CreateItemNo(); - Type2 := Type2::Item; - - // 2. Exercise: Create Customer, Service Order with Item, Post, Find Posted Service Shipment and open Statistics. - CreateServiceOrderHeader(ServiceOrder, CreateCustomer()); - CreateServiceOrderItemLine(ServiceOrder); - DocumentNo := CopyStr(ServiceOrder."No.".Value(), 1, MaxStrLen(DocumentNo)); - Commit(); - ServiceOrder.ServItemLines.First(); - ServiceOrder.ServItemLines."Service Lines".Invoke(); - LibrarySales.DisableConfirmOnPostingDoc(); - ServiceOrder.Post.Invoke(); - - PostedServiceShipment.OpenView(); - PostedServiceShipment.FILTER.SetFilter("No.", FindServiceShipmentHeader(DocumentNo)); - ServiceShipmentStatisticsTestPage.Trap(); - PostedServiceShipment."ServiceS&tatistics".Invoke(); - - // 3. Verify: Verify Quantity on Service Shipment Statistics Page. - ServiceShipmentLine.SetRange("Document No.", PostedServiceShipment."No.".Value); - ServiceShipmentLine.FindFirst(); - ServiceShipmentStatisticsTestPage.LineQty.AssertEquals(ServiceShipmentLine.Quantity); - end; - - [Test] - [Scope('OnPrem')] - procedure PostedInvoiceStatisticsNM() - var - ServiceLine: Record "Service Line"; - ServiceInvoiceLine: Record "Service Invoice Line"; - ServiceInvoice: TestPage "Service Invoice"; - PostedServiceInvoice: TestPage "Posted Service Invoice"; - ServiceInvoiceStatistics: TestPage "Service Invoice Statistics"; - DocumentNo: Code[20]; - begin - // Test creation of Service Invoice with Item, post Service Invoice and verify Service Invoice Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup and Find VAT Posting Setup. - Initialize(); - - // 2. Exercise: Create Customer, Item, Service Invoice with Item, Find Posted Service Invoice and open Statistics Page. - CreateServiceInvoiceHeader(ServiceInvoice, CreateCustomer()); - DocumentNo := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo)); - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - PostServiceInvoice(ServiceInvoice); - - PostedServiceInvoice.OpenView(); - PostedServiceInvoice.FILTER.SetFilter("No.", FindServiceInvoiceHeader(DocumentNo)); - ServiceInvoiceStatistics.Trap(); - PostedServiceInvoice.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Invoice Statistics Page with details. - ServiceInvoiceLine.SetRange("Document No.", PostedServiceInvoice."No.".Value); - ServiceInvoiceLine.FindFirst(); - - ServiceInvoiceStatistics.Amount.AssertEquals(ServiceInvoiceLine.Amount); - ServiceInvoiceStatistics.VATAmount.AssertEquals(ServiceInvoiceLine."Amount Including VAT" - ServiceInvoiceLine.Amount); - ServiceInvoiceStatistics.Subform.First(); - ServiceInvoiceStatistics.Subform."VAT Amount".AssertEquals( - ServiceInvoiceLine."Amount Including VAT" - ServiceInvoiceLine.Amount); - end; - - [Test] - [Scope('OnPrem')] - procedure CreditLimitLCYOnPostedInvoiceNM() - var - ServiceLine: Record "Service Line"; - Customer: Record Customer; - ServiceInvoice: TestPage "Service Invoice"; - PostedServiceInvoice: TestPage "Posted Service Invoice"; - ServiceInvoiceStatistics: TestPage "Service Invoice Statistics"; - DocumentNo: Code[20]; - begin - // Test creation of Service Invoice, post Service Invoice and verify Credit limit on Service Invoice Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Create Customer with Credit Limit. - Initialize(); - CreateCustomerWithCreditLimit(Customer); - - // 2. Exercise: Create Service Invoice with Item, post,Find Posted Service Invoice and open Statistic Page. - CreateServiceInvoiceHeader(ServiceInvoice, Customer."No."); - DocumentNo := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo)); - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - PostServiceInvoice(ServiceInvoice); - - PostedServiceInvoice.OpenView(); - PostedServiceInvoice.FILTER.SetFilter("No.", FindServiceInvoiceHeader(DocumentNo)); - ServiceInvoiceStatistics.Trap(); - PostedServiceInvoice.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Credit Limit (LCY) on Service Invoice Statistics Page. - ServiceInvoiceStatistics.CreditLimitLCY.AssertEquals(Customer."Credit Limit (LCY)"); - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue')] - [Scope('OnPrem')] - procedure PostedCreditMemoStatisticsNM() - var - ServiceLine: Record "Service Line"; - ServiceCrMemoLine: Record "Service Cr.Memo Line"; - ServiceCreditMemo: TestPage "Service Credit Memo"; - PostedServiceCreditMemo: TestPage "Posted Service Credit Memo"; - ServiceCreditMemoStatistics: TestPage "Service Credit Memo Statistics"; - DocumentNo: Code[20]; - begin - // Test creation of Service Credit Memo with Item, post Service Credit Memo and verify Service Credit Memo Statistics Page. - - // 1. Setup: Find VAT Posting Setup. - Initialize(); - - // 2. Exercise: Create Customer,Item,Service Credit Memo with Item, post, Find Posted Service Credit Memo and open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, CreateCustomer()); - DocumentNo := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo)); - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - LibrarySales.DisableConfirmOnPostingDoc(); - ServiceCreditMemo.Post.Invoke(); - - PostedServiceCreditMemo.OpenView(); - PostedServiceCreditMemo.FILTER.SetFilter("No.", FindServiceCreditMemoHeader(DocumentNo)); - ServiceCreditMemoStatistics.Trap(); - PostedServiceCreditMemo.ServiceStatistics.Invoke(); - - // 3. Verify: Verify Service Credit Memo Statistics Page with details. - ServiceCrMemoLine.SetRange("Document No.", PostedServiceCreditMemo."No.".Value); - ServiceCrMemoLine.FindFirst(); - ServiceCreditMemoStatistics.Amount.AssertEquals(ServiceCrMemoLine.Amount); - ServiceCreditMemoStatistics.VATAmount.AssertEquals(ServiceCrMemoLine."Amount Including VAT" - ServiceCrMemoLine.Amount); - ServiceCreditMemoStatistics.Subform.First(); - ServiceCreditMemoStatistics.Subform."VAT Amount".AssertEquals( - ServiceCrMemoLine."Amount Including VAT" - ServiceCrMemoLine.Amount); - end; - - [Test] - [HandlerFunctions('ConfirmHandlerTrue')] - [Scope('OnPrem')] - procedure CreditLimitLCYOnPostedMemoNM() - var - ServiceLine: Record "Service Line"; - Customer: Record Customer; - ServiceCreditMemo: TestPage "Service Credit Memo"; - PostedServiceCreditMemo: TestPage "Posted Service Credit Memo"; - ServiceCreditMemoStatistics: TestPage "Service Credit Memo Statistics"; - DocumentNo: Code[20]; - begin - // Test creation of Service Credit Memo, post Service Credit Memo and verify Credit limit on Service Credit Memo Statistics Page. - - // 1. Setup: Find VAT Posting Setup and Create Customer with Credit Limit. - Initialize(); - CreateCustomerWithCreditLimit(Customer); - - // 2. Exercise: Create Item, Service Credit Memo with Item, post,Find Posted Service Credit Memo and open Statistics Page. - CreateServiceCreditMemoHeader(ServiceCreditMemo, Customer."No."); - DocumentNo := CopyStr(ServiceCreditMemo."No.".Value(), 1, MaxStrLen(DocumentNo)); - CreateServiceCreditMemoLine(ServiceCreditMemo, ServiceLine.Type::Item, LibraryInventory.CreateItemNo()); - LibrarySales.DisableConfirmOnPostingDoc(); - ServiceCreditMemo.Post.Invoke(); - - PostedServiceCreditMemo.OpenView(); - PostedServiceCreditMemo.FILTER.SetFilter("No.", FindServiceCreditMemoHeader(DocumentNo)); - ServiceCreditMemoStatistics.Trap(); - 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('ServiceOrderStatNegativeProfitPageHandlerNM')] - [Scope('OnPrem')] - procedure OrderStatisticsNegativeProfitNM() - var - ServiceLine: Record "Service Line"; - ServiceHeader: Record "Service Header"; - Item: Record Item; - ServiceOrder: TestPage "Service Order"; - ProfitValue: Decimal; - ProfitPct: Decimal; - AmountRoundingPrecision: Decimal; - begin - // [FEATURE] [Service Order Statistics] - // [SCENARIO 319397] Profit fields are filleed in correctly when Unit Price is less than Unit cost in Service Lines - Initialize(); - - // [GIVEN] Item "X" with Unit Cost = 100 - LibraryInventory.CreateItem(Item); - Item.Validate("Unit Cost", LibraryRandom.RandDecInRange(10, 100, 2)); - Item.Modify(true); - - // [GIVEN] Service Order with Service Line for "X" priced at 10 - LibraryService.CreateServiceHeader(ServiceHeader, ServiceHeader."Document Type"::Order, CreateCustomer()); - LibraryService.CreateServiceLineWithQuantity( - ServiceLine, ServiceHeader, ServiceLine.Type::Item, Item."No.", LibraryRandom.RandInt(10)); - ServiceLine.Validate("Unit Price", LibraryRandom.RandDec(10, 2)); - ServiceLine.Modify(true); - - // [WHEN] Open Service Order Statistics page - ServiceOrder.OpenEdit(); - ServiceOrder.FILTER.SetFilter("No.", ServiceHeader."No."); - ServiceOrder.ServiceOrderStatistics.Invoke(); - - // [THEN] Validate Original Profit (LCY), Original Profit %, Adjusted Profit (LCY), Adjusted Profit % - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); - ProfitValue := ServiceLine.Amount - ServiceLine."Unit Cost (LCY)" * ServiceLine.Quantity; - ProfitPct := Round(ProfitValue / ServiceLine.Amount * 100, AmountRoundingPrecision); - - Assert.AreNearlyEqual(ProfitValue, LibraryVariableStorage.DequeueDecimal(), AmountRoundingPrecision, - StrSubstNo(OrigProfitLCYErr, ServiceLine."Document No.")); - Assert.AreNearlyEqual(ProfitPct, LibraryVariableStorage.DequeueDecimal(), AmountRoundingPrecision, - StrSubstNo(OrigProfitPctErr, ServiceLine."Document No.")); - Assert.AreEqual(ProfitValue, LibraryVariableStorage.DequeueDecimal(), AdjProfitLCYErr); - Assert.AreEqual(ProfitPct, LibraryVariableStorage.DequeueDecimal(), AdjProfitPctErr); - LibraryVariableStorage.AssertEmpty(); - end; - - [Test] - [Scope('OnPrem')] - procedure InvDiscAmtAppliedOnPostedServInvWhenCalcInvDiscEnabled() - var - Customer: Record Customer; - Item: Record Item; - ServiceHeader: Record "Service Header"; - ServiceInvoiceLine: Record "Service Invoice Line"; - ServiceLine: Record "Service Line"; - ServiceMgtSetup: Record "Service Mgt. Setup"; - ServiceCalcDiscount: Codeunit "Service-Calc. Discount"; - ManualInvDiscountAmount: Decimal; - PostedInvoiceNo: Code[20]; - begin - // [FEATURE] [AI test] - // [SCENARIO 626466] Invoice Discount Amount manually entered on Service Order is preserved when Calc. Inv. Discount is enabled - Initialize(); - - // [GIVEN] Sales & Receivables Setup "Calc. Inv. Discount" = TRUE - LibrarySales.SetCalcInvDiscount(true); - - // [GIVEN] Customer "C" without Cust. Invoice Disc. records - LibrarySales.CreateCustomer(Customer); - - // [GIVEN] Item "I" - LibraryInventory.CreateItem(Item); - - // [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); - - // [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); - - // [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; - - local procedure Initialize() - begin - LibraryTestInitialize.OnTestInitialize(CODEUNIT::"Service Statistics"); - InitVariables(); - LibrarySetupStorage.Restore(); - - if isInitialized then - exit; - LibraryTestInitialize.OnBeforeTestSuiteInitialize(CODEUNIT::"Service Statistics"); - - LibraryService.SetupServiceMgtNoSeries(); - LibraryERMCountryData.UpdateSalesReceivablesSetup(); - LibraryERMCountryData.UpdateGeneralPostingSetup(); - LibraryERMCountryData.UpdateGeneralLedgerSetup(); - LibrarySales.SetStockoutWarning(false); - - LibrarySetupStorage.Save(DATABASE::"Sales & Receivables Setup"); - - isInitialized := true; - Commit(); - LibraryTestInitialize.OnAfterTestSuiteInitialize(CODEUNIT::"Service Statistics"); - end; - - local procedure CreateCustomer(): Code[20] - begin - exit(LibrarySales.CreateCustomerNo()); - end; - - 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; - - 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; - - local procedure CreateServiceCreditMemoHeader(var ServiceCreditMemo: TestPage "Service Credit Memo"; CustomerNo: Code[20]) - var - ServiceHeader: Record "Service Header"; - ServiceCreditMemoNo: Code[20]; - begin - ServiceCreditMemoNo := LibraryService.CreateServiceCreditMemoHeaderUsingPage(); - Commit(); - - 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; - - 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); - - // 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; - - local procedure CreateServiceLine(var ServiceLines: TestPage "Service Lines"; Type: Option; No: Code[20]) - begin - ServiceLines.Type.SetValue(Type); - ServiceLines."No.".SetValue(No); - - // 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; - - local procedure CreateServiceInvoiceHeader(var ServiceInvoice: TestPage "Service Invoice"; CustomerNo: Code[20]) - var - ServiceHeader: Record "Service Header"; - ServiceInvoiceNo: Code[20]; - begin - ServiceInvoice.OpenNew(); - ServiceInvoice."Customer No.".Activate(); - ServiceInvoiceNo := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(ServiceInvoiceNo)); - ServiceInvoice.OK().Invoke(); - Commit(); - - 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; - - 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); - - // 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; - - local procedure CreateServiceOrderHeader(var ServiceOrder: TestPage "Service Order"; CustomerNo: Code[20]) - var - ServiceHeader: Record "Service Header"; - ServiceOrderNo: Code[20]; - begin - ServiceOrderNo := LibraryService.CreateServiceOrderHeaderUsingPage(); - Commit(); - - 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; - - local procedure CreateServiceOrderItemLine(var ServiceOrder: TestPage "Service Order") - begin - ServiceOrder.ServItemLines.Description.SetValue(ServiceOrder."No.".Value); - ServiceOrder.ServItemLines.New(); - end; - - local procedure CreateServiceQuoteHeader(var ServiceQuote: TestPage "Service Quote"; CustomerNo: Code[20]) - var - ServiceHeader: Record "Service Header"; - ServiceQuoteNo: Code[20]; - begin - ServiceQuote.OpenNew(); - ServiceQuote."Customer No.".Activate(); - ServiceQuoteNo := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(ServiceQuoteNo)); - ServiceQuote.OK().Invoke(); - Commit(); - - 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; - - local procedure CreateServiceQuoteItemLine(var ServiceQuote: TestPage "Service Quote") - begin - ServiceQuote.ServItemLine.Description.SetValue(ServiceQuote."No.".Value); - ServiceQuote.ServItemLine.New(); - end; - - local procedure CreateServiceQuoteLine(var ServiceQuoteLines: TestPage "Service Quote Lines"; Type: Option; No: Code[20]) - begin - ServiceQuoteLines.Type.SetValue(Type); - ServiceQuoteLines."No.".SetValue(No); - - // Take Random Quantity and Unit Price. - ServiceQuoteLines.Quantity.SetValue(LibraryRandom.RandDec(10, 2)); - 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"; - 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.ServiceOrderStatistics.Invoke(); - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - InvoiceDiscountAmount := ServiceLine."Inv. Discount Amount"; - ServiceOrder.Post.Invoke(); - end; - - 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; - - 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; - - 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; - - local procedure FindServiceShipmentHeader(OrderNo: Code[20]): Code[20] - var - ServiceShipmentHeader: Record "Service Shipment Header"; - begin - ServiceShipmentHeader.SetRange("Order No.", OrderNo); - ServiceShipmentHeader.FindFirst(); - exit(ServiceShipmentHeader."No."); - end; - - 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; - - local procedure GetAmountRoundingPrecision(): Decimal - var - GeneralLedgerSetup: Record "General Ledger Setup"; - begin - GeneralLedgerSetup.Get(); - exit(GeneralLedgerSetup."Amount Rounding Precision"); - end; - - local procedure InitVariables() - begin - Clear(Type2); - Clear(DocumentType2); - No2 := ''; - ItemNo := ''; - GLAccountNo := ''; - ResourceNo := ''; - CostCode := ''; - DocumentNo2 := ''; - CreditLimitLCY := 0; - UpdateDiscountAmount := false; - UpdateTotalVAT := false; - end; - - local procedure LineWithoutAllowInvoiceDisc(DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) - var - ServiceLine: Record "Service Line"; - begin - FindServiceLine(ServiceLine, DocumentType, DocumentNo); - repeat - ServiceLine.Validate("Allow Invoice Disc.", false); - ServiceLine.Modify(true); - until ServiceLine.Next() = 0; - end; - - 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; - - local procedure UpdateDiscountAmountOrder(ServiceOrderStatistics: TestPage "Service Order Statistics") - var - InvoiceDiscountAmount: Decimal; - begin - Evaluate(InvoiceDiscountAmount, ServiceOrderStatistics."Inv. Discount Amount_General".Value); - - // Take Random for Invoice Discount Amount. - ServiceOrderStatistics."Inv. Discount Amount_General".SetValue( - InvoiceDiscountAmount + LibraryRandom.RandDec(5, 2)); - end; - - local procedure UpdateDiscountAmountStatistics(ServiceStatistics: TestPage "Service Statistics") - var - InvoiceDiscountAmount: Decimal; - begin - Evaluate(InvoiceDiscountAmount, ServiceStatistics."Inv. Discount Amount_General".Value); - - // Take Random for Invoice Discount Amount. - ServiceStatistics."Inv. Discount Amount_General".SetValue( - InvoiceDiscountAmount + LibraryRandom.RandDec(5, 2)); - end; - - 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; - - local procedure UpdateQuantityToInvoiceLine(DocumentNo: Code[20]) - var - ServiceLine: Record "Service Line"; - begin - 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; - - local procedure UpdateTotalVATOrderStatistics(ServiceOrderStatistics: TestPage "Service Order Statistics") - var - TotalInclVAT: Decimal; - begin - Evaluate(TotalInclVAT, ServiceOrderStatistics."Total Incl. VAT_General".Value); - - // Take Random for Total Incl. VAT. - ServiceOrderStatistics."Total Incl. VAT_General".SetValue(TotalInclVAT + LibraryRandom.RandDec(5, 2)); - end; - - local procedure UpdateTotalVATStatistics(ServiceStatistics: TestPage "Service Statistics") - var - TotalInclVAT: Decimal; - begin - Evaluate(TotalInclVAT, ServiceStatistics."Total Incl. VAT_General".Value); - - // Take Random for Total Incl. VAT. - ServiceStatistics."Total Incl. VAT_General".SetValue(TotalInclVAT + LibraryRandom.RandDec(5, 2)); - end; - - local procedure VerifyOrderLineItems(ServiceOrderStatistics: TestPage "Service Order Statistics"; DocumentNo: Code[20]) - var - ServiceLine: Record "Service Line"; - AmountItems: Decimal; - VATAmountItems: Decimal; - TotalInclVATItems: Decimal; - SalesLCYItems: Decimal; - InvDiscountAmountItems: 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::Item); - ServiceLine.FindFirst(); - - 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( - 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; + AmountItems: Decimal; + VATAmountItems: Decimal; + TotalInclVATItems: Decimal; + SalesLCYItems: Decimal; + InvDiscountAmountItems: 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, - 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 VerifyOrderStatistics(ServiceOrderStatistics: TestPage "Service Order 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, ServiceOrderStatistics.Amount_General.Value); - Evaluate(VATAmountGeneral, ServiceOrderStatistics."VAT Amount_General".Value); - Evaluate(TotalInclVATGeneral, ServiceOrderStatistics."Total Incl. VAT_General".Value); - Evaluate(SalesLCYGeneral, ServiceOrderStatistics."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 VerifyOrderStatisticsDetails(ServiceOrderStatistics: TestPage "Service Order Statistics"; ServiceLine: Record "Service Line") - var - AmountDetails: Decimal; - VATAmountDetails: Decimal; - TotalInclVATDetails: Decimal; - SalesLCYDetails: Decimal; - InvDiscountAmountDetails: Decimal; - AmountRoundingPrecision: Decimal; - Amount: Decimal; - VATAmount: Decimal; - AmountIncludingVAT: Decimal; - SalesLCY: Decimal; - InvoiceDiscountAmount: Decimal; - QuantityPer: Decimal; - begin - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - Evaluate(AmountDetails, ServiceOrderStatistics.Amount_Invoicing.Value); - Evaluate(VATAmountDetails, ServiceOrderStatistics."VAT Amount_Invoicing".Value); - Evaluate(TotalInclVATDetails, ServiceOrderStatistics."Total Incl. VAT_Invoicing".Value); - Evaluate(SalesLCYDetails, ServiceOrderStatistics."Sales (LCY)_Invoicing".Value); - Evaluate(InvDiscountAmountDetails, ServiceOrderStatistics."Inv. Discount Amount_Invoicing".Value); - - QuantityPer := ServiceLine."Qty. to Invoice" / ServiceLine.Quantity; - Amount := Round((ServiceLine.Amount + ServiceLine."Inv. Discount Amount") * QuantityPer, AmountRoundingPrecision); - VATAmount := Round((ServiceLine."Amount Including VAT" - ServiceLine.Amount) * QuantityPer, AmountRoundingPrecision); - AmountIncludingVAT := Round(ServiceLine."Amount Including VAT" * QuantityPer, AmountRoundingPrecision); - SalesLCY := Round(ServiceLine.Amount * QuantityPer, AmountRoundingPrecision); - InvoiceDiscountAmount := Round(ServiceLine."Inv. Discount Amount" * QuantityPer, AmountRoundingPrecision); - - Assert.AreNearlyEqual(Amount, AmountDetails, AmountRoundingPrecision, StrSubstNo(AmountErr, AmountDetails, Amount)); - Assert.AreNearlyEqual(VATAmount, VATAmountDetails, AmountRoundingPrecision, StrSubstNo(VATAmountErr, VATAmountDetails, VATAmount)); - Assert.AreNearlyEqual( - AmountIncludingVAT, TotalInclVATDetails, AmountRoundingPrecision, - StrSubstNo(AmountErr, TotalInclVATDetails, AmountIncludingVAT)); - Assert.AreNearlyEqual(SalesLCY, SalesLCYDetails, AmountRoundingPrecision, StrSubstNo(SalesLCYErr, SalesLCYDetails, SalesLCY)); - Assert.AreNearlyEqual( - InvoiceDiscountAmount, InvDiscountAmountDetails, AmountRoundingPrecision, - StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountDetails, InvoiceDiscountAmount)); - ServiceOrderStatistics.Quantity_Consuming.AssertEquals(ServiceLine."Qty. to Consume"); - end; - - local procedure VerifyOrderStatisticsGeneral(ServiceOrderStatistics: TestPage "Service Order 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, ServiceOrderStatistics.Amount_General.Value); - Evaluate(VATAmountGeneral, ServiceOrderStatistics."VAT Amount_General".Value); - Evaluate(TotalInclVATGeneral, ServiceOrderStatistics."Total Incl. VAT_General".Value); - Evaluate(SalesLCYGeneral, ServiceOrderStatistics."Sales (LCY)_General".Value); - Evaluate(InvDiscountAmountGeneral, ServiceOrderStatistics."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 VerifyOrderStatisticsProfit(ServiceOrderStatistics: TestPage "Service Order Statistics") - begin - LibraryVariableStorage.Enqueue(ServiceOrderStatistics.Original_ProfitLCY_Gen.Value); - LibraryVariableStorage.Enqueue(ServiceOrderStatistics.Original_ProfitPct_Gen.Value); - LibraryVariableStorage.Enqueue(ServiceOrderStatistics.Adj_ProfitLCY_Gen.Value); - LibraryVariableStorage.Enqueue(ServiceOrderStatistics.Adj_ProfitPct_Gen.Value); - end; - - local procedure VerifyOrderStatisticsShipping(ServiceOrderStatistics: TestPage "Service Order Statistics"; ServiceLine: Record "Service Line") - var - AmountShipping: Decimal; - VATAmountShipping: Decimal; - TotalInclVATShipping: Decimal; - SalesLCYShipping: Decimal; - InvDiscountAmountShipping: Decimal; - AmountRoundingPrecision: Decimal; - Amount: Decimal; - VATAmount: Decimal; - AmountIncludingVAT: Decimal; - SalesLCY: Decimal; - InvoiceDiscountAmount: Decimal; - QuantityPer: Decimal; - begin - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - Evaluate(AmountShipping, ServiceOrderStatistics.Amount_Shipping.Value); - Evaluate(VATAmountShipping, ServiceOrderStatistics."VAT Amount_Shipping".Value); - Evaluate(TotalInclVATShipping, ServiceOrderStatistics."Total Incl. VAT_Shipping".Value); - Evaluate(SalesLCYShipping, ServiceOrderStatistics."Sales (LCY)_Shipping".Value); - Evaluate(InvDiscountAmountShipping, ServiceOrderStatistics."Inv. Discount Amount_Shipping".Value); - - QuantityPer := ServiceLine."Qty. to Ship" / ServiceLine.Quantity; - Amount := Round((ServiceLine.Amount + ServiceLine."Inv. Discount Amount") * QuantityPer, AmountRoundingPrecision); - VATAmount := Round((ServiceLine."Amount Including VAT" - ServiceLine.Amount) * QuantityPer, AmountRoundingPrecision); - AmountIncludingVAT := Round(ServiceLine."Amount Including VAT" * QuantityPer, AmountRoundingPrecision); - SalesLCY := Round(ServiceLine.Amount * QuantityPer, AmountRoundingPrecision); - InvoiceDiscountAmount := Round(ServiceLine."Inv. Discount Amount" * QuantityPer, AmountRoundingPrecision); - - Assert.AreNearlyEqual(Amount, AmountShipping, AmountRoundingPrecision, StrSubstNo(AmountErr, AmountShipping, Amount)); - Assert.AreNearlyEqual( - VATAmount, VATAmountShipping, AmountRoundingPrecision, StrSubstNo(VATAmountErr, VATAmountShipping, VATAmount)); - Assert.AreNearlyEqual( - AmountIncludingVAT, TotalInclVATShipping, AmountRoundingPrecision, - StrSubstNo(AmountErr, TotalInclVATShipping, AmountIncludingVAT)); - Assert.AreNearlyEqual(SalesLCY, SalesLCYShipping, AmountRoundingPrecision, StrSubstNo(SalesLCYErr, SalesLCYShipping, SalesLCY)); - Assert.AreNearlyEqual( - InvoiceDiscountAmount, InvDiscountAmountShipping, AmountRoundingPrecision, - StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountShipping, InvoiceDiscountAmount)); - end; - - local procedure VerifyServiceOrderVATLine(VATAmountLines: TestPage "VAT Amount Lines"; DocumentNo: Code[20]) - var - ServiceLine: Record "Service Line"; - VATBase: Decimal; - VATAmount: Decimal; - AmountIncludingVAT: Decimal; - VATBase2: Decimal; - VATAmount2: Decimal; - AmountIncludingVAT2: Decimal; - VATBase3: Decimal; - VATAmount3: Decimal; - AmountIncludingVAT3: Decimal; - QuantityPer: Decimal; - AmountRoundingPrecision: Decimal; - begin - FindServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); - ServiceLine.CalcSums("Amount Including VAT", Amount, "VAT Base Amount"); - - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - VATAmountLines.First(); - repeat - Evaluate(VATBase, VATAmountLines."VAT Base".Value); - Evaluate(VATAmount, VATAmountLines."VAT Amount".Value); - Evaluate(AmountIncludingVAT, VATAmountLines."Amount Including VAT".Value); - VATBase2 += VATBase; - VATAmount2 += VATAmount; - AmountIncludingVAT2 += AmountIncludingVAT; - until not VATAmountLines.Next(); - - QuantityPer := ServiceLine."Qty. to Ship" / ServiceLine.Quantity; - VATBase3 := Round(ServiceLine."VAT Base Amount" * QuantityPer, AmountRoundingPrecision); - VATAmount3 := Round((ServiceLine."Amount Including VAT" - ServiceLine.Amount) * QuantityPer, AmountRoundingPrecision); - AmountIncludingVAT3 := Round(ServiceLine."Amount Including VAT" * QuantityPer, AmountRoundingPrecision); - - Assert.AreNearlyEqual(VATBase3, VATBase2, AmountRoundingPrecision, StrSubstNo(VATBaseAmountErr, VATBase2, VATBase3)); - Assert.AreNearlyEqual(VATAmount3, VATAmount2, AmountRoundingPrecision, StrSubstNo(VATAmountErr, VATAmount2, VATAmount3)); - Assert.AreNearlyEqual( - AmountIncludingVAT3, AmountIncludingVAT2, AmountRoundingPrecision, - StrSubstNo(AmountErr, AmountIncludingVAT2, AmountIncludingVAT3)); - end; - - local procedure VerifyServiceLineItems(ServiceStatistics: TestPage "Service Statistics"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) - var - ServiceLine: Record "Service Line"; - AmountItems: Decimal; - VATAmountItems: Decimal; - TotalInclVATItems: Decimal; - SalesLCYItems: Decimal; - InvDiscountAmountItems: Decimal; - AmountRoundingPrecision: Decimal; - begin - AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - FilterServiceLine(ServiceLine, DocumentType, DocumentNo); ServiceLine.SetRange(Type, ServiceLine.Type::Item); ServiceLine.FindFirst(); - Evaluate(AmountItems, ServiceStatistics.Amount_Items.Value); - Evaluate(VATAmountItems, ServiceStatistics."VAT Amount_Items".Value); - Evaluate(TotalInclVATItems, ServiceStatistics."Total Incl. VAT_Items".Value); - Evaluate(SalesLCYItems, ServiceStatistics."Sales (LCY)_Items".Value); - Evaluate(InvDiscountAmountItems, ServiceStatistics."Inv. Discount Amount_Items".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( ServiceLine.Amount + ServiceLine."Inv. Discount Amount", AmountItems, AmountRoundingPrecision, @@ -4170,7 +2166,7 @@ codeunit 136130 "Service Statistics" StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountItems, ServiceLine."Inv. Discount Amount")); end; - local procedure VerifyServiceLineResources(ServiceStatistics: TestPage "Service Statistics"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) + local procedure VerifyOrderLineResources(ServiceOrderStatistics: TestPage "Service Order Statistics"; DocumentNo: Code[20]) var ServiceLine: Record "Service Line"; AmountResources: Decimal; @@ -4181,16 +2177,16 @@ codeunit 136130 "Service Statistics" AmountRoundingPrecision: Decimal; begin AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - FilterServiceLine(ServiceLine, DocumentType, DocumentNo); + FilterServiceLine(ServiceLine, ServiceLine."Document Type"::Order, 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); - + 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")); @@ -4208,7 +2204,7 @@ codeunit 136130 "Service Statistics" StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountResources, ServiceLine."Inv. Discount Amount")); end; - local procedure VerifyServiceLineCostGLAccount(ServiceStatistics: TestPage "Service Statistics"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) + local procedure VerifyOrderLineCostGLAccount(ServiceOrderStatistics: TestPage "Service Order Statistics"; DocumentNo: Code[20]) var ServiceLine: Record "Service Line"; AmountIncludingVAT: Decimal; @@ -4222,7 +2218,7 @@ codeunit 136130 "Service Statistics" AmountRoundingPrecision: Decimal; begin AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. - FilterServiceLine(ServiceLine, DocumentType, DocumentNo); + FilterServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); ServiceLine.SetFilter(Type, '%1|%2', ServiceLine.Type::Cost, ServiceLine.Type::"G/L Account"); ServiceLine.FindSet(); repeat @@ -4231,11 +2227,11 @@ codeunit 136130 "Service Statistics" 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); + 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, @@ -4246,488 +2242,441 @@ codeunit 136130 "Service Statistics" 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(); + Assert.AreNearlyEqual(Amount, SalesLCYCosts, AmountRoundingPrecision, StrSubstNo(SalesLCYErr, SalesLCYCosts, Amount)); + Assert.AreNearlyEqual( + InvDiscountAmount, InvDiscountAmountCosts, AmountRoundingPrecision, + StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountCosts, InvDiscountAmount)); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure ChangeTotalVATOrderPostHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") + local procedure VerifyOrderStatistics(ServiceOrderStatistics: TestPage "Service Order Statistics"; ServiceLine: Record "Service Line") var - ServiceLine: Record "Service Line"; + AmountGeneral: Decimal; + VATAmountGeneral: Decimal; + TotalInclVATGeneral: Decimal; + SalesLCYGeneral: Decimal; + AmountRoundingPrecision: Decimal; begin - if not UpdateTotalVAT then begin - UpdateTotalVATOrderStatistics(ServiceOrderStatistics); - ServiceOrderStatistics.OK().Invoke(); - exit; - end; - - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyOrderStatisticsDetails(ServiceOrderStatistics, ServiceLine); + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + Evaluate(AmountGeneral, ServiceOrderStatistics.Amount_General.Value); + Evaluate(VATAmountGeneral, ServiceOrderStatistics."VAT Amount_General".Value); + Evaluate(TotalInclVATGeneral, ServiceOrderStatistics."Total Incl. VAT_General".Value); + Evaluate(SalesLCYGeneral, ServiceOrderStatistics."Sales (LCY)_General".Value); - // Verify VAT Amount Line on Page handler. - ServiceOrderStatistics."No. of VAT Lines_Shipping".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 ChangeTotalVATPageHandler(var ServiceStatistics: TestPage "Service Statistics") + local procedure VerifyOrderStatisticsDetails(ServiceOrderStatistics: TestPage "Service Order Statistics"; ServiceLine: Record "Service Line") var - ServiceLine: Record "Service Line"; + AmountDetails: Decimal; + VATAmountDetails: Decimal; + TotalInclVATDetails: Decimal; + SalesLCYDetails: Decimal; + InvDiscountAmountDetails: Decimal; + AmountRoundingPrecision: Decimal; + Amount: Decimal; + VATAmount: Decimal; + AmountIncludingVAT: Decimal; + SalesLCY: Decimal; + InvoiceDiscountAmount: Decimal; + QuantityPer: Decimal; begin - if not UpdateTotalVAT then begin - UpdateTotalVATStatistics(ServiceStatistics); - ServiceStatistics.OK().Invoke(); - exit; - end; + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + Evaluate(AmountDetails, ServiceOrderStatistics.Amount_Invoicing.Value); + Evaluate(VATAmountDetails, ServiceOrderStatistics."VAT Amount_Invoicing".Value); + Evaluate(TotalInclVATDetails, ServiceOrderStatistics."Total Incl. VAT_Invoicing".Value); + Evaluate(SalesLCYDetails, ServiceOrderStatistics."Sales (LCY)_Invoicing".Value); + Evaluate(InvDiscountAmountDetails, ServiceOrderStatistics."Inv. Discount Amount_Invoicing".Value); - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineItems(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); + QuantityPer := ServiceLine."Qty. to Invoice" / ServiceLine.Quantity; + Amount := Round((ServiceLine.Amount + ServiceLine."Inv. Discount Amount") * QuantityPer, AmountRoundingPrecision); + VATAmount := Round((ServiceLine."Amount Including VAT" - ServiceLine.Amount) * QuantityPer, AmountRoundingPrecision); + AmountIncludingVAT := Round(ServiceLine."Amount Including VAT" * QuantityPer, AmountRoundingPrecision); + SalesLCY := Round(ServiceLine.Amount * QuantityPer, AmountRoundingPrecision); + InvoiceDiscountAmount := Round(ServiceLine."Inv. Discount Amount" * QuantityPer, AmountRoundingPrecision); + + Assert.AreNearlyEqual(Amount, AmountDetails, AmountRoundingPrecision, StrSubstNo(AmountErr, AmountDetails, Amount)); + Assert.AreNearlyEqual(VATAmount, VATAmountDetails, AmountRoundingPrecision, StrSubstNo(VATAmountErr, VATAmountDetails, VATAmount)); + Assert.AreNearlyEqual( + AmountIncludingVAT, TotalInclVATDetails, AmountRoundingPrecision, + StrSubstNo(AmountErr, TotalInclVATDetails, AmountIncludingVAT)); + Assert.AreNearlyEqual(SalesLCY, SalesLCYDetails, AmountRoundingPrecision, StrSubstNo(SalesLCYErr, SalesLCYDetails, SalesLCY)); + Assert.AreNearlyEqual( + InvoiceDiscountAmount, InvDiscountAmountDetails, AmountRoundingPrecision, + StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountDetails, InvoiceDiscountAmount)); + ServiceOrderStatistics.Quantity_Consuming.AssertEquals(ServiceLine."Qty. to Consume"); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure CreditLimitLCYPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") + local procedure VerifyOrderStatisticsGeneral(ServiceOrderStatistics: TestPage "Service Order Statistics"; ServiceLine: Record "Service Line") + var + AmountGeneral: Decimal; + VATAmountGeneral: Decimal; + TotalInclVATGeneral: Decimal; + SalesLCYGeneral: Decimal; + InvDiscountAmountGeneral: Decimal; + AmountRoundingPrecision: Decimal; begin - ServiceOrderStatistics."Credit Limit (LCY)_Customer".AssertEquals(CreditLimitLCY); - ServiceOrderStatistics.OK().Invoke(); + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + Evaluate(AmountGeneral, ServiceOrderStatistics.Amount_General.Value); + Evaluate(VATAmountGeneral, ServiceOrderStatistics."VAT Amount_General".Value); + Evaluate(TotalInclVATGeneral, ServiceOrderStatistics."Total Incl. VAT_General".Value); + Evaluate(SalesLCYGeneral, ServiceOrderStatistics."Sales (LCY)_General".Value); + Evaluate(InvDiscountAmountGeneral, ServiceOrderStatistics."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; - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentCreditLimitPageHandler(var ServiceStatistics: TestPage "Service Statistics") + local procedure VerifyOrderStatisticsProfit(ServiceOrderStatistics: TestPage "Service Order Statistics") begin - ServiceStatistics."Credit Limit (LCY)".AssertEquals(CreditLimitLCY); - ServiceStatistics.OK().Invoke(); + LibraryVariableStorage.Enqueue(ServiceOrderStatistics.Original_ProfitLCY_Gen.Value); + LibraryVariableStorage.Enqueue(ServiceOrderStatistics.Original_ProfitPct_Gen.Value); + LibraryVariableStorage.Enqueue(ServiceOrderStatistics.Adj_ProfitLCY_Gen.Value); + LibraryVariableStorage.Enqueue(ServiceOrderStatistics.Adj_ProfitPct_Gen.Value); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentGLAccountPageHandler(var ServiceStatistics: TestPage "Service Statistics") + local procedure VerifyOrderStatisticsShipping(ServiceOrderStatistics: TestPage "Service Order Statistics"; ServiceLine: Record "Service Line") var - ServiceLine: Record "Service Line"; + AmountShipping: Decimal; + VATAmountShipping: Decimal; + TotalInclVATShipping: Decimal; + SalesLCYShipping: Decimal; + InvDiscountAmountShipping: Decimal; + AmountRoundingPrecision: Decimal; + Amount: Decimal; + VATAmount: Decimal; + AmountIncludingVAT: Decimal; + SalesLCY: Decimal; + InvoiceDiscountAmount: Decimal; + QuantityPer: Decimal; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineCostGLAccount(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + Evaluate(AmountShipping, ServiceOrderStatistics.Amount_Shipping.Value); + Evaluate(VATAmountShipping, ServiceOrderStatistics."VAT Amount_Shipping".Value); + Evaluate(TotalInclVATShipping, ServiceOrderStatistics."Total Incl. VAT_Shipping".Value); + Evaluate(SalesLCYShipping, ServiceOrderStatistics."Sales (LCY)_Shipping".Value); + Evaluate(InvDiscountAmountShipping, ServiceOrderStatistics."Inv. Discount Amount_Shipping".Value); + + QuantityPer := ServiceLine."Qty. to Ship" / ServiceLine.Quantity; + Amount := Round((ServiceLine.Amount + ServiceLine."Inv. Discount Amount") * QuantityPer, AmountRoundingPrecision); + VATAmount := Round((ServiceLine."Amount Including VAT" - ServiceLine.Amount) * QuantityPer, AmountRoundingPrecision); + AmountIncludingVAT := Round(ServiceLine."Amount Including VAT" * QuantityPer, AmountRoundingPrecision); + SalesLCY := Round(ServiceLine.Amount * QuantityPer, AmountRoundingPrecision); + InvoiceDiscountAmount := Round(ServiceLine."Inv. Discount Amount" * QuantityPer, AmountRoundingPrecision); + + Assert.AreNearlyEqual(Amount, AmountShipping, AmountRoundingPrecision, StrSubstNo(AmountErr, AmountShipping, Amount)); + Assert.AreNearlyEqual( + VATAmount, VATAmountShipping, AmountRoundingPrecision, StrSubstNo(VATAmountErr, VATAmountShipping, VATAmount)); + Assert.AreNearlyEqual( + AmountIncludingVAT, TotalInclVATShipping, AmountRoundingPrecision, + StrSubstNo(AmountErr, TotalInclVATShipping, AmountIncludingVAT)); + Assert.AreNearlyEqual(SalesLCY, SalesLCYShipping, AmountRoundingPrecision, StrSubstNo(SalesLCYErr, SalesLCYShipping, SalesLCY)); + Assert.AreNearlyEqual( + InvoiceDiscountAmount, InvDiscountAmountShipping, AmountRoundingPrecision, + StrSubstNo(InvoiceDiscountAmountErr, InvDiscountAmountShipping, InvoiceDiscountAmount)); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentDiscountPageHandler(var ServiceStatistics: TestPage "Service Statistics") + local procedure VerifyServiceOrderVATLine(VATAmountLines: TestPage "VAT Amount Lines"; DocumentNo: Code[20]) var ServiceLine: Record "Service Line"; + VATBase: Decimal; + VATAmount: Decimal; + AmountIncludingVAT: Decimal; + VATBase2: Decimal; + VATAmount2: Decimal; + AmountIncludingVAT2: Decimal; + VATBase3: Decimal; + VATAmount3: Decimal; + AmountIncludingVAT3: Decimal; + QuantityPer: Decimal; + AmountRoundingPrecision: Decimal; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - ServiceLine.CalcSums("Amount Including VAT", Amount, "Inv. Discount Amount", "VAT Base Amount"); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); + FindServiceLine(ServiceLine, ServiceLine."Document Type"::Order, DocumentNo); + ServiceLine.CalcSums("Amount Including VAT", Amount, "VAT Base Amount"); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineItems(ServiceStatistics, DocumentType2, DocumentNo2); - VerifyServiceLineResources(ServiceStatistics, DocumentType2, DocumentNo2); - VerifyServiceLineCostGLAccount(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + VATAmountLines.First(); + repeat + Evaluate(VATBase, VATAmountLines."VAT Base".Value); + Evaluate(VATAmount, VATAmountLines."VAT Amount".Value); + Evaluate(AmountIncludingVAT, VATAmountLines."Amount Including VAT".Value); + VATBase2 += VATBase; + VATAmount2 += VATAmount; + AmountIncludingVAT2 += AmountIncludingVAT; + until not VATAmountLines.Next(); + + QuantityPer := ServiceLine."Qty. to Ship" / ServiceLine.Quantity; + VATBase3 := Round(ServiceLine."VAT Base Amount" * QuantityPer, AmountRoundingPrecision); + VATAmount3 := Round((ServiceLine."Amount Including VAT" - ServiceLine.Amount) * QuantityPer, AmountRoundingPrecision); + AmountIncludingVAT3 := Round(ServiceLine."Amount Including VAT" * QuantityPer, AmountRoundingPrecision); + + Assert.AreNearlyEqual(VATBase3, VATBase2, AmountRoundingPrecision, StrSubstNo(VATBaseAmountErr, VATBase2, VATBase3)); + Assert.AreNearlyEqual(VATAmount3, VATAmount2, AmountRoundingPrecision, StrSubstNo(VATAmountErr, VATAmount2, VATAmount3)); + Assert.AreNearlyEqual( + AmountIncludingVAT3, AmountIncludingVAT2, AmountRoundingPrecision, + StrSubstNo(AmountErr, AmountIncludingVAT2, AmountIncludingVAT3)); end; - [ModalPageHandler] - [Scope('OnPrem')] - procedure DocumentItemPageHandler(var ServiceStatistics: TestPage "Service Statistics") + local procedure VerifyServiceLineItems(ServiceStatistics: TestPage "Service Statistics"; DocumentType: Enum "Service Document Type"; DocumentNo: Code[20]) var ServiceLine: Record "Service Line"; + AmountItems: Decimal; + VATAmountItems: Decimal; + TotalInclVATItems: Decimal; + SalesLCYItems: Decimal; + InvDiscountAmountItems: Decimal; + AmountRoundingPrecision: Decimal; begin - FindServiceLine(ServiceLine, DocumentType2, DocumentNo2); - VerifyServiceStatisticsGeneral(ServiceStatistics, ServiceLine); - VerifyServiceStatisticsVATLine(ServiceStatistics, ServiceLine); - VerifyServiceLineItems(ServiceStatistics, DocumentType2, DocumentNo2); - ServiceStatistics.OK().Invoke(); + AmountRoundingPrecision := 10 * GetAmountRoundingPrecision(); // Using multiplication of 10 for rounding. + FilterServiceLine(ServiceLine, DocumentType, DocumentNo); + ServiceLine.SetRange(Type, ServiceLine.Type::Item); + ServiceLine.FindFirst(); + + Evaluate(AmountItems, ServiceStatistics.Amount_Items.Value); + Evaluate(VATAmountItems, ServiceStatistics."VAT Amount_Items".Value); + Evaluate(TotalInclVATItems, ServiceStatistics."Total Incl. VAT_Items".Value); + Evaluate(SalesLCYItems, ServiceStatistics."Sales (LCY)_Items".Value); + Evaluate(InvDiscountAmountItems, ServiceStatistics."Inv. Discount Amount_Items".Value); + + Assert.AreNearlyEqual( + 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; - [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/W1/Tests/SCM/SCMInventoryBatchJobs.Codeunit.al b/src/Layers/W1/Tests/SCM/SCMInventoryBatchJobs.Codeunit.al index dc2d8e3ad36..6cd67c6ba42 100644 --- a/src/Layers/W1/Tests/SCM/SCMInventoryBatchJobs.Codeunit.al +++ b/src/Layers/W1/Tests/SCM/SCMInventoryBatchJobs.Codeunit.al @@ -706,451 +706,6 @@ codeunit 137285 "SCM Inventory Batch Jobs" Item.TestField("Cost is Adjusted", true); end; -#if not CLEAN27 - [Test] - [HandlerFunctions('PostedServiceInvoiceStatisticsPageHandler')] - [Scope('OnPrem')] - procedure PstdServInvStatisticsUsingServOrder() - var - Item: Record Item; - PurchaseLine: Record "Purchase Line"; - ServiceHeader: Record "Service Header"; - ServiceLine: Record "Service Line"; - begin - // Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics after posting Service Order. - - // Setup: Create Item, create and post Purchase Order, create Service Order. - Initialize(); - CreatePurchaseOrder( - PurchaseLine, CreateVendor(), CreateItem('', Item."Costing Method"::Standard), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - PostPurchaseDocument(PurchaseLine, true); - CreateServiceDocumentAndUpdateServiceLine(ServiceLine, PurchaseLine."No.", CreateCustomer(), LibraryRandom.RandDec(10, 2)); // Use random value for Quantity. - ServiceHeader.Get(ServiceLine."Document Type", ServiceLine."Document No."); - - // Exercise: Post Service Order as ship and invoice. - LibraryService.PostServiceOrder(ServiceHeader, true, false, true); - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceInvoiceStatistics( - ServiceLine."Document No.", '', - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [Scope('OnPrem')] - [HandlerFunctions('PostedServiceInvoiceStatisticsPageHandler')] - procedure PstdServInvStatisticsWithRevAndAdjmt() - var - Item: Record Item; - PurchaseLine: Record "Purchase Line"; - ServiceHeader: Record "Service Header"; - ServiceLine: Record "Service Line"; - ItemLedgerEntry: Record "Item Ledger Entry"; - UnitCostRevalued: Decimal; - begin - // Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics after posting Revaluation Journal and running Adjust Cost Item Entries. - - // Setup: Create Item, create and post Purchase Order, Service Order and Revaluation Journal. - CreatePurchaseOrder( - PurchaseLine, CreateVendor(), CreateItem('', Item."Costing Method"::Standard), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - PostPurchaseDocument(PurchaseLine, true); - CreateServiceDocumentAndUpdateServiceLine(ServiceLine, PurchaseLine."No.", CreateCustomer(), PurchaseLine.Quantity / 2); // Take Partial Quantity. - ServiceHeader.Get(ServiceLine."Document Type", ServiceLine."Document No."); - LibraryService.PostServiceOrder(ServiceHeader, true, false, true); - FindItemLedgerEntry(ItemLedgerEntry, ItemLedgerEntry."Entry Type"::Purchase, PurchaseLine."No.", true); - UnitCostRevalued := - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) + LibraryRandom.RandDec(10, 2); // Add random value to Unit Cost to make positive Revaluation. - CreateAndPostRevaluationJournal( - PurchaseLine."No.", ItemLedgerEntry."Entry No.", LibraryRandom.RandDec(100, 2), UnitCostRevalued); // Use Random value for Inventory Value Revalued and 0 for Unit Cost Revalued. - - // Exercise: Run Adjust Cost Item Entries. - LibraryCosting.AdjustCostItemEntries(PurchaseLine."No.", ''); // Blank value for Item Category. - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceInvoiceStatistics( - ServiceLine."Document No.", '', - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - UnitCostRevalued * ServiceLine.Quantity); - end; - - [Test] - [Scope('OnPrem')] - [HandlerFunctions('PostedServiceCreditMemoStatisticsPageHandler')] - procedure PstdServCrMemoStatisticsWithAdjmt() - var - Item: Record Item; - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - begin - // Verify Original Cost and Adjusted Cost on posted Services Credit Memo Statistics after posting Service Credit Memo and running Adjust Cost Item Entries. - - // Setup: Create Item, create and post Purchase Order, Service Credit Memo. - Initialize(); - CreatePurchaseOrder( - PurchaseLine, CreateVendor(), CreateItem('', Item."Costing Method"::Standard), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - PostPurchaseDocument(PurchaseLine, true); - CreateAndPostServiceCreditMemo(ServiceLine, PurchaseLine."No.", LibrarySales.CreateCustomerNo()); - - // Exercise: Run Adjust Cost Item Entries. - LibraryCosting.AdjustCostItemEntries(PurchaseLine."No.", ''); // Blank value for Item Category. - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceCreditMemoStatistics( - ServiceLine."Document No.", GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [Scope('OnPrem')] - [HandlerFunctions('PostedServiceInvoiceStatisticsPageHandler')] - procedure PstdServInvStatisticsUsingServOrderWithLineDisc() - var - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - SalesLineDiscount: Record "Sales Line Discount"; - begin - // Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics after posting Service Order When Line Discount is defined for Item. - - // Setup: Create Item with Sales Line Discount, create and post Purchase Order, create Service Order. - Initialize(); - CreateItemWithSalesLineDiscount(SalesLineDiscount); - CreateAndPostPurchaseDocument(PurchaseLine, SalesLineDiscount.Code, LibraryRandom.RandDec(10, 2), true); // Use TRUE for Invoice and Random value for Quantity. - CreateServiceDocumentAndUpdateServiceLine( - ServiceLine, SalesLineDiscount.Code, SalesLineDiscount."Sales Code", LibraryRandom.RandDec(10, 2)); // Use random value for Quantity. - - // Exercise: Post Service Order as ship and invoice. - PostServiceOrder(ServiceLine, true, false); - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceInvoiceStatistics( - ServiceLine."Document No.", '', GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [Scope('OnPrem')] - [HandlerFunctions('PostedServiceInvoiceStatisticsPageHandler')] - procedure PstdServInvStatisticsWithRevAndWithoutAdjmt() - var - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - SalesLineDiscount: Record "Sales Line Discount"; - begin - // Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics after posting Revaluation Journal When Line Discount is defined for Item. - - // Setup: Create Item with Sales Line Discount, create and post Purchase Order, Service Order and Revaluation Journal. - Initialize(); - CreateItemWithSalesLineDiscount(SalesLineDiscount); - CreateAndPostPurchaseDocument(PurchaseLine, SalesLineDiscount.Code, LibraryRandom.RandDec(10, 2), true); // Use TRUE for Invoice and Random value for Quantity. - CreateServiceDocumentAndUpdateServiceLine( - ServiceLine, SalesLineDiscount.Code, SalesLineDiscount."Sales Code", PurchaseLine.Quantity - 1); // Take less Quantity than Purchase Line. - PostServiceOrder(ServiceLine, true, false); - - // Exercise: Create and post Revaluation Journal. - CreateItemJournalForRevaluation(SalesLineDiscount.Code); - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceInvoiceStatistics( - ServiceLine."Document No.", '', - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [Scope('OnPrem')] - [HandlerFunctions('PostedServiceCreditMemoStatisticsPageHandler')] - procedure PstdServCrMemoStatisticsWithoutAdjmt() - var - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - SalesLineDiscount: Record "Sales Line Discount"; - begin - // Verify Original Cost and Adjusted Cost on posted Services Credit Memo Statistics after posting Service Credit Memo When Line Discount is defined for Item.. - - // Setup: Create Item with Sales Line Discount, create and post Purchase Order, Service Credit Memo. - Initialize(); - CreateItemWithSalesLineDiscount(SalesLineDiscount); - CreateAndPostPurchaseDocument(PurchaseLine, SalesLineDiscount.Code, LibraryRandom.RandDec(10, 2), true); // Use TRUE for Invoice and Random value for Quantity. - - // Exercise: Create and post Service Credit Memo. - CreateAndPostServiceCreditMemo(ServiceLine, SalesLineDiscount.Code, SalesLineDiscount."Sales Code"); - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceCreditMemoStatistics( - ServiceLine."Document No.", GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [HandlerFunctions('ServiceOrderStatisticsPageHandler')] - [Scope('OnPrem')] - procedure ServOrderStatisticsPostingServOrderAsShip() - var - Item: Record Item; - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - begin - // Verify Original Cost and Adjusted Cost on Services Order Statistics after posting Service Order as Ship. - - // Setup: Create Item, create and post Purchase Order, Create Service Order. - Initialize(); - CreateAndPostPurchaseDocument(PurchaseLine, CreateItem('', Item."Costing Method"::FIFO), LibraryRandom.RandDec(10, 2), true); // Use TRUE for Invoice and Random value for Quantity. - CreateServiceDocumentAndUpdateServiceLine(ServiceLine, PurchaseLine."No.", CreateCustomer(), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - - // Exercise: Post Service Order as ship. - PostServiceOrder(ServiceLine, false, false); - - // Verify: Verify Original Cost and Adjusted Cost on Services Order Statistics. - VerifyServiceOrderStatistics( - ServiceLine."Document No.", GetItemCost(PurchaseLine."No.") * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [HandlerFunctions('ServiceOrderStatisticsPageHandler')] - [Scope('OnPrem')] - procedure ServOrderStatisticsPostingServOrderAsShipWithAdjmt() - var - Item: Record Item; - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - DirectUnitCost: Decimal; - AdjustedCost: Decimal; - begin - // Verify Original Cost and Adjusted Cost on Services Order Statistics after posting Service Order as Ship and running Adjust Cost Item Entries. - - // Setup: Create Item, create and post Purchase Order, Service Order. - Initialize(); - CreatePurchaseOrder(PurchaseLine, CreateVendor(), CreateItem('', Item."Costing Method"::FIFO), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - DirectUnitCost := PurchaseLine."Direct Unit Cost"; - PostPartialPurchLineWithUpdate(PurchaseLine); - AdjustedCost := - PurchaseLine."Quantity Invoiced" * DirectUnitCost + PurchaseLine."Qty. to Invoice" * PurchaseLine."Direct Unit Cost"; - PostPurchaseDocument(PurchaseLine, true); - CreateServiceDocumentAndUpdateServiceLine(ServiceLine, PurchaseLine."No.", CreateCustomer(), PurchaseLine.Quantity); - PostServiceOrder(ServiceLine, false, false); - - // Exercise: Run Adjust Cost Item Entries. - LibraryCosting.AdjustCostItemEntries(PurchaseLine."No.", ''); // Blank value for Item Category. - - // Verify: Verify Original Cost and Adjusted Cost on Services Order Statistics. - VerifyServiceOrderStatistics(ServiceLine."Document No.", DirectUnitCost * ServiceLine.Quantity, AdjustedCost); - end; - - [Test] - [HandlerFunctions('ShipmentLinePageHandler,PostedServiceInvoiceStatisticsPageHandler')] - [Scope('OnPrem')] - procedure PstdServInvStatisticsUsingGetShipmentLines() - var - Item: Record Item; - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - OrderNo: Text[20]; - begin - // Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics after posting Service Order using Get Service Shipment Lines. - - // Setup: Create Item, create and post Purchase Order, create Service Invoice using Get Shipment Lines. - Initialize(); - CreateAndPostPurchaseDocument(PurchaseLine, CreateItem('', Item."Costing Method"::FIFO), LibraryRandom.RandDec(10, 2), true); // Use TRUE for Invoice and Random value for Quantity. - CreateServiceDocumentAndUpdateServiceLine(ServiceLine, PurchaseLine."No.", CreateCustomer(), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - OrderNo := ServiceLine."Document No."; - PostServiceOrder(ServiceLine, false, false); - LibraryVariableStorage.Enqueue(ServiceLine."Document No."); // Enqueue value for 'ShipmentLinePageHandler'. - CreateServiceInvoiceFromGetShipmentLines(ServiceLine, ServiceLine."Customer No."); - - // Exercise: Post Service Invoice. - PostServiceOrder(ServiceLine, true, false); - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceInvoiceStatistics( - OrderNo, ServiceLine."Document No.", GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [HandlerFunctions('ServiceOrderStatisticsPageHandler')] - [Scope('OnPrem')] - procedure ServOrderStatisticsPostingServOrderAsConsume() - var - Item: Record Item; - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - begin - // Verify Original Cost and Adjusted Cost on Services Order Statistics after posting Service Order as ship and consume. - - // Setup: Create Item, create and post Purchase Order, Service Order. - Initialize(); - CreateAndPostPurchaseDocument( - PurchaseLine, CreateItem('', Item."Costing Method"::Standard), LibraryRandom.RandDec(10, 2), true); // Use TRUE for Invoice and Random value for Quantity. - CreateServiceDocumentAndUpdateServiceLine(ServiceLine, PurchaseLine."No.", CreateCustomer(), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - UpdateQtyToConsumeOnServiceLine(ServiceLine, ServiceLine."Qty. to Ship" * LibraryUtility.GenerateRandomFraction()); - - // Exercise: Post Service Order as ship and consume. - PostServiceOrder(ServiceLine, false, true); - - // Verify: Verify Original Cost and Adjusted Cost on Services Order Statistics. - VerifyServiceOrderStatistics( - ServiceLine."Document No.", GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [HandlerFunctions('ConfirmHandler,ServiceOrderStatisticsPageHandler')] - [Scope('OnPrem')] - procedure ServOrderStatisticsAfterUndoShipmentWithAdjmt() - begin - // Verify Original Cost and Adjusted Cost on Services Order Statistics when undo Shipment Lines and running Adjust Cost Item Entries. - ServiceOrderStatisticsAfterUndoShipmentLine(0, false); // 0 for Quantity To Consume and FALSE for Consume. - end; - - [Test] - [HandlerFunctions('ConfirmHandler,ServiceOrderStatisticsPageHandler')] - [Scope('OnPrem')] - procedure ServOrderStatisticsAfterUndoConsumptionWithAdjmt() - begin - // Verify Original Cost and Adjusted Cost on Services Order Statistics when undo consumption Line and running Adjust Cost Item Entries. - ServiceOrderStatisticsAfterUndoShipmentLine(LibraryRandom.RandInt(10), true); // Use random for Quantity to Consume and TRUE for Consume. - end; - - local procedure ServiceOrderStatisticsAfterUndoShipmentLine(Quantity: Decimal; Consume: Boolean) - var - Item: Record Item; - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - begin - // Setup: Create Item, create and post Purchase Order, Service Order and undo Shipment Line. - Initialize(); - CreateAndPostPurchaseDocument( - PurchaseLine, CreateItem('', Item."Costing Method"::FIFO), Quantity + LibraryRandom.RandInt(10), true); // Use TRUE for Invoice and Random value for Quantity. - CreateServiceDocumentAndUpdateServiceLine( - ServiceLine, PurchaseLine."No.", CreateCustomer(), Quantity + LibraryRandom.RandInt(10)); // Use Random Quantity greater than Quantity To Consume. - UpdateQtyToConsumeOnServiceLine(ServiceLine, Quantity); - PostServiceOrder(ServiceLine, false, Consume); - if Consume then - UndoServiceConsumptionLine(ServiceLine."Document No.") - else - UndoServiceShipmentLine(ServiceLine."Document No."); - - // Exercise: Run Adjust Cost Item Entries. - LibraryCosting.AdjustCostItemEntries(ServiceLine."No.", ''); // Blank value for Item Category. - - // Verify: Verify Original Cost and Adjusted Cost on Services Order Statistics. - VerifyServiceOrderStatistics( - ServiceLine."Document No.", GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [Scope('OnPrem')] - [HandlerFunctions('PostedServiceInvoiceStatisticsPageHandler')] - procedure PstdServInvStatisticsWithChargeAssignment() - var - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - begin - // Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics after posting Service Order and Purchase Order with Charge Assignment. - - // Setup: Create and post Purchase Order with charge Assignment, create Service Order. - Initialize(); - PostChargeOnPurchaseDocument(PurchaseLine); - CreateServiceDocumentAndUpdateServiceLine(ServiceLine, PurchaseLine."No.", CreateCustomer(), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - - // Exercise: Post Service Order as ship. - PostServiceOrder(ServiceLine, true, false); - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceInvoiceStatistics( - ServiceLine."Document No.", '', GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [Scope('OnPrem')] - [HandlerFunctions('PostedServiceCreditMemoStatisticsPageHandler')] - procedure PstdServCrMemoStatisticsWithChargeAssignment() - var - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - begin - // Verify Original Cost and Adjusted Cost on posted Services Credit Memo Statistics after posting Service Credit Memo and Purchase Order with Charge Assignment. - - // Setup: Create and post Purchase Order with charge Assignment. - Initialize(); - PostChargeOnPurchaseDocument(PurchaseLine); - - // Exercise: Create and post Service Credit Memo. - CreateAndPostServiceCreditMemo(ServiceLine, PurchaseLine."No.", CreateCustomer()); - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Credit Memo Statistics - VerifyCostOnPostedServiceCreditMemoStatistics( - ServiceLine."Document No.", GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [HandlerFunctions('ShipmentLinePageHandler,PostedServiceInvoiceStatisticsPageHandler')] - [Scope('OnPrem')] - procedure PstdServInvStatisticsUsingGetShipmentLinesWithChrgAssgnt() - var - PurchaseLine: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - OrderNo: Text[20]; - begin - // Verify Original Cost and Adjusted Cost on on posted Services Invoice Statistics after posting Service Invoice using Get Service Shipment Lines and Purchase Order with Charge Assignment. - - // Setup: Create and post Purchase Order with charge Assignment, create Service Invoice using Get Shipment Lines. - Initialize(); - PostChargeOnPurchaseDocument(PurchaseLine); - CreateServiceDocumentAndUpdateServiceLine(ServiceLine, PurchaseLine."No.", CreateCustomer(), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - OrderNo := ServiceLine."Document No."; - PostServiceOrder(ServiceLine, false, false); - LibraryVariableStorage.Enqueue(ServiceLine."Document No."); // Enqueue value for 'ShipmentLinePageHandler'. - CreateServiceInvoiceFromGetShipmentLines(ServiceLine, ServiceLine."Customer No."); - - // Exercise: Post Service Invoice. - PostServiceOrder(ServiceLine, true, false); - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceInvoiceStatistics( - OrderNo, ServiceLine."Document No.", GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; - - [Test] - [Scope('OnPrem')] - [HandlerFunctions('PostedServiceInvoiceStatisticsPageHandler')] - procedure PstdServInvStatisticsWithChargeAssignmentWithAdjmt() - var - Item: Record Item; - PurchaseLine: Record "Purchase Line"; - PurchaseLine2: Record "Purchase Line"; - ServiceLine: Record "Service Line"; - begin - // Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics after posting Service Order and Purchase Invoice with Charge Assignment, running Adjust Cost Item Entries. - - // Setup: Create and post Purchase Order. - Initialize(); - CreatePurchaseOrder( - PurchaseLine, CreateVendor(), CreateItem('', Item."Costing Method"::Standard), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - PostPurchaseDocument(PurchaseLine, false); - - // Create Purchase Invoice for Charge Item and assign it to previous Posted Receipt, create and post Service Order. - CreateAndPostChargeItemPurchaseDocument( - PurchaseLine2, PurchaseLine."Buy-from Vendor No.", PurchaseLine."Document No.", PurchaseLine."No.", - LibraryInventory.CreateItemChargeNo()); - CreateServiceDocumentAndUpdateServiceLine(ServiceLine, PurchaseLine."No.", CreateCustomer(), LibraryRandom.RandDec(10, 2)); // Use Random value for Quantity. - PostServiceOrder(ServiceLine, true, false); - - // Exercise: Run Adjust Cost Item Entries. - LibraryCosting.AdjustCostItemEntries(PurchaseLine."No.", ''); // Blank value for Item Category. - - // Verify: Verify Original Cost and Adjusted Cost on posted Services Invoice Statistics. - VerifyCostOnPostedServiceInvoiceStatistics( - ServiceLine."Document No.", '', GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity, - GetItemCostLCY(PurchaseLine."No.", PurchaseLine."Currency Code", PurchaseLine.GetDate()) * ServiceLine.Quantity); - end; -#endif [Test] [HandlerFunctions('PostedServiceInvoiceStatisticsPageHandlerNM')] [Scope('OnPrem')] @@ -2301,48 +1856,6 @@ codeunit 137285 "SCM Inventory Batch Jobs" ItemLedgerEntry.TestField("Item Category Code", ItemCategoryCode); end; -#if not CLEAN27 - local procedure VerifyCostOnPostedServiceInvoiceStatistics(OrderNo: Code[20]; PreAssignedNo: Code[20]; CostLCY: Decimal; TotalAdjCostLCY: Decimal) - var - ServiceInvHeader: Record "Service Invoice Header"; - PostedServiceInvoice: TestPage "Posted Service Invoice"; - begin - LibraryVariableStorage.Enqueue(CostLCY); - LibraryVariableStorage.Enqueue(TotalAdjCostLCY); - ServiceInvHeader.SetRange("Order No.", OrderNo); - ServiceInvHeader.SetRange("Pre-Assigned No.", PreAssignedNo); - ServiceInvHeader.FindFirst(); - PostedServiceInvoice.OpenView(); - PostedServiceInvoice.GotoRecord(ServiceInvHeader); - PostedServiceInvoice.Statistics.Invoke(); - end; - - local procedure VerifyCostOnPostedServiceCreditMemoStatistics(ServiceDocNo: Code[20]; CostLCY: Decimal; TotalAdjCostLCY: Decimal) - var - ServiceCrMemoHeader: Record "Service Cr.Memo Header"; - PostedServiceCreditMemo: TestPage "Posted Service Credit Memo"; - begin - LibraryVariableStorage.Enqueue(CostLCY); - LibraryVariableStorage.Enqueue(TotalAdjCostLCY); - ServiceCrMemoHeader.SetRange("Pre-Assigned No.", ServiceDocNo); - ServiceCrMemoHeader.FindFirst(); - PostedServiceCreditMemo.OpenView(); - PostedServiceCreditMemo.GotoRecord(ServiceCrMemoHeader); - PostedServiceCreditMemo.Statistics.Invoke(); - end; - - local procedure VerifyServiceOrderStatistics(No: Code[20]; OriginalCost: Decimal; AdjustedCost: Decimal) - var - ServiceOrder: TestPage "Service Order"; - begin - // Enqueue values for 'ServiceOrderStatisticsPageHandler' and verification done in 'ServiceOrderStatisticsPageHandler'. - LibraryVariableStorage.Enqueue(OriginalCost); - LibraryVariableStorage.Enqueue(AdjustedCost); - ServiceOrder.OpenView(); - ServiceOrder.FILTER.SetFilter("No.", No); - ServiceOrder.Statistics.Invoke(); - end; -#endif local procedure VerifyCostOnPostedServiceInvoiceStatisticsNM(OrderNo: Code[20]; PreAssignedNo: Code[20]; CostLCY: Decimal; TotalAdjCostLCY: Decimal) var ServiceInvHeader: Record "Service Invoice Header"; @@ -2413,53 +1926,6 @@ codeunit 137285 "SCM Inventory Batch Jobs" GetServiceShipmentLines.GetShipmentLines(); end; -#if not CLEAN27 - [ModalPageHandler] - [Scope('OnPrem')] - procedure ServiceOrderStatisticsPageHandler(var ServiceOrderStatistics: TestPage "Service Order Statistics") - var - CostLCY: Variant; - TotalAdjCostLCY: Variant; - begin - LibraryVariableStorage.Dequeue(CostLCY); - LibraryVariableStorage.Dequeue(TotalAdjCostLCY); - Assert.AreNearlyEqual( - CostLCY, ServiceOrderStatistics.OriginalCostLCY.AsDecimal(), LibraryERM.GetAmountRoundingPrecision(), - StrSubstNo(FieldValidationErr, CostLbl, CostLCY)); - Assert.AreNearlyEqual( - TotalAdjCostLCY, ServiceOrderStatistics.AdjustedCostLCY.AsDecimal(), LibraryERM.GetAmountRoundingPrecision(), - StrSubstNo(FieldValidationErr, CostLbl, TotalAdjCostLCY)); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure PostedServiceInvoiceStatisticsPageHandler(var ServiceInvoiceStatistics: TestPage "Service Invoice Statistics") - var - CostLCY: Variant; - TotalAdjCostLCY: Variant; - begin - LibraryVariableStorage.Dequeue(CostLCY); - LibraryVariableStorage.Dequeue(TotalAdjCostLCY); - Assert.AreNearlyEqual( - CostLCY, ServiceInvoiceStatistics.CostLCY.AsDecimal(), LibraryERM.GetAmountRoundingPrecision(), StrSubstNo(FieldValidationErr, CostLbl, CostLCY)); - Assert.AreNearlyEqual( - TotalAdjCostLCY, ServiceInvoiceStatistics.TotalAdjCostLCY.AsDecimal(), LibraryERM.GetAmountRoundingPrecision(), - StrSubstNo(FieldValidationErr, CostLbl, TotalAdjCostLCY)); - end; - - [ModalPageHandler] - [Scope('OnPrem')] - procedure PostedServiceCreditMemoStatisticsPageHandler(var ServiceCreditMemoStatistics: TestPage "Service Credit Memo Statistics") - var - CostLCY: Variant; - TotalAdjCostLCY: Variant; - begin - LibraryVariableStorage.Dequeue(CostLCY); - LibraryVariableStorage.Dequeue(TotalAdjCostLCY); - ServiceCreditMemoStatistics.CostLCY.AssertEquals(CostLCY); - ServiceCreditMemoStatistics.TotalAdjCostLCY.AssertEquals(TotalAdjCostLCY); - end; -#endif [PageHandler] [Scope('OnPrem')] procedure ServiceOrderStatisticsPageHandlerNM(var ServiceOrderStatistics: TestPage "Service Order Statistics") diff --git a/src/Layers/W1/Tests/SMB/ReportCatalogTests.Codeunit.al b/src/Layers/W1/Tests/SMB/ReportCatalogTests.Codeunit.al deleted file mode 100644 index dac7bc3e7a9..00000000000 --- a/src/Layers/W1/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"; - LibraryUtilityOnPrem: 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); - LibraryUtilityOnPrem.CheckFileNotEmpty(SavedPDFFile); - end; -} -#endif \ No newline at end of file diff --git a/src/Layers/W1/Tests/TestLibraries/LibraryKitting.Codeunit.al b/src/Layers/W1/Tests/TestLibraries/LibraryKitting.Codeunit.al index ffc3af5484d..d1b03e56988 100644 --- a/src/Layers/W1/Tests/TestLibraries/LibraryKitting.Codeunit.al +++ b/src/Layers/W1/Tests/TestLibraries/LibraryKitting.Codeunit.al @@ -364,17 +364,6 @@ codeunit 132205 "Library - Kitting" CompanyInfo.Modify(); end; -#if not CLEAN27 -#pragma warning disable AL0801 - [Obsolete('Moved to codeunit LibraryManufacturing', '27.0')] - procedure AddProdBOMItem(var MfgItem: Record Item; SubItemNo: Code[20]; Qty: Decimal) - var - LibraryManufacturing: Codeunit "Library - Manufacturing"; - begin - LibraryManufacturing.AddProdBOMItem(MfgItem, SubItemNo, Qty); - end; -#pragma warning restore AL0801 -#endif procedure SetCopyFrom(CopyFrom: Option "Order Header","Item/Resource Card") var From cd66a26d3fa00097d2ca3101b94f9afc446a80ad Mon Sep 17 00:00:00 2001 From: Alexander Yakunin Date: Fri, 21 Aug 2026 17:50:53 +0200 Subject: [PATCH 2/6] Process countries --- ...e14c7cb3e742594763c1f34cb5f2fce07de6c.json | 7 + .../Bank/BankAccount/BankAccount.Table.al | 6 - .../APAC/BaseApp/CRM/Contact/Contact.Table.al | 6 - .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../Company/CompanyInformation.Table.al | 12 - .../Costing/InventoryAdjustment.Codeunit.al | 7 - .../Inventory/Ledger/ItemLedgerEntry.Table.al | 8 - .../Posting/ItemJnlPostLine.Codeunit.al | 789 -- .../WithholdingTax/SalesTaxInvoice.Report.al | 4 - .../SalesTaxInvoiceHeader.Table.al | 6 - .../Purchases/Posting/PurchPost.Codeunit.al | 37 - .../Setup/PurchasesPayablesSetup.Page.al | 10 - .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../Sales/Archive/SalesHeaderArchive.Table.al | 6 - .../BaseApp/Sales/Customer/Customer.Table.al | 13 +- .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Document/SalesHeader.Table.al | 44 - .../History/ReturnReceiptHeader.Table.al | 6 - .../Sales/History/SalesCrMemoHeader.Table.al | 6 - .../Sales/History/SalesInvoiceHeader.Table.al | 6 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 10 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../LibraryPurchase.Codeunit.al | 9 - .../LibrarySales.Codeunit.al | 9 - .../ERMAccountSchedule.Codeunit.al | 36 - .../Misc/ReportSelectionsTests.Codeunit.al | 130 - .../Company/CompanyInformation.Table.al | 15 +- .../LibrarySales.Codeunit.al | 9 - .../Bank/BankAccount/BankAccount.Table.al | 6 - .../BE/BaseApp/CRM/Contact/Contact.Table.al | 6 - .../Dimension/DimensionManagement.Codeunit.al | 7 - .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../VAT/Reporting/VATStatementLine.Table.al | 8 - .../Company/CompanyInformation.Table.al | 13 - .../VAT/VATSummaryBuffer.Table.al | 7 - .../Purchases/Posting/PurchPost.Codeunit.al | 37 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../Sales/Archive/SalesHeaderArchive.Table.al | 6 - .../BaseApp/Sales/Customer/Customer.Table.al | 11 - .../Customer/CustomerBankAccount.Table.al | 6 - .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Document/SalesHeader.Table.al | 44 - .../History/ReturnReceiptHeader.Table.al | 6 - .../Sales/History/SalesCrMemoHeader.Table.al | 6 - .../Sales/History/SalesInvoiceHeader.Table.al | 6 - .../History/SalesShipmentHeader.Table.al | 6 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../Local/History/ServiceInvoiceBE.Report.al | 4 - .../LibraryCashFlowHelper.Codeunit.al | 28 - .../LibraryPurchase.Codeunit.al | 9 - .../Tests/Local/PaymentDiscount.Codeunit.al | 84 - .../LibraryPurchase.Codeunit.al | 9 - .../ERMSalesPurchaseDocument.Codeunit.al | 90 - .../Local/ERMSalesPurchaseTax.Codeunit.al | 76 - .../Local/ERMSalesPurchaseTaxII.Codeunit.al | 78 - .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Company/CompanyInformation.Table.al | 15 +- .../Inventory/Ledger/ItemLedgerEntry.Table.al | 8 - .../Posting/ItemJnlPostLine.Codeunit.al | 789 -- .../Bank/Payment/SalesInvoiceESR.Report.al | 4 - .../Sales/Document/SalesPickingList.Report.al | 10 - .../Purchases/Posting/PurchPost.Codeunit.al | 37 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../Sales/Archive/SalesHeaderArchive.Table.al | 6 - .../BaseApp/Sales/Customer/Customer.Table.al | 13 +- .../Customer/CustomerBankAccount.Table.al | 6 - .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Document/SalesHeader.Table.al | 44 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 10 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../Bank/Payment/ServiceInvoiceESR.Report.al | 4 - .../LibrarySales.Codeunit.al | 9 - .../Sales/Document/SalesHeader.Table.al | 44 - .../LibraryPurchase.Codeunit.al | 9 - .../ERMAccountSchedule.Codeunit.al | 36 - .../Misc/ReportSelectionsTests.Codeunit.al | 130 - .../Company/CompanyInformation.Table.al | 15 +- .../Inventory/Setup/InventorySetup.Table.al | 94 - .../Setup/PurchasesPayablesSetup.Page.al | 10 - .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../Upgrade/UPGLocalFunctionality.Codeunit.al | 142 - .../Bank/BankAccount/BankAccount.Table.al | 8 +- .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Posting/GenJnlPostLine.Codeunit.al | 7 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../Company/CompanyInformation.Table.al | 15 +- .../Inventory/Ledger/ItemLedgerEntry.Table.al | 8 - .../Posting/ItemJnlPostLine.Codeunit.al | 789 -- .../InvoiceSplitPayment.Codeunit.al | 59 - .../VAT/Calculation/NoTaxableMgt.Codeunit.al | 22 - .../VAT/Ledger/NoTaxableEntry.Table.al | 24 - .../SIIJobUploadPendingDocs.Codeunit.al | 24 - .../EDocument/SIIManagement.Codeunit.al | 20 - .../EDocument/SIISchemeCodeMgt.Codeunit.al | 20 - .../History/PostedServInvoiceUpdate.Page.al | 222 - .../ServiceInvoiceHeaderEdit.Codeunit.al | 83 - .../Purchases/Posting/PurchPost.Codeunit.al | 37 - .../Setup/PurchasesPayablesSetup.Page.al | 10 - .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../BaseApp/Sales/Customer/Customer.Table.al | 11 - .../Customer/CustomerBankAccount.Table.al | 6 - .../Sales/Customer/CustomerStatistics.Page.al | 12 - .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Document/SalesHeader.Table.al | 46 +- .../Sales/History/SalesCrMemoHeader.Table.al | 8 +- .../Sales/History/SalesInvoiceHeader.Table.al | 8 +- .../History/SalesShipmentHeader.Table.al | 6 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Sales/Pricing/CustInvoiceDisc.Table.al | 15 - .../Receivables/CustLedgerEntry.Table.al | 40 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 10 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../Document/ServiceCreditMemo.Page.al | 52 - .../Document/ServiceCreditMemoES.PageExt.al | 4 - .../EDocument/ServSIIManagement.Codeunit.al | 6 - .../ServInvoiceSplitPayment.Codeunit.al | 9 - .../VAT/Ledger/ServNoTaxableMgt.Codeunit.al | 3 - .../Local/History/ServiceInvoiceES.Report.al | 4 - .../ServicePostingSubscrES.Codeunit.al | 6 - .../Posting/ServDocumentsMgt.Codeunit.al | 45 - .../ServPostingJournalsMgt.Codeunit.al | 38 - .../LibraryCashFlowHelper.Codeunit.al | 28 - .../LibraryPurchase.Codeunit.al | 9 - .../LibrarySales.Codeunit.al | 9 - .../Local/ERMPaymentDiscount.Codeunit.al | 98 - .../Tests/Local/ERMPaymentTerms.Codeunit.al | 4 - .../Local/ERMServiceInvoiceES.Codeunit.al | 53 +- .../ERMServiceVATECCalculate.Codeunit.al | 101 - .../Misc/ReportSelectionsTests.Codeunit.al | 130 - .../SCM-Service/ServiceStatistics.Codeunit.al | 1746 +-- .../Tests/SMB/ReportCatalogTests.Codeunit.al | 61 - .../Bank/BankAccount/BankAccount.Table.al | 6 - .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Company/CompanyInformation.Table.al | 15 +- .../SuggestEmployeePayments.Report.al | 8 - .../Purchases/Posting/PurchPost.Codeunit.al | 37 - .../Setup/PurchasesPayablesSetup.Page.al | 10 - .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../Customer/CustomerBankAccount.Table.al | 6 - .../Sales/Document/SalesHeader.Table.al | 44 - .../Sales/History/SalesInvoiceHeader.Table.al | 28 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 10 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../Local/History/ServiceInvoiceFI.Report.al | 4 - .../LibraryPurchase.Codeunit.al | 9 - .../Bank/BankAccount/BankAccount.Table.al | 6 - .../FR/BaseApp/CRM/Contact/Contact.Table.al | 6 - .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Posting/GenJnlPostLine.Codeunit.al | 9 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../Company/CompanyInformation.Table.al | 13 - .../Shipping/ShipmentMethod.Table.al | 17 - .../Inventory/Ledger/ItemLedgerEntry.Table.al | 8 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../BaseApp/Sales/Customer/Customer.Table.al | 13 +- .../Customer/CustomerBankAccount.Table.al | 6 - .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Document/SalesHeader.Table.al | 44 - .../Sales/History/SalesCrMemoHeader.Table.al | 6 - .../Sales/History/SalesInvoiceHeader.Table.al | 6 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Bank/BankAccount/BankAccountCard.Page.al | 99 - .../GB/BaseApp/Bank/Check/Check.Report.al | 137 - .../CRM/Contact/ContactAltAddressCard.Page.al | 107 - .../BaseApp/CRM/Contact/ContactCard.Page.al | 96 - .../ECSalesListPopulateXML.Codeunit.al | 171 - .../GB/BaseApp/ECSalesListSubmit.Codeunit.al | 106 - .../Journal/PaymentJournal.Page.al | 4 - .../Setup/GeneralLedgerSetup.Page.al | 62 - .../Setup/GeneralLedgerSetup.Table.al | 10 - .../AccountingManagerRoleCenter.Page.al | 24 - .../RoleCenters/BookkeeperRoleCenter.Page.al | 24 - .../VAT/Calculation/VATAmountLine.Table.al | 16 - .../Finance/VAT/Reporting/ECSLReport.Page.al | 55 - .../VAT/Reporting/ECSLVATReportLine.Table.al | 17 - .../VAT/Reporting/ECSalesList.Report.al | 354 - .../ECSalesListSuggestLines.Codeunit.al | 46 - .../VAT/Reporting/EUVATEntries.Query.al | 33 - .../Finance/VAT/Reporting/VATReport.Page.al | 14 - .../VAT/Reporting/VATReportArchive.Table.al | 148 - .../VAT/Reporting/VATReportLog.Page.al | 18 - .../Reporting/VATReportRequestPage.Report.al | 62 - .../VAT/Reporting/VATReportStatus.EnumExt.al | 18 - .../Reporting/VATReportsConfiguration.Page.al | 29 - .../VATReportsConfiguration.Table.al | 6 - .../VAT/Reporting/VATStatement.Page.al | 39 - .../Company/CompanyInformation.Page.al | 244 - .../Company/CompanyInformation.Table.al | 92 +- .../Employee/EmployeeCard.Page.al | 96 - .../GB/BaseApp/Inventory/Item/Item.Table.al | 5 - .../BaseApp/Inventory/Item/ItemCard.Page.al | 10 - .../BaseApp/Inventory/Item/ItemList.Page.al | 10 - .../BaseApp/Inventory/Item/ItemTempl.Table.al | 12 - .../Inventory/Item/ItemTemplCard.Page.al | 10 - .../Inventory/Ledger/ItemLedgerEntry.Table.al | 8 - .../Inventory/Location/LocationCard.Page.al | 100 - .../BankMgt/Check/CheckPreviewGB.Page.al | 172 - .../CreateVATDeclarationRequest.Codeunit.al | 102 - .../VAT/Declaration/GovTalkMessage.Table.al | 5 - .../GovTalkMessageManagement.Codeunit.al | 644 - .../Declaration/GovTalkMessageParts.Table.al | 5 - .../VAT/Declaration/GovTalkSetup.Codeunit.al | 60 - .../VAT/Declaration/GovTalkSetup.Page.al | 127 - .../VAT/Declaration/GovTalkSetup.Table.al | 5 - .../GovTalkVATReportValidate.Codeunit.al | 58 - .../HMRCGovTalkMessageScheduler.Codeunit.al | 62 - .../HMRCSubmissionHelpers.Codeunit.al | 69 - .../SubmitVATDeclarationRequest.Codeunit.al | 90 - .../ReverseChargeSalesList.Report.al | 515 - .../VAT/Reporting/ReverseChargeSalesList.rdlc | 2682 ---- .../Local/FinancialMgt/VAT/VATAudit.Report.al | 544 - .../VAT/VATEntryExceptionReport.Report.al | 362 - .../VAT/VATEntryExceptionReport.rdlc | 2118 --- .../Depreciation/FAProjectedValue.Report.al | 1106 -- .../Depreciation/FAProjectedValue.rdlc | 5278 -------- .../Address/PostcodeBusinessLogic.Codeunit.al | 205 - .../Document/BlanketPurchaseOrderGB.Report.al | 650 - .../Document/BlanketPurchaseOrderGB.rdlc | 3717 ----- .../Purchases/Document/OrderGB.Report.al | 959 -- .../Local/Purchases/Document/OrderGB.rdlc | 7726 ----------- .../History/PurchaseCreditMemoGB.Report.al | 934 -- .../History/PurchaseCreditMemoGB.rdlc | 10424 -------------- .../History/PurchaseInvoiceGB.Report.al | 936 -- .../Purchases/History/PurchaseInvoiceGB.rdlc | 10727 --------------- .../Document/BlanketSalesOrderGB.Report.al | 921 -- .../Sales/Document/BlanketSalesOrderGB.rdlc | 7093 ---------- .../Document/OrderConfirmationGB.Report.al | 950 -- .../Sales/Document/OrderConfirmationGB.rdlc | 7066 ---------- .../Sales/History/SalesCreditMemoGB.Report.al | 1128 -- .../Sales/History/SalesCreditMemoGB.rdlc | 10691 --------------- .../Sales/History/SalesInvoiceGB.Report.al | 1181 -- .../Local/Sales/History/SalesInvoiceGB.rdlc | 11187 ---------------- .../Sales/History/SalesQuoteGB.Report.al | 995 -- .../Local/Sales/History/SalesQuoteGB.rdlc | 9033 ------------- .../d365busfullaccess.permissionset.al | 3 - .../Permissions/d365setup.permissionset.al | 5 - .../Permissions/local.permissionset.al | 8 - .../Permissions/localread.permissionset.al | 8 - .../Resources/Resource/ResourceCard.Page.al | 93 - .../Purchases/Document/PurchaseLine.Table.al | 50 - .../History/PurchCrMemoLine.Table.al | 10 - .../Purchases/History/PurchInvLine.Table.al | 10 - .../Purchases/Posting/PurchPost.Codeunit.al | 66 - .../Reports/PurchaseDocumentTest.Report.al | 93 - .../Setup/PurchasesPayablesSetup.Page.al | 35 - .../Setup/PurchasesPayablesSetup.Table.al | 18 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorCard.Page.al | 96 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../RoleCenters/SmallBusinessOwnerRC.Page.al | 24 - .../Customer/CustomerBankAccountCard.Page.al | 102 - .../Sales/Customer/CustomerCard.Page.al | 98 - .../Sales/Customer/ShiptoAddress.Page.al | 87 - .../Sales/Document/SalesHeader.Table.al | 44 - .../BaseApp/Sales/Document/SalesLine.Table.al | 86 - .../History/PostedSalesShipmentUpdate.Page.al | 38 - .../Sales/History/SalesCrMemoLine.Table.al | 10 - .../Sales/History/SalesInvoiceLine.Table.al | 10 - .../Sales/Posting/SalesPost.Codeunit.al | 94 +- .../Sales/Reports/SalesDocumentTest.Report.al | 111 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 43 - .../Setup/SalesReceivablesSetup.Table.al | 23 - .../BaseApp/SandboxCleanuplocal.Codeunit.al | 26 - .../DataClassEvalDataCountry.Codeunit.al | 5 - .../CreateVATReportConfigs.Codeunit.al | 13 - .../LibraryERM.Codeunit.al | 8 - .../ERMFinancialReportsIII.Codeunit.al | 14 - .../ERMFinancialReportsIV.Codeunit.al | 43 - .../Tests/ERM/EditPostedDocuments.Codeunit.al | 10 - .../Tests/Job/JobConsumptionBasic.Codeunit.al | 338 - .../Local/ERMSalesPurchDocuments.Codeunit.al | 365 - .../Tests/Local/ERMSalesReportGB.Codeunit.al | 55 - .../Tests/Local/ReportLayoutLocal.Codeunit.al | 28 - .../GB/Tests/Local/TestUKPostcode.Codeunit.al | 306 - .../Local/TestUKPostcodePages.Codeunit.al | 1838 --- .../GB/Tests/Local/UTCOMPANY.Codeunit.al | 146 - .../GB/Tests/Local/UTPAGAPACS.Codeunit.al | 228 - .../Local/UTREPACCPERFixedAsset.Codeunit.al | 583 - .../GB/Tests/Local/UTREPDoclay.Codeunit.al | 299 - .../Local/UTREPPurchaseSales.Codeunit.al | 188 - .../GB/Tests/Local/UTREPUKGEN.Codeunit.al | 732 - .../GB/Tests/Local/UTREPVATREP.Codeunit.al | 480 - .../GB/Tests/Local/UTREPVATREPORT.Codeunit.al | 149 - .../VATOnSalesPurchaseDocument.Codeunit.al | 202 - .../ECSLXMLGenTest.Codeunit.al | 341 - .../GovTalkMessageManagementTest.Codeunit.al | 514 - .../GovTalkSetupTest.Codeunit.al | 141 - .../TestCreateVATDeclareRqst.Codeunit.al | 190 - .../TestIRMark.Codeunit.al | 64 - .../TestSubmitVATDeclareRqst.Codeunit.al | 120 - .../TestLibraries/TestVATContent.Codeunit.al | 7 - .../VAT/ERMVATReportsArchive.Codeunit.al | 15 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 10 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../Bank/BankAccount/BankAccount.Table.al | 6 - .../IT/BaseApp/CRM/Contact/Contact.Table.al | 6 - .../Journal/GenJournalLine.Table.al | 27 - .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Posting/GenJnlPostLine.Codeunit.al | 49 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../Setup/GeneralLedgerSetup.Table.al | 23 - .../AccountingManagerRoleCenter.Page.al | 14 - .../RoleCenters/BookkeeperRoleCenter.Page.al | 14 - .../FinanceManagerRoleCenter.Page.al | 12 - .../CalcandPostVATSettlement.Report.al | 136 - .../VAT/Reporting/VATStatement.Report.al | 297 - .../VAT/Reporting/VATStatementPreview.Page.al | 58 - .../Finance/VAT/Setup/VATSetup.Page.al | 15 - .../CalculateDepreciation.Report.al | 6 - .../Company/CompanyInformation.Table.al | 15 +- .../Posting/ItemJnlPostLine.Codeunit.al | 789 -- .../Requisition/RequisitionLine.Table.al | 4 - .../Transfer/TransferHeader.Table.al | 6 - .../Transfer/TransferReceiptHeader.Table.al | 6 - .../Transfer/TransferShipmentHeader.Table.al | 6 - .../Local/FeatureManagementIT.Codeunit.al | 35 - .../FeatureUpdVATSettlActCode.EnumExt.al | 20 - .../PeriodicSettlementVATEntry.Table.al | 5 - .../Reporting/PeriodicVATSettlList.Page.al | 14 - .../PeriodicVATSettlementCard.Page.al | 163 - .../PeriodicVATSettlementList.Page.al | 142 - .../VAT/Reporting/PeriodicVATSplit.Page.al | 38 - .../VATPmtCommDataLookup.Codeunit.al | 91 - .../VATSettlActCodeFeatDataUpd.Codeunit.al | 157 - .../MfgPlanningLineManagement.Codeunit.al | 48 - .../ManufacturingManagerRC.Page.al | 231 - .../ProductionPlannerRoleCenter.Page.al | 26 - .../ShopSupervisorMfgFoundation.Page.al | 15 +- .../ShopSupervisorRoleCenter.Page.al | 15 +- .../Setup/ManufacturingSetup.Page.al | 109 - .../Setup/ManufacturingSetup.Table.al | 70 - .../CalculateStandardCost.Codeunit.al | 50 - .../WorkCenter/WorkCenterCard.Page.al | 27 - .../WorkCenter/WorkCenterList.Page.al | 69 - .../Permissions/local.permissionset.al | 9 - .../Permissions/localread.permissionset.al | 9 - .../Archive/PurchaseLineArchive.Table.al | 45 - .../Document/PurchaseHeader.Table.al | 19 - .../Purchases/Document/PurchaseLine.Table.al | 66 - .../Purchases/Document/PurchaseLines.Page.al | 15 - .../Purchases/Posting/PurchPost.Codeunit.al | 49 - .../Posting/PurchPostInvoice.Codeunit.al | 9 - .../PurchasingAgentRoleCenter.Page.al | 15 - .../Setup/PurchasesPayablesSetup.Page.al | 10 - .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorCard.Page.al | 30 - .../Purchases/Vendor/VendorList.Page.al | 24 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../Sales/Archive/SalesHeaderArchive.Table.al | 6 - .../BaseApp/Sales/Customer/Customer.Table.al | 13 +- .../Customer/CustomerBankAccount.Table.al | 6 - .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Document/SalesHeader.Table.al | 85 - .../History/ReturnReceiptHeader.Table.al | 6 - .../Sales/History/SalesCrMemoHeader.Table.al | 6 - .../Sales/History/SalesInvoiceHeader.Table.al | 6 - .../History/SalesShipmentHeader.Table.al | 6 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 10 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../Service/History/ServiceInvoice.Report.al | 4 - .../History/ServiceShipmentHeader.Table.al | 18 - .../History/PostedServInvoiceUpdate.Page.al | 102 - .../History/PostedServiceShptUpdate.Page.al | 146 - .../ServShipmentHeaderEdit.Codeunit.al | 41 - .../ServiceInvoiceHeaderEdit.Codeunit.al | 35 - .../Upgrade/UPGPerVATSettlEntryIT.Codeunit.al | 82 - .../DataClassEvalDataCountry.Codeunit.al | 9 - .../WarehouseManagerRoleCenter.Page.al | 23 - .../RoleCenters/WhseBasicRoleCenter.Page.al | 12 - .../RoleCenters/WhseWMSRoleCenter.Page.al | 12 - .../WhseWorkerWMSRoleCenter.Page.al | 12 - .../DemoTool/CreateRoutingLines.Codeunit.al | 23 - .../CreateSubcontractingPrices.Codeunit.al | 34 - .../DemoTool/InterfaceBasisData.Codeunit.al | 3 - .../LibraryCashFlowHelper.Codeunit.al | 25 - .../LibraryERMCountryData.Codeunit.al | 4 - .../LibraryPatterns.Codeunit.al | 26 - .../LibraryPurchase.Codeunit.al | 9 - .../LibrarySales.Codeunit.al | 9 - .../TimeSeriesTests.Codeunit.al | 8 - .../IT/Tests/Local/ERMExtraVAT.Codeunit.al | 45 - .../IT/Tests/Local/ERMFiscalBook.Codeunit.al | 20 - .../ERMUnapplyCustomerVendor.Codeunit.al | 17 - src/Layers/IT/Tests/Local/ERMVAT.Codeunit.al | 17 - .../Local/ITCalcAndPostVATSettl.Codeunit.al | 92 - .../Local/PeriodicVATPmtCommTests.Codeunit.al | 12 - .../Tests/Local/SCMSubcontracting.Codeunit.al | 2219 --- .../IT/Tests/Local/UTQuarterVAT.Codeunit.al | 79 - .../IT/Tests/Local/UTREPExtraVAT.Codeunit.al | 4 - .../Tests/Local/UTREPFreeInvoice.Codeunit.al | 11 - .../Local/UTREPPostingRoutine.Codeunit.al | 8 - .../Tests/Local/UTSubcontracting.Codeunit.al | 393 - .../Tests/Local/UTVATSettlement.Codeunit.al | 8 - .../LibraryITLocalization.Codeunit.al | 31 - .../LibraryPurchase.Codeunit.al | 9 - .../LibrarySales.Codeunit.al | 9 - .../ERMSalesPurchaseDocument.Codeunit.al | 90 - .../Bank/BankAccount/BankAccount.Table.al | 6 - .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../Company/CompanyInformation.Table.al | 15 +- .../Navigate/DocumentEntries.Report.al | 6 - .../Inventory/Ledger/ItemLedgerEntry.Table.al | 8 - .../Requisition/CarryOutAction.Codeunit.al | 620 - .../Sales/Document/SalesOrderShipment.Page.al | 60 - .../Sales/History/SalesInvoiceNA.Report.al | 4 - .../History/SalesInvoicePrePrinted.Report.al | 4 - .../EDocument/ElecSalesInvoiceMX.Report.al | 4 - .../Document/PurchaseHeader.Table.al | 17 - .../History/PostedPurchaseCreditMemo.Page.al | 38 - .../History/PostedPurchaseCreditMemos.Page.al | 38 - .../History/PostedPurchaseInvoice.Page.al | 38 - .../History/PostedPurchaseInvoices.Page.al | 38 - .../Purchases/Posting/PurchPost.Codeunit.al | 37 - .../Setup/PurchasesPayablesSetup.Page.al | 10 - .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../Sales/Archive/SalesHeaderArchive.Table.al | 6 - .../Sales/Archive/SalesLineArchive.Table.al | 6 - .../BaseApp/Sales/Customer/Customer.Table.al | 13 +- .../Customer/CustomerBankAccount.Table.al | 6 - .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Customer/ShiptoAddress.Table.al | 6 - .../Sales/Document/SalesHeader.Table.al | 61 - .../BaseApp/Sales/Document/SalesLine.Table.al | 6 - .../History/PostedSalesCreditMemo.Page.al | 46 - .../History/PostedSalesCreditMemos.Page.al | 46 - .../Sales/History/PostedSalesInvoice.Page.al | 46 - .../Sales/History/PostedSalesInvoices.Page.al | 48 - .../Sales/History/ReturnReceiptLine.Table.al | 6 - .../Sales/History/SalesCrMemoHeader.Table.al | 6 - .../Sales/History/SalesCrMemoLine.Table.al | 6 - .../Sales/History/SalesInvoiceHeader.Table.al | 6 - .../Sales/History/SalesInvoiceLine.Table.al | 6 - .../History/SalesShipmentHeader.Table.al | 6 - .../Sales/History/SalesShipmentLine.Table.al | 6 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../Service/Document/ServiceLine.Table.al | 14 - .../Service/History/ServiceInvoice.Report.al | 4 - .../Document/ServiceCreditMemoNA.PageExt.al | 8 - .../Document/ServiceCreditMemosNA.PageExt.al | 8 - .../Document/ServiceInvoiceNA.PageExt.al | 8 - .../Document/ServiceInvoicesNA.PageExt.al | 8 - .../Local/Document/ServiceOrderNA.PageExt.al | 8 - .../Local/Document/ServiceOrdersNA.PageExt.al | 8 - .../Local/Document/ServiceQuoteNA.PageExt.al | 8 - .../Local/Document/ServiceQuotesNA.PageExt.al | 8 - .../EDocument/ElecServiceInvoiceMX.Report.al | 4 - .../ServSalesTaxCalculate.Codeunit.al | 3 - .../PostedServiceCreditMemoNA.PageExt.al | 6 - .../PostedServiceCreditMemosNA.PageExt.al | 6 - .../History/PostedServiceInvoiceNA.PageExt.al | 6 - .../PostedServiceInvoicesNA.PageExt.al | 6 - .../History/ServiceInvoiceSalesTax.Report.al | 4 - .../Local/ServEventSubscribersNA.Codeunit.al | 33 - .../System/RapidStart/ConfigSetup.Table.al | 6 - .../SmallBusinessReportCatalog.Codeunit.al | 105 - .../SmallBusinessReportCatalog.Page.al | 69 - .../LibraryCashFlowHelper.Codeunit.al | 25 - .../LibrarySales.Codeunit.al | 9 - .../Tests/Local/UTPAGOrderEntry.Codeunit.al | 10 - .../NA/Tests/Local/UTPAGSalesTax.Codeunit.al | 158 - .../Local/UTPAGSalesTaxStatistics.Codeunit.al | 165 - .../UTPAGSalesTaxStatisticsII.Codeunit.al | 337 - .../Tests/SMB/ReportCatalogTests.Codeunit.al | 61 - .../Bank/BankAccount/BankAccount.Table.al | 6 - .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../Company/CompanyInformation.Table.al | 15 +- .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../BaseApp/Sales/Customer/Customer.Table.al | 13 +- .../Customer/CustomerBankAccount.Table.al | 6 - .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Document/SalesHeader.Table.al | 44 - .../Sales/History/SalesCrMemoHeader.Table.al | 6 - .../Sales/History/SalesInvoiceHeader.Table.al | 6 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../DirectDebit/SEPACTpain00100103.XmlPort.al | 7 - .../DirectDebit/SEPACTpain00100109.XmlPort.al | 7 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../Company/CompanyInformation.Table.al | 15 +- .../Setup/PurchasesPayablesSetup.Page.al | 10 - .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Purchases/Vendor/VendorTempl.Table.al | 6 - .../Sales/Archive/SalesHeaderArchive.Table.al | 6 - .../BaseApp/Sales/Customer/Customer.Table.al | 13 +- .../Sales/Customer/CustomerTempl.Table.al | 8 +- .../Sales/Document/SalesHeader.Table.al | 44 - .../Sales/History/SalesCrMemoHeader.Table.al | 6 - .../Sales/History/SalesInvoiceHeader.Table.al | 6 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Sales/Reminder/IssuedReminderList.Page.al | 18 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 10 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../Local/History/ServiceInvoiceNO.Report.al | 4 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../Bank/BankAccount/BankAccount.Table.al | 8 +- .../Currency/ExchRateAdjmtProcess.Codeunit.al | 34 - .../FinancialReports/ColumnLayout.Table.al | 40 - .../GeneralLedger/Ledger/GLEntry.Table.al | 11 - .../Posting/GenJnlPostLine.Codeunit.al | 7 - .../Setup/GeneralLedgerSetup.Page.al | 17 - .../Company/CompanyInformation.Table.al | 15 +- .../Reporting/ReportSelections.Table.al | 254 - .../Costing/InventoryAdjustment.Codeunit.al | 7 - .../Ledger/ItemApplicationEntry.Table.al | 10 - .../Inventory/Ledger/ItemLedgerEntry.Table.al | 8 - .../Inventory/Ledger/ValueEntry.Table.al | 30 - .../Location/ResponsibilityCenter.Table.al | 6 - .../Posting/ItemJnlPostLine.Codeunit.al | 786 -- .../Inventory/Setup/InventorySetup.Table.al | 94 - .../RU/BaseApp/Local/CompanyAddress.Table.al | 6 - .../Purchases/Posting/PurchPost.Codeunit.al | 37 - .../Setup/PurchasesPayablesSetup.Page.al | 10 - .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../BaseApp/Purchases/Vendor/Vendor.Table.al | 6 - .../Vendor/VendorBankAccount.Table.al | 6 - .../Sales/Archive/SalesHeaderArchive.Table.al | 6 - .../Customer/CustCheckCrLimit.Codeunit.al | 19 - .../BaseApp/Sales/Customer/Customer.Table.al | 13 +- .../Customer/CustomerBankAccount.Table.al | 6 - .../Sales/Customer/CustomerStatistics.Page.al | 12 - .../Sales/Customer/ShiptoAddress.Table.al | 6 - .../Sales/Document/SalesHeader.Table.al | 44 - .../History/ReturnReceiptHeader.Table.al | 6 - .../Sales/History/SalesCrMemoHeader.Table.al | 6 - .../Sales/History/SalesInvoiceHeader.Table.al | 6 - .../History/SalesShipmentHeader.Table.al | 6 - .../Sales/Posting/SalesPost.Codeunit.al | 20 - .../Reports/CustomerOrderSummary.Report.al | 94 - .../Sales/Setup/SalesReceivablesSetup.Page.al | 10 - .../Setup/SalesReceivablesSetup.Table.al | 5 - .../LibraryPurchase.Codeunit.al | 9 - .../LibrarySales.Codeunit.al | 9 - .../ERMAccountSchedule.Codeunit.al | 36 - .../ERMExchRateAdjmtEmployee.Codeunit.al | 15 - .../Misc/ReportSelectionsTests.Codeunit.al | 130 - .../Company/CompanyInformation.Table.al | 15 +- .../Setup/PurchasesPayablesSetup.Table.al | 5 - .../Sales/Document/SalesHeader.Table.al | 44 - .../Sales/History/SalesCrMemoHeader.Table.al | 6 - .../Sales/History/SalesInvoiceHeader.Table.al | 6 - .../ERMAccountSchedule.Codeunit.al | 36 - .../LibraryPurchase.Codeunit.al | 9 - .../ERMSalesPurchaseDocument.Codeunit.al | 125 - .../Local/ERMSalesPurchaseTax.Codeunit.al | 76 - .../Local/ERMSalesPurchaseTaxII.Codeunit.al | 79 - .../Local/SalesDocumentsWithTax.Codeunit.al | 72 - 581 files changed, 767 insertions(+), 130863 deletions(-) create mode 100644 build/scripts/Miapp/.miappsnap/d40e14c7cb3e742594763c1f34cb5f2fce07de6c.json delete mode 100644 src/Layers/ES/BaseApp/Local/Service/History/PostedServInvoiceUpdate.Page.al delete mode 100644 src/Layers/ES/BaseApp/Local/Service/History/ServiceInvoiceHeaderEdit.Codeunit.al delete mode 100644 src/Layers/ES/Tests/SMB/ReportCatalogTests.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/ECSalesListPopulateXML.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/ECSalesListSubmit.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/Finance/VAT/Reporting/VATReportStatus.EnumExt.al delete mode 100644 src/Layers/GB/BaseApp/Local/BankMgt/Check/CheckPreviewGB.Page.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/CreateVATDeclarationRequest.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkMessageManagement.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkSetup.Page.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/GovTalkVATReportValidate.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/HMRCGovTalkMessageScheduler.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/HMRCSubmissionHelpers.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Declaration/SubmitVATDeclarationRequest.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Reporting/ReverseChargeSalesList.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/Reporting/ReverseChargeSalesList.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATAudit.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATEntryExceptionReport.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/FinancialMgt/VAT/VATEntryExceptionReport.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/FixedAsset/Depreciation/FAProjectedValue.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/FixedAsset/Depreciation/FAProjectedValue.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/Foundation/Address/PostcodeBusinessLogic.Codeunit.al delete mode 100644 src/Layers/GB/BaseApp/Local/Purchases/Document/BlanketPurchaseOrderGB.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/Purchases/Document/BlanketPurchaseOrderGB.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/Purchases/Document/OrderGB.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/Purchases/Document/OrderGB.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/Purchases/History/PurchaseCreditMemoGB.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/Purchases/History/PurchaseCreditMemoGB.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/Purchases/History/PurchaseInvoiceGB.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/Purchases/History/PurchaseInvoiceGB.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/Document/BlanketSalesOrderGB.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/Document/BlanketSalesOrderGB.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/Document/OrderConfirmationGB.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/Document/OrderConfirmationGB.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/History/SalesCreditMemoGB.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/History/SalesCreditMemoGB.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/History/SalesInvoiceGB.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/History/SalesInvoiceGB.rdlc delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/History/SalesQuoteGB.Report.al delete mode 100644 src/Layers/GB/BaseApp/Local/Sales/History/SalesQuoteGB.rdlc delete mode 100644 src/Layers/GB/BaseApp/SandboxCleanuplocal.Codeunit.al delete mode 100644 src/Layers/GB/Tests/Local/TestUKPostcode.Codeunit.al delete mode 100644 src/Layers/GB/Tests/Local/TestUKPostcodePages.Codeunit.al delete mode 100644 src/Layers/GB/Tests/Local/UTPAGAPACS.Codeunit.al delete mode 100644 src/Layers/GB/Tests/Local/UTREPACCPERFixedAsset.Codeunit.al delete mode 100644 src/Layers/GB/Tests/Local/UTREPDoclay.Codeunit.al delete mode 100644 src/Layers/GB/Tests/Local/UTREPUKGEN.Codeunit.al delete mode 100644 src/Layers/GB/Tests/Local/UTREPVATREPORT.Codeunit.al delete mode 100644 src/Layers/GB/Tests/MOCKSERVICETESTS-Internal/ECSLXMLGenTest.Codeunit.al delete mode 100644 src/Layers/GB/Tests/MOCKSERVICETESTS-Internal/GovTalkMessageManagementTest.Codeunit.al delete mode 100644 src/Layers/GB/Tests/MOCKSERVICETESTS-Internal/GovTalkSetupTest.Codeunit.al delete mode 100644 src/Layers/GB/Tests/MOCKSERVICETESTS-Internal/TestCreateVATDeclareRqst.Codeunit.al delete mode 100644 src/Layers/GB/Tests/MOCKSERVICETESTS-Internal/TestIRMark.Codeunit.al delete mode 100644 src/Layers/GB/Tests/MOCKSERVICETESTS-Internal/TestSubmitVATDeclareRqst.Codeunit.al delete mode 100644 src/Layers/IT/BaseApp/Local/FeatureManagementIT.Codeunit.al delete mode 100644 src/Layers/IT/BaseApp/Local/Finance/VAT/Reporting/FeatureUpdVATSettlActCode.EnumExt.al delete mode 100644 src/Layers/IT/BaseApp/Local/Finance/VAT/Reporting/PeriodicVATSettlementCard.Page.al delete mode 100644 src/Layers/IT/BaseApp/Local/Finance/VAT/Reporting/PeriodicVATSettlementList.Page.al delete mode 100644 src/Layers/IT/BaseApp/Local/Finance/VAT/Reporting/VATSettlActCodeFeatDataUpd.Codeunit.al delete mode 100644 src/Layers/IT/BaseApp/Service/Local/History/PostedServInvoiceUpdate.Page.al delete mode 100644 src/Layers/IT/BaseApp/Service/Local/History/PostedServiceShptUpdate.Page.al delete mode 100644 src/Layers/IT/BaseApp/Service/Local/History/ServShipmentHeaderEdit.Codeunit.al delete mode 100644 src/Layers/IT/BaseApp/Service/Local/History/ServiceInvoiceHeaderEdit.Codeunit.al delete mode 100644 src/Layers/IT/DemoTool/CreateSubcontractingPrices.Codeunit.al delete mode 100644 src/Layers/IT/Tests/Local/SCMSubcontracting.Codeunit.al delete mode 100644 src/Layers/IT/Tests/Local/UTREPFreeInvoice.Codeunit.al delete mode 100644 src/Layers/IT/Tests/Local/UTSubcontracting.Codeunit.al delete mode 100644 src/Layers/NA/BaseApp/Utilities/SmallBusinessReportCatalog.Codeunit.al delete mode 100644 src/Layers/NA/BaseApp/Utilities/SmallBusinessReportCatalog.Page.al delete mode 100644 src/Layers/NA/Tests/SMB/ReportCatalogTests.Codeunit.al delete mode 100644 src/Layers/RU/Tests/ERM-Finance/ERMExchRateAdjmtEmployee.Codeunit.al 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/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/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 2bc2186e763..ad20159733f 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, @@ -933,34 +930,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; @@ -969,12 +941,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 @@ -983,9 +949,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); @@ -4843,13 +4806,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 @@ -5050,19 +5006,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 @@ -6181,18 +6124,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) @@ -6209,31 +6140,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") @@ -6330,18 +6237,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") @@ -6358,18 +6253,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") @@ -6396,44 +6279,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) @@ -6450,31 +6297,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) @@ -6591,18 +6414,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) @@ -6619,18 +6430,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") @@ -6682,31 +6481,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) @@ -6766,18 +6541,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") @@ -6854,44 +6617,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) @@ -6933,44 +6660,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") @@ -7037,18 +6728,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) @@ -7110,158 +6789,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) @@ -7278,122 +6825,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) @@ -7508,18 +6947,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. @@ -8087,70 +7514,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) @@ -8172,44 +7539,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) @@ -8411,44 +7742,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) @@ -8530,18 +7825,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") @@ -8638,36 +7921,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") @@ -8699,18 +7958,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") @@ -8832,18 +8079,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") @@ -8860,31 +8095,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/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/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/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/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 134044c2f9d..7a54dcbe88f 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, @@ -933,34 +930,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; @@ -969,12 +941,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 @@ -983,9 +949,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); @@ -4815,13 +4778,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 @@ -5022,19 +4978,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 @@ -6152,18 +6095,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) @@ -6180,31 +6111,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") @@ -6301,18 +6208,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") @@ -6329,18 +6224,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") @@ -6367,44 +6250,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) @@ -6421,31 +6268,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) @@ -6562,18 +6385,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) @@ -6590,18 +6401,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") @@ -6653,31 +6452,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) @@ -6737,18 +6512,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") @@ -6825,44 +6588,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) @@ -6904,44 +6631,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") @@ -7008,18 +6699,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) @@ -7081,158 +6760,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) @@ -7249,122 +6796,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) @@ -7479,18 +6918,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. @@ -8058,70 +7485,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) @@ -8143,44 +7510,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) @@ -8382,44 +7713,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) @@ -8501,18 +7796,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") @@ -8609,36 +7892,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") @@ -8670,18 +7929,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") @@ -8803,18 +8050,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") @@ -8831,31 +8066,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 4c05001f34b..252b61a45ab 100644 --- a/src/Layers/ES/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al +++ b/src/Layers/ES/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al @@ -11167,13 +11167,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 f23c1ae14f4..9966d7b169b 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, @@ -933,34 +930,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; @@ -969,12 +941,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 @@ -983,9 +949,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); @@ -4824,13 +4787,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 @@ -5031,19 +4987,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 @@ -6162,18 +6105,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) @@ -6190,31 +6121,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") @@ -6311,18 +6218,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") @@ -6339,18 +6234,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") @@ -6377,44 +6260,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) @@ -6431,31 +6278,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) @@ -6572,18 +6395,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) @@ -6600,18 +6411,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") @@ -6663,31 +6462,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) @@ -6747,18 +6522,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") @@ -6835,44 +6598,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) @@ -6914,44 +6641,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") @@ -7018,18 +6709,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) @@ -7091,158 +6770,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) @@ -7259,122 +6806,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) @@ -7489,18 +6928,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. @@ -8068,70 +7495,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) @@ -8153,44 +7520,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) @@ -8392,44 +7723,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) @@ -8511,18 +7806,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") @@ -8619,36 +7902,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") @@ -8680,18 +7939,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") @@ -8813,18 +8060,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") @@ -8841,31 +8076,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/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/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/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..d04412590b1 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,16 @@ 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(); // 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 +469,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 +496,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(); 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 +526,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(); 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 +554,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 +585,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 +616,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 +647,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 +680,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 +718,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 +756,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 +791,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 +828,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 +865,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 +901,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 +939,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 +973,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 +1012,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 +1049,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 +1086,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 +1125,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 +1166,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 +1200,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 +1230,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 +1260,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 +1290,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 +1322,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 +1359,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 +1396,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 +1430,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 +1466,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 +1498,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 +1506,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 +1536,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 +1546,7 @@ codeunit 136130 "Service Statistics" [Test] [Scope('OnPrem')] - procedure PostedInvoiceStatistics() + procedure PostedInvoiceStatisticsNM() var ServiceLine: Record "Service Line"; ServiceInvoiceLine: Record "Service Invoice Line"; @@ -1582,7 +1569,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 +1584,7 @@ codeunit 136130 "Service Statistics" [Test] [Scope('OnPrem')] - procedure CreditLimitLCYOnPostedInvoice() + procedure CreditLimitLCYOnPostedInvoiceNM() var ServiceLine: Record "Service Line"; Customer: Record Customer; @@ -1621,7 +1608,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 +1617,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 +1641,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 +1656,7 @@ codeunit 136130 "Service Statistics" [Test] [HandlerFunctions('ConfirmHandlerTrue')] [Scope('OnPrem')] - procedure CreditLimitLCYOnPostedMemo() + procedure CreditLimitLCYOnPostedMemoNM() var ServiceLine: Record "Service Line"; Customer: Record Customer; @@ -1694,16 +1681,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 +1719,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 +1734,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(); - - // 3. Verify: Verify Statistics Page with details on Page handler. - end; + // [GIVEN] Sales & Receivables Setup "Calc. Inv. Discount" = TRUE + LibrarySales.SetCalcInvDiscount(true); - [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] Customer "C" without Cust. Invoice Disc. records + LibrarySales.CreateCustomer(Customer); - // 1. Setup: Find VAT Posting Setup. - Initialize(); + // [GIVEN] Item "I" + LibraryInventory.CreateItem(Item); - // 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] 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); - // 3. Verify: Verify Statistics Page with details on Page handler. - end; + // [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); - [Test] - [HandlerFunctions('DocumentGLAccountPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceStatisticsGLAccountNM() - var - ServiceLine: Record "Service Line"; - ServiceInvoice: TestPage "Service Invoice"; - begin - // Test creation of Service Invoice with G/L Account and verify Statistics Page. + // [WHEN] Run Service-Calc. Discount (simulates closing Statistics page) + ServiceCalcDiscount.Run(ServiceLine); + ServiceLine.Get(ServiceLine."Document Type", ServiceLine."Document No.", ServiceLine."Line No."); - // 1. Setup: Find VAT Posting Setup. - Initialize(); + // [GIVEN] Store the Service Order Amount Including VAT before posting + ServiceHeader.CalcFields("Amount Including VAT"); - // 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(); + // [WHEN] Post Service Order (Ship and Invoice) + LibraryService.PostServiceOrder(ServiceHeader, true, false, true); - // 3. Verify: Verify Statistics Page with details on Page handler. + // [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 InvoiceStatisticsCostNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceInvoice: TestPage "Service Invoice"; + local procedure Initialize() begin - // Test creation of Service Invoice with Cost and verify Statistics Page. + LibraryTestInitialize.OnTestInitialize(CODEUNIT::"Service Statistics"); + InitVariables(); + LibrarySetupStorage.Restore(); - // 1. Setup: Find VAT Posting Setup and Service Cost. - Initialize(); - LibraryService.FindServiceCost(ServiceCost); + if isInitialized then + exit; + LibraryTestInitialize.OnBeforeTestSuiteInitialize(CODEUNIT::"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)); - DocumentType2 := ServiceLine."Document Type"::Invoice; // Assign global variable for page handler. - CreateServiceInvoiceLine(ServiceInvoice, ServiceLine.Type::Cost, ServiceCost.Code); - 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('ConfirmHandlerTrue,DocumentDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceWithInvoiceDiscountNM() - var - ServiceLine: Record "Service Line"; - ServiceCost: Record "Service Cost"; - ServiceInvoice: TestPage "Service Invoice"; - CustomerNo: Code[20]; + local procedure CreateCustomer(): Code[20] begin - // Test creation of Service Invoice with multiple lines, Allow Invoice Discount and verify Statistics Page. - - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup,Service Cost and - // Create Customer, Customer Invoice Discount. - Initialize(); - - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); - LibraryService.FindServiceCost(ServiceCost); - - // 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); + exit(LibrarySales.CreateCustomerNo()); + end; - ServiceInvoice."Calculate Invoice Discount".Invoke(); - 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('DocumentWithVATPageHandlerNM')] - [Scope('OnPrem')] - procedure InvoiceWithPriceIncludingVATNM() + 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"; + ServiceHeader: Record "Service Header"; + ServiceCreditMemoNo: Code[20]; begin - // Test creation of Service Invoice with multiple lines, Price Including Vat and verify Statistics page. + ServiceCreditMemoNo := LibraryService.CreateServiceCreditMemoHeaderUsingPage(); + Commit(); - // 1. Setup: Update Stockout Warning on Sales & Receivables Setup, Find VAT Posting Setup and Service Cost. - 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; - 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 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); + // 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; - LineWithoutAllowInvoiceDisc(ServiceLine."Document Type"::Invoice, CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(DocumentNo2))); - 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('ConfirmHandlerTrue,ChangeDiscountPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeDiscountAmountInvoiceNM() + local procedure CreateServiceInvoiceHeader(var ServiceInvoice: TestPage "Service Invoice"; CustomerNo: Code[20]) var - ServiceLine: Record "Service Line"; - ServiceInvoice: TestPage "Service Invoice"; - CustomerNo: Code[20]; + ServiceHeader: Record "Service Header"; + ServiceInvoiceNo: 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(); + ServiceInvoice.OpenNew(); + ServiceInvoice."Customer No.".Activate(); + ServiceInvoiceNo := CopyStr(ServiceInvoice."No.".Value(), 1, MaxStrLen(ServiceInvoiceNo)); + ServiceInvoice.OK().Invoke(); + Commit(); - CustomerNo := CreateCustomer(); - CreateCustomerInvoiceDiscount(CustomerNo); + 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; - // 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(); + 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,ChangeTotalVATPageHandlerNM')] - [Scope('OnPrem')] - procedure ChangeTotalVATInvoiceNM() + 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 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); + ServiceOrderNo := LibraryService.CreateServiceOrderHeaderUsingPage(); + 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(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('DocumentCreditLimitPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditLimitLCYOnInvoiceNM() + local procedure CreateServiceQuoteHeader(var ServiceQuote: TestPage "Service Quote"; CustomerNo: Code[20]) var - ServiceLine: Record "Service Line"; - Customer: Record Customer; - ServiceInvoice: TestPage "Service Invoice"; + ServiceHeader: Record "Service Header"; + ServiceQuoteNo: Code[20]; begin - // Test creation of Service Invoice and verify Credit limit on Statistics Page. + ServiceQuote.OpenNew(); + ServiceQuote."Customer No.".Activate(); + ServiceQuoteNo := CopyStr(ServiceQuote."No.".Value(), 1, MaxStrLen(ServiceQuoteNo)); + ServiceQuote.OK().Invoke(); + Commit(); - // 1. Setup: Create Customer with Credit Limit(LCY). - Initialize(); - CreateCustomerWithCreditLimit(Customer); - CreditLimitLCY := Customer."Credit Limit (LCY)"; // Assign global variable for page handler. + 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; - // 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. + local procedure CreateServiceQuoteItemLine(var ServiceQuote: TestPage "Service Quote") + begin + ServiceQuote.ServItemLine.Description.SetValue(ServiceQuote."No.".Value); + ServiceQuote.ServItemLine.New(); end; - [Test] - [HandlerFunctions('DocumentItemPageHandlerNM')] - [Scope('OnPrem')] - procedure CreditMemoStatisticsItemNM() + local procedure CreateServiceQuoteLine(var ServiceQuoteLines: TestPage "Service Quote Lines"; Type: Option; No: Code[20]) + begin + ServiceQuoteLines.Type.SetValue(Type); + ServiceQuoteLines."No.".SetValue(No); + + // Take Random Quantity and Unit Price. + ServiceQuoteLines.Quantity.SetValue(LibraryRandom.RandDec(10, 2)); + ServiceQuoteLines."Unit Price".SetValue(LibraryRandom.RandDec(100, 2)); + ServiceQuoteLines.New(); + end; + 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 +2123,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 +2182,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 +2212,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 +3655,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,21 +3913,100 @@ 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; - - 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); + ServiceLine.SetRange(Type, ServiceLine.Type::Item); + ServiceLine.FindFirst(); - Assert.AreNearlyEqual( + 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( + 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( @@ -4191,573 +4242,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 a51f1d8c0ae..8d4426403b4 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 d6f961820d4..4a783bdd4c8 100644 --- a/src/Layers/FR/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al +++ b/src/Layers/FR/BaseApp/Finance/GeneralLedger/Posting/GenJnlPostLine.Codeunit.al @@ -7795,15 +7795,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"; 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 - - - -