From 1a391efe4c65b53504b63ef01a7da881fb88517b Mon Sep 17 00:00:00 2001 From: Sebastian Pinkow Date: Fri, 8 May 2026 15:21:20 +0200 Subject: [PATCH 1/7] Rename Fields for integration into Italy --- .../SubcCalcProdOrderExt.Codeunit.al | 4 +- .../SubcCarryOutActionExt.Codeunit.al | 4 +- .../SubcPlanningCompExt.Codeunit.al | 6 +- .../SubcProdOrderCompExt.Codeunit.al | 44 +++++------ .../Purchase/SubcPurchPostExt.Codeunit.al | 6 +- .../SubcPurchaseHeaderExt.Codeunit.al | 2 +- .../SubcItemJnlPostLineExt.Codeunit.al | 16 ++-- .../SubcDirectTransferLineExt.Codeunit.al | 18 ++--- .../SubcTransOrderPostRcptExt.Codeunit.al | 32 ++++---- .../SubcTransOrderPostShptExt.Codeunit.al | 28 +++---- .../SubcTransOrderPostTransExt.Codeunit.al | 16 ++-- .../Transfer/SubcTransferLineExt.Codeunit.al | 22 +++--- .../SubcTransferRcptLineExt.Codeunit.al | 18 ++--- .../SubcTransferShptLineExt.Codeunit.al | 18 ++--- .../SubcWhsePostReceiptExt.Codeunit.al | 4 +- .../SubcWhsePurchReleaseExt.Codeunit.al | 4 +- .../Codeunits/SubcCompFactboxMgmt.Codeunit.al | 4 +- .../SubcProdOFactboxMgmt.Codeunit.al | 26 +++---- .../SubcPurchFactboxMgmt.Codeunit.al | 74 +++++++++---------- .../SubcPurchaseOrderCreator.Codeunit.al | 8 +- .../SubcRoutingFactboxMgmt.Codeunit.al | 36 ++++----- .../SubcontractingManagement.Codeunit.al | 40 +++++----- .../SubcProdOrderComp.PageExt.al | 6 +- .../Manufacturing/SubcRelProdOrder.PageExt.al | 2 +- .../MasterData/SubcVendorCard.PageExt.al | 6 +- .../Purchase/SubcPurchOrder.PageExt.al | 2 +- .../Pageextensions/SubcCapLEntries.PageExt.al | 4 +- .../Pageextensions/SubcILEntries.PageExt.al | 8 +- .../Transfer/SubcTransOrderSub.PageExt.al | 18 ++--- .../Transfer/SubcTransferLines.PageExt.al | 2 +- .../Pages/SubcProdOrderComponents.Page.al | 6 +- .../Pages/SubcTransferLineFactbox.Page.al | 4 +- .../SubcCreateProdOrdOpt.Codeunit.al | 6 +- .../SubcProdOrderCreateBind.Codeunit.al | 2 +- .../SubcTempDataInitializer.Codeunit.al | 10 +-- .../Pages/SubcTempProdOrderComp.Page.al | 4 +- .../SubcCreateSubCReturnOrder.Report.al | 46 ++++++------ .../Reports/SubcCreateTransfOrder.Report.al | 56 +++++++------- .../Reports/SubcDispatchingList.Report.al | 18 ++--- .../SubcCapLedgerEntryExt.TableExt.al | 10 +-- .../SubcProdOrderCompExt.TableExt.al | 62 ++++++++-------- .../SubcItemJournalLineExt.TableExt.al | 22 +++--- .../MasterData/SubcVendor.TableExt.al | 6 +- .../Purchase/SubcPurchaseHeader.TableExt.al | 2 +- .../SubcPurchaseHeaderArch.TableExt.al | 2 +- .../Purchase/SubcPurchaseLine.TableExt.al | 2 +- .../SubcItemLedgerEntry.TableExt.al | 20 ++--- .../Transfer/SubcTransferLine.TableExt.al | 64 ++++++++-------- .../SubcTransferRcptLineExt.TableExt.al | 50 ++++++------- .../SubcTransferShptLineExt.TableExt.al | 48 ++++++------ .../SubcCreateProdOrdWizLibrary.Codeunit.al | 2 +- .../SubcProdOrderCheckLib.Codeunit.al | 2 +- .../SubcWarehouseLibrary.Codeunit.al | 6 +- .../Tests/SubcLocationHandlerTest.Codeunit.al | 8 +- .../Tests/SubcPurchSubcontTest.Codeunit.al | 8 +- .../SubcSubcontractingSyncTest.Codeunit.al | 4 +- .../Tests/SubcSubcontractingTest.Codeunit.al | 54 +++++++------- .../SubcSubcontractingUITest.Codeunit.al | 12 +-- .../SubcWhseCombinedScenarios.Codeunit.al | 8 +- .../Tests/SubcWhseDataIntegrity.Codeunit.al | 10 +-- .../Tests/SubcWhseItemTracking.Codeunit.al | 8 +- .../Tests/SubcWhseLocationConfig.Codeunit.al | 8 +- .../Tests/SubcWhseNonLastOp.Codeunit.al | 10 +-- .../Tests/SubcWhsePartialLastOp.Codeunit.al | 8 +- .../Tests/SubcWhsePutAwayLastOp.Codeunit.al | 4 +- .../SubcWhsePutAwayWorksheet.Codeunit.al | 2 +- .../Tests/SubcWhseReceiptLastOp.Codeunit.al | 10 +-- 67 files changed, 541 insertions(+), 541 deletions(-) diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCalcProdOrderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCalcProdOrderExt.Codeunit.al index c870be1885..167416feac 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCalcProdOrderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCalcProdOrderExt.Codeunit.al @@ -29,8 +29,8 @@ codeunit 99001517 "Subc. Calc. Prod. Order Ext." local procedure TransferSubcontractingFieldsBOMComponent(var ProductionBOMLine: Record "Production BOM Line"; var ProdOrderComponent: Record "Prod. Order Component") begin - ProdOrderComponent."Orig. Location Code" := ProdOrderComponent."Location Code"; - ProdOrderComponent."Orig. Bin Code" := ProdOrderComponent."Bin Code"; + ProdOrderComponent."Subc. Original Location Code" := ProdOrderComponent."Location Code"; + ProdOrderComponent."Subc. Orig. Bin Code" := ProdOrderComponent."Bin Code"; ProdOrderComponent."Subcontracting Type" := ProductionBOMLine."Subcontracting Type"; OnAfterTransferSubcontractingFieldsBOMComponent(ProductionBOMLine, ProdOrderComponent); diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCarryOutActionExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCarryOutActionExt.Codeunit.al index 05e0e013bb..e9b56e116a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCarryOutActionExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCarryOutActionExt.Codeunit.al @@ -20,7 +20,7 @@ codeunit 99001523 "Subc. Carry Out Action Ext." local procedure OnAfterTransferPlanningComp(var PlanningComponent: Record "Planning Component"; var ProdOrderComponent: Record "Prod. Order Component") begin ProdOrderComponent."Subcontracting Type" := PlanningComponent."Subcontracting Type"; - ProdOrderComponent."Orig. Location Code" := PlanningComponent."Orig. Location Code"; - ProdOrderComponent."Orig. Bin Code" := PlanningComponent."Orig. Bin Code"; + 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/Process/Codeunits/Extensions/Manufacturing/SubcPlanningCompExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcPlanningCompExt.Codeunit.al index 4c9de4cc8d..6f2e568a9b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcPlanningCompExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcPlanningCompExt.Codeunit.al @@ -24,8 +24,8 @@ codeunit 99001522 "Subc. Planning Comp. Ext." local procedure OnAfterTransferFromComponent(var PlanningComponent: Record "Planning Component"; var ProdOrderComp: Record "Prod. Order Component") begin PlanningComponent."Subcontracting Type" := ProdOrderComp."Subcontracting Type"; - PlanningComponent."Orig. Location Code" := ProdOrderComp."Orig. Location Code"; - PlanningComponent."Orig. Bin Code" := ProdOrderComp."Orig. Bin Code"; + PlanningComponent."Orig. Location Code" := ProdOrderComp."Subc. Original Location Code"; + PlanningComponent."Orig. Bin Code" := ProdOrderComp."Subc. Orig. Bin Code"; end; [EventSubscriber(ObjectType::Table, Database::"Planning Component", OnAfterValidateEvent, "Location Code", false, false)] @@ -62,7 +62,7 @@ codeunit 99001522 "Subc. Planning Comp. Ext." PlanningRoutingLine.SetRange(Type, PlanningRoutingLine.Type::"Work Center"); if PlanningRoutingLine.FindFirst() then if SubcontractingManagement.GetSubcontractor(PlanningRoutingLine."No.", Vendor) then - SubcontractingManagement.ChangeLocation_OnPlanningComponent(PlanningComponent, Vendor."Subcontr. Location Code", PlanningComponent."Orig. Location Code", PlanningComponent."Orig. Bin Code"); + SubcontractingManagement.ChangeLocation_OnPlanningComponent(PlanningComponent, Vendor."Subc. Location Code", PlanningComponent."Orig. Location Code", PlanningComponent."Orig. Bin Code"); end else if xPlanningComponent."Routing Link Code" <> '' then if PlanningComponent."Orig. Location Code" <> '' then begin diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcProdOrderCompExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcProdOrderCompExt.Codeunit.al index 8351359734..5742fab51f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcProdOrderCompExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcProdOrderCompExt.Codeunit.al @@ -70,9 +70,9 @@ codeunit 99001524 "Subc. Prod. Order Comp. Ext." if ProdOrderComponent."Subcontracting Type" <> "Subcontracting Type"::Transfer then exit; - TransferShipmentLine.SetRange("Prod. Order No.", ProdOrderComponent."Prod. Order No."); - TransferShipmentLine.SetRange("Prod. Order Line No.", ProdOrderComponent."Prod. Order Line No."); - TransferShipmentLine.SetRange("Prod. Order Comp. Line No.", ProdOrderComponent."Line No."); + TransferShipmentLine.SetRange("Subc. Prod. Order No.", ProdOrderComponent."Prod. Order No."); + TransferShipmentLine.SetRange("Subc. Prod. Order Line No.", ProdOrderComponent."Prod. Order Line No."); + TransferShipmentLine.SetRange("Subc. Prod. Ord. Comp Line No.", ProdOrderComponent."Line No."); TransferShipmentLine.SetRange("Item No.", ProdOrderComponent."Item No."); if not TransferShipmentLine.IsEmpty() then begin TransferShipmentLine.SetLoadFields(SystemId); @@ -143,10 +143,10 @@ codeunit 99001524 "Subc. Prod. Order Comp. Ext." if ProdOrderComponent."Subcontracting Type" <> "Subcontracting Type"::Transfer then exit; - TransferLine.SetCurrentKey("Prod. Order No.", "Routing No.", "Routing Reference No.", "Operation No.", "Subcontr. Purch. Order No."); - TransferLine.SetRange("Prod. Order No.", ProdOrderComponent."Prod. Order No."); - TransferLine.SetRange("Prod. Order Line No.", ProdOrderComponent."Prod. Order Line No."); - TransferLine.SetRange("Prod. Order Comp. Line No.", ProdOrderComponent."Line No."); + TransferLine.SetCurrentKey("Subc. Prod. Order No.", "Subc. Routing No.", "Subc. Routing Reference No.", "Subc. Operation No.", "Subc. Purch. Order No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProdOrderComponent."Prod. Order No."); + TransferLine.SetRange("Subc. Prod. Order Line No.", ProdOrderComponent."Prod. Order Line No."); + TransferLine.SetRange("Subc. Prod. Ord. Comp Line No.", ProdOrderComponent."Line No."); TransferLine.SetRange("Item No.", ProdOrderComponent."Item No."); TransferLine.SetLoadFields(SystemId); if TransferLine.FindFirst() then @@ -175,12 +175,12 @@ codeunit 99001524 "Subc. Prod. Order Comp. Ext." GetProdOrderRtngLineFromProdOrderComp(ProdOrderRoutingLine, ProdOrderComponent); - TransferLine.SetCurrentKey("Prod. Order No.", "Prod. Order Line No.", "Routing Reference No.", "Routing No.", "Operation No."); - TransferLine.SetRange("Prod. Order No.", ProdOrderLine."Prod. Order No."); - TransferLine.SetRange("Prod. Order Line No.", ProdOrderLine."Line No."); - TransferLine.SetRange("Routing Reference No.", ProdOrderLine."Routing Reference No."); - TransferLine.SetRange("Routing No.", ProdOrderRoutingLine."Routing No."); - TransferLine.SetRange("Operation No.", ProdOrderRoutingLine."Operation No."); + TransferLine.SetCurrentKey("Subc. Prod. Order No.", "Subc. Prod. Order Line No.", "Subc. Routing Reference No.", "Subc. Routing No.", "Subc. Operation No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProdOrderLine."Prod. Order No."); + TransferLine.SetRange("Subc. Prod. Order Line No.", ProdOrderLine."Line No."); + TransferLine.SetRange("Subc. Routing Reference No.", ProdOrderLine."Routing Reference No."); + TransferLine.SetRange("Subc. Routing No.", ProdOrderRoutingLine."Routing No."); + TransferLine.SetRange("Subc. Operation No.", ProdOrderRoutingLine."Operation No."); TransferLine.SetRange("Item No.", ProdOrderComponent."Item No."); TransferLine.SetRange("Variant Code", ProdOrderComponent."Variant Code"); if TransferLine.IsEmpty() then @@ -272,16 +272,16 @@ codeunit 99001524 "Subc. Prod. Order Comp. Ext." ProdOrderComponent."Due Time" := ProdOrderRoutingLine."Starting Time"; if (ProdOrderRoutingLine.Type = ProdOrderRoutingLine.Type::"Work Center") then if SubcontractingManagement.GetSubcontractor(ProdOrderRoutingLine."No.", Vendor) then - SubcontractingManagement.ChangeLocation_OnProdOrderComponent(ProdOrderComponent, Vendor."Subcontr. Location Code", ProdOrderComponent."Orig. Location Code", ProdOrderComponent."Orig. Bin Code"); + SubcontractingManagement.ChangeLocation_OnProdOrderComponent(ProdOrderComponent, Vendor."Subc. Location Code", ProdOrderComponent."Subc. Original Location Code", ProdOrderComponent."Subc. Orig. Bin Code"); end; end else if xProdOrderComponent."Routing Link Code" <> '' then - if ProdOrderComponent."Orig. Location Code" <> '' then begin - ProdOrderComponent.Validate("Location Code", ProdOrderComponent."Orig. Location Code"); - ProdOrderComponent."Orig. Location Code" := ''; - if ProdOrderComponent."Orig. Bin Code" <> '' then begin - ProdOrderComponent.Validate("Bin Code", ProdOrderComponent."Orig. Bin Code"); - ProdOrderComponent."Orig. Bin Code" := ''; + if ProdOrderComponent."Subc. Original Location Code" <> '' then begin + ProdOrderComponent.Validate("Location Code", ProdOrderComponent."Subc. Original Location Code"); + ProdOrderComponent."Subc. Original Location Code" := ''; + if ProdOrderComponent."Subc. Orig. Bin Code" <> '' then begin + ProdOrderComponent.Validate("Bin Code", ProdOrderComponent."Subc. Orig. Bin Code"); + ProdOrderComponent."Subc. Orig. Bin Code" := ''; end; end else begin PlanningGetParameters.AtSKU( @@ -296,13 +296,13 @@ codeunit 99001524 "Subc. Prod. Order Comp. Ext." local procedure SetOriginalBinCode(var ProdOrderComponent: Record "Prod. Order Component"; var xProdOrderComponent: Record "Prod. Order Component") begin if ProdOrderComponent."Bin Code" <> xProdOrderComponent."Bin Code" then - ProdOrderComponent."Orig. Bin Code" := xProdOrderComponent."Bin Code"; + ProdOrderComponent."Subc. Orig. Bin Code" := xProdOrderComponent."Bin Code"; end; local procedure SetOriginalLocationCode(var ProdOrderComponent: Record "Prod. Order Component"; var xProdOrderComponent: Record "Prod. Order Component") begin if (ProdOrderComponent."Location Code" <> xProdOrderComponent."Location Code") then - ProdOrderComponent."Orig. Location Code" := xProdOrderComponent."Location Code"; + ProdOrderComponent."Subc. Original Location Code" := xProdOrderComponent."Location Code"; end; local procedure CheckExistingDocumentsForSubcontracting(var ProdOrderComponent: Record "Prod. Order Component"; var xProdOrderComponent: Record "Prod. Order Component"; CurrFieldNo: Integer) diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchPostExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchPostExt.Codeunit.al index 097fac937f..eb85a48e9a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchPostExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchPostExt.Codeunit.al @@ -29,8 +29,8 @@ codeunit 99001535 "Subc. Purch. Post Ext" [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Purch.-Post", OnAfterPostItemJnlLineCopyProdOrder, '', false, false)] local procedure MfgPurchPostOnAfterPostItemJnlLineCopyProdOrder(var ItemJnlLine: Record "Item Journal Line"; PurchLine: Record "Purchase Line") begin - ItemJnlLine."Subcontr. Purch. Order No." := PurchLine."Document No."; - ItemJnlLine."Subcontr. PO Line No." := PurchLine."Line No."; + ItemJnlLine."Subc. Purch. Order No." := PurchLine."Document No."; + ItemJnlLine."Subc. Purch. Order Line No." := PurchLine."Line No."; ItemJnlLine."Subc. Operation No." := PurchLine."Operation No."; end; @@ -96,7 +96,7 @@ codeunit 99001535 "Subc. Purch. Post Ext" Item.SetLoadFields("Inventory Posting Group"); Item.Get(ItemJournalLine."Item No."); ItemJournalLine."Inventory Posting Group" := Item."Inventory Posting Group"; - ItemJournalLine."Item Charge Sub. Assign." := true; + ItemJournalLine."Subc. Item Charge Assign." := true; end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Purch.-Post", OnPostItemJnlLineOnAfterPostItemJnlLineJobConsumption, '', false, false)] diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchaseHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchaseHeaderExt.Codeunit.al index 6fe28e3607..33b3e8f05a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchaseHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchaseHeaderExt.Codeunit.al @@ -16,7 +16,7 @@ codeunit 99001533 "Subc. Purchase Header Ext" [EventSubscriber(ObjectType::Table, Database::"Purchase Header", OnAfterCopyBuyFromVendorFieldsFromVendor, '', false, false)] local procedure OnAfterCopyBuyFromVendorFieldsFromVendor(var PurchaseHeader: Record "Purchase Header"; Vendor: Record Vendor; xPurchaseHeader: Record "Purchase Header") begin - PurchaseHeader."Subc. Location Code" := Vendor."Subcontr. Location Code"; + PurchaseHeader."Subc. Location Code" := Vendor."Subc. Location Code"; end; [EventSubscriber(ObjectType::Table, Database::"Purchase Header", OnAfterValidateEvent, "Buy-from Vendor No.", false, false)] diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcItemJnlPostLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcItemJnlPostLineExt.Codeunit.al index 58ccb18de1..94b166b0c5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcItemJnlPostLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcItemJnlPostLineExt.Codeunit.al @@ -67,23 +67,23 @@ codeunit 99001515 "Subc. ItemJnlPostLine Ext" local procedure UpdateNewItemLedgerEntry(var NewItemLedgerEntry: Record "Item Ledger Entry"; var ItemJournalLine: Record "Item Journal Line") begin - NewItemLedgerEntry."Prod. Order No." := ItemJournalLine."Prod. Order No."; - NewItemLedgerEntry."Prod. Order Line No." := ItemJournalLine."Prod. Order Line No."; - NewItemLedgerEntry."Subcontr. Purch. Order No." := ItemJournalLine."Subcontr. Purch. Order No."; - NewItemLedgerEntry."Subcontr. PO Line No." := ItemJournalLine."Subcontr. PO Line No."; - NewItemLedgerEntry."Operation No." := ItemJournalLine."Subc. Operation No."; + NewItemLedgerEntry."Subc. Prod. Order No." := ItemJournalLine."Subc. Prod. Order No."; + NewItemLedgerEntry."Subc. Prod. Order Line No." := ItemJournalLine."Subc. Prod. Order Line No."; + NewItemLedgerEntry."Subc. Purch. Order No." := ItemJournalLine."Subc. Purch. Order No."; + NewItemLedgerEntry."Subc. Purch. Order Line No." := ItemJournalLine."Subc. Purch. Order Line No."; + NewItemLedgerEntry."Subc. Operation No." := ItemJournalLine."Subc. Operation No."; end; local procedure UpdateCapLedgerEntry(var CapacityLedgerEntry: Record "Capacity Ledger Entry"; var ItemJournalLine: Record "Item Journal Line") begin CapacityLedgerEntry."Subcontractor No." := ItemJournalLine."Source No."; - CapacityLedgerEntry."Subcontr. Purch. Order No." := ItemJournalLine."Subcontr. Purch. Order No."; - CapacityLedgerEntry."Subcontr. PO Line No." := ItemJournalLine."Subcontr. PO Line No."; + CapacityLedgerEntry."Subc. Purch. Order No." := ItemJournalLine."Subc. Purch. Order No."; + CapacityLedgerEntry."Subc. Purch. Order Line No." := ItemJournalLine."Subc. Purch. Order Line No."; end; local procedure ClearInvoicedQuantityForItemChargeSubAssign(var ValueEntry: Record "Value Entry"; var ItemJournalLine: Record "Item Journal Line") begin - if ItemJournalLine."Item Charge Sub. Assign." and (ValueEntry."Entry Type" = "Cost Entry Type"::"Direct Cost") then + if ItemJournalLine."Subc. Item Charge Assign." and (ValueEntry."Entry Type" = "Cost Entry Type"::"Direct Cost") then ValueEntry."Invoiced Quantity" := 0; end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcDirectTransferLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcDirectTransferLineExt.Codeunit.al index 0e2b372bef..70c35a14ff 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcDirectTransferLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcDirectTransferLineExt.Codeunit.al @@ -11,14 +11,14 @@ codeunit 99001548 "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") begin - DirectTransLine."Subcontr. Purch. Order No." := TransferLine."Subcontr. Purch. Order No."; - DirectTransLine."Subcontr. PO Line No." := TransferLine."Subcontr. PO Line No."; - DirectTransLine."Prod. Order No." := TransferLine."Prod. Order No."; - DirectTransLine."Prod. Order Line No." := TransferLine."Prod. Order Line No."; - DirectTransLine."Prod. Order Comp. Line No." := TransferLine."Prod. Order Comp. Line No."; - DirectTransLine."Routing No." := TransferLine."Routing No."; - DirectTransLine."Routing Reference No." := TransferLine."Routing Reference No."; - DirectTransLine."Work Center No." := TransferLine."Work Center No."; - DirectTransLine."Operation No." := TransferLine."Operation No."; + DirectTransLine."Subcontr. Purch. Order No." := TransferLine."Subc. Purch. Order No."; + DirectTransLine."Subcontr. PO Line No." := TransferLine."Subc. Purch. Order Line No."; + DirectTransLine."Prod. Order No." := TransferLine."Subc. Prod. Order No."; + DirectTransLine."Prod. Order Line No." := TransferLine."Subc. Prod. Order Line No."; + DirectTransLine."Prod. Order Comp. Line No." := TransferLine."Subc. Prod. Ord. Comp Line No."; + DirectTransLine."Routing No." := TransferLine."Subc. Routing No."; + DirectTransLine."Routing Reference No." := TransferLine."Subc. Routing Reference No."; + 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/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostRcptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostRcptExt.Codeunit.al index c3898ce8cb..74c43f0d7c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostRcptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostRcptExt.Codeunit.al @@ -14,27 +14,27 @@ codeunit 99001540 "Subc. TransOrderPostRcpt Ext" [EventSubscriber(ObjectType::Codeunit, Codeunit::"TransferOrder-Post Receipt", OnBeforePostItemJournalLine, '', false, false)] local procedure OnBeforePostItemJournalLine(var ItemJournalLine: Record "Item Journal Line"; TransferLine: Record "Transfer Line"; TransferReceiptHeader: Record "Transfer Receipt Header"; TransferReceiptLine: Record "Transfer Receipt Line"; CommitIsSuppressed: Boolean) begin - ItemJournalLine."Prod. Order No." := TransferReceiptLine."Prod. Order No."; - ItemJournalLine."Prod. Order Line No." := TransferReceiptLine."Prod. Order Line No."; + ItemJournalLine."Subc. Prod. Order No." := TransferReceiptLine."Subc. Prod. Order No."; + ItemJournalLine."Subc. Prod. Order Line No." := TransferReceiptLine."Subc. Prod. Order Line No."; ItemJournalLine."Source No." := TransferReceiptHeader."Source ID"; ItemJournalLine."Source Type" := TransferReceiptHeader."Source Type"; - ItemJournalLine."Prod. Order Comp. Line No." := TransferReceiptLine."Prod. Order Comp. Line No."; - ItemJournalLine."Subcontr. Purch. Order No." := TransferReceiptLine."Subcontr. Purch. Order No."; - ItemJournalLine."Subcontr. PO Line No." := TransferReceiptLine."Subcontr. PO Line No."; - ItemJournalLine."Subc. Operation No." := TransferReceiptLine."Operation No."; + ItemJournalLine."Prod. Order Comp. Line No." := TransferReceiptLine."Subc. Prod. Ord. Comp Line No."; + ItemJournalLine."Subc. Purch. Order No." := TransferReceiptLine."Subc. Purch. Order No."; + ItemJournalLine."Subc. Purch. Order Line No." := TransferReceiptLine."Subc. Purch. Order Line No."; + ItemJournalLine."Subc. Operation No." := TransferReceiptLine."Subc. Operation No."; end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"TransferOrder-Post Receipt", OnBeforeInsertTransRcptLine, '', false, false)] local procedure OnBeforeInsertTransRcptLine(var TransRcptLine: Record "Transfer Receipt Line"; TransLine: Record "Transfer Line"; CommitIsSuppressed: Boolean) begin - TransRcptLine."Subcontr. Purch. Order No." := TransLine."Subcontr. Purch. Order No."; - TransRcptLine."Subcontr. PO Line No." := TransLine."Subcontr. PO Line No."; - TransRcptLine."Prod. Order No." := TransLine."Prod. Order No."; - TransRcptLine."Prod. Order Line No." := TransLine."Prod. Order Line No."; - TransRcptLine."Prod. Order Comp. Line No." := TransLine."Prod. Order Comp. Line No."; - TransRcptLine."Return Order" := TransLine."Return Order"; - TransRcptLine."Routing No." := TransLine."Routing No."; - TransRcptLine."Routing Reference No." := TransLine."Routing Reference No."; + TransRcptLine."Subc. Purch. Order No." := TransLine."Subc. Purch. Order No."; + TransRcptLine."Subc. Purch. Order Line No." := TransLine."Subc. Purch. Order Line No."; + TransRcptLine."Subc. Prod. Order No." := TransLine."Subc. Prod. Order No."; + TransRcptLine."Subc. Prod. Order Line No." := TransLine."Subc. Prod. Order Line No."; + TransRcptLine."Subc. Prod. Ord. Comp Line No." := TransLine."Subc. Prod. Ord. Comp Line No."; + TransRcptLine."Subc. Return Order" := TransLine."Subc. Return Order"; + TransRcptLine."Subc. Routing No." := TransLine."Subc. Routing No."; + TransRcptLine."Subc. Routing Reference No." := TransLine."Subc. Routing Reference No."; end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"TransferOrder-Post Receipt", OnCheckTransLine, '', false, false)] @@ -42,10 +42,10 @@ codeunit 99001540 "Subc. TransOrderPostRcpt Ext" var ProdOrderComponent: Record "Prod. Order Component"; begin - if (TransferLine."Prod. Order No." = '') or (TransferLine."Prod. Order Line No." = 0) or (TransferLine."Prod. Order Comp. Line No." = 0) then + if (TransferLine."Subc. Prod. Order No." = '') or (TransferLine."Subc. Prod. Order Line No." = 0) or (TransferLine."Subc. Prod. Ord. Comp Line No." = 0) then exit; - if not ProdOrderComponent.Get(ProdOrderComponent.Status::Released, TransferLine."Prod. Order No.", TransferLine."Prod. Order Line No.", TransferLine."Prod. Order Comp. Line No.") then + if not ProdOrderComponent.Get(ProdOrderComponent.Status::Released, TransferLine."Subc. Prod. Order No.", TransferLine."Subc. Prod. Order Line No.", TransferLine."Subc. Prod. Ord. Comp Line No.") then exit; if Location.Code <> ProdOrderComponent."Location Code" then begin diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostShptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostShptExt.Codeunit.al index 17b4d1a135..e5a3829e44 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostShptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostShptExt.Codeunit.al @@ -12,26 +12,26 @@ codeunit 99001539 "Subc. TransOrderPostShpt Ext" [EventSubscriber(ObjectType::Codeunit, Codeunit::"TransferOrder-Post Shipment", OnAfterCreateItemJnlLine, '', false, false)] local procedure OnAfterCreateItemJnlLine(var ItemJournalLine: Record "Item Journal Line"; TransferLine: Record "Transfer Line"; TransferShipmentHeader: Record "Transfer Shipment Header"; TransferShipmentLine: Record "Transfer Shipment Line") begin - ItemJournalLine."Prod. Order No." := TransferShipmentLine."Prod. Order No."; - ItemJournalLine."Prod. Order Line No." := TransferShipmentLine."Prod. Order Line No."; + ItemJournalLine."Subc. Prod. Order No." := TransferShipmentLine."Subc. Prod. Order No."; + ItemJournalLine."Subc. Prod. Order Line No." := TransferShipmentLine."Subc. Prod. Order Line No."; ItemJournalLine."Source No." := TransferShipmentHeader."Source ID"; ItemJournalLine."Source Type" := TransferShipmentHeader."Source Type"; - ItemJournalLine."Prod. Order Comp. Line No." := TransferShipmentLine."Prod. Order Comp. Line No."; - ItemJournalLine."Subcontr. Purch. Order No." := TransferShipmentLine."Subcontr. Purch. Order No."; - ItemJournalLine."Subcontr. PO Line No." := TransferShipmentLine."Subcontr. PO Line No."; - ItemJournalLine."Subc. Operation No." := TransferLine."Operation No." + ItemJournalLine."Prod. Order Comp. Line No." := TransferShipmentLine."Subc. Prod. Ord. Comp Line No."; + ItemJournalLine."Subc. Purch. Order No." := TransferShipmentLine."Subc. Purch. Order No."; + ItemJournalLine."Subc. Purch. Order Line No." := TransferShipmentLine."Subc. Purch. Order Line No."; + ItemJournalLine."Subc. Operation No." := TransferLine."Subc. Operation No." end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"TransferOrder-Post Shipment", OnBeforeInsertTransShptLine, '', false, false)] local procedure OnBeforeInsertTransShptLine(var TransShptLine: Record "Transfer Shipment Line"; TransLine: Record "Transfer Line"; CommitIsSuppressed: Boolean) begin - TransShptLine."Subcontr. Purch. Order No." := TransLine."Subcontr. Purch. Order No."; - TransShptLine."Subcontr. PO Line No." := TransLine."Subcontr. PO Line No."; - TransShptLine."Prod. Order No." := TransLine."Prod. Order No."; - TransShptLine."Prod. Order Line No." := TransLine."Prod. Order Line No."; - TransShptLine."Prod. Order Comp. Line No." := TransLine."Prod. Order Comp. Line No."; - TransShptLine."Return Order" := TransLine."Return Order"; - TransShptLine."Routing No." := TransLine."Routing No."; - TransShptLine."Routing Reference No." := TransLine."Routing Reference No."; + TransShptLine."Subc. Purch. Order No." := TransLine."Subc. Purch. Order No."; + TransShptLine."Subc. Purch. Order Line No." := TransLine."Subc. Purch. Order Line No."; + TransShptLine."Subc. Prod. Order No." := TransLine."Subc. Prod. Order No."; + TransShptLine."Subc. Prod. Order Line No." := TransLine."Subc. Prod. Order Line No."; + TransShptLine."Subc. Prod. Ord. Comp Line No." := TransLine."Subc. Prod. Ord. Comp Line No."; + TransShptLine."Subc. Return Order" := TransLine."Subc. Return Order"; + 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/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostTransExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostTransExt.Codeunit.al index fb627f3697..3f27110bca 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostTransExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostTransExt.Codeunit.al @@ -17,12 +17,12 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" [EventSubscriber(ObjectType::Codeunit, Codeunit::"TransferOrder-Post Transfer", OnAfterCreateItemJnlLine, '', false, false)] local procedure OnAfterCreateItemJnlLine(var ItemJnlLine: Record "Item Journal Line"; TransLine: Record "Transfer Line"; DirectTransHeader: Record "Direct Trans. Header"; DirectTransLine: Record "Direct Trans. Line") begin - ItemJnlLine."Prod. Order No." := DirectTransLine."Prod. Order No."; - ItemJnlLine."Prod. Order Line No." := DirectTransLine."Prod. Order Line No."; + ItemJnlLine."Subc. Prod. Order No." := DirectTransLine."Prod. Order No."; + ItemJnlLine."Subc. Prod. Order Line No." := DirectTransLine."Prod. Order Line No."; ItemJnlLine."Prod. Order Comp. Line No." := DirectTransLine."Prod. Order Comp. Line No."; - ItemJnlLine."Subcontr. Purch. Order No." := DirectTransLine."Subcontr. Purch. Order No."; - ItemJnlLine."Subcontr. PO Line No." := DirectTransLine."Subcontr. PO Line No."; - ItemJnlLine."Subc. Operation No." := TransLine."Operation No." + ItemJnlLine."Subc. Purch. Order No." := DirectTransLine."Subcontr. Purch. Order No."; + ItemJnlLine."Subc. Purch. Order Line No." := DirectTransLine."Subcontr. PO Line No."; + ItemJnlLine."Subc. Operation No." := TransLine."Subc. Operation No." end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"TransferOrder-Post Transfer", OnInsertDirectTransHeaderOnBeforeGetNextNo, '', false, false)] @@ -41,10 +41,10 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" var ProdOrderComponent: Record "Prod. Order Component"; begin - if (TransferLine."Prod. Order No." = '') or (TransferLine."Prod. Order Line No." = 0) or (TransferLine."Prod. Order Comp. Line No." = 0) then + if (TransferLine."Subc. Prod. Order No." = '') or (TransferLine."Subc. Prod. Order Line No." = 0) or (TransferLine."Subc. Prod. Ord. Comp Line No." = 0) then exit; - if not ProdOrderComponent.Get(ProdOrderComponent.Status::Released, TransferLine."Prod. Order No.", TransferLine."Prod. Order Line No.", TransferLine."Prod. Order Comp. Line No.") then + if not ProdOrderComponent.Get(ProdOrderComponent.Status::Released, TransferLine."Subc. Prod. Order No.", TransferLine."Subc. Prod. Order Line No.", TransferLine."Subc. Prod. Ord. Comp Line No.") then exit; ProdOrderComponent.Validate("Location Code"); @@ -265,7 +265,7 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" local procedure FindProdOrderComponentsForTransferLine(var TransferLine: Record "Transfer Line"; var ProdOrderComponent: Record "Prod. Order Component"): Boolean begin - exit(ProdOrderComponent.Get("Production Order Status"::Released, TransferLine."Prod. Order No.", TransferLine."Prod. Order Line No.", TransferLine."Prod. Order Comp. Line No.")); + exit(ProdOrderComponent.Get("Production Order Status"::Released, TransferLine."Subc. Prod. Order No.", TransferLine."Subc. Prod. Order Line No.", TransferLine."Subc. Prod. Ord. Comp Line No.")); end; local procedure ShouldCreateSurplusForComponent(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderComponent: Record "Prod. Order Component"): Boolean diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferLineExt.Codeunit.al index 074600e0e3..2d598d963a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferLineExt.Codeunit.al @@ -11,7 +11,7 @@ codeunit 99001544 "Subc. Transfer Line Ext." [EventSubscriber(ObjectType::Table, Database::"Transfer Line", OnAfterGetTransHeader, '', false, false)] local procedure OnAfterGetTransHeader(var TransferLine: Record "Transfer Line"; TransferHeader: Record "Transfer Header") begin - TransferLine."Return Order" := TransferHeader."Return Order"; + TransferLine."Subc. Return Order" := TransferHeader."Return Order"; end; [EventSubscriber(ObjectType::Table, Database::"Transfer Line", OnAfterDeleteEvent, '', false, false)] @@ -36,15 +36,15 @@ codeunit 99001544 "Subc. Transfer Line Ext." local procedure CopySubFieldsFromTempTransferLineToTransferLine(var TransferLine: Record "Transfer Line"; TempTransferLine: Record "Transfer Line") begin - TransferLine."Subcontr. Purch. Order No." := TempTransferLine."Subcontr. Purch. Order No."; - TransferLine."Subcontr. PO Line No." := TempTransferLine."Subcontr. PO Line No."; - TransferLine."Prod. Order No." := TempTransferLine."Prod. Order No."; - TransferLine."Prod. Order Line No." := TempTransferLine."Prod. Order Line No."; - TransferLine."Prod. Order Comp. Line No." := TempTransferLine."Prod. Order Comp. Line No."; - TransferLine."Routing No." := TempTransferLine."Routing No."; - TransferLine."Routing Reference No." := TempTransferLine."Routing Reference No."; - TransferLine."Work Center No." := TempTransferLine."Work Center No."; - TransferLine."Operation No." := TempTransferLine."Operation No."; - TransferLine."Return Order" := TempTransferLine."Return Order"; + TransferLine."Subc. Purch. Order No." := TempTransferLine."Subc. Purch. Order No."; + TransferLine."Subc. Purch. Order Line No." := TempTransferLine."Subc. Purch. Order Line No."; + TransferLine."Subc. Prod. Order No." := TempTransferLine."Subc. Prod. Order No."; + TransferLine."Subc. Prod. Order Line No." := TempTransferLine."Subc. Prod. Order Line No."; + TransferLine."Subc. Prod. Ord. Comp Line No." := TempTransferLine."Subc. Prod. Ord. Comp Line No."; + TransferLine."Subc. Routing No." := TempTransferLine."Subc. Routing No."; + TransferLine."Subc. Routing Reference No." := TempTransferLine."Subc. Routing Reference No."; + TransferLine."Subc. Work Center No." := TempTransferLine."Subc. Work Center No."; + 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/Process/Codeunits/Extensions/Transfer/SubcTransferRcptLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferRcptLineExt.Codeunit.al index f5fdcd3597..3d2f0049dc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferRcptLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferRcptLineExt.Codeunit.al @@ -11,14 +11,14 @@ codeunit 99001538 "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") begin - TransferReceiptLine."Subcontr. Purch. Order No." := TransferLine."Subcontr. Purch. Order No."; - TransferReceiptLine."Subcontr. PO Line No." := TransferLine."Subcontr. PO Line No."; - TransferReceiptLine."Prod. Order No." := TransferLine."Prod. Order No."; - TransferReceiptLine."Prod. Order Line No." := TransferLine."Prod. Order Line No."; - TransferReceiptLine."Prod. Order Comp. Line No." := TransferLine."Prod. Order Comp. Line No."; - TransferReceiptLine."Routing No." := TransferLine."Routing No."; - TransferReceiptLine."Routing Reference No." := TransferLine."Routing Reference No."; - TransferReceiptLine."Work Center No." := TransferLine."Work Center No."; - TransferReceiptLine."Operation No." := TransferLine."Operation No."; + TransferReceiptLine."Subc. Purch. Order No." := TransferLine."Subc. Purch. Order No."; + TransferReceiptLine."Subc. Purch. Order Line No." := TransferLine."Subc. Purch. Order Line No."; + TransferReceiptLine."Subc. Prod. Order No." := TransferLine."Subc. Prod. Order No."; + TransferReceiptLine."Subc. Prod. Order Line No." := TransferLine."Subc. Prod. Order Line No."; + TransferReceiptLine."Subc. Prod. Ord. Comp Line No." := TransferLine."Subc. Prod. Ord. Comp Line No."; + TransferReceiptLine."Subc. Routing No." := TransferLine."Subc. Routing No."; + TransferReceiptLine."Subc. Routing Reference No." := TransferLine."Subc. Routing Reference No."; + 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/Process/Codeunits/Extensions/Transfer/SubcTransferShptLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferShptLineExt.Codeunit.al index d8fdd53012..1c0cab70a2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferShptLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferShptLineExt.Codeunit.al @@ -11,14 +11,14 @@ codeunit 99001537 "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") begin - TransferShipmentLine."Subcontr. Purch. Order No." := TransferLine."Subcontr. Purch. Order No."; - TransferShipmentLine."Subcontr. PO Line No." := TransferLine."Subcontr. PO Line No."; - TransferShipmentLine."Prod. Order No." := TransferLine."Prod. Order No."; - TransferShipmentLine."Prod. Order Line No." := TransferLine."Prod. Order Line No."; - TransferShipmentLine."Prod. Order Comp. Line No." := TransferLine."Prod. Order Comp. Line No."; - TransferShipmentLine."Routing No." := TransferLine."Routing No."; - TransferShipmentLine."Routing Reference No." := TransferLine."Routing Reference No."; - TransferShipmentLine."Work Center No." := TransferLine."Work Center No."; - TransferShipmentLine."Operation No." := TransferLine."Operation No."; + TransferShipmentLine."Subc. Purch. Order No." := TransferLine."Subc. Purch. Order No."; + TransferShipmentLine."Subc. Purch. Order Line No." := TransferLine."Subc. Purch. Order Line No."; + TransferShipmentLine."Subc. Prod. Order No." := TransferLine."Subc. Prod. Order No."; + TransferShipmentLine."Subc. Prod. Order Line No." := TransferLine."Subc. Prod. Order Line No."; + TransferShipmentLine."Subc. Prod. Ord. Comp Line No." := TransferLine."Subc. Prod. Ord. Comp Line No."; + TransferShipmentLine."Subc. Routing No." := TransferLine."Subc. Routing No."; + TransferShipmentLine."Subc. Routing Reference No." := TransferLine."Subc. Routing Reference No."; + 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/Process/Codeunits/Extensions/Warehouse/SubcWhsePostReceiptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Warehouse/SubcWhsePostReceiptExt.Codeunit.al index 8524f2990a..91fcc1fa35 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Warehouse/SubcWhsePostReceiptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Warehouse/SubcWhsePostReceiptExt.Codeunit.al @@ -78,9 +78,9 @@ codeunit 99001551 "Subc. WhsePostReceipt Ext" "Subc. Purchase Line Type"::LastOperation, "Subc. Purchase Line Type"::NotLastOperation: begin - PurchaseLine.CalcFields("Whse. Outstanding Quantity"); + PurchaseLine.CalcFields("Subc.Whse.Outstanding Quantity"); OutstandingQtyBase := PurchaseLine.CalcBaseQtyFromQuantity(PurchaseLine."Outstanding Quantity", PurchaseLine.FieldCaption("Qty. Rounding Precision"), PurchaseLine.FieldCaption("Outstanding Quantity"), PurchaseLine.FieldCaption("Outstanding Qty. (Base)")); - WhseOutstandingQtyBase := PurchaseLine.CalcBaseQtyFromQuantity(PurchaseLine."Whse. Outstanding Quantity", PurchaseLine.FieldCaption("Qty. Rounding Precision"), PurchaseLine.FieldCaption("Whse. Outstanding Quantity"), PurchaseLine.FieldCaption("Whse. Outstanding Qty. (Base)")); + WhseOutstandingQtyBase := PurchaseLine.CalcBaseQtyFromQuantity(PurchaseLine."Subc.Whse.Outstanding Quantity", PurchaseLine.FieldCaption("Qty. Rounding Precision"), PurchaseLine.FieldCaption("Subc.Whse.Outstanding Quantity"), PurchaseLine.FieldCaption("Whse. Outstanding Qty. (Base)")); ReturnValue := (Abs(OutstandingQtyBase) > Abs(WhseOutstandingQtyBase)); IsHandled := true; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al index 986b8da776..206bcea9ac 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Warehouse/SubcWhsePurchReleaseExt.Codeunit.al @@ -11,8 +11,8 @@ codeunit 99001550 "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") begin - PurchaseHeader.CalcFields("Subcontracting Order"); - if PurchaseHeader."Subcontracting Order" then + PurchaseHeader.CalcFields("Subc. Order"); + 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/Process/Codeunits/SubcCompFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcCompFactboxMgmt.Codeunit.al index 6014c583e9..3a4092ea65 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcCompFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcCompFactboxMgmt.Codeunit.al @@ -28,7 +28,7 @@ codeunit 99001562 "Subc. Comp. Factbox Mgmt." ItemLedgerEntry.SetRange(ItemLedgerEntry."Order Line No.", ProdOrderComponent."Prod. Order Line No."); ItemLedgerEntry.SetRange(ItemLedgerEntry."Entry Type", ItemLedgerEntry."Entry Type"::Consumption); ItemLedgerEntry.SetRange(ItemLedgerEntry."Prod. Order Comp. Line No.", ProdOrderComponent."Line No."); - ItemLedgerEntry.SetRange(ItemLedgerEntry."Operation No.", ProdOrderRoutingLine."Operation No."); + ItemLedgerEntry.SetRange(ItemLedgerEntry."Subc. Operation No.", ProdOrderRoutingLine."Operation No."); ItemLedgerEntry.CalcSums(ItemLedgerEntry.Quantity); exit(Abs(ItemLedgerEntry.Quantity)); @@ -51,7 +51,7 @@ codeunit 99001562 "Subc. Comp. Factbox Mgmt." ItemLedgerEntry.SetRange(ItemLedgerEntry."Order Line No.", ProdOrderComponent."Prod. Order Line No."); ItemLedgerEntry.SetRange(ItemLedgerEntry."Entry Type", ItemLedgerEntry."Entry Type"::Consumption); ItemLedgerEntry.SetRange(ItemLedgerEntry."Prod. Order Comp. Line No.", ProdOrderComponent."Line No."); - ItemLedgerEntry.SetRange(ItemLedgerEntry."Operation No.", ProdOrderRoutingLine."Operation No."); + ItemLedgerEntry.SetRange(ItemLedgerEntry."Subc. Operation No.", ProdOrderRoutingLine."Operation No."); Page.Run(Page::"Item Ledger Entries", ItemLedgerEntry); end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcProdOFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcProdOFactboxMgmt.Codeunit.al index 3a23e750f4..a850de65ea 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcProdOFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcProdOFactboxMgmt.Codeunit.al @@ -186,33 +186,33 @@ codeunit 99001559 "Subc. ProdO. Factbox Mgmt." Database::"Transfer Line": begin ResultRecordRef.SetTable(TransferLine); - ProdOrderNo := TransferLine."Prod. Order No."; - ProdOrderLineNo := TransferLine."Prod. Order Line No."; - RoutingNo := TransferLine."Routing No."; - OperationNo := TransferLine."Operation No."; + ProdOrderNo := TransferLine."Subc. Prod. Order No."; + ProdOrderLineNo := TransferLine."Subc. Prod. Order Line No."; + RoutingNo := TransferLine."Subc. Routing No."; + OperationNo := TransferLine."Subc. Operation No."; end; Database::"Transfer Shipment Line": begin ResultRecordRef.SetTable(TransferShipmentLine); - ProdOrderNo := TransferShipmentLine."Prod. Order No."; - ProdOrderLineNo := TransferShipmentLine."Prod. Order Line No."; - RoutingNo := TransferShipmentLine."Routing No."; - OperationNo := TransferShipmentLine."Operation No."; + ProdOrderNo := TransferShipmentLine."Subc. Prod. Order No."; + ProdOrderLineNo := TransferShipmentLine."Subc. Prod. Order Line No."; + RoutingNo := TransferShipmentLine."Subc. Routing No."; + OperationNo := TransferShipmentLine."Subc. Operation No."; end; Database::"Transfer Receipt Line": begin ResultRecordRef.SetTable(TransferReceiptLine); - ProdOrderNo := TransferReceiptLine."Prod. Order No."; - ProdOrderLineNo := TransferReceiptLine."Prod. Order Line No."; - RoutingNo := TransferReceiptLine."Routing No."; - OperationNo := TransferReceiptLine."Operation No."; + ProdOrderNo := TransferReceiptLine."Subc. Prod. Order No."; + ProdOrderLineNo := TransferReceiptLine."Subc. Prod. Order Line No."; + RoutingNo := TransferReceiptLine."Subc. Routing No."; + OperationNo := TransferReceiptLine."Subc. Operation No."; end; Database::"Item Ledger Entry": begin ResultRecordRef.SetTable(ItemLedgerEntry); ProdOrderNo := ItemLedgerEntry."Order No."; ProdOrderLineNo := ItemLedgerEntry."Order Line No."; - OperationNo := ItemLedgerEntry."Operation No."; + OperationNo := ItemLedgerEntry."Subc. Operation No."; RoutingNo := GetRoutingNoFromProdOrderRoutingLine(ProdOrderNo, ProdOrderLineNo, OperationNo); end; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPurchFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPurchFactboxMgmt.Codeunit.al index 9440ad16bf..735fb0fa4b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPurchFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPurchFactboxMgmt.Codeunit.al @@ -48,9 +48,9 @@ codeunit 99001560 "Subc. Purch. Factbox Mgmt." if not GetPurchaseOrderNoByVariant(RecRelatedVariant, PurchOrderNo, PurchOrderLineNo) then exit(0); - TransferLine.SetCurrentKey("Subcontr. Purch. Order No."); - TransferLine.SetRange("Subcontr. Purch. Order No.", PurchOrderNo); - TransferLine.SetRange("Subcontr. PO Line No.", PurchOrderLineNo); + TransferLine.SetCurrentKey("Subc. Purch. Order No."); + TransferLine.SetRange("Subc. Purch. Order No.", PurchOrderNo); + TransferLine.SetRange("Subc. Purch. Order Line No.", PurchOrderLineNo); exit(TransferLine.Count()); end; @@ -100,11 +100,11 @@ codeunit 99001560 "Subc. Purch. Factbox Mgmt." if not GetPurchaseOrderNoByVariant(RecRelatedVariant, PurchOrderNo, PurchOrderLineNo) then exit(''); - TransferLine.SetCurrentKey("Subcontr. Purch. Order No."); - TransferLine.SetRange("Subcontr. Purch. Order No.", PurchOrderNo); - TransferLine.SetRange("Subcontr. PO Line No.", PurchOrderLineNo); - TransferLine.SetFilter("Operation No.", '%1', ''); - TransferLine.SetFilter("Routing No.", '%1', ''); + TransferLine.SetCurrentKey("Subc. Purch. Order No."); + TransferLine.SetRange("Subc. Purch. Order No.", PurchOrderNo); + TransferLine.SetRange("Subc. Purch. Order Line No.", PurchOrderLineNo); + TransferLine.SetFilter("Subc. Operation No.", '%1', ''); + TransferLine.SetFilter("Subc. Routing No.", '%1', ''); TransferLine.SetLoadFields(SystemId); if TransferLine.IsEmpty() then exit(''); @@ -196,11 +196,11 @@ codeunit 99001560 "Subc. Purch. Factbox Mgmt." end; end; - TransferLine.SetCurrentKey("Subcontr. Purch. Order No.", "Prod. Order No.", "Prod. Order Line No.", "Operation No."); - TransferLine.SetRange("Subcontr. Purch. Order No.", PurchOrderNo); - TransferLine.SetRange("Prod. Order No.", ProdOrderNo); - TransferLine.SetRange("Prod. Order Line No.", ProdOrderLineNo); - TransferLine.SetRange("Operation No.", ProdOperation); + TransferLine.SetCurrentKey("Subc. Purch. Order No.", "Subc. Prod. Order No.", "Subc. Prod. Order Line No.", "Subc. Operation No."); + TransferLine.SetRange("Subc. Purch. Order No.", PurchOrderNo); + TransferLine.SetRange("Subc. Prod. Order No.", ProdOrderNo); + TransferLine.SetRange("Subc. Prod. Order Line No.", ProdOrderLineNo); + TransferLine.SetRange("Subc. Operation No.", ProdOperation); if not TransferLine.IsEmpty() then begin TransferLine.SetLoadFields(SystemId); @@ -261,17 +261,17 @@ codeunit 99001560 "Subc. Purch. Factbox Mgmt." exit; end; - TransferLine.SetCurrentKey("Prod. Order No.", "Prod. Order Line No.", "Routing Reference No.", "Routing No.", "Operation No."); - TransferLine.SetRange("Prod. Order No.", ProdOrderLine."Prod. Order No."); - TransferLine.SetRange("Prod. Order Line No.", ProdOrderLine."Line No."); + TransferLine.SetCurrentKey("Subc. Prod. Order No.", "Subc. Prod. Order Line No.", "Subc. Routing Reference No.", "Subc. Routing No.", "Subc. Operation No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProdOrderLine."Prod. Order No."); + TransferLine.SetRange("Subc. Prod. Order Line No.", ProdOrderLine."Line No."); if IsReturn then begin - TransferLine.SetRange("Routing Reference No.", 0); - TransferLine.SetRange("Routing No.", ''); - TransferLine.SetRange("Operation No.", ''); + TransferLine.SetRange("Subc. Routing Reference No.", 0); + TransferLine.SetRange("Subc. Routing No.", ''); + TransferLine.SetRange("Subc. Operation No.", ''); end else begin - TransferLine.SetRange("Routing Reference No.", ProdOrderLine."Routing Reference No."); - TransferLine.SetRange("Routing No.", ProdOrderRoutingLine."Routing No."); - TransferLine.SetRange("Operation No.", ProdOrderRoutingLine."Operation No."); + TransferLine.SetRange("Subc. Routing Reference No.", ProdOrderLine."Routing Reference No."); + TransferLine.SetRange("Subc. Routing No.", ProdOrderRoutingLine."Routing No."); + TransferLine.SetRange("Subc. Operation No.", ProdOrderRoutingLine."Operation No."); end; if not TransferLine.IsEmpty() then @@ -368,32 +368,32 @@ codeunit 99001560 "Subc. Purch. Factbox Mgmt." Database::"Transfer Line": begin ResultRecordRef.SetTable(TransferLine); - PurchOrderNo := TransferLine."Subcontr. Purch. Order No."; - PurchOrderLineNo := TransferLine."Subcontr. PO Line No."; + PurchOrderNo := TransferLine."Subc. Purch. Order No."; + PurchOrderLineNo := TransferLine."Subc. Purch. Order Line No."; end; Database::"Transfer Shipment Line": begin ResultRecordRef.SetTable(TransferShipmentLine); - PurchOrderNo := TransferShipmentLine."Subcontr. Purch. Order No."; - PurchOrderLineNo := TransferShipmentLine."Subcontr. PO Line No."; + PurchOrderNo := TransferShipmentLine."Subc. Purch. Order No."; + PurchOrderLineNo := TransferShipmentLine."Subc. Purch. Order Line No."; end; Database::"Transfer Receipt Line": begin ResultRecordRef.SetTable(TransferReceiptLine); - PurchOrderNo := TransferReceiptLine."Subcontr. Purch. Order No."; - PurchOrderLineNo := TransferReceiptLine."Subcontr. PO Line No."; + PurchOrderNo := TransferReceiptLine."Subc. Purch. Order No."; + PurchOrderLineNo := TransferReceiptLine."Subc. Purch. Order Line No."; end; Database::"Item Ledger Entry": begin ResultRecordRef.SetTable(ItemLedgerEntry); - PurchOrderNo := ItemLedgerEntry."Subcontr. Purch. Order No."; - PurchOrderLineNo := ItemLedgerEntry."Subcontr. PO Line No."; + PurchOrderNo := ItemLedgerEntry."Subc. Purch. Order No."; + PurchOrderLineNo := ItemLedgerEntry."Subc. Purch. Order Line No."; end; Database::"Capacity Ledger Entry": begin ResultRecordRef.SetTable(CapacityLedgerEntry); - PurchOrderNo := CapacityLedgerEntry."Subcontr. Purch. Order No."; - PurchOrderLineNo := CapacityLedgerEntry."Subcontr. PO Line No."; + PurchOrderNo := CapacityLedgerEntry."Subc. Purch. Order No."; + PurchOrderLineNo := CapacityLedgerEntry."Subc. Purch. Order Line No."; end; Database::"Prod. Order Routing Line": begin @@ -505,10 +505,10 @@ codeunit 99001560 "Subc. Purch. Factbox Mgmt." local procedure FilterTransferLineToSubcontractorPurchaseOrder(PurchOrderNo: Code[20]; PurchOrderLineNo: Integer; var TransferLine: Record "Transfer Line") begin - TransferLine.SetCurrentKey("Subcontr. Purch. Order No."); - TransferLine.SetRange("Subcontr. Purch. Order No.", PurchOrderNo); - TransferLine.SetRange("Subcontr. PO Line No.", PurchOrderLineNo); - TransferLine.SetFilter("Operation No.", '<>%1', ''); - TransferLine.SetFilter("Routing No.", '<>%1', ''); + TransferLine.SetCurrentKey("Subc. Purch. Order No."); + TransferLine.SetRange("Subc. Purch. Order No.", PurchOrderNo); + TransferLine.SetRange("Subc. Purch. Order Line No.", PurchOrderLineNo); + TransferLine.SetFilter("Subc. Operation No.", '<>%1', ''); + TransferLine.SetFilter("Subc. Routing No.", '<>%1', ''); end; } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPurchaseOrderCreator.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPurchaseOrderCreator.Codeunit.al index e803792afa..94bf8674e0 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPurchaseOrderCreator.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPurchaseOrderCreator.Codeunit.al @@ -278,7 +278,7 @@ codeunit 99001557 "Subc. Purchase Order Creator" WorkCenter.SetLoadFields("Subcontractor No."); WorkCenter.Get(ProdOrderRoutingLine."Work Center No."); - Vendor.SetLoadFields("Subcontr. Location Code"); + Vendor.SetLoadFields("Subc. Location Code"); if not Vendor.Get(WorkCenter."Subcontractor No.") then exit(true); @@ -292,10 +292,10 @@ codeunit 99001557 "Subc. Purchase Order Creator" if not ConfirmManagement.GetResponseOrDefault(BlankLocationConfirmQst, true) then exit(false); - if Vendor."Subcontr. Location Code" <> '' then begin - ProdOrderComponent.SetRange("Location Code", Vendor."Subcontr. Location Code"); + if Vendor."Subc. Location Code" <> '' then begin + ProdOrderComponent.SetRange("Location Code", Vendor."Subc. Location Code"); if not ProdOrderComponent.IsEmpty() then - if not ConfirmManagement.GetResponseOrDefault(StrSubstNo(SameAsSubcLocConfirmQst, Vendor."Subcontr. Location Code", Vendor."No."), true) then + if not ConfirmManagement.GetResponseOrDefault(StrSubstNo(SameAsSubcLocConfirmQst, Vendor."Subc. Location Code", Vendor."No."), true) then exit(false); end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcRoutingFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcRoutingFactboxMgmt.Codeunit.al index b22a8cb6a1..ca67fe19b5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcRoutingFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcRoutingFactboxMgmt.Codeunit.al @@ -150,11 +150,11 @@ codeunit 99001561 "Subc. Routing Factbox Mgmt." var TransferLine: Record "Transfer Line"; begin - TransferLine.SetCurrentKey(TransferLine."Prod. Order No.", TransferLine."Prod. Order Line No.", TransferLine."Routing Reference No.", TransferLine."Routing No.", TransferLine."Operation No."); - TransferLine.SetRange(TransferLine."Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); - TransferLine.SetRange(TransferLine."Prod. Order Line No.", ProdOrderRoutingLine."Routing Reference No."); - TransferLine.SetRange(TransferLine."Routing No.", ProdOrderRoutingLine."Routing No."); - TransferLine.SetRange(TransferLine."Operation No.", ProdOrderRoutingLine."Operation No."); + TransferLine.SetCurrentKey(TransferLine."Subc. Prod. Order No.", TransferLine."Subc. Prod. Order Line No.", TransferLine."Subc. Routing Reference No.", TransferLine."Subc. Routing No.", TransferLine."Subc. Operation No."); + TransferLine.SetRange(TransferLine."Subc. Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); + TransferLine.SetRange(TransferLine."Subc. Prod. Order Line No.", ProdOrderRoutingLine."Routing Reference No."); + TransferLine.SetRange(TransferLine."Subc. Routing No.", ProdOrderRoutingLine."Routing No."); + TransferLine.SetRange(TransferLine."Subc. Operation No.", ProdOrderRoutingLine."Operation No."); exit(TransferLine.Count()); end; @@ -167,10 +167,10 @@ codeunit 99001561 "Subc. Routing Factbox Mgmt." var TransferLine: Record "Transfer Line"; begin - TransferLine.SetCurrentKey(TransferLine."Prod. Order No.", TransferLine."Prod. Order Line No.", TransferLine."Routing Reference No.", TransferLine."Operation No."); - TransferLine.SetRange(TransferLine."Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); - TransferLine.SetRange(TransferLine."Routing Reference No.", 0); - TransferLine.SetRange(TransferLine."Operation No.", ''); + TransferLine.SetCurrentKey(TransferLine."Subc. Prod. Order No.", TransferLine."Subc. Prod. Order Line No.", TransferLine."Subc. Routing Reference No.", TransferLine."Subc. Operation No."); + TransferLine.SetRange(TransferLine."Subc. Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); + TransferLine.SetRange(TransferLine."Subc. Routing Reference No.", 0); + TransferLine.SetRange(TransferLine."Subc. Operation No.", ''); exit(TransferLine.Count()); end; @@ -182,11 +182,11 @@ codeunit 99001561 "Subc. Routing Factbox Mgmt." var TransferLine: Record "Transfer Line"; begin - TransferLine.SetCurrentKey(TransferLine."Prod. Order No.", TransferLine."Prod. Order Line No.", TransferLine."Routing Reference No.", TransferLine."Routing No.", TransferLine."Operation No."); - TransferLine.SetRange(TransferLine."Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); - TransferLine.SetRange(TransferLine."Prod. Order Line No.", ProdOrderRoutingLine."Routing Reference No."); - TransferLine.SetRange(TransferLine."Routing No.", ProdOrderRoutingLine."Routing No."); - TransferLine.SetRange(TransferLine."Operation No.", ProdOrderRoutingLine."Operation No."); + TransferLine.SetCurrentKey(TransferLine."Subc. Prod. Order No.", TransferLine."Subc. Prod. Order Line No.", TransferLine."Subc. Routing Reference No.", TransferLine."Subc. Routing No.", TransferLine."Subc. Operation No."); + TransferLine.SetRange(TransferLine."Subc. Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); + TransferLine.SetRange(TransferLine."Subc. Prod. Order Line No.", ProdOrderRoutingLine."Routing Reference No."); + TransferLine.SetRange(TransferLine."Subc. Routing No.", ProdOrderRoutingLine."Routing No."); + TransferLine.SetRange(TransferLine."Subc. Operation No.", ProdOrderRoutingLine."Operation No."); Page.Run(Page::"Transfer Lines", TransferLine); end; @@ -198,10 +198,10 @@ codeunit 99001561 "Subc. Routing Factbox Mgmt." var TransferLine: Record "Transfer Line"; begin - TransferLine.SetCurrentKey(TransferLine."Prod. Order No.", TransferLine."Prod. Order Line No.", TransferLine."Routing Reference No.", TransferLine."Operation No."); - TransferLine.SetRange(TransferLine."Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); - TransferLine.SetRange(TransferLine."Routing Reference No.", 0); - TransferLine.SetRange(TransferLine."Operation No.", ''); + TransferLine.SetCurrentKey(TransferLine."Subc. Prod. Order No.", TransferLine."Subc. Prod. Order Line No.", TransferLine."Subc. Routing Reference No.", TransferLine."Subc. Operation No."); + TransferLine.SetRange(TransferLine."Subc. Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); + TransferLine.SetRange(TransferLine."Subc. Routing Reference No.", 0); + TransferLine.SetRange(TransferLine."Subc. Operation No.", ''); Page.Run(Page::"Transfer Lines", TransferLine); end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcontractingManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcontractingManagement.Codeunit.al index e007d90eab..3afbe10379 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcontractingManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcontractingManagement.Codeunit.al @@ -55,11 +55,11 @@ codeunit 99001505 "Subcontracting Management" begin if (ProdOrderComponent."Location Code" <> OriginalLocationCode) and (OriginalLocationCode <> '') then begin ProdOrderComponent.Validate("Location Code", OriginalLocationCode); - ProdOrderComponent."Orig. Location Code" := ''; + ProdOrderComponent."Subc. Original Location Code" := ''; end; if (ProdOrderComponent."Bin Code" <> OriginalBinCode) and (OriginalBinCode <> '') then begin ProdOrderComponent.Validate("Bin Code", OriginalBinCode); - ProdOrderComponent."Orig. Bin Code" := ''; + ProdOrderComponent."Subc. Orig. Bin Code" := ''; end; end; end; @@ -105,9 +105,9 @@ codeunit 99001505 "Subcontracting Management" if HasManufacturingSetup then RoutingLinkCode := ManufacturingSetup."Rtng. Link Code Purch. Prov."; - Vendor.SetLoadFields("Work Center No."); + Vendor.SetLoadFields("Subc. Work Center No."); if Vendor.Get(SubcSessionState.GetCode(GetKeyCreateProdOrderProcess())) then - WorkCenterNo := Vendor."Work Center No."; + WorkCenterNo := Vendor."Subc. Work Center No."; GetSubmanagementSetup(); if WorkCenterNo = '' then @@ -185,10 +185,10 @@ codeunit 99001505 "Subcontracting Management" WorkCenter.SetLoadFields("Subcontractor No."); WorkCenter.Get(WorkCenterNo); if WorkCenter."Subcontractor No." <> '' then begin - Vendor.SetLoadFields("Subcontr. Location Code"); + Vendor.SetLoadFields("Subc. Location Code"); if not Vendor.Get(WorkCenter."Subcontractor No.") then Error(WorkCenterVendorDoesntExistErr, WorkCenter."Subcontractor No.", WorkCenter."No."); - Vendor.TestField("Subcontr. Location Code"); + Vendor.TestField("Subc. Location Code"); exit(true); end; exit(false); @@ -327,9 +327,9 @@ codeunit 99001505 "Subcontracting Management" TempTrackingSpecification: Record "Tracking Specification" temporary; ProdOrderCompReserve: Codeunit "Prod. Order Comp.-Reserve"; begin - if (TransferReceiptLine."Prod. Order No." = '') or (TransferReceiptLine."Operation No." = '') then + if (TransferReceiptLine."Subc. Prod. Order No." = '') or (TransferReceiptLine."Subc. Operation No." = '') then exit; - if not ProdOrderComponent.Get("Production Order Status"::Released, TransferReceiptLine."Prod. Order No.", TransferReceiptLine."Prod. Order Line No.", TransferReceiptLine."Prod. Order Comp. Line No.") then + if not ProdOrderComponent.Get("Production Order Status"::Released, TransferReceiptLine."Subc. Prod. Order No.", TransferReceiptLine."Subc. Prod. Order Line No.", TransferReceiptLine."Subc. Prod. Ord. Comp Line No.") then exit; ItemLedgerEntry.SetCurrentKey("Item No.", Open, "Variant Code", Positive, "Expiration Date", "Lot No.", "Serial No."); ItemLedgerEntry.SetRange("Item No.", TransferReceiptLine."Item No."); @@ -377,11 +377,11 @@ codeunit 99001505 "Subcontracting Management" var ProdOrderComponent: Record "Prod. Order Component"; begin - if ProdOrderComponent.Get("Production Order Status"::Released, TransferLine."Prod. Order No.", TransferLine."Prod. Order Line No.", TransferLine."Prod. Order Comp. Line No.") then - if ProdOrderComponent."Orig. Location Code" <> '' then begin - ChangeLocation_OnProdOrderComponent(ProdOrderComponent, '', ProdOrderComponent."Orig. Location Code", ProdOrderComponent."Orig. Bin Code"); - ProdOrderComponent."Orig. Location Code" := ''; - ProdOrderComponent."Orig. Bin Code" := ''; + if ProdOrderComponent.Get("Production Order Status"::Released, TransferLine."Subc. Prod. Order No.", TransferLine."Subc. Prod. Order Line No.", TransferLine."Subc. Prod. Ord. Comp Line No.") then + if ProdOrderComponent."Subc. Original Location Code" <> '' then begin + ChangeLocation_OnProdOrderComponent(ProdOrderComponent, '', ProdOrderComponent."Subc. Original Location Code", ProdOrderComponent."Subc. Orig. Bin Code"); + ProdOrderComponent."Subc. Original Location Code" := ''; + ProdOrderComponent."Subc. Orig. Bin Code" := ''; ProdOrderComponent.Modify(); end; @@ -409,7 +409,7 @@ codeunit 99001505 "Subcontracting Management" if not GetSubcontractor(PlanningRoutingLine."No.", Vendor) then Clear(Vendor); if PlanningComponent."Subcontracting Type" in ["Subcontracting Type"::InventoryByVendor, "Subcontracting Type"::Purchase] then - VendorSubcontractingLocationCode := Vendor."Subcontr. Location Code"; + VendorSubcontractingLocationCode := Vendor."Subc. Location Code"; OrigLocationCode := PlanningComponent."Orig. Location Code"; OrigBinCode := PlanningComponent."Orig. Bin Code"; @@ -466,11 +466,11 @@ codeunit 99001505 "Subcontracting Management" if not GetSubcontractor(ProdOrderRoutingLine."No.", Vendor) then Clear(Vendor); - VendorSubcontractingLocationCode := Vendor."Subcontr. Location Code"; + VendorSubcontractingLocationCode := Vendor."Subc. Location Code"; if not (ProdOrderComponent."Subcontracting Type" in ["Subcontracting Type"::InventoryByVendor, "Subcontracting Type"::Purchase]) then Clear(VendorSubcontractingLocationCode); - OrigLocationCode := ProdOrderComponent."Orig. Location Code"; - OrigBinCode := ProdOrderComponent."Orig. Bin Code"; + OrigLocationCode := ProdOrderComponent."Subc. Original Location Code"; + OrigBinCode := ProdOrderComponent."Subc. Orig. Bin Code"; ChangeLocation_OnProdOrderComponent(ProdOrderComponent, VendorSubcontractingLocationCode, OrigLocationCode, OrigBinCode); @@ -500,15 +500,15 @@ codeunit 99001505 "Subcontracting Management" Subcontracting := GetSubcontractor(ProdOrderRoutingLine."No.", Vendor); if Subcontracting then begin - VendorSubcontractingLocationCode := Vendor."Subcontr. Location Code"; + VendorSubcontractingLocationCode := Vendor."Subc. Location Code"; if ShowMsg then if not ConfirmManagement.GetResponseOrDefault(StrSubstNo(RoutingLinkUpdConfQst, ProdOrderRoutingLine."Routing Link Code"), true) then Error(UpdateIsCancelledErr); repeat if not (ProdOrderComponent."Subcontracting Type" in ["Subcontracting Type"::InventoryByVendor, "Subcontracting Type"::Purchase]) then Clear(VendorSubcontractingLocationCode); - OrigLocationCode := ProdOrderComponent."Orig. Location Code"; - OrigBinCode := ProdOrderComponent."Orig. Bin Code"; + OrigLocationCode := ProdOrderComponent."Subc. Original Location Code"; + OrigBinCode := ProdOrderComponent."Subc. Orig. Bin Code"; ChangeLocation_OnProdOrderComponent(ProdOrderComponent, VendorSubcontractingLocationCode, OrigLocationCode, OrigBinCode); diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderComp.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderComp.PageExt.al index 952786834f..8c7c31c5ab 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderComp.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderComp.PageExt.al @@ -12,16 +12,16 @@ pageextension 99001512 "Subc. Prod Order Comp" extends "Prod. Order Components" { addafter("Remaining Quantity") { - field("Qty. on Transfer Order (Base)"; Rec."Qty. on Trans Order (Base)") + field("Qty. on Transfer Order (Base)"; Rec."Subc. Qty.on TransOrder (Base)") { ApplicationArea = Location; } - field("Qty. in Transit (Base)"; Rec."Qty. in Transit (Base)") + field("Qty. in Transit (Base)"; Rec."Subc. Qty. in Transit (Base)") { ApplicationArea = Location; Visible = false; } - field("Qty. transf. to Subcontractor"; Rec."Qty. transf. to Subcontr") + field("Subc. Qty. transf. to Subcontractor"; Rec."Subc. Qty. transf. to Subcontr") { ApplicationArea = Manufacturing; } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRelProdOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRelProdOrder.PageExt.al index 9a402548f6..721f30e0ce 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRelProdOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRelProdOrder.PageExt.al @@ -32,7 +32,7 @@ pageextension 99001504 "Subc. Rel. Prod. Order" extends "Released Production Ord Image = ItemLedger; RunObject = page "Item Ledger Entries"; RunPageLink = "Entry Type" = const(Transfer), - "Prod. Order No." = field("No."); + "Subc. Prod. Order No." = field("No."); RunPageView = sorting("Order Type", "Order No."); ToolTip = 'View the list of subcontracting transfers.'; } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcVendorCard.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcVendorCard.PageExt.al index 29fff843fb..2dc3b01762 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcVendorCard.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcVendorCard.PageExt.al @@ -12,17 +12,17 @@ pageextension 99001516 "Subc. Vendor Card" extends "Vendor Card" { addafter("Location Code") { - field("Subcontr. Location Code"; Rec."Subcontr. Location Code") + field("Subcr. Location Code"; Rec."Subc. Location Code") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the subcontracting location where items from the vendor must be received by default after having performed an outside work.'; } - field("Linked to Work Center"; Rec."Linked to Work Center") + field("Subc. Linked to Work Center"; Rec."Subc. Linked to Work Center") { ApplicationArea = Manufacturing; ToolTip = 'Specifies if a work center is related to the vendor.'; } - field("Work Center No."; Rec."Work Center No.") + field("Subc. Work Center No."; Rec."Subc. Work Center No.") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the work center for purchase provision related to the vendor.'; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPurchOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPurchOrder.PageExt.al index 0883aa5377..4840c2858c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPurchOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPurchOrder.PageExt.al @@ -12,7 +12,7 @@ pageextension 99001523 "Subc. Purch. Order" extends "Purchase Order" { addafter(Status) { - field("Subcontracting Order"; Rec."Subcontracting Order") + field("Subc. Order"; Rec."Subc. Order") { ApplicationArea = Manufacturing; } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcCapLEntries.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcCapLEntries.PageExt.al index eed9484f55..d17db977a5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcCapLEntries.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcCapLEntries.PageExt.al @@ -12,13 +12,13 @@ pageextension 99001502 "Subc. CapLEntries" extends "Capacity Ledger Entries" { addlast(Control1) { - field("Subcontr. Purch. Order No."; Rec."Subcontr. Purch. Order No.") + field("Subc. Purch. Order No."; Rec."Subc. Purch. Order No.") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the number of the related purchase order.'; Visible = false; } - field("Subcontr. PO Line No."; Rec."Subcontr. PO Line No.") + field("Subc. Purch. Order Line No."; Rec."Subc. Purch. Order Line No.") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the number of the related purchase order line.'; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcILEntries.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcILEntries.PageExt.al index c038772055..ca7a537ff9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcILEntries.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcILEntries.PageExt.al @@ -12,25 +12,25 @@ pageextension 99001501 "Subc. ILEntries" extends "Item Ledger Entries" { addlast(Control1) { - field("Subcontr. Purch. Order No."; Rec."Subcontr. Purch. Order No.") + field("Subc. Purch. Order No."; Rec."Subc. Purch. Order Line No.") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the number of the related purchase order.'; Visible = false; } - field("Subcontr. PO Line No."; Rec."Subcontr. PO Line No.") + field("Subc. Purch. Order Line No."; Rec."Subc. Purch. Order Line No.") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the number of the related purchase order line.'; Visible = false; } - field("Prod. Order No."; Rec."Prod. Order No.") + field("Prod. Order No."; Rec."Subc. Prod. Order No.") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the number of the related production order.'; Visible = false; } - field("Prod. Order Line No."; Rec."Prod. Order Line No.") + field("Prod. Order Line No."; Rec."Subc. Prod. Order Line No.") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the number of the related production order line.'; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransOrderSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransOrderSub.PageExt.al index 24c777dd4c..1996132cd1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransOrderSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransOrderSub.PageExt.al @@ -12,55 +12,55 @@ pageextension 99001529 "Subc. Trans. Order Sub." extends "Transfer Order Subform { addafter("Receipt Date") { - field("Subcontr. Purch. Order No."; Rec."Subcontr. Purch. Order No.") + field("Subc. Purch. Order No."; Rec."Subc. Purch. Order No.") { ApplicationArea = Manufacturing; Editable = false; Visible = false; } - field("Subcontr. PO Line No."; Rec."Subcontr. PO Line No.") + field("Subc. Purch. Order Line No."; Rec."Subc. Purch. Order Line No.") { ApplicationArea = Manufacturing; Editable = false; Visible = false; } - field("Prod. Order No."; Rec."Prod. Order No.") + field("Prod. Order No."; Rec."Subc. Prod. Order No.") { ApplicationArea = Manufacturing; Editable = false; Visible = false; } - field("Prod. Order Line No."; Rec."Prod. Order Line No.") + field("Subc. Prod. Order Line No."; Rec."Subc. Prod. Order Line No.") { ApplicationArea = Manufacturing; Editable = false; Visible = false; } - field("Prod. Order. Comp. Line No."; Rec."Prod. Order Comp. Line No.") + field("Subc. Prod. Ord. Comp. Line No."; Rec."Subc. Prod. Ord. Comp Line No.") { ApplicationArea = Manufacturing; Editable = false; Visible = false; } - field("Routing No."; Rec."Routing No.") + field("Subc. Routing No."; Rec."Subc. Routing No.") { ApplicationArea = Manufacturing; Editable = false; Visible = false; } - field("Routing Reference No."; Rec."Routing Reference No.") + field("Subc. Routing Reference No."; Rec."Subc. Routing Reference No.") { ApplicationArea = Manufacturing; Editable = false; Visible = false; } - field("WorkCenter No."; Rec."Work Center No.") + field("Subc. WorkCenter No."; Rec."Subc. Work Center No.") { ApplicationArea = Manufacturing; Editable = false; Visible = false; } - field("Operation No."; Rec."Operation No.") + field("Subc. Operation No."; Rec."Subc. Operation No.") { ApplicationArea = Manufacturing; Editable = false; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransferLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransferLines.PageExt.al index 90e2df2db8..ccfcbb6fed 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransferLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransferLines.PageExt.al @@ -12,7 +12,7 @@ pageextension 99001530 "Subc. Transfer Lines" extends "Transfer Lines" { addlast(Control1) { - field("Return Order"; Rec."Return Order") + field("Subc. Return Order"; Rec."Subc. Return Order") { ApplicationArea = Manufacturing; Editable = false; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcProdOrderComponents.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcProdOrderComponents.Page.al index ce5d8f339f..05d2b4aa75 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcProdOrderComponents.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcProdOrderComponents.Page.al @@ -88,7 +88,7 @@ page 99001503 "Subc. Prod. Order Components" SubcCompFactboxMgmt.ShowPurchOrderQtyReceivedBaseFromProdOrderComp(Rec); end; } - field("Qty. on Transfer Order (Base)"; Rec."Qty. on Trans Order (Base)") + field("Subc. Qty.on Transfer Order (Base)"; Rec."Subc. Qty.on TransOrder (Base)") { ToolTip = 'Specifies the item amount that is on the transfer order.'; } @@ -96,7 +96,7 @@ page 99001503 "Subc. Prod. Order Components" { ToolTip = 'Specifies the item amount that is on the transfer order to be returned.'; } - field("Qty. in Transit (Base)"; Rec."Qty. in Transit (Base)") + field("Subc.Qty. in Transit (Base)"; Rec."Subc. Qty. in Transit (Base)") { ToolTip = 'Specifies the items that are in transit.'; Visible = false; @@ -106,7 +106,7 @@ page 99001503 "Subc. Prod. Order Components" ToolTip = 'Specifies the items that are in transit for return.'; Visible = false; } - field("Qty. transf. to Subcontractor"; Rec."Qty. transf. to Subcontr") + field("Qty. transf. to Subcontractor"; Rec."Subc. Qty. transf. to Subcontr") { ToolTip = 'Specifies the item amount transferred to the subcontractor.'; } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcTransferLineFactbox.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcTransferLineFactbox.Page.al index c59fa2ffc0..361e1ca52a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcTransferLineFactbox.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcTransferLineFactbox.Page.al @@ -18,7 +18,7 @@ page 99001501 "Subc. Transfer Line Factbox" { area(Content) { - field(ShowPurchOrder; Rec."Subcontr. Purch. Order No.") + field(ShowPurchOrder; Rec."Subc. Purch. Order No.") { Caption = 'Purchase Order'; ToolTip = 'Specifies the dependent Purchase Order of this Subcontracting Transfer Order.'; @@ -27,7 +27,7 @@ page 99001501 "Subc. Transfer Line Factbox" ShowPurchaseOrder(Rec); end; } - field(ShowProdOrder; Rec."Prod. Order No.") + field(ShowProdOrder; Rec."Subc. Prod. Order No.") { Caption = 'Production Order'; ToolTip = 'Specifies the dependent Production Order of this Subcontracting Transfer Order.'; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcCreateProdOrdOpt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcCreateProdOrdOpt.Codeunit.al index 6ed59743e4..965b400ad9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcCreateProdOrdOpt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcCreateProdOrdOpt.Codeunit.al @@ -647,7 +647,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." SubcManagementSetup.TestField("Common Work Center No."); Vendor.Get(PurchaseLine."Buy-from Vendor No."); - Vendor.TestField("Subcontr. Location Code"); + Vendor.TestField("Subc. Location Code"); PurchaseLine.TestField(Type, "Purchase Line Type"::Item); PurchaseLine.TestField("Prod. Order No.", ''); @@ -1176,8 +1176,8 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." ProdOrderComponent."Routing Link Code" := TempProdOrderComponent."Routing Link Code"; ProdOrderComponent."Flushing Method" := TempProdOrderComponent."Flushing Method"; ProdOrderComponent."Subcontracting Type" := TempProdOrderComponent."Subcontracting Type"; - ProdOrderComponent."Orig. Location Code" := TempProdOrderComponent."Orig. Location Code"; - ProdOrderComponent."Orig. Bin Code" := TempProdOrderComponent."Orig. Bin Code"; + ProdOrderComponent."Subc. Original Location Code" := TempProdOrderComponent."Subc. Original Location Code"; + ProdOrderComponent."Subc. Orig. Bin Code" := TempProdOrderComponent."Subc. Orig. Bin Code"; ProdOrderComponent."Subcontracting Type" := TempProdOrderComponent."Subcontracting Type"; ProdOrderComponent.Modify(true); end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcProdOrderCreateBind.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcProdOrderCreateBind.Codeunit.al index aa1f5a0b59..144ee4d449 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcProdOrderCreateBind.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcProdOrderCreateBind.Codeunit.al @@ -55,7 +55,7 @@ codeunit 99001555 "Subc. ProdOrderCreateBind" ComponentsLocationCode := SubcontractingManagement.GetComponentsLocationCode(SubcontractingPurchaseLine); ProdOrderComponent.Validate("Location Code", ComponentsLocationCode); - ProdOrderComponent."Orig. Location Code" := ''; + ProdOrderComponent."Subc. Original Location Code" := ''; end; local procedure GetSubcontractorForPurchaseProvision(var Vendor: Record Vendor; var HasSubcontractor: Boolean; var IsHandled: Boolean) diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcTempDataInitializer.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcTempDataInitializer.Codeunit.al index 75aefe03fc..f8f833cc30 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcTempDataInitializer.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcTempDataInitializer.Codeunit.al @@ -213,9 +213,9 @@ codeunit 99001552 "Subc. Temp Data Initializer" WorkCenterNo: Code[20]; begin GetManufacturingSetup(); - Vendor.SetLoadFields("Work Center No."); + Vendor.SetLoadFields("Subc. Work Center No."); Vendor.Get(TempGlobalPurchaseLine."Buy-from Vendor No."); - WorkCenterNo := Vendor."Work Center No."; + WorkCenterNo := Vendor."Subc. Work Center No."; if WorkCenterNo = '' then begin SubcManagementSetup.TestField("Common Work Center No."); WorkCenterNo := SubcManagementSetup."Common Work Center No."; @@ -268,7 +268,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" BuildTemporaryComponents(); GetVendor(); - SubcSessionState.SetCode('SetSubcontractingLocationCodeFromVendor', TempGlobalVendor."Subcontr. Location Code"); + SubcSessionState.SetCode('SetSubcontractingLocationCodeFromVendor', TempGlobalVendor."Subc. Location Code"); end; local procedure BuildTemporaryComponents() @@ -573,8 +573,8 @@ codeunit 99001552 "Subc. Temp Data Initializer" "Subcontracting Type"::InventoryByVendor, "Subcontracting Type"::Purchase: begin GetVendor(); - TempGlobalProdOrderComponent.Validate("Location Code", TempGlobalVendor."Subcontr. Location Code"); - TempGlobalProdOrderComponent."Orig. Location Code" := ComponentsLocationCode; + TempGlobalProdOrderComponent.Validate("Location Code", TempGlobalVendor."Subc. Location Code"); + TempGlobalProdOrderComponent."Subc. Original Location Code" := ComponentsLocationCode; end; "Subcontracting Type"::Transfer: TempGlobalProdOrderComponent.Validate("Location Code", ComponentsLocationCode); diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempProdOrderComp.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempProdOrderComp.Page.al index 7def40c9b9..de79ebb568 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempProdOrderComp.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempProdOrderComp.Page.al @@ -93,7 +93,7 @@ page 99001508 "Subc. Temp Prod Order Comp" if Rec."Subcontracting Type" <> Rec."Subcontracting Type"::Transfer then Rec.Validate("Location Code", CopyStr(SubcSessionState.GetCode('SetSubcontractingLocationCodeFromVendor'), 1, MaxStrLen(Rec."Location Code"))) else - Rec.Validate("Location Code", Rec."Orig. Location Code"); + Rec.Validate("Location Code", Rec."Subc. Original Location Code"); end; } field("Due Date"; Rec."Due Date") @@ -112,7 +112,7 @@ page 99001508 "Subc. Temp Prod Order Comp" Rec."Routing Link Code" := xRec."Routing Link Code"; Rec."Subcontracting Type" := xRec."Subcontracting Type"; Rec."Location Code" := xRec."Location Code"; - Rec."Orig. Location Code" := xRec."Orig. Location Code"; + Rec."Subc. Original Location Code" := xRec."Subc. Original Location Code"; if PresetSubValues then begin GetSubManagementSetup(); diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateSubCReturnOrder.Report.al b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateSubCReturnOrder.Report.al index 408fe17595..1cdfa39130 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateSubCReturnOrder.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateSubCReturnOrder.Report.al @@ -36,8 +36,8 @@ report 99001502 "Subc. Create SubCReturnOrder" } trigger OnAfterGetRecord() begin - "Purchase Header".CalcFields("Subcontracting Order"); - if not "Subcontracting Order" then + "Purchase Header".CalcFields("Subc. Order"); + if not "Subc. Order" then Error(OrderNoIsNotSubcontractorErr, PurchOrderNo); if not CheckExistComponent() then @@ -174,7 +174,7 @@ report 99001502 "Subc. Create SubCReturnOrder" ProdOrderComponent.SetRange("Prod. Order No.", PurchaseLine."Prod. Order No."); ProdOrderComponent.SetRange("Prod. Order Line No.", PurchaseLine."Prod. Order Line No."); ProdOrderComponent.SetRange("Routing Link Code", ProdOrderRoutingLine."Routing Link Code"); - ProdOrderComponent.SetRange("Purchase Order Filter", PurchaseLine."Document No."); + ProdOrderComponent.SetRange("Subc. Purchase Order Filter", PurchaseLine."Document No."); ProdOrderComponent.SetRange("Subcontracting Type", ProdOrderComponent."Subcontracting Type"::Transfer); if ProdOrderComponent.FindSet() then begin CheckTransferLineExists(PurchaseLine); @@ -183,17 +183,17 @@ report 99001502 "Subc. Create SubCReturnOrder" QtyToPost := MfgCostCalculationMgt.CalcActNeededQtyBase(ProdOrderLine, ProdOrderComponent, Round(PurchaseLine."Outstanding Quantity" * QtyPerUom, UnitofMeasureManagement.QtyRndPrecision())); ProdOrderComponent.CalcFields( - "Qty. in Transit (Base)", "Qty. transf. to Subcontr", + "Subc. Qty. in Transit (Base)", "Subc. Qty. transf. to Subcontr", "RetQtyOnTransOrder (Base)", "RetQtyInTransit (Base)"); AvailableToReturn := - Abs(ProdOrderComponent."Qty. in Transit (Base)") + Abs(ProdOrderComponent."Qty. transf. to Subcontr") + Abs(ProdOrderComponent."Subc. Qty. in Transit (Base)") + Abs(ProdOrderComponent."Subc. Qty. transf. to Subcontr") - Abs(ProdOrderComponent."RetQtyOnTransOrder (Base)") - Abs(ProdOrderComponent."RetQtyInTransit (Base)"); if QtyToPost > AvailableToReturn then QtyToPost := AvailableToReturn; if QtyToPost > 0 then if InsertLine then begin - InsertTransferHeader(ProdOrderComponent."Orig. Location Code"); + InsertTransferHeader(ProdOrderComponent."Subc. Original Location Code"); LineNum := LineNum + 10000; @@ -205,21 +205,21 @@ report 99001502 "Subc. Create SubCReturnOrder" TransferLine."Unit of Measure Code" := ProdOrderComponent."Unit of Measure Code"; TransferLine."Qty. per Unit of Measure" := ProdOrderComponent."Qty. per Unit of Measure"; TransferLine.Validate(Quantity, Round(QtyToPost / ProdOrderComponent."Qty. per Unit of Measure", Item."Rounding Precision", '>')); - TransferLine."Subcontr. Purch. Order No." := PurchaseLine."Document No."; - TransferLine."Subcontr. PO Line No." := PurchaseLine."Line No."; - TransferLine."Prod. Order No." := PurchaseLine."Prod. Order No."; - TransferLine."Prod. Order Line No." := PurchaseLine."Prod. Order Line No."; - TransferLine."Prod. Order Comp. Line No." := ProdOrderComponent."Line No."; - TransferLine."Return Order" := true; + TransferLine."Subc. Purch. Order No." := PurchaseLine."Document No."; + TransferLine."Subc. Purch. Order Line No." := PurchaseLine."Line No."; + TransferLine."Subc. Prod. Order No." := PurchaseLine."Prod. Order No."; + TransferLine."Subc. Prod. Order Line No." := PurchaseLine."Prod. Order Line No."; + TransferLine."Subc. Prod. Ord. Comp Line No." := ProdOrderComponent."Line No."; + TransferLine."Subc. Return Order" := true; TransferLine.Insert(); SubcontractingManagement.TransferReservationEntryFromProdOrderCompToTransferOrder(TransferLine, ProdOrderComponent); - if ProdOrderComponent."Orig. Location Code" = '' then - ProdOrderComponent."Orig. Location Code" := ProdOrderComponent."Location Code"; - if ProdOrderComponent."Orig. Bin Code" = '' then - ProdOrderComponent."Orig. Bin Code" := ProdOrderComponent."Bin Code"; + if ProdOrderComponent."Subc. Original Location Code" = '' then + ProdOrderComponent."Subc. Original Location Code" := ProdOrderComponent."Location Code"; + if ProdOrderComponent."Subc. Orig. Bin Code" = '' then + ProdOrderComponent."Subc. Orig. Bin Code" := ProdOrderComponent."Bin Code"; if TransferHeader."Transfer-to Code" <> ProdOrderComponent."Location Code" then begin ProdOrderComponent.Validate("Location Code", TransferHeader."Transfer-to Code"); ProdOrderComponent.GetDefaultBin(); @@ -253,11 +253,11 @@ report 99001502 "Subc. Create SubCReturnOrder" begin if PurchaseLine."Document No." = '' then exit; - TransferLine2.SetRange("Subcontr. Purch. Order No.", PurchaseLine."Document No."); - TransferLine2.SetRange("Subcontr. PO Line No.", PurchaseLine."Line No."); - TransferLine2.SetRange("Prod. Order No.", PurchaseLine."Prod. Order No."); - TransferLine2.SetRange("Prod. Order Line No.", PurchaseLine."Prod. Order Line No."); - TransferLine2.SetRange("Return Order", true); + TransferLine2.SetRange("Subc. Purch. Order No.", PurchaseLine."Document No."); + TransferLine2.SetRange("Subc. Purch. Order Line No.", PurchaseLine."Line No."); + TransferLine2.SetRange("Subc. Prod. Order No.", PurchaseLine."Prod. Order No."); + TransferLine2.SetRange("Subc. Prod. Order Line No.", PurchaseLine."Prod. Order Line No."); + TransferLine2.SetRange("Subc. Return Order", true); if not TransferLine2.IsEmpty() then Error(ReturnTransferOrderAlreadyCreatedErr); end; @@ -266,9 +266,9 @@ report 99001502 "Subc. Create SubCReturnOrder" begin TransferToLocationCode := "Purchase Header"."Subc. Location Code"; if TransferToLocationCode = '' then begin - TransferToLocationCode := Vendor."Subcontr. Location Code"; + TransferToLocationCode := Vendor."Subc. Location Code"; if TransferToLocationCode = '' then - Vendor.TestField("Subcontr. Location Code"); + Vendor.TestField("Subc. Location Code"); end; end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al index c7825b9d84..3a749b7985 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al @@ -34,8 +34,8 @@ report 99001501 "Subc. Create Transf. Order" } trigger OnAfterGetRecord() begin - "Purchase Header".CalcFields("Subcontracting Order"); - if not "Subcontracting Order" then + "Purchase Header".CalcFields("Subc. Order"); + if not "Subc. Order" then Error(OrderNoIsNotSubcontractorErr, PurchOrderNo); if not CheckExistComponent() then @@ -172,17 +172,17 @@ report 99001501 "Subc. Create Transf. Order" ProdOrderComponent.SetRange("Prod. Order No.", PurchaseLine."Prod. Order No."); ProdOrderComponent.SetRange("Prod. Order Line No.", PurchaseLine."Prod. Order Line No."); ProdOrderComponent.SetRange("Routing Link Code", ProdOrderRoutingLine."Routing Link Code"); - ProdOrderComponent.SetRange("Purchase Order Filter", PurchaseLine."Document No."); + ProdOrderComponent.SetRange("Subc. Purchase Order Filter", PurchaseLine."Document No."); ProdOrderComponent.SetRange("Subcontracting Type", ProdOrderComponent."Subcontracting Type"::Transfer); if ProdOrderComponent.FindSet() then repeat Item.SetLoadFields("Rounding Precision", "Order Tracking Policy"); Item.Get(ProdOrderComponent."Item No."); QtyToPost := MfgCostCalculationMgt.CalcActNeededQtyBase(ProdOrderLine, ProdOrderComponent, Round(PurchaseLine.Quantity * QtyPerUom, UnitofMeasureManagement.QtyRndPrecision())); - ProdOrderComponent.CalcFields("Qty. on Trans Order (Base)", "Qty. in Transit (Base)", "Qty. transf. to Subcontr"); - if QtyToPost > (ProdOrderComponent."Qty. on Trans Order (Base)" + - ProdOrderComponent."Qty. in Transit (Base)" + - Abs(ProdOrderComponent."Qty. transf. to Subcontr")) + ProdOrderComponent.CalcFields("Subc. Qty.on TransOrder (Base)", "Subc. Qty. in Transit (Base)", "Subc. Qty. transf. to Subcontr"); + if QtyToPost > (ProdOrderComponent."Subc. Qty.on TransOrder (Base)" + + ProdOrderComponent."Subc. Qty. in Transit (Base)" + + Abs(ProdOrderComponent."Subc. Qty. transf. to Subcontr")) then if InsertLine then begin TransferFromLocationCode := GetTransferFromLocationForComponent(ProdOrderComponent); @@ -203,30 +203,30 @@ report 99001501 "Subc. Create Transf. Order" TransferLine."Qty. per Unit of Measure" := ProdOrderComponent."Qty. per Unit of Measure"; QtyToPost := QtyToPost - - (ProdOrderComponent."Qty. on Trans Order (Base)" + - ProdOrderComponent."Qty. in Transit (Base)" + - Abs(ProdOrderComponent."Qty. transf. to Subcontr")); + (ProdOrderComponent."Subc. Qty.on TransOrder (Base)" + + ProdOrderComponent."Subc. Qty. in Transit (Base)" + + Abs(ProdOrderComponent."Subc. Qty. transf. to Subcontr")); TransferLine.Validate(Quantity, Round(QtyToPost / ProdOrderComponent."Qty. per Unit of Measure", Item."Rounding Precision", '>')); if ProdOrderComponent."Due Date" <> 0D then TransferLine.Validate("Receipt Date", SubcontractingManagement.CalcReceiptDateFromProdCompDueDateWithInbWhseHandlingTime(ProdOrderComponent)); - TransferLine."Subcontr. Purch. Order No." := PurchaseLine."Document No."; - TransferLine."Subcontr. PO Line No." := PurchaseLine."Line No."; - TransferLine."Prod. Order No." := PurchaseLine."Prod. Order No."; - TransferLine."Prod. Order Line No." := PurchaseLine."Prod. Order Line No."; - TransferLine."Prod. Order Comp. Line No." := ProdOrderComponent."Line No."; - TransferLine."Routing No." := PurchaseLine."Routing No."; - TransferLine."Routing Reference No." := PurchaseLine."Routing Reference No."; - TransferLine."Work Center No." := PurchaseLine."Work Center No."; - TransferLine."Operation No." := PurchaseLine."Operation No."; + TransferLine."Subc. Purch. Order No." := PurchaseLine."Document No."; + TransferLine."Subc. Purch. Order Line No." := PurchaseLine."Line No."; + TransferLine."Subc. Prod. Order No." := PurchaseLine."Prod. Order No."; + TransferLine."Subc. Prod. Order Line No." := PurchaseLine."Prod. Order Line No."; + TransferLine."Subc. Prod. Ord. Comp Line No." := ProdOrderComponent."Line No."; + TransferLine."Subc. Routing No." := PurchaseLine."Routing No."; + TransferLine."Subc. Routing Reference No." := PurchaseLine."Routing Reference No."; + TransferLine."Subc. Work Center No." := PurchaseLine."Work Center No."; + TransferLine."Subc. Operation No." := PurchaseLine."Operation No."; TransferLine.Modify(); - if ProdOrderComponent."Orig. Location Code" = '' then - ProdOrderComponent."Orig. Location Code" := ProdOrderComponent."Location Code"; - if ProdOrderComponent."Orig. Bin Code" = '' then - ProdOrderComponent."Orig. Bin Code" := ProdOrderComponent."Bin Code"; + if ProdOrderComponent."Subc. Original Location Code" = '' then + ProdOrderComponent."Subc. Original Location Code" := ProdOrderComponent."Location Code"; + if ProdOrderComponent."Subc. Orig. Bin Code" = '' then + ProdOrderComponent."Subc. Orig. Bin Code" := ProdOrderComponent."Bin Code"; SubcontractingManagement.TransferReservationEntryFromProdOrderCompToTransferOrder(TransferLine, ProdOrderComponent); if TransferHeader."Transfer-to Code" <> ProdOrderComponent."Location Code" then begin @@ -268,12 +268,12 @@ report 99001501 "Subc. Create Transf. Order" begin SubcontrLocationCode := "Purchase Header"."Subc. Location Code"; if SubcontrLocationCode = '' then - SubcontrLocationCode := Vendor."Subcontr. Location Code"; + SubcontrLocationCode := Vendor."Subc. Location Code"; if (ProdOrderComponent."Location Code" = SubcontrLocationCode) and - (ProdOrderComponent."Orig. Location Code" <> '') + (ProdOrderComponent."Subc. Original Location Code" <> '') then - ResultLocationCode := ProdOrderComponent."Orig. Location Code" + ResultLocationCode := ProdOrderComponent."Subc. Original Location Code" else ResultLocationCode := ProdOrderComponent."Location Code"; exit(ResultLocationCode); @@ -283,9 +283,9 @@ report 99001501 "Subc. Create Transf. Order" begin TransferToLocationCode := "Purchase Header"."Subc. Location Code"; if TransferToLocationCode = '' then begin - TransferToLocationCode := Vendor."Subcontr. Location Code"; + TransferToLocationCode := Vendor."Subc. Location Code"; if TransferToLocationCode = '' then - Vendor.TestField("Subcontr. Location Code"); + Vendor.TestField("Subc. Location Code"); end; end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcDispatchingList.Report.al b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcDispatchingList.Report.al index f23a197f76..c0bdbadde2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcDispatchingList.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcDispatchingList.Report.al @@ -44,7 +44,7 @@ report 99001504 "Subc. Dispatching List" { dataitem("Purchase Header"; "Purchase Header") { - DataItemTableView = sorting("Document Type", "Buy-from Vendor No.", "No.") where("Subcontracting Order" = const(true)); + DataItemTableView = sorting("Document Type", "Buy-from Vendor No.", "No.") where("Subc. Order" = const(true)); RequestFilterFields = "No.", "Buy-from Vendor No.", "No. Printed"; RequestFilterHeading = 'Subcontractor - Dispatch List'; column(AllowInvoiceDisc_Lbl; AllowInvoiceDiscCaptionLbl) @@ -727,10 +727,10 @@ report 99001504 "Subc. Dispatching List" column(VendNo_Lbl; VendNoCaptionLbl) { } - column(Vendor__Subcontracting_Location_Code_; Vendor."Subcontr. Location Code") + column(Vendor__Subcontracting_Location_Code_; Vendor."Subc. Location Code") { } - column(Vendor__Subcontracting_Location_Code_Caption; Vendor.FieldCaption("Subcontr. Location Code")) + column(Vendor__Subcontracting_Location_Code_Caption; Vendor.FieldCaption("Subc. Location Code")) { } column(VendorIDCaption_Lbl; VendorIDCaptionLbl) @@ -1024,7 +1024,7 @@ report 99001504 "Subc. Dispatching List" { DataItemLink = Status = field(Status), "Prod. Order No." = field("Prod. Order No."), "Prod. Order Line No." = field("Routing Reference No."), "Routing Link Code" = field("Routing Link Code"); DataItemTableView = sorting(Status, "Prod. Order No.", "Prod. Order Line No.", "Line No."); - column(Expected_Qty___Base______Qty__transf__to_Subcontractor______Qty__in_Transit__Base__; "Expected Qty. (Base)" - "Qty. transf. to Subcontr" - "Qty. in Transit (Base)") + column(Expected_Qty___Base______Qty__transf__to_Subcontractor______Qty__in_Transit__Base__; "Expected Qty. (Base)" - "Subc. Qty. transf. to Subcontr" - "Subc. Qty. in Transit (Base)") { DecimalPlaces = 0 : 5; } @@ -1037,16 +1037,16 @@ report 99001504 "Subc. Dispatching List" column(Prod__Order_Component__Item_No__; "Item No.") { } - column(Prod__Order_Component__Qty__in_Transit__Base__; "Qty. in Transit (Base)") + column(Prod__Order_Component__Qty__in_Transit__Base__; "Subc. Qty. in Transit (Base)") { } - column(Prod__Order_Component__Qty__in_Transit__Base__Caption; FieldCaption("Qty. in Transit (Base)")) + column(Prod__Order_Component__Qty__in_Transit__Base__Caption; FieldCaption("Subc. Qty. in Transit (Base)")) { } - column(Prod__Order_Component__Qty__transf__to_Subcontractor_; "Qty. transf. to Subcontr") + column(Prod__Order_Component__Qty__transf__to_Subcontractor_; "Subc. Qty. transf. to Subcontr") { } - column(Prod__Order_Component__Qty__transf__to_Subcontractor_Caption; FieldCaption("Qty. transf. to Subcontr")) + column(Prod__Order_Component__Qty__transf__to_Subcontractor_Caption; FieldCaption("Subc. Qty. transf. to Subcontr")) { } column(Prod__Order_Component_Description; Description) @@ -1069,7 +1069,7 @@ report 99001504 "Subc. Dispatching List" } trigger OnPreDataItem() begin - SetRange("Purchase Order Filter", "Purchase Header"."No."); + SetRange("Subc. Purchase Order Filter", "Purchase Header"."No."); end; } } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcCapLedgerEntryExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcCapLedgerEntryExt.TableExt.al index c9f4e74e0c..7721870746 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcCapLedgerEntryExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcCapLedgerEntryExt.TableExt.al @@ -17,18 +17,18 @@ tableextension 99001504 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger E Caption = 'Subcontractor No.'; DataClassification = CustomerContent; } - field(99001512; "Subcontr. Purch. Order No."; Code[20]) + field(99001512; "Subc. Purch. Order No."; Code[20]) { - Caption = 'Subcontr. Purch. Order No.'; + Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order)); } - field(99001513; "Subcontr. PO Line No."; Integer) + field(99001513; "Subc. Purch. Order Line No."; Integer) { - Caption = 'Subcontr. Purch. Order Line No.'; + Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Purchase Line"."Line No." where("Document Type" = const(Order), - "Document No." = field("Subcontr. Purch. Order No.")); + "Document No." = field("Subc. Purch. Order No.")); } } } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcProdOrderCompExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcProdOrderCompExt.TableExt.al index 243f1b765a..88321be6b7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcProdOrderCompExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcProdOrderCompExt.TableExt.al @@ -28,20 +28,20 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon SubcontractingManagement.UpdateSubcontractingTypeForProdOrderComponent(Rec); end; } - field(99001523; "Orig. Location Code"; Code[10]) + field(99001523; "Subc. Original Location Code"; Code[10]) { Caption = 'Original Location Code'; DataClassification = CustomerContent; TableRelation = Location; } - field(99001524; "Qty. transf. to Subcontr"; Decimal) + field(99001524; "Subc. Qty. transf. to Subcontr"; Decimal) { AutoFormatType = 0; CalcFormula = sum("Item Ledger Entry".Quantity where("Entry Type" = const(Transfer), - "Prod. Order No." = field("Prod. Order No."), - "Prod. Order Line No." = field("Prod. Order Line No."), + "Subc. Prod. Order No." = field("Prod. Order No."), + "Subc. Prod. Order Line No." = field("Prod. Order Line No."), "Prod. Order Comp. Line No." = field("Line No."), - "Subcontr. Purch. Order No." = field("Purchase Order Filter"), + "Subc. Purch. Order No." = field("Subc. Purchase Order Filter"), "Location Code" = field("Location Code"), Open = const(true) ) @@ -52,14 +52,14 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon FieldClass = FlowField; ToolTip = 'Specifies the item amount transferred to the subcontractor.'; } - field(99001525; "Qty. in Transit (Base)"; Decimal) + field(99001525; "Subc. Qty. in Transit (Base)"; Decimal) { AutoFormatType = 0; - CalcFormula = sum("Transfer Line"."Qty. in Transit (Base)" where("Prod. Order No." = field("Prod. Order No."), - "Prod. Order Line No." = field("Prod. Order Line No."), - "Prod. Order Comp. Line No." = field("Line No."), - "Subcontr. Purch. Order No." = field("Purchase Order Filter"), - "Return Order" = const(false), + CalcFormula = sum("Transfer Line"."Qty. in Transit (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), + "Subc. Prod. Order Line No." = field("Prod. Order Line No."), + "Subc. Prod. Ord. Comp Line No." = field("Line No."), + "Subc. Purch. Order No." = field("Subc. Purchase Order Filter"), + "Subc. Return Order" = const(false), "Derived From Line No." = const(0))); Caption = 'Qty. in Transit (Base)'; DecimalPlaces = 0 : 5; @@ -67,14 +67,14 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon FieldClass = FlowField; ToolTip = 'Specifies the items that are in transit.'; } - field(99001526; "Qty. on Trans Order (Base)"; Decimal) + field(99001526; "Subc. Qty.on TransOrder (Base)"; Decimal) { AutoFormatType = 0; - CalcFormula = sum("Transfer Line"."Outstanding Qty. (Base)" where("Prod. Order No." = field("Prod. Order No."), - "Prod. Order Line No." = field("Prod. Order Line No."), - "Prod. Order Comp. Line No." = field("Line No."), - "Subcontr. Purch. Order No." = field("Purchase Order Filter"), - "Return Order" = const(false), + CalcFormula = sum("Transfer Line"."Outstanding Qty. (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), + "Subc. Prod. Order Line No." = field("Prod. Order Line No."), + "Subc. Prod. Ord. Comp Line No." = field("Line No."), + "Subc. Purch. Order No." = field("Subc. Purchase Order Filter"), + "Subc. Return Order" = const(false), "Derived From Line No." = const(0))); Caption = 'Qty. on Transfer Order (Base)'; DecimalPlaces = 0 : 5; @@ -82,14 +82,14 @@ 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; "Purchase Order Filter"; Code[20]) + field(99001527; "Subc. Purchase Order Filter"; Code[20]) { - Caption = 'Purchase Order Filter'; + Caption = 'Subc. Purchase Order Filter'; FieldClass = FlowFilter; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order), - "Subcontracting Order" = const(true)); + "Subc. Order" = const(true)); } - field(99001528; "Orig. Bin Code"; Code[20]) + field(99001528; "Subc. Orig. Bin Code"; Code[20]) { Caption = 'Original Bin Code'; DataClassification = CustomerContent; @@ -98,11 +98,11 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon field(99001530; "RetQtyInTransit (Base)"; Decimal) { AutoFormatType = 0; - CalcFormula = sum("Transfer Line"."Qty. in Transit (Base)" where("Prod. Order No." = field("Prod. Order No."), - "Prod. Order Line No." = field("Prod. Order Line No."), - "Prod. Order Comp. Line No." = field("Line No."), - "Subcontr. Purch. Order No." = field("Purchase Order Filter"), - "Return Order" = const(true), + CalcFormula = sum("Transfer Line"."Qty. in Transit (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), + "Subc. Prod. Order Line No." = field("Prod. Order Line No."), + "Subc. Prod. Ord. Comp Line No." = field("Line No."), + "Subc. Purch. Order No." = field("Subc. Purchase Order Filter"), + "Subc. Return Order" = const(true), "Derived From Line No." = const(0))); Caption = 'Return Qty. in Transit (Base)'; DecimalPlaces = 0 : 5; @@ -112,11 +112,11 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon field(99001531; "RetQtyOnTransOrder (Base)"; Decimal) { AutoFormatType = 0; - CalcFormula = sum("Transfer Line"."Outstanding Qty. (Base)" where("Prod. Order No." = field("Prod. Order No."), - "Prod. Order Line No." = field("Prod. Order Line No."), - "Prod. Order Comp. Line No." = field("Line No."), - "Subcontr. Purch. Order No." = field("Purchase Order Filter"), - "Return Order" = const(true), + CalcFormula = sum("Transfer Line"."Outstanding Qty. (Base)" where("Subc. Prod. Order No." = field("Prod. Order No."), + "Subc. Prod. Order Line No." = field("Prod. Order Line No."), + "Subc. Prod. Ord. Comp Line No." = field("Line No."), + "Subc. Purch. Order No." = field("Subc. Purchase Order Filter"), + "Subc. Return Order" = const(true), "Derived From Line No." = const(0))); Caption = 'Return Qty. on Transfer Order (Base)'; DecimalPlaces = 0 : 5; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/MasterData/SubcItemJournalLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/MasterData/SubcItemJournalLineExt.TableExt.al index b2d023fecc..55d3d6ff29 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/MasterData/SubcItemJournalLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/MasterData/SubcItemJournalLineExt.TableExt.al @@ -12,37 +12,37 @@ tableextension 99001508 "Subc. Item Journal Line Ext." extends "Item Journal Lin AllowInCustomizations = AsReadOnly; fields { - field(99001510; "Prod. Order No."; Code[20]) + field(99001510; "Subc. Prod. Order No."; Code[20]) { - Caption = 'Prod. Order No.'; + Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; } - field(99001511; "Prod. Order Line No."; Integer) + field(99001511; "Subc. Prod. Order Line No."; Integer) { - Caption = 'Prod. Order Line No.'; + Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; } - field(99001512; "Subcontr. Purch. Order No."; Code[20]) + field(99001512; "Subc. Purch. Order No."; Code[20]) { - Caption = 'Subcontr. Purch. Order No.'; + Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order)); } - field(99001513; "Subcontr. PO Line No."; Integer) + field(99001513; "Subc. Purch. Order Line No."; Integer) { - Caption = 'Subcontr. Purch. Order Line No.'; + Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Purchase Line"."Line No." where("Document Type" = const(Order), - "Document No." = field("Subcontr. Purch. Order No.")); + "Document No." = field("Subc. Purch. Order No.")); } field(99001514; "Subc. Operation No."; Code[10]) { Caption = 'Operation No.'; DataClassification = CustomerContent; } - field(99001542; "Item Charge Sub. Assign."; Boolean) + field(99001542; "Subc. Item Charge Assign."; Boolean) { - Caption = 'Item Charge Subcontracting Assignment'; + Caption = 'Subc. Item Charge Assignment'; DataClassification = CustomerContent; } } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/MasterData/SubcVendor.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/MasterData/SubcVendor.TableExt.al index 88d94c8167..ded45cbd62 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/MasterData/SubcVendor.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/MasterData/SubcVendor.TableExt.al @@ -13,20 +13,20 @@ tableextension 99001507 "Subc. Vendor" extends Vendor AllowInCustomizations = AsReadOnly; fields { - field(99001515; "Subcontr. Location Code"; Code[10]) + field(99001515; "Subc. Location Code"; Code[10]) { Caption = 'Subcontracting Location Code'; DataClassification = CustomerContent; TableRelation = Location where("Use As In-Transit" = const(false)); } - field(99001516; "Linked to Work Center"; Boolean) + field(99001516; "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; "Work Center No."; Code[20]) + field(99001517; "Subc. Work Center No."; Code[20]) { Caption = 'Work Center No.'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseHeader.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseHeader.TableExt.al index afcd4d6e1b..fabf4981c4 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseHeader.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseHeader.TableExt.al @@ -19,7 +19,7 @@ tableextension 99001509 "Subc. Purchase Header" extends "Purchase Header" TableRelation = Location where("Use As In-Transit" = const(false)); ToolTip = 'Specifies the code for the location where the subcontracted items are stored for pickup and delivery.'; } - field(99001521; "Subcontracting Order"; Boolean) + field(99001521; "Subc. Order"; Boolean) { CalcFormula = exist("Purchase Line" where("Document Type" = const(Order), "Document No." = field("No."), diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseHeaderArch.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseHeaderArch.TableExt.al index 89f43c7849..771a5dd23f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseHeaderArch.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseHeaderArch.TableExt.al @@ -20,7 +20,7 @@ tableextension 99001511 "Subc. Purchase Header Arch" extends "Purchase Header Ar TableRelation = Location where("Use As In-Transit" = const(false)); ; } - field(99001521; "Subcontracting Order"; Boolean) + field(99001521; "Subc. Order"; Boolean) { CalcFormula = exist("Purchase Line" where("Document Type" = const(Order), "Document No." = field("No."), diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseLine.TableExt.al index 4a2001a08f..f80ec12375 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcPurchaseLine.TableExt.al @@ -82,7 +82,7 @@ tableextension 99001512 "Subc. Purchase Line" extends "Purchase Line" DataClassification = CustomerContent; Editable = false; } - field(99001550; "Whse. Outstanding Quantity"; Decimal) + field(99001550; "Subc.Whse.Outstanding Quantity"; Decimal) { AccessByPermission = TableData Location = R; AutoFormatType = 0; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/SubcItemLedgerEntry.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/SubcItemLedgerEntry.TableExt.al index d1e5763f8b..852f0a8820 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/SubcItemLedgerEntry.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/SubcItemLedgerEntry.TableExt.al @@ -12,37 +12,37 @@ tableextension 99001500 "Subc. Item Ledger Entry" extends "Item Ledger Entry" AllowInCustomizations = AsReadOnly; fields { - field(99001510; "Prod. Order No."; Code[20]) + field(99001510; "Subc. Prod. Order No."; Code[20]) { Caption = 'Prod. Order No.'; DataClassification = CustomerContent; } - field(99001511; "Prod. Order Line No."; Integer) + field(99001511; "Subc. Prod. Order Line No."; Integer) { Caption = 'Prod. Order Line No.'; DataClassification = CustomerContent; } - field(99001512; "Subcontr. Purch. Order No."; Code[20]) + field(99001512; "Subc. Purch. Order No."; Code[20]) { - Caption = 'Subcontr. Purch. Order No.'; + Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; TableRelation = "Purchase Header"."No." where("Document Type" = const(Order)); } - field(99001513; "Subcontr. PO Line No."; Integer) + field(99001513; "Subc. Purch. Order Line No."; Integer) { - Caption = 'Subcontr. Purch. Order Line No.'; + Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Purchase Line"."Line No." where("Document Type" = const(Order), - "Document No." = field("Subcontr. Purch. Order No.")); + "Document No." = field("Subc. Purch. Order No.")); } - field(99001514; "Operation No."; Code[10]) + field(99001514; "Subc. Operation No."; Code[10]) { - Caption = 'Operation No.'; + Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; } } keys { - key(Key99001500; "Prod. Order No.", "Prod. Order Line No.", "Subcontr. Purch. Order No.", "Subcontr. PO Line No.") { } + 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/Process/Tableextensions/Transfer/SubcTransferLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferLine.TableExt.al index 5f58e23f24..0223ff83e2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferLine.TableExt.al @@ -14,58 +14,58 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(99001530; "Subc. Purch. Order No."; Code[20]) { - Caption = 'Subcontr. Purch. Order No.'; + Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; ToolTip = 'Specifies the number of the related purchase order.'; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(99001531; "Subc. Purch. Order Line No."; Integer) { - Caption = 'Subcontr. Purch. Order Line No.'; + Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; ToolTip = 'Specifies the number of the related purchase order line.'; } - field(99001532; "Prod. Order No."; Code[20]) + field(99001532; "Subc. Prod. Order No."; Code[20]) { - Caption = 'Prod. Order No.'; + 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; "Prod. Order Line No."; Integer) + field(99001533; "Subc. Prod. Order Line No."; Integer) { - Caption = 'Prod. Order Line No.'; + Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), - "Prod. Order No." = field("Prod. Order No.")); + "Prod. Order No." = field("Subc. Prod. Order No.")); ToolTip = 'Specifies the number of the related production order line.'; } - field(99001534; "Prod. Order Comp. Line No."; Integer) + field(99001534; "Subc. Prod. Ord. Comp Line No."; Integer) { - Caption = 'Prod. Order Comp. Line No.'; + Caption = 'Subc. Prod. Order Comp. Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Component"."Line No." where(Status = const(Released), - "Prod. Order No." = field("Prod. Order No."), - "Prod. Order Line No." = field("Prod. Order Line No.")); + "Prod. Order No." = field("Subc. Prod. Order No."), + "Prod. Order Line No." = field("Subc. Prod. Order Line No.")); ToolTip = 'Specifies the line number of the related production order component line.'; } - field(99001535; "Routing No."; Code[20]) + field(99001535; "Subc. Routing No."; Code[20]) { - Caption = 'Routing No.'; + Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; ToolTip = 'Specifies the number of the related production routing.'; } - field(99001536; "Routing Reference No."; Integer) + field(99001536; "Subc. Routing Reference No."; Integer) { - Caption = 'Routing Reference No.'; + Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; ToolTip = 'Specifies the number of the related production routing reference no.'; } - field(99001537; "Work Center No."; Code[20]) + field(99001537; "Subc. Work Center No."; Code[20]) { - Caption = 'Work Center No.'; + Caption = 'Subc. Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; ToolTip = 'Specifies the number of the related production work center.'; @@ -73,25 +73,25 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" var WorkCenter: Record "Work Center"; begin - if "Work Center No." = '' then + if "Subc. Work Center No." = '' then exit; - WorkCenter.Get("Work Center No."); + WorkCenter.Get("Subc. Work Center No."); "Gen. Prod. Posting Group" := WorkCenter."Gen. Prod. Posting Group"; end; } - field(99001538; "Operation No."; Code[10]) + field(99001538; "Subc. Operation No."; Code[10]) { - Caption = 'Operation No.'; + Caption = 'Subc.Operation No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Routing Line"."Operation No." where(Status = const(Released), - "Prod. Order No." = field("Prod. Order No."), - "Routing No." = field("Routing No.")); + "Prod. Order No." = field("Subc. Prod. Order No."), + "Routing No." = field("Subc. Routing No.")); ToolTip = 'Specifies the number of the related production operation no.'; } - field(99001539; "Return Order"; Boolean) + field(99001539; "Subc. Return Order"; Boolean) { - Caption = 'Return Order'; + Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; ToolTip = 'Specifies whether the existing transfer order is a return of the subcontractor.'; @@ -99,10 +99,10 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" } keys { - key(Key99001500; "Subcontr. Purch. Order No.", "Subcontr. PO Line No.", "Prod. Order No.", "Prod. Order Line No.", "Prod. Order Comp. Line No.") { } - key(Key99001501; "Prod. Order No.", "Routing No.", "Routing Reference No.", "Operation No.", "Subcontr. Purch. Order No.") { } - key(Key99001502; "Subcontr. Purch. Order No.", "Prod. Order No.", "Prod. Order Line No.", "Operation No.") { } - key(Key99001503; "Prod. Order No.", "Prod. Order Line No.", "Routing Reference No.", "Routing No.", "Operation No.") { } - key(Key99001504; "Prod. Order No.", "Prod. Order Line No.", "Prod. Order Comp. Line No.", "Subcontr. Purch. Order No.", "Return Order") { } + key(Key99001500; "Subc. Purch. Order No.", "Subc. Purch. Order Line No.", "Subc. Prod. Order No.", "Subc. Prod. Order Line No.", "Subc. Prod. Ord. Comp Line No.") { } + key(Key99001501; "Subc. Prod. Order No.", "Subc. Routing No.", "Subc. Routing Reference No.", "Subc. Operation No.", "Subc. Purch. Order No.") { } + key(Key99001502; "Subc. Purch. Order No.", "Subc. Prod. Order No.", "Subc. Prod. Order Line No.", "Subc. Operation No.") { } + key(Key99001503; "Subc. Prod. Order No.", "Subc. Prod. Order Line No.", "Subc. Routing Reference No.", "Subc. Routing No.", "Subc. Operation No.") { } + key(Key99001504; "Subc. Prod. Order No.", "Subc. Prod. Order Line No.", "Subc. Prod. Ord. Comp Line No.", "Subc. Purch. Order No.", "Subc. Return Order") { } } } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferRcptLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferRcptLineExt.TableExt.al index d7930c412e..dcfb99bc7c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferRcptLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferRcptLineExt.TableExt.al @@ -14,65 +14,65 @@ tableextension 99001518 "Subc. Transfer Rcpt. Line Ext" extends "Transfer Receip AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(99001530; "Subc. Purch. Order No."; Code[20]) { - Caption = 'Subcontr. Purch. Order No.'; + Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(99001531; "Subc. Purch. Order Line No."; Integer) { - Caption = 'Subcontr. Purch. Order Line No.'; + Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(99001532; "Prod. Order No."; Code[20]) + field(99001532; "Subc. Prod. Order No."; Code[20]) { - Caption = 'Prod. Order No.'; + Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001533; "Prod. Order Line No."; Integer) + field(99001533; "Subc. Prod. Order Line No."; Integer) { - Caption = 'Prod. Order Line No.'; + Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), - "Prod. Order No." = field("Prod. Order No.")); + "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(99001534; "Prod. Order Comp. Line No."; Integer) + field(99001534; "Subc. Prod. Ord. Comp Line No."; Integer) { - Caption = 'Prod. Order Comp. Line No.'; + Caption = 'Subc. Prod. Ord. Comp Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Component"."Line No." where(Status = const(Released), - "Prod. Order No." = field("Prod. Order No."), - "Prod. Order Line No." = field("Prod. Order Line No.")); + "Prod. Order No." = field("Subc. Prod. Order No."), + "Prod. Order Line No." = field("Subc. Prod. Order Line No.")); } - field(99001535; "Routing No."; Code[20]) + field(99001535; "Subc. Routing No."; Code[20]) { - Caption = 'Routing No.'; + Caption = 'Subc. Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(99001536; "Routing Reference No."; Integer) + field(99001536; "Subc. Routing Reference No."; Integer) { - Caption = 'Routing Reference No.'; + Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; } - field(99001537; "Work Center No."; Code[20]) + field(99001537; "Subc. Work Center No."; Code[20]) { - Caption = 'Work Center No.'; + Caption = 'Subc. Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; } - field(99001538; "Operation No."; Code[10]) + field(99001538; "Subc. Operation No."; Code[10]) { - Caption = 'Operation No.'; + Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Routing Line"."Operation No." where(Status = const(Released), - "Prod. Order No." = field("Prod. Order No."), - "Routing No." = field("Routing No.")); + "Prod. Order No." = field("Subc. Prod. Order No."), + "Routing No." = field("Subc. Routing No.")); } - field(99001539; "Return Order"; Boolean) + field(99001539; "Subc. Return Order"; Boolean) { - Caption = 'Return Order'; + Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferShptLineExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferShptLineExt.TableExt.al index 2fc8b960b4..02d62056ec 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferShptLineExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferShptLineExt.TableExt.al @@ -14,65 +14,65 @@ tableextension 99001519 "Subc. Transfer Shpt. Line Ext" extends "Transfer Shipme AllowInCustomizations = AsReadOnly; fields { - field(99001530; "Subcontr. Purch. Order No."; Code[20]) + field(99001530; "Subc. Purch. Order No."; Code[20]) { - Caption = 'Subcontr. Purch. Order No.'; + Caption = 'Subc. Purch. Order No.'; DataClassification = CustomerContent; } - field(99001531; "Subcontr. PO Line No."; Integer) + field(99001531; "Subc. Purch. Order Line No."; Integer) { - Caption = 'Subcontr. Purch. Order Line No.'; + Caption = 'Subc. Purch. Order Line No.'; DataClassification = CustomerContent; } - field(99001532; "Prod. Order No."; Code[20]) + field(99001532; "Subc. Prod. Order No."; Code[20]) { - Caption = 'Prod. Order No.'; + Caption = 'Subc. Prod. Order No.'; DataClassification = CustomerContent; TableRelation = "Production Order"."No." where(Status = const(Released)); } - field(99001533; "Prod. Order Line No."; Integer) + field(99001533; "Subc. Prod. Order Line No."; Integer) { - Caption = 'Prod. Order Line No.'; + Caption = 'Subc. Prod. Order Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Line"."Line No." where(Status = const(Released), - "Prod. Order No." = field("Prod. Order No.")); + "Prod. Order No." = field("Subc. Prod. Order No.")); } - field(99001534; "Prod. Order Comp. Line No."; Integer) + field(99001534; "Subc. Prod. Ord. Comp Line No."; Integer) { - Caption = 'Prod. Order Comp. Line No.'; + Caption = 'Subc. Prod. Ord. Comp Line No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Component"."Line No." where(Status = const(Released), - "Prod. Order No." = field("Prod. Order No."), - "Prod. Order Line No." = field("Prod. Order Line No.")); + "Prod. Order No." = field("Subc. Prod. Order No."), + "Prod. Order Line No." = field("Subc. Prod. Order Line No.")); } - field(99001535; "Routing No."; Code[20]) + field(99001535; "Subc. Routing No."; Code[20]) { Caption = 'Routing No.'; DataClassification = CustomerContent; TableRelation = "Routing Header"; } - field(99001536; "Routing Reference No."; Integer) + field(99001536; "Subc. Routing Reference No."; Integer) { - Caption = 'Routing Reference No.'; + Caption = 'Subc. Routing Reference No.'; DataClassification = CustomerContent; } - field(99001537; "Work Center No."; Code[20]) + field(99001537; "Subc. Work Center No."; Code[20]) { - Caption = 'Work Center No.'; + Caption = 'Subc. Work Center No.'; DataClassification = CustomerContent; TableRelation = "Work Center"; } - field(99001538; "Operation No."; Code[10]) + field(99001538; "Subc. Operation No."; Code[10]) { - Caption = 'Operation No.'; + Caption = 'Subc. Operation No.'; DataClassification = CustomerContent; TableRelation = "Prod. Order Routing Line"."Operation No." where(Status = const(Released), - "Prod. Order No." = field("Prod. Order No."), - "Routing No." = field("Routing No.")); + "Prod. Order No." = field("Subc. Prod. Order No."), + "Routing No." = field("Subc. Routing No.")); } - field(99001539; "Return Order"; Boolean) + field(99001539; "Subc. Return Order"; Boolean) { - Caption = 'Return Order'; + Caption = 'Subc. Return Order'; DataClassification = CustomerContent; Editable = false; } diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcCreateProdOrdWizLibrary.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcCreateProdOrdWizLibrary.Codeunit.al index 3ce9cdaf20..7940554fa8 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcCreateProdOrdWizLibrary.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcCreateProdOrdWizLibrary.Codeunit.al @@ -99,7 +99,7 @@ codeunit 139986 "Subc. CreateProdOrdWizLibrary" // Create vendor with subcontracting location LibraryPurchase.CreateVendor(Vendor); - Vendor."Subcontr. Location Code" := VendorLocation.Code; + Vendor."Subc. Location Code" := VendorLocation.Code; Vendor.Modify(); // Create purchase order with purchase line diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcProdOrderCheckLib.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcProdOrderCheckLib.Codeunit.al index a936d516f5..dd21868fed 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcProdOrderCheckLib.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcProdOrderCheckLib.Codeunit.al @@ -77,7 +77,7 @@ codeunit 139987 "Subc. ProdOrderCheckLib" Vendor: Record Vendor; begin if Vendor.Get(VendorNo) then - exit(Vendor."Subcontr. Location Code"); + exit(Vendor."Subc. Location Code"); exit(''); end; diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcWarehouseLibrary.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcWarehouseLibrary.Codeunit.al index 80c54993df..7900187e61 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcWarehouseLibrary.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcWarehouseLibrary.Codeunit.al @@ -66,10 +66,10 @@ codeunit 149908 "Subc. Warehouse Library" if Subcontracting then begin LibraryPurchase.CreateSubcontractor(Vendor1); - Vendor1."Subcontr. Location Code" := LibraryWarehouse.CreateLocation(Location); + Vendor1."Subc. Location Code" := LibraryWarehouse.CreateLocation(Location); Vendor1.Modify(true); LibraryPurchase.CreateSubcontractor(Vendor2); - Vendor2."Subcontr. Location Code" := LibraryWarehouse.CreateLocation(Location); + Vendor2."Subc. Location Code" := LibraryWarehouse.CreateLocation(Location); Vendor2.Modify(true); end; @@ -801,7 +801,7 @@ codeunit 149908 "Subc. Warehouse Library" // Configure vendor with location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcLocationHandlerTest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcLocationHandlerTest.Codeunit.al index 83d2f29766..4014551d39 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcLocationHandlerTest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcLocationHandlerTest.Codeunit.al @@ -413,7 +413,7 @@ codeunit 139981 "Subc. Location Handler Test" // [GIVEN] Transfer-type Prod. Order Component Location Code equals the vendor's Subcontracting Location Code Vendor.Get(WorkCenter[2]."Subcontractor No."); - SetTransferProdOrderCompLocationCode(ProductionOrder."No.", Vendor."Subcontr. Location Code"); + SetTransferProdOrderCompLocationCode(ProductionOrder."No.", Vendor."Subc. Location Code"); // [WHEN] Create Subcontracting Order from Prod. Order Routing; the user declines the "anyway" confirmation ProdOrderRoutingLine.SetRange("Routing No.", Item."Routing No."); @@ -466,7 +466,7 @@ codeunit 139981 "Subc. Location Handler Test" // [GIVEN] Vendor with Subcontractor Location if Vendor."No." = '' then begin LibraryPurchase.CreateVendor(Vendor); - Vendor."Subcontr. Location Code" := LocationSub.Code; + Vendor."Subc. Location Code" := LocationSub.Code; Vendor.Modify(); end; @@ -487,7 +487,7 @@ codeunit 139981 "Subc. Location Handler Test" ProdOrderComp.Validate("Quantity per", 1); ProdOrderComp."Location Code" := CompLocationCode; if CompOrigLocationCode <> '' then - ProdOrderComp."Orig. Location Code" := CompOrigLocationCode; + ProdOrderComp."Subc. Original Location Code" := CompOrigLocationCode; ProdOrderComp."Subcontracting Type" := ProdOrderComp."Subcontracting Type"::Transfer; ProdOrderComp."Routing Link Code" := RoutingLink.Code; ProdOrderComp.Modify(); @@ -551,7 +551,7 @@ codeunit 139981 "Subc. Location Handler Test" begin LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); Vendor.Get(WorkCenter."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcPurchSubcontTest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcPurchSubcontTest.Codeunit.al index ee30b02c04..6f075d2233 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcPurchSubcontTest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcPurchSubcontTest.Codeunit.al @@ -85,14 +85,14 @@ codeunit 139991 "Subc. Purch. Subcont. Test" SubcontractingMgmtLibrary.CreateSubContractingPrice(SubcontractorPrices, WorkCenter."No.", Vendor."No.", ItemNo, '', '', WorkDate(), '', 0, Vendor."Currency Code"); SubcontractorPrices."Direct Unit Cost" := 99; SubcontractorPrices.Modify(); - Vendor."Subcontr. Location Code" := Location2.Code; + Vendor."Subc. Location Code" := Location2.Code; Vendor.Modify(); LibraryPurchase.CreateVendor(Vendor); SubcontractingMgmtLibrary.CreateSubContractingPrice(SubcontractorPrices2, WorkCenter."No.", Vendor."No.", ItemNo, '', '', WorkDate(), '', 0, Vendor."Currency Code"); SubcontractorPrices2."Direct Unit Cost" := 11; SubcontractorPrices2.Modify(); - Vendor."Subcontr. Location Code" := Location2.Code; + Vendor."Subc. Location Code" := Location2.Code; Vendor.Modify(); LibraryPurchase.CreatePurchaseOrderWithLocation(PurchaseHeader, Vendor."No.", Location.Code); @@ -168,7 +168,7 @@ codeunit 139991 "Subc. Purch. Subcont. Test" SubcontractingMgmtLibrary.CreateSubContractingPrice(SubcontractorPrices2, WorkCenter."No.", Vendor."No.", ItemNo, '', ItemVariant.Code, WorkDate(), '', 0, Vendor."Currency Code"); SubcontractorPrices2."Direct Unit Cost" := 11; SubcontractorPrices2.Modify(); - Vendor."Subcontr. Location Code" := Location2.Code; + Vendor."Subc. Location Code" := Location2.Code; Vendor.Modify(); SubcontractingMgmtLibrary.CreateSubContractingPrice(SubcontractorPrices2, WorkCenter."No.", Vendor."No.", ItemNo, '', '', WorkDate(), '', 0, Vendor."Currency Code"); @@ -240,7 +240,7 @@ codeunit 139991 "Subc. Purch. Subcont. Test" LibraryWarehouse.CreateLocation(Location); LibraryWarehouse.CreateLocation(Location2); LibraryPurchase.CreateVendor(Vendor); - Vendor."Subcontr. Location Code" := Location2.Code; + Vendor."Subc. Location Code" := Location2.Code; Vendor.Modify(); LibraryPurchase.CreatePurchaseOrderWithLocation(PurchaseHeader, Vendor."No.", Location.Code); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingSyncTest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingSyncTest.Codeunit.al index 015db95dfb..d42aebc8c0 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingSyncTest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingSyncTest.Codeunit.al @@ -139,7 +139,7 @@ codeunit 139992 "Subc. Subcontracting Sync Test" LibraryWarehouse.CreateLocation(Location); LibraryWarehouse.CreateLocation(Location2); LibraryPurchase.CreateVendor(Vendor); - Vendor."Subcontr. Location Code" := Location2.Code; + Vendor."Subc. Location Code" := Location2.Code; Vendor.Modify(); LibraryPurchase.CreatePurchaseOrderWithLocation(PurchaseHeader, Vendor."No.", Location.Code); LibraryPurchase.CreatePurchaseLine(PurchLine, PurchaseHeader, "Purchase Line Type"::Item, LibraryInventory.CreateItemNo(), LibraryRandom.RandInt(100)); @@ -359,7 +359,7 @@ codeunit 139992 "Subc. Subcontracting Sync Test" begin LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); Vendor.Get(WorkCenter."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al index c4ad2d65d1..4089366451 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al @@ -406,7 +406,7 @@ codeunit 139989 "Subc. Subcontracting Test" #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); Assert.RecordIsNotEmpty(TransferLine); @@ -484,9 +484,9 @@ codeunit 139989 "Subc. Subcontracting Test" PurchaseHeaderPage.GoToRecord(PurchaseHeader); PurchaseHeaderPage.CreateTransfOrdToSubcontractor.Invoke(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); - TransferLine.SetRange("Prod. Order Comp. Line No.", ProdOrderComp."Line No."); + TransferLine.SetRange("Subc. Prod. Ord. Comp Line No.", ProdOrderComp."Line No."); TransferLine.FindFirst(); TransferHeader.Get(TransferLine."Document No."); @@ -573,9 +573,9 @@ codeunit 139989 "Subc. Subcontracting Test" PurchaseHeaderPage.GoToRecord(PurchaseHeader); PurchaseHeaderPage.CreateTransfOrdToSubcontractor.Invoke(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); - TransferLine.SetRange("Prod. Order Comp. Line No.", ProdOrderComp."Line No."); + TransferLine.SetRange("Subc. Prod. Ord. Comp Line No.", ProdOrderComp."Line No."); TransferLine.FindFirst(); TransferHeader.Get(TransferLine."Document No."); @@ -663,9 +663,9 @@ codeunit 139989 "Subc. Subcontracting Test" #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); - TransferLine.SetRange("Prod. Order Comp. Line No.", ProdOrderComp."Line No."); + TransferLine.SetRange("Subc. Prod. Ord. Comp Line No.", ProdOrderComp."Line No."); TransferLine.FindFirst(); TransferHeader.SetRange("No.", TransferLine."Document No."); @@ -699,9 +699,9 @@ codeunit 139989 "Subc. Subcontracting Test" #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); - TransferLine.SetRange("Prod. Order Comp. Line No.", ProdOrderComp."Line No."); + TransferLine.SetRange("Subc. Prod. Ord. Comp Line No.", ProdOrderComp."Line No."); TransferLine.FindFirst(); TransferHeader.SetRange("No.", TransferLine."Document No."); @@ -808,7 +808,7 @@ codeunit 139989 "Subc. Subcontracting Test" Vendor.Get(WorkCenter[2]."Subcontractor No."); WorkCenter2 := WorkCenter[2]; WorkCenter2."Subcontractor No." := Vendor."No."; - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -950,7 +950,7 @@ codeunit 139989 "Subc. Subcontracting Test" Vendor.Get(WorkCenter[2]."Subcontractor No."); WorkCenter2 := WorkCenter[2]; WorkCenter2."Subcontractor No." := Vendor."No."; - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -1186,7 +1186,7 @@ codeunit 139989 "Subc. Subcontracting Test" #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); Assert.RecordIsNotEmpty(TransferLine); @@ -1273,7 +1273,7 @@ codeunit 139989 "Subc. Subcontracting Test" #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); TransferLine.FindFirst(); @@ -1359,7 +1359,7 @@ codeunit 139989 "Subc. Subcontracting Test" #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); TransferLine.FindFirst(); @@ -1453,7 +1453,7 @@ Comment = '|%1 = Transfer Order No.'; #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); Assert.RecordIsNotEmpty(TransferLine); @@ -1696,7 +1696,7 @@ Comment = '|%1 = Transfer Order No.'; // [THEN] Assert.Equal(ProductionBOMLine."Subcontracting Type", PlanningComponent."Subcontracting Type"); Vendor.Get(WorkCenter[2]."Subcontractor No."); - Assert.Equal(Vendor."Subcontr. Location Code", PlanningComponent."Location Code"); + Assert.Equal(Vendor."Subc. Location Code", PlanningComponent."Location Code"); end; [Test] @@ -1794,13 +1794,13 @@ Comment = '|%1 = Transfer Order No.'; ItemLedgerEntry.FindFirst(); Assert.AreEqual( - PurchaseHeader."No.", ItemLedgerEntry."Subcontr. Purch. Order No.", + PurchaseHeader."No.", ItemLedgerEntry."Subc. Purch. Order Line No.", 'Item Ledger Entry "Subcontr. Purch. Order No." should equal the originating subcontracting purchase order.'); Assert.AreEqual( - PurchaseLine."Line No.", ItemLedgerEntry."Subcontr. PO Line No.", + PurchaseLine."Line No.", ItemLedgerEntry."Subc. Purch. Order Line No.", 'Item Ledger Entry "Subcontr. PO Line No." should equal the originating subcontracting purchase line.'); Assert.AreEqual( - PurchaseLine."Operation No.", ItemLedgerEntry."Operation No.", + PurchaseLine."Operation No.", ItemLedgerEntry."Subc. Operation No.", 'Item Ledger Entry "Operation No." (Subc) should equal the originating purchase line operation.'); end; @@ -2087,7 +2087,7 @@ Comment = '|%1 = Transfer Order No.'; #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); TransferLine.FindFirst(); TransferHeader.Get(TransferLine."Document No."); @@ -2169,9 +2169,9 @@ Comment = '|%1 = Transfer Order No.'; #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); - TransferLine.SetRange("Prod. Order Comp. Line No.", ProdOrderComp."Line No."); + TransferLine.SetRange("Subc. Prod. Ord. Comp Line No.", ProdOrderComp."Line No."); TransferLine.FindFirst(); TransferHeader.Get(TransferLine."Document No."); @@ -2268,9 +2268,9 @@ Comment = '|%1 = Transfer Order No.'; #pragma warning restore AA0210 ProdOrderComp.FindFirst(); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Item No.", ProdOrderComp."Item No."); - TransferLine.SetRange("Prod. Order Comp. Line No.", ProdOrderComp."Line No."); + TransferLine.SetRange("Subc. Prod. Ord. Comp Line No.", ProdOrderComp."Line No."); TransferLine.FindFirst(); TransferHeader.Get(TransferLine."Document No."); @@ -2670,7 +2670,7 @@ Comment = '|%1 = Transfer Order No.'; begin LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); Vendor.Get(WorkCenter."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -2721,7 +2721,7 @@ Comment = '|%1 = Transfer Order No.'; Vendor.Get(WorkCenter[2]."Subcontractor No."); WorkCenter2 := WorkCenter[2]; WorkCenter2."Subcontractor No." := Vendor."No."; - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -2969,7 +2969,7 @@ Comment = '|%1 = Transfer Order No.'; #pragma warning restore AA0210 ProdOrderComp.FindFirst(); LibraryWarehouse.CreateInTransitLocation(TransitLocation); - LibraryWarehouse.CreateAndUpdateTransferRoute(TransferRoute, ProdOrderComp."Location Code", Vendor."Subcontr. Location Code", TransitLocation.Code, '', ''); + LibraryWarehouse.CreateAndUpdateTransferRoute(TransferRoute, ProdOrderComp."Location Code", Vendor."Subc. Location Code", TransitLocation.Code, '', ''); end; local procedure UpdateManufacturingSetupWithSubcontractingLocation() diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingUITest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingUITest.Codeunit.al index a5a429adb1..8342faa3bc 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingUITest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingUITest.Codeunit.al @@ -86,11 +86,11 @@ codeunit 139990 "Subc. Subcontracting UI Test" // [WHEN] Find Control on Page PageControl.SetRange(TableNo, Database::"Purchase Header"); PageControl.SetRange(PageNo, Page::"Purchase Order"); - PageControl.SetRange(FieldNo, PurchHeader.FieldNo("Subcontracting Order")); + PageControl.SetRange(FieldNo, PurchHeader.FieldNo("Subc. Order")); ControlExist := not PageControl.IsEmpty(); // [THEN] - Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, PurchHeader.FieldCaption("Subcontracting Order"))); + Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, PurchHeader.FieldCaption("Subc. Order"))); end; [Test] @@ -109,11 +109,11 @@ codeunit 139990 "Subc. Subcontracting UI Test" // [WHEN] Find Control on Page PageControl.SetRange(TableNo, Database::Vendor); PageControl.SetRange(PageNo, Page::"Vendor Card"); - PageControl.SetRange(FieldNo, Vendor.FieldNo("Subcontr. Location Code")); + PageControl.SetRange(FieldNo, Vendor.FieldNo("Subc. Location Code")); ControlExist := not PageControl.IsEmpty(); // [THEN] - Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, Vendor.FieldCaption("Subcontr. Location Code"))); + Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, Vendor.FieldCaption("Subc. Location Code"))); end; [Test] @@ -132,11 +132,11 @@ codeunit 139990 "Subc. Subcontracting UI Test" // [WHEN] Find Control on Page PageControl.SetRange(TableNo, Database::Vendor); PageControl.SetRange(PageNo, Page::"Vendor Card"); - PageControl.SetRange(FieldNo, Vendor.FieldNo("Linked to Work Center")); + PageControl.SetRange(FieldNo, Vendor.FieldNo("Subc. Linked to Work Center")); ControlExist := not PageControl.IsEmpty(); // [THEN] - Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, Vendor.FieldCaption("Linked to Work Center"))); + Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, Vendor.FieldCaption("Subc. Linked to Work Center"))); end; [Test] diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseCombinedScenarios.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseCombinedScenarios.Codeunit.al index b3dc7ce5d8..5f3abb89cb 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseCombinedScenarios.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseCombinedScenarios.Codeunit.al @@ -129,7 +129,7 @@ codeunit 149906 "Subc. Whse Combined Scenarios" // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[1]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -282,12 +282,12 @@ codeunit 149906 "Subc. Whse Combined Scenarios" // [GIVEN] Configure Vendors with Subcontracting Location Vendor1.Get(WorkCenter[1]."Subcontractor No."); - Vendor1."Subcontr. Location Code" := Location.Code; + Vendor1."Subc. Location Code" := Location.Code; Vendor1."Location Code" := Location.Code; Vendor1.Modify(); Vendor2.Get(WorkCenter[2]."Subcontractor No."); - Vendor2."Subcontr. Location Code" := Location.Code; + Vendor2."Subc. Location Code" := Location.Code; Vendor2."Location Code" := Location.Code; Vendor2.Modify(); @@ -427,7 +427,7 @@ codeunit 149906 "Subc. Whse Combined Scenarios" // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseDataIntegrity.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseDataIntegrity.Codeunit.al index 7604caa348..7dffaa8079 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseDataIntegrity.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseDataIntegrity.Codeunit.al @@ -92,7 +92,7 @@ codeunit 149909 "Subc. Whse Data Integrity" SubcWarehouseLibrary.CreateLocationWithWarehouseHandling(Location); Vendor.Get(WorkCenter[1]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -145,7 +145,7 @@ codeunit 149909 "Subc. Whse Data Integrity" SubcWarehouseLibrary.CreateLocationWithWarehouseHandling(Location); Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -203,7 +203,7 @@ codeunit 149909 "Subc. Whse Data Integrity" SubcWarehouseLibrary.CreateLocationWithWarehouseHandling(Location); Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -260,7 +260,7 @@ codeunit 149909 "Subc. Whse Data Integrity" SubcWarehouseLibrary.CreateLocationWithWarehouseHandling(Location); Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -339,7 +339,7 @@ codeunit 149909 "Subc. Whse Data Integrity" // [GIVEN] Configure Vendor Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseItemTracking.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseItemTracking.Codeunit.al index d552867807..bb451fb25b 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseItemTracking.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseItemTracking.Codeunit.al @@ -127,7 +127,7 @@ codeunit 149905 "Subc. Whse Item Tracking" // [GIVEN] Update Vendor with Subcontracting Location Code Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -250,7 +250,7 @@ codeunit 149905 "Subc. Whse Item Tracking" // [GIVEN] Update Vendor with Subcontracting Location Code Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -368,7 +368,7 @@ codeunit 149905 "Subc. Whse Item Tracking" // [GIVEN] Update Vendor with Subcontracting Location Code Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -492,7 +492,7 @@ codeunit 149905 "Subc. Whse Item Tracking" // [GIVEN] Update Vendor with Subcontracting Location Code Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseLocationConfig.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseLocationConfig.Codeunit.al index 6b868b25e3..a8d1cb3d14 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseLocationConfig.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseLocationConfig.Codeunit.al @@ -115,7 +115,7 @@ codeunit 149907 "Subc. Whse Location Config" // [GIVEN] Configure Vendor with Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -239,7 +239,7 @@ codeunit 149907 "Subc. Whse Location Config" // [GIVEN] Configure Vendor with Location (using first work center for non-last operation) Vendor.Get(WorkCenter[1]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -330,7 +330,7 @@ codeunit 149907 "Subc. Whse Location Config" // [GIVEN] Configure Vendor Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -412,7 +412,7 @@ codeunit 149907 "Subc. Whse Location Config" // [GIVEN] Configure Vendor (using first work center for non-last operation) Vendor.Get(WorkCenter[1]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseNonLastOp.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseNonLastOp.Codeunit.al index f9bb144670..6d2dd26f86 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseNonLastOp.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseNonLastOp.Codeunit.al @@ -126,7 +126,7 @@ codeunit 149903 "Subc. Whse Non-Last Op." // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[1]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -245,7 +245,7 @@ codeunit 149903 "Subc. Whse Non-Last Op." // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[1]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -352,7 +352,7 @@ codeunit 149903 "Subc. Whse Non-Last Op." // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[1]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -496,7 +496,7 @@ codeunit 149903 "Subc. Whse Non-Last Op." // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[1]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -572,7 +572,7 @@ codeunit 149903 "Subc. Whse Non-Last Op." // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[1]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePartialLastOp.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePartialLastOp.Codeunit.al index ec111eb910..d5eecde1b3 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePartialLastOp.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePartialLastOp.Codeunit.al @@ -123,7 +123,7 @@ codeunit 149902 "Subc. Whse Partial Last Op" // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -214,7 +214,7 @@ codeunit 149902 "Subc. Whse Partial Last Op" // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -310,7 +310,7 @@ codeunit 149902 "Subc. Whse Partial Last Op" // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -437,7 +437,7 @@ codeunit 149902 "Subc. Whse Partial Last Op" // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePutAwayLastOp.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePutAwayLastOp.Codeunit.al index 66d0f397f9..41cd31c888 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePutAwayLastOp.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePutAwayLastOp.Codeunit.al @@ -110,7 +110,7 @@ codeunit 149901 "Subc. Whse Put-Away LastOp." // [GIVEN] Configure Vendor Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := LibraryWarehouse.CreateLocationWithInventoryPostingSetup(VendorLocation); Vendor.Modify(); @@ -213,7 +213,7 @@ codeunit 149901 "Subc. Whse Put-Away LastOp." // [GIVEN] Configure Vendor Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := LibraryWarehouse.CreateLocationWithInventoryPostingSetup(VendorLocation); Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePutAwayWorksheet.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePutAwayWorksheet.Codeunit.al index 7b6add4eae..f8f8ef98f2 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePutAwayWorksheet.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhsePutAwayWorksheet.Codeunit.al @@ -125,7 +125,7 @@ codeunit 149904 "Subc. Whse Put-Away Worksheet" // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseReceiptLastOp.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseReceiptLastOp.Codeunit.al index 592df9bcae..414acbb29a 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseReceiptLastOp.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWhseReceiptLastOp.Codeunit.al @@ -114,7 +114,7 @@ codeunit 149900 "Subc. Whse Receipt Last Op." // [GIVEN] Update Vendor with Subcontracting Location Code Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := Location.Code; Vendor.Modify(); @@ -219,7 +219,7 @@ codeunit 149900 "Subc. Whse Receipt Last Op." // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := LibraryWarehouse.CreateLocationWithInventoryPostingSetup(VendorLocation); Vendor.Modify(); @@ -338,7 +338,7 @@ codeunit 149900 "Subc. Whse Receipt Last Op." // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := LibraryWarehouse.CreateLocationWithInventoryPostingSetup(VendorLocation); Vendor.Modify(); @@ -505,7 +505,7 @@ codeunit 149900 "Subc. Whse Receipt Last Op." // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := LibraryWarehouse.CreateLocationWithInventoryPostingSetup(VendorLocation); Vendor.Modify(); @@ -616,7 +616,7 @@ codeunit 149900 "Subc. Whse Receipt Last Op." // [GIVEN] Configure Vendor with Subcontracting Location Vendor.Get(WorkCenter[2]."Subcontractor No."); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor."Location Code" := LibraryWarehouse.CreateLocationWithInventoryPostingSetup(VendorLocation); Vendor.Modify(); From b8f585e8b7116caa51357f756682c49fd82ba7a3 Mon Sep 17 00:00:00 2001 From: Sebastian Pinkow Date: Fri, 8 May 2026 19:46:33 +0200 Subject: [PATCH 2/7] Correct Test --- .../Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al index 4089366451..bdfe5b68e3 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al @@ -1794,7 +1794,7 @@ Comment = '|%1 = Transfer Order No.'; ItemLedgerEntry.FindFirst(); Assert.AreEqual( - PurchaseHeader."No.", ItemLedgerEntry."Subc. Purch. Order Line No.", + PurchaseHeader."No.", ItemLedgerEntry."Subc. Purch. Order No.", 'Item Ledger Entry "Subcontr. Purch. Order No." should equal the originating subcontracting purchase order.'); Assert.AreEqual( PurchaseLine."Line No.", ItemLedgerEntry."Subc. Purch. Order Line No.", From f8c58ee40761f59581704a2c266bca25eba0d625 Mon Sep 17 00:00:00 2001 From: Sebastian Pinkow Date: Tue, 12 May 2026 19:59:22 +0200 Subject: [PATCH 3/7] Add IT to pipeline --- build/projects/Apps (W1)/.AL-Go/settings.json | 1 + 1 file changed, 1 insertion(+) diff --git a/build/projects/Apps (W1)/.AL-Go/settings.json b/build/projects/Apps (W1)/.AL-Go/settings.json index 5c4cd13193..bc29c628d5 100644 --- a/build/projects/Apps (W1)/.AL-Go/settings.json +++ b/build/projects/Apps (W1)/.AL-Go/settings.json @@ -33,6 +33,7 @@ "GB", "IN", "IS", + "IT", "MX", "NL", "NO", From 44ffe93c3fe3354c595afbee7d33103ea59f5abe Mon Sep 17 00:00:00 2001 From: Sebastian Pinkow Date: Wed, 13 May 2026 10:27:20 +0200 Subject: [PATCH 4/7] Rename Additional fields --- .../SubcTransOrderPostRcptExt.Codeunit.al | 2 +- .../SubcTransOrderPostShptExt.Codeunit.al | 2 +- .../SubcTransOrderPostTransExt.Codeunit.al | 4 ++-- .../Transfer/SubcTransRcptHeaderExt.Codeunit.al | 4 ++-- .../Transfer/SubcTransShptHeaderExt.Codeunit.al | 4 ++-- .../Transfer/SubcTransferLineExt.Codeunit.al | 2 +- .../Codeunits/SubcPriceManagement.Codeunit.al | 8 ++++---- .../SubcSynchronizeManagement.Codeunit.al | 8 ++++---- .../Transfer/SubcPstdTransferRcpt.PageExt.al | 4 ++-- .../Transfer/SubcPstdTransferShpt.PageExt.al | 4 ++-- .../Transfer/SubcTransferOrder.PageExt.al | 8 ++++---- .../Pages/SubcSubcontractingWorksheet.Page.al | 6 +++--- .../Reports/SubcCreateSubCReturnOrder.Report.al | 6 +++--- .../Reports/SubcCreateTransfOrder.Report.al | 4 ++-- .../Purchase/SubcRequisitionLine.TableExt.al | 16 ++++++++-------- .../Transfer/SubcTransRcptHeaderExt.TableExt.al | 6 +++--- .../Transfer/SubcTransShptHeaderExt.TableExt.al | 6 +++--- .../Transfer/SubcTransferHeader.TableExt.al | 8 ++++---- .../Tests/SubcSubcontractingTest.Codeunit.al | 4 ++-- .../Tests/SubcSubcontractingUITest.Codeunit.al | 12 ++++++------ 20 files changed, 59 insertions(+), 59 deletions(-) diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostRcptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostRcptExt.Codeunit.al index 74c43f0d7c..d4e0f452c2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostRcptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostRcptExt.Codeunit.al @@ -17,7 +17,7 @@ codeunit 99001540 "Subc. TransOrderPostRcpt Ext" ItemJournalLine."Subc. Prod. Order No." := TransferReceiptLine."Subc. Prod. Order No."; ItemJournalLine."Subc. Prod. Order Line No." := TransferReceiptLine."Subc. Prod. Order Line No."; ItemJournalLine."Source No." := TransferReceiptHeader."Source ID"; - ItemJournalLine."Source Type" := TransferReceiptHeader."Source Type"; + ItemJournalLine."Source Type" := TransferReceiptHeader."Subc. Source Type"; ItemJournalLine."Prod. Order Comp. Line No." := TransferReceiptLine."Subc. Prod. Ord. Comp Line No."; ItemJournalLine."Subc. Purch. Order No." := TransferReceiptLine."Subc. Purch. Order No."; ItemJournalLine."Subc. Purch. Order Line No." := TransferReceiptLine."Subc. Purch. Order Line No."; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostShptExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostShptExt.Codeunit.al index e5a3829e44..e5c0f7f060 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostShptExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostShptExt.Codeunit.al @@ -15,7 +15,7 @@ codeunit 99001539 "Subc. TransOrderPostShpt Ext" ItemJournalLine."Subc. Prod. Order No." := TransferShipmentLine."Subc. Prod. Order No."; ItemJournalLine."Subc. Prod. Order Line No." := TransferShipmentLine."Subc. Prod. Order Line No."; ItemJournalLine."Source No." := TransferShipmentHeader."Source ID"; - ItemJournalLine."Source Type" := TransferShipmentHeader."Source Type"; + ItemJournalLine."Source Type" := TransferShipmentHeader."Subc. Source Type"; ItemJournalLine."Prod. Order Comp. Line No." := TransferShipmentLine."Subc. Prod. Ord. Comp Line No."; ItemJournalLine."Subc. Purch. Order No." := TransferShipmentLine."Subc. Purch. Order No."; ItemJournalLine."Subc. Purch. Order Line No." := TransferShipmentLine."Subc. Purch. Order Line No."; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostTransExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostTransExt.Codeunit.al index 3f27110bca..2e736d6611 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostTransExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransOrderPostTransExt.Codeunit.al @@ -28,10 +28,10 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" [EventSubscriber(ObjectType::Codeunit, Codeunit::"TransferOrder-Post Transfer", OnInsertDirectTransHeaderOnBeforeGetNextNo, '', false, false)] local procedure OnInsertDirectTransHeaderOnBeforeGetNextNo(var DirectTransHeader: Record "Direct Trans. Header"; TransferHeader: Record "Transfer Header") begin - DirectTransHeader."Source Type" := TransferHeader."Source Type"; + DirectTransHeader."Source Type" := TransferHeader."Subc. Source Type"; DirectTransHeader."Source ID" := TransferHeader."Source ID"; DirectTransHeader."Source Ref. No." := TransferHeader."Source Ref. No."; - DirectTransHeader."Return Order" := TransferHeader."Return Order"; + DirectTransHeader."Return Order" := TransferHeader."Subc. Return Order"; DirectTransHeader."Subcontr. Purch. Order No." := TransferHeader."Subcontr. Purch. Order No."; DirectTransHeader."Subcontr. PO Line No." := TransferHeader."Subcontr. PO Line No."; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransRcptHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransRcptHeaderExt.Codeunit.al index bb9bbbd539..0750593954 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransRcptHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransRcptHeaderExt.Codeunit.al @@ -11,11 +11,11 @@ codeunit 99001542 "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") begin - TransferReceiptHeader."Source Type" := TransferHeader."Source Type"; + TransferReceiptHeader."Subc. Source Type" := TransferHeader."Subc. Source Type"; TransferReceiptHeader."Source Subtype" := TransferHeader."Source Subtype"; TransferReceiptHeader."Source ID" := TransferHeader."Source ID"; TransferReceiptHeader."Source Ref. No." := TransferHeader."Source Ref. No."; - TransferReceiptHeader."Return Order" := TransferHeader."Return Order"; + TransferReceiptHeader."Subc. Return Order" := TransferHeader."Subc. Return Order"; TransferReceiptHeader."Subcontr. Purch. Order No." := TransferHeader."Subcontr. Purch. Order No."; TransferReceiptHeader."Subcontr. PO Line No." := TransferHeader."Subcontr. PO Line No."; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransShptHeaderExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransShptHeaderExt.Codeunit.al index 872b045c86..610f2eabcd 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransShptHeaderExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransShptHeaderExt.Codeunit.al @@ -11,11 +11,11 @@ codeunit 99001543 "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") begin - TransferShipmentHeader."Source Type" := TransferHeader."Source Type"; + TransferShipmentHeader."Subc. Source Type" := TransferHeader."Subc. Source Type"; TransferShipmentHeader."Source Subtype" := TransferHeader."Source Subtype"; TransferShipmentHeader."Source ID" := TransferHeader."Source ID"; TransferShipmentHeader."Source Ref. No." := TransferHeader."Source Ref. No."; - TransferShipmentHeader."Return Order" := TransferHeader."Return Order"; + TransferShipmentHeader."Subc. Return Order" := TransferHeader."Subc. Return Order"; TransferShipmentHeader."Subcontr. Purch. Order No." := TransferHeader."Subcontr. Purch. Order No."; TransferShipmentHeader."Subcontr. PO Line No." := TransferHeader."Subcontr. PO Line No."; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferLineExt.Codeunit.al index 2d598d963a..11524bfc08 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferLineExt.Codeunit.al @@ -11,7 +11,7 @@ codeunit 99001544 "Subc. Transfer Line Ext." [EventSubscriber(ObjectType::Table, Database::"Transfer Line", OnAfterGetTransHeader, '', false, false)] local procedure OnAfterGetTransHeader(var TransferLine: Record "Transfer Line"; TransferHeader: Record "Transfer Header") begin - TransferLine."Subc. Return Order" := TransferHeader."Return Order"; + TransferLine."Subc. Return Order" := TransferHeader."Subc. Return Order"; end; [EventSubscriber(ObjectType::Table, Database::"Transfer Line", OnAfterDeleteEvent, '', false, false)] diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPriceManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPriceManagement.Codeunit.al index f6eae35930..dfb07f0502 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPriceManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcPriceManagement.Codeunit.al @@ -416,7 +416,7 @@ codeunit 99001508 "Subc. Price Management" SubcontractorPrice.SetRange("Vendor No.", RequisitionLine."Vendor No."); SubcontractorPrice.SetFilter("Work Center No.", '%1|%2', RequisitionLine."Work Center No.", ''); - SubcontractorPrice.SetRange("Standard Task Code", RequisitionLine."Standard Task Code"); + SubcontractorPrice.SetRange("Standard Task Code", RequisitionLine."Subc. Standard Task Code"); SubcontractorPrice.SetRange("Variant Code", RequisitionLine."Variant Code"); SubcontractorPrice.SetFilter("Item No.", '%1|%2', RequisitionLine."No.", ''); SubcontractorPrice.SetRange("Starting Date", 0D, OrderDate); @@ -440,12 +440,12 @@ codeunit 99001508 "Subc. Price Management" ConvertPriceToCurrency(RequisitionLine."Currency Code", SubcontractorPrice."Currency Code", PriceListCost, DirectCost); end; RequisitionLine."Direct Unit Cost" := DirectCost; - RequisitionLine."Pricelist Cost" := PriceListCost; - RequisitionLine."UoM for Pricelist" := PriceListUOM; + RequisitionLine."Subc. Pricelist Cost" := PriceListCost; + RequisitionLine."Subc. UoM for Pricelist" := PriceListUOM; RequisitionLine."Base UM Qty/PL UM Qty" := PriceListQtyPerUOM; if RequisitionLine."Base UM Qty/PL UM Qty" = 0 then RequisitionLine."Base UM Qty/PL UM Qty" := 1; - if RequisitionLine."Unit of Measure Code" = RequisitionLine."UoM for Pricelist" then + if RequisitionLine."Unit of Measure Code" = RequisitionLine."Subc. UoM for Pricelist" then RequisitionLine."PL UM Qty/Base UM Qty" := RequisitionLine.Quantity else RequisitionLine."PL UM Qty/Base UM Qty" := RequisitionLine.GetQuantityBase() / RequisitionLine."Base UM Qty/PL UM Qty"; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcSynchronizeManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcSynchronizeManagement.Codeunit.al index b1bed7d5b7..7d983931e9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcSynchronizeManagement.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcSynchronizeManagement.Codeunit.al @@ -141,9 +141,9 @@ codeunit 99001511 "Subc. Synchronize Management" if not PurchaseLine2.IsEmpty() then PurchaseLine2.DeleteAll(true); - TransferHeader.SetCurrentKey("Source ID", "Source Type", "Source Subtype"); + TransferHeader.SetCurrentKey("Source ID", "Subc. Source Type", "Source Subtype"); TransferHeader.SetRange("Source ID", PurchaseHeader."Buy-from Vendor No."); - TransferHeader.SetRange("Source Type", "Transfer Source Type"::Subcontracting); + TransferHeader.SetRange("Subc. Source Type", "Transfer Source Type"::Subcontracting); TransferHeader.SetRange("Source Subtype", TransferHeader."Source Subtype"::"2"); TransferHeader.SetRange("Subcontr. Purch. Order No.", PurchaseHeader."No."); if not TransferHeader.IsEmpty() then begin @@ -191,9 +191,9 @@ codeunit 99001511 "Subc. Synchronize Management" if PurchaseLine2.FindSet() then PurchaseLine2.DeleteAll(true); - TransferHeader.SetCurrentKey("Source ID", "Source Type", "Source Subtype"); + TransferHeader.SetCurrentKey("Source ID", "Subc. Source Type", "Source Subtype"); TransferHeader.SetRange("Source ID", PurchaseLine."Buy-from Vendor No."); - TransferHeader.SetRange("Source Type", "Transfer Source Type"::Subcontracting); + TransferHeader.SetRange("Subc. Source Type", "Transfer Source Type"::Subcontracting); TransferHeader.SetRange("Source Subtype", TransferHeader."Source Subtype"::"2"); TransferHeader.SetRange("Subcontr. Purch. Order No.", PurchaseLine."Document No."); if not TransferHeader.IsEmpty() then begin diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdTransferRcpt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdTransferRcpt.PageExt.al index c2ffcda994..36918fb29e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdTransferRcpt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdTransferRcpt.PageExt.al @@ -12,7 +12,7 @@ pageextension 99001528 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Rece { addlast(General) { - field(SourceType; Rec."Source Type") + field("Subc. Source Type"; Rec."Subc. Source Type") { ApplicationArea = Location; Editable = false; @@ -40,7 +40,7 @@ pageextension 99001528 "Subc. Pstd. Transfer Rcpt" extends "Posted Transfer Rece ToolTip = 'Specifies a reference number for the line, which the transfer order is related to.'; Visible = false; } - field("Return Order"; Rec."Return Order") + field("Subc. Return Order"; Rec."Subc. Return Order") { ApplicationArea = Manufacturing; Editable = false; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdTransferShpt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdTransferShpt.PageExt.al index 8150ee3930..b871b1103d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdTransferShpt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdTransferShpt.PageExt.al @@ -12,7 +12,7 @@ pageextension 99001527 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Ship { addlast(General) { - field(SourceType; Rec."Source Type") + field("Subc. Source Type"; Rec."Subc. Source Type") { ApplicationArea = Location; Editable = false; @@ -36,7 +36,7 @@ pageextension 99001527 "Subc. Pstd. Transfer Shpt" extends "Posted Transfer Ship Editable = false; Visible = false; } - field("Return Order"; Rec."Return Order") + field("Subc. Return Order"; Rec."Subc. Return Order") { ApplicationArea = Manufacturing; Editable = false; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransferOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransferOrder.PageExt.al index a3e139f439..0fbc77695d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransferOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransferOrder.PageExt.al @@ -16,7 +16,7 @@ pageextension 99001526 "Subc. Transfer Order" extends "Transfer Order" } addlast(General) { - field(SourceType; Rec."Source Type") + field("Subc. Source Type"; Rec."Subc. Source Type") { ApplicationArea = Location; Editable = false; @@ -44,7 +44,7 @@ pageextension 99001526 "Subc. Transfer Order" extends "Transfer Order" ToolTip = 'Specifies a reference number for the line, which the transfer order is related to.'; Visible = false; } - field("Return Order"; Rec."Return Order") + field("Subc. Return Order"; Rec."Subc. Return Order") { ApplicationArea = Manufacturing; Editable = false; @@ -83,13 +83,13 @@ pageextension 99001526 "Subc. Transfer Order" extends "Transfer Order" trigger OnOpenPage() begin - ShowSubcontractingFactBox := Rec."Source Type" = Rec."Source Type"::Subcontracting; + ShowSubcontractingFactBox := Rec."Subc. Source Type" = Rec."Subc. Source Type"::Subcontracting; EsEnableTransferFields := not IsPartiallyShipped(); end; trigger OnAfterGetCurrRecord() begin - ShowSubcontractingFactBox := Rec."Source Type" = Rec."Source Type"::Subcontracting; + ShowSubcontractingFactBox := Rec."Subc. Source Type" = Rec."Subc. Source Type"::Subcontracting; end; trigger OnAfterGetRecord() diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcSubcontractingWorksheet.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcSubcontractingWorksheet.Page.al index b5c6c87df1..a629087345 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcSubcontractingWorksheet.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcSubcontractingWorksheet.Page.al @@ -239,17 +239,17 @@ page 99001504 "Subc. Subcontracting Worksheet" ToolTip = 'Specifies whether the items on the line have been approved for purchase.'; Visible = false; } - field("Standard Task Code"; Rec."Standard Task Code") + field("Subc. Standard Task Code"; Rec."Subc. Standard Task Code") { ApplicationArea = Manufacturing; Editable = false; } - field("Pricelist Cost"; Rec."Pricelist Cost") + field("Subc. Pricelist Cost"; Rec."Subc. Pricelist Cost") { ApplicationArea = Manufacturing; Visible = false; } - field("UoM for Pricelist"; Rec."UoM for Pricelist") + field("Subc. UoM for Pricelist"; Rec."Subc. UoM for Pricelist") { ApplicationArea = Manufacturing; Visible = false; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateSubCReturnOrder.Report.al b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateSubCReturnOrder.Report.al index 1cdfa39130..c2252b5d4d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateSubCReturnOrder.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateSubCReturnOrder.Report.al @@ -89,7 +89,7 @@ report 99001502 "Subc. Create SubCReturnOrder" TransferHeader.SetRange("Completely Shipped", false); TransferHeader.SetRange("Transfer-from Code", TransferFromLocationCode); TransferHeader.SetRange("Transfer-to Code", OrigCompLineLocation); - TransferHeader.SetRange("Return Order", true); + TransferHeader.SetRange("Subc. Return Order", true); if not TransferHeader.FindFirst() then begin TransferHeader.Init(); TransferHeader."No." := ''; @@ -100,12 +100,12 @@ report 99001502 "Subc. Create SubCReturnOrder" if not TransferRoute.Get(TransferFromLocationCode, OrigCompLineLocation) or (TransferRoute."In-Transit Code" = '') then TransferHeader.Validate("Direct Transfer", true); - TransferHeader."Source Type" := TransferHeader."Source Type"::Subcontracting; + TransferHeader."Subc. Source Type" := TransferHeader."Subc. Source Type"::Subcontracting; TransferHeader."Source Subtype" := TransferHeader."Source Subtype"::"2"; TransferHeader."Source ID" := "Purchase Header"."Buy-from Vendor No."; TransferHeader."Subcontr. Purch. Order No." := "Purchase Header"."No."; TransferHeader."Subcontr. PO Line No." := "Purchase Line"."Line No."; - TransferHeader."Return Order" := true; + TransferHeader."Subc. Return Order" := true; TransferHeader."Transfer-from Name" := Vendor.Name; TransferHeader."Transfer-from Name 2" := Vendor."Name 2"; TransferHeader."Transfer-from Address" := Vendor.Address; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al index 3a749b7985..f114410331 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al @@ -86,7 +86,7 @@ report 99001501 "Subc. Create Transf. Order" TransferHeader.SetRange("Completely Shipped", false); TransferHeader.SetRange("Transfer-from Code", CompLineLocation); TransferHeader.SetRange("Transfer-to Code", TransferToLocationCode); - TransferHeader.SetRange("Return Order", false); + TransferHeader.SetRange("Subc. Return Order", false); if not TransferHeader.FindFirst() then begin TransferHeader.Init(); TransferHeader."No." := ''; @@ -96,7 +96,7 @@ report 99001501 "Subc. Create Transf. Order" if not TransferRoute.Get(CompLineLocation, TransferToLocationCode) or (TransferRoute."In-Transit Code" = '') then TransferHeader.Validate("Direct Transfer", true); - TransferHeader."Source Type" := TransferHeader."Source Type"::Subcontracting; + TransferHeader."Subc. Source Type" := TransferHeader."Subc. Source Type"::Subcontracting; TransferHeader."Source Subtype" := TransferHeader."Source Subtype"::"2"; TransferHeader."Source ID" := "Purchase Header"."Buy-from Vendor No."; TransferHeader."Subcontr. Purch. Order No." := "Purchase Header"."No."; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcRequisitionLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcRequisitionLine.TableExt.al index c310c90d26..9e27f3b678 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcRequisitionLine.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcRequisitionLine.TableExt.al @@ -16,7 +16,7 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" AllowInCustomizations = AsReadOnly; fields { - field(99001516; "Standard Task Code"; Code[10]) + field(99001516; "Subc. Standard Task Code"; Code[10]) { Caption = 'Standard Task Code'; DataClassification = CustomerContent; @@ -27,7 +27,7 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" if (Type = Type::Item) and ("No." <> '') and ("Prod. Order No." <> '') and - (xRec."Standard Task Code" <> "Standard Task Code") + (xRec."Subc. Standard Task Code" <> "Subc. Standard Task Code") then UpdateSubcontractorPrice(); end; @@ -57,11 +57,11 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" ("PL UM Qty/Base UM Qty" <> xRec."PL UM Qty/Base UM Qty") then begin "Base UM Qty/PL UM Qty" := GetQuantityBase() / "PL UM Qty/Base UM Qty"; - Validate("Pricelist Cost"); + Validate("Subc. Pricelist Cost"); end; end; } - field(99001519; "UoM for Pricelist"; Code[10]) + field(99001519; "Subc. UoM for Pricelist"; Code[10]) { Caption = 'UoM for Price list'; DataClassification = CustomerContent; @@ -69,14 +69,14 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" ToolTip = 'Specifies the unit of measure for the price list that is on the subcontracting worksheet.'; trigger OnValidate() begin - if (CurrFieldNo = FieldNo("UoM for Pricelist")) and + if (CurrFieldNo = FieldNo("Subc. UoM for Pricelist")) and ("Prod. Order No." <> '') and (Type = Type::Item) then UpdateSubcontractorPriceUOM(); end; } - field(99001520; "Pricelist Cost"; Decimal) + field(99001520; "Subc. Pricelist Cost"; Decimal) { AutoFormatExpression = "Currency Code"; AutoFormatType = 2; @@ -91,7 +91,7 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" if ("Prod. Order No." <> '') and (Type = Type::Item) then begin - "Direct Unit Cost" := "Pricelist Cost" / "Base UM Qty/PL UM Qty" * GetQuantityForUOM(); + "Direct Unit Cost" := "Subc. Pricelist Cost" / "Base UM Qty/PL UM Qty" * GetQuantityForUOM(); if ("Currency Code" <> '') and ("Direct Unit Cost" <> 0) then begin Currency.Initialize("Currency Code"); Currency.TestField("Unit-Amount Rounding Precision"); @@ -133,6 +133,6 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" SubcPriceManagement: Codeunit "Subc. Price Management"; begin if (Type = Type::Item) and ("No." <> '') and ("Prod. Order No." <> '') then - SubcPriceManagement.GetSubcPriceForReqLine(Rec, "UoM for Pricelist"); + SubcPriceManagement.GetSubcPriceForReqLine(Rec, "Subc. UoM for Pricelist"); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransRcptHeaderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransRcptHeaderExt.TableExt.al index c1a14a8820..32d493212c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransRcptHeaderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransRcptHeaderExt.TableExt.al @@ -40,12 +40,12 @@ tableextension 99001521 "Subc. Trans Rcpt Header Ext." extends "Transfer Receipt Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(99001540; "Source Type"; Enum "Transfer Source Type") + field(99001540; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(99001541; "Return Order"; Boolean) + field(99001541; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; @@ -54,6 +54,6 @@ tableextension 99001521 "Subc. Trans Rcpt Header Ext." extends "Transfer Receipt keys { key(Key99001500; "Subcontr. Purch. Order No.") { } - key(Key99001501; "Source ID", "Source Type", "Source Subtype") { } + key(Key99001501; "Source ID", "Subc. Source Type", "Source Subtype") { } } } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransShptHeaderExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransShptHeaderExt.TableExt.al index 0c497d6721..0c3ecc1c4b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransShptHeaderExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransShptHeaderExt.TableExt.al @@ -45,13 +45,13 @@ tableextension 99001522 "Subc. Trans Shpt Header Ext." extends "Transfer Shipmen DataClassification = CustomerContent; ToolTip = 'Specifies a reference number for the line, which the transfer order is related to.'; } - field(99001540; "Source Type"; Enum "Transfer Source Type") + field(99001540; "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; "Return Order"; Boolean) + field(99001541; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; @@ -61,6 +61,6 @@ tableextension 99001522 "Subc. Trans Shpt Header Ext." extends "Transfer Shipmen keys { key(Key99001500; "Subcontr. Purch. Order No.") { } - key(Key99001501; "Source ID", "Source Type", "Source Subtype") { } + key(Key99001501; "Source ID", "Subc. Source Type", "Source Subtype") { } } } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferHeader.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferHeader.TableExt.al index f4d29fbc63..967110530d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferHeader.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferHeader.TableExt.al @@ -47,12 +47,12 @@ tableextension 99001520 "Subc. Transfer Header" extends "Transfer Header" Caption = 'Source Ref. No.'; DataClassification = CustomerContent; } - field(99001540; "Source Type"; Enum "Transfer Source Type") + field(99001540; "Subc. Source Type"; Enum "Transfer Source Type") { Caption = 'Source Type'; DataClassification = CustomerContent; } - field(99001541; "Return Order"; Boolean) + field(99001541; "Subc. Return Order"; Boolean) { Caption = 'Return Order'; DataClassification = CustomerContent; @@ -61,7 +61,7 @@ tableextension 99001520 "Subc. Transfer Header" extends "Transfer Header" keys { key(Key99001500; "Subcontr. Purch. Order No.") { } - key(Key99001501; "Source ID", "Source Type", "Source Subtype") { } + key(Key99001501; "Source ID", "Subc. Source Type", "Source Subtype") { } } local procedure HandleSubcontractingSourceLookup(var TransferHeader: Record "Transfer Header") @@ -70,7 +70,7 @@ tableextension 99001520 "Subc. Transfer Header" extends "Transfer Header" Item: Record Item; Vendor: Record Vendor; begin - if TransferHeader."Source Type" = TransferHeader."Source Type"::Subcontracting then + if TransferHeader."Subc. Source Type" = TransferHeader."Subc. Source Type"::Subcontracting then case TransferHeader."Source Subtype" of TransferHeader."Source Subtype"::"1": begin diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al index bdfe5b68e3..a831b636fa 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingTest.Codeunit.al @@ -2194,7 +2194,7 @@ Comment = '|%1 = Transfer Order No.'; // [THEN] A Return Transfer Order is created with reversed Transfer-from / Transfer-to and quantity capped by the partially-shipped qty ReturnTransferHeader.SetRange("Subcontr. Purch. Order No.", PurchaseLine."Document No."); - ReturnTransferHeader.SetRange("Return Order", true); + ReturnTransferHeader.SetRange("Subc. Return Order", true); Assert.IsTrue(ReturnTransferHeader.FindFirst(), 'Return Transfer Order should be created after partial ship of outbound'); Assert.AreEqual(OutboundToCode, ReturnTransferHeader."Transfer-from Code", 'Return Transfer-from must be the subcontractor location'); Assert.AreEqual(OutboundFromCode, ReturnTransferHeader."Transfer-to Code", 'Return Transfer-to must be the original component location'); @@ -2293,7 +2293,7 @@ Comment = '|%1 = Transfer Order No.'; // [THEN] A Return Transfer Order is created with reversed Transfer-from / Transfer-to and quantity capped by the qty that actually arrived at the subcontractor ReturnTransferHeader.SetRange("Subcontr. Purch. Order No.", PurchaseLine."Document No."); - ReturnTransferHeader.SetRange("Return Order", true); + ReturnTransferHeader.SetRange("Subc. Return Order", true); Assert.IsTrue(ReturnTransferHeader.FindFirst(), 'Return Transfer Order should be created after partial direct transfer'); Assert.AreEqual(OutboundToCode, ReturnTransferHeader."Transfer-from Code", 'Return Transfer-from must be the subcontractor location'); Assert.AreEqual(OutboundFromCode, ReturnTransferHeader."Transfer-to Code", 'Return Transfer-to must be the original component location'); diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingUITest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingUITest.Codeunit.al index 8342faa3bc..42db18eea0 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingUITest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcSubcontractingUITest.Codeunit.al @@ -201,11 +201,11 @@ codeunit 139990 "Subc. Subcontracting UI Test" // [WHEN] Find Control on Page PageControl.SetRange(TableNo, Database::"Requisition Line"); PageControl.SetRange(PageNo, Page::"Subc. Subcontracting Worksheet"); - PageControl.SetRange(FieldNo, ReqLine.FieldNo("Pricelist Cost")); + PageControl.SetRange(FieldNo, ReqLine.FieldNo("Subc. Pricelist Cost")); ControlExist := not PageControl.IsEmpty(); // [THEN] - Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, ReqLine.FieldCaption("Pricelist Cost"))); + Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, ReqLine.FieldCaption("Subc. Pricelist Cost"))); end; [Test] @@ -224,11 +224,11 @@ codeunit 139990 "Subc. Subcontracting UI Test" // [WHEN] Find Control on Page PageControl.SetRange(TableNo, Database::"Requisition Line"); PageControl.SetRange(PageNo, Page::"Subc. Subcontracting Worksheet"); - PageControl.SetRange(FieldNo, ReqLine.FieldNo("Standard Task Code")); + PageControl.SetRange(FieldNo, ReqLine.FieldNo("Subc. Standard Task Code")); ControlExist := not PageControl.IsEmpty(); // [THEN] - Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, ReqLine.FieldCaption("Standard Task Code"))); + Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, ReqLine.FieldCaption("Subc. Standard Task Code"))); end; [Test] @@ -247,11 +247,11 @@ codeunit 139990 "Subc. Subcontracting UI Test" // [WHEN] Find Control on Page PageControl.SetRange(TableNo, Database::"Requisition Line"); PageControl.SetRange(PageNo, Page::"Subc. Subcontracting Worksheet"); - PageControl.SetRange(FieldNo, ReqLine.FieldNo("UoM for Pricelist")); + PageControl.SetRange(FieldNo, ReqLine.FieldNo("Subc. UoM for Pricelist")); ControlExist := not PageControl.IsEmpty(); // [THEN] - Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, ReqLine.FieldCaption("UoM for Pricelist"))); + Assert.AreEqual(true, ControlExist, StrSubstNo(ControlNotExistMsg, ReqLine.FieldCaption("Subc. UoM for Pricelist"))); end; [Test] From ed3b37985900b1a417d1879f14cac6168ca49e0a Mon Sep 17 00:00:00 2001 From: Sebastian Pinkow Date: Wed, 13 May 2026 10:53:40 +0200 Subject: [PATCH 5/7] Additional Renames --- .../Codeunits/Extensions/SubcItemJnlPostLineExt.Codeunit.al | 2 +- .../Pageextensions/Manufacturing/SubcProdOrderComp.PageExt.al | 4 ++-- .../Manufacturing/SubcProdOrderCompLine.PageExt.al | 2 +- .../Pageextensions/Manufacturing/SubcRelProdOrder.PageExt.al | 2 +- .../App/src/Process/Pageextensions/SubcCapLEntries.PageExt.al | 2 +- .../Manufacturing/SubcCapLedgerEntryExt.TableExt.al | 2 +- .../App/src/Setup/Pages/ManufacturingSetupSubc.PageExt.al | 2 +- 7 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcItemJnlPostLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcItemJnlPostLineExt.Codeunit.al index 94b166b0c5..4a3b87e064 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcItemJnlPostLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcItemJnlPostLineExt.Codeunit.al @@ -76,7 +76,7 @@ codeunit 99001515 "Subc. ItemJnlPostLine Ext" local procedure UpdateCapLedgerEntry(var CapacityLedgerEntry: Record "Capacity Ledger Entry"; var ItemJournalLine: Record "Item Journal Line") begin - CapacityLedgerEntry."Subcontractor No." := ItemJournalLine."Source No."; + CapacityLedgerEntry."Subc. Subcontractor No." := ItemJournalLine."Source No."; CapacityLedgerEntry."Subc. Purch. Order No." := ItemJournalLine."Subc. Purch. Order No."; CapacityLedgerEntry."Subc. Purch. Order Line No." := ItemJournalLine."Subc. Purch. Order Line No."; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderComp.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderComp.PageExt.al index 8c7c31c5ab..cc81d8cabd 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderComp.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderComp.PageExt.al @@ -12,11 +12,11 @@ pageextension 99001512 "Subc. Prod Order Comp" extends "Prod. Order Components" { addafter("Remaining Quantity") { - field("Qty. on Transfer Order (Base)"; Rec."Subc. Qty.on TransOrder (Base)") + field("Subc. Qty.on TransOrder (Base)"; Rec."Subc. Qty.on TransOrder (Base)") { ApplicationArea = Location; } - field("Qty. in Transit (Base)"; Rec."Subc. Qty. in Transit (Base)") + field("Subc. Qty. in Transit (Base)"; Rec."Subc. Qty. in Transit (Base)") { ApplicationArea = Location; Visible = false; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderCompLine.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderCompLine.PageExt.al index 3ab2b314bc..11dc2212c9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderCompLine.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderCompLine.PageExt.al @@ -17,7 +17,7 @@ pageextension 99001513 "Subc. ProdOrderCompLine" extends "Prod. Order Comp. Line ApplicationArea = Manufacturing; ToolTip = 'Specifies the Type of Subcontracting that is assigned to the Production Component.'; } - field("Routing Link Code"; Rec."Routing Link Code") + field("Subc. Routing Link Code"; Rec."Routing Link Code") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the routing link code when you calculate the production order.'; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRelProdOrder.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRelProdOrder.PageExt.al index 721f30e0ce..247a98e89d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRelProdOrder.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRelProdOrder.PageExt.al @@ -25,7 +25,7 @@ pageextension 99001504 "Subc. Rel. Prod. Order" extends "Released Production Ord } addafter("Item Ledger E&ntries") { - action("Subcontracting Transfer Entries") + action("Subc. Transfer Entries") { ApplicationArea = Manufacturing; Caption = 'Subcontracting Transfer Entries'; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcCapLEntries.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcCapLEntries.PageExt.al index d17db977a5..fd4d384cf1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcCapLEntries.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/SubcCapLEntries.PageExt.al @@ -24,7 +24,7 @@ pageextension 99001502 "Subc. CapLEntries" extends "Capacity Ledger Entries" ToolTip = 'Specifies the number of the related purchase order line.'; Visible = false; } - field("Subcontractor No."; Rec."Subcontractor No.") + field("Subc. Subcontractor No."; Rec."Subc. Subcontractor No.") { ApplicationArea = Manufacturing; ToolTip = 'Specifies the number of the related subcontractor.'; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcCapLedgerEntryExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcCapLedgerEntryExt.TableExt.al index 7721870746..3aeba5d4f1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcCapLedgerEntryExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcCapLedgerEntryExt.TableExt.al @@ -12,7 +12,7 @@ tableextension 99001504 "Subc. Cap Ledger Entry Ext." extends "Capacity Ledger E AllowInCustomizations = AsReadOnly; fields { - field(99001500; "Subcontractor No."; Code[20]) + field(99001500; "Subc. Subcontractor No."; Code[20]) { Caption = 'Subcontractor No.'; DataClassification = CustomerContent; diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/Pages/ManufacturingSetupSubc.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Setup/Pages/ManufacturingSetupSubc.PageExt.al index 72d477b79f..15e8ae5f1f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/Pages/ManufacturingSetupSubc.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/Pages/ManufacturingSetupSubc.PageExt.al @@ -12,7 +12,7 @@ pageextension 99001542 "Manufacturing Setup Subc." extends "Manufacturing Setup" { addlast(Content) { - group(Subcontracting) + group(SubcAppSubcontracting) { Caption = 'Subcontracting'; From d7fb8fa6bef34b10ef587d6d5e947e9e18169d48 Mon Sep 17 00:00:00 2001 From: Sebastian Pinkow Date: Wed, 13 May 2026 10:58:00 +0200 Subject: [PATCH 6/7] Last Rename --- .../Pageextensions/Manufacturing/SubcRoutingLines.PageExt.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRoutingLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRoutingLines.PageExt.al index d5f3fb63a5..d1c71db5e1 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRoutingLines.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRoutingLines.PageExt.al @@ -12,7 +12,7 @@ pageextension 99001508 "Subc. Routing Lines" extends "Routing Lines" { addafter("&Quality Measures") { - action("Subcontracting Prices") + action("Subc. Prices") { ApplicationArea = Manufacturing; Caption = 'Subcontracting Prices'; From 1f63f856897fac2722992f528a2598982a7f7079 Mon Sep 17 00:00:00 2001 From: Sebastian Pinkow Date: Wed, 13 May 2026 17:16:17 +0200 Subject: [PATCH 7/7] Remove IT from Pipeline (will be added later again) --- build/projects/Apps (W1)/.AL-Go/settings.json | 1 - 1 file changed, 1 deletion(-) diff --git a/build/projects/Apps (W1)/.AL-Go/settings.json b/build/projects/Apps (W1)/.AL-Go/settings.json index bc29c628d5..5c4cd13193 100644 --- a/build/projects/Apps (W1)/.AL-Go/settings.json +++ b/build/projects/Apps (W1)/.AL-Go/settings.json @@ -33,7 +33,6 @@ "GB", "IN", "IS", - "IT", "MX", "NL", "NO",