Skip to content
Closed
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions src/Apps/W1/Quality Management/app/app.json
Original file line number Diff line number Diff line change
Expand Up @@ -18,6 +18,10 @@
"idRanges": [
{
"from": 20400,
"to": 20499
},
{
"from": 20596,
"to": 20600
}
],
Expand Down
4 changes: 2 additions & 2 deletions src/Apps/W1/Subcontracting/App/app.json
Original file line number Diff line number Diff line change
Expand Up @@ -17,8 +17,8 @@
"application": "28.3.0.0",
"idRanges": [
{
"from": 99001500,
"to": 99001600
"from": 20500,
"to": 20595
}
],
"features": [
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -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';
Expand All @@ -24,4 +24,4 @@ codeunit 99001569 "Subc. Feature Flag Handler"
exit(not ManufacturingSetup."Legacy Subcontracting");
end;
}
#endif
#endif
Original file line number Diff line number Diff line change
Expand Up @@ -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
{
Expand Down Expand Up @@ -119,4 +119,4 @@ pageextension 99001501 "Subc. ILEntries" extends "Item Ledger Entries"
begin
SubcPurchFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant);
end;
}
}
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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;
}
}
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand All @@ -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.") { }
}
}
}
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -114,4 +114,4 @@ codeunit 99001506 "Subc. Notification Mgmt."
begin
exit('{f7b10c9e-071a-4455-a048-d17b29ef764c}');
end;
}
}
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down Expand Up @@ -60,4 +60,4 @@ codeunit 99001512 "Subc. Reporting Triggers Ext"

IsHandled := true;
end;
}
}
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Manufacturing.Subcontracting;

codeunit 99001500 "Subc. Session State"
codeunit 20500 "Subc. Session State"
{
SingleInstance = true;

Expand Down Expand Up @@ -114,4 +114,4 @@ codeunit 99001500 "Subc. Session State"
if RecordIDDictionary.ContainsKey(StoredKey) then
ReturnRecordID := RecordIDDictionary.Get(StoredKey);
end;
}
}
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -277,4 +277,4 @@ codeunit 99001511 "Subc. Synchronize Management"
IsSubcontracting := true;
exit(IsSubcontracting);
end;
}
}
Original file line number Diff line number Diff line change
Expand Up @@ -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";
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -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';
Expand All @@ -30,4 +30,4 @@ codeunit 99001502 "Subc. Business Setup Ext."
begin
SubcontractingCompInit.CreateBasicSubcontractingMgtSetup();
end;
}
}
Loading
Loading