From 4b96ecbd536d77a74ee615dcc815573ec02ef106 Mon Sep 17 00:00:00 2001 From: Chethan Thopaiah Date: Tue, 28 Jul 2026 11:51:56 +0200 Subject: [PATCH 1/7] renumber objects --- src/Apps/W1/Subcontracting/App/app.json | 4 +-- .../SubcFeatureFlagHandler.Codeunit.al | 2 +- .../App/src/General/SubcILEntries.PageExt.al | 2 +- .../SubcItemJnlPostLineExt.Codeunit.al | 2 +- .../General/SubcItemLedgerEntry.TableExt.al | 12 ++++---- .../General/SubcNotificationMgmt.Codeunit.al | 2 +- .../SubcReportingTriggersExt.Codeunit.al | 2 +- .../src/General/SubcSessionState.Codeunit.al | 2 +- .../SubcSynchronizeManagement.Codeunit.al | 2 +- .../SubcontractingManagement.Codeunit.al | 2 +- .../Install/SubcBusinessSetupExt.Codeunit.al | 2 +- .../Install/SubcUpgradeTagDefExt.Codeunit.al | 2 +- .../SubcontractingCompInit.Codeunit.al | 2 +- .../Install/SubcontractingInstall.Codeunit.al | 2 +- .../ComponentSupplyMethod.Enum.al | 2 +- .../ComponentsatLocation.Enum.al | 2 +- .../SubcCalcBOMTreeExt.Codeunit.al | 2 +- .../SubcCalcProdOrderExt.Codeunit.al | 2 +- .../SubcCalcStandardCostExt.Codeunit.al | 2 +- .../SubcCalcSubcontractsExt.Codeunit.al | 2 +- .../Manufacturing/SubcCapLEntries.PageExt.al | 2 +- .../SubcCapLedgerEntryExt.TableExt.al | 8 ++--- .../SubcCarryOutActionExt.Codeunit.al | 2 +- .../SubcCompFactboxMgmt.Codeunit.al | 2 +- .../SubcDispatchingList.Report.al | 2 +- .../SubcFinishedProdOrder.PageExt.al | 2 +- .../SubcFinishedProdOrders.PageExt.al | 2 +- .../Manufacturing/SubcPlanningComp.PageExt.al | 2 +- .../SubcPlanningCompExt.Codeunit.al | 2 +- .../SubcPlanningCompExt.TableExt.al | 8 ++--- .../SubcPlanningLineMgmtExt.Codeunit.al | 2 +- .../SubcProdBOMLineExt.TableExt.al | 4 +-- .../Manufacturing/SubcProdBOMLines.PageExt.al | 2 +- .../SubcProdBOMVersionLines.PageExt.al | 2 +- .../SubcProdOFactboxMgmt.Codeunit.al | 2 +- .../SubcProdOrdCompRes.Codeunit.al | 2 +- .../SubcProdOrderComp.PageExt.al | 2 +- .../SubcProdOrderCompExt.Codeunit.al | 2 +- .../SubcProdOrderCompExt.TableExt.al | 20 ++++++------- .../SubcProdOrderCompLine.PageExt.al | 2 +- .../SubcProdOrderComponents.Page.al | 2 +- .../SubcProdOrderRtng.PageExt.al | 2 +- .../SubcProdOrderRtngExt.Codeunit.al | 2 +- .../SubcProdOrderRtngLineExt.TableExt.al | 20 ++++++------- .../SubcProductionOrderExt.TableExt.al | 4 +-- .../Manufacturing/SubcRelProdOrder.PageExt.al | 2 +- .../SubcRelProdOrders.PageExt.al | 2 +- .../SubcReqWkshMakeOrd.Codeunit.al | 2 +- .../SubcRoutingFactboxMgmt.Codeunit.al | 2 +- .../SubcRoutingInfoFactbox.Page.al | 2 +- .../Manufacturing/SubcRoutingLine.TableExt.al | 10 +++---- .../Manufacturing/SubcRoutingLines.PageExt.al | 2 +- .../SubcRoutingVersionLines.PageExt.al | 2 +- .../SubcWorkCenterCard.PageExt.al | 2 +- .../SubcWorkCenterExtension.Codeunit.al | 2 +- .../SubcWorkCenterList.PageExt.al | 2 +- .../src/MasterData/SubcItemCard.PageExt.al | 2 +- .../MasterData/SubcItemExtension.Codeunit.al | 2 +- .../SubcItemJournalLineExt.TableExt.al | 14 ++++----- .../src/MasterData/SubcItemList.PageExt.al | 2 +- .../App/src/MasterData/SubcVendor.TableExt.al | 8 ++--- .../src/MasterData/SubcVendorCard.PageExt.al | 2 +- .../SubcVendorExtension.Codeunit.al | 2 +- .../src/MasterData/SubcVendorList.PageExt.al | 2 +- ...365BasicSubcontracting.PermissionSetExt.al | 2 +- ...llAccessSubcontracting.PermissionSetExt.al | 2 +- ...D365ReadSubcontracting.PermissionSetExt.al | 2 +- .../SubcontractEdit.PermissionSet.al | 2 +- .../SubcontractObjs.PermissionSet.al | 2 +- .../SubcontractRead.PermissionSet.al | 2 +- .../SubcCalculateSubcontracts.Report.al | 2 +- .../SubcCreateSubCReturnOrder.Report.al | 2 +- .../SubcItemChargeAssPurchExt.Codeunit.al | 2 +- .../App/src/Purchase/SubcPOSubform.PageExt.al | 2 +- .../Purchase/SubcPriceManagement.Codeunit.al | 2 +- .../Purchase/SubcPurchCrMemoLine.TableExt.al | 14 ++++----- .../Purchase/SubcPurchFactboxMgmt.Codeunit.al | 2 +- .../src/Purchase/SubcPurchInvLine.TableExt.al | 14 ++++----- .../src/Purchase/SubcPurchOrder.PageExt.al | 2 +- .../Purchase/SubcPurchOrderList.PageExt.al | 2 +- .../src/Purchase/SubcPurchPostExt.Codeunit.al | 2 +- .../Purchase/SubcPurchRcptLine.TableExt.al | 14 ++++----- .../Purchase/SubcPurchaseHeader.TableExt.al | 6 ++-- .../SubcPurchaseHeaderArch.TableExt.al | 6 ++-- .../SubcPurchaseHeaderExt.Codeunit.al | 2 +- .../src/Purchase/SubcPurchaseLine.TableExt.al | 20 ++++++------- .../SubcPurchaseLineArchive.TableExt.al | 14 ++++----- .../Purchase/SubcPurchaseLineExt.Codeunit.al | 2 +- .../Purchase/SubcPurchaseLineFactbox.Page.al | 2 +- .../src/Purchase/SubcPurchaseLineType.Enum.al | 2 +- .../SubcPurchaseOrderCreator.Codeunit.al | 2 +- .../Purchase/SubcReqLineExtension.Codeunit.al | 2 +- .../Purchase/SubcRequisitionLine.TableExt.al | 12 ++++---- .../src/Purchase/SubcontractorPrice.Table.al | 2 +- .../src/Purchase/SubcontractorPrices.Page.al | 2 +- .../SubcManufacturingCue.TableExt.al | 12 ++++---- .../SubcManufacturingManagerRC.PageExt.al | 2 +- .../SubcProdPlannerActivities.PageExt.al | 2 +- .../SubcProdPlannerRoleCenter.PageExt.al | 2 +- .../SubcPurchAgentRoleCenter.PageExt.al | 2 +- .../SubcPurchasingManagerRC.PageExt.al | 2 +- .../SubcShopSMfgFoundation.PageExt.al | 2 +- .../SubcShopSuperActivities.PageExt.al | 2 +- .../SubcShopSuperRoleCenter.PageExt.al | 2 +- .../SubcShopSuperbasicActivity.PageExt.al | 2 +- .../Setup/SubcApplicationAreaMgmt.Codeunit.al | 2 +- .../SubcApplicationAreaSetup.TableExt.al | 4 +-- .../Setup/SubcManufacturingSetup.PageExt.al | 2 +- .../Setup/SubcManufacturingSetup.TableExt.al | 14 ++++----- .../Transfer/SubcCreateTransfOrder.Report.al | 2 +- .../SubcDirectTransHeaderExt.TableExt.al | 14 ++++----- .../SubcDirectTransLineExt.TableExt.al | 24 +++++++-------- .../SubcDirectTransferLineExt.Codeunit.al | 2 +- .../Transfer/SubcPstdDirectTrans.PageExt.al | 2 +- .../SubcPstdDirectTransfSub.PageExt.al | 2 +- .../SubcPstdDirectTransfers.PageExt.al | 2 +- .../Transfer/SubcPstdTransferRcpt.PageExt.al | 2 +- .../Transfer/SubcPstdTransferRcpts.PageExt.al | 2 +- .../Transfer/SubcPstdTransferShpt.PageExt.al | 2 +- .../Transfer/SubcPstdTransferShpts.PageExt.al | 2 +- .../SubcTransOrderPostRcptExt.Codeunit.al | 2 +- .../SubcTransOrderPostShptExt.Codeunit.al | 2 +- .../SubcTransOrderPostTransExt.Codeunit.al | 2 +- .../src/Transfer/SubcTransOrderSub.PageExt.al | 2 +- .../SubcTransRcptHeaderExt.Codeunit.al | 2 +- .../SubcTransRcptHeaderExt.TableExt.al | 14 ++++----- .../SubcTransShptHeaderExt.Codeunit.al | 2 +- .../SubcTransShptHeaderExt.TableExt.al | 14 ++++----- .../Transfer/SubcTransferHeader.TableExt.al | 14 ++++----- .../SubcTransferHeaderExt.Codeunit.al | 2 +- .../src/Transfer/SubcTransferLine.TableExt.al | 30 +++++++++---------- .../Transfer/SubcTransferLineExt.Codeunit.al | 2 +- .../Transfer/SubcTransferLineFactbox.Page.al | 2 +- .../src/Transfer/SubcTransferLines.PageExt.al | 2 +- .../SubcTransferManagement.Codeunit.al | 2 +- .../src/Transfer/SubcTransferOrder.PageExt.al | 2 +- .../Transfer/SubcTransferOrders.PageExt.al | 2 +- .../SubcTransferRcptLineExt.Codeunit.al | 2 +- .../SubcTransferRcptLineExt.TableExt.al | 24 +++++++-------- .../SubcTransferShptLineExt.Codeunit.al | 2 +- .../SubcTransferShptLineExt.TableExt.al | 24 +++++++-------- .../src/Transfer/TransferSourceType.Enum.al | 2 +- .../SubcChangeProdOrderStatus.Codeunit.al | 2 +- .../SubcChangeStatusProdOrder.PageExt.al | 2 +- .../SubcPostingPreviewBinding.Codeunit.al | 2 +- .../SubcPostingPreviewSubscr.Codeunit.al | 2 +- .../SubcPstPrevEventHandler.Codeunit.al | 2 +- .../SubcTransferWIPPosting.Codeunit.al | 2 +- .../App/src/WIPItem/SubcWIPAdjustment.Page.al | 2 +- .../SubcWIPItemLedgFindEntry.Codeunit.al | 2 +- .../src/WIPItem/SubcWIPLedgerEntries.Page.al | 2 +- .../SubcontractorWIPLedgerEntry.Table.al | 2 +- .../App/src/WIPItem/WIPDocumentType.Enum.al | 2 +- .../src/WIPItem/WIPLedgerEntryType.Enum.al | 2 +- .../SubcPostedWhseReceiptLine.TableExt.al | 6 ++-- .../Warehouse/SubcPstdWhseRcptSub.PageExt.al | 2 +- .../Warehouse/SubcPstdWhseShipmSub.PageExt.al | 2 +- .../SubcPstdWhseShipmentLine.TableExt.al | 4 +-- .../SubcWarehouseReceiptLine.TableExt.al | 6 ++-- .../SubcWarehouseShipmentLine.TableExt.al | 4 +-- .../SubcWhsePostReceiptExt.Codeunit.al | 2 +- .../SubcWhsePostShipmentExt.Codeunit.al | 2 +- .../SubcWhsePurchReleaseExt.Codeunit.al | 2 +- .../Warehouse/SubcWhseRcptLinesExt.PageExt.al | 2 +- .../SubcWhseRcptSubformExt.PageExt.al | 2 +- .../SubcWhseShipmSubformExt.PageExt.al | 2 +- .../SubcReqWkshTempTypeExt.EnumExt.al | 4 +-- .../SubcSubcontractingWorksheet.Page.al | 2 +- .../SubcWorksheetHandler.Codeunit.al | 2 +- 169 files changed, 346 insertions(+), 346 deletions(-) diff --git a/src/Apps/W1/Subcontracting/App/app.json b/src/Apps/W1/Subcontracting/App/app.json index b8e06f388f4..aaff20b2884 100644 --- a/src/Apps/W1/Subcontracting/App/app.json +++ b/src/Apps/W1/Subcontracting/App/app.json @@ -17,8 +17,8 @@ "application": "28.3.0.0", "idRanges": [ { - "from": 99001500, - "to": 99001600 + "from": 8124, + "to": 8223 } ], "features": [ diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcFeatureFlagHandler.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcFeatureFlagHandler.Codeunit.al index c40a473bc06..1f2679dc3a7 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcFeatureFlagHandler.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcFeatureFlagHandler.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Setup; -codeunit 99001569 "Subc. Feature Flag Handler" +codeunit 8193 "Subc. Feature Flag Handler" { ObsoleteState = Pending; ObsoleteTag = '28.0'; diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcILEntries.PageExt.al b/src/Apps/W1/Subcontracting/App/src/General/SubcILEntries.PageExt.al index 82f66b47f65..de0b254ccbf 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcILEntries.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcILEntries.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Ledger; -pageextension 99001501 "Subc. ILEntries" extends "Item Ledger Entries" +pageextension 8125 "Subc. ILEntries" extends "Item Ledger Entries" { layout { 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 0e99a2df5ad..b3995a59a80 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcItemJnlPostLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcItemJnlPostLineExt.Codeunit.al @@ -11,7 +11,7 @@ using Microsoft.Inventory.Posting; using Microsoft.Manufacturing.Capacity; using Microsoft.Manufacturing.Document; -codeunit 99001515 "Subc. ItemJnlPostLine Ext" +codeunit 8139 "Subc. ItemJnlPostLine Ext" { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcItemLedgerEntry.TableExt.al b/src/Apps/W1/Subcontracting/App/src/General/SubcItemLedgerEntry.TableExt.al index 852f0a88203..bddfcdf2300 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcItemLedgerEntry.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcItemLedgerEntry.TableExt.al @@ -7,35 +7,35 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Ledger; using Microsoft.Purchases.Document; -tableextension 99001500 "Subc. Item Ledger Entry" extends "Item Ledger Entry" +tableextension 8124 "Subc. Item Ledger Entry" extends "Item Ledger Entry" { AllowInCustomizations = AsReadOnly; fields { - field(99001510; "Subc. Prod. Order No."; Code[20]) + field(8134; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No.'; DataClassification = CustomerContent; } - field(99001511; "Subc. Prod. Order Line No."; Integer) + field(8135; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No.'; DataClassification = CustomerContent; } - field(99001512; "Subc. Purch. Order No."; Code[20]) + field(8136; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order)); } - field(99001513; "Subc. Purch. Order Line No."; Integer) + field(8137; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Purchase Line"."Line No." where("Document Type" = const(Order), "Document No." = field("Subc. Purch. Order No.")); } - field(99001514; "Subc. Operation No."; Code[10]) + field(8138; "Subc. Operation No."; Code[10]) { Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcNotificationMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcNotificationMgmt.Codeunit.al index 89f7e46cf2b..f0de8d497ad 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcNotificationMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcNotificationMgmt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Environment.Configuration; -codeunit 99001506 "Subc. Notification Mgmt." +codeunit 8130 "Subc. Notification Mgmt." { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcReportingTriggersExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcReportingTriggersExt.Codeunit.al index c9a470729fc..2e3fdf3765a 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcReportingTriggersExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcReportingTriggersExt.Codeunit.al @@ -9,7 +9,7 @@ using Microsoft.Manufacturing.Reports; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -codeunit 99001512 "Subc. Reporting Triggers Ext" +codeunit 8136 "Subc. Reporting Triggers Ext" { [EventSubscriber(ObjectType::Report, Report::"Detailed Calculation", OnAfterGetRecordRoutingLineOnBeforeCalcRoutingCostPerUnit, '', false, false)] local procedure OnAfterGetRecordRoutingLineOnBeforeCalcCost(var RoutingLine: Record "Routing Line"; ItemNo: Code[20]; BaseUnitOfMeasure: Code[10]; StandardTaskCode: Code[10]; CalculationDate: Date; var DirectUnitCost: Decimal; var IndirectCostPct: Decimal; var OverheadRate: Decimal; var ProdUnitCost: Decimal; var UnitCostCalculation: Enum "Unit Cost Calculation Type"; var IsHandled: Boolean) diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcSessionState.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcSessionState.Codeunit.al index d8c5f3b96ad..cf35791dc34 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcSessionState.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcSessionState.Codeunit.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -codeunit 99001500 "Subc. Session State" +codeunit 8124 "Subc. Session State" { SingleInstance = true; diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcSynchronizeManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcSynchronizeManagement.Codeunit.al index 8058d828b2b..8f8ddad0308 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcSynchronizeManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcSynchronizeManagement.Codeunit.al @@ -13,7 +13,7 @@ using Microsoft.Manufacturing.Capacity; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -codeunit 99001511 "Subc. Synchronize Management" +codeunit 8135 "Subc. Synchronize Management" { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcontractingManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcontractingManagement.Codeunit.al index a76a7c1303d..b40dff1fbd1 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcontractingManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcontractingManagement.Codeunit.al @@ -18,7 +18,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; using System.Utilities; -codeunit 99001505 "Subcontracting Management" +codeunit 8129 "Subcontracting Management" { var ManufacturingSetup: Record "Manufacturing Setup"; diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al index a0bb8e73f42..a7a36322ca6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Foundation.Company; using Microsoft.Manufacturing.Setup; using System.Environment.Configuration; -codeunit 99001502 "Subc. Business Setup Ext." +codeunit 8126 "Subc. Business Setup Ext." { var SubcontractingDescriptionLbl: Label 'Make manual Subcontracting Setup'; diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcUpgradeTagDefExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcUpgradeTagDefExt.Codeunit.al index 1fcfc5431b0..07a4db352fd 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcUpgradeTagDefExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcUpgradeTagDefExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Upgrade; -codeunit 99001570 "Subc. Upgrade Tag Def. Ext." +codeunit 8194 "Subc. Upgrade Tag Def. Ext." { [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade Tag", 'OnGetPerCompanyUpgradeTags', '', false, false)] local procedure RegisterPerCompanyTags(var PerCompanyUpgradeTags: List of [Code[250]]) diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al index c95d6975755..d9113f6ff95 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Setup; -codeunit 99001503 "Subcontracting Comp. Init." +codeunit 8127 "Subcontracting Comp. Init." { var ReqWkshTempDescLbl: Label 'Subcontracting', MaxLength = 80; diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al index 8af3d51e413..d1dcd072af6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Upgrade; -codeunit 99001501 "Subcontracting Install" +codeunit 8125 "Subcontracting Install" { Subtype = Install; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentSupplyMethod.Enum.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentSupplyMethod.Enum.al index fed94caf9e8..c424124c9f6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentSupplyMethod.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentSupplyMethod.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 99001500 "Component Supply Method" +enum 8124 "Component Supply Method" { Extensible = true; // No supply method is selected. diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentsatLocation.Enum.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentsatLocation.Enum.al index 48e008184ff..e17f63137ac 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentsatLocation.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentsatLocation.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 99001503 "Components at Location" +enum 8127 "Components at Location" { Extensible = true; value(0; Empty) 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 071b7f2f3ed..1a8d93a233e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcBOMTreeExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcBOMTreeExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.BOM.Tree; using Microsoft.Inventory.Item; using Microsoft.Manufacturing.Routing; -codeunit 99001521 "Subc. Calc BOM Tree Ext." +codeunit 8145 "Subc. Calc BOM Tree Ext." { #if not CLEAN27 #pragma warning disable AL0432 diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcProdOrderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcProdOrderExt.Codeunit.al index 8c61e6dee45..01d86cbff7e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcProdOrderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcProdOrderExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.ProductionBOM; using Microsoft.Manufacturing.Routing; -codeunit 99001517 "Subc. Calc. Prod. Order Ext." +codeunit 8141 "Subc. Calc. Prod. Order Ext." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcStandardCostExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcStandardCostExt.Codeunit.al index 7645b42d832..b38c96ce427 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcStandardCostExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcStandardCostExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Item; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.StandardCost; -codeunit 99001514 "Subc. Calc.StandardCost Ext." +codeunit 8138 "Subc. Calc.StandardCost Ext." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcSubcontractsExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcSubcontractsExt.Codeunit.al index 4dc2501a0b8..b0f8395ad53 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcSubcontractsExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcSubcontractsExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.WorkCenter; -codeunit 99001529 "Subc. Calc Subcontracts Ext." +codeunit 8153 "Subc. Calc Subcontracts Ext." { [EventSubscriber(ObjectType::Report, Report::"Subc. Calculate Subcontracts", OnAfterTransferProdOrderRoutingLine, '', false, false)] local procedure OnAfterTransferProdOrderRoutingLine(var RequisitionLine: Record "Requisition Line"; ProdOrderRoutingLine: Record "Prod. Order Routing Line") diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLEntries.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLEntries.PageExt.al index e9f796b6daf..ea1632a09e2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLEntries.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLEntries.PageExt.al @@ -9,7 +9,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.History; using Microsoft.Utilities; -pageextension 99001502 "Subc. CapLEntries" extends "Capacity Ledger Entries" +pageextension 8126 "Subc. CapLEntries" extends "Capacity Ledger Entries" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLedgerEntryExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLedgerEntryExt.TableExt.al index 3aeba5d4f18..5f274aaa2fa 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLedgerEntryExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLedgerEntryExt.TableExt.al @@ -7,23 +7,23 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Capacity; using Microsoft.Purchases.Document; -tableextension 99001504 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger Entry" +tableextension 8128 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger Entry" { AllowInCustomizations = AsReadOnly; fields { - field(99001500; "Subc. Subcontractor No."; Code[20]) + field(8124; "Subc. Subcontractor No."; Code[20]) { Caption = 'Subcontractor No.'; DataClassification = CustomerContent; } - field(99001512; "Subc. Purch. Order No."; Code[20]) + field(8136; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order)); } - field(99001513; "Subc. Purch. Order Line No."; Integer) + field(8137; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; 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 e7813b69197..41afd20607c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCarryOutActionExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCarryOutActionExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Planning; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Document; -codeunit 99001523 "Subc. Carry Out Action Ext." +codeunit 8147 "Subc. Carry Out Action Ext." { #if not CLEAN27 #pragma warning disable AL0432 diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCompFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCompFactboxMgmt.Codeunit.al index 3e498edf717..2b48b08f4d4 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCompFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCompFactboxMgmt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -codeunit 99001562 "Subc. Comp. Factbox Mgmt." +codeunit 8186 "Subc. Comp. Factbox Mgmt." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcDispatchingList.Report.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcDispatchingList.Report.al index 98e422586be..bf011b6d95b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcDispatchingList.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcDispatchingList.Report.al @@ -30,7 +30,7 @@ using System.Email; using System.Globalization; using System.Utilities; -report 99001504 "Subc. Dispatching List" +report 8128 "Subc. Dispatching List" { ApplicationArea = Subcontracting; Caption = 'Subcontractor - Dispatch List'; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrder.PageExt.al index 9305138f0cc..5bc38daa6ed 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrder.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 99001548 "Subc. Finished Prod. Order" extends "Finished Production Order" +pageextension 8172 "Subc. Finished Prod. Order" extends "Finished Production Order" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrders.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrders.PageExt.al index ff954e609e5..2fa0ea57355 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrders.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrders.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 99001543 "Subc. Finished Prod. Orders" extends "Finished Production Orders" +pageextension 8167 "Subc. Finished Prod. Orders" extends "Finished Production Orders" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningComp.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningComp.PageExt.al index 0d33f17d31d..90426090d89 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningComp.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningComp.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Planning; -pageextension 99001511 "Subc. Planning Comp" extends "Planning Components" +pageextension 8135 "Subc. Planning Comp" extends "Planning Components" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.Codeunit.al index 8bb7e54631c..f5c7775c837 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.Codeunit.al @@ -10,7 +10,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Purchases.Vendor; -codeunit 99001522 "Subc. Planning Comp. Ext." +codeunit 8146 "Subc. Planning Comp. Ext." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.TableExt.al index 176bbf0b922..fb241e9f7f9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.TableExt.al @@ -9,12 +9,12 @@ using Microsoft.Inventory.Location; using Microsoft.Inventory.Planning; using Microsoft.Warehouse.Structure; -tableextension 99001503 "Subc. Planning Comp Ext." extends "Planning Component" +tableextension 8127 "Subc. Planning Comp Ext." extends "Planning Component" { AllowInCustomizations = AsReadOnly; fields { - field(99001524; "Component Supply Method"; Enum "Component Supply Method") + field(8148; "Component Supply Method"; Enum "Component Supply Method") { Caption = 'Component Supply Method'; DataClassification = CustomerContent; @@ -43,13 +43,13 @@ tableextension 99001503 "Subc. Planning Comp Ext." extends "Planning Component" SubcontractingManagement.UpdateComponentSupplyMethodForPlanningComponent(Rec); end; } - field(99001525; "Orig. Location Code"; Code[10]) + field(8149; "Orig. Location Code"; Code[10]) { Caption = 'Original Location Code'; DataClassification = CustomerContent; TableRelation = Location; } - field(99001526; "Orig. Bin Code"; Code[20]) + field(8150; "Orig. Bin Code"; Code[20]) { Caption = 'Original Bin Code'; DataClassification = CustomerContent; 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 3a84ef10fbe..4481ea6145c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al @@ -12,7 +12,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.ProductionBOM; using Microsoft.Manufacturing.Routing; -codeunit 99001518 "Subc. Planning Line Mgmt Ext." +codeunit 8142 "Subc. Planning Line Mgmt Ext." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLineExt.TableExt.al index 2a543c74c3e..ad5383ef027 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLineExt.TableExt.al @@ -7,12 +7,12 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; using Microsoft.Manufacturing.ProductionBOM; -tableextension 99001531 "Subc. Prod BOM Line Ext." extends "Production BOM Line" +tableextension 8155 "Subc. Prod BOM Line Ext." extends "Production BOM Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001522; "Component Supply Method"; Enum "Component Supply Method") + field(8146; "Component Supply Method"; Enum "Component Supply Method") { Caption = 'Component Supply Method'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLines.PageExt.al index bca0cf31e79..99c879fce18 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.ProductionBOM; -pageextension 99001510 "Subc. Prod BOM Lines" extends "Production BOM Lines" +pageextension 8134 "Subc. Prod BOM Lines" extends "Production BOM Lines" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMVersionLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMVersionLines.PageExt.al index ae14805545d..c3ff8c39e12 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMVersionLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMVersionLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.ProductionBOM; -pageextension 99001514 "Subc. ProdBOMVersionLines" extends "Production BOM Version Lines" +pageextension 8138 "Subc. ProdBOMVersionLines" extends "Production BOM Version Lines" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOFactboxMgmt.Codeunit.al index d081e2e9b8a..b717e56c729 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOFactboxMgmt.Codeunit.al @@ -12,7 +12,7 @@ using Microsoft.Purchases.History; using Microsoft.Utilities; using System.Reflection; -codeunit 99001559 "Subc. ProdO. Factbox Mgmt." +codeunit 8183 "Subc. ProdO. Factbox Mgmt." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrdCompRes.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrdCompRes.Codeunit.al index 8d3269e9e22..f9162a50b78 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrdCompRes.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrdCompRes.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -codeunit 99001530 "Subc. Prod. Ord. Comp. Res." +codeunit 8154 "Subc. Prod. Ord. Comp. Res." { EventSubscriberInstance = Manual; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComp.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComp.PageExt.al index bcecc24cef1..3c91216011b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComp.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComp.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -pageextension 99001512 "Subc. Prod Order Comp" extends "Prod. Order Components" +pageextension 8136 "Subc. Prod Order Comp" extends "Prod. Order Components" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.Codeunit.al index 858cbba5559..23cdd1a9598 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.Codeunit.al @@ -13,7 +13,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; using System.Utilities; -codeunit 99001524 "Subc. Prod. Order Comp. Ext." +codeunit 8148 "Subc. Prod. Order Comp. Ext." { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.TableExt.al index ce85c33c983..f4bcffa83cc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.TableExt.al @@ -12,12 +12,12 @@ using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; using Microsoft.Warehouse.Structure; -tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" +tableextension 8126 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" { AllowInCustomizations = AsReadOnly; fields { - field(99001522; "Component Supply Method"; Enum "Component Supply Method") + field(8146; "Component Supply Method"; Enum "Component Supply Method") { Caption = 'Component Supply Method'; DataClassification = CustomerContent; @@ -46,13 +46,13 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon SubcontractingManagement.UpdateComponentSupplyMethodForProdOrderComponent(Rec); end; } - field(99001523; "Subc. Original Location Code"; Code[10]) + field(8147; "Subc. Original Location Code"; Code[10]) { Caption = 'Original Location Code'; DataClassification = CustomerContent; TableRelation = Location; } - field(99001524; "Subc. Qty. transf. to Subcontr"; Decimal) + field(8148; "Subc. Qty. transf. to Subcontr"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Item Ledger Entry".Quantity where("Entry Type" = const(Transfer), @@ -69,7 +69,7 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon FieldClass = FlowField; ToolTip = 'Specifies the item amount transferred to the subcontractor.'; } - field(99001525; "Subc. Qty. in Transit (Base)"; Decimal) + field(8149; "Subc. Qty. in Transit (Base)"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Transfer Line"."Qty. in Transit (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), @@ -84,7 +84,7 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon FieldClass = FlowField; ToolTip = 'Specifies the items that are in transit.'; } - field(99001526; "Subc. Qty.on TransOrder (Base)"; Decimal) + field(8150; "Subc. Qty.on TransOrder (Base)"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Transfer Line"."Outstanding Qty. (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), @@ -99,20 +99,20 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon FieldClass = FlowField; ToolTip = 'Specifies the item amount that is on the transfer order.'; } - field(99001527; "Subc. Purchase Order Filter"; Code[20]) + field(8151; "Subc. Purchase Order Filter"; Code[20]) { Caption = 'Subc. Purchase Order Filter'; FieldClass = FlowFilter; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order), "Subc. Order" = const(true)); } - field(99001528; "Subc. Orig. Bin Code"; Code[20]) + field(8152; "Subc. Orig. Bin Code"; Code[20]) { Caption = 'Original Bin Code'; DataClassification = CustomerContent; TableRelation = Bin; } - field(99001530; "RetQtyInTransit (Base)"; Decimal) + field(8154; "RetQtyInTransit (Base)"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Transfer Line"."Qty. in Transit (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), @@ -126,7 +126,7 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon Editable = false; FieldClass = FlowField; } - field(99001531; "RetQtyOnTransOrder (Base)"; Decimal) + field(8155; "RetQtyOnTransOrder (Base)"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Transfer Line"."Outstanding Qty. (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompLine.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompLine.PageExt.al index 29df1f0de77..1ce9b632a2d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompLine.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompLine.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -pageextension 99001513 "Subc. ProdOrderCompLine" extends "Prod. Order Comp. Line List" +pageextension 8137 "Subc. ProdOrderCompLine" extends "Prod. Order Comp. Line List" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComponents.Page.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComponents.Page.al index f7482c07c6b..124a055f664 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComponents.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComponents.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -page 99001503 "Subc. Prod. Order Components" +page 8127 "Subc. Prod. Order Components" { ApplicationArea = Subcontracting; Caption = 'Prod. Order Comp. Line List'; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtng.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtng.PageExt.al index 311eaf6d924..09379c57a79 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtng.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtng.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 99001503 "Subc. Prod. Order Rtng." extends "Prod. Order Routing" +pageextension 8127 "Subc. Prod. Order Rtng." extends "Prod. Order Routing" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngExt.Codeunit.al index a0fd4dd15d9..37b771a2822 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngExt.Codeunit.al @@ -10,7 +10,7 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; -codeunit 99001520 "Subc. Prod. Order Rtng. Ext." +codeunit 8144 "Subc. Prod. Order Rtng. Ext." { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngLineExt.TableExt.al index 0779f82fb81..ca708d04997 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngLineExt.TableExt.al @@ -12,7 +12,7 @@ using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; -tableextension 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing Line" +tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing Line" { fields { @@ -69,7 +69,7 @@ tableextension 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Rout "Transfer WIP Item" := false; end; } - field(99001550; "Vendor No. Subc. Price"; Code[20]) + field(8174; "Vendor No. Subc. Price"; Code[20]) { AllowInCustomizations = AsReadOnly; Caption = 'Vendor No. Subcontracting Prices'; @@ -77,7 +77,7 @@ tableextension 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Rout Editable = false; TableRelation = Vendor; } - field(99001551; Subcontracting; Boolean) + field(8175; Subcontracting; Boolean) { AllowInCustomizations = AsReadOnly; CalcFormula = exist("Work Center" where("No." = field("Work Center No."), @@ -87,7 +87,7 @@ tableextension 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Rout FieldClass = FlowField; ToolTip = 'Specifies whether the Work Center Group is set up with a Vendor for Subcontracting.'; } - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { AllowInCustomizations = AsReadWrite; Caption = 'Transfer WIP Item'; @@ -102,14 +102,14 @@ tableextension 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Rout end; end; } - field(99001561; "Transfer Description"; Text[100]) + field(8185; "Transfer Description"; Text[100]) { AllowInCustomizations = AsReadWrite; Caption = 'Transfer Description'; DataClassification = CustomerContent; ToolTip = 'Specifies the operation-specific description used on transfer orders for the semi-finished item as it is shipped to the subcontracting location. If empty, the standard description is used.'; } - field(99001562; "Transfer Description 2"; Text[50]) + field(8186; "Transfer Description 2"; Text[50]) { AllowInCustomizations = AsReadWrite; Caption = 'Transfer Description 2'; @@ -117,7 +117,7 @@ tableextension 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Rout ToolTip = 'Specifies an additional operation-specific description line used on transfer orders for the semi-finished item as it is shipped to the subcontracting location.'; } #pragma warning disable AA0232 - field(99001563; "WIP Qty. (Base) at Subc."; Decimal) + field(8187; "WIP Qty. (Base) at Subc."; Decimal) #pragma warning restore AA0232 { AllowInCustomizations = AsReadOnly; @@ -136,7 +136,7 @@ tableextension 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Rout FieldClass = FlowField; ToolTip = 'Specifies the total work-in-progress quantity (base) of the production order parent item currently held at the subcontractor location for this operation, as tracked by Subcontracting WIP Entries.'; } - field(99001564; "WIP Qty. (Base) in Transit"; Decimal) + field(8188; "WIP Qty. (Base) in Transit"; Decimal) { AllowInCustomizations = AsReadOnly; AutoFormatType = 0; @@ -153,14 +153,14 @@ tableextension 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Rout FieldClass = FlowField; ToolTip = 'Specifies the outstanding quantity of the production order parent item on transfer orders that is currently in transit to the subcontractor for this operation.'; } - field(99001534; "WIP Location Filter"; Code[10]) + field(8158; "WIP Location Filter"; Code[10]) { Caption = 'WIP Location Filter'; FieldClass = FlowFilter; TableRelation = Location; ToolTip = 'Specifies the location filter used for FlowField calculations.'; } - field(99001535; "Prod. Order Line Filter"; Integer) + field(8159; "Prod. Order Line Filter"; Integer) { Caption = 'Prod. Order Line Filter'; FieldClass = FlowFilter; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProductionOrderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProductionOrderExt.TableExt.al index 084227bf0ae..08c68796600 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProductionOrderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProductionOrderExt.TableExt.al @@ -6,12 +6,12 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -tableextension 99001505 "Subc. Production Order Ext." extends "Production Order" +tableextension 8129 "Subc. Production Order Ext." extends "Production Order" { AllowInCustomizations = AsReadOnly; fields { - field(99001552; "Created from Purch. Order"; Boolean) + field(8176; "Created from Purch. Order"; Boolean) { Caption = 'Created from Purchase Order'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrder.PageExt.al index 7612fdcf78c..4c0bfa36be1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrder.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 99001504 "Subc. Rel. Prod. Order" extends "Released Production Order" +pageextension 8128 "Subc. Rel. Prod. Order" extends "Released Production Order" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrders.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrders.PageExt.al index 0446a28a16f..8dbd33ced19 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrders.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrders.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 99001505 "Subc. Rel. Prod. Orders" extends "Released Production Orders" +pageextension 8129 "Subc. Rel. Prod. Orders" extends "Released Production Orders" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al index b4c0c324d50..a60b4da3d43 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -codeunit 99001516 "Subc. Req. Wksh. Make Ord." +codeunit 8140 "Subc. Req. Wksh. Make Ord." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingFactboxMgmt.Codeunit.al index 8db3daf7397..fae2dfb5c70 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingFactboxMgmt.Codeunit.al @@ -11,7 +11,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.History; using Microsoft.Purchases.Vendor; -codeunit 99001561 "Subc. Routing Factbox Mgmt." +codeunit 8185 "Subc. Routing Factbox Mgmt." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingInfoFactbox.Page.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingInfoFactbox.Page.al index 9b19c327091..bd99c39600a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingInfoFactbox.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingInfoFactbox.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -page 99001502 "Subc. Routing Info Factbox" +page 8126 "Subc. Routing Info Factbox" { ApplicationArea = Subcontracting; Caption = 'Subcontracting Routing Details'; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLine.TableExt.al index 5ed4ba4e0dd..334a04218e5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLine.TableExt.al @@ -8,7 +8,7 @@ using Microsoft.Manufacturing.Capacity; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -tableextension 99001560 "Subc. Routing Line" extends "Routing Line" +tableextension 8184 "Subc. Routing Line" extends "Routing Line" { AllowInCustomizations = AsReadWrite; fields @@ -66,7 +66,7 @@ tableextension 99001560 "Subc. Routing Line" extends "Routing Line" "Transfer WIP Item" := false; end; } - field(99001551; Subcontracting; Boolean) + field(8175; Subcontracting; Boolean) { AllowInCustomizations = AsReadOnly; CalcFormula = exist("Work Center" where("No." = field("Work Center No."), @@ -76,7 +76,7 @@ tableextension 99001560 "Subc. Routing Line" extends "Routing Line" FieldClass = FlowField; ToolTip = 'Specifies whether the Work Center Group is set up with a Vendor for Subcontracting.'; } - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -103,13 +103,13 @@ tableextension 99001560 "Subc. Routing Line" extends "Routing Line" end; end; } - field(99001561; "Transfer Description"; Text[100]) + field(8185; "Transfer Description"; Text[100]) { Caption = 'Transfer Description'; DataClassification = CustomerContent; ToolTip = 'Specifies the operation-specific description used on transfer orders for the semi-finished item as it is shipped to the subcontracting location. If empty, the standard description is used.'; } - field(99001562; "Transfer Description 2"; Text[50]) + field(8186; "Transfer Description 2"; Text[50]) { Caption = 'Transfer Description 2'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLines.PageExt.al index 2cc931c1576..c1232bcab51 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Routing; -pageextension 99001508 "Subc. Routing Lines" extends "Routing Lines" +pageextension 8132 "Subc. Routing Lines" extends "Routing Lines" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingVersionLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingVersionLines.PageExt.al index f9acbd7af48..89be45044b5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingVersionLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingVersionLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Routing; -pageextension 99001509 "Subc. Routing Version Lines" extends "Routing Version Lines" +pageextension 8133 "Subc. Routing Version Lines" extends "Routing Version Lines" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al index cfcd353b6c2..7ae7c785287 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.WorkCenter; -pageextension 99001506 "Subc. Work Center Card" extends "Work Center Card" +pageextension 8130 "Subc. Work Center Card" extends "Work Center Card" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterExtension.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterExtension.Codeunit.al index c252f3044a5..da63b180ce2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterExtension.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterExtension.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.WorkCenter; -codeunit 99001519 "Subc. Work Center Extension" +codeunit 8143 "Subc. Work Center Extension" { [EventSubscriber(ObjectType::Table, Database::"Work Center", OnAfterDeleteEvent, '', false, false)] local procedure OnAfterDeleteWorkCenter(var Rec: Record "Work Center"; RunTrigger: Boolean) diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterList.PageExt.al index 870e6efe6fb..cb18c7750ef 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterList.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.WorkCenter; -pageextension 99001507 "Subc. Work Center List" extends "Work Center List" +pageextension 8131 "Subc. Work Center List" extends "Work Center List" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemCard.PageExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemCard.PageExt.al index 5d99d33d23f..762961bee8f 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemCard.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemCard.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; -pageextension 99001518 "Subc. Item Card" extends "Item Card" +pageextension 8142 "Subc. Item Card" extends "Item Card" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemExtension.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemExtension.Codeunit.al index a1b9ce4cfcc..493d14aabb3 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemExtension.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemExtension.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; -codeunit 99001532 "Subc. Item Extension" +codeunit 8156 "Subc. Item Extension" { [EventSubscriber(ObjectType::Table, Database::Item, OnAfterDeleteEvent, '', false, false)] local procedure OnAfterDeleteItem(var Rec: Record Item; RunTrigger: Boolean) diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemJournalLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemJournalLineExt.TableExt.al index 55d3d6ff296..07153df5354 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemJournalLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemJournalLineExt.TableExt.al @@ -7,40 +7,40 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Journal; using Microsoft.Purchases.Document; -tableextension 99001508 "Subc. Item Journal Line Ext." extends "Item Journal Line" +tableextension 8132 "Subc. Item Journal Line Ext." extends "Item Journal Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001510; "Subc. Prod. Order No."; Code[20]) + field(8134; "Subc. Prod. Order No."; Code[20]) { Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; } - field(99001511; "Subc. Prod. Order Line No."; Integer) + field(8135; "Subc. Prod. Order Line No."; Integer) { Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; } - field(99001512; "Subc. Purch. Order No."; Code[20]) + field(8136; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order)); } - field(99001513; "Subc. Purch. Order Line No."; Integer) + field(8137; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Purchase Line"."Line No." where("Document Type" = const(Order), "Document No." = field("Subc. Purch. Order No.")); } - field(99001514; "Subc. Operation No."; Code[10]) + field(8138; "Subc. Operation No."; Code[10]) { Caption = 'Operation No.'; DataClassification = CustomerContent; } - field(99001542; "Subc. Item Charge Assign."; Boolean) + field(8166; "Subc. Item Charge Assign."; Boolean) { Caption = 'Subc. Item Charge Assignment'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemList.PageExt.al index 8e233b9ec09..c4d3beeb58e 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemList.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; -pageextension 99001519 "Subc. Item List" extends "Item List" +pageextension 8143 "Subc. Item List" extends "Item List" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendor.TableExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendor.TableExt.al index 39122891f85..eab6a129349 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendor.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendor.TableExt.al @@ -8,12 +8,12 @@ using Microsoft.Inventory.Location; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Vendor; -tableextension 99001507 "Subc. Vendor" extends Vendor +tableextension 8131 "Subc. Vendor" extends Vendor { AllowInCustomizations = AsReadOnly; fields { - field(99001515; "Subc. Location Code"; Code[10]) + field(8139; "Subc. Location Code"; Code[10]) { Caption = 'Subcontracting Location Code'; DataClassification = CustomerContent; @@ -48,14 +48,14 @@ tableextension 99001507 "Subc. Vendor" extends Vendor end; end; } - field(99001516; "Subc. Linked to Work Center"; Boolean) + field(8140; "Subc. Linked to Work Center"; Boolean) { CalcFormula = exist("Work Center" where("Subcontractor No." = field("No."))); Caption = 'Linked to Work Center'; Editable = false; FieldClass = FlowField; } - field(99001517; "Subc. Work Center No."; Code[20]) + field(8141; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No.'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorCard.PageExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorCard.PageExt.al index 9c6585a2a8a..18d64b2959f 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorCard.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorCard.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Vendor; -pageextension 99001516 "Subc. Vendor Card" extends "Vendor Card" +pageextension 8140 "Subc. Vendor Card" extends "Vendor Card" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorExtension.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorExtension.Codeunit.al index 1108624a315..9ae946d90df 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorExtension.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorExtension.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Vendor; -codeunit 99001531 "Subc. Vendor Extension" +codeunit 8155 "Subc. Vendor Extension" { [EventSubscriber(ObjectType::Table, Database::Vendor, OnAfterDeleteEvent, '', false, false)] local procedure OnAfterDeleteVendor(var Rec: Record Vendor; RunTrigger: Boolean) diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorList.PageExt.al index 00ac3b4e54a..718ff0bbccf 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorList.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Vendor; -pageextension 99001517 "Subc. Vendor List" extends "Vendor List" +pageextension 8141 "Subc. Vendor List" extends "Vendor List" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al index 2de90c35de3..46cdf1abc4c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Security.AccessControl; -permissionsetextension 99001502 "D365 BASIC - Subcontracting" extends "D365 BASIC" +permissionsetextension 8126 "D365 BASIC - Subcontracting" extends "D365 BASIC" { IncludedPermissionSets = "Subcontract. - Read"; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al index 86a171820cf..ad79859f043 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Security.AccessControl; -permissionsetextension 99001501 "D365 BUS FULL ACCESS - Subcontracting" extends "D365 BUS FULL ACCESS" +permissionsetextension 8125 "D365 BUS FULL ACCESS - Subcontracting" extends "D365 BUS FULL ACCESS" { IncludedPermissionSets = "Subcontract. - Edit"; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al b/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al index b69754142f2..671f83ea89e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Security.AccessControl; -permissionsetextension 99001500 "D365 READ - Subcontracting" extends "D365 READ" +permissionsetextension 8124 "D365 READ - Subcontracting" extends "D365 READ" { IncludedPermissionSets = "Subcontract. - Read"; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al index 871f4ad41e2..6cec9f474e3 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 99001503 "Subcontract. - Edit" +permissionset 8127 "Subcontract. - Edit" { Caption = 'Subcontracting - Edit'; Access = Public; diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al index fabbcdb576f..71b2d8a86f1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 99001501 "Subcontract. - Objs" +permissionset 8125 "Subcontract. - Objs" { Caption = 'Subcontracting - Objects'; Assignable = true; diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al index 2bbbecde211..14bead8c37b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 99001502 "Subcontract. - Read" +permissionset 8126 "Subcontract. - Read" { Caption = 'Subcontracting - Read'; Access = Public; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCalculateSubcontracts.Report.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCalculateSubcontracts.Report.al index c9558c342b3..82f018749cd 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCalculateSubcontracts.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCalculateSubcontracts.Report.al @@ -15,7 +15,7 @@ using Microsoft.Manufacturing.Setup; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; -report 99001505 "Subc. Calculate Subcontracts" +report 8129 "Subc. Calculate Subcontracts" { ApplicationArea = Subcontracting; Caption = 'Calculate Subcontracts'; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCreateSubCReturnOrder.Report.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCreateSubCReturnOrder.Report.al index 716345c80cd..6edf48bb9c7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCreateSubCReturnOrder.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCreateSubCReturnOrder.Report.al @@ -12,7 +12,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; -report 99001502 "Subc. Create SubCReturnOrder" +report 8126 "Subc. Create SubCReturnOrder" { ApplicationArea = Subcontracting; Caption = 'Create Subcontracting Return Order'; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcItemChargeAssPurchExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcItemChargeAssPurchExt.Codeunit.al index 179bd0cec27..ba27303e63f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcItemChargeAssPurchExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcItemChargeAssPurchExt.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; using Microsoft.Purchases.History; -codeunit 99001536 "Subc. ItemChargeAssPurchExt" +codeunit 8160 "Subc. ItemChargeAssPurchExt" { var AssignToUndoneRcptErr: Label 'You cannot assign the item charge to subcontracting receipt %1, line %2, because it has been undone.', Comment = '%1 = Posted Receipt No., %2 = Posted Receipt Line No.'; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPOSubform.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPOSubform.PageExt.al index c45c9e6f847..a5ff0a135d9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPOSubform.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPOSubform.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -pageextension 99001524 "Subc. PO Subform" extends "Purchase Order Subform" +pageextension 8148 "Subc. PO Subform" extends "Purchase Order Subform" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPriceManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPriceManagement.Codeunit.al index b3de56c2286..071ebebd75c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPriceManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPriceManagement.Codeunit.al @@ -19,7 +19,7 @@ using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; -codeunit 99001508 "Subc. Price Management" +codeunit 8132 "Subc. Price Management" { var ManufacturingSetup: Record "Manufacturing Setup"; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchCrMemoLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchCrMemoLine.TableExt.al index c140d28a956..715fdec8189 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchCrMemoLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchCrMemoLine.TableExt.al @@ -9,18 +9,18 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.History; -tableextension 99001515 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line" +tableextension 8139 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line" { fields { - field(99001543; "Subc. Prod. Order No."; Code[20]) + field(8167; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001544; "Subc. Prod. Order Line No."; Integer) + field(8168; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -28,20 +28,20 @@ tableextension 99001515 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(99001545; "Subc. Routing No."; Code[20]) + field(8169; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(8170; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(8171; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -51,7 +51,7 @@ tableextension 99001515 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(99001548; "Subc. Work Center No."; Code[20]) + field(8172; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchFactboxMgmt.Codeunit.al index 457cc793b4a..4ac3bc6d8e3 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchFactboxMgmt.Codeunit.al @@ -14,7 +14,7 @@ using Microsoft.Utilities; using System.Reflection; using System.Text; -codeunit 99001560 "Subc. Purch. Factbox Mgmt." +codeunit 8184 "Subc. Purch. Factbox Mgmt." { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchInvLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchInvLine.TableExt.al index df57c6e053f..8af54f26099 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchInvLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchInvLine.TableExt.al @@ -9,18 +9,18 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.History; -tableextension 99001514 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" +tableextension 8138 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" { fields { - field(99001543; "Subc. Prod. Order No."; Code[20]) + field(8167; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001544; "Subc. Prod. Order Line No."; Integer) + field(8168; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -28,20 +28,20 @@ tableextension 99001514 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(99001545; "Subc. Routing No."; Code[20]) + field(8169; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(8170; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(8171; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -51,7 +51,7 @@ tableextension 99001514 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(99001548; "Subc. Work Center No."; Code[20]) + field(8172; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrder.PageExt.al index 630d08d52e9..e9ae0ba2a0e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrder.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -pageextension 99001523 "Subc. Purch. Order" extends "Purchase Order" +pageextension 8147 "Subc. Purch. Order" extends "Purchase Order" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrderList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrderList.PageExt.al index 60e080ed1a0..9f381dab50c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrderList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrderList.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -pageextension 99001525 "Subc. PurchOrderList" extends "Purchase Order List" +pageextension 8149 "Subc. PurchOrderList" extends "Purchase Order List" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchPostExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchPostExt.Codeunit.al index 8a7da60854f..fb64492557c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchPostExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchPostExt.Codeunit.al @@ -16,7 +16,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; using Microsoft.Purchases.History; using Microsoft.Purchases.Posting; -codeunit 99001535 "Subc. Purch. Post Ext" +codeunit 8159 "Subc. Purch. Post Ext" { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchRcptLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchRcptLine.TableExt.al index 6bf785cb5f2..acc7a7d1de8 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchRcptLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchRcptLine.TableExt.al @@ -9,18 +9,18 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.History; -tableextension 99001513 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" +tableextension 8137 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" { fields { - field(99001543; "Subc. Prod. Order No."; Code[20]) + field(8167; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001544; "Subc. Prod. Order Line No."; Integer) + field(8168; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -28,20 +28,20 @@ tableextension 99001513 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(99001545; "Subc. Routing No."; Code[20]) + field(8169; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(8170; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(8171; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -51,7 +51,7 @@ tableextension 99001513 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(99001548; "Subc. Work Center No."; Code[20]) + field(8172; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeader.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeader.TableExt.al index daaf18c68db..508fdbcf70f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeader.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeader.TableExt.al @@ -7,12 +7,12 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Location; using Microsoft.Purchases.Document; -tableextension 99001509 "Subc. Purchase Header" extends "Purchase Header" +tableextension 8133 "Subc. Purchase Header" extends "Purchase Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001520; "Subc. Location Code"; Code[10]) + field(8144; "Subc. Location Code"; Code[10]) { Caption = 'Subcontracting Location Code'; DataClassification = CustomerContent; @@ -30,7 +30,7 @@ tableextension 99001509 "Subc. Purchase Header" extends "Purchase Header" Error(BinMandatorySubcontrLocationErr, "Subc. Location Code"); end; } - field(99001521; "Subc. Order"; Boolean) + field(8145; "Subc. Order"; Boolean) { CalcFormula = exist("Purchase Line" where("Document Type" = const(Order), "Document No." = field("No."), diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderArch.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderArch.TableExt.al index 771a5dd23f9..7add2ce7f3e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderArch.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderArch.TableExt.al @@ -8,19 +8,19 @@ using Microsoft.Inventory.Location; using Microsoft.Purchases.Archive; using Microsoft.Purchases.Document; -tableextension 99001511 "Subc. Purchase Header Arch" extends "Purchase Header Archive" +tableextension 8135 "Subc. Purchase Header Arch" extends "Purchase Header Archive" { AllowInCustomizations = AsReadOnly; fields { - field(99001520; "Subc. Location Code"; Code[10]) + field(8144; "Subc. Location Code"; Code[10]) { Caption = 'Subcontracting Location Code'; DataClassification = CustomerContent; TableRelation = Location where("Use As In-Transit" = const(false)); ; } - field(99001521; "Subc. Order"; Boolean) + field(8145; "Subc. Order"; Boolean) { CalcFormula = exist("Purchase Line" where("Document Type" = const(Order), "Document No." = field("No."), diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderExt.Codeunit.al index 833e52f152f..c4ea3ce45d0 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderExt.Codeunit.al @@ -9,7 +9,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; using Microsoft.Utilities; -codeunit 99001533 "Subc. Purchase Header Ext" +codeunit 8157 "Subc. Purchase Header Ext" { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLine.TableExt.al index 3f144d1458b..6d6f17646f5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLine.TableExt.al @@ -13,7 +13,7 @@ using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; using Microsoft.Warehouse.Document; -tableextension 99001512 "Subc. Purchase Line" extends "Purchase Line" +tableextension 8136 "Subc. Purchase Line" extends "Purchase Line" { fields { @@ -45,14 +45,14 @@ tableextension 99001512 "Subc. Purchase Line" extends "Purchase Line" SetSubcontractingLineType(); end; } - field(99001543; "Subc. Prod. Order No."; Code[20]) + field(8167; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001544; "Subc. Prod. Order Line No."; Integer) + field(8168; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -60,20 +60,20 @@ tableextension 99001512 "Subc. Purchase Line" extends "Purchase Line" TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(99001545; "Subc. Routing No."; Code[20]) + field(8169; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(8170; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(8171; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -83,20 +83,20 @@ tableextension 99001512 "Subc. Purchase Line" extends "Purchase Line" "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(99001548; "Subc. Work Center No."; Code[20]) + field(8172; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Work Center"; } - field(99001549; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") + field(8173; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") { Caption = 'Subcontracting Line Type'; DataClassification = CustomerContent; Editable = false; } - field(99001550; "Subc.Whse.Outstanding Quantity"; Decimal) + field(8174; "Subc.Whse.Outstanding Quantity"; Decimal) { AccessByPermission = TableData Location = R; AutoFormatType = 0; @@ -112,7 +112,7 @@ tableextension 99001512 "Subc. Purchase Line" extends "Purchase Line" Editable = false; FieldClass = FlowField; } - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineArchive.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineArchive.TableExt.al index 4a76a2e6be0..175529e0677 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineArchive.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineArchive.TableExt.al @@ -9,18 +9,18 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Archive; -tableextension 99001516 "Subc. Purchase Line Archive" extends "Purchase Line Archive" +tableextension 8140 "Subc. Purchase Line Archive" extends "Purchase Line Archive" { fields { - field(99001543; "Subc. Prod. Order No."; Code[20]) + field(8167; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001544; "Subc. Prod. Order Line No."; Integer) + field(8168; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -28,20 +28,20 @@ tableextension 99001516 "Subc. Purchase Line Archive" extends "Purchase Line Arc TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(99001545; "Subc. Routing No."; Code[20]) + field(8169; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(8170; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(8171; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -51,7 +51,7 @@ tableextension 99001516 "Subc. Purchase Line Archive" extends "Purchase Line Arc "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(99001548; "Subc. Work Center No."; Code[20]) + field(8172; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineExt.Codeunit.al index e6f967f0439..95cddd4edaa 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineExt.Codeunit.al @@ -11,7 +11,7 @@ using Microsoft.Purchases.Document; using Microsoft.Utilities; using Microsoft.Warehouse.Document; -codeunit 99001534 "Subc. Purchase Line Ext" +codeunit 8158 "Subc. Purchase Line Ext" { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineFactbox.Page.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineFactbox.Page.al index 82979240932..739dd74574f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineFactbox.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineFactbox.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -page 99001518 "Subc. Purchase Line Factbox" +page 8142 "Subc. Purchase Line Factbox" { ApplicationArea = Subcontracting; Caption = 'Subcontracting Details'; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineType.Enum.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineType.Enum.al index 485d20a82d1..9d579093ad5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineType.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineType.Enum.al @@ -3,7 +3,7 @@ // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 99001507 "Subc. Purchase Line Type" +enum 8131 "Subc. Purchase Line Type" { Extensible = true; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseOrderCreator.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseOrderCreator.Codeunit.al index 02ba7fa18de..bedacd43fe8 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseOrderCreator.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseOrderCreator.Codeunit.al @@ -22,7 +22,7 @@ using Microsoft.Purchases.Vendor; using Microsoft.Utilities; using System.Utilities; -codeunit 99001557 "Subc. Purchase Order Creator" +codeunit 8181 "Subc. Purchase Order Creator" { var ManufacturingSetup: Record "Manufacturing Setup"; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcReqLineExtension.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcReqLineExtension.Codeunit.al index 7d099dd1b45..447de1dcc23 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcReqLineExtension.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcReqLineExtension.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; -codeunit 99001513 "Subc. Req.Line Extension" +codeunit 8137 "Subc. Req.Line Extension" { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcRequisitionLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcRequisitionLine.TableExt.al index 7c468695d37..3a0414e479a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcRequisitionLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcRequisitionLine.TableExt.al @@ -11,12 +11,12 @@ using Microsoft.Inventory.Item; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Routing; -tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" +tableextension 8134 "Subc. RequisitionLine" extends "Requisition Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001516; "Subc. Standard Task Code"; Code[10]) + field(8140; "Subc. Standard Task Code"; Code[10]) { Caption = 'Standard Task Code'; DataClassification = CustomerContent; @@ -38,7 +38,7 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" UpdateSubcontractorPrice(); end; } - field(99001517; "Base UM Qty/PL UM Qty"; Decimal) + field(8141; "Base UM Qty/PL UM Qty"; Decimal) { Access = Internal; AutoFormatType = 0; @@ -49,7 +49,7 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" InitValue = 1; ToolTip = 'Specifies the quantity of the base unit of measure or the price list unit of measure.'; } - field(99001518; "PL UM Qty/Base UM Qty"; Decimal) + field(8142; "PL UM Qty/Base UM Qty"; Decimal) { Access = Internal; AutoFormatType = 0; @@ -75,7 +75,7 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" end; end; } - field(99001519; "Subc. UoM for Pricelist"; Code[10]) + field(8143; "Subc. UoM for Pricelist"; Code[10]) { Access = Internal; Caption = 'UoM for Price list'; @@ -97,7 +97,7 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" UpdateSubcontractorPriceUOM(); end; } - field(99001520; "Subc. Pricelist Cost"; Decimal) + field(8144; "Subc. Pricelist Cost"; Decimal) { Access = Internal; AutoFormatExpression = "Currency Code"; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrice.Table.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrice.Table.al index d45049c371a..479964f474f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrice.Table.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrice.Table.al @@ -10,7 +10,7 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Vendor; -table 99001500 "Subcontractor Price" +table 8124 "Subcontractor Price" { AllowInCustomizations = AsReadOnly; Caption = 'Subcontractor Price'; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrices.Page.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrices.Page.al index 64ad8c72a7e..5b02798d8f0 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrices.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrices.Page.al @@ -11,7 +11,7 @@ using Microsoft.Purchases.Vendor; using System.Globalization; using System.Text; -page 99001500 "Subcontractor Prices" +page 8124 "Subcontractor Prices" { ApplicationArea = Subcontracting; Caption = 'Subcontractor Prices'; diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingCue.TableExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingCue.TableExt.al index 51da1b880aa..a6e28b6cc5f 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingCue.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingCue.TableExt.al @@ -8,11 +8,11 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -tableextension 99001529 "Subc. Manufacturing Cue" extends "Manufacturing Cue" +tableextension 8153 "Subc. Manufacturing Cue" extends "Manufacturing Cue" { fields { - field(99001560; "Subcontracting Purchase Orders"; Integer) + field(8184; "Subcontracting Purchase Orders"; Integer) { AccessByPermission = tabledata "Purchase Header" = R; CalcFormula = count("Purchase Header" where("Document Type" = const(Order), @@ -22,7 +22,7 @@ tableextension 99001529 "Subc. Manufacturing Cue" extends "Manufacturing Cue" FieldClass = FlowField; ToolTip = 'Specifies the number of open purchase orders that are subcontracting orders.'; } - field(99001561; "Subc. Purch. Lines Outstd."; Integer) + field(8185; "Subc. Purch. Lines Outstd."; Integer) { AccessByPermission = tabledata "Purchase Line" = R; CalcFormula = count("Purchase Line" where("Document Type" = const(Order), @@ -33,7 +33,7 @@ tableextension 99001529 "Subc. Manufacturing Cue" extends "Manufacturing Cue" FieldClass = FlowField; ToolTip = 'Specifies the number of outstanding subcontracting purchase order lines that have not yet been fully received.'; } - field(99001562; "Subc. Purch. Lines Total"; Integer) + field(8186; "Subc. Purch. Lines Total"; Integer) { AccessByPermission = tabledata "Purchase Line" = R; CalcFormula = count("Purchase Line" where("Document Type" = const(Order), @@ -43,7 +43,7 @@ tableextension 99001529 "Subc. Manufacturing Cue" extends "Manufacturing Cue" FieldClass = FlowField; ToolTip = 'Specifies the total number of subcontracting purchase order lines.'; } - field(99001563; "Transfers to Subcontractor"; Integer) + field(8187; "Transfers to Subcontractor"; Integer) { AccessByPermission = tabledata "Transfer Header" = R; CalcFormula = count("Transfer Header" where("Subc. Source Type" = const(Subcontracting), @@ -53,7 +53,7 @@ tableextension 99001529 "Subc. Manufacturing Cue" extends "Manufacturing Cue" FieldClass = FlowField; ToolTip = 'Specifies the number of transfer orders to subcontractors.'; } - field(99001564; "Returns from Subcontractor"; Integer) + field(8188; "Returns from Subcontractor"; Integer) { AccessByPermission = tabledata "Transfer Header" = R; CalcFormula = count("Transfer Header" where("Subc. Source Type" = const(Subcontracting), diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingManagerRC.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingManagerRC.PageExt.al index bdb7ab4355b..51b5a9f9c93 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingManagerRC.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingManagerRC.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.RoleCenters; -pageextension 99001536 "Subc. Manufacturing Manager RC" extends "Manufacturing Manager RC" +pageextension 8160 "Subc. Manufacturing Manager RC" extends "Manufacturing Manager RC" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerActivities.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerActivities.PageExt.al index b216f5b2a3a..9c6cfbe1231 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerActivities.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerActivities.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -pageextension 99001537 "Subc. Prod. Planner Activities" extends "Production Planner Activities" +pageextension 8161 "Subc. Prod. Planner Activities" extends "Production Planner Activities" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerRoleCenter.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerRoleCenter.PageExt.al index 8efde529967..c882cc66e0c 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerRoleCenter.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerRoleCenter.PageExt.al @@ -9,7 +9,7 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -pageextension 99001538 "Subc. Prod. Planner RoleCenter" extends "Production Planner Role Center" +pageextension 8162 "Subc. Prod. Planner RoleCenter" extends "Production Planner Role Center" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchAgentRoleCenter.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchAgentRoleCenter.PageExt.al index 45c45a97245..2776b1ba347 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchAgentRoleCenter.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchAgentRoleCenter.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; using Microsoft.Purchases.RoleCenters; -pageextension 99001541 "Subc. Purch. Agent Role Center" extends "Purchasing Agent Role Center" +pageextension 8165 "Subc. Purch. Agent Role Center" extends "Purchasing Agent Role Center" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchasingManagerRC.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchasingManagerRC.PageExt.al index d9bc2312f6b..1644ad87509 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchasingManagerRC.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchasingManagerRC.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.RoleCenters; -pageextension 99001535 "Subc. Purchasing Manager RC" extends "Purchasing Manager Role Center" +pageextension 8159 "Subc. Purchasing Manager RC" extends "Purchasing Manager Role Center" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSMfgFoundation.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSMfgFoundation.PageExt.al index 91bdb6ade54..b4fb815e062 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSMfgFoundation.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSMfgFoundation.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.RoleCenters; -pageextension 99001539 "Subc. Shop S. Mfg Foundation" extends "Shop Supervisor Mfg Foundation" +pageextension 8163 "Subc. Shop S. Mfg Foundation" extends "Shop Supervisor Mfg Foundation" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperActivities.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperActivities.PageExt.al index ac3f18d3204..8a4a7fcd87c 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperActivities.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperActivities.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -pageextension 99001549 "Subc. Shop Super. Activities" extends "Shop Supervisor Activities" +pageextension 8173 "Subc. Shop Super. Activities" extends "Shop Supervisor Activities" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperRoleCenter.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperRoleCenter.PageExt.al index 995ab72af34..e165ac7638a 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperRoleCenter.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperRoleCenter.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.RoleCenters; -pageextension 99001540 "Subc. Shop Super. Role Center" extends "Shop Supervisor Role Center" +pageextension 8164 "Subc. Shop Super. Role Center" extends "Shop Supervisor Role Center" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperbasicActivity.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperbasicActivity.PageExt.al index 6b9a33a9742..a3e3e8f7b3b 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperbasicActivity.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperbasicActivity.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -pageextension 99001550 "Subc. ShopSuperbasicActivity" extends "Shop Super. basic Activities" +pageextension 8174 "Subc. ShopSuperbasicActivity" extends "Shop Super. basic Activities" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaMgmt.Codeunit.al index 7b308107293..2a9579d11bc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaMgmt.Codeunit.al @@ -9,7 +9,7 @@ using Microsoft.Manufacturing.Setup; #endif using System.Environment.Configuration; -codeunit 99001571 "Subc. Application Area Mgmt." +codeunit 8195 "Subc. Application Area Mgmt." { Access = Internal; diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaSetup.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaSetup.TableExt.al index 6551dec314f..bfe5f8e7122 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaSetup.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaSetup.TableExt.al @@ -6,11 +6,11 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Environment.Configuration; -tableextension 99001571 "Subc. Application Area Setup" extends "Application Area Setup" +tableextension 8195 "Subc. Application Area Setup" extends "Application Area Setup" { fields { - field(99001500; Subcontracting; Boolean) + field(8124; Subcontracting; Boolean) { Caption = 'Subcontracting'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.PageExt.al index 8e5e436d0ae..e8672f7bb0d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Setup; -pageextension 99001542 "Subc. Manufacturing Setup" extends "Manufacturing Setup" +pageextension 8166 "Subc. Manufacturing Setup" extends "Manufacturing Setup" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.TableExt.al index ce3a1e14a07..392a8ddeb05 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.TableExt.al @@ -8,16 +8,16 @@ using Microsoft.Foundation.Company; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Setup; -tableextension 99001501 "Subc. Manufacturing Setup" extends "Manufacturing Setup" +tableextension 8125 "Subc. Manufacturing Setup" extends "Manufacturing Setup" { fields { - field(99001500; "Create Prod. Order Info Line"; Boolean) + field(8124; "Create Prod. Order Info Line"; Boolean) { Caption = 'Create Prod. Order Info Line'; DataClassification = CustomerContent; } - field(99001501; "Subcontracting Template Name"; Code[10]) + field(8125; "Subcontracting Template Name"; Code[10]) { Caption = 'Subcontracting Worksheet Template Name'; DataClassification = CustomerContent; @@ -27,7 +27,7 @@ tableextension 99001501 "Subc. Manufacturing Setup" extends "Manufacturing Setup #pragma warning restore AL0432 #pragma warning restore AL0520 } - field(99001502; "Subcontracting Batch Name"; Code[10]) + field(8126; "Subcontracting Batch Name"; Code[10]) { Caption = 'Subcontracting Worksheet Batch Name'; DataClassification = CustomerContent; @@ -38,19 +38,19 @@ tableextension 99001501 "Subc. Manufacturing Setup" extends "Manufacturing Setup #pragma warning restore AL0432 #pragma warning restore AL0520 } - field(99001504; "Component Direct Unit Cost"; Option) + field(8128; "Component Direct Unit Cost"; Option) { Caption = 'Component Direct Unit Cost'; DataClassification = CustomerContent; OptionCaption = 'Standard,Prod. Order Component'; OptionMembers = Standard,"Prod. Order Component"; } - field(99001505; "Subc. Comp. Transfer Lead Time"; DateFormula) + field(8129; "Subc. Comp. Transfer Lead Time"; DateFormula) { Caption = 'Subcontracting Component Transfer Lead Time'; DataClassification = CustomerContent; } - field(99001509; "Subc. Default Comp. Location"; Enum "Components at Location") + field(8133; "Subc. Default Comp. Location"; Enum "Components at Location") { Caption = 'Default Component Location Source'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcCreateTransfOrder.Report.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcCreateTransfOrder.Report.al index d6582de59af..6392bb11eea 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcCreateTransfOrder.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcCreateTransfOrder.Report.al @@ -13,7 +13,7 @@ using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; -report 99001501 "Subc. Create Transf. Order" +report 8125 "Subc. Create Transf. Order" { ApplicationArea = Subcontracting; Caption = 'Create Subcontracting Transfer Order'; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransHeaderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransHeaderExt.TableExt.al index 57f6a846c6f..37fa3ec3597 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransHeaderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransHeaderExt.TableExt.al @@ -7,24 +7,24 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; using Microsoft.Purchases.Vendor; -tableextension 99001524 "Subc. DirectTransHeader Ext." extends "Direct Trans. Header" +tableextension 8148 "Subc. DirectTransHeader Ext." extends "Direct Trans. Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(8154; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(8155; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; } - field(99001536; "Source ID"; Code[20]) + field(8160; "Source ID"; Code[20]) { Caption = 'Source ID'; DataClassification = CustomerContent; @@ -45,17 +45,17 @@ tableextension 99001524 "Subc. DirectTransHeader Ext." extends "Direct Trans. He HandleSubcontractingSourceLookup(Rec); end; } - field(99001537; "Source Ref. No."; Integer) + field(8161; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(99001540; "Source Type"; Enum "Transfer Source Type") + field(8164; "Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(99001541; "Return Order"; Boolean) + field(8165; "Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransLineExt.TableExt.al index cafad48243f..5aaf9bcb831 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransLineExt.TableExt.al @@ -9,35 +9,35 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -tableextension 99001523 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Line" +tableextension 8147 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(8154; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(8155; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(99001532; "Prod. Order No."; Code[20]) + field(8156; "Prod. Order No."; Code[20]) { Caption = 'Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001533; "Prod. Order Line No."; Integer) + field(8157; "Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Prod. Order No.")); } - field(99001534; "Prod. Order Comp. Line No."; Integer) + field(8158; "Prod. Order Comp. Line No."; Integer) { Caption = 'Prod. Order Comp. Line No.'; DataClassification = CustomerContent; @@ -45,24 +45,24 @@ tableextension 99001523 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Lin "Prod. Order No." = field("Prod. Order No."), "Prod. Order Line No." = field("Prod. Order Line No.")); } - field(99001535; "Routing No."; Code[20]) + field(8159; "Routing No."; Code[20]) { Caption = 'Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(99001536; "Routing Reference No."; Integer) + field(8160; "Routing Reference No."; Integer) { Caption = 'Routing Reference No.'; DataClassification = CustomerContent; } - field(99001537; "Work Center No."; Code[20]) + field(8161; "Work Center No."; Code[20]) { Caption = 'Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; } - field(99001538; "Operation No."; Code[10]) + field(8162; "Operation No."; Code[10]) { Caption = 'Operation No.'; DataClassification = CustomerContent; @@ -70,13 +70,13 @@ tableextension 99001523 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Lin "Prod. Order No." = field("Prod. Order No."), "Routing No." = field("Routing No.")); } - field(99001539; "Return Order"; Boolean) + field(8163; "Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; Editable = false; } - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransferLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransferLineExt.Codeunit.al index 9abee3b532e..e00c44a8536 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransferLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransferLineExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 99001548 "Subc. DirectTransferLine Ext." +codeunit 8172 "Subc. DirectTransferLine Ext." { [EventSubscriber(ObjectType::Table, Database::"Direct Trans. Line", OnAfterCopyFromTransferLine, '', false, false)] local procedure OnAfterCopyFromTransferLine_T5745(var DirectTransLine: Record "Direct Trans. Line"; TransferLine: Record "Transfer Line") diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTrans.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTrans.PageExt.al index e5feed5595f..0f5ee90001e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTrans.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTrans.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001531 "Subc. Pstd. Direct Trans." extends "Posted Direct Transfer" +pageextension 8155 "Subc. Pstd. Direct Trans." extends "Posted Direct Transfer" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfSub.PageExt.al index 4dc52dcc857..207b9163434 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfSub.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001532 "Subc. PstdDirectTransfSub" extends "Posted Direct Transfer Subform" +pageextension 8156 "Subc. PstdDirectTransfSub" extends "Posted Direct Transfer Subform" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfers.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfers.PageExt.al index 8b1b0c7e9e7..aebdda2e4c7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfers.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfers.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001554 "Subc. Pstd. Direct Transfers" extends "Posted Direct Transfers" +pageextension 8178 "Subc. Pstd. Direct Transfers" extends "Posted Direct Transfers" { views { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpt.PageExt.al index af3e5d80c51..af8b9f59f5e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpt.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001528 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Receipt" +pageextension 8152 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Receipt" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpts.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpts.PageExt.al index 644db372134..c8d88e00ebc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpts.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpts.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001553 "Subc. Pstd. Transfer Rcpts." extends "Posted Transfer Receipts" +pageextension 8177 "Subc. Pstd. Transfer Rcpts." extends "Posted Transfer Receipts" { views { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpt.PageExt.al index 321f60799f2..e284cbac50d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpt.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001527 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Shipment" +pageextension 8151 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Shipment" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpts.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpts.PageExt.al index 9789bdbef10..d02f8002f66 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpts.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpts.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001552 "Subc. Pstd. Transfer Shpts." extends "Posted Transfer Shipments" +pageextension 8176 "Subc. Pstd. Transfer Shpts." extends "Posted Transfer Shipments" { views { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostRcptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostRcptExt.Codeunit.al index 46086d61667..21724830df8 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostRcptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostRcptExt.Codeunit.al @@ -9,7 +9,7 @@ using Microsoft.Inventory.Location; using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.Document; -codeunit 99001540 "Subc. TransOrderPostRcpt Ext" +codeunit 8164 "Subc. TransOrderPostRcpt Ext" { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostShptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostShptExt.Codeunit.al index b748a6050ad..9ebaa930b7f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostShptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostShptExt.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Journal; using Microsoft.Inventory.Transfer; -codeunit 99001539 "Subc. TransOrderPostShpt Ext" +codeunit 8163 "Subc. TransOrderPostShpt Ext" { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostTransExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostTransExt.Codeunit.al index 271ec96e0ab..04998b6ec3a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostTransExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostTransExt.Codeunit.al @@ -12,7 +12,7 @@ using Microsoft.Inventory.Tracking; using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.Document; -codeunit 99001547 "Subc. TransOrderPostTrans Ext" +codeunit 8171 "Subc. TransOrderPostTrans Ext" { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderSub.PageExt.al index ba4f9074d36..ef3af16a040 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderSub.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001529 "Subc. Trans. Order Sub." extends "Transfer Order Subform" +pageextension 8153 "Subc. Trans. Order Sub." extends "Transfer Order Subform" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.Codeunit.al index c3534b26a82..d8b812d5df4 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 99001542 "Subc. Trans Rcpt Header Ext" +codeunit 8166 "Subc. Trans Rcpt Header Ext" { [EventSubscriber(ObjectType::Table, Database::"Transfer Receipt Header", OnAfterCopyFromTransferHeader, '', false, false)] local procedure OnAfterCopyFromTransferHeader(var TransferReceiptHeader: Record "Transfer Receipt Header"; TransferHeader: Record "Transfer Header") diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.TableExt.al index 77b2dcfe3ba..de5aa352126 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.TableExt.al @@ -6,39 +6,39 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -tableextension 99001521 "Subc. Trans Rcpt Header Ext." extends "Transfer Receipt Header" +tableextension 8145 "Subc. Trans Rcpt Header Ext." extends "Transfer Receipt Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(8154; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(8155; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; } - field(99001536; "Source ID"; Code[20]) + field(8160; "Source ID"; Code[20]) { Caption = 'Source ID'; DataClassification = CustomerContent; } - field(99001537; "Source Ref. No."; Integer) + field(8161; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(99001540; "Subc. Source Type"; Enum "Transfer Source Type") + field(8164; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(99001541; "Subc. Return Order"; Boolean) + field(8165; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.Codeunit.al index 4f1392091af..b3431778a15 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 99001543 "Subc. Trans Shpt Header Ext" +codeunit 8167 "Subc. Trans Shpt Header Ext" { [EventSubscriber(ObjectType::Table, Database::"Transfer Shipment Header", OnAfterCopyFromTransferHeader, '', false, false)] local procedure OnAfterCopyFromTransferHeader(var TransferShipmentHeader: Record "Transfer Shipment Header"; TransferHeader: Record "Transfer Header") diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.TableExt.al index 493b652f12a..6e303a4115e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.TableExt.al @@ -6,44 +6,44 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -tableextension 99001522 "Subc. Trans Shpt Header Ext." extends "Transfer Shipment Header" +tableextension 8146 "Subc. Trans Shpt Header Ext." extends "Transfer Shipment Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(8154; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies the number of the related purchase order.'; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(8155; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies the number of the related purchase order line.'; } - field(99001536; "Source ID"; Code[20]) + field(8160; "Source ID"; Code[20]) { Caption = 'Source ID'; DataClassification = CustomerContent; ToolTip = 'Specifies which source ID the transfer order is related to.'; } - field(99001537; "Source Ref. No."; Integer) + field(8161; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; ToolTip = 'Specifies a reference number for the line, which the transfer order is related to.'; } - field(99001540; "Subc. Source Type"; Enum "Transfer Source Type") + field(8164; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; ToolTip = 'Specifies for which source type the transfer order is related to.'; } - field(99001541; "Subc. Return Order"; Boolean) + field(8165; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeader.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeader.TableExt.al index 1be57ed2b87..521fff71a3f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeader.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeader.TableExt.al @@ -7,24 +7,24 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; using Microsoft.Purchases.Vendor; -tableextension 99001520 "Subc. Transfer Header" extends "Transfer Header" +tableextension 8144 "Subc. Transfer Header" extends "Transfer Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(8154; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(8155; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; } - field(99001536; "Source ID"; Code[20]) + field(8160; "Source ID"; Code[20]) { Caption = 'Source ID'; DataClassification = CustomerContent; @@ -45,17 +45,17 @@ tableextension 99001520 "Subc. Transfer Header" extends "Transfer Header" HandleSubcontractingSourceLookup(Rec); end; } - field(99001537; "Source Ref. No."; Integer) + field(8161; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(99001540; "Subc. Source Type"; Enum "Transfer Source Type") + field(8164; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(99001541; "Subc. Return Order"; Boolean) + field(8165; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeaderExt.Codeunit.al index 85c0a588da3..344551b0ea9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeaderExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 99001507 "Subc. Transfer Header Ext." +codeunit 8131 "Subc. Transfer Header Ext." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLine.TableExt.al index a3b67b6ace2..b06fd60f40f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLine.TableExt.al @@ -14,31 +14,31 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Warehouse.Document; -tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" +tableextension 8141 "Subc. Transfer Line" extends "Transfer Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subc. Purch. Order No."; Code[20]) + field(8154; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; ToolTip = 'Specifies the number of the related purchase order.'; } - field(99001531; "Subc. Purch. Order Line No."; Integer) + field(8155; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; ToolTip = 'Specifies the number of the related purchase order line.'; } - field(99001532; "Subc. Prod. Order No."; Code[20]) + field(8156; "Subc. Prod. Order No."; Code[20]) { Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); ToolTip = 'Specifies the number of the related production order.'; } - field(99001533; "Subc. Prod. Order Line No."; Integer) + field(8157; "Subc. Prod. Order Line No."; Integer) { Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; @@ -46,7 +46,7 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" "Prod. Order No." = field("Subc. Prod. Order No.")); ToolTip = 'Specifies the number of the related production order line.'; } - field(99001534; "Subc. Prod. Ord. Comp Line No."; Integer) + field(8158; "Subc. Prod. Ord. Comp Line No."; Integer) { Caption = 'Subc. Prod. Order Comp. Line No.'; DataClassification = CustomerContent; @@ -55,27 +55,27 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" "Prod. Order Line No." = field("Subc. Prod. Order Line No.")); ToolTip = 'Specifies the line number of the related production order component line.'; } - field(99001535; "Subc. Routing No."; Code[20]) + field(8159; "Subc. Routing No."; Code[20]) { Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; ToolTip = 'Specifies the number of the related production routing.'; } - field(99001536; "Subc. Routing Reference No."; Integer) + field(8160; "Subc. Routing Reference No."; Integer) { Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; ToolTip = 'Specifies the number of the related production routing reference no.'; } - field(99001537; "Subc. Work Center No."; Code[20]) + field(8161; "Subc. Work Center No."; Code[20]) { Caption = 'Subc. Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; ToolTip = 'Specifies the number of the related production work center.'; } - field(99001538; "Subc. Operation No."; Code[10]) + field(8162; "Subc. Operation No."; Code[10]) { Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; @@ -84,14 +84,14 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" "Routing No." = field("Subc. Routing No.")); ToolTip = 'Specifies the number of the related production operation no.'; } - field(99001539; "Subc. Return Order"; Boolean) + field(8163; "Subc. Return Order"; Boolean) { Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies whether the existing transfer order is a return of the subcontractor.'; } - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -121,7 +121,7 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" Validate(Quantity); end; } - field(99001561; "Whse. Inbnd. Otsdg. Qty"; Decimal) + field(8185; "Whse. Inbnd. Otsdg. Qty"; Decimal) { AutoFormatType = 0; BlankZero = true; @@ -135,7 +135,7 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" FieldClass = FlowField; ToolTip = 'Specifies the outstanding quantity on warehouse receipts for this transfer line.'; } - field(99001562; "Whse Outbnd. Otsdg. Qty"; Decimal) + field(8186; "Whse Outbnd. Otsdg. Qty"; Decimal) { AutoFormatType = 0; BlankZero = true; @@ -149,7 +149,7 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" FieldClass = FlowField; ToolTip = 'Specifies the outstanding quantity on warehouse shipments for this transfer line.'; } - field(99001563; "Prev. Operation No."; Code[10]) + field(8187; "Prev. Operation No."; Code[10]) { AllowInCustomizations = AsReadOnly; Caption = 'Previous Operation No.'; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineExt.Codeunit.al index 9c98ac68dcb..789db693a75 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineExt.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; using Microsoft.Inventory.Transfer; -codeunit 99001544 "Subc. Transfer Line Ext." +codeunit 8168 "Subc. Transfer Line Ext." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineFactbox.Page.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineFactbox.Page.al index 4448ef9ad31..d5b18076114 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineFactbox.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineFactbox.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -page 99001501 "Subc. Transfer Line Factbox" +page 8125 "Subc. Transfer Line Factbox" { ApplicationArea = Subcontracting; Caption = 'Subcontracting Details'; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLines.PageExt.al index 0841fd4d426..586267f70a5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001530 "Subc. Transfer Lines" extends "Transfer Lines" +pageextension 8154 "Subc. Transfer Lines" extends "Transfer Lines" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferManagement.Codeunit.al index 77d43b2169a..ee1ac97b8ef 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferManagement.Codeunit.al @@ -13,7 +13,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Setup; using Microsoft.Purchases.Document; -codeunit 99001504 "Subc. Transfer Management" +codeunit 8128 "Subc. Transfer Management" { var ManufacturingSetup: Record "Manufacturing Setup"; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrder.PageExt.al index 59274755816..c550229978b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrder.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001526 "Subc. Transfer Order" extends "Transfer Order" +pageextension 8150 "Subc. Transfer Order" extends "Transfer Order" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrders.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrders.PageExt.al index b24eccc3498..6296ea1ec72 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrders.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrders.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 99001551 "Subc. Transfer Orders" extends "Transfer Orders" +pageextension 8175 "Subc. Transfer Orders" extends "Transfer Orders" { views { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.Codeunit.al index f6f2460dc79..eaab9a00ea2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 99001538 "Subc. Transfer Rcpt Line Ext." +codeunit 8162 "Subc. Transfer Rcpt Line Ext." { [EventSubscriber(ObjectType::Table, Database::"Transfer Receipt Line", OnAfterCopyFromTransferLine, '', false, false)] local procedure OnAfterCopyFromTransferLine_T5745(var TransferReceiptLine: Record "Transfer Receipt Line"; TransferLine: Record "Transfer Line") diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.TableExt.al index 9773cf55168..ff017bb0d96 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.TableExt.al @@ -9,35 +9,35 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -tableextension 99001518 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receipt Line" +tableextension 8142 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receipt Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subc. Purch. Order No."; Code[20]) + field(8154; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; } - field(99001531; "Subc. Purch. Order Line No."; Integer) + field(8155; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(99001532; "Subc. Prod. Order No."; Code[20]) + field(8156; "Subc. Prod. Order No."; Code[20]) { Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001533; "Subc. Prod. Order Line No."; Integer) + field(8157; "Subc. Prod. Order Line No."; Integer) { Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(99001534; "Subc. Prod. Ord. Comp Line No."; Integer) + field(8158; "Subc. Prod. Ord. Comp Line No."; Integer) { Caption = 'Subc. Prod. Ord. Comp Line No.'; DataClassification = CustomerContent; @@ -45,24 +45,24 @@ tableextension 99001518 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receip "Prod. Order No." = field("Subc. Prod. Order No."), "Prod. Order Line No." = field("Subc. Prod. Order Line No.")); } - field(99001535; "Subc. Routing No."; Code[20]) + field(8159; "Subc. Routing No."; Code[20]) { Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(99001536; "Subc. Routing Reference No."; Integer) + field(8160; "Subc. Routing Reference No."; Integer) { Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; } - field(99001537; "Subc. Work Center No."; Code[20]) + field(8161; "Subc. Work Center No."; Code[20]) { Caption = 'Subc. Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; } - field(99001538; "Subc. Operation No."; Code[10]) + field(8162; "Subc. Operation No."; Code[10]) { Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; @@ -70,13 +70,13 @@ tableextension 99001518 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receip "Prod. Order No." = field("Subc. Prod. Order No."), "Routing No." = field("Subc. Routing No.")); } - field(99001539; "Subc. Return Order"; Boolean) + field(8163; "Subc. Return Order"; Boolean) { Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; } - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.Codeunit.al index f5b324f67e5..9b32eec0371 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 99001537 "Subc. Transfer Shpt Line Ext." +codeunit 8161 "Subc. Transfer Shpt Line Ext." { [EventSubscriber(ObjectType::Table, Database::"Transfer Shipment Line", OnAfterCopyFromTransferLine, '', false, false)] local procedure OnAfterCopyFromTransferLine_T5745(var TransferShipmentLine: Record "Transfer Shipment Line"; TransferLine: Record "Transfer Line") diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.TableExt.al index f7cfd6f7089..a049ae23bcb 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.TableExt.al @@ -9,35 +9,35 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -tableextension 99001519 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipment Line" +tableextension 8143 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipment Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subc. Purch. Order No."; Code[20]) + field(8154; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; } - field(99001531; "Subc. Purch. Order Line No."; Integer) + field(8155; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(99001532; "Subc. Prod. Order No."; Code[20]) + field(8156; "Subc. Prod. Order No."; Code[20]) { Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001533; "Subc. Prod. Order Line No."; Integer) + field(8157; "Subc. Prod. Order Line No."; Integer) { Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(99001534; "Subc. Prod. Ord. Comp Line No."; Integer) + field(8158; "Subc. Prod. Ord. Comp Line No."; Integer) { Caption = 'Subc. Prod. Ord. Comp Line No.'; DataClassification = CustomerContent; @@ -45,24 +45,24 @@ tableextension 99001519 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipme "Prod. Order No." = field("Subc. Prod. Order No."), "Prod. Order Line No." = field("Subc. Prod. Order Line No.")); } - field(99001535; "Subc. Routing No."; Code[20]) + field(8159; "Subc. Routing No."; Code[20]) { Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(99001536; "Subc. Routing Reference No."; Integer) + field(8160; "Subc. Routing Reference No."; Integer) { Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; } - field(99001537; "Subc. Work Center No."; Code[20]) + field(8161; "Subc. Work Center No."; Code[20]) { Caption = 'Subc. Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; } - field(99001538; "Subc. Operation No."; Code[10]) + field(8162; "Subc. Operation No."; Code[10]) { Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; @@ -70,13 +70,13 @@ tableextension 99001519 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipme "Prod. Order No." = field("Subc. Prod. Order No."), "Routing No." = field("Subc. Routing No.")); } - field(99001539; "Subc. Return Order"; Boolean) + field(8163; "Subc. Return Order"; Boolean) { Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; } - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/TransferSourceType.Enum.al b/src/Apps/W1/Subcontracting/App/src/Transfer/TransferSourceType.Enum.al index 40c862fdcc3..0d4021b4ef4 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/TransferSourceType.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/TransferSourceType.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 99001501 "Transfer Source Type" +enum 8125 "Transfer Source Type" { Extensible = true; value(0; Empty) diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeProdOrderStatus.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeProdOrderStatus.Codeunit.al index 7a19a960f2e..1fc51ac4891 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeProdOrderStatus.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeProdOrderStatus.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.Document; -codeunit 99001549 "Subc. Change Prod.Order Status" +codeunit 8173 "Subc. Change Prod.Order Status" { Permissions = TableData "Subcontractor WIP Ledger Entry" = RIMD; #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeStatusProdOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeStatusProdOrder.PageExt.al index e5dd4bd0de0..b39dfae2177 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeStatusProdOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeStatusProdOrder.PageExt.al @@ -5,7 +5,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -pageextension 99001544 "Subc.Change Status Prod. Order" extends "Change Status on Prod. Order" +pageextension 8168 "Subc.Change Status Prod. Order" extends "Change Status on Prod. Order" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewBinding.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewBinding.Codeunit.al index 2eaf529a7b7..3bc835d6b9f 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewBinding.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewBinding.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Finance.GeneralLedger.Preview; -codeunit 99001565 "Subc. Posting Preview Binding" +codeunit 8189 "Subc. Posting Preview Binding" { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewSubscr.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewSubscr.Codeunit.al index 054186997b8..4bfe7612914 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewSubscr.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewSubscr.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Finance.GeneralLedger.Preview; using Microsoft.Foundation.Navigate; -codeunit 99001566 "Subc. Posting Preview Subscr." +codeunit 8190 "Subc. Posting Preview Subscr." { var TempSubcontractorWIPLedgerEntry: Record "Subcontractor WIP Ledger Entry" temporary; diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPstPrevEventHandler.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPstPrevEventHandler.Codeunit.al index 204e32c49f7..b4ef0710515 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPstPrevEventHandler.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPstPrevEventHandler.Codeunit.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -codeunit 99001567 "Subc. Pst. Prev. Event Handler" +codeunit 8191 "Subc. Pst. Prev. Event Handler" { EventSubscriberInstance = Manual; SingleInstance = true; diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcTransferWIPPosting.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcTransferWIPPosting.Codeunit.al index e4abfb32b43..4f3f60594ee 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcTransferWIPPosting.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcTransferWIPPosting.Codeunit.al @@ -17,7 +17,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Vendor; using Microsoft.Warehouse.Document; -codeunit 99001541 "Subc. Transfer WIP Posting" +codeunit 8165 "Subc. Transfer WIP Posting" { Permissions = TableData "Subcontractor WIP Ledger Entry" = RIMD; diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPAdjustment.Page.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPAdjustment.Page.al index 9f0b8a83e6d..6f0a49df15f 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPAdjustment.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPAdjustment.Page.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; using Microsoft.Manufacturing.Document; -page 99001561 "Subc. WIP Adjustment" +page 8185 "Subc. WIP Adjustment" { ApplicationArea = Subcontracting; Caption = 'WIP Adjustment'; diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPItemLedgFindEntry.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPItemLedgFindEntry.Codeunit.al index 599d4d032b8..4e13fdb1bda 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPItemLedgFindEntry.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPItemLedgFindEntry.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Foundation.Navigate; -codeunit 99001564 "Subc. WIP Item Ledg Find Entry" +codeunit 8188 "Subc. WIP Item Ledg Find Entry" { var diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPLedgerEntries.Page.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPLedgerEntries.Page.al index 5e9e984d89f..c39e2d54ca0 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPLedgerEntries.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPLedgerEntries.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -page 99001560 "Subc. WIP Ledger Entries" +page 8184 "Subc. WIP Ledger Entries" { ApplicationArea = Subcontracting; Caption = 'Subcontracting WIP Entries'; diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcontractorWIPLedgerEntry.Table.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcontractorWIPLedgerEntry.Table.al index 98f888fe893..eea6b5ea2ee 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcontractorWIPLedgerEntry.Table.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcontractorWIPLedgerEntry.Table.al @@ -11,7 +11,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -table 99001560 "Subcontractor WIP Ledger Entry" +table 8184 "Subcontractor WIP Ledger Entry" { AllowInCustomizations = AsReadOnly; Caption = 'Subcontractor WIP Ledger Entry'; diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPDocumentType.Enum.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPDocumentType.Enum.al index ce2d071ddad..810350a4944 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPDocumentType.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPDocumentType.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 99001509 "WIP Document Type" +enum 8133 "WIP Document Type" { Extensible = true; value(0; "Transfer Order") diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPLedgerEntryType.Enum.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPLedgerEntryType.Enum.al index c5fcfe47e6e..7f68a4094ed 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPLedgerEntryType.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPLedgerEntryType.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 99001508 "WIP Ledger Entry Type" +enum 8132 "WIP Ledger Entry Type" { Extensible = true; value(0; "Positive Adjustment") diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPostedWhseReceiptLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPostedWhseReceiptLine.TableExt.al index 5aaac1af9b0..fcb832b5385 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPostedWhseReceiptLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPostedWhseReceiptLine.TableExt.al @@ -7,18 +7,18 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.History; -tableextension 99001526 "Subc. Posted Whse Receipt Line" extends "Posted Whse. Receipt Line" +tableextension 8150 "Subc. Posted Whse Receipt Line" extends "Posted Whse. Receipt Line" { fields { - field(99001549; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") + field(8173; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") { Caption = 'Subcontracting Line Type'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies the subcontracting purchase line type associated with the warehouse receipt line.'; } - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseRcptSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseRcptSub.PageExt.al index 90670d9df74..e528527fe29 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseRcptSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseRcptSub.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.History; -pageextension 99001545 "Subc. Pstd. Whse Rcpt Sub" extends "Posted Whse. Receipt Subform" +pageextension 8169 "Subc. Pstd. Whse Rcpt Sub" extends "Posted Whse. Receipt Subform" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmSub.PageExt.al index 2fc6b6d084a..f8e9847fa01 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmSub.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.History; -pageextension 99001546 "Subc. Pstd. Whse Shipm Sub" extends "Posted Whse. Shipment Subform" +pageextension 8170 "Subc. Pstd. Whse Shipm Sub" extends "Posted Whse. Shipment Subform" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmentLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmentLine.TableExt.al index ac95dfec994..4713471fe56 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmentLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmentLine.TableExt.al @@ -7,11 +7,11 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.History; -tableextension 99001528 "Subc. Pstd. Whse Shipment Line" extends "Posted Whse. Shipment Line" +tableextension 8152 "Subc. Pstd. Whse Shipment Line" extends "Posted Whse. Shipment Line" { fields { - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseReceiptLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseReceiptLine.TableExt.al index 3705adfa336..0777f1a61a9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseReceiptLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseReceiptLine.TableExt.al @@ -7,18 +7,18 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.Document; -tableextension 99001525 "Subc. Warehouse Receipt Line" extends "Warehouse Receipt Line" +tableextension 8149 "Subc. Warehouse Receipt Line" extends "Warehouse Receipt Line" { fields { - field(99001549; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") + field(8173; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") { Caption = 'Subcontracting Line Type'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies the subcontracting purchase line type associated with the warehouse receipt line.'; } - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseShipmentLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseShipmentLine.TableExt.al index 25bf71260d9..ce0e9c7a9dc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseShipmentLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseShipmentLine.TableExt.al @@ -7,11 +7,11 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.Document; -tableextension 99001527 "Subc. Warehouse Shipment Line" extends "Warehouse Shipment Line" +tableextension 8151 "Subc. Warehouse Shipment Line" extends "Warehouse Shipment Line" { fields { - field(99001560; "Transfer WIP Item"; Boolean) + field(8184; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostReceiptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostReceiptExt.Codeunit.al index abb7b8f24a5..8ed4c570282 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostReceiptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostReceiptExt.Codeunit.al @@ -15,7 +15,7 @@ using Microsoft.Warehouse.Document; using Microsoft.Warehouse.History; using Microsoft.Warehouse.Journal; -codeunit 99001551 "Subc. WhsePostReceipt Ext" +codeunit 8175 "Subc. WhsePostReceipt Ext" { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostShipmentExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostShipmentExt.Codeunit.al index 9d5d0b81445..96a2e1faa4d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostShipmentExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostShipmentExt.Codeunit.al @@ -11,7 +11,7 @@ using Microsoft.Warehouse.Document; using Microsoft.Warehouse.History; using Microsoft.Warehouse.Request; -codeunit 99001563 "Subc. WhsePostShipment Ext" +codeunit 8187 "Subc. WhsePostShipment Ext" { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al index 35579f4f8ee..431ad438ba4 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -codeunit 99001550 "Subc. WhsePurchRelease Ext" +codeunit 8174 "Subc. WhsePurchRelease Ext" { [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Purch. Release", OnAfterReleaseSetFilters, '', false, false)] local procedure OnAfterReleaseSetFilters(var PurchaseLine: Record "Purchase Line"; PurchaseHeader: Record "Purchase Header") diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptLinesExt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptLinesExt.PageExt.al index 06be6e6c90a..a97efd48585 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptLinesExt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptLinesExt.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; using Microsoft.Warehouse.Document; -pageextension 99001534 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines" +pageextension 8158 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptSubformExt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptSubformExt.PageExt.al index 9892ed621c8..952d024a5f3 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptSubformExt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptSubformExt.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; using Microsoft.Warehouse.Document; -pageextension 99001533 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Subform" +pageextension 8157 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Subform" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseShipmSubformExt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseShipmSubformExt.PageExt.al index db73fe7749f..4a4fd74848e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseShipmSubformExt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseShipmSubformExt.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.Document; -pageextension 99001547 "Subc. Whse Shipm. Subform Ext." extends "Whse. Shipment Subform" +pageextension 8171 "Subc. Whse Shipm. Subform Ext." extends "Whse. Shipment Subform" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcReqWkshTempTypeExt.EnumExt.al b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcReqWkshTempTypeExt.EnumExt.al index 116deab4764..ef8f62eb217 100644 --- a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcReqWkshTempTypeExt.EnumExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcReqWkshTempTypeExt.EnumExt.al @@ -5,9 +5,9 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; -enumextension 99001500 "Subc. ReqWkshTempType Ext." extends "Req. Worksheet Template Type" +enumextension 8124 "Subc. ReqWkshTempType Ext." extends "Req. Worksheet Template Type" { - value(99001500; Subcontracting) + value(8124; Subcontracting) { Caption = 'Subcontracting'; } diff --git a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcSubcontractingWorksheet.Page.al b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcSubcontractingWorksheet.Page.al index 9faebd854e3..3c85c0a2b7a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcSubcontractingWorksheet.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcSubcontractingWorksheet.Page.al @@ -10,7 +10,7 @@ using Microsoft.Inventory.Item; using Microsoft.Inventory.Requisition; using System.Security.User; -page 99001504 "Subc. Subcontracting Worksheet" +page 8128 "Subc. Subcontracting Worksheet" { ApplicationArea = Subcontracting; AutoSplitKey = true; diff --git a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcWorksheetHandler.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcWorksheetHandler.Codeunit.al index fceab2be7e9..052b2bb8d8c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcWorksheetHandler.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcWorksheetHandler.Codeunit.al @@ -5,7 +5,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; -codeunit 99001558 "Subc. Worksheet Handler" +codeunit 8182 "Subc. Worksheet Handler" { [EventSubscriber(ObjectType::Codeunit, Codeunit::ReqJnlManagement, OnOpenJnlBatchOnBeforeTemplateSelection, '', false, false)] local procedure OnOpenJnlBatchOnBeforeTemplateSelection(var RequisitionWkshName: Record "Requisition Wksh. Name"; var ReqWorksheetTemplateTypeList: List of [Enum Microsoft.Inventory.Requisition."Req. Worksheet Template Type"]) From e99b639ca9790d64a41da6c58c6f6c706950a505 Mon Sep 17 00:00:00 2001 From: Chethan Thopaiah Date: Tue, 28 Jul 2026 22:32:06 +0200 Subject: [PATCH 2/7] Migration code added --- .../src/Install/SubcDataMigration.Codeunit.al | 326 ++++++++++++++++++ .../Install/SubcontractingInstall.Codeunit.al | 4 + 2 files changed, 330 insertions(+) create mode 100644 src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al new file mode 100644 index 00000000000..4b8d90c8270 --- /dev/null +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al @@ -0,0 +1,326 @@ +// ------------------------------------------------------------------------------------------------ +// 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.Subcontracting; + +using Microsoft.Inventory.Journal; +using Microsoft.Inventory.Ledger; +using Microsoft.Inventory.Planning; +using Microsoft.Inventory.Requisition; +using Microsoft.Inventory.Transfer; +using Microsoft.Manufacturing.Capacity; +using Microsoft.Manufacturing.Document; +using Microsoft.Manufacturing.ProductionBOM; +using Microsoft.Manufacturing.Routing; +using Microsoft.Manufacturing.Setup; +using Microsoft.Purchases.Archive; +using Microsoft.Purchases.Document; +using Microsoft.Purchases.History; +using Microsoft.Purchases.Vendor; +using Microsoft.Warehouse.Document; +using Microsoft.Warehouse.History; +using System.Environment.Configuration; +using System.Reflection; +using System.Upgrade; + +codeunit 8133 "Subc. Data Migration" +{ + Access = Internal; + + internal procedure MigrateRenumberedData() + var + UpgradeTag: Codeunit "Upgrade Tag"; + begin + if UpgradeTag.HasUpgradeTag(GetRenumberedDataMigrationTag()) then begin + LogMigrationNotInitiated(MigrationAlreadyCompletedLbl); + exit; + end; + + if not IsOldTableAvailable(Database::"Subcontractor WIP Ledger Entry") then begin + LogMigrationNotInitiated(OldTableNotAvailableLbl); + SetRenumberedDataMigrationTag(); + exit; + end; + + LogMigrationInitiated(); + MigrateRenumberedTables(); + MigrateInventoryFields(); + MigrateManufacturingFields(); + MigratePurchaseFields(); + MigrateSetupFields(); + MigrateTransferFields(); + MigrateWarehouseFields(); + + SetRenumberedDataMigrationTag(); + end; + + local procedure LogMigrationInitiated() + begin + Session.LogMessage('', MigrationInitiatedMsg, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', TelemetryCategoryLbl); + end; + + local procedure LogMigrationNotInitiated(Reason: Text) + begin + Session.LogMessage('', StrSubstNo(MigrationNotInitiatedMsg, Reason), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', TelemetryCategoryLbl); + end; + + internal procedure SetRenumberedDataMigrationTag() + var + UpgradeTag: Codeunit "Upgrade Tag"; + begin + if not UpgradeTag.HasUpgradeTag(GetRenumberedDataMigrationTag()) then + UpgradeTag.SetUpgradeTag(GetRenumberedDataMigrationTag()); + end; + + local procedure MigrateRenumberedTables() + begin + MigrateTableData(Database::"Subcontractor Price"); + MigrateTableData(Database::"Subcontractor WIP Ledger Entry"); + end; + + local procedure MigrateInventoryFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '8134,8135,8136,8137,8138'); + MigrateTableExtensionFields(Database::"Item Ledger Entry", FieldIds); + + SetFieldIds(FieldIds, '8134,8135,8136,8137,8138,8166'); + MigrateTableExtensionFields(Database::"Item Journal Line", FieldIds); + end; + + local procedure MigrateManufacturingFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '8124,8136,8137'); + MigrateTableExtensionFields(Database::"Capacity Ledger Entry", FieldIds); + + SetFieldIds(FieldIds, '8148,8149,8150'); + MigrateTableExtensionFields(Database::"Planning Component", FieldIds); + + SetFieldIds(FieldIds, '8146'); + MigrateTableExtensionFields(Database::"Production BOM Line", FieldIds); + + SetFieldIds(FieldIds, '8146,8147,8152'); + MigrateTableExtensionFields(Database::"Prod. Order Component", FieldIds); + + SetFieldIds(FieldIds, '8174,8184,8185,8186'); + MigrateTableExtensionFields(Database::"Prod. Order Routing Line", FieldIds); + + SetFieldIds(FieldIds, '8176'); + MigrateTableExtensionFields(Database::"Production Order", FieldIds); + + SetFieldIds(FieldIds, '8184,8185,8186'); + MigrateTableExtensionFields(Database::"Routing Line", FieldIds); + end; + + local procedure MigratePurchaseFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '8139,8141'); + MigrateTableExtensionFields(Database::Vendor, FieldIds); + + SetFieldIds(FieldIds, '8167,8168,8169,8170,8171,8172'); + MigrateTableExtensionFields(Database::"Purch. Cr. Memo Line", FieldIds); + MigrateTableExtensionFields(Database::"Purch. Inv. Line", FieldIds); + MigrateTableExtensionFields(Database::"Purch. Rcpt. Line", FieldIds); + MigrateTableExtensionFields(Database::"Purchase Line Archive", FieldIds); + + SetFieldIds(FieldIds, '8144'); + MigrateTableExtensionFields(Database::"Purchase Header", FieldIds); + MigrateTableExtensionFields(Database::"Purchase Header Archive", FieldIds); + + SetFieldIds(FieldIds, '8167,8168,8169,8170,8171,8172,8173,8184'); + MigrateTableExtensionFields(Database::"Purchase Line", FieldIds); + + SetFieldIds(FieldIds, '8140,8141,8142,8143,8144'); + MigrateTableExtensionFields(Database::"Requisition Line", FieldIds); + end; + + local procedure MigrateSetupFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '8124'); + MigrateTableExtensionFields(Database::"Application Area Setup", FieldIds); + + SetFieldIds(FieldIds, '8124,8125,8126,8128,8129,8133'); + MigrateTableExtensionFields(Database::"Manufacturing Setup", FieldIds); + end; + + local procedure MigrateTransferFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '8154,8155,8160,8161,8164,8165'); + MigrateTableExtensionFields(Database::"Direct Trans. Header", FieldIds); + MigrateTableExtensionFields(Database::"Transfer Receipt Header", FieldIds); + MigrateTableExtensionFields(Database::"Transfer Shipment Header", FieldIds); + MigrateTableExtensionFields(Database::"Transfer Header", FieldIds); + + SetFieldIds(FieldIds, '8154,8155,8156,8157,8158,8159,8160,8161,8162,8163,8184'); + MigrateTableExtensionFields(Database::"Direct Trans. Line", FieldIds); + MigrateTableExtensionFields(Database::"Transfer Receipt Line", FieldIds); + MigrateTableExtensionFields(Database::"Transfer Shipment Line", FieldIds); + + SetFieldIds(FieldIds, '8154,8155,8156,8157,8158,8159,8160,8161,8162,8163,8184,8187'); + MigrateTableExtensionFields(Database::"Transfer Line", FieldIds); + end; + + local procedure MigrateWarehouseFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '8173,8184'); + MigrateTableExtensionFields(Database::"Posted Whse. Receipt Line", FieldIds); + MigrateTableExtensionFields(Database::"Warehouse Receipt Line", FieldIds); + + SetFieldIds(FieldIds, '8184'); + MigrateTableExtensionFields(Database::"Posted Whse. Shipment Line", FieldIds); + MigrateTableExtensionFields(Database::"Warehouse Shipment Line", FieldIds); + end; + + local procedure MigrateTableData(NewTableId: Integer) + var + OldRecordRef: RecordRef; + NewRecordRef: RecordRef; + OldFieldRef: FieldRef; + NewFieldRef: FieldRef; + FieldIndex: Integer; + begin + if not OpenOldTableIfAvailable(NewTableId, OldRecordRef) then + exit; + + NewRecordRef.Open(NewTableId); + if OldRecordRef.FindSet() then + repeat + NewRecordRef.Init(); + for FieldIndex := 1 to OldRecordRef.FieldCount() do begin + OldFieldRef := OldRecordRef.FieldIndex(FieldIndex); + if (OldFieldRef.Class = FieldClass::Normal) and (OldFieldRef.Number < 2000000000) and NewRecordRef.FieldExist(OldFieldRef.Number) then begin + NewFieldRef := NewRecordRef.Field(OldFieldRef.Number); + NewFieldRef.Value := OldFieldRef.Value; + end; + end; + NewRecordRef.Insert(false); + until OldRecordRef.Next() = 0; + OldRecordRef.Close(); + NewRecordRef.Close(); + end; + + local procedure MigrateTableExtensionFields(TableId: Integer; NewFieldIds: List of [Integer]) + var + RecordRef: RecordRef; + OldFieldRef: FieldRef; + NewFieldRef: FieldRef; + FieldIndex: Integer; + RecordModified: Boolean; + begin + RecordRef.Open(TableId); + if not AreOldFieldsAvailable(RecordRef, NewFieldIds) then begin + RecordRef.Close(); + exit; + end; + + if RecordRef.FindSet(true) then + repeat + RecordModified := false; + for FieldIndex := 1 to NewFieldIds.Count() do begin + OldFieldRef := RecordRef.Field(GetOldId(NewFieldIds.Get(FieldIndex))); + NewFieldRef := RecordRef.Field(NewFieldIds.Get(FieldIndex)); + if NewFieldRef.Value <> OldFieldRef.Value then begin + NewFieldRef.Value := OldFieldRef.Value; + RecordModified := true; + end; + end; + if RecordModified then + RecordRef.Modify(false); + until RecordRef.Next() = 0; + RecordRef.Close(); + end; + + local procedure AreOldFieldsAvailable(RecordRef: RecordRef; NewFieldIds: List of [Integer]): Boolean + var + FieldIndex: Integer; + begin + for FieldIndex := 1 to NewFieldIds.Count() do + if not RecordRef.FieldExist(GetOldId(NewFieldIds.Get(FieldIndex))) then + exit(false); + + exit(true); + end; + + local procedure IsOldTableAvailable(NewTableId: Integer): Boolean + var + OldRecordRef: RecordRef; + begin + if not OpenOldTableIfAvailable(NewTableId, OldRecordRef) then + exit(false); + + OldRecordRef.Close(); + exit(true); + end; + + local procedure OpenOldTableIfAvailable(NewTableId: Integer; var OldRecordRef: RecordRef): Boolean + var + OldTableMetadata: Record "Table Metadata"; + NewTableMetadata: Record "Table Metadata"; + OldTableId: Integer; + begin + OldTableId := GetOldId(NewTableId); + if not OldTableMetadata.Get(OldTableId) then + exit(false); + if not NewTableMetadata.Get(NewTableId) then + exit(false); + if (OldTableMetadata.ID <> OldTableId) or (OldTableMetadata.Caption <> NewTableMetadata.Caption) then + exit(false); + + OldRecordRef.Open(OldTableId); + exit(true); + end; + + local procedure SetFieldIds(var FieldIds: List of [Integer]; FieldIdText: Text) + var + FieldIdList: List of [Text]; + FieldIndex: Integer; + FieldId: Integer; + begin + Clear(FieldIds); + FieldIdList := FieldIdText.Split(','); + for FieldIndex := 1 to FieldIdList.Count() do begin + Evaluate(FieldId, FieldIdList.Get(FieldIndex)); + FieldIds.Add(FieldId); + end; + end; + + local procedure GetOldId(NewId: Integer): Integer + begin + exit(NewId + GetRenumberingOffset()); + end; + + local procedure GetRenumberingOffset(): Integer + begin + exit(98993376); + end; + + [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade Tag", 'OnGetPerCompanyUpgradeTags', '', false, false)] + local procedure RegisterPerCompanyUpgradeTag(var PerCompanyUpgradeTags: List of [Code[250]]) + begin + PerCompanyUpgradeTags.Add(GetRenumberedDataMigrationTag()); + end; + + local procedure GetRenumberedDataMigrationTag(): Code[250] + begin + exit('MS-Subcontracting-RenumberObjects-28.3-20260728'); + end; + + var + MigrationInitiatedMsg: Label 'Subcontracting renumbering data migration was initiated.', Locked = true; + MigrationNotInitiatedMsg: Label 'Subcontracting renumbering data migration was not initiated. Reason: %1', Locked = true; + MigrationAlreadyCompletedLbl: Label 'The migration upgrade tag is already set.', Locked = true; + OldTableNotAvailableLbl: Label 'The legacy Subcontractor WIP Ledger Entry table is not available.', Locked = true; + TelemetryCategoryLbl: Label 'Subcontracting', Locked = true; +} diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al index d1dcd072af6..e146defe740 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al @@ -35,16 +35,20 @@ codeunit 8125 "Subcontracting Install" local procedure HandleFreshInstallPerCompany() var + SubcontractingDataMigration: Codeunit "Subc. Data Migration"; SubcontractingCompInit: Codeunit "Subcontracting Comp. Init."; begin SubcontractingCompInit.CreateBasicSubcontractingMgtSetup(); SetSubcontractingFeatureOnInstall(); + SubcontractingDataMigration.SetRenumberedDataMigrationTag(); end; local procedure HandleReinstallPerCompany() var + SubcontractingDataMigration: Codeunit "Subc. Data Migration"; SubcontractingCompInit: Codeunit "Subcontracting Comp. Init."; begin + SubcontractingDataMigration.MigrateRenumberedData(); SubcontractingCompInit.CreateBasicSubcontractingMgtSetup(); SetSubcontractingFeatureOnInstall(); end; From 9079846753d9ff54c669cc6877a7eb881a891e1d Mon Sep 17 00:00:00 2001 From: Chethan Thopaiah Date: Wed, 29 Jul 2026 11:11:20 +0200 Subject: [PATCH 3/7] change app id --- src/Apps/W1/Subcontracting/App/app.json | 2 +- .../Permissions/D365BasicSubcontracting.PermissionSetExt.al | 2 +- .../D365BusFullAccessSubcontracting.PermissionSetExt.al | 2 +- .../Permissions/D365ReadSubcontracting.PermissionSetExt.al | 2 +- .../App/src/Permissions/SubcontractEdit.PermissionSet.al | 4 ++-- .../App/src/Permissions/SubcontractObjs.PermissionSet.al | 2 +- .../App/src/Permissions/SubcontractRead.PermissionSet.al | 4 ++-- 7 files changed, 9 insertions(+), 9 deletions(-) diff --git a/src/Apps/W1/Subcontracting/App/app.json b/src/Apps/W1/Subcontracting/App/app.json index aaff20b2884..8d123cb3ff2 100644 --- a/src/Apps/W1/Subcontracting/App/app.json +++ b/src/Apps/W1/Subcontracting/App/app.json @@ -1,5 +1,5 @@ { - "id": "1f32a50d-0057-4b95-b5df-cc04d7e89470", + "id": "8f2c1e74-6a9d-4b53-a8c1-27d9e605f34b", "name": "Subcontracting", "publisher": "Microsoft", "brief": "Manage subcontracting operations in your manufacturing process.", diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al index 46cdf1abc4c..9b953c298f3 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al @@ -8,5 +8,5 @@ using System.Security.AccessControl; permissionsetextension 8126 "D365 BASIC - Subcontracting" extends "D365 BASIC" { - IncludedPermissionSets = "Subcontract. - Read"; + IncludedPermissionSets = "Subcontract - Read"; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al index ad79859f043..3f08034b783 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al @@ -8,5 +8,5 @@ using System.Security.AccessControl; permissionsetextension 8125 "D365 BUS FULL ACCESS - Subcontracting" extends "D365 BUS FULL ACCESS" { - IncludedPermissionSets = "Subcontract. - Edit"; + IncludedPermissionSets = "Subcontract - Edit"; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al b/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al index 671f83ea89e..ad8faf612b2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al @@ -8,5 +8,5 @@ using System.Security.AccessControl; permissionsetextension 8124 "D365 READ - Subcontracting" extends "D365 READ" { - IncludedPermissionSets = "Subcontract. - Read"; + IncludedPermissionSets = "Subcontract - Read"; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al index 6cec9f474e3..876bb6deb6b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al @@ -4,13 +4,13 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 8127 "Subcontract. - Edit" +permissionset 8127 "Subcontract - Edit" { Caption = 'Subcontracting - Edit'; Access = Public; Assignable = true; - IncludedPermissionSets = "Subcontract. - Read"; + IncludedPermissionSets = "Subcontract - Read"; Permissions = tabledata "Subcontractor Price" = IMD, diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al index 71b2d8a86f1..01d4e1c94cd 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 8125 "Subcontract. - Objs" +permissionset 8125 "Subcontract - Objs" { Caption = 'Subcontracting - Objects'; Assignable = true; diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al index 14bead8c37b..0ce69cd0370 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al @@ -4,13 +4,13 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 8126 "Subcontract. - Read" +permissionset 8126 "Subcontract - Read" { Caption = 'Subcontracting - Read'; Access = Public; Assignable = true; - IncludedPermissionSets = "Subcontract. - Objs"; + IncludedPermissionSets = "Subcontract - Objs"; Permissions = tabledata "Subcontractor Price" = R, From 3698a87035d555c4ae699571310a47bba52e3685 Mon Sep 17 00:00:00 2001 From: Chethan Thopaiah Date: Wed, 29 Jul 2026 15:02:27 +0200 Subject: [PATCH 4/7] re-re-numbered --- src/Apps/W1/Subcontracting/App/app.json | 6 +- .../SubcFeatureFlagHandler.Codeunit.al | 4 +- .../App/src/General/SubcILEntries.PageExt.al | 4 +- .../SubcItemJnlPostLineExt.Codeunit.al | 4 +- .../General/SubcItemLedgerEntry.TableExt.al | 14 +-- .../General/SubcNotificationMgmt.Codeunit.al | 4 +- .../SubcReportingTriggersExt.Codeunit.al | 4 +- .../src/General/SubcSessionState.Codeunit.al | 4 +- .../SubcSynchronizeManagement.Codeunit.al | 4 +- .../SubcontractingManagement.Codeunit.al | 2 +- .../Install/SubcBusinessSetupExt.Codeunit.al | 4 +- .../src/Install/SubcDataMigration.Codeunit.al | 91 ++++++++----------- .../Install/SubcUpgradeTagDefExt.Codeunit.al | 4 +- .../SubcontractingCompInit.Codeunit.al | 2 +- .../Install/SubcontractingInstall.Codeunit.al | 4 +- .../ComponentSupplyMethod.Enum.al | 4 +- .../ComponentsatLocation.Enum.al | 4 +- .../SubcCalcBOMTreeExt.Codeunit.al | 4 +- .../SubcCalcProdOrderExt.Codeunit.al | 4 +- .../SubcCalcStandardCostExt.Codeunit.al | 4 +- .../SubcCalcSubcontractsExt.Codeunit.al | 4 +- .../Manufacturing/SubcCapLEntries.PageExt.al | 4 +- .../SubcCapLedgerEntryExt.TableExt.al | 10 +- .../SubcCarryOutActionExt.Codeunit.al | 4 +- .../SubcCompFactboxMgmt.Codeunit.al | 2 +- .../SubcDispatchingList.Report.al | 4 +- .../SubcFinishedProdOrder.PageExt.al | 4 +- .../SubcFinishedProdOrders.PageExt.al | 4 +- .../Manufacturing/SubcPlanningComp.PageExt.al | 4 +- .../SubcPlanningCompExt.Codeunit.al | 4 +- .../SubcPlanningCompExt.TableExt.al | 10 +- .../SubcPlanningLineMgmtExt.Codeunit.al | 4 +- .../SubcProdBOMLineExt.TableExt.al | 6 +- .../Manufacturing/SubcProdBOMLines.PageExt.al | 4 +- .../SubcProdBOMVersionLines.PageExt.al | 4 +- .../SubcProdOFactboxMgmt.Codeunit.al | 2 +- .../SubcProdOrdCompRes.Codeunit.al | 4 +- .../SubcProdOrderComp.PageExt.al | 4 +- .../SubcProdOrderCompExt.Codeunit.al | 2 +- .../SubcProdOrderCompExt.TableExt.al | 22 ++--- .../SubcProdOrderCompLine.PageExt.al | 4 +- .../SubcProdOrderComponents.Page.al | 2 +- .../SubcProdOrderRtng.PageExt.al | 4 +- .../SubcProdOrderRtngExt.Codeunit.al | 4 +- .../SubcProdOrderRtngLineExt.TableExt.al | 22 ++--- .../SubcProductionOrderExt.TableExt.al | 6 +- .../Manufacturing/SubcRelProdOrder.PageExt.al | 4 +- .../SubcRelProdOrders.PageExt.al | 4 +- .../SubcReqWkshMakeOrd.Codeunit.al | 4 +- .../SubcRoutingFactboxMgmt.Codeunit.al | 2 +- .../SubcRoutingInfoFactbox.Page.al | 2 +- .../Manufacturing/SubcRoutingLine.TableExt.al | 10 +- .../Manufacturing/SubcRoutingLines.PageExt.al | 4 +- .../SubcRoutingVersionLines.PageExt.al | 2 +- .../SubcWorkCenterCard.PageExt.al | 2 +- .../SubcWorkCenterExtension.Codeunit.al | 4 +- .../SubcWorkCenterList.PageExt.al | 2 +- .../src/MasterData/SubcItemCard.PageExt.al | 4 +- .../MasterData/SubcItemExtension.Codeunit.al | 2 +- .../SubcItemJournalLineExt.TableExt.al | 16 ++-- .../src/MasterData/SubcItemList.PageExt.al | 4 +- .../App/src/MasterData/SubcVendor.TableExt.al | 10 +- .../src/MasterData/SubcVendorCard.PageExt.al | 4 +- .../SubcVendorExtension.Codeunit.al | 4 +- .../src/MasterData/SubcVendorList.PageExt.al | 4 +- ...365BasicSubcontracting.PermissionSetExt.al | 4 +- ...llAccessSubcontracting.PermissionSetExt.al | 4 +- ...D365ReadSubcontracting.PermissionSetExt.al | 4 +- .../SubcontractEdit.PermissionSet.al | 4 +- .../SubcontractObjs.PermissionSet.al | 4 +- .../SubcontractRead.PermissionSet.al | 4 +- .../SubcCalculateSubcontracts.Report.al | 4 +- .../SubcCreateSubCReturnOrder.Report.al | 4 +- .../SubcItemChargeAssPurchExt.Codeunit.al | 6 +- .../App/src/Purchase/SubcPOSubform.PageExt.al | 4 +- .../Purchase/SubcPriceManagement.Codeunit.al | 4 +- .../Purchase/SubcPurchCrMemoLine.TableExt.al | 16 ++-- .../Purchase/SubcPurchFactboxMgmt.Codeunit.al | 4 +- .../src/Purchase/SubcPurchInvLine.TableExt.al | 16 ++-- .../src/Purchase/SubcPurchOrder.PageExt.al | 4 +- .../Purchase/SubcPurchOrderList.PageExt.al | 2 +- .../src/Purchase/SubcPurchPostExt.Codeunit.al | 4 +- .../Purchase/SubcPurchRcptLine.TableExt.al | 16 ++-- .../Purchase/SubcPurchaseHeader.TableExt.al | 8 +- .../SubcPurchaseHeaderArch.TableExt.al | 8 +- .../SubcPurchaseHeaderExt.Codeunit.al | 2 +- .../src/Purchase/SubcPurchaseLine.TableExt.al | 22 ++--- .../SubcPurchaseLineArchive.TableExt.al | 16 ++-- .../Purchase/SubcPurchaseLineExt.Codeunit.al | 4 +- .../Purchase/SubcPurchaseLineFactbox.Page.al | 2 +- .../src/Purchase/SubcPurchaseLineType.Enum.al | 4 +- .../SubcPurchaseOrderCreator.Codeunit.al | 4 +- .../Purchase/SubcReqLineExtension.Codeunit.al | 4 +- .../Purchase/SubcRequisitionLine.TableExt.al | 14 +-- .../src/Purchase/SubcontractorPrice.Table.al | 4 +- .../src/Purchase/SubcontractorPrices.Page.al | 4 +- .../SubcManufacturingCue.TableExt.al | 12 +-- .../SubcManufacturingManagerRC.PageExt.al | 4 +- .../SubcProdPlannerActivities.PageExt.al | 4 +- .../SubcProdPlannerRoleCenter.PageExt.al | 4 +- .../SubcPurchAgentRoleCenter.PageExt.al | 4 +- .../SubcPurchasingManagerRC.PageExt.al | 4 +- .../SubcShopSMfgFoundation.PageExt.al | 4 +- .../SubcShopSuperActivities.PageExt.al | 2 +- .../SubcShopSuperRoleCenter.PageExt.al | 4 +- .../SubcShopSuperbasicActivity.PageExt.al | 2 +- .../Setup/SubcApplicationAreaMgmt.Codeunit.al | 2 +- .../SubcApplicationAreaSetup.TableExt.al | 4 +- .../Setup/SubcManufacturingSetup.PageExt.al | 4 +- .../Setup/SubcManufacturingSetup.TableExt.al | 16 ++-- .../Transfer/SubcCreateTransfOrder.Report.al | 4 +- .../SubcDirectTransHeaderExt.TableExt.al | 16 ++-- .../SubcDirectTransLineExt.TableExt.al | 26 +++--- .../SubcDirectTransferLineExt.Codeunit.al | 4 +- .../Transfer/SubcPstdDirectTrans.PageExt.al | 4 +- .../SubcPstdDirectTransfSub.PageExt.al | 4 +- .../SubcPstdDirectTransfers.PageExt.al | 2 +- .../Transfer/SubcPstdTransferRcpt.PageExt.al | 4 +- .../Transfer/SubcPstdTransferRcpts.PageExt.al | 2 +- .../Transfer/SubcPstdTransferShpt.PageExt.al | 4 +- .../Transfer/SubcPstdTransferShpts.PageExt.al | 2 +- .../SubcTransOrderPostRcptExt.Codeunit.al | 4 +- .../SubcTransOrderPostShptExt.Codeunit.al | 4 +- .../SubcTransOrderPostTransExt.Codeunit.al | 4 +- .../src/Transfer/SubcTransOrderSub.PageExt.al | 4 +- .../SubcTransRcptHeaderExt.Codeunit.al | 4 +- .../SubcTransRcptHeaderExt.TableExt.al | 14 +-- .../SubcTransShptHeaderExt.Codeunit.al | 4 +- .../SubcTransShptHeaderExt.TableExt.al | 14 +-- .../Transfer/SubcTransferHeader.TableExt.al | 16 ++-- .../SubcTransferHeaderExt.Codeunit.al | 2 +- .../src/Transfer/SubcTransferLine.TableExt.al | 32 +++---- .../Transfer/SubcTransferLineExt.Codeunit.al | 4 +- .../Transfer/SubcTransferLineFactbox.Page.al | 2 +- .../src/Transfer/SubcTransferLines.PageExt.al | 4 +- .../SubcTransferManagement.Codeunit.al | 2 +- .../src/Transfer/SubcTransferOrder.PageExt.al | 4 +- .../Transfer/SubcTransferOrders.PageExt.al | 2 +- .../SubcTransferRcptLineExt.Codeunit.al | 4 +- .../SubcTransferRcptLineExt.TableExt.al | 26 +++--- .../SubcTransferShptLineExt.Codeunit.al | 4 +- .../SubcTransferShptLineExt.TableExt.al | 26 +++--- .../src/Transfer/TransferSourceType.Enum.al | 4 +- .../SubcChangeProdOrderStatus.Codeunit.al | 4 +- .../SubcChangeStatusProdOrder.PageExt.al | 4 +- .../SubcPostingPreviewBinding.Codeunit.al | 2 +- .../SubcPostingPreviewSubscr.Codeunit.al | 2 +- .../SubcPstPrevEventHandler.Codeunit.al | 2 +- .../SubcTransferWIPPosting.Codeunit.al | 4 +- .../App/src/WIPItem/SubcWIPAdjustment.Page.al | 4 +- .../SubcWIPItemLedgFindEntry.Codeunit.al | 4 +- .../src/WIPItem/SubcWIPLedgerEntries.Page.al | 4 +- .../SubcontractorWIPLedgerEntry.Table.al | 4 +- .../App/src/WIPItem/WIPDocumentType.Enum.al | 2 +- .../src/WIPItem/WIPLedgerEntryType.Enum.al | 2 +- .../SubcPostedWhseReceiptLine.TableExt.al | 8 +- .../Warehouse/SubcPstdWhseRcptSub.PageExt.al | 4 +- .../Warehouse/SubcPstdWhseShipmSub.PageExt.al | 4 +- .../SubcPstdWhseShipmentLine.TableExt.al | 6 +- .../SubcWarehouseReceiptLine.TableExt.al | 8 +- .../SubcWarehouseShipmentLine.TableExt.al | 6 +- .../SubcWhsePostReceiptExt.Codeunit.al | 4 +- .../SubcWhsePostShipmentExt.Codeunit.al | 4 +- .../SubcWhsePurchReleaseExt.Codeunit.al | 4 +- .../Warehouse/SubcWhseRcptLinesExt.PageExt.al | 4 +- .../SubcWhseRcptSubformExt.PageExt.al | 4 +- .../SubcWhseShipmSubformExt.PageExt.al | 4 +- .../SubcReqWkshTempTypeExt.EnumExt.al | 6 +- .../SubcSubcontractingWorksheet.Page.al | 4 +- .../SubcWorksheetHandler.Codeunit.al | 4 +- 170 files changed, 519 insertions(+), 534 deletions(-) diff --git a/src/Apps/W1/Subcontracting/App/app.json b/src/Apps/W1/Subcontracting/App/app.json index 8d123cb3ff2..61013fcaad6 100644 --- a/src/Apps/W1/Subcontracting/App/app.json +++ b/src/Apps/W1/Subcontracting/App/app.json @@ -1,5 +1,5 @@ { - "id": "8f2c1e74-6a9d-4b53-a8c1-27d9e605f34b", + "id": "1f32a50d-0057-4b95-b5df-cc04d7e89470", "name": "Subcontracting", "publisher": "Microsoft", "brief": "Manage subcontracting operations in your manufacturing process.", @@ -17,8 +17,8 @@ "application": "28.3.0.0", "idRanges": [ { - "from": 8124, - "to": 8223 + "from": 20500, + "to": 20595 } ], "features": [ diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcFeatureFlagHandler.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcFeatureFlagHandler.Codeunit.al index 1f2679dc3a7..a448c9d040a 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcFeatureFlagHandler.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcFeatureFlagHandler.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Setup; -codeunit 8193 "Subc. Feature Flag Handler" +codeunit 20569 "Subc. Feature Flag Handler" { ObsoleteState = Pending; ObsoleteTag = '28.0'; @@ -24,4 +24,4 @@ codeunit 8193 "Subc. Feature Flag Handler" exit(not ManufacturingSetup."Legacy Subcontracting"); end; } -#endif \ No newline at end of file +#endif diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcILEntries.PageExt.al b/src/Apps/W1/Subcontracting/App/src/General/SubcILEntries.PageExt.al index de0b254ccbf..1716b888b04 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcILEntries.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcILEntries.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Ledger; -pageextension 8125 "Subc. ILEntries" extends "Item Ledger Entries" +pageextension 20501 "Subc. ILEntries" extends "Item Ledger Entries" { layout { @@ -119,4 +119,4 @@ pageextension 8125 "Subc. ILEntries" extends "Item Ledger Entries" begin SubcPurchFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); end; -} \ 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 b3995a59a80..9526f3a1371 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcItemJnlPostLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcItemJnlPostLineExt.Codeunit.al @@ -11,7 +11,7 @@ using Microsoft.Inventory.Posting; using Microsoft.Manufacturing.Capacity; using Microsoft.Manufacturing.Document; -codeunit 8139 "Subc. ItemJnlPostLine Ext" +codeunit 20515 "Subc. ItemJnlPostLine Ext" { #if not CLEAN28 var @@ -133,4 +133,4 @@ codeunit 8139 "Subc. ItemJnlPostLine Ext" if ItemJournalLine."Subc. Item Charge Assign." and (ItemJournalLine."Item Charge No." <> '') then ValueEntry."Item Charge No." := ItemJournalLine."Item Charge No."; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcItemLedgerEntry.TableExt.al b/src/Apps/W1/Subcontracting/App/src/General/SubcItemLedgerEntry.TableExt.al index bddfcdf2300..75174021984 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcItemLedgerEntry.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcItemLedgerEntry.TableExt.al @@ -7,35 +7,35 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Ledger; using Microsoft.Purchases.Document; -tableextension 8124 "Subc. Item Ledger Entry" extends "Item Ledger Entry" +tableextension 20500 "Subc. Item Ledger Entry" extends "Item Ledger Entry" { AllowInCustomizations = AsReadOnly; fields { - field(8134; "Subc. Prod. Order No."; Code[20]) + field(20510; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No.'; DataClassification = CustomerContent; } - field(8135; "Subc. Prod. Order Line No."; Integer) + field(20511; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No.'; DataClassification = CustomerContent; } - field(8136; "Subc. Purch. Order No."; Code[20]) + field(20512; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order)); } - field(8137; "Subc. Purch. Order Line No."; Integer) + field(20513; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Purchase Line"."Line No." where("Document Type" = const(Order), "Document No." = field("Subc. Purch. Order No.")); } - field(8138; "Subc. Operation No."; Code[10]) + field(20514; "Subc. Operation No."; Code[10]) { Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; @@ -45,4 +45,4 @@ tableextension 8124 "Subc. Item Ledger Entry" extends "Item Ledger Entry" { key(Key99001500; "Subc. Prod. Order No.", "Subc. Prod. Order Line No.", "Subc. Purch. Order No.", "Subc. Purch. Order Line No.") { } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcNotificationMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcNotificationMgmt.Codeunit.al index f0de8d497ad..eeed279f23d 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcNotificationMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcNotificationMgmt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Environment.Configuration; -codeunit 8130 "Subc. Notification Mgmt." +codeunit 20506 "Subc. Notification Mgmt." { var #if not CLEAN28 @@ -114,4 +114,4 @@ codeunit 8130 "Subc. Notification Mgmt." begin exit('{f7b10c9e-071a-4455-a048-d17b29ef764c}'); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcReportingTriggersExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcReportingTriggersExt.Codeunit.al index 2e3fdf3765a..0ba3671caa4 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcReportingTriggersExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcReportingTriggersExt.Codeunit.al @@ -9,7 +9,7 @@ using Microsoft.Manufacturing.Reports; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -codeunit 8136 "Subc. Reporting Triggers Ext" +codeunit 20512 "Subc. Reporting Triggers Ext" { [EventSubscriber(ObjectType::Report, Report::"Detailed Calculation", OnAfterGetRecordRoutingLineOnBeforeCalcRoutingCostPerUnit, '', false, false)] local procedure OnAfterGetRecordRoutingLineOnBeforeCalcCost(var RoutingLine: Record "Routing Line"; ItemNo: Code[20]; BaseUnitOfMeasure: Code[10]; StandardTaskCode: Code[10]; CalculationDate: Date; var DirectUnitCost: Decimal; var IndirectCostPct: Decimal; var OverheadRate: Decimal; var ProdUnitCost: Decimal; var UnitCostCalculation: Enum "Unit Cost Calculation Type"; var IsHandled: Boolean) @@ -60,4 +60,4 @@ codeunit 8136 "Subc. Reporting Triggers Ext" IsHandled := true; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcSessionState.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcSessionState.Codeunit.al index cf35791dc34..87afc324226 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcSessionState.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcSessionState.Codeunit.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -codeunit 8124 "Subc. Session State" +codeunit 20500 "Subc. Session State" { SingleInstance = true; @@ -114,4 +114,4 @@ codeunit 8124 "Subc. Session State" if RecordIDDictionary.ContainsKey(StoredKey) then ReturnRecordID := RecordIDDictionary.Get(StoredKey); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcSynchronizeManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcSynchronizeManagement.Codeunit.al index 8f8ddad0308..a56969d87c8 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcSynchronizeManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcSynchronizeManagement.Codeunit.al @@ -13,7 +13,7 @@ using Microsoft.Manufacturing.Capacity; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -codeunit 8135 "Subc. Synchronize Management" +codeunit 20511 "Subc. Synchronize Management" { var #if not CLEAN28 @@ -277,4 +277,4 @@ codeunit 8135 "Subc. Synchronize Management" IsSubcontracting := true; exit(IsSubcontracting); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/General/SubcontractingManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/General/SubcontractingManagement.Codeunit.al index b40dff1fbd1..65c15728e23 100644 --- a/src/Apps/W1/Subcontracting/App/src/General/SubcontractingManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/General/SubcontractingManagement.Codeunit.al @@ -18,7 +18,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; using System.Utilities; -codeunit 8129 "Subcontracting Management" +codeunit 20505 "Subcontracting Management" { var ManufacturingSetup: Record "Manufacturing Setup"; diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al index a7a36322ca6..eab5f18e884 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Foundation.Company; using Microsoft.Manufacturing.Setup; using System.Environment.Configuration; -codeunit 8126 "Subc. Business Setup Ext." +codeunit 20502 "Subc. Business Setup Ext." { var SubcontractingDescriptionLbl: Label 'Make manual Subcontracting Setup'; @@ -30,4 +30,4 @@ codeunit 8126 "Subc. Business Setup Ext." begin SubcontractingCompInit.CreateBasicSubcontractingMgtSetup(); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al index 4b8d90c8270..8b454121cc7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al @@ -24,7 +24,7 @@ using System.Environment.Configuration; using System.Reflection; using System.Upgrade; -codeunit 8133 "Subc. Data Migration" +codeunit 20509 "Subc. Data Migration" { Access = Internal; @@ -83,10 +83,10 @@ codeunit 8133 "Subc. Data Migration" var FieldIds: List of [Integer]; begin - SetFieldIds(FieldIds, '8134,8135,8136,8137,8138'); + SetFieldIds(FieldIds, '20510,20511,20512,20513,20514'); MigrateTableExtensionFields(Database::"Item Ledger Entry", FieldIds); - SetFieldIds(FieldIds, '8134,8135,8136,8137,8138,8166'); + SetFieldIds(FieldIds, '20510,20511,20512,20513,20514,20542'); MigrateTableExtensionFields(Database::"Item Journal Line", FieldIds); end; @@ -94,25 +94,25 @@ codeunit 8133 "Subc. Data Migration" var FieldIds: List of [Integer]; begin - SetFieldIds(FieldIds, '8124,8136,8137'); + SetFieldIds(FieldIds, '20500,20512,20513'); MigrateTableExtensionFields(Database::"Capacity Ledger Entry", FieldIds); - SetFieldIds(FieldIds, '8148,8149,8150'); + SetFieldIds(FieldIds, '20524,20525,20526'); MigrateTableExtensionFields(Database::"Planning Component", FieldIds); - SetFieldIds(FieldIds, '8146'); + SetFieldIds(FieldIds, '20522'); MigrateTableExtensionFields(Database::"Production BOM Line", FieldIds); - SetFieldIds(FieldIds, '8146,8147,8152'); + SetFieldIds(FieldIds, '20522,20523,20528'); MigrateTableExtensionFields(Database::"Prod. Order Component", FieldIds); - SetFieldIds(FieldIds, '8174,8184,8185,8186'); + SetFieldIds(FieldIds, '20550,20560,20561,20562'); MigrateTableExtensionFields(Database::"Prod. Order Routing Line", FieldIds); - SetFieldIds(FieldIds, '8176'); + SetFieldIds(FieldIds, '20552'); MigrateTableExtensionFields(Database::"Production Order", FieldIds); - SetFieldIds(FieldIds, '8184,8185,8186'); + SetFieldIds(FieldIds, '20560,20561,20562'); MigrateTableExtensionFields(Database::"Routing Line", FieldIds); end; @@ -120,23 +120,23 @@ codeunit 8133 "Subc. Data Migration" var FieldIds: List of [Integer]; begin - SetFieldIds(FieldIds, '8139,8141'); + SetFieldIds(FieldIds, '20515,20517'); MigrateTableExtensionFields(Database::Vendor, FieldIds); - SetFieldIds(FieldIds, '8167,8168,8169,8170,8171,8172'); + SetFieldIds(FieldIds, '20543,20544,20545,20546,20547,20548'); MigrateTableExtensionFields(Database::"Purch. Cr. Memo Line", FieldIds); MigrateTableExtensionFields(Database::"Purch. Inv. Line", FieldIds); MigrateTableExtensionFields(Database::"Purch. Rcpt. Line", FieldIds); MigrateTableExtensionFields(Database::"Purchase Line Archive", FieldIds); - SetFieldIds(FieldIds, '8144'); + SetFieldIds(FieldIds, '20520'); MigrateTableExtensionFields(Database::"Purchase Header", FieldIds); MigrateTableExtensionFields(Database::"Purchase Header Archive", FieldIds); - SetFieldIds(FieldIds, '8167,8168,8169,8170,8171,8172,8173,8184'); + SetFieldIds(FieldIds, '20543,20544,20545,20546,20547,20548,20549,20560'); MigrateTableExtensionFields(Database::"Purchase Line", FieldIds); - SetFieldIds(FieldIds, '8140,8141,8142,8143,8144'); + SetFieldIds(FieldIds, '20516,20517,20518,20519,20520'); MigrateTableExtensionFields(Database::"Requisition Line", FieldIds); end; @@ -144,10 +144,10 @@ codeunit 8133 "Subc. Data Migration" var FieldIds: List of [Integer]; begin - SetFieldIds(FieldIds, '8124'); + SetFieldIds(FieldIds, '20500'); MigrateTableExtensionFields(Database::"Application Area Setup", FieldIds); - SetFieldIds(FieldIds, '8124,8125,8126,8128,8129,8133'); + SetFieldIds(FieldIds, '20500,20501,20502,20504,20505,20509'); MigrateTableExtensionFields(Database::"Manufacturing Setup", FieldIds); end; @@ -155,18 +155,18 @@ codeunit 8133 "Subc. Data Migration" var FieldIds: List of [Integer]; begin - SetFieldIds(FieldIds, '8154,8155,8160,8161,8164,8165'); + SetFieldIds(FieldIds, '20530,20531,20536,20537,20540,20541'); MigrateTableExtensionFields(Database::"Direct Trans. Header", FieldIds); MigrateTableExtensionFields(Database::"Transfer Receipt Header", FieldIds); MigrateTableExtensionFields(Database::"Transfer Shipment Header", FieldIds); MigrateTableExtensionFields(Database::"Transfer Header", FieldIds); - SetFieldIds(FieldIds, '8154,8155,8156,8157,8158,8159,8160,8161,8162,8163,8184'); + SetFieldIds(FieldIds, '20530,20531,20532,20533,20534,20535,20536,20537,20538,20539,20560'); MigrateTableExtensionFields(Database::"Direct Trans. Line", FieldIds); MigrateTableExtensionFields(Database::"Transfer Receipt Line", FieldIds); MigrateTableExtensionFields(Database::"Transfer Shipment Line", FieldIds); - SetFieldIds(FieldIds, '8154,8155,8156,8157,8158,8159,8160,8161,8162,8163,8184,8187'); + SetFieldIds(FieldIds, '20530,20531,20532,20533,20534,20535,20536,20537,20538,20539,20560,20563'); MigrateTableExtensionFields(Database::"Transfer Line", FieldIds); end; @@ -174,50 +174,44 @@ codeunit 8133 "Subc. Data Migration" var FieldIds: List of [Integer]; begin - SetFieldIds(FieldIds, '8173,8184'); + SetFieldIds(FieldIds, '20549,20560'); MigrateTableExtensionFields(Database::"Posted Whse. Receipt Line", FieldIds); MigrateTableExtensionFields(Database::"Warehouse Receipt Line", FieldIds); - SetFieldIds(FieldIds, '8184'); + SetFieldIds(FieldIds, '20560'); MigrateTableExtensionFields(Database::"Posted Whse. Shipment Line", FieldIds); MigrateTableExtensionFields(Database::"Warehouse Shipment Line", FieldIds); end; local procedure MigrateTableData(NewTableId: Integer) var + DataTransfer: DataTransfer; OldRecordRef: RecordRef; NewRecordRef: RecordRef; OldFieldRef: FieldRef; - NewFieldRef: FieldRef; FieldIndex: Integer; begin if not OpenOldTableIfAvailable(NewTableId, OldRecordRef) then exit; NewRecordRef.Open(NewTableId); - if OldRecordRef.FindSet() then - repeat - NewRecordRef.Init(); - for FieldIndex := 1 to OldRecordRef.FieldCount() do begin - OldFieldRef := OldRecordRef.FieldIndex(FieldIndex); - if (OldFieldRef.Class = FieldClass::Normal) and (OldFieldRef.Number < 2000000000) and NewRecordRef.FieldExist(OldFieldRef.Number) then begin - NewFieldRef := NewRecordRef.Field(OldFieldRef.Number); - NewFieldRef.Value := OldFieldRef.Value; - end; - end; - NewRecordRef.Insert(false); - until OldRecordRef.Next() = 0; + DataTransfer.SetTables(GetOldId(NewTableId), NewTableId); + for FieldIndex := 1 to OldRecordRef.FieldCount() do begin + OldFieldRef := OldRecordRef.FieldIndex(FieldIndex); + if (OldFieldRef.Class = FieldClass::Normal) and (OldFieldRef.Number < 2000000000) and NewRecordRef.FieldExist(OldFieldRef.Number) then + DataTransfer.AddFieldValue(OldFieldRef.Number, OldFieldRef.Number); + end; + DataTransfer.UpdateAuditFields(false); OldRecordRef.Close(); NewRecordRef.Close(); + DataTransfer.CopyRows(); end; local procedure MigrateTableExtensionFields(TableId: Integer; NewFieldIds: List of [Integer]) var + DataTransfer: DataTransfer; RecordRef: RecordRef; - OldFieldRef: FieldRef; - NewFieldRef: FieldRef; FieldIndex: Integer; - RecordModified: Boolean; begin RecordRef.Open(TableId); if not AreOldFieldsAvailable(RecordRef, NewFieldIds) then begin @@ -225,21 +219,12 @@ codeunit 8133 "Subc. Data Migration" exit; end; - if RecordRef.FindSet(true) then - repeat - RecordModified := false; - for FieldIndex := 1 to NewFieldIds.Count() do begin - OldFieldRef := RecordRef.Field(GetOldId(NewFieldIds.Get(FieldIndex))); - NewFieldRef := RecordRef.Field(NewFieldIds.Get(FieldIndex)); - if NewFieldRef.Value <> OldFieldRef.Value then begin - NewFieldRef.Value := OldFieldRef.Value; - RecordModified := true; - end; - end; - if RecordModified then - RecordRef.Modify(false); - until RecordRef.Next() = 0; + DataTransfer.SetTables(TableId, TableId); + for FieldIndex := 1 to NewFieldIds.Count() do + DataTransfer.AddFieldValue(GetOldId(NewFieldIds.Get(FieldIndex)), NewFieldIds.Get(FieldIndex)); + DataTransfer.UpdateAuditFields(false); RecordRef.Close(); + DataTransfer.CopyFields(); end; local procedure AreOldFieldsAvailable(RecordRef: RecordRef; NewFieldIds: List of [Integer]): Boolean @@ -303,7 +288,7 @@ codeunit 8133 "Subc. Data Migration" local procedure GetRenumberingOffset(): Integer begin - exit(98993376); + exit(98981000); end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade Tag", 'OnGetPerCompanyUpgradeTags', '', false, false)] diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcUpgradeTagDefExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcUpgradeTagDefExt.Codeunit.al index 07a4db352fd..9484d5e1e31 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcUpgradeTagDefExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcUpgradeTagDefExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Upgrade; -codeunit 8194 "Subc. Upgrade Tag Def. Ext." +codeunit 20570 "Subc. Upgrade Tag Def. Ext." { [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade Tag", 'OnGetPerCompanyUpgradeTags', '', false, false)] local procedure RegisterPerCompanyTags(var PerCompanyUpgradeTags: List of [Code[250]]) @@ -18,4 +18,4 @@ codeunit 8194 "Subc. Upgrade Tag Def. Ext." begin exit('MS-406123-Subcontracting-20260601'); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al index d9113f6ff95..847d98edf7a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Setup; -codeunit 8127 "Subcontracting Comp. Init." +codeunit 20503 "Subcontracting Comp. Init." { var ReqWkshTempDescLbl: Label 'Subcontracting', MaxLength = 80; diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al index e146defe740..f70dc6fb156 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Upgrade; -codeunit 8125 "Subcontracting Install" +codeunit 20501 "Subcontracting Install" { Subtype = Install; @@ -74,4 +74,4 @@ codeunit 8125 "Subcontracting Install" UpgradeTag.SetUpgradeTag(SubcUpgradeTagDefExt.GetSubcontractingUpgradeTag()); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentSupplyMethod.Enum.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentSupplyMethod.Enum.al index c424124c9f6..c353e606693 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentSupplyMethod.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentSupplyMethod.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 8124 "Component Supply Method" +enum 20500 "Component Supply Method" { Extensible = true; // No supply method is selected. @@ -27,4 +27,4 @@ enum 8124 "Component Supply Method" { Caption = 'Transfer to Vendor'; } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentsatLocation.Enum.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentsatLocation.Enum.al index e17f63137ac..406023f01ef 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentsatLocation.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/ComponentsatLocation.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 8127 "Components at Location" +enum 20503 "Components at Location" { Extensible = true; value(0; Empty) @@ -23,4 +23,4 @@ enum 8127 "Components at Location" { Caption = 'Manufacturing Setup'; } -} \ No newline at end of file +} 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 1a8d93a233e..7c80c26bfe7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcBOMTreeExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcBOMTreeExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.BOM.Tree; using Microsoft.Inventory.Item; using Microsoft.Manufacturing.Routing; -codeunit 8145 "Subc. Calc BOM Tree Ext." +codeunit 20521 "Subc. Calc BOM Tree Ext." { #if not CLEAN27 #pragma warning disable AL0432 @@ -34,4 +34,4 @@ codeunit 8145 "Subc. Calc BOM Tree Ext." #endif SubcSessionState.SetRecordID('OnBeforeCalcRoutingLineCosts', ParentItem.RecordId()); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcProdOrderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcProdOrderExt.Codeunit.al index 01d86cbff7e..31b38c72a47 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcProdOrderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcProdOrderExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.ProductionBOM; using Microsoft.Manufacturing.Routing; -codeunit 8141 "Subc. Calc. Prod. Order Ext." +codeunit 20517 "Subc. Calc. Prod. Order Ext." { #if not CLEAN28 var @@ -65,4 +65,4 @@ codeunit 8141 "Subc. Calc. Prod. Order Ext." local procedure OnAfterTransferSubcontractingFieldsBOMComponent(var ProductionBOMLine: Record "Production BOM Line"; var ProdOrderComponent: Record "Prod. Order Component") begin end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcStandardCostExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcStandardCostExt.Codeunit.al index b38c96ce427..29b8171b586 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcStandardCostExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcStandardCostExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Item; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.StandardCost; -codeunit 8138 "Subc. Calc.StandardCost Ext." +codeunit 20514 "Subc. Calc.StandardCost Ext." { #if not CLEAN28 var @@ -58,4 +58,4 @@ codeunit 8138 "Subc. Calc.StandardCost Ext." #endif SubcSessionState.SetDate('OnAfterSetProperties', NewCalculationDate); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcSubcontractsExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcSubcontractsExt.Codeunit.al index b0f8395ad53..58fe80ca615 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcSubcontractsExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCalcSubcontractsExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.WorkCenter; -codeunit 8153 "Subc. Calc Subcontracts Ext." +codeunit 20529 "Subc. Calc Subcontracts Ext." { [EventSubscriber(ObjectType::Report, Report::"Subc. Calculate Subcontracts", OnAfterTransferProdOrderRoutingLine, '', false, false)] local procedure OnAfterTransferProdOrderRoutingLine(var RequisitionLine: Record "Requisition Line"; ProdOrderRoutingLine: Record "Prod. Order Routing Line") @@ -34,4 +34,4 @@ codeunit 8153 "Subc. Calc Subcontracts Ext." RequisitionLine.Validate("Subc. Standard Task Code", ProdOrderRoutingLine."Standard Task Code"); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLEntries.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLEntries.PageExt.al index ea1632a09e2..3c9148053a4 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLEntries.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLEntries.PageExt.al @@ -9,7 +9,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.History; using Microsoft.Utilities; -pageextension 8126 "Subc. CapLEntries" extends "Capacity Ledger Entries" +pageextension 20502 "Subc. CapLEntries" extends "Capacity Ledger Entries" { layout { @@ -87,4 +87,4 @@ pageextension 8126 "Subc. CapLEntries" extends "Capacity Ledger Entries" var NoDocumentFoundMsg: Label 'No related document could be found for this entry.'; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLedgerEntryExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLedgerEntryExt.TableExt.al index 5f274aaa2fa..4875b0243a0 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLedgerEntryExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCapLedgerEntryExt.TableExt.al @@ -7,23 +7,23 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Capacity; using Microsoft.Purchases.Document; -tableextension 8128 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger Entry" +tableextension 20504 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger Entry" { AllowInCustomizations = AsReadOnly; fields { - field(8124; "Subc. Subcontractor No."; Code[20]) + field(20500; "Subc. Subcontractor No."; Code[20]) { Caption = 'Subcontractor No.'; DataClassification = CustomerContent; } - field(8136; "Subc. Purch. Order No."; Code[20]) + field(20512; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order)); } - field(8137; "Subc. Purch. Order Line No."; Integer) + field(20513; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; @@ -31,4 +31,4 @@ tableextension 8128 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger Entry "Document No." = field("Subc. Purch. Order No.")); } } -} \ No newline at end of file +} 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 41afd20607c..7568c95a90d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCarryOutActionExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCarryOutActionExt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Planning; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Document; -codeunit 8147 "Subc. Carry Out Action Ext." +codeunit 20523 "Subc. Carry Out Action Ext." { #if not CLEAN27 #pragma warning disable AL0432 @@ -35,4 +35,4 @@ codeunit 8147 "Subc. Carry Out Action Ext." ProdOrderComponent."Subc. Original Location Code" := PlanningComponent."Orig. Location Code"; ProdOrderComponent."Subc. Orig. Bin Code" := PlanningComponent."Orig. Bin Code"; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCompFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCompFactboxMgmt.Codeunit.al index 2b48b08f4d4..aabf09cb9d1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCompFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcCompFactboxMgmt.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -codeunit 8186 "Subc. Comp. Factbox Mgmt." +codeunit 20562 "Subc. Comp. Factbox Mgmt." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcDispatchingList.Report.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcDispatchingList.Report.al index bf011b6d95b..cc7c385ab02 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcDispatchingList.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcDispatchingList.Report.al @@ -30,7 +30,7 @@ using System.Email; using System.Globalization; using System.Utilities; -report 8128 "Subc. Dispatching List" +report 20504 "Subc. Dispatching List" { ApplicationArea = Subcontracting; Caption = 'Subcontractor - Dispatch List'; @@ -2021,4 +2021,4 @@ report 8128 "Subc. Dispatching List" else ShptMethodDescTxt := ShptMethodDescLbl; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrder.PageExt.al index 5bc38daa6ed..32fb2c645d1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrder.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 8172 "Subc. Finished Prod. Order" extends "Finished Production Order" +pageextension 20548 "Subc. Finished Prod. Order" extends "Finished Production Order" { actions { @@ -66,4 +66,4 @@ pageextension 8172 "Subc. Finished Prod. Order" extends "Finished Production Ord actionref("WIP Ledger Entries_Promoted"; "WIP Ledger Entries") { } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrders.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrders.PageExt.al index 2fa0ea57355..8fda9299642 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrders.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcFinishedProdOrders.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 8167 "Subc. Finished Prod. Orders" extends "Finished Production Orders" +pageextension 20543 "Subc. Finished Prod. Orders" extends "Finished Production Orders" { actions { @@ -61,4 +61,4 @@ pageextension 8167 "Subc. Finished Prod. Orders" extends "Finished Production Or } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningComp.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningComp.PageExt.al index 90426090d89..7c8cda6d6dc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningComp.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningComp.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Planning; -pageextension 8135 "Subc. Planning Comp" extends "Planning Components" +pageextension 20511 "Subc. Planning Comp" extends "Planning Components" { layout { @@ -18,4 +18,4 @@ pageextension 8135 "Subc. Planning Comp" extends "Planning Components" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.Codeunit.al index f5c7775c837..4376fda85b8 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.Codeunit.al @@ -10,7 +10,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Purchases.Vendor; -codeunit 8146 "Subc. Planning Comp. Ext." +codeunit 20522 "Subc. Planning Comp. Ext." { #if not CLEAN28 var @@ -117,4 +117,4 @@ codeunit 8146 "Subc. Planning Comp. Ext." end; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.TableExt.al index fb241e9f7f9..cc373789c5e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningCompExt.TableExt.al @@ -9,12 +9,12 @@ using Microsoft.Inventory.Location; using Microsoft.Inventory.Planning; using Microsoft.Warehouse.Structure; -tableextension 8127 "Subc. Planning Comp Ext." extends "Planning Component" +tableextension 20503 "Subc. Planning Comp Ext." extends "Planning Component" { AllowInCustomizations = AsReadOnly; fields { - field(8148; "Component Supply Method"; Enum "Component Supply Method") + field(20524; "Component Supply Method"; Enum "Component Supply Method") { Caption = 'Component Supply Method'; DataClassification = CustomerContent; @@ -43,17 +43,17 @@ tableextension 8127 "Subc. Planning Comp Ext." extends "Planning Component" SubcontractingManagement.UpdateComponentSupplyMethodForPlanningComponent(Rec); end; } - field(8149; "Orig. Location Code"; Code[10]) + field(20525; "Orig. Location Code"; Code[10]) { Caption = 'Original Location Code'; DataClassification = CustomerContent; TableRelation = Location; } - field(8150; "Orig. Bin Code"; Code[20]) + field(20526; "Orig. Bin Code"; Code[20]) { Caption = 'Original Bin Code'; DataClassification = CustomerContent; TableRelation = Bin; } } -} \ No newline at end of file +} 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 4481ea6145c..fdeb37033ae 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al @@ -12,7 +12,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.ProductionBOM; using Microsoft.Manufacturing.Routing; -codeunit 8142 "Subc. Planning Line Mgmt Ext." +codeunit 20518 "Subc. Planning Line Mgmt Ext." { #if not CLEAN28 var @@ -89,4 +89,4 @@ codeunit 8142 "Subc. Planning Line Mgmt Ext." #endif TransferLine.SetRange("Transfer WIP Item", false); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLineExt.TableExt.al index ad5383ef027..1584a946224 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLineExt.TableExt.al @@ -7,12 +7,12 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; using Microsoft.Manufacturing.ProductionBOM; -tableextension 8155 "Subc. Prod BOM Line Ext." extends "Production BOM Line" +tableextension 20531 "Subc. Prod BOM Line Ext." extends "Production BOM Line" { AllowInCustomizations = AsReadOnly; fields { - field(8146; "Component Supply Method"; Enum "Component Supply Method") + field(20522; "Component Supply Method"; Enum "Component Supply Method") { Caption = 'Component Supply Method'; DataClassification = CustomerContent; @@ -40,4 +40,4 @@ tableextension 8155 "Subc. Prod BOM Line Ext." extends "Production BOM Line" end; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLines.PageExt.al index 99c879fce18..bd4aad9abe6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.ProductionBOM; -pageextension 8134 "Subc. Prod BOM Lines" extends "Production BOM Lines" +pageextension 20510 "Subc. Prod BOM Lines" extends "Production BOM Lines" { layout { @@ -18,4 +18,4 @@ pageextension 8134 "Subc. Prod BOM Lines" extends "Production BOM Lines" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMVersionLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMVersionLines.PageExt.al index c3ff8c39e12..b2e87ae9226 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMVersionLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdBOMVersionLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.ProductionBOM; -pageextension 8138 "Subc. ProdBOMVersionLines" extends "Production BOM Version Lines" +pageextension 20514 "Subc. ProdBOMVersionLines" extends "Production BOM Version Lines" { layout { @@ -19,4 +19,4 @@ pageextension 8138 "Subc. ProdBOMVersionLines" extends "Production BOM Version L } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOFactboxMgmt.Codeunit.al index b717e56c729..450fabedceb 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOFactboxMgmt.Codeunit.al @@ -12,7 +12,7 @@ using Microsoft.Purchases.History; using Microsoft.Utilities; using System.Reflection; -codeunit 8183 "Subc. ProdO. Factbox Mgmt." +codeunit 20559 "Subc. ProdO. Factbox Mgmt." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrdCompRes.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrdCompRes.Codeunit.al index f9162a50b78..94e84dc8dff 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrdCompRes.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrdCompRes.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -codeunit 8154 "Subc. Prod. Ord. Comp. Res." +codeunit 20530 "Subc. Prod. Ord. Comp. Res." { EventSubscriberInstance = Manual; @@ -36,4 +36,4 @@ codeunit 8154 "Subc. Prod. Ord. Comp. Res." #endif HasError := false; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComp.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComp.PageExt.al index 3c91216011b..0dea15dc3a0 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComp.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComp.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -pageextension 8136 "Subc. Prod Order Comp" extends "Prod. Order Components" +pageextension 20512 "Subc. Prod Order Comp" extends "Prod. Order Components" { layout { @@ -35,4 +35,4 @@ pageextension 8136 "Subc. Prod Order Comp" extends "Prod. Order Components" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.Codeunit.al index 23cdd1a9598..38bc43dfc20 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.Codeunit.al @@ -13,7 +13,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; using System.Utilities; -codeunit 8148 "Subc. Prod. Order Comp. Ext." +codeunit 20524 "Subc. Prod. Order Comp. Ext." { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.TableExt.al index f4bcffa83cc..a8ba86eca6d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompExt.TableExt.al @@ -12,12 +12,12 @@ using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; using Microsoft.Warehouse.Structure; -tableextension 8126 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" +tableextension 20502 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" { AllowInCustomizations = AsReadOnly; fields { - field(8146; "Component Supply Method"; Enum "Component Supply Method") + field(20522; "Component Supply Method"; Enum "Component Supply Method") { Caption = 'Component Supply Method'; DataClassification = CustomerContent; @@ -46,13 +46,13 @@ tableextension 8126 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" SubcontractingManagement.UpdateComponentSupplyMethodForProdOrderComponent(Rec); end; } - field(8147; "Subc. Original Location Code"; Code[10]) + field(20523; "Subc. Original Location Code"; Code[10]) { Caption = 'Original Location Code'; DataClassification = CustomerContent; TableRelation = Location; } - field(8148; "Subc. Qty. transf. to Subcontr"; Decimal) + field(20524; "Subc. Qty. transf. to Subcontr"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Item Ledger Entry".Quantity where("Entry Type" = const(Transfer), @@ -69,7 +69,7 @@ tableextension 8126 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" FieldClass = FlowField; ToolTip = 'Specifies the item amount transferred to the subcontractor.'; } - field(8149; "Subc. Qty. in Transit (Base)"; Decimal) + field(20525; "Subc. Qty. in Transit (Base)"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Transfer Line"."Qty. in Transit (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), @@ -84,7 +84,7 @@ tableextension 8126 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" FieldClass = FlowField; ToolTip = 'Specifies the items that are in transit.'; } - field(8150; "Subc. Qty.on TransOrder (Base)"; Decimal) + field(20526; "Subc. Qty.on TransOrder (Base)"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Transfer Line"."Outstanding Qty. (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), @@ -99,20 +99,20 @@ tableextension 8126 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" FieldClass = FlowField; ToolTip = 'Specifies the item amount that is on the transfer order.'; } - field(8151; "Subc. Purchase Order Filter"; Code[20]) + field(20527; "Subc. Purchase Order Filter"; Code[20]) { Caption = 'Subc. Purchase Order Filter'; FieldClass = FlowFilter; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order), "Subc. Order" = const(true)); } - field(8152; "Subc. Orig. Bin Code"; Code[20]) + field(20528; "Subc. Orig. Bin Code"; Code[20]) { Caption = 'Original Bin Code'; DataClassification = CustomerContent; TableRelation = Bin; } - field(8154; "RetQtyInTransit (Base)"; Decimal) + field(20530; "RetQtyInTransit (Base)"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Transfer Line"."Qty. in Transit (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), @@ -126,7 +126,7 @@ tableextension 8126 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" Editable = false; FieldClass = FlowField; } - field(8155; "RetQtyOnTransOrder (Base)"; Decimal) + field(20531; "RetQtyOnTransOrder (Base)"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Transfer Line"."Outstanding Qty. (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), @@ -141,4 +141,4 @@ tableextension 8126 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" FieldClass = FlowField; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompLine.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompLine.PageExt.al index 1ce9b632a2d..c67847d6ec7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompLine.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderCompLine.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -pageextension 8137 "Subc. ProdOrderCompLine" extends "Prod. Order Comp. Line List" +pageextension 20513 "Subc. ProdOrderCompLine" extends "Prod. Order Comp. Line List" { layout { @@ -19,4 +19,4 @@ pageextension 8137 "Subc. ProdOrderCompLine" extends "Prod. Order Comp. Line Lis } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComponents.Page.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComponents.Page.al index 124a055f664..ea31eab42fe 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComponents.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderComponents.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -page 8127 "Subc. Prod. Order Components" +page 20503 "Subc. Prod. Order Components" { ApplicationArea = Subcontracting; Caption = 'Prod. Order Comp. Line List'; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtng.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtng.PageExt.al index 09379c57a79..4ae6d881cd9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtng.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtng.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 8127 "Subc. Prod. Order Rtng." extends "Prod. Order Routing" +pageextension 20503 "Subc. Prod. Order Rtng." extends "Prod. Order Routing" { layout { @@ -226,4 +226,4 @@ pageextension 8127 "Subc. Prod. Order Rtng." extends "Prod. Order Routing" SubcPurchaseOrderCreator.ShowCreatedPurchaseOrder(Rec."Prod. Order No.", NoOfCreatedPurchOrder); end; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngExt.Codeunit.al index 37b771a2822..8fbe73e67f6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngExt.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. // ------------------------------------------------------------------------------------------------ @@ -10,7 +10,7 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; -codeunit 8144 "Subc. Prod. Order Rtng. Ext." +codeunit 20520 "Subc. Prod. Order Rtng. Ext." { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngLineExt.TableExt.al index ca708d04997..505a1472367 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProdOrderRtngLineExt.TableExt.al @@ -12,7 +12,7 @@ using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; -tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing Line" +tableextension 20506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing Line" { fields { @@ -69,7 +69,7 @@ tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing "Transfer WIP Item" := false; end; } - field(8174; "Vendor No. Subc. Price"; Code[20]) + field(20550; "Vendor No. Subc. Price"; Code[20]) { AllowInCustomizations = AsReadOnly; Caption = 'Vendor No. Subcontracting Prices'; @@ -77,7 +77,7 @@ tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing Editable = false; TableRelation = Vendor; } - field(8175; Subcontracting; Boolean) + field(20551; Subcontracting; Boolean) { AllowInCustomizations = AsReadOnly; CalcFormula = exist("Work Center" where("No." = field("Work Center No."), @@ -87,7 +87,7 @@ tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing FieldClass = FlowField; ToolTip = 'Specifies whether the Work Center Group is set up with a Vendor for Subcontracting.'; } - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { AllowInCustomizations = AsReadWrite; Caption = 'Transfer WIP Item'; @@ -102,14 +102,14 @@ tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing end; end; } - field(8185; "Transfer Description"; Text[100]) + field(20561; "Transfer Description"; Text[100]) { AllowInCustomizations = AsReadWrite; Caption = 'Transfer Description'; DataClassification = CustomerContent; ToolTip = 'Specifies the operation-specific description used on transfer orders for the semi-finished item as it is shipped to the subcontracting location. If empty, the standard description is used.'; } - field(8186; "Transfer Description 2"; Text[50]) + field(20562; "Transfer Description 2"; Text[50]) { AllowInCustomizations = AsReadWrite; Caption = 'Transfer Description 2'; @@ -117,7 +117,7 @@ tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing ToolTip = 'Specifies an additional operation-specific description line used on transfer orders for the semi-finished item as it is shipped to the subcontracting location.'; } #pragma warning disable AA0232 - field(8187; "WIP Qty. (Base) at Subc."; Decimal) + field(20563; "WIP Qty. (Base) at Subc."; Decimal) #pragma warning restore AA0232 { AllowInCustomizations = AsReadOnly; @@ -136,7 +136,7 @@ tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing FieldClass = FlowField; ToolTip = 'Specifies the total work-in-progress quantity (base) of the production order parent item currently held at the subcontractor location for this operation, as tracked by Subcontracting WIP Entries.'; } - field(8188; "WIP Qty. (Base) in Transit"; Decimal) + field(20564; "WIP Qty. (Base) in Transit"; Decimal) { AllowInCustomizations = AsReadOnly; AutoFormatType = 0; @@ -153,14 +153,14 @@ tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing FieldClass = FlowField; ToolTip = 'Specifies the outstanding quantity of the production order parent item on transfer orders that is currently in transit to the subcontractor for this operation.'; } - field(8158; "WIP Location Filter"; Code[10]) + field(20534; "WIP Location Filter"; Code[10]) { Caption = 'WIP Location Filter'; FieldClass = FlowFilter; TableRelation = Location; ToolTip = 'Specifies the location filter used for FlowField calculations.'; } - field(8159; "Prod. Order Line Filter"; Integer) + field(20535; "Prod. Order Line Filter"; Integer) { Caption = 'Prod. Order Line Filter'; FieldClass = FlowFilter; @@ -275,4 +275,4 @@ tableextension 8130 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing end; until ProdOrderLine.Next() = 0; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProductionOrderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProductionOrderExt.TableExt.al index 08c68796600..a34155c3446 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProductionOrderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcProductionOrderExt.TableExt.al @@ -6,16 +6,16 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -tableextension 8129 "Subc. Production Order Ext." extends "Production Order" +tableextension 20505 "Subc. Production Order Ext." extends "Production Order" { AllowInCustomizations = AsReadOnly; fields { - field(8176; "Created from Purch. Order"; Boolean) + field(20552; "Created from Purch. Order"; Boolean) { Caption = 'Created from Purchase Order'; DataClassification = CustomerContent; Description = 'For internal use only'; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrder.PageExt.al index 4c0bfa36be1..3b27b0f9158 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrder.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 8128 "Subc. Rel. Prod. Order" extends "Released Production Order" +pageextension 20504 "Subc. Rel. Prod. Order" extends "Released Production Order" { actions { @@ -82,4 +82,4 @@ pageextension 8128 "Subc. Rel. Prod. Order" extends "Released Production Order" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrders.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrders.PageExt.al index 8dbd33ced19..41686332718 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrders.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRelProdOrders.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Ledger; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -pageextension 8129 "Subc. Rel. Prod. Orders" extends "Released Production Orders" +pageextension 20505 "Subc. Rel. Prod. Orders" extends "Released Production Orders" { actions { @@ -60,4 +60,4 @@ pageextension 8129 "Subc. Rel. Prod. Orders" extends "Released Production Orders } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al index a60b4da3d43..3e35fe01186 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; -codeunit 8140 "Subc. Req. Wksh. Make Ord." +codeunit 20516 "Subc. Req. Wksh. Make Ord." { #if not CLEAN28 var @@ -121,4 +121,4 @@ codeunit 8140 "Subc. Req. Wksh. Make Ord." end; until ProdOrderComponent.Next() = 0; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingFactboxMgmt.Codeunit.al index fae2dfb5c70..f092a5aef0f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingFactboxMgmt.Codeunit.al @@ -11,7 +11,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.History; using Microsoft.Purchases.Vendor; -codeunit 8185 "Subc. Routing Factbox Mgmt." +codeunit 20561 "Subc. Routing Factbox Mgmt." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingInfoFactbox.Page.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingInfoFactbox.Page.al index bd99c39600a..c1eae77175f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingInfoFactbox.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingInfoFactbox.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -page 8126 "Subc. Routing Info Factbox" +page 20502 "Subc. Routing Info Factbox" { ApplicationArea = Subcontracting; Caption = 'Subcontracting Routing Details'; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLine.TableExt.al index 334a04218e5..822b125b6e7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLine.TableExt.al @@ -8,7 +8,7 @@ using Microsoft.Manufacturing.Capacity; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -tableextension 8184 "Subc. Routing Line" extends "Routing Line" +tableextension 20560 "Subc. Routing Line" extends "Routing Line" { AllowInCustomizations = AsReadWrite; fields @@ -66,7 +66,7 @@ tableextension 8184 "Subc. Routing Line" extends "Routing Line" "Transfer WIP Item" := false; end; } - field(8175; Subcontracting; Boolean) + field(20551; Subcontracting; Boolean) { AllowInCustomizations = AsReadOnly; CalcFormula = exist("Work Center" where("No." = field("Work Center No."), @@ -76,7 +76,7 @@ tableextension 8184 "Subc. Routing Line" extends "Routing Line" FieldClass = FlowField; ToolTip = 'Specifies whether the Work Center Group is set up with a Vendor for Subcontracting.'; } - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -103,13 +103,13 @@ tableextension 8184 "Subc. Routing Line" extends "Routing Line" end; end; } - field(8185; "Transfer Description"; Text[100]) + field(20561; "Transfer Description"; Text[100]) { Caption = 'Transfer Description'; DataClassification = CustomerContent; ToolTip = 'Specifies the operation-specific description used on transfer orders for the semi-finished item as it is shipped to the subcontracting location. If empty, the standard description is used.'; } - field(8186; "Transfer Description 2"; Text[50]) + field(20562; "Transfer Description 2"; Text[50]) { Caption = 'Transfer Description 2'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLines.PageExt.al index c1232bcab51..a1f4ef8e353 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Routing; -pageextension 8132 "Subc. Routing Lines" extends "Routing Lines" +pageextension 20508 "Subc. Routing Lines" extends "Routing Lines" { layout { @@ -133,4 +133,4 @@ pageextension 8132 "Subc. Routing Lines" extends "Routing Lines" Page.Run(Page::"Subcontractor Prices", SubcontractorPrice); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingVersionLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingVersionLines.PageExt.al index 89be45044b5..bc5f4bf4cf9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingVersionLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcRoutingVersionLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Routing; -pageextension 8133 "Subc. Routing Version Lines" extends "Routing Version Lines" +pageextension 20509 "Subc. Routing Version Lines" extends "Routing Version Lines" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al index 7ae7c785287..db6dd6c7f09 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterCard.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.WorkCenter; -pageextension 8130 "Subc. Work Center Card" extends "Work Center Card" +pageextension 20506 "Subc. Work Center Card" extends "Work Center Card" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterExtension.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterExtension.Codeunit.al index da63b180ce2..03a149ec836 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterExtension.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterExtension.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.WorkCenter; -codeunit 8143 "Subc. Work Center Extension" +codeunit 20519 "Subc. Work Center Extension" { [EventSubscriber(ObjectType::Table, Database::"Work Center", OnAfterDeleteEvent, '', false, false)] local procedure OnAfterDeleteWorkCenter(var Rec: Record "Work Center"; RunTrigger: Boolean) @@ -32,4 +32,4 @@ codeunit 8143 "Subc. Work Center Extension" SubcontractorPrice.DeletePricesForWorkCenter(Rec."No."); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterList.PageExt.al index cb18c7750ef..0e599efcb40 100644 --- a/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Manufacturing/SubcWorkCenterList.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.WorkCenter; -pageextension 8131 "Subc. Work Center List" extends "Work Center List" +pageextension 20507 "Subc. Work Center List" extends "Work Center List" { actions { diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemCard.PageExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemCard.PageExt.al index 762961bee8f..418750d9beb 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemCard.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemCard.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; -pageextension 8142 "Subc. Item Card" extends "Item Card" +pageextension 20518 "Subc. Item Card" extends "Item Card" { actions { @@ -24,4 +24,4 @@ pageextension 8142 "Subc. Item Card" extends "Item Card" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemExtension.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemExtension.Codeunit.al index 493d14aabb3..11d24c59a02 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemExtension.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemExtension.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; -codeunit 8156 "Subc. Item Extension" +codeunit 20532 "Subc. Item Extension" { [EventSubscriber(ObjectType::Table, Database::Item, OnAfterDeleteEvent, '', false, false)] local procedure OnAfterDeleteItem(var Rec: Record Item; RunTrigger: Boolean) diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemJournalLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemJournalLineExt.TableExt.al index 07153df5354..3f9b1c074d1 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemJournalLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemJournalLineExt.TableExt.al @@ -7,43 +7,43 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Journal; using Microsoft.Purchases.Document; -tableextension 8132 "Subc. Item Journal Line Ext." extends "Item Journal Line" +tableextension 20508 "Subc. Item Journal Line Ext." extends "Item Journal Line" { AllowInCustomizations = AsReadOnly; fields { - field(8134; "Subc. Prod. Order No."; Code[20]) + field(20510; "Subc. Prod. Order No."; Code[20]) { Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; } - field(8135; "Subc. Prod. Order Line No."; Integer) + field(20511; "Subc. Prod. Order Line No."; Integer) { Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; } - field(8136; "Subc. Purch. Order No."; Code[20]) + field(20512; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order)); } - field(8137; "Subc. Purch. Order Line No."; Integer) + field(20513; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Purchase Line"."Line No." where("Document Type" = const(Order), "Document No." = field("Subc. Purch. Order No.")); } - field(8138; "Subc. Operation No."; Code[10]) + field(20514; "Subc. Operation No."; Code[10]) { Caption = 'Operation No.'; DataClassification = CustomerContent; } - field(8166; "Subc. Item Charge Assign."; Boolean) + field(20542; "Subc. Item Charge Assign."; Boolean) { Caption = 'Subc. Item Charge Assignment'; DataClassification = CustomerContent; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemList.PageExt.al index c4d3beeb58e..ad42776fed3 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcItemList.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; -pageextension 8143 "Subc. Item List" extends "Item List" +pageextension 20519 "Subc. Item List" extends "Item List" { actions { @@ -36,4 +36,4 @@ pageextension 8143 "Subc. Item List" extends "Item List" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendor.TableExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendor.TableExt.al index eab6a129349..a501f0bac14 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendor.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendor.TableExt.al @@ -8,12 +8,12 @@ using Microsoft.Inventory.Location; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Vendor; -tableextension 8131 "Subc. Vendor" extends Vendor +tableextension 20507 "Subc. Vendor" extends Vendor { AllowInCustomizations = AsReadOnly; fields { - field(8139; "Subc. Location Code"; Code[10]) + field(20515; "Subc. Location Code"; Code[10]) { Caption = 'Subcontracting Location Code'; DataClassification = CustomerContent; @@ -48,14 +48,14 @@ tableextension 8131 "Subc. Vendor" extends Vendor end; end; } - field(8140; "Subc. Linked to Work Center"; Boolean) + field(20516; "Subc. Linked to Work Center"; Boolean) { CalcFormula = exist("Work Center" where("Subcontractor No." = field("No."))); Caption = 'Linked to Work Center'; Editable = false; FieldClass = FlowField; } - field(8141; "Subc. Work Center No."; Code[20]) + field(20517; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No.'; DataClassification = CustomerContent; @@ -72,4 +72,4 @@ tableextension 8131 "Subc. Vendor" extends Vendor CannotUseLocationLbl: Label 'Cannot use the location for subcontracting'; ShowLocationCardLbl: Label 'Show Location Card'; BinWarehouseEnabledOnLocationErr: Label 'Location %1 cannot be used as a subcontracting location because Bin Mandatory or warehouse handling is enabled on the location.', Comment = '%1 = Location Code'; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorCard.PageExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorCard.PageExt.al index 18d64b2959f..5ca3a311500 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorCard.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorCard.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Vendor; -pageextension 8140 "Subc. Vendor Card" extends "Vendor Card" +pageextension 20516 "Subc. Vendor Card" extends "Vendor Card" { layout { @@ -40,4 +40,4 @@ pageextension 8140 "Subc. Vendor Card" extends "Vendor Card" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorExtension.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorExtension.Codeunit.al index 9ae946d90df..89f0588a5a9 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorExtension.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorExtension.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Vendor; -codeunit 8155 "Subc. Vendor Extension" +codeunit 20531 "Subc. Vendor Extension" { [EventSubscriber(ObjectType::Table, Database::Vendor, OnAfterDeleteEvent, '', false, false)] local procedure OnAfterDeleteVendor(var Rec: Record Vendor; RunTrigger: Boolean) @@ -32,4 +32,4 @@ codeunit 8155 "Subc. Vendor Extension" SubcontractorPrice.DeletePricesForVendor(Rec."No."); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorList.PageExt.al index 718ff0bbccf..7aeec36445d 100644 --- a/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/MasterData/SubcVendorList.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Vendor; -pageextension 8141 "Subc. Vendor List" extends "Vendor List" +pageextension 20517 "Subc. Vendor List" extends "Vendor List" { actions { @@ -24,4 +24,4 @@ pageextension 8141 "Subc. Vendor List" extends "Vendor List" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al index 9b953c298f3..edaed10c9b8 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BasicSubcontracting.PermissionSetExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Security.AccessControl; -permissionsetextension 8126 "D365 BASIC - Subcontracting" extends "D365 BASIC" +permissionsetextension 20502 "D365 BASIC - Subcontracting" extends "D365 BASIC" { IncludedPermissionSets = "Subcontract - Read"; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al index 3f08034b783..887be14612f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/D365BusFullAccessSubcontracting.PermissionSetExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Security.AccessControl; -permissionsetextension 8125 "D365 BUS FULL ACCESS - Subcontracting" extends "D365 BUS FULL ACCESS" +permissionsetextension 20501 "D365 BUS FULL ACCESS - Subcontracting" extends "D365 BUS FULL ACCESS" { IncludedPermissionSets = "Subcontract - Edit"; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al b/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al index ad8faf612b2..feed12e1025 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/D365ReadSubcontracting.PermissionSetExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Security.AccessControl; -permissionsetextension 8124 "D365 READ - Subcontracting" extends "D365 READ" +permissionsetextension 20500 "D365 READ - Subcontracting" extends "D365 READ" { IncludedPermissionSets = "Subcontract - Read"; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al index 876bb6deb6b..5277dbaa86e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractEdit.PermissionSet.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 8127 "Subcontract - Edit" +permissionset 20503 "Subcontract - Edit" { Caption = 'Subcontracting - Edit'; Access = Public; @@ -15,4 +15,4 @@ permissionset 8127 "Subcontract - Edit" Permissions = tabledata "Subcontractor Price" = IMD, tabledata "Subcontractor WIP Ledger Entry" = IMD; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al index 01d4e1c94cd..fa7bad4d087 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractObjs.PermissionSet.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 8125 "Subcontract - Objs" +permissionset 20501 "Subcontract - Objs" { Caption = 'Subcontracting - Objects'; Assignable = true; @@ -93,4 +93,4 @@ permissionset 8125 "Subcontract - Objs" report "Subc. Create Transf. Order" = X, report "Subc. Create SubCReturnOrder" = X, report "Subc. Dispatching List" = X; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al index 0ce69cd0370..570d3ba0c3d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al +++ b/src/Apps/W1/Subcontracting/App/src/Permissions/SubcontractRead.PermissionSet.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 8126 "Subcontract - Read" +permissionset 20502 "Subcontract - Read" { Caption = 'Subcontracting - Read'; Access = Public; @@ -15,4 +15,4 @@ permissionset 8126 "Subcontract - Read" Permissions = tabledata "Subcontractor Price" = R, tabledata "Subcontractor WIP Ledger Entry" = R; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCalculateSubcontracts.Report.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCalculateSubcontracts.Report.al index 82f018749cd..c4f3ca648ae 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCalculateSubcontracts.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCalculateSubcontracts.Report.al @@ -15,7 +15,7 @@ using Microsoft.Manufacturing.Setup; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; -report 8129 "Subc. Calculate Subcontracts" +report 20505 "Subc. Calculate Subcontracts" { ApplicationArea = Subcontracting; Caption = 'Calculate Subcontracts'; @@ -368,4 +368,4 @@ report 8129 "Subc. Calculate Subcontracts" local procedure OnProdOrderRoutingLineOnBeforeCalculateSubContractRequirements(var TempProdOrderRoutingLine: Record "Prod. Order Routing Line" temporary) begin end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCreateSubCReturnOrder.Report.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCreateSubCReturnOrder.Report.al index 6edf48bb9c7..bd920579ffb 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCreateSubCReturnOrder.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcCreateSubCReturnOrder.Report.al @@ -12,7 +12,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; -report 8126 "Subc. Create SubCReturnOrder" +report 20502 "Subc. Create SubCReturnOrder" { ApplicationArea = Subcontracting; Caption = 'Create Subcontracting Return Order'; @@ -416,4 +416,4 @@ report 8126 "Subc. Create SubCReturnOrder" TransferLineToCheck.SetRange("Subc. Return Order", true); exit(not TransferLineToCheck.IsEmpty()); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcItemChargeAssPurchExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcItemChargeAssPurchExt.Codeunit.al index ba27303e63f..8190bcf521e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcItemChargeAssPurchExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcItemChargeAssPurchExt.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. // ------------------------------------------------------------------------------------------------ @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; using Microsoft.Purchases.History; -codeunit 8160 "Subc. ItemChargeAssPurchExt" +codeunit 20536 "Subc. ItemChargeAssPurchExt" { var AssignToUndoneRcptErr: Label 'You cannot assign the item charge to subcontracting receipt %1, line %2, because it has been undone.', Comment = '%1 = Posted Receipt No., %2 = Posted Receipt Line No.'; @@ -58,4 +58,4 @@ codeunit 8160 "Subc. ItemChargeAssPurchExt" FromPurchRcptLine."No.", FromPurchRcptLine.Description, NextLine); until FromPurchRcptLine.Next() = 0; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPOSubform.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPOSubform.PageExt.al index a5ff0a135d9..6a00a3d8ad0 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPOSubform.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPOSubform.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -pageextension 8148 "Subc. PO Subform" extends "Purchase Order Subform" +pageextension 20524 "Subc. PO Subform" extends "Purchase Order Subform" { layout { @@ -127,4 +127,4 @@ pageextension 8148 "Subc. PO Subform" extends "Purchase Order Subform" begin SubcProdOrderFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPriceManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPriceManagement.Codeunit.al index 071ebebd75c..06f866172d6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPriceManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPriceManagement.Codeunit.al @@ -19,7 +19,7 @@ using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; -codeunit 8132 "Subc. Price Management" +codeunit 20508 "Subc. Price Management" { var ManufacturingSetup: Record "Manufacturing Setup"; @@ -589,4 +589,4 @@ codeunit 8132 "Subc. Price Management" ItemUnitofMeasure.Get(PurchaseLine."No.", PurchaseLine."Unit of Measure Code"); exit(Round(PurchaseLine.Quantity * ItemUnitofMeasure."Qty. per Unit of Measure", 0.00001)); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchCrMemoLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchCrMemoLine.TableExt.al index 715fdec8189..05a6df724fc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchCrMemoLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchCrMemoLine.TableExt.al @@ -9,18 +9,18 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.History; -tableextension 8139 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line" +tableextension 20515 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line" { fields { - field(8167; "Subc. Prod. Order No."; Code[20]) + field(20543; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(8168; "Subc. Prod. Order Line No."; Integer) + field(20544; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -28,20 +28,20 @@ tableextension 8139 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line" TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(8169; "Subc. Routing No."; Code[20]) + field(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(8170; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(8171; "Subc. Operation No."; Code[10]) + field(20547; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -51,7 +51,7 @@ tableextension 8139 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line" "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(8172; "Subc. Work Center No."; Code[20]) + field(20548; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; @@ -59,4 +59,4 @@ tableextension 8139 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line" TableRelation = "Work Center"; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchFactboxMgmt.Codeunit.al index 4ac3bc6d8e3..1426576f8ba 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchFactboxMgmt.Codeunit.al @@ -14,7 +14,7 @@ using Microsoft.Utilities; using System.Reflection; using System.Text; -codeunit 8184 "Subc. Purch. Factbox Mgmt." +codeunit 20560 "Subc. Purch. Factbox Mgmt." { var #if not CLEAN28 @@ -638,4 +638,4 @@ codeunit 8184 "Subc. Purch. Factbox Mgmt." TransferLine.SetRange("Subc. Return Order", false); TransferLine.SetRange("Derived From Line No.", 0); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchInvLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchInvLine.TableExt.al index 8af54f26099..3e6051e543a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchInvLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchInvLine.TableExt.al @@ -9,18 +9,18 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.History; -tableextension 8138 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" +tableextension 20514 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" { fields { - field(8167; "Subc. Prod. Order No."; Code[20]) + field(20543; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(8168; "Subc. Prod. Order Line No."; Integer) + field(20544; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -28,20 +28,20 @@ tableextension 8138 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(8169; "Subc. Routing No."; Code[20]) + field(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(8170; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(8171; "Subc. Operation No."; Code[10]) + field(20547; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -51,7 +51,7 @@ tableextension 8138 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(8172; "Subc. Work Center No."; Code[20]) + field(20548; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; @@ -59,4 +59,4 @@ tableextension 8138 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" TableRelation = "Work Center"; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrder.PageExt.al index e9ae0ba2a0e..bed8ee97fae 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrder.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -pageextension 8147 "Subc. Purch. Order" extends "Purchase Order" +pageextension 20523 "Subc. Purch. Order" extends "Purchase Order" { layout { @@ -127,4 +127,4 @@ pageextension 8147 "Subc. Purch. Order" extends "Purchase Order" #endif HasSubcontractingContext := SubcontractingManagement.IsSubcontractingPurchaseDocument(Rec); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrderList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrderList.PageExt.al index 9f381dab50c..2a1d314d7c4 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrderList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchOrderList.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -pageextension 8149 "Subc. PurchOrderList" extends "Purchase Order List" +pageextension 20525 "Subc. PurchOrderList" extends "Purchase Order List" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchPostExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchPostExt.Codeunit.al index fb64492557c..e591aeba840 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchPostExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchPostExt.Codeunit.al @@ -16,7 +16,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Document; using Microsoft.Purchases.History; using Microsoft.Purchases.Posting; -codeunit 8159 "Subc. Purch. Post Ext" +codeunit 20535 "Subc. Purch. Post Ext" { var #if not CLEAN28 @@ -281,4 +281,4 @@ codeunit 8159 "Subc. Purch. Post Ext" end; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchRcptLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchRcptLine.TableExt.al index acc7a7d1de8..eda9ff3ed96 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchRcptLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchRcptLine.TableExt.al @@ -9,18 +9,18 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.History; -tableextension 8137 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" +tableextension 20513 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" { fields { - field(8167; "Subc. Prod. Order No."; Code[20]) + field(20543; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(8168; "Subc. Prod. Order Line No."; Integer) + field(20544; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -28,20 +28,20 @@ tableextension 8137 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(8169; "Subc. Routing No."; Code[20]) + field(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(8170; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(8171; "Subc. Operation No."; Code[10]) + field(20547; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -51,7 +51,7 @@ tableextension 8137 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(8172; "Subc. Work Center No."; Code[20]) + field(20548; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; @@ -59,4 +59,4 @@ tableextension 8137 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" TableRelation = "Work Center"; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeader.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeader.TableExt.al index 508fdbcf70f..e0c98ed69c5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeader.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeader.TableExt.al @@ -7,12 +7,12 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Location; using Microsoft.Purchases.Document; -tableextension 8133 "Subc. Purchase Header" extends "Purchase Header" +tableextension 20509 "Subc. Purchase Header" extends "Purchase Header" { AllowInCustomizations = AsReadOnly; fields { - field(8144; "Subc. Location Code"; Code[10]) + field(20520; "Subc. Location Code"; Code[10]) { Caption = 'Subcontracting Location Code'; DataClassification = CustomerContent; @@ -30,7 +30,7 @@ tableextension 8133 "Subc. Purchase Header" extends "Purchase Header" Error(BinMandatorySubcontrLocationErr, "Subc. Location Code"); end; } - field(8145; "Subc. Order"; Boolean) + field(20521; "Subc. Order"; Boolean) { CalcFormula = exist("Purchase Line" where("Document Type" = const(Order), "Document No." = field("No."), @@ -41,4 +41,4 @@ tableextension 8133 "Subc. Purchase Header" extends "Purchase Header" ToolTip = 'Specifies the subcontracting orders that have been created.'; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderArch.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderArch.TableExt.al index 7add2ce7f3e..e57f3682d75 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderArch.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderArch.TableExt.al @@ -8,19 +8,19 @@ using Microsoft.Inventory.Location; using Microsoft.Purchases.Archive; using Microsoft.Purchases.Document; -tableextension 8135 "Subc. Purchase Header Arch" extends "Purchase Header Archive" +tableextension 20511 "Subc. Purchase Header Arch" extends "Purchase Header Archive" { AllowInCustomizations = AsReadOnly; fields { - field(8144; "Subc. Location Code"; Code[10]) + field(20520; "Subc. Location Code"; Code[10]) { Caption = 'Subcontracting Location Code'; DataClassification = CustomerContent; TableRelation = Location where("Use As In-Transit" = const(false)); ; } - field(8145; "Subc. Order"; Boolean) + field(20521; "Subc. Order"; Boolean) { CalcFormula = exist("Purchase Line" where("Document Type" = const(Order), "Document No." = field("No."), @@ -31,4 +31,4 @@ tableextension 8135 "Subc. Purchase Header Arch" extends "Purchase Header Archiv FieldClass = FlowField; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderExt.Codeunit.al index c4ea3ce45d0..97e7b2d2fa8 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseHeaderExt.Codeunit.al @@ -9,7 +9,7 @@ using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; using Microsoft.Utilities; -codeunit 8157 "Subc. Purchase Header Ext" +codeunit 20533 "Subc. Purchase Header Ext" { var #if not CLEAN28 diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLine.TableExt.al index 6d6f17646f5..2a6642c2706 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLine.TableExt.al @@ -13,7 +13,7 @@ using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; using Microsoft.Warehouse.Document; -tableextension 8136 "Subc. Purchase Line" extends "Purchase Line" +tableextension 20512 "Subc. Purchase Line" extends "Purchase Line" { fields { @@ -45,14 +45,14 @@ tableextension 8136 "Subc. Purchase Line" extends "Purchase Line" SetSubcontractingLineType(); end; } - field(8167; "Subc. Prod. Order No."; Code[20]) + field(20543; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(8168; "Subc. Prod. Order Line No."; Integer) + field(20544; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -60,20 +60,20 @@ tableextension 8136 "Subc. Purchase Line" extends "Purchase Line" TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(8169; "Subc. Routing No."; Code[20]) + field(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(8170; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(8171; "Subc. Operation No."; Code[10]) + field(20547; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -83,20 +83,20 @@ tableextension 8136 "Subc. Purchase Line" extends "Purchase Line" "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(8172; "Subc. Work Center No."; Code[20]) + field(20548; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Work Center"; } - field(8173; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") + field(20549; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") { Caption = 'Subcontracting Line Type'; DataClassification = CustomerContent; Editable = false; } - field(8174; "Subc.Whse.Outstanding Quantity"; Decimal) + field(20550; "Subc.Whse.Outstanding Quantity"; Decimal) { AccessByPermission = TableData Location = R; AutoFormatType = 0; @@ -112,7 +112,7 @@ tableextension 8136 "Subc. Purchase Line" extends "Purchase Line" Editable = false; FieldClass = FlowField; } - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -249,4 +249,4 @@ tableextension 8136 "Subc. Purchase Line" extends "Purchase Line" Rec."Subc. Purchase Line Type" := Rec."Subc. Purchase Line Type"::NotLastOperation; end; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineArchive.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineArchive.TableExt.al index 175529e0677..c2b22b039bd 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineArchive.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineArchive.TableExt.al @@ -9,18 +9,18 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Archive; -tableextension 8140 "Subc. Purchase Line Archive" extends "Purchase Line Archive" +tableextension 20516 "Subc. Purchase Line Archive" extends "Purchase Line Archive" { fields { - field(8167; "Subc. Prod. Order No."; Code[20]) + field(20543; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(8168; "Subc. Prod. Order Line No."; Integer) + field(20544; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No. (Sub)'; DataClassification = CustomerContent; @@ -28,20 +28,20 @@ tableextension 8140 "Subc. Purchase Line Archive" extends "Purchase Line Archive TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(8169; "Subc. Routing No."; Code[20]) + field(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(8170; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(8171; "Subc. Operation No."; Code[10]) + field(20547; "Subc. Operation No."; Code[10]) { Caption = 'Operation No. (Sub)'; DataClassification = CustomerContent; @@ -51,7 +51,7 @@ tableextension 8140 "Subc. Purchase Line Archive" extends "Purchase Line Archive "Routing No." = field("Subc. Routing No."), "Routing Reference No." = field("Subc. Rtng Reference No.")); } - field(8172; "Subc. Work Center No."; Code[20]) + field(20548; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; @@ -59,4 +59,4 @@ tableextension 8140 "Subc. Purchase Line Archive" extends "Purchase Line Archive TableRelation = "Work Center"; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineExt.Codeunit.al index 95cddd4edaa..103828ffefa 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineExt.Codeunit.al @@ -11,7 +11,7 @@ using Microsoft.Purchases.Document; using Microsoft.Utilities; using Microsoft.Warehouse.Document; -codeunit 8158 "Subc. Purchase Line Ext" +codeunit 20534 "Subc. Purchase Line Ext" { var #if not CLEAN28 @@ -456,4 +456,4 @@ codeunit 8158 "Subc. Purchase Line Ext" ProdOrderLine.Get("Production Order Status"::Released, PurchaseLine."Prod. Order No.", PurchaseLine."Prod. Order Line No."); OpenItemTrackingOfProdOrderLine(PurchaseLine, true); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineFactbox.Page.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineFactbox.Page.al index 739dd74574f..a9c22fd07fc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineFactbox.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineFactbox.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -page 8142 "Subc. Purchase Line Factbox" +page 20518 "Subc. Purchase Line Factbox" { ApplicationArea = Subcontracting; Caption = 'Subcontracting Details'; diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineType.Enum.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineType.Enum.al index 9d579093ad5..57acad29558 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineType.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseLineType.Enum.al @@ -3,7 +3,7 @@ // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 8131 "Subc. Purchase Line Type" +enum 20507 "Subc. Purchase Line Type" { Extensible = true; @@ -19,4 +19,4 @@ enum 8131 "Subc. Purchase Line Type" { Caption = 'Not Last Operation'; } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseOrderCreator.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseOrderCreator.Codeunit.al index bedacd43fe8..00ad7451bb6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseOrderCreator.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcPurchaseOrderCreator.Codeunit.al @@ -22,7 +22,7 @@ using Microsoft.Purchases.Vendor; using Microsoft.Utilities; using System.Utilities; -codeunit 8181 "Subc. Purchase Order Creator" +codeunit 20557 "Subc. Purchase Order Creator" { var ManufacturingSetup: Record "Manufacturing Setup"; @@ -667,4 +667,4 @@ codeunit 8181 "Subc. Purchase Order Creator" local procedure OnBeforeShowCreatedPurchaseOrder(ProdOrderNo: Code[20]; NoOfCreatedPurchOrder: Integer; var IsHandled: Boolean) begin end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcReqLineExtension.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcReqLineExtension.Codeunit.al index 447de1dcc23..b22ca2c91bc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcReqLineExtension.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcReqLineExtension.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; -codeunit 8137 "Subc. Req.Line Extension" +codeunit 20513 "Subc. Req.Line Extension" { #if not CLEAN28 var @@ -78,4 +78,4 @@ codeunit 8137 "Subc. Req.Line Extension" Rec."Page ID" := Page::"Subc. Subcontracting Worksheet"; end; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcRequisitionLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcRequisitionLine.TableExt.al index 3a0414e479a..310473dbfd2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcRequisitionLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcRequisitionLine.TableExt.al @@ -11,12 +11,12 @@ using Microsoft.Inventory.Item; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Routing; -tableextension 8134 "Subc. RequisitionLine" extends "Requisition Line" +tableextension 20510 "Subc. RequisitionLine" extends "Requisition Line" { AllowInCustomizations = AsReadOnly; fields { - field(8140; "Subc. Standard Task Code"; Code[10]) + field(20516; "Subc. Standard Task Code"; Code[10]) { Caption = 'Standard Task Code'; DataClassification = CustomerContent; @@ -38,7 +38,7 @@ tableextension 8134 "Subc. RequisitionLine" extends "Requisition Line" UpdateSubcontractorPrice(); end; } - field(8141; "Base UM Qty/PL UM Qty"; Decimal) + field(20517; "Base UM Qty/PL UM Qty"; Decimal) { Access = Internal; AutoFormatType = 0; @@ -49,7 +49,7 @@ tableextension 8134 "Subc. RequisitionLine" extends "Requisition Line" InitValue = 1; ToolTip = 'Specifies the quantity of the base unit of measure or the price list unit of measure.'; } - field(8142; "PL UM Qty/Base UM Qty"; Decimal) + field(20518; "PL UM Qty/Base UM Qty"; Decimal) { Access = Internal; AutoFormatType = 0; @@ -75,7 +75,7 @@ tableextension 8134 "Subc. RequisitionLine" extends "Requisition Line" end; end; } - field(8143; "Subc. UoM for Pricelist"; Code[10]) + field(20519; "Subc. UoM for Pricelist"; Code[10]) { Access = Internal; Caption = 'UoM for Price list'; @@ -97,7 +97,7 @@ tableextension 8134 "Subc. RequisitionLine" extends "Requisition Line" UpdateSubcontractorPriceUOM(); end; } - field(8144; "Subc. Pricelist Cost"; Decimal) + field(20520; "Subc. Pricelist Cost"; Decimal) { Access = Internal; AutoFormatExpression = "Currency Code"; @@ -188,4 +188,4 @@ tableextension 8134 "Subc. RequisitionLine" extends "Requisition Line" if (Type = Type::Item) and ("No." <> '') and ("Prod. Order No." <> '') then SubcPriceManagement.GetSubcPriceForReqLine(Rec, "Subc. UoM for Pricelist"); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrice.Table.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrice.Table.al index 479964f474f..0d403d44e62 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrice.Table.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrice.Table.al @@ -10,7 +10,7 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Vendor; -table 8124 "Subcontractor Price" +table 20500 "Subcontractor Price" { AllowInCustomizations = AsReadOnly; Caption = 'Subcontractor Price'; @@ -258,4 +258,4 @@ table 8124 "Subcontractor Price" DeleteAll(true); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrices.Page.al b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrices.Page.al index 5b02798d8f0..bbb80cecdaa 100644 --- a/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrices.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Purchase/SubcontractorPrices.Page.al @@ -11,7 +11,7 @@ using Microsoft.Purchases.Vendor; using System.Globalization; using System.Text; -page 8124 "Subcontractor Prices" +page 20500 "Subcontractor Prices" { ApplicationArea = Subcontracting; Caption = 'Subcontractor Prices'; @@ -410,4 +410,4 @@ page 8124 "Subcontractor Prices" begin CurrPage.SetSelectionFilter(SubcontractorPrice); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingCue.TableExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingCue.TableExt.al index a6e28b6cc5f..78a2b64e79b 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingCue.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingCue.TableExt.al @@ -8,11 +8,11 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -tableextension 8153 "Subc. Manufacturing Cue" extends "Manufacturing Cue" +tableextension 20529 "Subc. Manufacturing Cue" extends "Manufacturing Cue" { fields { - field(8184; "Subcontracting Purchase Orders"; Integer) + field(20560; "Subcontracting Purchase Orders"; Integer) { AccessByPermission = tabledata "Purchase Header" = R; CalcFormula = count("Purchase Header" where("Document Type" = const(Order), @@ -22,7 +22,7 @@ tableextension 8153 "Subc. Manufacturing Cue" extends "Manufacturing Cue" FieldClass = FlowField; ToolTip = 'Specifies the number of open purchase orders that are subcontracting orders.'; } - field(8185; "Subc. Purch. Lines Outstd."; Integer) + field(20561; "Subc. Purch. Lines Outstd."; Integer) { AccessByPermission = tabledata "Purchase Line" = R; CalcFormula = count("Purchase Line" where("Document Type" = const(Order), @@ -33,7 +33,7 @@ tableextension 8153 "Subc. Manufacturing Cue" extends "Manufacturing Cue" FieldClass = FlowField; ToolTip = 'Specifies the number of outstanding subcontracting purchase order lines that have not yet been fully received.'; } - field(8186; "Subc. Purch. Lines Total"; Integer) + field(20562; "Subc. Purch. Lines Total"; Integer) { AccessByPermission = tabledata "Purchase Line" = R; CalcFormula = count("Purchase Line" where("Document Type" = const(Order), @@ -43,7 +43,7 @@ tableextension 8153 "Subc. Manufacturing Cue" extends "Manufacturing Cue" FieldClass = FlowField; ToolTip = 'Specifies the total number of subcontracting purchase order lines.'; } - field(8187; "Transfers to Subcontractor"; Integer) + field(20563; "Transfers to Subcontractor"; Integer) { AccessByPermission = tabledata "Transfer Header" = R; CalcFormula = count("Transfer Header" where("Subc. Source Type" = const(Subcontracting), @@ -53,7 +53,7 @@ tableextension 8153 "Subc. Manufacturing Cue" extends "Manufacturing Cue" FieldClass = FlowField; ToolTip = 'Specifies the number of transfer orders to subcontractors.'; } - field(8188; "Returns from Subcontractor"; Integer) + field(20564; "Returns from Subcontractor"; Integer) { AccessByPermission = tabledata "Transfer Header" = R; CalcFormula = count("Transfer Header" where("Subc. Source Type" = const(Subcontracting), diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingManagerRC.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingManagerRC.PageExt.al index 51b5a9f9c93..7d72ab67a22 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingManagerRC.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcManufacturingManagerRC.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.RoleCenters; -pageextension 8160 "Subc. Manufacturing Manager RC" extends "Manufacturing Manager RC" +pageextension 20536 "Subc. Manufacturing Manager RC" extends "Manufacturing Manager RC" { actions { @@ -32,4 +32,4 @@ pageextension 8160 "Subc. Manufacturing Manager RC" extends "Manufacturing Manag } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerActivities.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerActivities.PageExt.al index 9c6cfbe1231..0740938d5a0 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerActivities.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerActivities.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -pageextension 8161 "Subc. Prod. Planner Activities" extends "Production Planner Activities" +pageextension 20537 "Subc. Prod. Planner Activities" extends "Production Planner Activities" { layout { @@ -65,4 +65,4 @@ pageextension 8161 "Subc. Prod. Planner Activities" extends "Production Planner } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerRoleCenter.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerRoleCenter.PageExt.al index c882cc66e0c..5a1755512b8 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerRoleCenter.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcProdPlannerRoleCenter.PageExt.al @@ -9,7 +9,7 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -pageextension 8162 "Subc. Prod. Planner RoleCenter" extends "Production Planner Role Center" +pageextension 20538 "Subc. Prod. Planner RoleCenter" extends "Production Planner Role Center" { actions { @@ -59,4 +59,4 @@ pageextension 8162 "Subc. Prod. Planner RoleCenter" extends "Production Planner } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchAgentRoleCenter.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchAgentRoleCenter.PageExt.al index 2776b1ba347..b65667e4e33 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchAgentRoleCenter.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchAgentRoleCenter.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; using Microsoft.Purchases.RoleCenters; -pageextension 8165 "Subc. Purch. Agent Role Center" extends "Purchasing Agent Role Center" +pageextension 20541 "Subc. Purch. Agent Role Center" extends "Purchasing Agent Role Center" { actions { @@ -24,4 +24,4 @@ pageextension 8165 "Subc. Purch. Agent Role Center" extends "Purchasing Agent Ro } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchasingManagerRC.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchasingManagerRC.PageExt.al index 1644ad87509..242d43930b6 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchasingManagerRC.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcPurchasingManagerRC.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.RoleCenters; -pageextension 8159 "Subc. Purchasing Manager RC" extends "Purchasing Manager Role Center" +pageextension 20535 "Subc. Purchasing Manager RC" extends "Purchasing Manager Role Center" { actions { @@ -21,4 +21,4 @@ pageextension 8159 "Subc. Purchasing Manager RC" extends "Purchasing Manager Rol } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSMfgFoundation.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSMfgFoundation.PageExt.al index b4fb815e062..7097e6e1231 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSMfgFoundation.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSMfgFoundation.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.RoleCenters; -pageextension 8163 "Subc. Shop S. Mfg Foundation" extends "Shop Supervisor Mfg Foundation" +pageextension 20539 "Subc. Shop S. Mfg Foundation" extends "Shop Supervisor Mfg Foundation" { actions { @@ -24,4 +24,4 @@ pageextension 8163 "Subc. Shop S. Mfg Foundation" extends "Shop Supervisor Mfg F } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperActivities.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperActivities.PageExt.al index 8a4a7fcd87c..811d395b39b 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperActivities.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperActivities.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -pageextension 8173 "Subc. Shop Super. Activities" extends "Shop Supervisor Activities" +pageextension 20549 "Subc. Shop Super. Activities" extends "Shop Supervisor Activities" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperRoleCenter.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperRoleCenter.PageExt.al index e165ac7638a..09fcaed261c 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperRoleCenter.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperRoleCenter.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.RoleCenters; -pageextension 8164 "Subc. Shop Super. Role Center" extends "Shop Supervisor Role Center" +pageextension 20540 "Subc. Shop Super. Role Center" extends "Shop Supervisor Role Center" { actions { @@ -24,4 +24,4 @@ pageextension 8164 "Subc. Shop Super. Role Center" extends "Shop Supervisor Role } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperbasicActivity.PageExt.al b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperbasicActivity.PageExt.al index a3e3e8f7b3b..293f20af26f 100644 --- a/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperbasicActivity.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/RoleCenters/SubcShopSuperbasicActivity.PageExt.al @@ -8,7 +8,7 @@ using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.RoleCenters; using Microsoft.Purchases.Document; -pageextension 8174 "Subc. ShopSuperbasicActivity" extends "Shop Super. basic Activities" +pageextension 20550 "Subc. ShopSuperbasicActivity" extends "Shop Super. basic Activities" { layout { diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaMgmt.Codeunit.al index 2a9579d11bc..a555f100bc9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaMgmt.Codeunit.al @@ -9,7 +9,7 @@ using Microsoft.Manufacturing.Setup; #endif using System.Environment.Configuration; -codeunit 8195 "Subc. Application Area Mgmt." +codeunit 20571 "Subc. Application Area Mgmt." { Access = Internal; diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaSetup.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaSetup.TableExt.al index bfe5f8e7122..55245b3efc9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaSetup.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/SubcApplicationAreaSetup.TableExt.al @@ -6,11 +6,11 @@ namespace Microsoft.Manufacturing.Subcontracting; using System.Environment.Configuration; -tableextension 8195 "Subc. Application Area Setup" extends "Application Area Setup" +tableextension 20571 "Subc. Application Area Setup" extends "Application Area Setup" { fields { - field(8124; Subcontracting; Boolean) + field(20500; Subcontracting; Boolean) { Caption = 'Subcontracting'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.PageExt.al index e8672f7bb0d..36508319bc2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Setup; -pageextension 8166 "Subc. Manufacturing Setup" extends "Manufacturing Setup" +pageextension 20542 "Subc. Manufacturing Setup" extends "Manufacturing Setup" { layout { @@ -48,4 +48,4 @@ pageextension 8166 "Subc. Manufacturing Setup" extends "Manufacturing Setup" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.TableExt.al index 392a8ddeb05..3607d390a5a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/SubcManufacturingSetup.TableExt.al @@ -8,16 +8,16 @@ using Microsoft.Foundation.Company; using Microsoft.Inventory.Requisition; using Microsoft.Manufacturing.Setup; -tableextension 8125 "Subc. Manufacturing Setup" extends "Manufacturing Setup" +tableextension 20501 "Subc. Manufacturing Setup" extends "Manufacturing Setup" { fields { - field(8124; "Create Prod. Order Info Line"; Boolean) + field(20500; "Create Prod. Order Info Line"; Boolean) { Caption = 'Create Prod. Order Info Line'; DataClassification = CustomerContent; } - field(8125; "Subcontracting Template Name"; Code[10]) + field(20501; "Subcontracting Template Name"; Code[10]) { Caption = 'Subcontracting Worksheet Template Name'; DataClassification = CustomerContent; @@ -27,7 +27,7 @@ tableextension 8125 "Subc. Manufacturing Setup" extends "Manufacturing Setup" #pragma warning restore AL0432 #pragma warning restore AL0520 } - field(8126; "Subcontracting Batch Name"; Code[10]) + field(20502; "Subcontracting Batch Name"; Code[10]) { Caption = 'Subcontracting Worksheet Batch Name'; DataClassification = CustomerContent; @@ -38,19 +38,19 @@ tableextension 8125 "Subc. Manufacturing Setup" extends "Manufacturing Setup" #pragma warning restore AL0432 #pragma warning restore AL0520 } - field(8128; "Component Direct Unit Cost"; Option) + field(20504; "Component Direct Unit Cost"; Option) { Caption = 'Component Direct Unit Cost'; DataClassification = CustomerContent; OptionCaption = 'Standard,Prod. Order Component'; OptionMembers = Standard,"Prod. Order Component"; } - field(8129; "Subc. Comp. Transfer Lead Time"; DateFormula) + field(20505; "Subc. Comp. Transfer Lead Time"; DateFormula) { Caption = 'Subcontracting Component Transfer Lead Time'; DataClassification = CustomerContent; } - field(8133; "Subc. Default Comp. Location"; Enum "Components at Location") + field(20509; "Subc. Default Comp. Location"; Enum "Components at Location") { Caption = 'Default Component Location Source'; DataClassification = CustomerContent; @@ -86,4 +86,4 @@ tableextension 8125 "Subc. Manufacturing Setup" extends "Manufacturing Setup" end; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcCreateTransfOrder.Report.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcCreateTransfOrder.Report.al index 6392bb11eea..edf1d1f7bdc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcCreateTransfOrder.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcCreateTransfOrder.Report.al @@ -13,7 +13,7 @@ using Microsoft.Manufacturing.WorkCenter; using Microsoft.Purchases.Document; using Microsoft.Purchases.Vendor; -report 8125 "Subc. Create Transf. Order" +report 20501 "Subc. Create Transf. Order" { ApplicationArea = Subcontracting; Caption = 'Create Subcontracting Transfer Order'; @@ -597,4 +597,4 @@ report 8125 "Subc. Create Transf. Order" SubcontractorWIPLedgerEntry.CalcSums("Quantity (Base)"); exit(SubcontractorWIPLedgerEntry."Quantity (Base)"); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransHeaderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransHeaderExt.TableExt.al index 37fa3ec3597..dc4ea47e1f2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransHeaderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransHeaderExt.TableExt.al @@ -7,24 +7,24 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; using Microsoft.Purchases.Vendor; -tableextension 8148 "Subc. DirectTransHeader Ext." extends "Direct Trans. Header" +tableextension 20524 "Subc. DirectTransHeader Ext." extends "Direct Trans. Header" { AllowInCustomizations = AsReadOnly; fields { - field(8154; "Subcontr. Purch. Order No."; Code[20]) + field(20530; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; } - field(8155; "Subcontr. PO Line No."; Integer) + field(20531; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; } - field(8160; "Source ID"; Code[20]) + field(20536; "Source ID"; Code[20]) { Caption = 'Source ID'; DataClassification = CustomerContent; @@ -45,17 +45,17 @@ tableextension 8148 "Subc. DirectTransHeader Ext." extends "Direct Trans. Header HandleSubcontractingSourceLookup(Rec); end; } - field(8161; "Source Ref. No."; Integer) + field(20537; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(8164; "Source Type"; Enum "Transfer Source Type") + field(20540; "Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(8165; "Return Order"; Boolean) + field(20541; "Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; @@ -77,4 +77,4 @@ tableextension 8148 "Subc. DirectTransHeader Ext." extends "Direct Trans. Header end; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransLineExt.TableExt.al index 5aaf9bcb831..90e42a05187 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransLineExt.TableExt.al @@ -9,35 +9,35 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -tableextension 8147 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Line" +tableextension 20523 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Line" { AllowInCustomizations = AsReadOnly; fields { - field(8154; "Subcontr. Purch. Order No."; Code[20]) + field(20530; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; } - field(8155; "Subcontr. PO Line No."; Integer) + field(20531; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(8156; "Prod. Order No."; Code[20]) + field(20532; "Prod. Order No."; Code[20]) { Caption = 'Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(8157; "Prod. Order Line No."; Integer) + field(20533; "Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Prod. Order No.")); } - field(8158; "Prod. Order Comp. Line No."; Integer) + field(20534; "Prod. Order Comp. Line No."; Integer) { Caption = 'Prod. Order Comp. Line No.'; DataClassification = CustomerContent; @@ -45,24 +45,24 @@ tableextension 8147 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Line" "Prod. Order No." = field("Prod. Order No."), "Prod. Order Line No." = field("Prod. Order Line No.")); } - field(8159; "Routing No."; Code[20]) + field(20535; "Routing No."; Code[20]) { Caption = 'Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(8160; "Routing Reference No."; Integer) + field(20536; "Routing Reference No."; Integer) { Caption = 'Routing Reference No.'; DataClassification = CustomerContent; } - field(8161; "Work Center No."; Code[20]) + field(20537; "Work Center No."; Code[20]) { Caption = 'Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; } - field(8162; "Operation No."; Code[10]) + field(20538; "Operation No."; Code[10]) { Caption = 'Operation No.'; DataClassification = CustomerContent; @@ -70,13 +70,13 @@ tableextension 8147 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Line" "Prod. Order No." = field("Prod. Order No."), "Routing No." = field("Routing No.")); } - field(8163; "Return Order"; Boolean) + field(20539; "Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; Editable = false; } - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -84,4 +84,4 @@ tableextension 8147 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Line" ToolTip = 'Specifies whether this transfer shipment line represents a WIP item transfer.'; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransferLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransferLineExt.Codeunit.al index e00c44a8536..8db1ecff552 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransferLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcDirectTransferLineExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 8172 "Subc. DirectTransferLine Ext." +codeunit 20548 "Subc. DirectTransferLine Ext." { [EventSubscriber(ObjectType::Table, Database::"Direct Trans. Line", OnAfterCopyFromTransferLine, '', false, false)] local procedure OnAfterCopyFromTransferLine_T5745(var DirectTransLine: Record "Direct Trans. Line"; TransferLine: Record "Transfer Line") @@ -33,4 +33,4 @@ codeunit 8172 "Subc. DirectTransferLine Ext." DirectTransLine."Work Center No." := TransferLine."Subc. Work Center No."; DirectTransLine."Operation No." := TransferLine."Subc. Operation No."; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTrans.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTrans.PageExt.al index 0f5ee90001e..ba2588525d1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTrans.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTrans.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8155 "Subc. Pstd. Direct Trans." extends "Posted Direct Transfer" +pageextension 20531 "Subc. Pstd. Direct Trans." extends "Posted Direct Transfer" { layout { @@ -56,4 +56,4 @@ pageextension 8155 "Subc. Pstd. Direct Trans." extends "Posted Direct Transfer" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfSub.PageExt.al index 207b9163434..4896bca3267 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfSub.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8156 "Subc. PstdDirectTransfSub" extends "Posted Direct Transfer Subform" +pageextension 20532 "Subc. PstdDirectTransfSub" extends "Posted Direct Transfer Subform" { layout { @@ -150,4 +150,4 @@ pageextension 8156 "Subc. PstdDirectTransfSub" extends "Posted Direct Transfer S begin SubcPurchFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfers.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfers.PageExt.al index aebdda2e4c7..9ab8f6a8bb1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfers.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdDirectTransfers.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8178 "Subc. Pstd. Direct Transfers" extends "Posted Direct Transfers" +pageextension 20554 "Subc. Pstd. Direct Transfers" extends "Posted Direct Transfers" { views { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpt.PageExt.al index af8b9f59f5e..d699ba22ed4 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpt.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8152 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Receipt" +pageextension 20528 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Receipt" { layout { @@ -56,4 +56,4 @@ pageextension 8152 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Receipt" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpts.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpts.PageExt.al index c8d88e00ebc..19296c22a5b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpts.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferRcpts.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8177 "Subc. Pstd. Transfer Rcpts." extends "Posted Transfer Receipts" +pageextension 20553 "Subc. Pstd. Transfer Rcpts." extends "Posted Transfer Receipts" { views { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpt.PageExt.al index e284cbac50d..9e20d9a8ad0 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpt.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8151 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Shipment" +pageextension 20527 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Shipment" { layout { @@ -50,4 +50,4 @@ pageextension 8151 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Shipment } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpts.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpts.PageExt.al index d02f8002f66..abc3334fa12 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpts.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcPstdTransferShpts.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8176 "Subc. Pstd. Transfer Shpts." extends "Posted Transfer Shipments" +pageextension 20552 "Subc. Pstd. Transfer Shpts." extends "Posted Transfer Shipments" { views { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostRcptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostRcptExt.Codeunit.al index 21724830df8..8d2c88cabb6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostRcptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostRcptExt.Codeunit.al @@ -9,7 +9,7 @@ using Microsoft.Inventory.Location; using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.Document; -codeunit 8164 "Subc. TransOrderPostRcpt Ext" +codeunit 20540 "Subc. TransOrderPostRcpt Ext" { #if not CLEAN28 var @@ -78,4 +78,4 @@ codeunit 8164 "Subc. TransOrderPostRcpt Ext" ProdOrderComponent.Modify(); end; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostShptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostShptExt.Codeunit.al index 9ebaa930b7f..9d92a10c32e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostShptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostShptExt.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Journal; using Microsoft.Inventory.Transfer; -codeunit 8163 "Subc. TransOrderPostShpt Ext" +codeunit 20539 "Subc. TransOrderPostShpt Ext" { #if not CLEAN28 var @@ -53,4 +53,4 @@ codeunit 8163 "Subc. TransOrderPostShpt Ext" TransShptLine."Subc. Routing No." := TransLine."Subc. Routing No."; TransShptLine."Subc. Routing Reference No." := TransLine."Subc. Routing Reference No."; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostTransExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostTransExt.Codeunit.al index 04998b6ec3a..5e659bf7e70 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostTransExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderPostTransExt.Codeunit.al @@ -12,7 +12,7 @@ using Microsoft.Inventory.Tracking; using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.Document; -codeunit 8171 "Subc. TransOrderPostTrans Ext" +codeunit 20547 "Subc. TransOrderPostTrans Ext" { #if not CLEAN28 var @@ -315,4 +315,4 @@ codeunit 8171 "Subc. TransOrderPostTrans Ext" exit(true); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderSub.PageExt.al index ef3af16a040..18913a562a7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransOrderSub.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8153 "Subc. Trans. Order Sub." extends "Transfer Order Subform" +pageextension 20529 "Subc. Trans. Order Sub." extends "Transfer Order Subform" { layout { @@ -201,4 +201,4 @@ pageextension 8153 "Subc. Trans. Order Sub." extends "Transfer Order Subform" begin SubcPurchFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.Codeunit.al index d8b812d5df4..d72b1359cfd 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 8166 "Subc. Trans Rcpt Header Ext" +codeunit 20542 "Subc. Trans Rcpt Header Ext" { [EventSubscriber(ObjectType::Table, Database::"Transfer Receipt Header", OnAfterCopyFromTransferHeader, '', false, false)] local procedure OnAfterCopyFromTransferHeader(var TransferReceiptHeader: Record "Transfer Receipt Header"; TransferHeader: Record "Transfer Header") @@ -30,4 +30,4 @@ codeunit 8166 "Subc. Trans Rcpt Header Ext" TransferReceiptHeader."Subcontr. Purch. Order No." := TransferHeader."Subcontr. Purch. Order No."; TransferReceiptHeader."Subcontr. PO Line No." := TransferHeader."Subcontr. PO Line No."; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.TableExt.al index de5aa352126..e1dc37af4f9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransRcptHeaderExt.TableExt.al @@ -6,39 +6,39 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -tableextension 8145 "Subc. Trans Rcpt Header Ext." extends "Transfer Receipt Header" +tableextension 20521 "Subc. Trans Rcpt Header Ext." extends "Transfer Receipt Header" { AllowInCustomizations = AsReadOnly; fields { - field(8154; "Subcontr. Purch. Order No."; Code[20]) + field(20530; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; } - field(8155; "Subcontr. PO Line No."; Integer) + field(20531; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; } - field(8160; "Source ID"; Code[20]) + field(20536; "Source ID"; Code[20]) { Caption = 'Source ID'; DataClassification = CustomerContent; } - field(8161; "Source Ref. No."; Integer) + field(20537; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(8164; "Subc. Source Type"; Enum "Transfer Source Type") + field(20540; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(8165; "Subc. Return Order"; Boolean) + field(20541; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.Codeunit.al index b3431778a15..58a69f1e99a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 8167 "Subc. Trans Shpt Header Ext" +codeunit 20543 "Subc. Trans Shpt Header Ext" { [EventSubscriber(ObjectType::Table, Database::"Transfer Shipment Header", OnAfterCopyFromTransferHeader, '', false, false)] local procedure OnAfterCopyFromTransferHeader(var TransferShipmentHeader: Record "Transfer Shipment Header"; TransferHeader: Record "Transfer Header") @@ -30,4 +30,4 @@ codeunit 8167 "Subc. Trans Shpt Header Ext" TransferShipmentHeader."Subcontr. Purch. Order No." := TransferHeader."Subcontr. Purch. Order No."; TransferShipmentHeader."Subcontr. PO Line No." := TransferHeader."Subcontr. PO Line No."; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.TableExt.al index 6e303a4115e..3c9596ededa 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransShptHeaderExt.TableExt.al @@ -6,44 +6,44 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -tableextension 8146 "Subc. Trans Shpt Header Ext." extends "Transfer Shipment Header" +tableextension 20522 "Subc. Trans Shpt Header Ext." extends "Transfer Shipment Header" { AllowInCustomizations = AsReadOnly; fields { - field(8154; "Subcontr. Purch. Order No."; Code[20]) + field(20530; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies the number of the related purchase order.'; } - field(8155; "Subcontr. PO Line No."; Integer) + field(20531; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies the number of the related purchase order line.'; } - field(8160; "Source ID"; Code[20]) + field(20536; "Source ID"; Code[20]) { Caption = 'Source ID'; DataClassification = CustomerContent; ToolTip = 'Specifies which source ID the transfer order is related to.'; } - field(8161; "Source Ref. No."; Integer) + field(20537; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; ToolTip = 'Specifies a reference number for the line, which the transfer order is related to.'; } - field(8164; "Subc. Source Type"; Enum "Transfer Source Type") + field(20540; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; ToolTip = 'Specifies for which source type the transfer order is related to.'; } - field(8165; "Subc. Return Order"; Boolean) + field(20541; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeader.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeader.TableExt.al index 521fff71a3f..1e4e5385ea7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeader.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeader.TableExt.al @@ -7,24 +7,24 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; using Microsoft.Purchases.Vendor; -tableextension 8144 "Subc. Transfer Header" extends "Transfer Header" +tableextension 20520 "Subc. Transfer Header" extends "Transfer Header" { AllowInCustomizations = AsReadOnly; fields { - field(8154; "Subcontr. Purch. Order No."; Code[20]) + field(20530; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; } - field(8155; "Subcontr. PO Line No."; Integer) + field(20531; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; } - field(8160; "Source ID"; Code[20]) + field(20536; "Source ID"; Code[20]) { Caption = 'Source ID'; DataClassification = CustomerContent; @@ -45,17 +45,17 @@ tableextension 8144 "Subc. Transfer Header" extends "Transfer Header" HandleSubcontractingSourceLookup(Rec); end; } - field(8161; "Source Ref. No."; Integer) + field(20537; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(8164; "Subc. Source Type"; Enum "Transfer Source Type") + field(20540; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(8165; "Subc. Return Order"; Boolean) + field(20541; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; @@ -93,4 +93,4 @@ tableextension 8144 "Subc. Transfer Header" extends "Transfer Header" #endif TestField("Transfer-to Code"); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeaderExt.Codeunit.al index 344551b0ea9..c173d674e54 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferHeaderExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 8131 "Subc. Transfer Header Ext." +codeunit 20507 "Subc. Transfer Header Ext." { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLine.TableExt.al index b06fd60f40f..11d6ed28ec3 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLine.TableExt.al @@ -14,31 +14,31 @@ using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; using Microsoft.Warehouse.Document; -tableextension 8141 "Subc. Transfer Line" extends "Transfer Line" +tableextension 20517 "Subc. Transfer Line" extends "Transfer Line" { AllowInCustomizations = AsReadOnly; fields { - field(8154; "Subc. Purch. Order No."; Code[20]) + field(20530; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; ToolTip = 'Specifies the number of the related purchase order.'; } - field(8155; "Subc. Purch. Order Line No."; Integer) + field(20531; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; ToolTip = 'Specifies the number of the related purchase order line.'; } - field(8156; "Subc. Prod. Order No."; Code[20]) + field(20532; "Subc. Prod. Order No."; Code[20]) { Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); ToolTip = 'Specifies the number of the related production order.'; } - field(8157; "Subc. Prod. Order Line No."; Integer) + field(20533; "Subc. Prod. Order Line No."; Integer) { Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; @@ -46,7 +46,7 @@ tableextension 8141 "Subc. Transfer Line" extends "Transfer Line" "Prod. Order No." = field("Subc. Prod. Order No.")); ToolTip = 'Specifies the number of the related production order line.'; } - field(8158; "Subc. Prod. Ord. Comp Line No."; Integer) + field(20534; "Subc. Prod. Ord. Comp Line No."; Integer) { Caption = 'Subc. Prod. Order Comp. Line No.'; DataClassification = CustomerContent; @@ -55,27 +55,27 @@ tableextension 8141 "Subc. Transfer Line" extends "Transfer Line" "Prod. Order Line No." = field("Subc. Prod. Order Line No.")); ToolTip = 'Specifies the line number of the related production order component line.'; } - field(8159; "Subc. Routing No."; Code[20]) + field(20535; "Subc. Routing No."; Code[20]) { Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; ToolTip = 'Specifies the number of the related production routing.'; } - field(8160; "Subc. Routing Reference No."; Integer) + field(20536; "Subc. Routing Reference No."; Integer) { Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; ToolTip = 'Specifies the number of the related production routing reference no.'; } - field(8161; "Subc. Work Center No."; Code[20]) + field(20537; "Subc. Work Center No."; Code[20]) { Caption = 'Subc. Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; ToolTip = 'Specifies the number of the related production work center.'; } - field(8162; "Subc. Operation No."; Code[10]) + field(20538; "Subc. Operation No."; Code[10]) { Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; @@ -84,14 +84,14 @@ tableextension 8141 "Subc. Transfer Line" extends "Transfer Line" "Routing No." = field("Subc. Routing No.")); ToolTip = 'Specifies the number of the related production operation no.'; } - field(8163; "Subc. Return Order"; Boolean) + field(20539; "Subc. Return Order"; Boolean) { Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies whether the existing transfer order is a return of the subcontractor.'; } - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -121,7 +121,7 @@ tableextension 8141 "Subc. Transfer Line" extends "Transfer Line" Validate(Quantity); end; } - field(8185; "Whse. Inbnd. Otsdg. Qty"; Decimal) + field(20561; "Whse. Inbnd. Otsdg. Qty"; Decimal) { AutoFormatType = 0; BlankZero = true; @@ -135,7 +135,7 @@ tableextension 8141 "Subc. Transfer Line" extends "Transfer Line" FieldClass = FlowField; ToolTip = 'Specifies the outstanding quantity on warehouse receipts for this transfer line.'; } - field(8186; "Whse Outbnd. Otsdg. Qty"; Decimal) + field(20562; "Whse Outbnd. Otsdg. Qty"; Decimal) { AutoFormatType = 0; BlankZero = true; @@ -149,7 +149,7 @@ tableextension 8141 "Subc. Transfer Line" extends "Transfer Line" FieldClass = FlowField; ToolTip = 'Specifies the outstanding quantity on warehouse shipments for this transfer line.'; } - field(8187; "Prev. Operation No."; Code[10]) + field(20563; "Prev. Operation No."; Code[10]) { AllowInCustomizations = AsReadOnly; Caption = 'Previous Operation No.'; @@ -248,4 +248,4 @@ tableextension 8141 "Subc. Transfer Line" extends "Transfer Line" Rec."Description 2" := ProdOrderRoutingLine."Transfer Description 2"; end; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineExt.Codeunit.al index 789db693a75..194385435c1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineExt.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; using Microsoft.Inventory.Transfer; -codeunit 8168 "Subc. Transfer Line Ext." +codeunit 20544 "Subc. Transfer Line Ext." { #if not CLEAN28 var @@ -155,4 +155,4 @@ codeunit 8168 "Subc. Transfer Line Ext." TransferLine."Subc. Operation No." := TempTransferLine."Subc. Operation No."; TransferLine."Subc. Return Order" := TempTransferLine."Subc. Return Order"; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineFactbox.Page.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineFactbox.Page.al index d5b18076114..7d5b75778ef 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineFactbox.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLineFactbox.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -page 8125 "Subc. Transfer Line Factbox" +page 20501 "Subc. Transfer Line Factbox" { ApplicationArea = Subcontracting; Caption = 'Subcontracting Details'; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLines.PageExt.al index 586267f70a5..feb84fb389b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferLines.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8154 "Subc. Transfer Lines" extends "Transfer Lines" +pageextension 20530 "Subc. Transfer Lines" extends "Transfer Lines" { layout { @@ -25,4 +25,4 @@ pageextension 8154 "Subc. Transfer Lines" extends "Transfer Lines" } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferManagement.Codeunit.al index ee1ac97b8ef..13ccf631071 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferManagement.Codeunit.al @@ -13,7 +13,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Setup; using Microsoft.Purchases.Document; -codeunit 8128 "Subc. Transfer Management" +codeunit 20504 "Subc. Transfer Management" { var ManufacturingSetup: Record "Manufacturing Setup"; diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrder.PageExt.al index c550229978b..7de6593af19 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrder.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8150 "Subc. Transfer Order" extends "Transfer Order" +pageextension 20526 "Subc. Transfer Order" extends "Transfer Order" { layout { @@ -124,4 +124,4 @@ pageextension 8150 "Subc. Transfer Order" extends "Transfer Order" TransferLine.SetFilter("Quantity Shipped", '> 0'); exit(not TransferLine.IsEmpty()); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrders.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrders.PageExt.al index 6296ea1ec72..876f317c4fe 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrders.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferOrders.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -pageextension 8175 "Subc. Transfer Orders" extends "Transfer Orders" +pageextension 20551 "Subc. Transfer Orders" extends "Transfer Orders" { views { diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.Codeunit.al index eaab9a00ea2..331728d51fb 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 8162 "Subc. Transfer Rcpt Line Ext." +codeunit 20538 "Subc. Transfer Rcpt Line Ext." { [EventSubscriber(ObjectType::Table, Database::"Transfer Receipt Line", OnAfterCopyFromTransferLine, '', false, false)] local procedure OnAfterCopyFromTransferLine_T5745(var TransferReceiptLine: Record "Transfer Receipt Line"; TransferLine: Record "Transfer Line") @@ -33,4 +33,4 @@ codeunit 8162 "Subc. Transfer Rcpt Line Ext." TransferReceiptLine."Subc. Work Center No." := TransferLine."Subc. Work Center No."; TransferReceiptLine."Subc. Operation No." := TransferLine."Subc. Operation No."; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.TableExt.al index ff017bb0d96..81ab23a9ec9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferRcptLineExt.TableExt.al @@ -9,35 +9,35 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -tableextension 8142 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receipt Line" +tableextension 20518 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receipt Line" { AllowInCustomizations = AsReadOnly; fields { - field(8154; "Subc. Purch. Order No."; Code[20]) + field(20530; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; } - field(8155; "Subc. Purch. Order Line No."; Integer) + field(20531; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(8156; "Subc. Prod. Order No."; Code[20]) + field(20532; "Subc. Prod. Order No."; Code[20]) { Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(8157; "Subc. Prod. Order Line No."; Integer) + field(20533; "Subc. Prod. Order Line No."; Integer) { Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(8158; "Subc. Prod. Ord. Comp Line No."; Integer) + field(20534; "Subc. Prod. Ord. Comp Line No."; Integer) { Caption = 'Subc. Prod. Ord. Comp Line No.'; DataClassification = CustomerContent; @@ -45,24 +45,24 @@ tableextension 8142 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receipt Li "Prod. Order No." = field("Subc. Prod. Order No."), "Prod. Order Line No." = field("Subc. Prod. Order Line No.")); } - field(8159; "Subc. Routing No."; Code[20]) + field(20535; "Subc. Routing No."; Code[20]) { Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(8160; "Subc. Routing Reference No."; Integer) + field(20536; "Subc. Routing Reference No."; Integer) { Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; } - field(8161; "Subc. Work Center No."; Code[20]) + field(20537; "Subc. Work Center No."; Code[20]) { Caption = 'Subc. Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; } - field(8162; "Subc. Operation No."; Code[10]) + field(20538; "Subc. Operation No."; Code[10]) { Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; @@ -70,13 +70,13 @@ tableextension 8142 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receipt Li "Prod. Order No." = field("Subc. Prod. Order No."), "Routing No." = field("Subc. Routing No.")); } - field(8163; "Subc. Return Order"; Boolean) + field(20539; "Subc. Return Order"; Boolean) { Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; } - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -84,4 +84,4 @@ tableextension 8142 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receipt Li ToolTip = 'Specifies whether this transfer receipt line represents a WIP item transfer.'; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.Codeunit.al index 9b32eec0371..bc16e393262 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; -codeunit 8161 "Subc. Transfer Shpt Line Ext." +codeunit 20537 "Subc. Transfer Shpt Line Ext." { [EventSubscriber(ObjectType::Table, Database::"Transfer Shipment Line", OnAfterCopyFromTransferLine, '', false, false)] local procedure OnAfterCopyFromTransferLine_T5745(var TransferShipmentLine: Record "Transfer Shipment Line"; TransferLine: Record "Transfer Line") @@ -33,4 +33,4 @@ codeunit 8161 "Subc. Transfer Shpt Line Ext." TransferShipmentLine."Subc. Work Center No." := TransferLine."Subc. Work Center No."; TransferShipmentLine."Subc. Operation No." := TransferLine."Subc. Operation No."; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.TableExt.al index a049ae23bcb..6cd8eaa0fae 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/SubcTransferShptLineExt.TableExt.al @@ -9,35 +9,35 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -tableextension 8143 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipment Line" +tableextension 20519 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipment Line" { AllowInCustomizations = AsReadOnly; fields { - field(8154; "Subc. Purch. Order No."; Code[20]) + field(20530; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; } - field(8155; "Subc. Purch. Order Line No."; Integer) + field(20531; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(8156; "Subc. Prod. Order No."; Code[20]) + field(20532; "Subc. Prod. Order No."; Code[20]) { Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(8157; "Subc. Prod. Order Line No."; Integer) + field(20533; "Subc. Prod. Order Line No."; Integer) { Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(8158; "Subc. Prod. Ord. Comp Line No."; Integer) + field(20534; "Subc. Prod. Ord. Comp Line No."; Integer) { Caption = 'Subc. Prod. Ord. Comp Line No.'; DataClassification = CustomerContent; @@ -45,24 +45,24 @@ tableextension 8143 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipment L "Prod. Order No." = field("Subc. Prod. Order No."), "Prod. Order Line No." = field("Subc. Prod. Order Line No.")); } - field(8159; "Subc. Routing No."; Code[20]) + field(20535; "Subc. Routing No."; Code[20]) { Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(8160; "Subc. Routing Reference No."; Integer) + field(20536; "Subc. Routing Reference No."; Integer) { Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; } - field(8161; "Subc. Work Center No."; Code[20]) + field(20537; "Subc. Work Center No."; Code[20]) { Caption = 'Subc. Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; } - field(8162; "Subc. Operation No."; Code[10]) + field(20538; "Subc. Operation No."; Code[10]) { Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; @@ -70,13 +70,13 @@ tableextension 8143 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipment L "Prod. Order No." = field("Subc. Prod. Order No."), "Routing No." = field("Subc. Routing No.")); } - field(8163; "Subc. Return Order"; Boolean) + field(20539; "Subc. Return Order"; Boolean) { Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; } - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -84,4 +84,4 @@ tableextension 8143 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipment L ToolTip = 'Specifies whether this transfer shipment line represents a WIP item transfer.'; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Transfer/TransferSourceType.Enum.al b/src/Apps/W1/Subcontracting/App/src/Transfer/TransferSourceType.Enum.al index 0d4021b4ef4..a196c9d53a5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Transfer/TransferSourceType.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/Transfer/TransferSourceType.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 8125 "Transfer Source Type" +enum 20501 "Transfer Source Type" { Extensible = true; value(0; Empty) @@ -15,4 +15,4 @@ enum 8125 "Transfer Source Type" { Caption = 'Subcontracting'; } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeProdOrderStatus.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeProdOrderStatus.Codeunit.al index 1fc51ac4891..91b8888c36a 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeProdOrderStatus.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeProdOrderStatus.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Transfer; using Microsoft.Manufacturing.Document; -codeunit 8173 "Subc. Change Prod.Order Status" +codeunit 20549 "Subc. Change Prod.Order Status" { Permissions = TableData "Subcontractor WIP Ledger Entry" = RIMD; #if not CLEAN28 @@ -121,4 +121,4 @@ Comment = '%1=Transfer Header No'; SubcontractorWIPLedgerEntry.SetRange("Prod. Order Status", NewStatus); SubcontractorWIPLedgerEntry.ModifyAll("Prod. Order No.", ToProdOrder."No."); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeStatusProdOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeStatusProdOrder.PageExt.al index b39dfae2177..295a8bfeaa9 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeStatusProdOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcChangeStatusProdOrder.PageExt.al @@ -5,7 +5,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -pageextension 8168 "Subc.Change Status Prod. Order" extends "Change Status on Prod. Order" +pageextension 20544 "Subc.Change Status Prod. Order" extends "Change Status on Prod. Order" { layout { @@ -108,4 +108,4 @@ pageextension 8168 "Subc.Change Status Prod. Order" extends "Change Status on Pr if not WIPQuantityCleanUpEnabled then WIPQuantityCleanUp := false; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewBinding.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewBinding.Codeunit.al index 3bc835d6b9f..f0a10f93876 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewBinding.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewBinding.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Finance.GeneralLedger.Preview; -codeunit 8189 "Subc. Posting Preview Binding" +codeunit 20565 "Subc. Posting Preview Binding" { #if not CLEAN28 var diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewSubscr.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewSubscr.Codeunit.al index 4bfe7612914..edd2204c7f3 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewSubscr.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPostingPreviewSubscr.Codeunit.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Finance.GeneralLedger.Preview; using Microsoft.Foundation.Navigate; -codeunit 8190 "Subc. Posting Preview Subscr." +codeunit 20566 "Subc. Posting Preview Subscr." { var TempSubcontractorWIPLedgerEntry: Record "Subcontractor WIP Ledger Entry" temporary; diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPstPrevEventHandler.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPstPrevEventHandler.Codeunit.al index b4ef0710515..dfbf77e70c7 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPstPrevEventHandler.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcPstPrevEventHandler.Codeunit.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -codeunit 8191 "Subc. Pst. Prev. Event Handler" +codeunit 20567 "Subc. Pst. Prev. Event Handler" { EventSubscriberInstance = Manual; SingleInstance = true; diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcTransferWIPPosting.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcTransferWIPPosting.Codeunit.al index 4f3f60594ee..0a2fd460669 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcTransferWIPPosting.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcTransferWIPPosting.Codeunit.al @@ -17,7 +17,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Purchases.Vendor; using Microsoft.Warehouse.Document; -codeunit 8165 "Subc. Transfer WIP Posting" +codeunit 20541 "Subc. Transfer WIP Posting" { Permissions = TableData "Subcontractor WIP Ledger Entry" = RIMD; @@ -520,4 +520,4 @@ codeunit 8165 "Subc. Transfer WIP Posting" local procedure OnBeforeInsertWIPLedgerEntry(var SubcontractorWIPLedgerEntry: Record "Subcontractor WIP Ledger Entry"; var WIPLedgEntryNo: Integer) begin end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPAdjustment.Page.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPAdjustment.Page.al index 6f0a49df15f..547dbe35f6b 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPAdjustment.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPAdjustment.Page.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Item; using Microsoft.Manufacturing.Document; -page 8185 "Subc. WIP Adjustment" +page 20561 "Subc. WIP Adjustment" { ApplicationArea = Subcontracting; Caption = 'WIP Adjustment'; @@ -437,4 +437,4 @@ page 8185 "Subc. WIP Adjustment" if NewQty > ProdOrderLine."Quantity (Base)" then Error(NewQuantityExceedsProdOrderQtyErr, ProdOrderLine."Quantity (Base)"); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPItemLedgFindEntry.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPItemLedgFindEntry.Codeunit.al index 4e13fdb1bda..763431936f7 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPItemLedgFindEntry.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPItemLedgFindEntry.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Foundation.Navigate; -codeunit 8188 "Subc. WIP Item Ledg Find Entry" +codeunit 20564 "Subc. WIP Item Ledg Find Entry" { var @@ -63,4 +63,4 @@ codeunit 8188 "Subc. WIP Item Ledg Find Entry" Page.Run(0, SubcontractorWIPLedgerEntry); end; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPLedgerEntries.Page.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPLedgerEntries.Page.al index c39e2d54ca0..b612f669cfd 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPLedgerEntries.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcWIPLedgerEntries.Page.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Manufacturing.Document; -page 8184 "Subc. WIP Ledger Entries" +page 20560 "Subc. WIP Ledger Entries" { ApplicationArea = Subcontracting; Caption = 'Subcontracting WIP Entries'; @@ -150,4 +150,4 @@ page 8184 "Subc. WIP Ledger Entries" ProductionOrder.SetLoadFields(SystemId); WIPAdjustmentEnabled := ProductionOrder.Get(Rec."Prod. Order Status", Rec."Prod. Order No."); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcontractorWIPLedgerEntry.Table.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcontractorWIPLedgerEntry.Table.al index eea6b5ea2ee..d67bf6383f4 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcontractorWIPLedgerEntry.Table.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/SubcontractorWIPLedgerEntry.Table.al @@ -11,7 +11,7 @@ using Microsoft.Manufacturing.Document; using Microsoft.Manufacturing.Routing; using Microsoft.Manufacturing.WorkCenter; -table 8184 "Subcontractor WIP Ledger Entry" +table 20560 "Subcontractor WIP Ledger Entry" { AllowInCustomizations = AsReadOnly; Caption = 'Subcontractor WIP Ledger Entry'; @@ -246,4 +246,4 @@ table 8184 "Subcontractor WIP Ledger Entry" #endif exit(SequenceNoMgt.GetNextSeqNo(DATABASE::"Subcontractor WIP Ledger Entry")); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPDocumentType.Enum.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPDocumentType.Enum.al index 810350a4944..a977ebf30a3 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPDocumentType.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPDocumentType.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 8133 "WIP Document Type" +enum 20509 "WIP Document Type" { Extensible = true; value(0; "Transfer Order") diff --git a/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPLedgerEntryType.Enum.al b/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPLedgerEntryType.Enum.al index 7f68a4094ed..a6712eae778 100644 --- a/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPLedgerEntryType.Enum.al +++ b/src/Apps/W1/Subcontracting/App/src/WIPItem/WIPLedgerEntryType.Enum.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -enum 8132 "WIP Ledger Entry Type" +enum 20508 "WIP Ledger Entry Type" { Extensible = true; value(0; "Positive Adjustment") diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPostedWhseReceiptLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPostedWhseReceiptLine.TableExt.al index fcb832b5385..04692fbe825 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPostedWhseReceiptLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPostedWhseReceiptLine.TableExt.al @@ -7,18 +7,18 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.History; -tableextension 8150 "Subc. Posted Whse Receipt Line" extends "Posted Whse. Receipt Line" +tableextension 20526 "Subc. Posted Whse Receipt Line" extends "Posted Whse. Receipt Line" { fields { - field(8173; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") + field(20549; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") { Caption = 'Subcontracting Line Type'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies the subcontracting purchase line type associated with the warehouse receipt line.'; } - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -26,4 +26,4 @@ tableextension 8150 "Subc. Posted Whse Receipt Line" extends "Posted Whse. Recei ToolTip = 'Specifies whether this transfer receipt line represents a WIP item transfer.'; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseRcptSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseRcptSub.PageExt.al index e528527fe29..72baaaaf4d7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseRcptSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseRcptSub.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.History; -pageextension 8169 "Subc. Pstd. Whse Rcpt Sub" extends "Posted Whse. Receipt Subform" +pageextension 20545 "Subc. Pstd. Whse Rcpt Sub" extends "Posted Whse. Receipt Subform" { layout { @@ -19,4 +19,4 @@ pageextension 8169 "Subc. Pstd. Whse Rcpt Sub" extends "Posted Whse. Receipt Sub } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmSub.PageExt.al index f8e9847fa01..917ac9b1b40 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmSub.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.History; -pageextension 8170 "Subc. Pstd. Whse Shipm Sub" extends "Posted Whse. Shipment Subform" +pageextension 20546 "Subc. Pstd. Whse Shipm Sub" extends "Posted Whse. Shipment Subform" { layout { @@ -19,4 +19,4 @@ pageextension 8170 "Subc. Pstd. Whse Shipm Sub" extends "Posted Whse. Shipment S } } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmentLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmentLine.TableExt.al index 4713471fe56..24c8598bcad 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmentLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcPstdWhseShipmentLine.TableExt.al @@ -7,11 +7,11 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.History; -tableextension 8152 "Subc. Pstd. Whse Shipment Line" extends "Posted Whse. Shipment Line" +tableextension 20528 "Subc. Pstd. Whse Shipment Line" extends "Posted Whse. Shipment Line" { fields { - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -19,4 +19,4 @@ tableextension 8152 "Subc. Pstd. Whse Shipment Line" extends "Posted Whse. Shipm ToolTip = 'Specifies whether this transfer shipment line represents a WIP item transfer.'; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseReceiptLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseReceiptLine.TableExt.al index 0777f1a61a9..2b9a05d94c5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseReceiptLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseReceiptLine.TableExt.al @@ -7,18 +7,18 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.Document; -tableextension 8149 "Subc. Warehouse Receipt Line" extends "Warehouse Receipt Line" +tableextension 20525 "Subc. Warehouse Receipt Line" extends "Warehouse Receipt Line" { fields { - field(8173; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") + field(20549; "Subc. Purchase Line Type"; Enum "Subc. Purchase Line Type") { Caption = 'Subcontracting Line Type'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies the subcontracting purchase line type associated with the warehouse receipt line.'; } - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -26,4 +26,4 @@ tableextension 8149 "Subc. Warehouse Receipt Line" extends "Warehouse Receipt Li ToolTip = 'Specifies whether this transfer receipt line represents a WIP item transfer.'; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseShipmentLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseShipmentLine.TableExt.al index ce0e9c7a9dc..a94d3d249d4 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseShipmentLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWarehouseShipmentLine.TableExt.al @@ -7,11 +7,11 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.Document; -tableextension 8151 "Subc. Warehouse Shipment Line" extends "Warehouse Shipment Line" +tableextension 20527 "Subc. Warehouse Shipment Line" extends "Warehouse Shipment Line" { fields { - field(8184; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -19,4 +19,4 @@ tableextension 8151 "Subc. Warehouse Shipment Line" extends "Warehouse Shipment ToolTip = 'Specifies whether this transfer shipment line represents a WIP item transfer.'; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostReceiptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostReceiptExt.Codeunit.al index 8ed4c570282..4cd84a0f866 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostReceiptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostReceiptExt.Codeunit.al @@ -15,7 +15,7 @@ using Microsoft.Warehouse.Document; using Microsoft.Warehouse.History; using Microsoft.Warehouse.Journal; -codeunit 8175 "Subc. WhsePostReceipt Ext" +codeunit 20551 "Subc. WhsePostReceipt Ext" { var #if not CLEAN28 @@ -396,4 +396,4 @@ codeunit 8175 "Subc. WhsePostReceipt Ext" begin exit(WarehouseReceiptLineSystemIdCustomDimensionTok); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostShipmentExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostShipmentExt.Codeunit.al index 96a2e1faa4d..e22f56b82d5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostShipmentExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostShipmentExt.Codeunit.al @@ -11,7 +11,7 @@ using Microsoft.Warehouse.Document; using Microsoft.Warehouse.History; using Microsoft.Warehouse.Request; -codeunit 8187 "Subc. WhsePostShipment Ext" +codeunit 20563 "Subc. WhsePostShipment Ext" { #if not CLEAN28 var @@ -142,4 +142,4 @@ codeunit 8187 "Subc. WhsePostShipment Ext" WarehouseShipmentLine.Validate("Qty. to Ship", WarehouseShipmentLine."Qty. Outstanding"); IsHandled := true; end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al index 431ad438ba4..4a6ebccf4c2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; -codeunit 8174 "Subc. WhsePurchRelease Ext" +codeunit 20550 "Subc. WhsePurchRelease Ext" { [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Purch. Release", OnAfterReleaseSetFilters, '', false, false)] local procedure OnAfterReleaseSetFilters(var PurchaseLine: Record "Purchase Line"; PurchaseHeader: Record "Purchase Header") @@ -27,4 +27,4 @@ codeunit 8174 "Subc. WhsePurchRelease Ext" if PurchaseHeader."Subc. Order" then PurchaseLine.SetRange("Work Center No."); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptLinesExt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptLinesExt.PageExt.al index a97efd48585..af018b9cfe9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptLinesExt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptLinesExt.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; using Microsoft.Warehouse.Document; -pageextension 8158 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines" +pageextension 20534 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines" { layout { @@ -121,4 +121,4 @@ pageextension 8158 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines" begin SubcProdOrderFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptSubformExt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptSubformExt.PageExt.al index 952d024a5f3..561c533438c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptSubformExt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseRcptSubformExt.PageExt.al @@ -7,7 +7,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Purchases.Document; using Microsoft.Warehouse.Document; -pageextension 8157 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Subform" +pageextension 20533 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Subform" { layout { @@ -124,4 +124,4 @@ pageextension 8157 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Subform begin SubcProdOrderFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseShipmSubformExt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseShipmSubformExt.PageExt.al index 4a4fd74848e..6dbd2fbc206 100644 --- a/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseShipmSubformExt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhseShipmSubformExt.PageExt.al @@ -6,7 +6,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Warehouse.Document; -pageextension 8171 "Subc. Whse Shipm. Subform Ext." extends "Whse. Shipment Subform" +pageextension 20547 "Subc. Whse Shipm. Subform Ext." extends "Whse. Shipment Subform" { layout { @@ -26,4 +26,4 @@ pageextension 8171 "Subc. Whse Shipm. Subform Ext." extends "Whse. Shipment Subf Enabled = not Rec."Transfer WIP Item"; } } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcReqWkshTempTypeExt.EnumExt.al b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcReqWkshTempTypeExt.EnumExt.al index ef8f62eb217..4e78c2b854d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcReqWkshTempTypeExt.EnumExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcReqWkshTempTypeExt.EnumExt.al @@ -5,10 +5,10 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; -enumextension 8124 "Subc. ReqWkshTempType Ext." extends "Req. Worksheet Template Type" +enumextension 20500 "Subc. ReqWkshTempType Ext." extends "Req. Worksheet Template Type" { - value(8124; Subcontracting) + value(20500; Subcontracting) { Caption = 'Subcontracting'; } -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcSubcontractingWorksheet.Page.al b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcSubcontractingWorksheet.Page.al index 3c85c0a2b7a..95fe2c818a3 100644 --- a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcSubcontractingWorksheet.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcSubcontractingWorksheet.Page.al @@ -10,7 +10,7 @@ using Microsoft.Inventory.Item; using Microsoft.Inventory.Requisition; using System.Security.User; -page 8128 "Subc. Subcontracting Worksheet" +page 20504 "Subc. Subcontracting Worksheet" { ApplicationArea = Subcontracting; AutoSplitKey = true; @@ -445,4 +445,4 @@ page 8128 "Subc. Subcontracting Worksheet" local procedure OnBeforeCarryOutActionMsg(var RequisitionLine: Record "Requisition Line"; var IsHandled: Boolean); begin end; -} \ No newline at end of file +} diff --git a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcWorksheetHandler.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcWorksheetHandler.Codeunit.al index 052b2bb8d8c..6de7925d1ea 100644 --- a/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcWorksheetHandler.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Worksheet/SubcWorksheetHandler.Codeunit.al @@ -5,7 +5,7 @@ namespace Microsoft.Manufacturing.Subcontracting; using Microsoft.Inventory.Requisition; -codeunit 8182 "Subc. Worksheet Handler" +codeunit 20558 "Subc. Worksheet Handler" { [EventSubscriber(ObjectType::Codeunit, Codeunit::ReqJnlManagement, OnOpenJnlBatchOnBeforeTemplateSelection, '', false, false)] local procedure OnOpenJnlBatchOnBeforeTemplateSelection(var RequisitionWkshName: Record "Requisition Wksh. Name"; var ReqWorksheetTemplateTypeList: List of [Enum Microsoft.Inventory.Requisition."Req. Worksheet Template Type"]) @@ -24,4 +24,4 @@ codeunit 8182 "Subc. Worksheet Handler" #endif ReqWorksheetTemplateTypeList.Add(Enum::"Req. Worksheet Template Type"::Subcontracting); end; -} \ No newline at end of file +} From 90bb73810beedd5f2c7a2561985e9e92031a9b26 Mon Sep 17 00:00:00 2001 From: Chethan Thopaiah Date: Wed, 29 Jul 2026 16:54:11 +0200 Subject: [PATCH 5/7] changed migration code --- .../src/Install/SubcDataMigration.Codeunit.al | 79 ++++++++++--------- 1 file changed, 40 insertions(+), 39 deletions(-) diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al index 8b454121cc7..a97d00f7271 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al @@ -37,13 +37,8 @@ codeunit 20509 "Subc. Data Migration" exit; end; - if not IsOldTableAvailable(Database::"Subcontractor WIP Ledger Entry") then begin - LogMigrationNotInitiated(OldTableNotAvailableLbl); - SetRenumberedDataMigrationTag(); - exit; - end; - LogMigrationInitiated(); + MigrateWorksheetFields(); MigrateRenumberedTables(); MigrateInventoryFields(); MigrateManufacturingFields(); @@ -74,9 +69,26 @@ codeunit 20509 "Subc. Data Migration" end; local procedure MigrateRenumberedTables() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '1,2,3,4,5,6,7,8,9,10,20,30'); + MigrateTableData(Database::"Subcontractor Price", FieldIds); + + SetFieldIds(FieldIds, '1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21'); + MigrateTableData(Database::"Subcontractor WIP Ledger Entry", FieldIds); + end; + + local procedure MigrateWorksheetFields() + var + ReqWkshTemplate: Record "Req. Wksh. Template"; + DataTransfer: DataTransfer; begin - MigrateTableData(Database::"Subcontractor Price"); - MigrateTableData(Database::"Subcontractor WIP Ledger Entry"); + DataTransfer.SetTables(Database::"Req. Wksh. Template", Database::"Req. Wksh. Template"); + DataTransfer.AddSourceFilter(ReqWkshTemplate.FieldNo(Type), '=%1', GetOldId(20500)); + DataTransfer.AddConstantValue(ReqWkshTemplate.Type::Subcontracting, ReqWkshTemplate.FieldNo(Type)); + DataTransfer.UpdateAuditFields(false); + DataTransfer.CopyFields(); end; local procedure MigrateInventoryFields() @@ -183,73 +195,64 @@ codeunit 20509 "Subc. Data Migration" MigrateTableExtensionFields(Database::"Warehouse Shipment Line", FieldIds); end; - local procedure MigrateTableData(NewTableId: Integer) + local procedure MigrateTableData(NewTableId: Integer; FieldIds: List of [Integer]) var DataTransfer: DataTransfer; - OldRecordRef: RecordRef; - NewRecordRef: RecordRef; - OldFieldRef: FieldRef; FieldIndex: Integer; begin - if not OpenOldTableIfAvailable(NewTableId, OldRecordRef) then + if not IsOldTableAvailable(NewTableId) then + exit; + if not AreFieldsAvailable(GetOldId(NewTableId), FieldIds) then + exit; + if not AreFieldsAvailable(NewTableId, FieldIds) then exit; - NewRecordRef.Open(NewTableId); DataTransfer.SetTables(GetOldId(NewTableId), NewTableId); - for FieldIndex := 1 to OldRecordRef.FieldCount() do begin - OldFieldRef := OldRecordRef.FieldIndex(FieldIndex); - if (OldFieldRef.Class = FieldClass::Normal) and (OldFieldRef.Number < 2000000000) and NewRecordRef.FieldExist(OldFieldRef.Number) then - DataTransfer.AddFieldValue(OldFieldRef.Number, OldFieldRef.Number); - end; + for FieldIndex := 1 to FieldIds.Count() do + DataTransfer.AddFieldValue(FieldIds.Get(FieldIndex), FieldIds.Get(FieldIndex)); DataTransfer.UpdateAuditFields(false); - OldRecordRef.Close(); - NewRecordRef.Close(); DataTransfer.CopyRows(); end; local procedure MigrateTableExtensionFields(TableId: Integer; NewFieldIds: List of [Integer]) var DataTransfer: DataTransfer; - RecordRef: RecordRef; FieldIndex: Integer; begin - RecordRef.Open(TableId); - if not AreOldFieldsAvailable(RecordRef, NewFieldIds) then begin - RecordRef.Close(); + if not AreOldFieldsAvailable(TableId, NewFieldIds) then exit; - end; DataTransfer.SetTables(TableId, TableId); for FieldIndex := 1 to NewFieldIds.Count() do DataTransfer.AddFieldValue(GetOldId(NewFieldIds.Get(FieldIndex)), NewFieldIds.Get(FieldIndex)); DataTransfer.UpdateAuditFields(false); - RecordRef.Close(); DataTransfer.CopyFields(); end; - local procedure AreOldFieldsAvailable(RecordRef: RecordRef; NewFieldIds: List of [Integer]): Boolean + local procedure AreOldFieldsAvailable(TableId: Integer; NewFieldIds: List of [Integer]): Boolean var + OldFieldIds: List of [Integer]; FieldIndex: Integer; begin for FieldIndex := 1 to NewFieldIds.Count() do - if not RecordRef.FieldExist(GetOldId(NewFieldIds.Get(FieldIndex))) then - exit(false); + OldFieldIds.Add(GetOldId(NewFieldIds.Get(FieldIndex))); - exit(true); + exit(AreFieldsAvailable(TableId, OldFieldIds)); end; - local procedure IsOldTableAvailable(NewTableId: Integer): Boolean + local procedure AreFieldsAvailable(TableId: Integer; FieldIds: List of [Integer]): Boolean var - OldRecordRef: RecordRef; + Field: Record Field; + FieldIndex: Integer; begin - if not OpenOldTableIfAvailable(NewTableId, OldRecordRef) then - exit(false); + for FieldIndex := 1 to FieldIds.Count() do + if not Field.Get(TableId, FieldIds.Get(FieldIndex)) then + exit(false); - OldRecordRef.Close(); exit(true); end; - local procedure OpenOldTableIfAvailable(NewTableId: Integer; var OldRecordRef: RecordRef): Boolean + local procedure IsOldTableAvailable(NewTableId: Integer): Boolean var OldTableMetadata: Record "Table Metadata"; NewTableMetadata: Record "Table Metadata"; @@ -263,7 +266,6 @@ codeunit 20509 "Subc. Data Migration" if (OldTableMetadata.ID <> OldTableId) or (OldTableMetadata.Caption <> NewTableMetadata.Caption) then exit(false); - OldRecordRef.Open(OldTableId); exit(true); end; @@ -306,6 +308,5 @@ codeunit 20509 "Subc. Data Migration" MigrationInitiatedMsg: Label 'Subcontracting renumbering data migration was initiated.', Locked = true; MigrationNotInitiatedMsg: Label 'Subcontracting renumbering data migration was not initiated. Reason: %1', Locked = true; MigrationAlreadyCompletedLbl: Label 'The migration upgrade tag is already set.', Locked = true; - OldTableNotAvailableLbl: Label 'The legacy Subcontractor WIP Ledger Entry table is not available.', Locked = true; TelemetryCategoryLbl: Label 'Subcontracting', Locked = true; } From 59ed9f794486e7443bd9826853487a15c27d4292 Mon Sep 17 00:00:00 2001 From: Chethan Thopaiah Date: Thu, 30 Jul 2026 16:27:28 +0200 Subject: [PATCH 6/7] no need for version number in upgrade tag --- .../App/src/Install/SubcDataMigration.Codeunit.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al index a97d00f7271..88e523bec87 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al @@ -301,7 +301,7 @@ codeunit 20509 "Subc. Data Migration" local procedure GetRenumberedDataMigrationTag(): Code[250] begin - exit('MS-Subcontracting-RenumberObjects-28.3-20260728'); + exit('MS-Subcontracting-RenumberObjects-20260728'); end; var From f29aac76821241560f0d3e223e198f8a0eaed3dd Mon Sep 17 00:00:00 2001 From: Chethan Thopaiah Date: Mon, 3 Aug 2026 09:23:13 +0200 Subject: [PATCH 7/7] changed range for QM --- src/Apps/W1/Quality Management/app/app.json | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Apps/W1/Quality Management/app/app.json b/src/Apps/W1/Quality Management/app/app.json index cdd0838d2c1..3fdf41855c2 100644 --- a/src/Apps/W1/Quality Management/app/app.json +++ b/src/Apps/W1/Quality Management/app/app.json @@ -18,6 +18,10 @@ "idRanges": [ { "from": 20400, + "to": 20499 + }, + { + "from": 20596, "to": 20600 } ],