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 9c009218a2..2fdf594e86 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.ChangeLocationOnPlanningComponent(PlanningComponent, Vendor."Subcontr. Location Code", PlanningComponent."Orig. Location Code", PlanningComponent."Orig. Bin Code"); + SubcontractingManagement.ChangeLocationOnPlanningComponent(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 66dbbec5a9..f5b69632ed 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 @@ -75,9 +75,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); @@ -146,10 +146,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 @@ -178,12 +178,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 @@ -274,16 +274,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.ChangeLocationOnProdOrderComponent(ProdOrderComponent, Vendor."Subcontr. Location Code", ProdOrderComponent."Orig. Location Code", ProdOrderComponent."Orig. Bin Code"); + SubcontractingManagement.ChangeLocationOnProdOrderComponent(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( @@ -298,13 +298,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 2503a6ec25..182be307a3 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 @@ -17,7 +17,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..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 @@ -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. 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; 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..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 @@ -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."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."; + 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..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 @@ -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."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."; + 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..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 @@ -17,21 +17,21 @@ 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)] 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; @@ -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/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 074600e0e3..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."Return Order" := TransferHeader."Return Order"; + TransferLine."Subc. Return Order" := TransferHeader."Subc. 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 37f43b16e3..73cffda3e9 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 @@ -83,9 +83,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/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/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 c21c0e3454..9e8774790f 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 @@ -52,9 +52,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; @@ -103,11 +103,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(''); @@ -199,11 +199,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); @@ -275,18 +275,18 @@ 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.", ProductionOrder."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.", ProductionOrder."No."); if ProductionOrder."Source Type" <> "Prod. Order Source Type"::Family then begin - TransferLine.SetRange("Prod. Order Line No.", ProdOrderLine."Line No."); - TransferLine.SetRange("Routing Reference No.", ProdOrderLine."Routing Reference No."); + TransferLine.SetRange("Subc. Prod. Order Line No.", ProdOrderLine."Line No."); + TransferLine.SetRange("Subc. Routing Reference No.", ProdOrderLine."Routing Reference No."); end else begin - TransferLine.SetRange("Prod. Order Line No."); - TransferLine.SetRange("Routing Reference No.", ProdOrderRoutingLine."Routing Reference No."); + TransferLine.SetRange("Subc. Prod. Order Line No."); + TransferLine.SetRange("Subc. Routing Reference No.", ProdOrderRoutingLine."Routing Reference No."); end; - TransferLine.SetRange("Return Order", IsReturn); - TransferLine.SetRange("Routing No.", ProdOrderRoutingLine."Routing No."); - TransferLine.SetRange("Operation No.", ProdOrderRoutingLine."Operation No."); + TransferLine.SetRange("Subc. Return Order", IsReturn); + TransferLine.SetRange("Subc. Routing No.", ProdOrderRoutingLine."Routing No."); + TransferLine.SetRange("Subc. Operation No.", ProdOrderRoutingLine."Operation No."); TransferLine.SetRange("Derived From Line No.", 0); if not LookUpPage then exit(TransferLine.Count()); @@ -384,32 +384,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 @@ -521,10 +521,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 9f809da45d..52978c6ee7 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,12 +150,12 @@ 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."Routing Reference No.", ProdOrderRoutingLine."Routing Reference No."); - TransferLine.SetRange(TransferLine."Routing No.", ProdOrderRoutingLine."Routing No."); - TransferLine.SetRange(TransferLine."Operation No.", ProdOrderRoutingLine."Operation No."); - TransferLine.SetRange("Return Order", false); + 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. Routing Reference No.", ProdOrderRoutingLine."Routing Reference No."); + TransferLine.SetRange(TransferLine."Subc. Routing No.", ProdOrderRoutingLine."Routing No."); + TransferLine.SetRange(TransferLine."Subc. Operation No.", ProdOrderRoutingLine."Operation No."); + TransferLine.SetRange("Subc. Return Order", false); TransferLine.SetRange("Derived From Line No.", 0); exit(TransferLine.Count()); end; @@ -169,12 +169,12 @@ 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.", ''); TransferLine.SetRange("Derived From Line No.", 0); - TransferLine.SetRange("Return Order", true); + TransferLine.SetRange("Subc. Return Order", true); exit(TransferLine.Count()); end; @@ -186,11 +186,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."Routing Reference 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. Routing Reference No.", ProdOrderRoutingLine."Routing Reference No."); + TransferLine.SetRange(TransferLine."Subc. Routing No.", ProdOrderRoutingLine."Routing No."); + TransferLine.SetRange(TransferLine."Subc. Operation No.", ProdOrderRoutingLine."Operation No."); TransferLine.SetRange("Derived From Line No.", 0); Page.Run(Page::"Transfer Lines", TransferLine); end; @@ -203,10 +203,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.", ''); TransferLine.SetRange("Derived From Line No.", 0); Page.Run(Page::"Transfer Lines", TransferLine); end; 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 f930b9198c..689a321216 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 @@ -147,9 +147,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 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 e5296184d5..2bc34271eb 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 @@ -61,11 +61,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; @@ -111,9 +111,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 @@ -186,10 +186,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); @@ -328,9 +328,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."); @@ -378,11 +378,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 - ChangeLocationOnProdOrderComponent(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 + ChangeLocationOnProdOrderComponent(ProdOrderComponent, '', ProdOrderComponent."Subc. Original Location Code", ProdOrderComponent."Subc. Orig. Bin Code"); + ProdOrderComponent."Subc. Original Location Code" := ''; + ProdOrderComponent."Subc. Orig. Bin Code" := ''; ProdOrderComponent.Modify(); end; @@ -410,7 +410,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"; ChangeLocationOnProdOrderComponent(ProdOrderComponent, VendorSubcontractingLocationCode, OrigLocationCode, OrigBinCode); @@ -497,15 +497,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(UpdateIsCanceledErr); 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"; ChangeLocationOnProdOrderComponent(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..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,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("Subc. Qty.on TransOrder (Base)"; Rec."Subc. Qty.on TransOrder (Base)") { ApplicationArea = Location; } - field("Qty. in Transit (Base)"; Rec."Qty. in Transit (Base)") + field("Subc. 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/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 0eab07f296..5c34c6ca17 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,14 +25,14 @@ 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'; 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/Manufacturing/SubcRoutingLines.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcRoutingLines.PageExt.al index 5b97319f76..dfe00a02da 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 @@ -47,7 +47,7 @@ pageextension 99001508 "Subc. Routing Lines" extends "Routing Lines" { addafter("&Quality Measures") { - action("Subcontracting Prices") + action("Subc. Prices") { ApplicationArea = Manufacturing; Caption = 'Subcontracting Prices'; 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..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 @@ -12,19 +12,19 @@ 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.'; 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/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/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/SubcTransOrderSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcTransOrderSub.PageExt.al index b8d4d3f958..9781ace437 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 @@ -19,55 +19,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 603fd65abf..a39073152c 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/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/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/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/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 eb6a615186..cd1f893a03 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 a17a90e9ba..793a24d917 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 @@ -214,9 +214,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."; @@ -267,7 +267,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() @@ -572,8 +572,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 3969ea4f59..db27c608ea 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 @@ -37,8 +37,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 CheckTransferToCreate() then @@ -85,7 +85,7 @@ report 99001502 "Subc. Create SubCReturnOrder" TransferHeader.SetRange("Completely Shipped", false); TransferHeader.SetRange("Transfer-from Code", TransferFromLocationCode); TransferHeader.SetRange("Transfer-to Code", TransferToLocationCode); - TransferHeader.SetRange("Return Order", true); + TransferHeader.SetRange("Subc. Return Order", true); if not TransferHeader.FindFirst() then begin TransferHeader.Init(); TransferHeader."No." := ''; @@ -99,12 +99,12 @@ report 99001502 "Subc. Create SubCReturnOrder" TransferHeader.Validate("Direct Transfer", true); end; - 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; @@ -179,7 +179,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 GetTransferFromLocationCode(SubcFromLocationCode); @@ -188,17 +188,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(SubcFromLocationCode, ProdOrderComponent."Orig. Location Code"); + InsertTransferHeader(SubcFromLocationCode, ProdOrderComponent."Subc. Original Location Code"); LineNo := LineNo + 10000; @@ -210,28 +210,28 @@ 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."Routing No." := ProdOrderRoutingLine."Routing No."; - TransferLine."Routing Reference No." := ProdOrderRoutingLine."Routing Reference No."; - TransferLine."Work Center No." := ProdOrderRoutingLine."Work Center No."; - TransferLine."Operation No." := ProdOrderRoutingLine."Operation No."; + TransferLine."Subc. Routing No." := ProdOrderRoutingLine."Routing No."; + TransferLine."Subc. Routing Reference No." := ProdOrderRoutingLine."Routing Reference No."; + TransferLine."Subc. Work Center No." := ProdOrderRoutingLine."Work Center No."; + TransferLine."Subc. Operation No." := ProdOrderRoutingLine."Operation No."; - TransferLine."Return Order" := true; + 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(); @@ -261,11 +261,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 exit(false); end; @@ -274,9 +274,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; @@ -378,15 +378,15 @@ report 99001502 "Subc. Create SubCReturnOrder" if ProdOrderRoutingLine."Transfer Description 2" <> '' then TransferLine."Description 2" := ProdOrderRoutingLine."Transfer Description 2"; - TransferLine."Subcontr. Purch. Order No." := PurchaseLine."Document No."; - TransferLine."Subcontr. PO Line No." := PurchaseLine."Line No."; - TransferLine."Prod. Order No." := ProdOrderLine."Prod. Order No."; - TransferLine."Prod. Order Line No." := ProdOrderLine."Line No."; - TransferLine."Routing No." := ProdOrderRoutingLine."Routing No."; - TransferLine."Routing Reference No." := ProdOrderRoutingLine."Routing Reference No."; - TransferLine."Work Center No." := ProdOrderRoutingLine."Work Center No."; - TransferLine."Operation No." := ProdOrderRoutingLine."Operation 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." := ProdOrderLine."Prod. Order No."; + TransferLine."Subc. Prod. Order Line No." := ProdOrderLine."Line No."; + TransferLine."Subc. Routing No." := ProdOrderRoutingLine."Routing No."; + TransferLine."Subc. Routing Reference No." := ProdOrderRoutingLine."Routing Reference No."; + TransferLine."Subc. Work Center No." := ProdOrderRoutingLine."Work Center No."; + TransferLine."Subc. Operation No." := ProdOrderRoutingLine."Operation No."; + TransferLine."Subc. Return Order" := true; TransferLine.Insert(); end; @@ -395,12 +395,12 @@ report 99001502 "Subc. Create SubCReturnOrder" var TransferLineToCheck: Record "Transfer Line"; begin - TransferLineToCheck.SetRange("Subcontr. Purch. Order No.", PurchaseLine."Document No."); - TransferLineToCheck.SetRange("Prod. Order No.", PurchaseLine."Prod. Order No."); - TransferLineToCheck.SetRange("Prod. Order Line No.", PurchaseLine."Prod. Order Line No."); - TransferLineToCheck.SetRange("Operation No.", PurchaseLine."Operation No."); + TransferLineToCheck.SetRange("Subc. Purch. Order No.", PurchaseLine."Document No."); + TransferLineToCheck.SetRange("Subc. Prod. Order No.", PurchaseLine."Prod. Order No."); + TransferLineToCheck.SetRange("Subc. Prod. Order Line No.", PurchaseLine."Prod. Order Line No."); + TransferLineToCheck.SetRange("Subc. Operation No.", PurchaseLine."Operation No."); TransferLineToCheck.SetRange("Transfer WIP Item", true); - TransferLineToCheck.SetRange("Return Order", true); + TransferLineToCheck.SetRange("Subc. Return Order", true); exit(not TransferLineToCheck.IsEmpty()); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateTransfOrder.Report.al index b3fecdb9f4..370679d5f9 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 @@ -36,8 +36,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 CheckTransferCreated() then @@ -85,7 +85,7 @@ report 99001501 "Subc. Create Transf. Order" TransferHeader.SetRange("Completely Shipped", false); TransferHeader.SetRange("Transfer-from Code", TransferFromLocation); TransferHeader.SetRange("Transfer-to Code", TransferToLocationCode); - TransferHeader.SetRange("Return Order", false); + TransferHeader.SetRange("Subc. Return Order", false); TransferHeader.SetRange("Subcontr. Purch. Order No.", "Purchase Header"."No."); if not TransferHeader.FindFirst() then begin TransferHeader.Init(); @@ -96,7 +96,7 @@ report 99001501 "Subc. Create Transf. Order" if not TransferRoute.Get(TransferFromLocation, 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."; @@ -173,17 +173,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); @@ -204,30 +204,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 @@ -265,12 +265,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); @@ -280,14 +280,14 @@ report 99001501 "Subc. Create Transf. Order" begin GetTransferToLocationCodeForPurchaseHeader("Purchase Header", Vendor, TransferToLocationCode); if TransferToLocationCode = '' then - Vendor.TestField("Subcontr. Location Code"); + Vendor.TestField("Subc. Location Code"); end; local procedure GetTransferToLocationCodeForPurchaseHeader(PurchaseHeader: Record "Purchase Header"; VendorFromPurchaseHeader: Record Vendor; var TransferToLocationCode: Code[10]) begin TransferToLocationCode := PurchaseHeader."Subc. Location Code"; if TransferToLocationCode = '' then - TransferToLocationCode := VendorFromPurchaseHeader."Subcontr. Location Code"; + TransferToLocationCode := VendorFromPurchaseHeader."Subc. Location Code"; end; local procedure HandleWIPTransferForPurchLine(PurchaseLine: Record "Purchase Line"; InsertLine: Boolean): Boolean @@ -365,14 +365,14 @@ report 99001501 "Subc. Create Transf. Order" if ProdOrderRoutingLine."Transfer Description 2" <> '' then TransferLine."Description 2" := ProdOrderRoutingLine."Transfer Description 2"; - TransferLine."Subcontr. Purch. Order No." := PurchaseLine."Document No."; - TransferLine."Subcontr. PO Line No." := PurchaseLine."Line No."; - TransferLine."Prod. Order No." := ProdOrderLine."Prod. Order No."; - TransferLine."Prod. Order Line No." := ProdOrderLine."Line No."; - TransferLine."Routing No." := ProdOrderRoutingLine."Routing No."; - TransferLine."Routing Reference No." := ProdOrderRoutingLine."Routing Reference No."; - TransferLine."Work Center No." := ProdOrderRoutingLine."Work Center No."; - TransferLine."Operation No." := ProdOrderRoutingLine."Operation No."; + TransferLine."Subc. Purch. Order No." := PurchaseLine."Document No."; + TransferLine."Subc. Purch. Order Line No." := PurchaseLine."Line No."; + TransferLine."Subc. Prod. Order No." := ProdOrderLine."Prod. Order No."; + TransferLine."Subc. Prod. Order Line No." := ProdOrderLine."Line No."; + TransferLine."Subc. Routing No." := ProdOrderRoutingLine."Routing No."; + TransferLine."Subc. Routing Reference No." := ProdOrderRoutingLine."Routing Reference No."; + TransferLine."Subc. Work Center No." := ProdOrderRoutingLine."Work Center No."; + TransferLine."Subc. Operation No." := ProdOrderRoutingLine."Operation No."; TransferLine."Prev. Operation No." := WIPPreviousOperationNo; TransferLine.Modify(); @@ -449,10 +449,10 @@ report 99001501 "Subc. Create Transf. Order" PrevWorkCenter.SetLoadFields("Subcontractor No."); if PrevWorkCenter.Get(PrevProdOrderRoutingLine."Work Center No.") then if PrevWorkCenter."Subcontractor No." <> '' then begin - PrevVendor.SetLoadFields("Subcontr. Location Code"); + PrevVendor.SetLoadFields("Subc. Location Code"); if PrevVendor.Get(PrevWorkCenter."Subcontractor No.") then - if PrevVendor."Subcontr. Location Code" <> '' then - LocationCode := PrevVendor."Subcontr. Location Code"; + if PrevVendor."Subc. Location Code" <> '' then + LocationCode := PrevVendor."Subc. Location Code"; end; if LocationCode <> '' then begin @@ -489,11 +489,11 @@ report 99001501 "Subc. Create Transf. Order" WIPSourceQtyDict: Dictionary of [Code[10], Decimal]; WIPSourceLocationList: List of [Code[10]]; begin - TransferLineToCheck.SetCurrentKey("Prod. Order No.", "Prod. Order Line No.", "Routing Reference No.", "Routing No.", "Operation No."); - TransferLineToCheck.SetRange("Subcontr. Purch. Order No.", PurchaseLine."Document No."); - TransferLineToCheck.SetRange("Prod. Order No.", PurchaseLine."Prod. Order No."); - TransferLineToCheck.SetRange("Prod. Order Line No.", PurchaseLine."Prod. Order Line No."); - TransferLineToCheck.SetRange("Operation No.", PurchaseLine."Operation No."); + TransferLineToCheck.SetCurrentKey("Subc. Prod. Order No.", "Subc. Prod. Order Line No.", "Subc. Routing Reference No.", "Subc. Routing No.", "Subc. Operation No."); + TransferLineToCheck.SetRange("Subc. Purch. Order No.", PurchaseLine."Document No."); + TransferLineToCheck.SetRange("Subc. Prod. Order No.", PurchaseLine."Prod. Order No."); + TransferLineToCheck.SetRange("Subc. Prod. Order Line No.", PurchaseLine."Prod. Order Line No."); + TransferLineToCheck.SetRange("Subc. Operation No.", PurchaseLine."Operation No."); TransferLineToCheck.SetRange("Derived From Line No.", 0); TransferLineToCheck.SetRange("Transfer WIP Item", true); if not TransferLineToCheck.IsEmpty() then 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 910f4b697b..89dc8ddd23 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..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,23 +12,23 @@ 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; } - 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 4c6c79d4bb..3d38f760fa 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,7 +13,7 @@ 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; @@ -23,12 +23,12 @@ tableextension 99001507 "Subc. Vendor" extends Vendor Location: Record Location; ErrorInfo: ErrorInfo; begin - if "Subcontr. Location Code" = '' then + if "Subc. Location Code" = '' then exit; - Location.Get("Subcontr. Location Code"); + Location.Get("Subc. Location Code"); if Location."Bin Mandatory" or Location."Require Pick" or Location."Require Put-away" or Location."Require Receive" or Location."Require Shipment" then begin ErrorInfo.Title := CannotUseLocationLbl; - ErrorInfo.Message := StrSubstNo(BinWarehouseEnabledOnLocationErr, "Subcontr. Location Code"); + ErrorInfo.Message := StrSubstNo(BinWarehouseEnabledOnLocationErr, "Subc. Location Code"); ErrorInfo.Verbosity := ErrorInfo.Verbosity::Error; ErrorInfo.PageNo := Page::"Location Card"; ErrorInfo.RecordId := Location.RecordId; @@ -37,26 +37,26 @@ tableextension 99001507 "Subc. Vendor" extends Vendor end; end; } - 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; TableRelation = "Work Center" where("Subcontractor No." = field("No.")); } } - + keys { - key(SubcLocationCode; "Subcontr. Location Code") { } + key(SubcLocationCode; "Subc. Location Code") { } } - + var CannotUseLocationLbl: Label 'Cannot user the location for subcontracting'; ShowLocationCardLbl: Label 'Show Location Card'; 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 40e21c721e..8bcd4393c6 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 @@ -30,7 +30,7 @@ tableextension 99001509 "Subc. Purchase Header" extends "Purchase Header" Error(BinMandatorySubcontrLocationErr, "Subc. Location Code"); end; } - 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 6c402dfa93..45470d8b64 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/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/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/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/App/src/Process/Tableextensions/Transfer/SubcTransferLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Transfer/SubcTransferLine.TableExt.al index e97ad86b06..503dc1032b 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 @@ -19,58 +19,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.'; @@ -78,25 +78,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.'; @@ -159,18 +159,18 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" DataClassification = CustomerContent; Editable = false; 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 previous production operation no.'; } } 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") { } } internal procedure CheckForExistingReservationsOrItemTracking() @@ -219,7 +219,7 @@ tableextension 99001517 "Subc. Transfer Line" extends "Transfer Line" ProdOrderRoutingLine: Record "Prod. Order Routing Line"; begin if Rec."Transfer WIP Item" then - if ProdOrderRoutingLine.Get("Production Order Status"::Released, "Prod. Order No.", "Routing Reference No.", "Routing No.", "Operation No.") then begin + if ProdOrderRoutingLine.Get("Production Order Status"::Released, "Subc. Prod. Order No.", "Subc. Routing Reference No.", "Subc. Routing No.", "Subc. Operation No.") then begin Rec.Description := ProdOrderRoutingLine."Transfer Description"; Rec."Description 2" := ProdOrderRoutingLine."Transfer Description 2"; end; 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 a564e420b0..9773cf5516 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 cf5a96e02c..1b41688312 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/App/src/Process/WIP Item/SubcChangeProdOrderStatus.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/WIP Item/SubcChangeProdOrderStatus.Codeunit.al index 861a82112b..e58d604d03 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/WIP Item/SubcChangeProdOrderStatus.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/WIP Item/SubcChangeProdOrderStatus.Codeunit.al @@ -65,8 +65,8 @@ codeunit 99001549 "Subc. Change Prod.Order Status" Comment = '%1=Transfer Header No'; begin TransferLine.SetLoadFields("Document No."); - TransferLine.SetCurrentKey("Prod. Order No.", "Routing No.", "Routing Reference No.", "Operation No.", "Subcontr. Purch. Order No."); - TransferLine.SetRange("Prod. Order No.", ProductionOrder."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.", ProductionOrder."No."); TransferLine.SetRange("Derived From Line No.", 0); if TransferLine.FindFirst() then Error(TransferOrderExistsErr, TransferLine."Document No."); diff --git a/src/Apps/W1/Subcontracting/App/src/Process/WIP Item/SubcTransferWIPPosting.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/WIP Item/SubcTransferWIPPosting.Codeunit.al index 6cd63917f7..79524e31e6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/WIP Item/SubcTransferWIPPosting.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/WIP Item/SubcTransferWIPPosting.Codeunit.al @@ -371,15 +371,15 @@ codeunit 99001541 "Subc. Transfer WIP Posting" SubcontractorWIPLedgerEntry."Unit of Measure Code" := TransferLine."Unit of Measure Code"; SubcontractorWIPLedgerEntry."Prod. Order Status" := "Production Order Status"::Released; SubcontractorWIPLedgerEntry."Variant Code" := TransferLine."Variant Code"; - SubcontractorWIPLedgerEntry."Prod. Order No." := TransferLine."Prod. Order No."; - SubcontractorWIPLedgerEntry."Prod. Order Line No." := TransferLine."Prod. Order Line No."; - SubcontractorWIPLedgerEntry."Routing No." := TransferLine."Routing No."; - SubcontractorWIPLedgerEntry."Routing Reference No." := TransferLine."Routing Reference No."; - SubcontractorWIPLedgerEntry."Operation No." := TransferLine."Operation No."; + SubcontractorWIPLedgerEntry."Prod. Order No." := TransferLine."Subc. Prod. Order No."; + SubcontractorWIPLedgerEntry."Prod. Order Line No." := TransferLine."Subc. Prod. Order Line No."; + SubcontractorWIPLedgerEntry."Routing No." := TransferLine."Subc. Routing No."; + SubcontractorWIPLedgerEntry."Routing Reference No." := TransferLine."Subc. Routing Reference No."; + SubcontractorWIPLedgerEntry."Operation No." := TransferLine."Subc. Operation No."; if IsShipment and not (SubcontractorWIPLedgerEntry."In Transit") then if TransferLine."Prev. Operation No." <> '' then SubcontractorWIPLedgerEntry."Operation No." := TransferLine."Prev. Operation No."; - SubcontractorWIPLedgerEntry."Work Center No." := TransferLine."Work Center No."; + SubcontractorWIPLedgerEntry."Work Center No." := TransferLine."Subc. Work Center No."; SubcontractorWIPLedgerEntry.Description := TransferLine.Description; SubcontractorWIPLedgerEntry."Description 2" := TransferLine."Description 2"; end; @@ -407,8 +407,8 @@ codeunit 99001541 "Subc. Transfer WIP Posting" var Vendor: Record Vendor; begin - Vendor.SetCurrentKey("Subcontr. Location Code"); - Vendor.SetRange("Subcontr. Location Code", LocationCode); + Vendor.SetCurrentKey("Subc. Location Code"); + Vendor.SetRange("Subc. Location Code", LocationCode); exit(not Vendor.IsEmpty()); end; 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/SubcManagementLibrary.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcManagementLibrary.Codeunit.al index 10621b0f43..613437d504 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcManagementLibrary.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Libraries/SubcManagementLibrary.Codeunit.al @@ -117,7 +117,7 @@ codeunit 139983 "Subc. Management Library" 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(); @@ -186,7 +186,7 @@ codeunit 139983 "Subc. Management Library" #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; procedure UpdateManufacturingSetupWithSubcontractingLocation() 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 e0bdb1ad83..b2990e0cb1 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 @@ -63,10 +63,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; @@ -196,7 +196,7 @@ codeunit 149908 "Subc. Warehouse Library" SubcLibraryMfgManagement.CreateWorkCenterWithCalendar(WorkCenter[1], LibraryRandom.RandDec(10, 2)); LibraryPurchase.CreateSubcontractor(Vendor1); LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); - Vendor1."Subcontr. Location Code" := Location.Code; + Vendor1."Subc. Location Code" := Location.Code; Vendor1.Modify(true); WorkCenter[1]."Subcontractor No." := Vendor1."No."; WorkCenter[1].Modify(true); @@ -205,7 +205,7 @@ codeunit 149908 "Subc. Warehouse Library" SubcLibraryMfgManagement.CreateWorkCenterWithCalendar(WorkCenter[2], LibraryRandom.RandDec(10, 2)); LibraryPurchase.CreateSubcontractor(Vendor2); LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); - Vendor2."Subcontr. Location Code" := Location.Code; + Vendor2."Subc. Location Code" := Location.Code; Vendor2.Modify(true); WorkCenter[2]."Subcontractor No." := Vendor2."No."; WorkCenter[2].Modify(true); @@ -843,7 +843,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 727b14b68f..a4a54d9312 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 @@ -422,7 +422,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."); @@ -455,8 +455,8 @@ codeunit 139981 "Subc. Location Handler Test" // [GIVEN] A vendor LibraryPurchase.CreateVendor(Vendor); - // [WHEN] / [THEN] Validating "Subcontr. Location Code" to a Bin Mandatory location raises an error immediately - asserterror Vendor.Validate("Subcontr. Location Code", Location.Code); + // [WHEN] / [THEN] Validating "Subc. Location Code" to a Bin Mandatory location raises an error immediately + asserterror Vendor.Validate("Subc. Location Code", Location.Code); Assert.ExpectedError('Bin Mandatory'); end; @@ -521,7 +521,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; @@ -542,7 +542,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(); @@ -606,7 +606,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 24884d92f5..84a4f5ddce 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 @@ -89,14 +89,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); @@ -172,7 +172,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"); @@ -243,7 +243,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); @@ -284,9 +284,9 @@ codeunit 139991 "Subc. Purch. Subcont. Test" // [GIVEN] A vendor LibraryPurchase.CreateVendor(Vendor); - // [WHEN] Try to set the vendor's Subcontr. Location Code to the location with Bin Mandatory + // [WHEN] Try to set the vendor's Subc. Location Code to the location with Bin Mandatory // [THEN] An error is thrown with ErrorInfo - asserterror Vendor.Validate("Subcontr. Location Code", Location.Code); + asserterror Vendor.Validate("Subc. Location Code", Location.Code); Assert.ExpectedError('Location ' + Location.Code + ' cannot be used as a subcontracting location because Bin Mandatory or warehouse handling is enabled on the location.'); end; @@ -308,9 +308,9 @@ codeunit 139991 "Subc. Purch. Subcont. Test" // [GIVEN] A vendor LibraryPurchase.CreateVendor(Vendor); - // [WHEN] Try to set the vendor's Subcontr. Location Code to the location with Require Pick + // [WHEN] Try to set the vendor's Subc. Location Code to the location with Require Pick // [THEN] An error is thrown - asserterror Vendor.Validate("Subcontr. Location Code", Location.Code); + asserterror Vendor.Validate("Subc. Location Code", Location.Code); Assert.ExpectedError('Location ' + Location.Code + ' cannot be used as a subcontracting location because Bin Mandatory or warehouse handling is enabled on the location.'); end; @@ -336,10 +336,10 @@ codeunit 139991 "Subc. Purch. Subcont. Test" // [GIVEN] A vendor LibraryPurchase.CreateVendor(Vendor); - // [WHEN] Set the vendor's Subcontr. Location Code to the valid location + // [WHEN] Set the vendor's Subc. Location Code to the valid location // [THEN] The validation succeeds and the field is updated - Vendor.Validate("Subcontr. Location Code", Location.Code); - Assert.AreEqual(Location.Code, Vendor."Subcontr. Location Code", 'Subcontr. Location Code should be set to the valid location'); + Vendor.Validate("Subc. Location Code", Location.Code); + Assert.AreEqual(Location.Code, Vendor."Subc. Location Code", 'Subc. Location Code should be set to the valid location'); end; [Test] @@ -425,7 +425,7 @@ codeunit 139991 "Subc. Purch. Subcont. Test" CreateAndCalculateNeededWorkCenter(WorkCenter, true); Vendor.Get(WorkCenter."Subcontractor No."); LibraryWarehouse.CreateLocationWithInventoryPostingSetup(Location); - Vendor."Subcontr. Location Code" := Location.Code; + Vendor."Subc. Location Code" := Location.Code; Vendor.Modify(); LibraryWarehouse.CreateLocationWithInventoryPostingSetup(HomeLocation); 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 6a80f01dea..02573644d1 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 ebed58e81c..4889b1231a 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 @@ -159,7 +159,7 @@ codeunit 139989 "Subc. Subcontracting Test" TransferLine.Reset(); TransferLine.SetRange("Document No.", SecondTransferOrderNo); - TransferLine.SetRange("Prod. Order No.", ProductionOrder2."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder2."No."); Assert.RecordIsNotEmpty(TransferLine); end; @@ -577,7 +577,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); @@ -655,9 +655,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."); @@ -744,9 +744,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."); @@ -834,9 +834,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."); @@ -870,9 +870,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."); @@ -978,7 +978,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(); @@ -1111,7 +1111,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(); @@ -1347,7 +1347,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); @@ -1434,7 +1434,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(); @@ -1520,7 +1520,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(); @@ -1611,7 +1611,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); @@ -1853,7 +1853,7 @@ codeunit 139989 "Subc. Subcontracting Test" // [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] @@ -1951,13 +1951,13 @@ codeunit 139989 "Subc. Subcontracting Test" ItemLedgerEntry.FindFirst(); Assert.AreEqual( - PurchaseHeader."No.", ItemLedgerEntry."Subcontr. Purch. Order 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."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; @@ -2302,7 +2302,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(); TransferHeader.Get(TransferLine."Document No."); @@ -2384,9 +2384,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.Get(TransferLine."Document No."); @@ -2409,7 +2409,7 @@ codeunit 139989 "Subc. Subcontracting Test" // [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'); @@ -2483,9 +2483,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.Get(TransferLine."Document No."); @@ -2508,7 +2508,7 @@ codeunit 139989 "Subc. Subcontracting Test" // [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'); @@ -2868,7 +2868,7 @@ codeunit 139989 "Subc. Subcontracting 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(); @@ -2921,7 +2921,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(); 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..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 @@ -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] @@ -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] diff --git a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWIPTransCreateTest.Codeunit.al b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWIPTransCreateTest.Codeunit.al index 41a48c569a..f1faa56024 100644 --- a/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWIPTransCreateTest.Codeunit.al +++ b/src/Apps/W1/Subcontracting/Test/src/Codeunits/Tests/SubcWIPTransCreateTest.Codeunit.al @@ -238,8 +238,8 @@ codeunit 149911 "Subc. WIP Trans. Create Test" PurchaseHeaderPage.CreateTransfOrdToSubcontractor.Invoke(); // [THEN] A WIP Transfer Line exists with correct properties - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); - TransferLine.SetRange("Return Order", false); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Return Order", false); Assert.RecordCount(TransferLine, 2); //Only One transfer header should have been created for both the component and WIP transfer lines @@ -263,7 +263,7 @@ codeunit 149911 "Subc. WIP Trans. Create Test" // [THEN] Transfer header has correct from/to locations TransferHeader.Get(TransferLine."Document No."); Vendor.Get(WorkCenter[2]."Subcontractor No."); - Assert.AreEqual(Vendor."Subcontr. Location Code", TransferHeader."Transfer-to Code", + Assert.AreEqual(Vendor."Subc. Location Code", TransferHeader."Transfer-to Code", 'WIP Transfer must go TO the subcontractor location.'); // [TEARDOWN] @@ -328,8 +328,8 @@ codeunit 149911 "Subc. WIP Trans. Create Test" PurchaseHeaderPage.CreateTransfOrdToSubcontractor.Invoke(); // [THEN] Transfer Lines exists with correct properties - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); - TransferLine.SetRange("Return Order", false); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Return Order", false); Assert.RecordCount(TransferLine, 2); //two transfer headers should have been created for both the component and WIP transfer lines @@ -353,7 +353,7 @@ codeunit 149911 "Subc. WIP Trans. Create Test" // [THEN] Transfer header has correct from/to locations TransferHeader.Get(TransferLine."Document No."); Vendor.Get(WorkCenter[2]."Subcontractor No."); - Assert.AreEqual(Vendor."Subcontr. Location Code", TransferHeader."Transfer-to Code", + Assert.AreEqual(Vendor."Subc. Location Code", TransferHeader."Transfer-to Code", 'WIP Transfer must go TO the subcontractor location.'); end; @@ -408,7 +408,7 @@ codeunit 149911 "Subc. WIP Trans. Create Test" PurchaseHeaderPage.CreateTransfOrdToSubcontractor.Invoke(); // [THEN] No WIP Transfer Line exists - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); TransferLine.SetRange("Transfer WIP Item", true); Assert.RecordIsEmpty(TransferLine); end; @@ -475,18 +475,18 @@ codeunit 149911 "Subc. WIP Trans. Create Test" PurchaseHeaderPage.CreateTransfOrdToSubcontractor.Invoke(); // [GIVEN] Verify first WIP Transfer Line was created - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); #pragma warning disable AA0210 TransferLine.SetRange("Transfer WIP Item", true); #pragma warning restore AA0210 - TransferLine.SetRange("Return Order", false); + TransferLine.SetRange("Subc. Return Order", false); Assert.RecordCount(TransferLine, 1); TransferLine.FindFirst(); // [GIVEN] Simulate posting the transfer by creating WIP Ledger Entry with quantity equal to expected quantity Vendor.Get(WorkCenter[2]."Subcontractor No."); SubcontractingMgmtLibrary.CreateWIPLedgerEntry( - WIPLedgerEntry, Item."No.", Vendor."Subcontr. Location Code", + WIPLedgerEntry, Item."No.", Vendor."Subc. Location Code", ProductionOrder, ProdOrderLine, ProdOrderRoutingLine, WorkCenter[2]."No.", ProductionOrder.Quantity, false); @@ -554,7 +554,7 @@ codeunit 149911 "Subc. WIP Trans. Create Test" // [GIVEN] Get the WIP Transfer Line and locate the subcontractor location Vendor.Get(WorkCenter[2]."Subcontractor No."); - SubcLocationCode := Vendor."Subcontr. Location Code"; + SubcLocationCode := Vendor."Subc. Location Code"; ProdOrderLine.SetRange(Status, "Production Order Status"::Released); ProdOrderLine.SetRange("Prod. Order No.", ProductionOrder."No."); @@ -579,11 +579,11 @@ codeunit 149911 "Subc. WIP Trans. Create Test" PurchaseHeaderPage.CreateReturnFromSubcontractor.Invoke(); // [THEN] A WIP Return Transfer Line exists - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); #pragma warning disable AA0210 TransferLine.SetRange("Transfer WIP Item", true); #pragma warning restore AA0210 - TransferLine.SetRange("Return Order", true); + TransferLine.SetRange("Subc. Return Order", true); Assert.RecordIsNotEmpty(TransferLine); TransferLine.FindFirst(); @@ -657,8 +657,8 @@ codeunit 149911 "Subc. WIP Trans. Create Test" // [GIVEN] Read subcontractor location codes after all vendor updates Vendor1.Get(WorkCenter[1]."Subcontractor No."); Vendor2.Get(WorkCenter[2]."Subcontractor No."); - Subc1LocationCode := Vendor1."Subcontr. Location Code"; - Subc2LocationCode := Vendor2."Subcontr. Location Code"; + Subc1LocationCode := Vendor1."Subc. Location Code"; + Subc2LocationCode := Vendor2."Subc. Location Code"; // [GIVEN] Locate the Prod. Order line and the routing line for Subcontractor 1 (previous op) ProdOrderLine.SetRange(Status, "Production Order Status"::Released); @@ -696,11 +696,11 @@ codeunit 149911 "Subc. WIP Trans. Create Test" PurchaseHeaderPage.CreateTransfOrdToSubcontractor.Invoke(); // [THEN] A WIP Transfer Line exists for the production order - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); #pragma warning disable AA0210 TransferLine.SetRange("Transfer WIP Item", true); #pragma warning restore AA0210 - TransferLine.SetRange("Return Order", false); + TransferLine.SetRange("Subc. Return Order", false); Assert.RecordCount(TransferLine, 1); TransferLine.FindFirst(); @@ -757,9 +757,9 @@ codeunit 149911 "Subc. WIP Trans. Create Test" // [GIVEN] Get subcontractor location codes from work centers Vendor.Get(WorkCenter[1]."Subcontractor No."); - Loc30Code := Vendor."Subcontr. Location Code"; + Loc30Code := Vendor."Subc. Location Code"; Vendor.Get(WorkCenter[2]."Subcontractor No."); - Loc40Code := Vendor."Subcontr. Location Code"; + Loc40Code := Vendor."Subc. Location Code"; // [GIVEN] Create released production order LibraryManufacturing.CreateProductionOrder( @@ -795,11 +795,11 @@ codeunit 149911 "Subc. WIP Trans. Create Test" PurchaseHeaderPage.CreateTransfOrdToSubcontractor.Invoke(); // [THEN] Exactly two WIP Transfer Lines exist (one per parallel predecessor path) - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); #pragma warning disable AA0210 TransferLine.SetRange("Transfer WIP Item", true); #pragma warning restore AA0210 - TransferLine.SetRange("Return Order", false); + TransferLine.SetRange("Subc. Return Order", false); Assert.RecordCount(TransferLine, 2); // [THEN] The two WIP Transfer Lines belong to two different Transfer Headers @@ -815,7 +815,7 @@ codeunit 149911 "Subc. WIP Trans. Create Test" #pragma warning disable AA0210 TransferLine.SetRange("Transfer WIP Item", true); #pragma warning restore AA0210 - TransferLine.SetRange("Return Order", false); + TransferLine.SetRange("Subc. Return Order", false); TransferLine.FindSet(); repeat Assert.AreEqual(Item."No.", TransferLine."Item No.", @@ -906,7 +906,7 @@ codeunit 149911 "Subc. WIP Trans. Create Test" SetProdOrderLocationToCompSetupLocationAndRefresh(ProductionOrder); // [GIVEN] Create a transfer route from the prod order line location to the subcontractor location - CreateAndUpdateTransferRoute(GetManufacturingSetupCompLocation(), Vendor."Subcontr. Location Code"); + CreateAndUpdateTransferRoute(GetManufacturingSetupCompLocation(), Vendor."Subc. Location Code"); SubcWarehouseLibrary.UpdateSubMgmtSetupWithReqWkshTemplate(); // [WHEN] Calculate Subcontracts: produces one requisition line per prod order routing line (= 2) @@ -949,11 +949,11 @@ codeunit 149911 "Subc. WIP Trans. Create Test" PurchaseHeaderPage.CreateTransfOrdToSubcontractor.Invoke(); // [THEN] Exactly 2 WIP Transfer Lines exist – one per family item / prod order line - TransferLine.SetRange("Prod. Order No.", ProductionOrder."No."); + TransferLine.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); #pragma warning disable AA0210 TransferLine.SetRange("Transfer WIP Item", true); #pragma warning restore AA0210 - TransferLine.SetRange("Return Order", false); + TransferLine.SetRange("Subc. Return Order", false); Assert.RecordCount(TransferLine, 2); // [THEN] Each WIP Transfer Line references one of the two family items 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();