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 } ], diff --git a/src/Apps/W1/Subcontracting/App/app.json b/src/Apps/W1/Subcontracting/App/app.json index b8e06f388f4..61013fcaad6 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": 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 c40a473bc06..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 99001569 "Subc. Feature Flag Handler" +codeunit 20569 "Subc. Feature Flag Handler" { ObsoleteState = Pending; ObsoleteTag = '28.0'; @@ -24,4 +24,4 @@ codeunit 99001569 "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 82f66b47f65..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 99001501 "Subc. ILEntries" extends "Item Ledger Entries" +pageextension 20501 "Subc. ILEntries" extends "Item Ledger Entries" { layout { @@ -119,4 +119,4 @@ pageextension 99001501 "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 0e99a2df5ad..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 99001515 "Subc. ItemJnlPostLine Ext" +codeunit 20515 "Subc. ItemJnlPostLine Ext" { #if not CLEAN28 var @@ -133,4 +133,4 @@ codeunit 99001515 "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 852f0a88203..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 99001500 "Subc. Item Ledger Entry" extends "Item Ledger Entry" +tableextension 20500 "Subc. Item Ledger Entry" extends "Item Ledger Entry" { AllowInCustomizations = AsReadOnly; fields { - field(99001510; "Subc. Prod. Order No."; Code[20]) + field(20510; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No.'; DataClassification = CustomerContent; } - field(99001511; "Subc. Prod. Order Line No."; Integer) + field(20511; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No.'; DataClassification = CustomerContent; } - field(99001512; "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(99001513; "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(99001514; "Subc. Operation No."; Code[10]) + field(20514; "Subc. Operation No."; Code[10]) { Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; @@ -45,4 +45,4 @@ tableextension 99001500 "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 89f7e46cf2b..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 99001506 "Subc. Notification Mgmt." +codeunit 20506 "Subc. Notification Mgmt." { var #if not CLEAN28 @@ -114,4 +114,4 @@ codeunit 99001506 "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 c9a470729fc..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 99001512 "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 99001512 "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 d8c5f3b96ad..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 99001500 "Subc. Session State" +codeunit 20500 "Subc. Session State" { SingleInstance = true; @@ -114,4 +114,4 @@ codeunit 99001500 "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 8058d828b2b..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 99001511 "Subc. Synchronize Management" +codeunit 20511 "Subc. Synchronize Management" { var #if not CLEAN28 @@ -277,4 +277,4 @@ codeunit 99001511 "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 a76a7c1303d..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 99001505 "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 a0bb8e73f42..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 99001502 "Subc. Business Setup Ext." +codeunit 20502 "Subc. Business Setup Ext." { var SubcontractingDescriptionLbl: Label 'Make manual Subcontracting Setup'; @@ -30,4 +30,4 @@ codeunit 99001502 "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 new file mode 100644 index 00000000000..88e523bec87 --- /dev/null +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcDataMigration.Codeunit.al @@ -0,0 +1,312 @@ +// ------------------------------------------------------------------------------------------------ +// 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 20509 "Subc. Data Migration" +{ + Access = Internal; + + internal procedure MigrateRenumberedData() + var + UpgradeTag: Codeunit "Upgrade Tag"; + begin + if UpgradeTag.HasUpgradeTag(GetRenumberedDataMigrationTag()) then begin + LogMigrationNotInitiated(MigrationAlreadyCompletedLbl); + exit; + end; + + LogMigrationInitiated(); + MigrateWorksheetFields(); + 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() + 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 + 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() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '20510,20511,20512,20513,20514'); + MigrateTableExtensionFields(Database::"Item Ledger Entry", FieldIds); + + SetFieldIds(FieldIds, '20510,20511,20512,20513,20514,20542'); + MigrateTableExtensionFields(Database::"Item Journal Line", FieldIds); + end; + + local procedure MigrateManufacturingFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '20500,20512,20513'); + MigrateTableExtensionFields(Database::"Capacity Ledger Entry", FieldIds); + + SetFieldIds(FieldIds, '20524,20525,20526'); + MigrateTableExtensionFields(Database::"Planning Component", FieldIds); + + SetFieldIds(FieldIds, '20522'); + MigrateTableExtensionFields(Database::"Production BOM Line", FieldIds); + + SetFieldIds(FieldIds, '20522,20523,20528'); + MigrateTableExtensionFields(Database::"Prod. Order Component", FieldIds); + + SetFieldIds(FieldIds, '20550,20560,20561,20562'); + MigrateTableExtensionFields(Database::"Prod. Order Routing Line", FieldIds); + + SetFieldIds(FieldIds, '20552'); + MigrateTableExtensionFields(Database::"Production Order", FieldIds); + + SetFieldIds(FieldIds, '20560,20561,20562'); + MigrateTableExtensionFields(Database::"Routing Line", FieldIds); + end; + + local procedure MigratePurchaseFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '20515,20517'); + MigrateTableExtensionFields(Database::Vendor, FieldIds); + + 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, '20520'); + MigrateTableExtensionFields(Database::"Purchase Header", FieldIds); + MigrateTableExtensionFields(Database::"Purchase Header Archive", FieldIds); + + SetFieldIds(FieldIds, '20543,20544,20545,20546,20547,20548,20549,20560'); + MigrateTableExtensionFields(Database::"Purchase Line", FieldIds); + + SetFieldIds(FieldIds, '20516,20517,20518,20519,20520'); + MigrateTableExtensionFields(Database::"Requisition Line", FieldIds); + end; + + local procedure MigrateSetupFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '20500'); + MigrateTableExtensionFields(Database::"Application Area Setup", FieldIds); + + SetFieldIds(FieldIds, '20500,20501,20502,20504,20505,20509'); + MigrateTableExtensionFields(Database::"Manufacturing Setup", FieldIds); + end; + + local procedure MigrateTransferFields() + var + FieldIds: List of [Integer]; + begin + 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, '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, '20530,20531,20532,20533,20534,20535,20536,20537,20538,20539,20560,20563'); + MigrateTableExtensionFields(Database::"Transfer Line", FieldIds); + end; + + local procedure MigrateWarehouseFields() + var + FieldIds: List of [Integer]; + begin + SetFieldIds(FieldIds, '20549,20560'); + MigrateTableExtensionFields(Database::"Posted Whse. Receipt Line", FieldIds); + MigrateTableExtensionFields(Database::"Warehouse Receipt Line", FieldIds); + + SetFieldIds(FieldIds, '20560'); + MigrateTableExtensionFields(Database::"Posted Whse. Shipment Line", FieldIds); + MigrateTableExtensionFields(Database::"Warehouse Shipment Line", FieldIds); + end; + + local procedure MigrateTableData(NewTableId: Integer; FieldIds: List of [Integer]) + var + DataTransfer: DataTransfer; + FieldIndex: Integer; + begin + if not IsOldTableAvailable(NewTableId) then + exit; + if not AreFieldsAvailable(GetOldId(NewTableId), FieldIds) then + exit; + if not AreFieldsAvailable(NewTableId, FieldIds) then + exit; + + DataTransfer.SetTables(GetOldId(NewTableId), NewTableId); + for FieldIndex := 1 to FieldIds.Count() do + DataTransfer.AddFieldValue(FieldIds.Get(FieldIndex), FieldIds.Get(FieldIndex)); + DataTransfer.UpdateAuditFields(false); + DataTransfer.CopyRows(); + end; + + local procedure MigrateTableExtensionFields(TableId: Integer; NewFieldIds: List of [Integer]) + var + DataTransfer: DataTransfer; + FieldIndex: Integer; + begin + if not AreOldFieldsAvailable(TableId, NewFieldIds) then + exit; + + DataTransfer.SetTables(TableId, TableId); + for FieldIndex := 1 to NewFieldIds.Count() do + DataTransfer.AddFieldValue(GetOldId(NewFieldIds.Get(FieldIndex)), NewFieldIds.Get(FieldIndex)); + DataTransfer.UpdateAuditFields(false); + DataTransfer.CopyFields(); + end; + + 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 + OldFieldIds.Add(GetOldId(NewFieldIds.Get(FieldIndex))); + + exit(AreFieldsAvailable(TableId, OldFieldIds)); + end; + + local procedure AreFieldsAvailable(TableId: Integer; FieldIds: List of [Integer]): Boolean + var + Field: Record Field; + FieldIndex: Integer; + begin + for FieldIndex := 1 to FieldIds.Count() do + if not Field.Get(TableId, FieldIds.Get(FieldIndex)) then + exit(false); + + exit(true); + end; + + local procedure IsOldTableAvailable(NewTableId: Integer): 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); + + 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(98981000); + 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-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; + TelemetryCategoryLbl: Label 'Subcontracting', Locked = true; +} 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..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 99001570 "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 99001570 "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 c95d6975755..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 99001503 "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 8af3d51e413..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 99001501 "Subcontracting Install" +codeunit 20501 "Subcontracting Install" { Subtype = Install; @@ -35,16 +35,20 @@ codeunit 99001501 "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; @@ -70,4 +74,4 @@ codeunit 99001501 "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 fed94caf9e8..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 99001500 "Component Supply Method" +enum 20500 "Component Supply Method" { Extensible = true; // No supply method is selected. @@ -27,4 +27,4 @@ enum 99001500 "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 48e008184ff..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 99001503 "Components at Location" +enum 20503 "Components at Location" { Extensible = true; value(0; Empty) @@ -23,4 +23,4 @@ enum 99001503 "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 071b7f2f3ed..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 99001521 "Subc. Calc BOM Tree Ext." +codeunit 20521 "Subc. Calc BOM Tree Ext." { #if not CLEAN27 #pragma warning disable AL0432 @@ -34,4 +34,4 @@ codeunit 99001521 "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 8c61e6dee45..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 99001517 "Subc. Calc. Prod. Order Ext." +codeunit 20517 "Subc. Calc. Prod. Order Ext." { #if not CLEAN28 var @@ -65,4 +65,4 @@ codeunit 99001517 "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 7645b42d832..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 99001514 "Subc. Calc.StandardCost Ext." +codeunit 20514 "Subc. Calc.StandardCost Ext." { #if not CLEAN28 var @@ -58,4 +58,4 @@ codeunit 99001514 "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 4dc2501a0b8..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 99001529 "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 99001529 "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 e9f796b6daf..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 99001502 "Subc. CapLEntries" extends "Capacity Ledger Entries" +pageextension 20502 "Subc. CapLEntries" extends "Capacity Ledger Entries" { layout { @@ -87,4 +87,4 @@ pageextension 99001502 "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 3aeba5d4f18..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 99001504 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger Entry" +tableextension 20504 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger Entry" { AllowInCustomizations = AsReadOnly; fields { - field(99001500; "Subc. Subcontractor No."; Code[20]) + field(20500; "Subc. Subcontractor No."; Code[20]) { Caption = 'Subcontractor No.'; DataClassification = CustomerContent; } - field(99001512; "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(99001513; "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 99001504 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger E "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 e7813b69197..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 99001523 "Subc. Carry Out Action Ext." +codeunit 20523 "Subc. Carry Out Action Ext." { #if not CLEAN27 #pragma warning disable AL0432 @@ -35,4 +35,4 @@ codeunit 99001523 "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 3e498edf717..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 99001562 "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 98e422586be..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 99001504 "Subc. Dispatching List" +report 20504 "Subc. Dispatching List" { ApplicationArea = Subcontracting; Caption = 'Subcontractor - Dispatch List'; @@ -2021,4 +2021,4 @@ report 99001504 "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 9305138f0cc..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 99001548 "Subc. Finished Prod. Order" extends "Finished Production Order" +pageextension 20548 "Subc. Finished Prod. Order" extends "Finished Production Order" { actions { @@ -66,4 +66,4 @@ pageextension 99001548 "Subc. Finished Prod. Order" extends "Finished Production 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 ff954e609e5..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 99001543 "Subc. Finished Prod. Orders" extends "Finished Production Orders" +pageextension 20543 "Subc. Finished Prod. Orders" extends "Finished Production Orders" { actions { @@ -61,4 +61,4 @@ pageextension 99001543 "Subc. Finished Prod. Orders" extends "Finished Productio } } } -} \ 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 0d33f17d31d..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 99001511 "Subc. Planning Comp" extends "Planning Components" +pageextension 20511 "Subc. Planning Comp" extends "Planning Components" { layout { @@ -18,4 +18,4 @@ pageextension 99001511 "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 8bb7e54631c..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 99001522 "Subc. Planning Comp. Ext." +codeunit 20522 "Subc. Planning Comp. Ext." { #if not CLEAN28 var @@ -117,4 +117,4 @@ codeunit 99001522 "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 176bbf0b922..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 99001503 "Subc. Planning Comp Ext." extends "Planning Component" +tableextension 20503 "Subc. Planning Comp Ext." extends "Planning Component" { AllowInCustomizations = AsReadOnly; fields { - field(99001524; "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 99001503 "Subc. Planning Comp Ext." extends "Planning Component" SubcontractingManagement.UpdateComponentSupplyMethodForPlanningComponent(Rec); end; } - field(99001525; "Orig. Location Code"; Code[10]) + field(20525; "Orig. Location Code"; Code[10]) { Caption = 'Original Location Code'; DataClassification = CustomerContent; TableRelation = Location; } - field(99001526; "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 3a84ef10fbe..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 99001518 "Subc. Planning Line Mgmt Ext." +codeunit 20518 "Subc. Planning Line Mgmt Ext." { #if not CLEAN28 var @@ -89,4 +89,4 @@ codeunit 99001518 "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 2a543c74c3e..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 99001531 "Subc. Prod BOM Line Ext." extends "Production BOM Line" +tableextension 20531 "Subc. Prod BOM Line Ext." extends "Production BOM Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001522; "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 99001531 "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 bca0cf31e79..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 99001510 "Subc. Prod BOM Lines" extends "Production BOM Lines" +pageextension 20510 "Subc. Prod BOM Lines" extends "Production BOM Lines" { layout { @@ -18,4 +18,4 @@ pageextension 99001510 "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 ae14805545d..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 99001514 "Subc. ProdBOMVersionLines" extends "Production BOM Version Lines" +pageextension 20514 "Subc. ProdBOMVersionLines" extends "Production BOM Version Lines" { layout { @@ -19,4 +19,4 @@ pageextension 99001514 "Subc. ProdBOMVersionLines" extends "Production BOM Versi } } } -} \ 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 d081e2e9b8a..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 99001559 "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 8d3269e9e22..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 99001530 "Subc. Prod. Ord. Comp. Res." +codeunit 20530 "Subc. Prod. Ord. Comp. Res." { EventSubscriberInstance = Manual; @@ -36,4 +36,4 @@ codeunit 99001530 "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 bcecc24cef1..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 99001512 "Subc. Prod Order Comp" extends "Prod. Order Components" +pageextension 20512 "Subc. Prod Order Comp" extends "Prod. Order Components" { layout { @@ -35,4 +35,4 @@ pageextension 99001512 "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 858cbba5559..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 99001524 "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 ce85c33c983..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 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" +tableextension 20502 "Subc. Prod Order Comp Ext." extends "Prod. Order Component" { AllowInCustomizations = AsReadOnly; fields { - field(99001522; "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 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon SubcontractingManagement.UpdateComponentSupplyMethodForProdOrderComponent(Rec); end; } - field(99001523; "Subc. Original Location Code"; Code[10]) + field(20523; "Subc. Original Location Code"; Code[10]) { Caption = 'Original Location Code'; DataClassification = CustomerContent; TableRelation = Location; } - field(99001524; "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 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(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 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(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 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(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(99001528; "Subc. Orig. Bin Code"; Code[20]) + field(20528; "Subc. Orig. Bin Code"; Code[20]) { Caption = 'Original Bin Code'; DataClassification = CustomerContent; TableRelation = Bin; } - field(99001530; "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 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon Editable = false; FieldClass = FlowField; } - field(99001531; "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 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon 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 29df1f0de77..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 99001513 "Subc. ProdOrderCompLine" extends "Prod. Order Comp. Line List" +pageextension 20513 "Subc. ProdOrderCompLine" extends "Prod. Order Comp. Line List" { layout { @@ -19,4 +19,4 @@ pageextension 99001513 "Subc. ProdOrderCompLine" extends "Prod. Order Comp. Line } } } -} \ 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 f7482c07c6b..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 99001503 "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 311eaf6d924..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 99001503 "Subc. Prod. Order Rtng." extends "Prod. Order Routing" +pageextension 20503 "Subc. Prod. Order Rtng." extends "Prod. Order Routing" { layout { @@ -226,4 +226,4 @@ pageextension 99001503 "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 a0fd4dd15d9..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 99001520 "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 0779f82fb81..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 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Routing Line" +tableextension 20506 "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(20550; "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(20551; 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(20560; "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(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(99001562; "Transfer Description 2"; Text[50]) + field(20562; "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(20563; "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(20564; "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(20534; "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(20535; "Prod. Order Line Filter"; Integer) { Caption = 'Prod. Order Line Filter'; FieldClass = FlowFilter; @@ -275,4 +275,4 @@ tableextension 99001506 "Subc. ProdOrderRtngLine Ext." extends "Prod. Order Rout 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 084227bf0ae..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 99001505 "Subc. Production Order Ext." extends "Production Order" +tableextension 20505 "Subc. Production Order Ext." extends "Production Order" { AllowInCustomizations = AsReadOnly; fields { - field(99001552; "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 7612fdcf78c..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 99001504 "Subc. Rel. Prod. Order" extends "Released Production Order" +pageextension 20504 "Subc. Rel. Prod. Order" extends "Released Production Order" { actions { @@ -82,4 +82,4 @@ pageextension 99001504 "Subc. Rel. Prod. Order" extends "Released Production Ord } } } -} \ 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 0446a28a16f..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 99001505 "Subc. Rel. Prod. Orders" extends "Released Production Orders" +pageextension 20505 "Subc. Rel. Prod. Orders" extends "Released Production Orders" { actions { @@ -60,4 +60,4 @@ pageextension 99001505 "Subc. Rel. Prod. Orders" extends "Released Production Or } } } -} \ 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 b4c0c324d50..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 99001516 "Subc. Req. Wksh. Make Ord." +codeunit 20516 "Subc. Req. Wksh. Make Ord." { #if not CLEAN28 var @@ -121,4 +121,4 @@ codeunit 99001516 "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 8db3daf7397..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 99001561 "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 9b19c327091..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 99001502 "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 5ed4ba4e0dd..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 99001560 "Subc. Routing Line" extends "Routing Line" +tableextension 20560 "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(20551; 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(20560; "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(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(99001562; "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 2cc931c1576..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 99001508 "Subc. Routing Lines" extends "Routing Lines" +pageextension 20508 "Subc. Routing Lines" extends "Routing Lines" { layout { @@ -133,4 +133,4 @@ pageextension 99001508 "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 f9acbd7af48..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 99001509 "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 cfcd353b6c2..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 99001506 "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 c252f3044a5..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 99001519 "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 99001519 "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 870e6efe6fb..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 99001507 "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 5d99d33d23f..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 99001518 "Subc. Item Card" extends "Item Card" +pageextension 20518 "Subc. Item Card" extends "Item Card" { actions { @@ -24,4 +24,4 @@ pageextension 99001518 "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 a1b9ce4cfcc..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 99001532 "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 55d3d6ff296..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 99001508 "Subc. Item Journal Line Ext." extends "Item Journal Line" +tableextension 20508 "Subc. Item Journal Line Ext." extends "Item Journal Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001510; "Subc. Prod. Order No."; Code[20]) + field(20510; "Subc. Prod. Order No."; Code[20]) { Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; } - field(99001511; "Subc. Prod. Order Line No."; Integer) + field(20511; "Subc. Prod. Order Line No."; Integer) { Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; } - field(99001512; "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(99001513; "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(99001514; "Subc. Operation No."; Code[10]) + field(20514; "Subc. Operation No."; Code[10]) { Caption = 'Operation No.'; DataClassification = CustomerContent; } - field(99001542; "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 8e233b9ec09..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 99001519 "Subc. Item List" extends "Item List" +pageextension 20519 "Subc. Item List" extends "Item List" { actions { @@ -36,4 +36,4 @@ pageextension 99001519 "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 39122891f85..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 99001507 "Subc. Vendor" extends Vendor +tableextension 20507 "Subc. Vendor" extends Vendor { AllowInCustomizations = AsReadOnly; fields { - field(99001515; "Subc. Location Code"; Code[10]) + field(20515; "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(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(99001517; "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 99001507 "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 9c6585a2a8a..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 99001516 "Subc. Vendor Card" extends "Vendor Card" +pageextension 20516 "Subc. Vendor Card" extends "Vendor Card" { layout { @@ -40,4 +40,4 @@ pageextension 99001516 "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 1108624a315..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 99001531 "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 99001531 "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 00ac3b4e54a..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 99001517 "Subc. Vendor List" extends "Vendor List" +pageextension 20517 "Subc. Vendor List" extends "Vendor List" { actions { @@ -24,4 +24,4 @@ pageextension 99001517 "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 2de90c35de3..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 99001502 "D365 BASIC - Subcontracting" extends "D365 BASIC" +permissionsetextension 20502 "D365 BASIC - Subcontracting" extends "D365 BASIC" { - IncludedPermissionSets = "Subcontract. - Read"; -} \ No newline at end of file + IncludedPermissionSets = "Subcontract - Read"; +} 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..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 99001501 "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 + IncludedPermissionSets = "Subcontract - Edit"; +} 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..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 99001500 "D365 READ - Subcontracting" extends "D365 READ" +permissionsetextension 20500 "D365 READ - Subcontracting" extends "D365 READ" { - IncludedPermissionSets = "Subcontract. - Read"; -} \ No newline at end of file + IncludedPermissionSets = "Subcontract - Read"; +} 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..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,15 +4,15 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 99001503 "Subcontract. - Edit" +permissionset 20503 "Subcontract - Edit" { Caption = 'Subcontracting - Edit'; Access = Public; Assignable = true; - IncludedPermissionSets = "Subcontract. - Read"; + IncludedPermissionSets = "Subcontract - Read"; 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 fabbcdb576f..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 99001501 "Subcontract. - Objs" +permissionset 20501 "Subcontract - Objs" { Caption = 'Subcontracting - Objects'; Assignable = true; @@ -93,4 +93,4 @@ permissionset 99001501 "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 2bbbecde211..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,15 +4,15 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Manufacturing.Subcontracting; -permissionset 99001502 "Subcontract. - Read" +permissionset 20502 "Subcontract - Read" { Caption = 'Subcontracting - Read'; Access = Public; Assignable = true; - IncludedPermissionSets = "Subcontract. - Objs"; + IncludedPermissionSets = "Subcontract - Objs"; 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 c9558c342b3..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 99001505 "Subc. Calculate Subcontracts" +report 20505 "Subc. Calculate Subcontracts" { ApplicationArea = Subcontracting; Caption = 'Calculate Subcontracts'; @@ -368,4 +368,4 @@ report 99001505 "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 716345c80cd..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 99001502 "Subc. Create SubCReturnOrder" +report 20502 "Subc. Create SubCReturnOrder" { ApplicationArea = Subcontracting; Caption = 'Create Subcontracting Return Order'; @@ -416,4 +416,4 @@ report 99001502 "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 179bd0cec27..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 99001536 "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 99001536 "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 c45c9e6f847..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 99001524 "Subc. PO Subform" extends "Purchase Order Subform" +pageextension 20524 "Subc. PO Subform" extends "Purchase Order Subform" { layout { @@ -127,4 +127,4 @@ pageextension 99001524 "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 b3de56c2286..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 99001508 "Subc. Price Management" +codeunit 20508 "Subc. Price Management" { var ManufacturingSetup: Record "Manufacturing Setup"; @@ -589,4 +589,4 @@ codeunit 99001508 "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 c140d28a956..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 99001515 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line" +tableextension 20515 "Subc. Purch. CrMemo Line" extends "Purch. Cr. Memo Line" { fields { - field(99001543; "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(99001544; "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 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(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(20547; "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(20548; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; @@ -59,4 +59,4 @@ tableextension 99001515 "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 457cc793b4a..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 99001560 "Subc. Purch. Factbox Mgmt." +codeunit 20560 "Subc. Purch. Factbox Mgmt." { var #if not CLEAN28 @@ -638,4 +638,4 @@ codeunit 99001560 "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 df57c6e053f..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 99001514 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" +tableextension 20514 "Subc. Purch. Inv. Line" extends "Purch. Inv. Line" { fields { - field(99001543; "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(99001544; "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 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(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(20547; "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(20548; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; @@ -59,4 +59,4 @@ tableextension 99001514 "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 630d08d52e9..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 99001523 "Subc. Purch. Order" extends "Purchase Order" +pageextension 20523 "Subc. Purch. Order" extends "Purchase Order" { layout { @@ -127,4 +127,4 @@ pageextension 99001523 "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 60e080ed1a0..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 99001525 "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 8a7da60854f..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 99001535 "Subc. Purch. Post Ext" +codeunit 20535 "Subc. Purch. Post Ext" { var #if not CLEAN28 @@ -281,4 +281,4 @@ codeunit 99001535 "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 6bf785cb5f2..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 99001513 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" +tableextension 20513 "Subc. Purch. Rcpt. Line" extends "Purch. Rcpt. Line" { fields { - field(99001543; "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(99001544; "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 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(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(20547; "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(20548; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; @@ -59,4 +59,4 @@ tableextension 99001513 "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 daaf18c68db..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 99001509 "Subc. Purchase Header" extends "Purchase Header" +tableextension 20509 "Subc. Purchase Header" extends "Purchase Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001520; "Subc. Location Code"; Code[10]) + field(20520; "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(20521; "Subc. Order"; Boolean) { CalcFormula = exist("Purchase Line" where("Document Type" = const(Order), "Document No." = field("No."), @@ -41,4 +41,4 @@ tableextension 99001509 "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 771a5dd23f9..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 99001511 "Subc. Purchase Header Arch" extends "Purchase Header Archive" +tableextension 20511 "Subc. Purchase Header Arch" extends "Purchase Header Archive" { AllowInCustomizations = AsReadOnly; fields { - field(99001520; "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(99001521; "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 99001511 "Subc. Purchase Header Arch" extends "Purchase Header Ar 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 833e52f152f..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 99001533 "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 3f144d1458b..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 99001512 "Subc. Purchase Line" extends "Purchase Line" +tableextension 20512 "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(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(99001544; "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 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(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(20547; "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(20548; "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(20549; "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(20550; "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(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -249,4 +249,4 @@ tableextension 99001512 "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 4a76a2e6be0..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 99001516 "Subc. Purchase Line Archive" extends "Purchase Line Archive" +tableextension 20516 "Subc. Purchase Line Archive" extends "Purchase Line Archive" { fields { - field(99001543; "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(99001544; "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 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(20545; "Subc. Routing No."; Code[20]) { Caption = 'Routing No. (Sub)'; DataClassification = CustomerContent; Editable = false; TableRelation = "Routing Header"; } - field(99001546; "Subc. Rtng Reference No."; Integer) + field(20546; "Subc. Rtng Reference No."; Integer) { Caption = 'Routing Reference No. (Sub)'; DataClassification = CustomerContent; Editable = false; } - field(99001547; "Subc. Operation No."; Code[10]) + field(20547; "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(20548; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No. (Sub)'; DataClassification = CustomerContent; @@ -59,4 +59,4 @@ tableextension 99001516 "Subc. Purchase Line Archive" extends "Purchase Line Arc 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 e6f967f0439..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 99001534 "Subc. Purchase Line Ext" +codeunit 20534 "Subc. Purchase Line Ext" { var #if not CLEAN28 @@ -456,4 +456,4 @@ codeunit 99001534 "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 82979240932..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 99001518 "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 485d20a82d1..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 99001507 "Subc. Purchase Line Type" +enum 20507 "Subc. Purchase Line Type" { Extensible = true; @@ -19,4 +19,4 @@ enum 99001507 "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 02ba7fa18de..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 99001557 "Subc. Purchase Order Creator" +codeunit 20557 "Subc. Purchase Order Creator" { var ManufacturingSetup: Record "Manufacturing Setup"; @@ -667,4 +667,4 @@ codeunit 99001557 "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 7d099dd1b45..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 99001513 "Subc. Req.Line Extension" +codeunit 20513 "Subc. Req.Line Extension" { #if not CLEAN28 var @@ -78,4 +78,4 @@ codeunit 99001513 "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 7c468695d37..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 99001510 "Subc. RequisitionLine" extends "Requisition Line" +tableextension 20510 "Subc. RequisitionLine" extends "Requisition Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001516; "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 99001510 "Subc. RequisitionLine" extends "Requisition Line" UpdateSubcontractorPrice(); end; } - field(99001517; "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 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(20518; "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(20519; "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(20520; "Subc. Pricelist Cost"; Decimal) { Access = Internal; AutoFormatExpression = "Currency Code"; @@ -188,4 +188,4 @@ tableextension 99001510 "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 d45049c371a..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 99001500 "Subcontractor Price" +table 20500 "Subcontractor Price" { AllowInCustomizations = AsReadOnly; Caption = 'Subcontractor Price'; @@ -258,4 +258,4 @@ table 99001500 "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 64ad8c72a7e..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 99001500 "Subcontractor Prices" +page 20500 "Subcontractor Prices" { ApplicationArea = Subcontracting; Caption = 'Subcontractor Prices'; @@ -410,4 +410,4 @@ page 99001500 "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 51da1b880aa..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 99001529 "Subc. Manufacturing Cue" extends "Manufacturing Cue" +tableextension 20529 "Subc. Manufacturing Cue" extends "Manufacturing Cue" { fields { - field(99001560; "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 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(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 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(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 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(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 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(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 bdb7ab4355b..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 99001536 "Subc. Manufacturing Manager RC" extends "Manufacturing Manager RC" +pageextension 20536 "Subc. Manufacturing Manager RC" extends "Manufacturing Manager RC" { actions { @@ -32,4 +32,4 @@ pageextension 99001536 "Subc. Manufacturing Manager RC" extends "Manufacturing M } } } -} \ 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 b216f5b2a3a..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 99001537 "Subc. Prod. Planner Activities" extends "Production Planner Activities" +pageextension 20537 "Subc. Prod. Planner Activities" extends "Production Planner Activities" { layout { @@ -65,4 +65,4 @@ pageextension 99001537 "Subc. Prod. Planner Activities" extends "Production Plan } } } -} \ 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 8efde529967..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 99001538 "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 99001538 "Subc. Prod. Planner RoleCenter" extends "Production Plan } } } -} \ 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 45c45a97245..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 99001541 "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 99001541 "Subc. Purch. Agent Role Center" extends "Purchasing Agen } } } -} \ 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 d9bc2312f6b..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 99001535 "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 99001535 "Subc. Purchasing Manager RC" extends "Purchasing Manager } } } -} \ 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 91bdb6ade54..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 99001539 "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 99001539 "Subc. Shop S. Mfg Foundation" extends "Shop Supervisor M } } } -} \ 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 ac3f18d3204..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 99001549 "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 995ab72af34..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 99001540 "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 99001540 "Subc. Shop Super. Role Center" extends "Shop Supervisor } } } -} \ 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 6b9a33a9742..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 99001550 "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 7b308107293..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 99001571 "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 6551dec314f..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 99001571 "Subc. Application Area Setup" extends "Application Area Setup" +tableextension 20571 "Subc. Application Area Setup" extends "Application Area Setup" { fields { - field(99001500; 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 8e5e436d0ae..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 99001542 "Subc. Manufacturing Setup" extends "Manufacturing Setup" +pageextension 20542 "Subc. Manufacturing Setup" extends "Manufacturing Setup" { layout { @@ -48,4 +48,4 @@ pageextension 99001542 "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 ce3a1e14a07..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 99001501 "Subc. Manufacturing Setup" extends "Manufacturing Setup" +tableextension 20501 "Subc. Manufacturing Setup" extends "Manufacturing Setup" { fields { - field(99001500; "Create Prod. Order Info Line"; Boolean) + field(20500; "Create Prod. Order Info Line"; Boolean) { Caption = 'Create Prod. Order Info Line'; DataClassification = CustomerContent; } - field(99001501; "Subcontracting Template Name"; Code[10]) + field(20501; "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(20502; "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(20504; "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(20505; "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(20509; "Subc. Default Comp. Location"; Enum "Components at Location") { Caption = 'Default Component Location Source'; DataClassification = CustomerContent; @@ -86,4 +86,4 @@ tableextension 99001501 "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 d6582de59af..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 99001501 "Subc. Create Transf. Order" +report 20501 "Subc. Create Transf. Order" { ApplicationArea = Subcontracting; Caption = 'Create Subcontracting Transfer Order'; @@ -597,4 +597,4 @@ report 99001501 "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 57f6a846c6f..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 99001524 "Subc. DirectTransHeader Ext." extends "Direct Trans. Header" +tableextension 20524 "Subc. DirectTransHeader Ext." extends "Direct Trans. Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(20530; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(20531; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; } - field(99001536; "Source ID"; Code[20]) + field(20536; "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(20537; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(99001540; "Source Type"; Enum "Transfer Source Type") + field(20540; "Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(99001541; "Return Order"; Boolean) + field(20541; "Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; @@ -77,4 +77,4 @@ tableextension 99001524 "Subc. DirectTransHeader Ext." extends "Direct Trans. He 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 cafad48243f..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 99001523 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Line" +tableextension 20523 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(20530; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(20531; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(99001532; "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(99001533; "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(99001534; "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 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(20535; "Routing No."; Code[20]) { Caption = 'Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(99001536; "Routing Reference No."; Integer) + field(20536; "Routing Reference No."; Integer) { Caption = 'Routing Reference No.'; DataClassification = CustomerContent; } - field(99001537; "Work Center No."; Code[20]) + field(20537; "Work Center No."; Code[20]) { Caption = 'Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; } - field(99001538; "Operation No."; Code[10]) + field(20538; "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(20539; "Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; Editable = false; } - field(99001560; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -84,4 +84,4 @@ tableextension 99001523 "Subc. DirectTrans. Line Ext" extends "Direct Trans. Lin 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 9abee3b532e..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 99001548 "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 99001548 "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 e5feed5595f..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 99001531 "Subc. Pstd. Direct Trans." extends "Posted Direct Transfer" +pageextension 20531 "Subc. Pstd. Direct Trans." extends "Posted Direct Transfer" { layout { @@ -56,4 +56,4 @@ pageextension 99001531 "Subc. Pstd. Direct Trans." extends "Posted Direct Transf } } } -} \ 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 4dc52dcc857..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 99001532 "Subc. PstdDirectTransfSub" extends "Posted Direct Transfer Subform" +pageextension 20532 "Subc. PstdDirectTransfSub" extends "Posted Direct Transfer Subform" { layout { @@ -150,4 +150,4 @@ pageextension 99001532 "Subc. PstdDirectTransfSub" extends "Posted Direct Transf 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 8b1b0c7e9e7..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 99001554 "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 af3e5d80c51..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 99001528 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Receipt" +pageextension 20528 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Receipt" { layout { @@ -56,4 +56,4 @@ pageextension 99001528 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Rece } } } -} \ 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 644db372134..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 99001553 "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 321f60799f2..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 99001527 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Shipment" +pageextension 20527 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Shipment" { layout { @@ -50,4 +50,4 @@ pageextension 99001527 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Ship } } } -} \ 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 9789bdbef10..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 99001552 "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 46086d61667..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 99001540 "Subc. TransOrderPostRcpt Ext" +codeunit 20540 "Subc. TransOrderPostRcpt Ext" { #if not CLEAN28 var @@ -78,4 +78,4 @@ codeunit 99001540 "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 b748a6050ad..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 99001539 "Subc. TransOrderPostShpt Ext" +codeunit 20539 "Subc. TransOrderPostShpt Ext" { #if not CLEAN28 var @@ -53,4 +53,4 @@ codeunit 99001539 "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 271ec96e0ab..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 99001547 "Subc. TransOrderPostTrans Ext" +codeunit 20547 "Subc. TransOrderPostTrans Ext" { #if not CLEAN28 var @@ -315,4 +315,4 @@ codeunit 99001547 "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 ba4f9074d36..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 99001529 "Subc. Trans. Order Sub." extends "Transfer Order Subform" +pageextension 20529 "Subc. Trans. Order Sub." extends "Transfer Order Subform" { layout { @@ -201,4 +201,4 @@ pageextension 99001529 "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 c3534b26a82..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 99001542 "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 99001542 "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 77b2dcfe3ba..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 99001521 "Subc. Trans Rcpt Header Ext." extends "Transfer Receipt Header" +tableextension 20521 "Subc. Trans Rcpt Header Ext." extends "Transfer Receipt Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(20530; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(20531; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; } - field(99001536; "Source ID"; Code[20]) + field(20536; "Source ID"; Code[20]) { Caption = 'Source ID'; DataClassification = CustomerContent; } - field(99001537; "Source Ref. No."; Integer) + field(20537; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(99001540; "Subc. Source Type"; Enum "Transfer Source Type") + field(20540; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(99001541; "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 4f1392091af..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 99001543 "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 99001543 "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 493b652f12a..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 99001522 "Subc. Trans Shpt Header Ext." extends "Transfer Shipment Header" +tableextension 20522 "Subc. Trans Shpt Header Ext." extends "Transfer Shipment Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "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(99001531; "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(99001536; "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(99001537; "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(99001540; "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(99001541; "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 1be57ed2b87..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 99001520 "Subc. Transfer Header" extends "Transfer Header" +tableextension 20520 "Subc. Transfer Header" extends "Transfer Header" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(20530; "Subcontr. Purch. Order No."; Code[20]) { Caption = 'Subcontr. Purch. Order No.'; DataClassification = CustomerContent; Editable = false; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(20531; "Subcontr. PO Line No."; Integer) { Caption = 'Subcontr. Purch. Order Line No.'; DataClassification = CustomerContent; Editable = false; } - field(99001536; "Source ID"; Code[20]) + field(20536; "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(20537; "Source Ref. No."; Integer) { Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(99001540; "Subc. Source Type"; Enum "Transfer Source Type") + field(20540; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(99001541; "Subc. Return Order"; Boolean) + field(20541; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; @@ -93,4 +93,4 @@ tableextension 99001520 "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 85c0a588da3..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 99001507 "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 a3b67b6ace2..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 99001517 "Subc. Transfer Line" extends "Transfer Line" +tableextension 20517 "Subc. Transfer Line" extends "Transfer Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "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(99001531; "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(99001532; "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(99001533; "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 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(20534; "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(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(99001536; "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(99001537; "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(99001538; "Subc. Operation No."; Code[10]) + field(20538; "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(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(99001560; "Transfer WIP Item"; Boolean) + field(20560; "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(20561; "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(20562; "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(20563; "Prev. Operation No."; Code[10]) { AllowInCustomizations = AsReadOnly; Caption = 'Previous Operation No.'; @@ -248,4 +248,4 @@ tableextension 99001517 "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 9c98ac68dcb..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 99001544 "Subc. Transfer Line Ext." +codeunit 20544 "Subc. Transfer Line Ext." { #if not CLEAN28 var @@ -155,4 +155,4 @@ codeunit 99001544 "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 4448ef9ad31..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 99001501 "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 0841fd4d426..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 99001530 "Subc. Transfer Lines" extends "Transfer Lines" +pageextension 20530 "Subc. Transfer Lines" extends "Transfer Lines" { layout { @@ -25,4 +25,4 @@ pageextension 99001530 "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 77d43b2169a..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 99001504 "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 59274755816..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 99001526 "Subc. Transfer Order" extends "Transfer Order" +pageextension 20526 "Subc. Transfer Order" extends "Transfer Order" { layout { @@ -124,4 +124,4 @@ pageextension 99001526 "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 b24eccc3498..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 99001551 "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 f6f2460dc79..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 99001538 "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 99001538 "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 9773cf55168..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 99001518 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receipt Line" +tableextension 20518 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receipt Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subc. Purch. Order No."; Code[20]) + field(20530; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; } - field(99001531; "Subc. Purch. Order Line No."; Integer) + field(20531; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(99001532; "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(99001533; "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(99001534; "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 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(20535; "Subc. Routing No."; Code[20]) { Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(99001536; "Subc. Routing Reference No."; Integer) + field(20536; "Subc. Routing Reference No."; Integer) { Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; } - field(99001537; "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(99001538; "Subc. Operation No."; Code[10]) + field(20538; "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(20539; "Subc. Return Order"; Boolean) { Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; } - field(99001560; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -84,4 +84,4 @@ tableextension 99001518 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receip 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 f5b324f67e5..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 99001537 "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 99001537 "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 f7cfd6f7089..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 99001519 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipment Line" +tableextension 20519 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipment Line" { AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subc. Purch. Order No."; Code[20]) + field(20530; "Subc. Purch. Order No."; Code[20]) { Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; } - field(99001531; "Subc. Purch. Order Line No."; Integer) + field(20531; "Subc. Purch. Order Line No."; Integer) { Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(99001532; "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(99001533; "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(99001534; "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 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(20535; "Subc. Routing No."; Code[20]) { Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(99001536; "Subc. Routing Reference No."; Integer) + field(20536; "Subc. Routing Reference No."; Integer) { Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; } - field(99001537; "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(99001538; "Subc. Operation No."; Code[10]) + field(20538; "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(20539; "Subc. Return Order"; Boolean) { Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; } - field(99001560; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -84,4 +84,4 @@ tableextension 99001519 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipme 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 40c862fdcc3..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 99001501 "Transfer Source Type" +enum 20501 "Transfer Source Type" { Extensible = true; value(0; Empty) @@ -15,4 +15,4 @@ enum 99001501 "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 7a19a960f2e..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 99001549 "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 e5dd4bd0de0..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 99001544 "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 99001544 "Subc.Change Status Prod. Order" extends "Change Status o 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 2eaf529a7b7..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 99001565 "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 054186997b8..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 99001566 "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 204e32c49f7..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 99001567 "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 e4abfb32b43..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 99001541 "Subc. Transfer WIP Posting" +codeunit 20541 "Subc. Transfer WIP Posting" { Permissions = TableData "Subcontractor WIP Ledger Entry" = RIMD; @@ -520,4 +520,4 @@ codeunit 99001541 "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 9f0b8a83e6d..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 99001561 "Subc. WIP Adjustment" +page 20561 "Subc. WIP Adjustment" { ApplicationArea = Subcontracting; Caption = 'WIP Adjustment'; @@ -437,4 +437,4 @@ page 99001561 "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 599d4d032b8..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 99001564 "Subc. WIP Item Ledg Find Entry" +codeunit 20564 "Subc. WIP Item Ledg Find Entry" { var @@ -63,4 +63,4 @@ codeunit 99001564 "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 5e9e984d89f..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 99001560 "Subc. WIP Ledger Entries" +page 20560 "Subc. WIP Ledger Entries" { ApplicationArea = Subcontracting; Caption = 'Subcontracting WIP Entries'; @@ -150,4 +150,4 @@ page 99001560 "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 98f888fe893..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 99001560 "Subcontractor WIP Ledger Entry" +table 20560 "Subcontractor WIP Ledger Entry" { AllowInCustomizations = AsReadOnly; Caption = 'Subcontractor WIP Ledger Entry'; @@ -246,4 +246,4 @@ table 99001560 "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 ce2d071ddad..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 99001509 "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 c5fcfe47e6e..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 99001508 "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 5aaac1af9b0..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 99001526 "Subc. Posted Whse Receipt Line" extends "Posted Whse. Receipt Line" +tableextension 20526 "Subc. Posted Whse Receipt Line" extends "Posted Whse. Receipt Line" { fields { - field(99001549; "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(99001560; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -26,4 +26,4 @@ tableextension 99001526 "Subc. Posted Whse Receipt Line" extends "Posted Whse. R 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 90670d9df74..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 99001545 "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 99001545 "Subc. Pstd. Whse Rcpt Sub" extends "Posted Whse. Receipt } } } -} \ 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 2fc6b6d084a..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 99001546 "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 99001546 "Subc. Pstd. Whse Shipm Sub" extends "Posted Whse. Shipme } } } -} \ 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 ac95dfec994..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 99001528 "Subc. Pstd. Whse Shipment Line" extends "Posted Whse. Shipment Line" +tableextension 20528 "Subc. Pstd. Whse Shipment Line" extends "Posted Whse. Shipment Line" { fields { - field(99001560; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -19,4 +19,4 @@ tableextension 99001528 "Subc. Pstd. Whse Shipment Line" extends "Posted Whse. S 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 3705adfa336..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 99001525 "Subc. Warehouse Receipt Line" extends "Warehouse Receipt Line" +tableextension 20525 "Subc. Warehouse Receipt Line" extends "Warehouse Receipt Line" { fields { - field(99001549; "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(99001560; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -26,4 +26,4 @@ tableextension 99001525 "Subc. Warehouse Receipt Line" extends "Warehouse Receip 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 25bf71260d9..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 99001527 "Subc. Warehouse Shipment Line" extends "Warehouse Shipment Line" +tableextension 20527 "Subc. Warehouse Shipment Line" extends "Warehouse Shipment Line" { fields { - field(99001560; "Transfer WIP Item"; Boolean) + field(20560; "Transfer WIP Item"; Boolean) { Caption = 'Transfer WIP Item'; DataClassification = CustomerContent; @@ -19,4 +19,4 @@ tableextension 99001527 "Subc. Warehouse Shipment Line" extends "Warehouse 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/SubcWhsePostReceiptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Warehouse/SubcWhsePostReceiptExt.Codeunit.al index abb7b8f24a5..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 99001551 "Subc. WhsePostReceipt Ext" +codeunit 20551 "Subc. WhsePostReceipt Ext" { var #if not CLEAN28 @@ -396,4 +396,4 @@ codeunit 99001551 "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 9d5d0b81445..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 99001563 "Subc. WhsePostShipment Ext" +codeunit 20563 "Subc. WhsePostShipment Ext" { #if not CLEAN28 var @@ -142,4 +142,4 @@ codeunit 99001563 "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 35579f4f8ee..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 99001550 "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 99001550 "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 06be6e6c90a..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 99001534 "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 99001534 "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 9892ed621c8..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 99001533 "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 99001533 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Sub 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 db73fe7749f..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 99001547 "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 99001547 "Subc. Whse Shipm. Subform Ext." extends "Whse. Shipment 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 116deab4764..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 99001500 "Subc. ReqWkshTempType Ext." extends "Req. Worksheet Template Type" +enumextension 20500 "Subc. ReqWkshTempType Ext." extends "Req. Worksheet Template Type" { - value(99001500; 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 9faebd854e3..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 99001504 "Subc. Subcontracting Worksheet" +page 20504 "Subc. Subcontracting Worksheet" { ApplicationArea = Subcontracting; AutoSplitKey = true; @@ -445,4 +445,4 @@ page 99001504 "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 fceab2be7e9..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 99001558 "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 99001558 "Subc. Worksheet Handler" #endif ReqWorksheetTemplateTypeList.Add(Enum::"Req. Worksheet Template Type"::Subcontracting); end; -} \ No newline at end of file +}