diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al index 1eb63abeb4..f214a66bba 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcBusinessSetupExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -23,8 +23,8 @@ codeunit 99001502 "Subc. Business Setup Ext." [EventSubscriber(ObjectType::Codeunit, Codeunit::"Company-Initialize", OnCompanyInitialize, '', false, false)] local procedure OnCompanyInitialize() var - SubcontractingMgtCompInit: Codeunit "Subcontracting Comp. Init."; + SubcontractingCompInit: Codeunit "Subcontracting Comp. Init."; begin - SubcontractingMgtCompInit.CreateBasicSubcontractingMgtSetup(); + SubcontractingCompInit.CreateBasicSubcontractingMgtSetup(); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al index 65d5ae316f..5805d1dbd7 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingCompInit.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -16,15 +16,15 @@ codeunit 99001503 "Subcontracting Comp. Init." local procedure CreateSubcontractingManagementSetup() var - SubcontractingManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; begin - if not SubcontractingManagementSetup.Get() then begin - SubcontractingManagementSetup.Init(); - CreateLaborReqWkshTemplateAndNameAndUpdateSetup(SubcontractingManagementSetup); - SubcontractingManagementSetup."Direct Transfer" := true; - SubcontractingManagementSetup."Create Prod. Order Info Line" := true; - Evaluate(SubcontractingManagementSetup."Subc. Inb. Whse. Handling Time", GetDefaultInboundWhseHandlingTime()); - SubcontractingManagementSetup.Insert(true); + if not SubcManagementSetup.Get() then begin + SubcManagementSetup.Init(); + CreateLaborReqWkshTemplateAndNameAndUpdateSetup(SubcManagementSetup); + SubcManagementSetup."Direct Transfer" := true; + SubcManagementSetup."Create Prod. Order Info Line" := true; + Evaluate(SubcManagementSetup."Subc. Inb. Whse. Handling Time", GetDefaultInboundWhseHandlingTime()); + SubcManagementSetup.Insert(true); end; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al index a5df218501..7845d04d9e 100644 --- a/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Install/SubcontractingInstall.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -33,16 +33,16 @@ codeunit 99001501 "Subcontracting Install" local procedure HandleFreshInstallPerCompany() var - SubcontractingCompanyInit: Codeunit "Subcontracting Comp. Init."; + SubcontractingCompInit: Codeunit "Subcontracting Comp. Init."; begin - SubcontractingCompanyInit.CreateBasicSubcontractingMgtSetup(); + SubcontractingCompInit.CreateBasicSubcontractingMgtSetup(); end; local procedure HandleReinstallPerCompany() var - SubcontractingCompanyInit: Codeunit "Subcontracting Comp. Init."; + SubcontractingCompInit: Codeunit "Subcontracting Comp. Init."; begin - SubcontractingCompanyInit.CreateBasicSubcontractingMgtSetup(); + SubcontractingCompInit.CreateBasicSubcontractingMgtSetup(); end; local procedure HandleFreshInstallPerDatabase() 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 4b78fdada0..c870be1885 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -13,12 +13,12 @@ codeunit 99001517 "Subc. Calc. Prod. Order Ext." [EventSubscriber(ObjectType::Codeunit, Codeunit::"Calculate Prod. Order", OnAfterTransferRoutingLine, '', false, false)] local procedure OnAfterTransferRoutingLine(var ProdOrderLine: Record "Prod. Order Line"; var RoutingLine: Record "Routing Line"; var ProdOrderRoutingLine: Record "Prod. Order Routing Line") var - SubPricingMgmt: Codeunit "Subc. Price Management"; - SubSubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin - SubSubcontractingMgmt.UpdateLinkedComponentsAfterRoutingTransfer(ProdOrderLine, RoutingLine, ProdOrderRoutingLine); + SubcontractingManagement.UpdateLinkedComponentsAfterRoutingTransfer(ProdOrderLine, RoutingLine, ProdOrderRoutingLine); - SubPricingMgmt.ApplySubcontractorPricingToProdOrderRouting(ProdOrderLine, RoutingLine, ProdOrderRoutingLine); + SubcPriceManagement.ApplySubcontractorPricingToProdOrderRouting(ProdOrderLine, RoutingLine, ProdOrderRoutingLine); end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Calculate Prod. Order", OnAfterTransferBOMComponent, '', false, false)] diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCreateProdRtngExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCreateProdRtngExt.Codeunit.al index dbec49ed40..8d67a5450c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCreateProdRtngExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcCreateProdRtngExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -13,8 +13,8 @@ codeunit 99001526 "Subc. Create Prod. Rtng. Ext." [EventSubscriber(ObjectType::Report, Report::"Subc. Create Prod. Routing", OnAfterInsertRoutingHeader, '', false, false)] local procedure OnAfterInsertRoutingHeader(RoutingHeader: Record "Routing Header") var - SubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin - SubcontractingMgmt.CreatePurchProvisionRoutingLine(RoutingHeader); + SubcontractingManagement.CreatePurchProvisionRoutingLine(RoutingHeader); 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 e661b58861..74959f81b8 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -42,20 +42,20 @@ codeunit 99001522 "Subc. Planning Comp. Ext." local procedure HandleRoutingLinkCodeValidation(var PlanningComponent: Record "Planning Component"; var xPlanningComponent: Record "Planning Component") var - PlanningRtngLine: Record "Planning Routing Line"; - SKU: Record "Stockkeeping Unit"; + PlanningRoutingLine: Record "Planning Routing Line"; + StockkeepingUnit: Record "Stockkeeping Unit"; Vendor: Record Vendor; - GetPlanningParameters: Codeunit "Planning-Get Parameters"; + PlanningGetParameters: Codeunit "Planning-Get Parameters"; SubcontractingManagement: Codeunit "Subcontracting Management"; begin if PlanningComponent."Routing Link Code" <> '' then begin - PlanningRtngLine.SetRange("Worksheet Template Name", PlanningComponent."Worksheet Template Name"); - PlanningRtngLine.SetRange("Worksheet Batch Name", PlanningComponent."Worksheet Batch Name"); - PlanningRtngLine.SetRange("Worksheet Line No.", PlanningComponent."Worksheet Line No."); - PlanningRtngLine.SetRange("Routing Link Code", PlanningComponent."Routing Link Code"); - PlanningRtngLine.SetRange(Type, PlanningRtngLine.Type::"Work Center"); - if PlanningRtngLine.FindFirst() then - if SubcontractingManagement.GetSubcontractor(PlanningRtngLine."No.", Vendor) then + PlanningRoutingLine.SetRange("Worksheet Template Name", PlanningComponent."Worksheet Template Name"); + PlanningRoutingLine.SetRange("Worksheet Batch Name", PlanningComponent."Worksheet Batch Name"); + PlanningRoutingLine.SetRange("Worksheet Line No.", PlanningComponent."Worksheet Line No."); + PlanningRoutingLine.SetRange("Routing Link Code", PlanningComponent."Routing Link Code"); + PlanningRoutingLine.SetRange(Type, PlanningRoutingLine.Type::"Work Center"); + if PlanningRoutingLine.FindFirst() then + if SubcontractingManagement.GetSubcontractor(PlanningRoutingLine."No.", Vendor) then SubcontractingManagement.ChangeLocation_OnPlanningComponent(PlanningComponent, Vendor."Subcontr. Location Code", PlanningComponent."Orig. Location Code", PlanningComponent."Orig. Bin Code"); end else if xPlanningComponent."Routing Link Code" <> '' then @@ -67,12 +67,12 @@ codeunit 99001522 "Subc. Planning Comp. Ext." PlanningComponent."Orig. Bin Code" := ''; end; end else begin - GetPlanningParameters.AtSKU( - SKU, + PlanningGetParameters.AtSKU( + StockkeepingUnit, PlanningComponent."Item No.", PlanningComponent."Variant Code", PlanningComponent."Location Code"); - PlanningComponent.Validate(PlanningComponent."Location Code", SKU."Components at Location"); + PlanningComponent.Validate(PlanningComponent."Location Code", StockkeepingUnit."Components at Location"); end; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al index 0c2b41c8e7..5873c48a51 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcPlanningLineMgmtExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -19,8 +19,8 @@ codeunit 99001518 "Subc. Planning Line Mgmt Ext." #endif local procedure OnAfterTransferRtngLine(var ReqLine: Record "Requisition Line"; var RoutingLine: Record "Routing Line"; var PlanningRoutingLine: Record "Planning Routing Line") var - SubPricingMgmt: Codeunit "Subc. Price Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; begin - SubPricingMgmt.ApplySubcontractorPricingToPlanningRouting(ReqLine, RoutingLine, PlanningRoutingLine); + SubcPriceManagement.ApplySubcontractorPricingToPlanningRouting(ReqLine, RoutingLine, PlanningRoutingLine); end; } \ No newline at end of file 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 8df7e4b8f3..398390b35a 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -53,21 +53,21 @@ codeunit 99001524 "Subc. Prod. Order Comp. Ext." local procedure CheckExistingPostedSubcontractingTransferOrder(ProdOrderComponent: Record "Prod. Order Component"): Boolean var - TransferShipLine: Record "Transfer Shipment Line"; - ConfirmMgt: Codeunit "Confirm Management"; + TransferShipmentLine: Record "Transfer Shipment Line"; + ConfirmManagement: Codeunit "Confirm Management"; ExistingTransferLineQst: Label 'The component has already been assigned to the posted subcontracting transfer order %1.\\Do you want to continue?', Comment = '%1=Transfer Order No'; begin if ProdOrderComponent."Subcontracting Type" <> "Subcontracting Type"::Transfer then exit; - TransferShipLine.SetRange("Prod. Order No.", ProdOrderComponent."Prod. Order No."); - TransferShipLine.SetRange("Prod. Order Line No.", ProdOrderComponent."Prod. Order Line No."); - TransferShipLine.SetRange("Prod. Order Comp. Line No.", ProdOrderComponent."Line No."); - TransferShipLine.SetRange("Item No.", ProdOrderComponent."Item No."); - if not TransferShipLine.IsEmpty() then begin - TransferShipLine.SetLoadFields(SystemId); - TransferShipLine.FindFirst(); - if not ConfirmMgt.GetResponse(StrSubstNo(ExistingTransferLineQst, TransferShipLine."Document No.")) then + 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("Item No.", ProdOrderComponent."Item No."); + if not TransferShipmentLine.IsEmpty() then begin + TransferShipmentLine.SetLoadFields(SystemId); + TransferShipmentLine.FindFirst(); + if not ConfirmManagement.GetResponse(StrSubstNo(ExistingTransferLineQst, TransferShipmentLine."Document No.")) then Error(''); end; end; @@ -240,10 +240,10 @@ codeunit 99001524 "Subc. Prod. Order Comp. Ext." local procedure HandleRoutingLinkCodeValidation(var ProdOrderComponent: Record "Prod. Order Component"; var xProdOrderComponent: Record "Prod. Order Component") var ProdOrderLine: Record "Prod. Order Line"; - ProdOrderRtngLine: Record "Prod. Order Routing Line"; - SKU: Record "Stockkeeping Unit"; + ProdOrderRoutingLine: Record "Prod. Order Routing Line"; + StockkeepingUnit: Record "Stockkeeping Unit"; Vendor: Record Vendor; - GetPlanningParameters: Codeunit "Planning-Get Parameters"; + PlanningGetParameters: Codeunit "Planning-Get Parameters"; SubcontractingManagement: Codeunit "Subcontracting Management"; begin if ProdOrderComponent."Subcontracting Type" = ProdOrderComponent."Subcontracting Type"::Transfer then @@ -252,16 +252,16 @@ codeunit 99001524 "Subc. Prod. Order Comp. Ext." ProdOrderLine.SetLoadFields("Routing No.", "Routing Reference No.", "Item No.", "Variant Code", "Location Code"); ProdOrderLine.Get(ProdOrderComponent.Status, ProdOrderComponent."Prod. Order No.", ProdOrderComponent."Prod. Order Line No."); if ProdOrderComponent."Routing Link Code" <> '' then begin - ProdOrderRtngLine.SetRange(Status, ProdOrderComponent.Status); - ProdOrderRtngLine.SetRange("Prod. Order No.", ProdOrderComponent."Prod. Order No."); - ProdOrderRtngLine.SetRange("Routing No.", ProdOrderLine."Routing No."); - ProdOrderRtngLine.SetRange("Routing Reference No.", ProdOrderLine."Routing Reference No."); - ProdOrderRtngLine.SetRange("Routing Link Code", ProdOrderComponent."Routing Link Code"); - if ProdOrderRtngLine.FindFirst() then begin - ProdOrderComponent."Due Date" := ProdOrderRtngLine."Starting Date"; - ProdOrderComponent."Due Time" := ProdOrderRtngLine."Starting Time"; - if (ProdOrderRtngLine.Type = ProdOrderRtngLine.Type::"Work Center") then - if SubcontractingManagement.GetSubcontractor(ProdOrderRtngLine."No.", Vendor) then + ProdOrderRoutingLine.SetRange(Status, ProdOrderComponent.Status); + ProdOrderRoutingLine.SetRange("Prod. Order No.", ProdOrderComponent."Prod. Order No."); + ProdOrderRoutingLine.SetRange("Routing No.", ProdOrderLine."Routing No."); + ProdOrderRoutingLine.SetRange("Routing Reference No.", ProdOrderLine."Routing Reference No."); + ProdOrderRoutingLine.SetRange("Routing Link Code", ProdOrderComponent."Routing Link Code"); + if ProdOrderRoutingLine.FindFirst() then begin + ProdOrderComponent."Due Date" := ProdOrderRoutingLine."Starting Date"; + ProdOrderComponent."Due Time" := ProdOrderRoutingLine."Starting Time"; + if (ProdOrderRoutingLine.Type = ProdOrderRoutingLine.Type::"Work Center") then + if SubcontractingManagement.GetSubcontractor(ProdOrderRoutingLine."No.", Vendor) then SubcontractingManagement.ChangeLocation_OnProdOrderComponent(ProdOrderComponent, Vendor."Subcontr. Location Code", ProdOrderComponent."Orig. Location Code", ProdOrderComponent."Orig. Bin Code"); end; end else @@ -274,12 +274,12 @@ codeunit 99001524 "Subc. Prod. Order Comp. Ext." ProdOrderComponent."Orig. Bin Code" := ''; end; end else begin - GetPlanningParameters.AtSKU( - SKU, + PlanningGetParameters.AtSKU( + StockkeepingUnit, ProdOrderLine."Item No.", ProdOrderLine."Variant Code", ProdOrderLine."Location Code"); - ProdOrderComponent.Validate("Location Code", SKU."Components at Location"); + ProdOrderComponent.Validate("Location Code", StockkeepingUnit."Components at Location"); end; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcProdOrderRtngExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcProdOrderRtngExt.Codeunit.al index f76106ba4d..cc5ca19ce6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcProdOrderRtngExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcProdOrderRtngExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -19,10 +19,10 @@ codeunit 99001520 "Subc. Prod. Order Rtng. Ext." [EventSubscriber(ObjectType::Table, Database::"Prod. Order Routing Line", OnBeforeValidateEvent, "No.", false, false)] local procedure OnBeforeValidateNo(var Rec: Record "Prod. Order Routing Line"; var xRec: Record "Prod. Order Routing Line"; CurrFieldNo: Integer) var - SubSubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin if (xRec."No." <> Rec."No.") and (Rec."Routing Link Code" <> '') then - SubSubcontractingMgmt.UpdLinkedComponents(Rec, true); + SubcontractingManagement.UpdLinkedComponents(Rec, true); end; [EventSubscriber(ObjectType::Table, Database::"Prod. Order Routing Line", OnAfterValidateEvent, "Routing Link Code", false, false)] @@ -34,56 +34,56 @@ codeunit 99001520 "Subc. Prod. Order Rtng. Ext." [EventSubscriber(ObjectType::Table, Database::"Prod. Order Routing Line", OnAfterValidateEvent, "Standard Task Code", false, false)] local procedure OnAfterValidateStandardTaskCode(var Rec: Record "Prod. Order Routing Line"; var xRec: Record "Prod. Order Routing Line"; CurrFieldNo: Integer) var - SubPricingMgmt: Codeunit "Subc. Price Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; begin - SubPricingMgmt.GetSubcPriceList(Rec); + SubcPriceManagement.GetSubcPriceList(Rec); end; [EventSubscriber(ObjectType::Table, Database::"Prod. Order Routing Line", OnAfterWorkCenterTransferFields, '', false, false)] local procedure OnAfterWorkCenterTransferFields(var ProdOrderRoutingLine: Record "Prod. Order Routing Line"; WorkCenter: Record "Work Center") var - SubPricingMgmt: Codeunit "Subc. Price Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; begin - SubPricingMgmt.GetSubcPriceList(ProdOrderRoutingLine); + SubcPriceManagement.GetSubcPriceList(ProdOrderRoutingLine); end; local procedure HandleRoutingLinkCodeValidation(var ProdOrderRoutingLine: Record "Prod. Order Routing Line"; var xProdOrderRoutingLine: Record "Prod. Order Routing Line") var - ProdOrdRtngLine2: Record "Prod. Order Routing Line"; - ConfirmMgt: Codeunit "Confirm Management"; - SubSubcontractingMgmt: Codeunit "Subcontracting Management"; + ProdOrderRoutingLine2: Record "Prod. Order Routing Line"; + ConfirmManagement: Codeunit "Confirm Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; UpdateCanceledErr: Label 'Update cancelled.'; UpdateRoutingQst: Label '%1 %2 used more than once on this Routing. Do you want to update it anyway?', Comment = '%1=Field Caption, %2=Routing Link Code'; begin - ProdOrdRtngLine2 := ProdOrderRoutingLine; - ProdOrdRtngLine2.SetRecFilter(); - ProdOrdRtngLine2.SetRange("Operation No."); - ProdOrdRtngLine2.SetRange("Routing Link Code", ProdOrderRoutingLine."Routing Link Code"); - if not ProdOrdRtngLine2.IsEmpty() then - if not ConfirmMgt.GetResponse(StrSubstNo(UpdateRoutingQst, ProdOrderRoutingLine.FieldCaption(ProdOrderRoutingLine."Routing Link Code"), ProdOrderRoutingLine."Routing Link Code"), false) then + ProdOrderRoutingLine2 := ProdOrderRoutingLine; + ProdOrderRoutingLine2.SetRecFilter(); + ProdOrderRoutingLine2.SetRange("Operation No."); + ProdOrderRoutingLine2.SetRange("Routing Link Code", ProdOrderRoutingLine."Routing Link Code"); + if not ProdOrderRoutingLine2.IsEmpty() then + if not ConfirmManagement.GetResponse(StrSubstNo(UpdateRoutingQst, ProdOrderRoutingLine.FieldCaption(ProdOrderRoutingLine."Routing Link Code"), ProdOrderRoutingLine."Routing Link Code"), false) then Error(UpdateCanceledErr); if ProdOrderRoutingLine."Routing Link Code" <> xProdOrderRoutingLine."Routing Link Code" then if xProdOrderRoutingLine."Routing Link Code" <> '' then begin - SubSubcontractingMgmt.DelLocationLinkedComponents(xProdOrderRoutingLine, true); + SubcontractingManagement.DelLocationLinkedComponents(xProdOrderRoutingLine, true); if ProdOrderRoutingLine."Routing Link Code" <> '' then - SubSubcontractingMgmt.UpdLinkedComponents(ProdOrderRoutingLine, false); + SubcontractingManagement.UpdLinkedComponents(ProdOrderRoutingLine, false); end else if ProdOrderRoutingLine."Routing Link Code" <> '' then - SubSubcontractingMgmt.UpdLinkedComponents(ProdOrderRoutingLine, true); + SubcontractingManagement.UpdLinkedComponents(ProdOrderRoutingLine, true); end; local procedure HandleSubcontractingAfterRoutingLineDelete(var ProdOrderRoutingLine: Record "Prod. Order Routing Line"; RunTrigger: Boolean) var WorkCenter: Record "Work Center"; - SubSubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin if RunTrigger then if ProdOrderRoutingLine.Status = ProdOrderRoutingLine.Status::Released then if ProdOrderRoutingLine.Type = ProdOrderRoutingLine.Type::"Work Center" then begin WorkCenter.Get(ProdOrderRoutingLine."No."); if (ProdOrderRoutingLine."Routing Link Code" <> '') and (WorkCenter."Subcontractor No." <> '') then - SubSubcontractingMgmt.DelLocationLinkedComponents(ProdOrderRoutingLine, false); + SubcontractingManagement.DelLocationLinkedComponents(ProdOrderRoutingLine, false); end; end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al index 9a162f2acc..5e1dd8d141 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcReqWkshMakeOrd.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -17,9 +17,9 @@ codeunit 99001516 "Subc. Req. Wksh. Make Ord." local procedure HandleSubcontractingAfterPurchOrderLineInsert(var PurchOrderLine: Record "Purchase Line"; var NextLineNo: Integer; var RequisitionLine: Record "Requisition Line") var - EnhSubMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin - EnhSubMgmt.InsertProdDescriptionOnAfterInsertPurchOrderLine(PurchOrderLine, RequisitionLine); - EnhSubMgmt.TransferSubcontractingProdOrderComp(PurchOrderLine, RequisitionLine, NextLineNo); + SubcontractingManagement.InsertProdDescriptionOnAfterInsertPurchOrderLine(PurchOrderLine, RequisitionLine); + SubcontractingManagement.TransferSubcontractingProdOrderComp(PurchOrderLine, RequisitionLine, NextLineNo); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcontractingManagementExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcontractingManagementExt.Codeunit.al index f24d7e1620..e20760db65 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcontractingManagementExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Manufacturing/SubcontractingManagementExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -11,10 +11,10 @@ codeunit 99001527 "Subcontracting Management Ext." [EventSubscriber(ObjectType::Codeunit, Codeunit::"Subcontracting Management", OnBeforeHandleProdOrderRtngWorkCenterWithSubcontractor, '', false, false)] local procedure OnBeforeHandleProdOrderRtngWorkCenterWithSubcontractor(var SubContractorWorkCenterNo: Code[20]) var - SingleInstanceDict: Codeunit "Single Instance Dictionary"; - SubcontractingMgmt: Codeunit "Subcontracting Management"; + SingleInstanceDictionary: Codeunit "Single Instance Dictionary"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin if SubContractorWorkCenterNo = '' then - SubContractorWorkCenterNo := CopyStr(SingleInstanceDict.GetCode(SubcontractingMgmt.GetDictionaryKey_Sub_CreateProdOrderProcess()), 1, 20); + SubContractorWorkCenterNo := CopyStr(SingleInstanceDictionary.GetCode(SubcontractingManagement.GetDictionaryKey_Sub_CreateProdOrderProcess()), 1, 20); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcItemChargeAssPurchExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcItemChargeAssPurchExt.Codeunit.al index b22cdfdee0..47ff38ccc6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcItemChargeAssPurchExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcItemChargeAssPurchExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -10,12 +10,12 @@ using Microsoft.Purchases.History; codeunit 99001536 "Subc. ItemChargeAssPurchExt" { var - SubManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Charge Assgnt. (Purch.)", OnBeforeCreateRcptChargeAssgnt, '', false, false)] local procedure "Item Charge Assgnt. (Purch.)_OnBeforeCreateRcptChargeAssgnt"(var FromPurchRcptLine: Record "Purch. Rcpt. Line"; ItemChargeAssignmentPurch: Record "Item Charge Assignment (Purch)"; var IsHandled: Boolean) begin - if not SubManagementSetup.ItemChargeToRcptSubReferenceEnabled() then + if not SubcManagementSetup.ItemChargeToRcptSubReferenceEnabled() then exit; IsHandled := true; @@ -24,19 +24,19 @@ codeunit 99001536 "Subc. ItemChargeAssPurchExt" local procedure CreateRcptChargeAssgnt(var FromPurchRcptLine: Record "Purch. Rcpt. Line"; ItemChargeAssgntPurch: Record "Item Charge Assignment (Purch)") var - ItemChargeAssgntPurch2: Record "Item Charge Assignment (Purch)"; + ItemChargeAssignmentPurch2: Record "Item Charge Assignment (Purch)"; ItemChargeAssgntPurchCU: Codeunit "Item Charge Assgnt. (Purch.)"; NextLine: Integer; begin NextLine := ItemChargeAssgntPurch."Line No."; - ItemChargeAssgntPurch2.SetRange("Document Type", ItemChargeAssgntPurch."Document Type"); - ItemChargeAssgntPurch2.SetRange("Document No.", ItemChargeAssgntPurch."Document No."); - ItemChargeAssgntPurch2.SetRange("Document Line No.", ItemChargeAssgntPurch."Document Line No."); - ItemChargeAssgntPurch2.SetRange("Applies-to Doc. Type", "Purchase Applies-to Document Type"::Receipt); + ItemChargeAssignmentPurch2.SetRange("Document Type", ItemChargeAssgntPurch."Document Type"); + ItemChargeAssignmentPurch2.SetRange("Document No.", ItemChargeAssgntPurch."Document No."); + ItemChargeAssignmentPurch2.SetRange("Document Line No.", ItemChargeAssgntPurch."Document Line No."); + ItemChargeAssignmentPurch2.SetRange("Applies-to Doc. Type", "Purchase Applies-to Document Type"::Receipt); repeat - ItemChargeAssgntPurch2.SetRange("Applies-to Doc. No.", FromPurchRcptLine."Document No."); - ItemChargeAssgntPurch2.SetRange("Applies-to Doc. Line No.", FromPurchRcptLine."Line No."); - if ItemChargeAssgntPurch2.IsEmpty() then + ItemChargeAssignmentPurch2.SetRange("Applies-to Doc. No.", FromPurchRcptLine."Document No."); + ItemChargeAssignmentPurch2.SetRange("Applies-to Doc. Line No.", FromPurchRcptLine."Line No."); + if ItemChargeAssignmentPurch2.IsEmpty() then ItemChargeAssgntPurchCU.InsertItemChargeAssignment( ItemChargeAssgntPurch, "Purchase Applies-to Document Type"::Receipt, FromPurchRcptLine."Document No.", FromPurchRcptLine."Line No.", 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 8fe4747f13..7722a7f826 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -16,7 +16,7 @@ using Microsoft.Purchases.Posting; codeunit 99001535 "Subc. Purch. Post Ext" { var - SubManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Purch.-Post", OnBeforeItemJnlPostLine, '', false, false)] local procedure "Purch.-Post_OnBeforeItemJnlPostLine"(var ItemJournalLine: Record "Item Journal Line"; TempItemChargeAssignmentPurch: Record "Item Charge Assignment (Purch)" temporary) @@ -34,7 +34,7 @@ codeunit 99001535 "Subc. Purch. Post Ext" var PurchRcptLine: Record "Purch. Rcpt. Line"; begin - if not SubManagementSetup.ItemChargeToRcptSubReferenceEnabled() then + if not SubcManagementSetup.ItemChargeToRcptSubReferenceEnabled() then exit; if ItemJournalLine."Item Charge No." <> '' then @@ -45,14 +45,14 @@ codeunit 99001535 "Subc. Purch. Post Ext" local procedure SetQuantityBaseOnSubcontractingServiceLine(PurchLine: Record "Purchase Line"; var PurchRcptLine: Record "Purch. Rcpt. Line") var - UOMMgt: Codeunit "Unit of Measure Management"; + UnitofMeasureManagement: Codeunit "Unit of Measure Management"; begin - if not SubManagementSetup.ItemChargeToRcptSubReferenceEnabled() then + if not SubcManagementSetup.ItemChargeToRcptSubReferenceEnabled() then exit; if PurchRcptLine."Quantity (Base)" = 0 then if PurchRcptLineHasProdOrder(PurchRcptLine) then - PurchRcptLine."Quantity (Base)" := UOMMgt.CalcBaseQty( + PurchRcptLine."Quantity (Base)" := UnitofMeasureManagement.CalcBaseQty( PurchRcptLine."No.", PurchRcptLine."Variant Code", PurchRcptLine."Unit of Measure Code", PurchRcptLine.Quantity, PurchRcptLine."Qty. per Unit of Measure", PurchLine."Qty. Rounding Precision (Base)"); end; 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 f2ad404fc9..b5d0ed4d22 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -10,7 +10,7 @@ using Microsoft.Purchases.Vendor; codeunit 99001533 "Subc. Purchase Header Ext" { var - SynchMgmt: Codeunit "Subc. Synchronize Management"; + SubcSynchronizeManagement: Codeunit "Subc. Synchronize Management"; [EventSubscriber(ObjectType::Table, Database::"Purchase Header", OnAfterCopyBuyFromVendorFieldsFromVendor, '', false, false)] local procedure OnAfterCopyBuyFromVendorFieldsFromVendor(var PurchaseHeader: Record "Purchase Header"; Vendor: Record Vendor; xPurchaseHeader: Record "Purchase Header") @@ -21,6 +21,6 @@ codeunit 99001533 "Subc. Purchase Header Ext" [EventSubscriber(ObjectType::Table, Database::"Purchase Header", OnAfterValidateEvent, "Buy-from Vendor No.", false, false)] local procedure OnAfterValidateEvent_BuyFromVendorNo(var Rec: Record "Purchase Header"; var xRec: Record "Purchase Header") begin - SynchMgmt.DeleteEnhancedDocumentsByChangeOfVendorNo(Rec, xRec); + SubcSynchronizeManagement.DeleteEnhancedDocumentsByChangeOfVendorNo(Rec, xRec); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchaseLineExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchaseLineExt.Codeunit.al index cd15c3e5bc..09b81c13fa 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchaseLineExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Purchase/SubcPurchaseLineExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -9,35 +9,35 @@ using Microsoft.Purchases.Document; codeunit 99001534 "Subc. Purchase Line Ext" { var - SynchMgmt: Codeunit "Subc. Synchronize Management"; + SubcSynchronizeManagement: Codeunit "Subc. Synchronize Management"; [EventSubscriber(ObjectType::Table, Database::"Purchase Line", OnAfterDeleteEvent, '', false, false)] local procedure OnAfterDeleteEvent(var Rec: Record "Purchase Line"; RunTrigger: Boolean) begin if RunTrigger then if not Rec.IsTemporary() then - SynchMgmt.DeleteEnhancedDocumentsByDeletePurchLine(Rec); + SubcSynchronizeManagement.DeleteEnhancedDocumentsByDeletePurchLine(Rec); end; [EventSubscriber(ObjectType::Table, Database::"Purchase Line", OnAfterValidateEvent, "Expected Receipt Date", false, false)] local procedure OnAfterValidateExpectedReceiptDate(var Rec: Record "Purchase Line"; var xRec: Record "Purchase Line"; CurrFieldNo: Integer) begin if CurrFieldNo <> 0 then - SynchMgmt.SynchronizeExpectedReceiptDate(Rec, xRec); + SubcSynchronizeManagement.SynchronizeExpectedReceiptDate(Rec, xRec); end; [EventSubscriber(ObjectType::Table, Database::"Purchase Line", OnAfterValidateEvent, Quantity, false, false)] local procedure OnAfterValidateQuantity(var Rec: Record "Purchase Line"; var xRec: Record "Purchase Line"; CurrFieldNo: Integer) begin if CurrFieldNo <> 0 then - SynchMgmt.SynchronizeQuantity(Rec, xRec); + SubcSynchronizeManagement.SynchronizeQuantity(Rec, xRec); end; [EventSubscriber(ObjectType::Table, Database::"Purchase Line", OnAfterValidateEvent, "Unit of Measure Code", false, false)] local procedure OnAfterValidateUnitOfMeasureCode(var Rec: Record "Purchase Line"; var xRec: Record "Purchase Line"; CurrFieldNo: Integer) begin if CurrFieldNo <> 0 then - SynchMgmt.SynchronizeQuantity(Rec, xRec); + SubcSynchronizeManagement.SynchronizeQuantity(Rec, xRec); end; [EventSubscriber(ObjectType::Table, Database::"Purchase Line", OnBeforeUpdateDirectUnitCost, '', false, false)] @@ -63,9 +63,9 @@ codeunit 99001534 "Subc. Purchase Line Ext" local procedure GetSubcontractingPrice(var PurchLine: Record "Purchase Line") var - SubcontractingPriceMgt: Codeunit "Subc. Price Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; begin if (PurchLine.Type = PurchLine.Type::Item) and (PurchLine."No." <> '') and (PurchLine."Prod. Order No." <> '') and (PurchLine."Operation No." <> '') then - SubcontractingPriceMgt.GetSubcPriceForPurchLine(PurchLine); + SubcPriceManagement.GetSubcPriceForPurchLine(PurchLine); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcCalcStandardCostExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcCalcStandardCostExt.Codeunit.al index eb496daaf8..4dc30157c2 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcCalcStandardCostExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcCalcStandardCostExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -13,9 +13,9 @@ codeunit 99001514 "Subc. Calc.StandardCost Ext." [EventSubscriber(ObjectType::Codeunit, Codeunit::"Calculate Standard Cost", OnAfterCalcRtngLineCost, '', false, false)] local procedure OnAfterCalcRtngLineCost(RoutingLine: Record "Routing Line"; MfgItemQtyBase: Decimal; var SLSub: Decimal) var - SubPriceManagement: Codeunit "Subc. Price Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; begin - SubPriceManagement.CalcStandardCostOnAfterCalcRtngLineCost(RoutingLine, MfgItemQtyBase, SLSub); + SubcPriceManagement.CalcStandardCostOnAfterCalcRtngLineCost(RoutingLine, MfgItemQtyBase, SLSub); end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Calculate Standard Cost", OnCalcMfgItemOnBeforeCalcRtngCost, '', 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 2032ca4c63..0fce25252e 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -47,11 +47,11 @@ codeunit 99001515 "Subc. ItemJnlPostLine Ext" var CapacityLedgerEntry: Record "Capacity Ledger Entry"; ProdOrderRoutingLine: Record "Prod. Order Routing Line"; - ProdOrder: Record "Production Order"; + ProductionOrder: Record "Production Order"; begin if ItemJournalLine.Subcontracting then begin - ProdOrder.SetLoadFields("Created from Purch. Order"); - if ProdOrder.Get(ProdOrderLine.Status, ProdOrderLine."Prod. Order No.") then + ProductionOrder.SetLoadFields("Created from Purch. Order"); + if ProductionOrder.Get(ProdOrderLine.Status, ProdOrderLine."Prod. Order No.") then if ProdOrderRoutingLine.Get(ProdOrderLine.Status, ProdOrderLine."Prod. Order No.", ProdOrderLine."Line No.", ProdOrderLine."Routing No.", ItemJournalLine."Operation No.") then begin CapacityLedgerEntry.SetRange("Routing No.", ProdOrderRoutingLine."Routing No."); CapacityLedgerEntry.SetRange("Routing Reference No.", ProdOrderRoutingLine."Routing Reference No."); diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcReqLineExtension.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcReqLineExtension.Codeunit.al index 79fd6dc8d8..02cab8761d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcReqLineExtension.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/SubcReqLineExtension.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -11,9 +11,9 @@ codeunit 99001513 "Subc. Req.Line Extension" [EventSubscriber(ObjectType::Table, Database::"Requisition Line", OnAfterGetDirectCost, '', false, false)] local procedure OnAfterGetDirectCost(var RequisitionLine: Record "Requisition Line"; CalledByFieldNo: Integer) var - SubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin - SubcontractingMgmt.UpdateSubcontractorPriceForRequisitionLine(RequisitionLine); + SubcontractingManagement.UpdateSubcontractorPriceForRequisitionLine(RequisitionLine); end; [EventSubscriber(ObjectType::Table, Database::"Requisition Line", OnAfterValidateEvent, "Vendor No.", false, false)] 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 6ee37910e5..3c8b18a23a 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -85,26 +85,26 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" local procedure HandleReservationEntries(var TransLine3: Record "Transfer Line"; var TempItemEntryRelation: Record "Item Entry Relation" temporary) var ItemLedgerEntry: Record "Item Ledger Entry"; - OldReservEntry: Record "Reservation Entry"; - OldReservEntryPair: Record "Reservation Entry"; + OldReservationEntry: Record "Reservation Entry"; + OldReservationEntryPair: Record "Reservation Entry"; MatchFound: Boolean; begin // Find old reservations: Transfer Line (Inbound) → Prod. Order Component - OldReservEntry.SetSourceFilter(Database::"Transfer Line", 1, TransLine3."Document No.", -1, true); - OldReservEntry.SetRange("Source Batch Name", ''); - OldReservEntry.SetRange("Source Prod. Order Line", TransLine3."Derived From Line No."); - OldReservEntry.SetRange("Reservation Status", OldReservEntry."Reservation Status"::Reservation); + OldReservationEntry.SetSourceFilter(Database::"Transfer Line", 1, TransLine3."Document No.", -1, true); + OldReservationEntry.SetRange("Source Batch Name", ''); + OldReservationEntry.SetRange("Source Prod. Order Line", TransLine3."Derived From Line No."); + OldReservationEntry.SetRange("Reservation Status", OldReservationEntry."Reservation Status"::Reservation); - if not OldReservEntry.FindSet() then + if not OldReservationEntry.FindSet() then exit; // Process each old reservation entry repeat // Get the opposite side of the reservation (should be Prod. Order Component) - if not OldReservEntryPair.Get(OldReservEntry."Entry No.", not OldReservEntry.Positive) then + if not OldReservationEntryPair.Get(OldReservationEntry."Entry No.", not OldReservationEntry.Positive) then continue; - if OldReservEntryPair."Source Type" <> Database::"Prod. Order Component" then + if OldReservationEntryPair."Source Type" <> Database::"Prod. Order Component" then continue; // Find matching Item Ledger Entry based on tracking (Serial No, Lot No) @@ -114,16 +114,16 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" repeat if ItemLedgerEntry.Get(TempItemEntryRelation."Item Entry No.") then // Check if tracking matches - if (ItemLedgerEntry."Serial No." = OldReservEntry."Serial No.") and - (ItemLedgerEntry."Lot No." = OldReservEntry."Lot No.") and - (ItemLedgerEntry."Package No." = OldReservEntry."Package No.") + if (ItemLedgerEntry."Serial No." = OldReservationEntry."Serial No.") and + (ItemLedgerEntry."Lot No." = OldReservationEntry."Lot No.") and + (ItemLedgerEntry."Package No." = OldReservationEntry."Package No.") then begin // Create new reservation: Item Ledger Entry → Prod. Order Component CreateReservEntryForProdOrderComp( ItemLedgerEntry, - OldReservEntryPair, - OldReservEntry, - OldReservEntry."Reservation Status"::Reservation); + OldReservationEntryPair, + OldReservationEntry, + OldReservationEntry."Reservation Status"::Reservation); MatchFound := true; end; @@ -131,18 +131,18 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" // Delete the old reservation pair only if we successfully created a new one if MatchFound then begin - OldReservEntry.Delete(); - OldReservEntryPair.Delete(); + OldReservationEntry.Delete(); + OldReservationEntryPair.Delete(); end; - until OldReservEntry.Next() = 0; + until OldReservationEntry.Next() = 0; end; local procedure HandleItemTrackingSurplus(var TransLine3: Record "Transfer Line"; var TempItemEntryRelation: Record "Item Entry Relation" temporary) var ItemLedgerEntry: Record "Item Ledger Entry"; - ProdOrderComp: Record "Prod. Order Component"; + ProdOrderComponent: Record "Prod. Order Component"; begin - if not FindProdOrderComponentsForTransferLine(TransLine3, ProdOrderComp) then + if not FindProdOrderComponentsForTransferLine(TransLine3, ProdOrderComponent) then exit; // Process each Item Ledger Entry that was created @@ -161,15 +161,15 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" continue; // Check if this component needs this specific tracking - if ShouldCreateSurplusForComponent(ItemLedgerEntry, ProdOrderComp) then + if ShouldCreateSurplusForComponent(ItemLedgerEntry, ProdOrderComponent) then // Create surplus entry: Item Ledger Entry → Prod. Order Component - CreateSurplusEntryForProdOrderComp(ItemLedgerEntry, ProdOrderComp); + CreateSurplusEntryForProdOrderComp(ItemLedgerEntry, ProdOrderComponent); end; until TempItemEntryRelation.Next() = 0; end; - local procedure CreateReservEntryForProdOrderComp(var ItemLedgerEntry: Record "Item Ledger Entry"; var OldReservEntryPair: Record "Reservation Entry"; - var OldReservEntry: Record "Reservation Entry"; ReservationStatus: Enum "Reservation Status") + local procedure CreateReservEntryForProdOrderComp(var ItemLedgerEntry: Record "Item Ledger Entry"; var OldReservationEntryPair: Record "Reservation Entry"; + OldReservationEntry: Record "Reservation Entry"; ReservationStatus: Enum "Reservation Status") var FromTrackingSpecification: Record "Tracking Specification"; CreateReservEntry: Codeunit "Create Reserv. Entry"; @@ -179,12 +179,12 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" Database::"Item Ledger Entry", 0, '', '', 0, ItemLedgerEntry."Entry No.", ItemLedgerEntry."Qty. per Unit of Measure", 0, ItemLedgerEntry.Quantity, - OldReservEntry); + OldReservationEntry); // Set up the "From" side (Prod. Order Component) - FromTrackingSpecification.SetSourceFromReservEntry(OldReservEntryPair); - FromTrackingSpecification."Qty. per Unit of Measure" := OldReservEntryPair."Qty. per Unit of Measure"; - FromTrackingSpecification.CopyTrackingFromReservEntry(OldReservEntryPair); + FromTrackingSpecification.SetSourceFromReservEntry(OldReservationEntryPair); + FromTrackingSpecification."Qty. per Unit of Measure" := OldReservationEntryPair."Qty. per Unit of Measure"; + FromTrackingSpecification.CopyTrackingFromReservEntry(OldReservationEntryPair); CreateReservEntry.CreateReservEntryFrom(FromTrackingSpecification); CreateReservEntry.SetApplyFromEntryNo(ItemLedgerEntry."Entry No."); @@ -202,34 +202,34 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" local procedure CreateSurplusEntryForProdOrderComp( var ItemLedgerEntry: Record "Item Ledger Entry"; - var ProdOrderComp: Record "Prod. Order Component") + var ProdOrderComponent: Record "Prod. Order Component") var - DummyReservEntry: Record "Reservation Entry"; + ReservationEntry: Record "Reservation Entry"; FromTrackingSpecification: Record "Tracking Specification"; CreateReservEntry: Codeunit "Create Reserv. Entry"; begin // Initialize dummy reservation entry for the demand side - DummyReservEntry.Init(); - DummyReservEntry."Source Type" := Database::"Prod. Order Component"; - DummyReservEntry."Source Subtype" := ProdOrderComp.Status.AsInteger(); - DummyReservEntry."Source ID" := ProdOrderComp."Prod. Order No."; - DummyReservEntry."Source Prod. Order Line" := ProdOrderComp."Prod. Order Line No."; - DummyReservEntry."Source Ref. No." := ProdOrderComp."Line No."; - DummyReservEntry."Qty. per Unit of Measure" := ProdOrderComp."Qty. per Unit of Measure"; - DummyReservEntry.CopyTrackingFromItemLedgEntry(ItemLedgerEntry); - DummyReservEntry."Expected Receipt Date" := ProdOrderComp."Due Date"; + ReservationEntry.Init(); + ReservationEntry."Source Type" := Database::"Prod. Order Component"; + ReservationEntry."Source Subtype" := ProdOrderComponent.Status.AsInteger(); + ReservationEntry."Source ID" := ProdOrderComponent."Prod. Order No."; + ReservationEntry."Source Prod. Order Line" := ProdOrderComponent."Prod. Order Line No."; + ReservationEntry."Source Ref. No." := ProdOrderComponent."Line No."; + ReservationEntry."Qty. per Unit of Measure" := ProdOrderComponent."Qty. per Unit of Measure"; + ReservationEntry.CopyTrackingFromItemLedgEntry(ItemLedgerEntry); + ReservationEntry."Expected Receipt Date" := ProdOrderComponent."Due Date"; CreateReservEntry.CreateReservEntryFor( Database::"Prod. Order Component", - ProdOrderComp.Status.AsInteger(), - ProdOrderComp."Prod. Order No.", + ProdOrderComponent.Status.AsInteger(), + ProdOrderComponent."Prod. Order No.", '', - ProdOrderComp."Prod. Order Line No.", - ProdOrderComp."Line No.", - ProdOrderComp."Qty. per Unit of Measure", + ProdOrderComponent."Prod. Order Line No.", + ProdOrderComponent."Line No.", + ProdOrderComponent."Qty. per Unit of Measure", 0, ItemLedgerEntry.Quantity, - DummyReservEntry); + ReservationEntry); // Set up the "From" side (Item Ledger Entry - SUPPLY) FromTrackingSpecification.InitTrackingSpecification( @@ -249,7 +249,7 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" ItemLedgerEntry."Variant Code", ItemLedgerEntry."Location Code", '', - ProdOrderComp."Due Date", + ProdOrderComponent."Due Date", 0D, 0, "Reservation Status"::Surplus); @@ -257,23 +257,23 @@ codeunit 99001547 "Subc. TransOrderPostTrans Ext" local procedure ItemLedgerEntryHasReservation(var ItemLedgerEntry: Record "Item Ledger Entry"): Boolean var - ReservEntry: Record "Reservation Entry"; + ReservationEntry: Record "Reservation Entry"; begin - ReservEntry.SetSourceFilter(Database::"Item Ledger Entry", 0, '', ItemLedgerEntry."Entry No.", true); - ReservEntry.SetRange("Reservation Status", ReservEntry."Reservation Status"::Reservation); - exit(not ReservEntry.IsEmpty()); + ReservationEntry.SetSourceFilter(Database::"Item Ledger Entry", 0, '', ItemLedgerEntry."Entry No.", true); + ReservationEntry.SetRange("Reservation Status", ReservationEntry."Reservation Status"::Reservation); + exit(not ReservationEntry.IsEmpty()); end; - local procedure FindProdOrderComponentsForTransferLine(var TransferLine: Record "Transfer Line"; var ProdOrderComp: Record "Prod. Order Component"): Boolean + local procedure FindProdOrderComponentsForTransferLine(var TransferLine: Record "Transfer Line"; var ProdOrderComponent: Record "Prod. Order Component"): Boolean begin - exit(ProdOrderComp.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."Prod. Order No.", TransferLine."Prod. Order Line No.", TransferLine."Prod. Order Comp. Line No.")); end; - local procedure ShouldCreateSurplusForComponent(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderComp: Record "Prod. Order Component"): Boolean + local procedure ShouldCreateSurplusForComponent(var ItemLedgerEntry: Record "Item Ledger Entry"; var ProdOrderComponent: Record "Prod. Order Component"): Boolean begin - if (ProdOrderComp."Item No." <> ItemLedgerEntry."Item No.") or - (ProdOrderComp."Variant Code" <> ItemLedgerEntry."Variant Code") or - (ProdOrderComp."Location Code" <> ItemLedgerEntry."Location Code") + if (ProdOrderComponent."Item No." <> ItemLedgerEntry."Item No.") or + (ProdOrderComponent."Variant Code" <> ItemLedgerEntry."Variant Code") or + (ProdOrderComponent."Location Code" <> ItemLedgerEntry."Location Code") then exit(false); 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 fd9e052d84..120ac2f4da 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -17,10 +17,10 @@ codeunit 99001544 "Subc. Transfer Line Ext." [EventSubscriber(ObjectType::Table, Database::"Transfer Line", OnAfterDeleteEvent, '', false, false)] local procedure OnAfterDeleteEvent(var Rec: Record "Transfer Line"; RunTrigger: Boolean) var - SubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin if not Rec.IsTemporary() then if RunTrigger then - SubcontractingMgmt.UpdateLocationCodeInProdOrderCompAfterDeleteTransferLine(Rec); + SubcontractingManagement.UpdateLocationCodeInProdOrderCompAfterDeleteTransferLine(Rec); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferPostExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferPostExt.Codeunit.al index e678904665..d20cade9bd 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferPostExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcTransferPostExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -16,15 +16,15 @@ codeunit 99001545 "Subc. TransferPost Ext" local procedure OverrideDefaultTransferPosting(var TransHeader: Record "Transfer Header"; var IsHandled: Boolean) var - TransferPostReceipt: Codeunit "TransferOrder-Post Receipt"; - TransferPostShipment: Codeunit "TransferOrder-Post Shipment"; + TransferOrderPostReceipt: Codeunit "TransferOrder-Post Receipt"; + TransferOrderPostShipment: Codeunit "TransferOrder-Post Shipment"; TransferOrderPostTransfer: Codeunit "TransferOrder-Post Transfer"; begin case TransHeader."Direct Transfer Posting" of TransHeader."Direct Transfer Posting"::"Receipt and Shipment": begin - TransferPostShipment.Run(TransHeader); - TransferPostReceipt.Run(TransHeader); + TransferOrderPostShipment.Run(TransHeader); + TransferOrderPostReceipt.Run(TransHeader); end; TransHeader."Direct Transfer Posting"::"Direct Transfer": TransferOrderPostTransfer.Run(TransHeader); diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcWhseDirectPosting.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcWhseDirectPosting.Codeunit.al index 2e0da8e647..6d4ec3a3c3 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcWhseDirectPosting.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/Extensions/Transfer/SubcWhseDirectPosting.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -129,11 +129,11 @@ codeunit 99001546 "Subc. Whse Direct Posting" local procedure PostRelatedInboundTransfer(var TransferHeader: Record "Transfer Header") var - TransferPostReceipt: Codeunit "TransferOrder-Post Receipt"; + TransferOrderPostReceipt: Codeunit "TransferOrder-Post Receipt"; begin - TransferPostReceipt.SetSuppressCommit(true); - TransferPostReceipt.SetHideValidationDialog(true); - TransferPostReceipt.Run(TransferHeader); + TransferOrderPostReceipt.SetSuppressCommit(true); + TransferOrderPostReceipt.SetHideValidationDialog(true); + TransferOrderPostReceipt.Run(TransferHeader); end; local procedure WhseActYesNoQuestion(var WhseActivLine: Record "Warehouse Activity Line"; var Result: Boolean; var IsHandled: Boolean) 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 cdcef37011..10dfc27d51 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -11,8 +11,8 @@ codeunit 99001551 "Subc. WhsePostReceipt Ext" [EventSubscriber(ObjectType::Codeunit, Codeunit::"TransferOrder-Post Receipt", OnAfterTransRcptLineModify, '', false, false)] local procedure OnAfterTransRcptLineModify(var TransferReceiptLine: Record "Transfer Receipt Line"; TransferLine: Record "Transfer Line"; CommitIsSuppressed: Boolean) var - SubcontrMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin - SubcontrMgmt.TransferReservationEntryFromPstTransferLineToProdOrderComp(TransferReceiptLine); + SubcontractingManagement.TransferReservationEntryFromPstTransferLineToProdOrderComp(TransferReceiptLine); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcFactboxMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcFactboxMgmt.Codeunit.al index 51628ba269..168151f84c 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcFactboxMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcFactboxMgmt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -20,7 +20,7 @@ codeunit 99001507 "Subc. Factbox Mgmt." procedure ShowProductionOrder(RecRelatedVariant: Variant) var ProductionOrder: Record "Production Order"; - RelProdOrderPage: Page "Released Production Order"; + ReleasedProductionOrder: Page "Released Production Order"; OperationNo: Code[10]; ProdOrderNo: Code[20]; RoutingNo: Code[20]; @@ -30,15 +30,15 @@ codeunit 99001507 "Subc. Factbox Mgmt." exit; ProductionOrder.SetRange(Status, ProductionOrder.Status::Released); ProductionOrder.SetRange("No.", ProdOrderNo); - RelProdOrderPage.SetTableView(ProductionOrder); - RelProdOrderPage.Editable := false; - RelProdOrderPage.Run(); + ReleasedProductionOrder.SetTableView(ProductionOrder); + ReleasedProductionOrder.Editable := false; + ReleasedProductionOrder.Run(); end; procedure ShowProductionOrderRouting(RecRelatedVariant: Variant) var ProdOrderRoutingLine: Record "Prod. Order Routing Line"; - ProdOrdRoutPage: Page "Prod. Order Routing"; + ProdOrderRouting: Page "Prod. Order Routing"; OperationNo: Code[10]; ProdOrderNo: Code[20]; RoutingNo: Code[20]; @@ -52,9 +52,9 @@ codeunit 99001507 "Subc. Factbox Mgmt." ProdOrderRoutingLine.SetRange("Routing No.", RoutingNo); ProdOrderRoutingLine.SetRange("Operation No.", OperationNo); ProdOrderRoutingLine.FindFirst(); - ProdOrdRoutPage.SetTableView(ProdOrderRoutingLine); - ProdOrdRoutPage.Editable := false; - ProdOrdRoutPage.Run(); + ProdOrderRouting.SetTableView(ProdOrderRoutingLine); + ProdOrderRouting.Editable := false; + ProdOrderRouting.Run(); end; procedure CalcNoOfProductionOrderRoutings(RecRelatedVariant: Variant): Integer @@ -75,7 +75,7 @@ codeunit 99001507 "Subc. Factbox Mgmt." procedure ShowProductionOrderComponents(RecRelatedVariant: Variant) var - ProdOrdComp: Record "Prod. Order Component"; + ProdOrderComponent: Record "Prod. Order Component"; ProdOrderRoutingLine: Record "Prod. Order Routing Line"; PageManagement: Codeunit "Page Management"; OperationNo: Code[10]; @@ -91,17 +91,17 @@ codeunit 99001507 "Subc. Factbox Mgmt." ProdOrderRoutingLine.SetRange("Routing No.", RoutingNo); ProdOrderRoutingLine.SetRange("Operation No.", OperationNo); if ProdOrderRoutingLine.FindFirst() then - ProdOrdComp.SetRange("Routing Link Code", ProdOrderRoutingLine."Routing Link Code"); + ProdOrderComponent.SetRange("Routing Link Code", ProdOrderRoutingLine."Routing Link Code"); - ProdOrdComp.SetRange(Status, ProdOrdComp.Status::Released); - ProdOrdComp.SetRange("Prod. Order No.", ProdOrderNo); - ProdOrdComp.SetRange("Prod. Order Line No.", ProdOrderLineNo); - PageManagement.PageRun(ProdOrdComp); + ProdOrderComponent.SetRange(Status, ProdOrderComponent.Status::Released); + ProdOrderComponent.SetRange("Prod. Order No.", ProdOrderNo); + ProdOrderComponent.SetRange("Prod. Order Line No.", ProdOrderLineNo); + PageManagement.PageRun(ProdOrderComponent); end; procedure CalcNoOfProductionOrderComponents(RecRelatedVariant: Variant): Integer var - ProdOrdComp: Record "Prod. Order Component"; + ProdOrderComponent: Record "Prod. Order Component"; OperationNo: Code[10]; ProdOrderNo: Code[20]; RoutingNo: Code[20]; @@ -110,10 +110,10 @@ codeunit 99001507 "Subc. Factbox Mgmt." if not SetProdOrderInformationByVariant(RecRelatedVariant, ProdOrderNo, ProdOrderLineNo, RoutingNo, OperationNo) then exit(0); - ProdOrdComp.SetRange(Status, ProdOrdComp.Status::Released); - ProdOrdComp.SetRange("Prod. Order No.", ProdOrderNo); - ProdOrdComp.SetRange("Prod. Order Line No.", ProdOrderLineNo); - exit(ProdOrdComp.Count()); + ProdOrderComponent.SetRange(Status, ProdOrderComponent.Status::Released); + ProdOrderComponent.SetRange("Prod. Order No.", ProdOrderNo); + ProdOrderComponent.SetRange("Prod. Order Line No.", ProdOrderLineNo); + exit(ProdOrderComponent.Count()); end; procedure ShowPurchaseOrder(RecRelatedVariant: Variant) @@ -236,16 +236,16 @@ codeunit 99001507 "Subc. Factbox Mgmt." PurchInvLine: Record "Purch. Inv. Line"; PurchRcptLine: Record "Purch. Rcpt. Line"; TransferLine: Record "Transfer Line"; - TransferRcptLine: Record "Transfer Receipt Line"; - TransferShptLine: Record "Transfer Shipment Line"; - DataTypeMgmt: Codeunit "Data Type Management"; + TransferReceiptLine: Record "Transfer Receipt Line"; + TransferShipmentLine: Record "Transfer Shipment Line"; + DataTypeManagement: Codeunit "Data Type Management"; ResultRecordRef: RecordRef; RecId: RecordId; begin if not RecRelatedVariant.IsRecord() then exit(false); - DataTypeMgmt.GetRecordRef(RecRelatedVariant, ResultRecordRef); + DataTypeManagement.GetRecordRef(RecRelatedVariant, ResultRecordRef); RecId := ResultRecordRef.RecordId(); @@ -287,19 +287,19 @@ codeunit 99001507 "Subc. Factbox Mgmt." end; Database::"Transfer Shipment Line": begin - ResultRecordRef.SetTable(TransferShptLine); - ProdOrderNo := TransferShptLine."Prod. Order No."; - ProdOrderLineNo := TransferShptLine."Prod. Order Line No."; - RoutingNo := TransferShptLine."Routing No."; - OperationNo := TransferShptLine."Operation No."; + ResultRecordRef.SetTable(TransferShipmentLine); + ProdOrderNo := TransferShipmentLine."Prod. Order No."; + ProdOrderLineNo := TransferShipmentLine."Prod. Order Line No."; + RoutingNo := TransferShipmentLine."Routing No."; + OperationNo := TransferShipmentLine."Operation No."; end; Database::"Transfer Receipt Line": begin - ResultRecordRef.SetTable(TransferRcptLine); - ProdOrderNo := TransferRcptLine."Prod. Order No."; - ProdOrderLineNo := TransferRcptLine."Prod. Order Line No."; - RoutingNo := TransferRcptLine."Routing No."; - OperationNo := TransferRcptLine."Operation No."; + ResultRecordRef.SetTable(TransferReceiptLine); + ProdOrderNo := TransferReceiptLine."Prod. Order No."; + ProdOrderLineNo := TransferReceiptLine."Prod. Order Line No."; + RoutingNo := TransferReceiptLine."Routing No."; + OperationNo := TransferReceiptLine."Operation No."; end; end; exit((ProdOrderNo <> '') and (ProdOrderLineNo <> 0)); @@ -315,16 +315,16 @@ codeunit 99001507 "Subc. Factbox Mgmt." PurchInvLine: Record "Purch. Inv. Line"; PurchRcptLine: Record "Purch. Rcpt. Line"; TransferLine: Record "Transfer Line"; - TransferRcptLine: Record "Transfer Receipt Line"; - TransferShptLine: Record "Transfer Shipment Line"; - DataTypeMgmt: Codeunit "Data Type Management"; + TransferReceiptLine: Record "Transfer Receipt Line"; + TransferShipmentLine: Record "Transfer Shipment Line"; + DataTypeManagement: Codeunit "Data Type Management"; ResultRecordRef: RecordRef; RecId: RecordId; begin if not RecRelatedVariant.IsRecord() then exit(false); - DataTypeMgmt.GetRecordRef(RecRelatedVariant, ResultRecordRef); + DataTypeManagement.GetRecordRef(RecRelatedVariant, ResultRecordRef); RecId := ResultRecordRef.RecordId(); if RecId.TableNo() = 0 then @@ -357,15 +357,15 @@ codeunit 99001507 "Subc. Factbox Mgmt." end; Database::"Transfer Shipment Line": begin - ResultRecordRef.SetTable(TransferShptLine); - PurchOrderNo := TransferShptLine."Subcontr. Purch. Order No."; - PurchOrderLineNo := TransferShptLine."Subcontr. PO Line No."; + ResultRecordRef.SetTable(TransferShipmentLine); + PurchOrderNo := TransferShipmentLine."Subcontr. Purch. Order No."; + PurchOrderLineNo := TransferShipmentLine."Subcontr. PO Line No."; end; Database::"Transfer Receipt Line": begin - ResultRecordRef.SetTable(TransferRcptLine); - PurchOrderNo := TransferRcptLine."Subcontr. Purch. Order No."; - PurchOrderLineNo := TransferRcptLine."Subcontr. PO Line No."; + ResultRecordRef.SetTable(TransferReceiptLine); + PurchOrderNo := TransferReceiptLine."Subcontr. Purch. Order No."; + PurchOrderLineNo := TransferReceiptLine."Subcontr. PO Line No."; end; Database::"Item Ledger Entry": begin @@ -542,7 +542,7 @@ codeunit 99001507 "Subc. Factbox Mgmt." PurchInvLine: Record "Purch. Inv. Line"; PurchRcptLine: Record "Purch. Rcpt. Line"; TransferLine: Record "Transfer Line"; - DataTypeMgmt: Codeunit "Data Type Management"; + DataTypeManagement: Codeunit "Data Type Management"; ResultRecordRef: RecordRef; RecId: RecordId; ProdOperation: Code[10]; @@ -553,7 +553,7 @@ codeunit 99001507 "Subc. Factbox Mgmt." if not RecRelatedVariant.IsRecord() then exit(false); - DataTypeMgmt.GetRecordRef(RecRelatedVariant, ResultRecordRef); + DataTypeManagement.GetRecordRef(RecRelatedVariant, ResultRecordRef); RecId := ResultRecordRef.RecordId(); if RecId.TableNo() = 0 then @@ -610,14 +610,14 @@ codeunit 99001507 "Subc. Factbox Mgmt." TempTransferHeader: Record "Transfer Header" temporary; TransferHeader: Record "Transfer Header"; TransferLine: Record "Transfer Line"; - DataTypeMgmt: Codeunit "Data Type Management"; + DataTypeManagement: Codeunit "Data Type Management"; RecRef: RecordRef; NoTransferExistsTxt: Label 'No transfer order exists for this purchase order.'; begin if not RecRelatedVariant.IsRecord() then exit(0); - DataTypeMgmt.GetRecordRef(RecRelatedVariant, RecRef); + DataTypeManagement.GetRecordRef(RecRelatedVariant, RecRef); case RecRef.Number() of Database::"Prod. Order Component": diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcItemJnlCheckExt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcItemJnlCheckExt.Codeunit.al index 81bb8c39bc..5abf0ece0d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcItemJnlCheckExt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcItemJnlCheckExt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -11,9 +11,9 @@ codeunit 99001510 "Subc. ItemJnlCheckExt" [EventSubscriber(ObjectType::Codeunit, Codeunit::"Mfg. Item Jnl. Check Line", OnBeforeCheckSubcontracting, '', false, false)] local procedure OnBeforeCheckSubcontracting(var ItemJournalLine: Record "Item Journal Line"; var IsHandled: Boolean) var - SubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin if not IsHandled then - IsHandled := SubcontractingMgmt.HandleCommonWorkCenter(ItemJournalLine); + IsHandled := SubcontractingManagement.HandleCommonWorkCenter(ItemJournalLine); end; } \ No newline at end of file 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 53be38d945..911a6e8f91 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -21,14 +21,14 @@ using Microsoft.Purchases.Document; codeunit 99001508 "Subc. Price Management" { var - SubSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; procedure ApplySubcontractorPricingToProdOrderRouting(var ProdOrderLine: Record "Prod. Order Line"; var RoutingLine: Record "Routing Line"; var ProdOrderRoutingLine: Record "Prod. Order Routing Line") var SubcontractorPrice: Record "Subcontractor Price"; WorkCenter: Record "Work Center"; begin - if not SubSetup.Get() then + if not SubcManagementSetup.Get() then exit; if ProdOrderRoutingLine.Type <> "Capacity Type Routing"::"Work Center" then @@ -67,7 +67,7 @@ codeunit 99001508 "Subc. Price Management" SubcontractorPrice: Record "Subcontractor Price"; WorkCenter: Record "Work Center"; begin - if not SubSetup.Get() then + if not SubcManagementSetup.Get() then exit; if RoutingLine.Type <> "Capacity Type Routing"::"Work Center" then @@ -108,9 +108,9 @@ codeunit 99001508 "Subc. Price Management" procedure CalcStandardCostOnAfterCalcRtngLineCost(RoutingLine: Record "Routing Line"; MfgItemQtyBase: Decimal; var SLSub: Decimal) var Item: Record Item; - MfgSetup: Record "Manufacturing Setup"; + ManufacturingSetup: Record "Manufacturing Setup"; WorkCenter: Record "Work Center"; - CostCalculationMgt: Codeunit "Mfg. Cost Calculation Mgt."; + MfgCostCalculationMgt: Codeunit "Mfg. Cost Calculation Mgt."; SingleInstanceDictionary: Codeunit "Single Instance Dictionary"; ItemRecordID: RecordId; RecRef: RecordRef; @@ -122,7 +122,7 @@ codeunit 99001508 "Subc. Price Management" UnitCost: Decimal; UnitCostCalculationType: Enum "Unit Cost Calculation Type"; begin - if not SubSetup.Get() then + if not SubcManagementSetup.Get() then exit; if RoutingLine.Type <> "Capacity Type Routing"::"Work Center" then @@ -156,16 +156,16 @@ codeunit 99001508 "Subc. Price Management" UnitCost := RoutingLine."Unit Cost per"; CalcRtngCostPerUnit(RoutingLine."No.", DirectUnitCost, IndirCostPct, OvhdRate, UnitCost, UnitCostCalculationType, Item, RoutingLine."Standard Task Code", CalculationDate); - MfgSetup.SetLoadFields("Cost Incl. Setup"); - MfgSetup.Get(); + ManufacturingSetup.SetLoadFields("Cost Incl. Setup"); + ManufacturingSetup.Get(); CostTime := - CostCalculationMgt.CalculateCostTime( + MfgCostCalculationMgt.CalculateCostTime( MfgItemQtyBase, RoutingLine."Setup Time", RoutingLine."Setup Time Unit of Meas. Code", RoutingLine."Run Time", RoutingLine."Run Time Unit of Meas. Code", RoutingLine."Lot Size", RoutingLine."Scrap Factor % (Accumulated)", RoutingLine."Fixed Scrap Qty. (Accum.)", - RoutingLine."Work Center No.", UnitCostCalculationType, MfgSetup."Cost Incl. Setup", + RoutingLine."Work Center No.", UnitCostCalculationType, ManufacturingSetup."Cost Incl. Setup", RoutingLine."Concurrent Capacities"); SLSub := (CostTime * DirectUnitCost); @@ -258,7 +258,7 @@ codeunit 99001508 "Subc. Price Management" procedure SetRoutingPriceListCost(var InSubcPrices: Record "Subcontractor Price"; WorkCenter: Record "Work Center"; var DirUnitCost: Decimal; var IndirCostPct: Decimal; var OvhdRate: Decimal; var UnitCost: Decimal; var UnitCostCalculationType: Enum "Unit Cost Calculation Type"; QtyUoM: Decimal; ProdQtyPerUom: Decimal; QtyBase: Decimal) var - GLSetup: Record "General Ledger Setup"; + GeneralLedgerSetup: Record "General Ledger Setup"; SubcontractorPrice: Record "Subcontractor Price"; PriceListUOM: Code[10]; DirectCost: Decimal; @@ -306,8 +306,8 @@ codeunit 99001508 "Subc. Price Management" ConvertPriceToUOM(InSubcPrices."Unit of Measure Code", ProdQtyPerUom, PriceListUOM, PriceListQtyPerUOM, PriceListCost, DirectCost); if SubcontractorPrice."Currency Code" <> '' then ConvertPriceFromCurrency(SubcontractorPrice."Currency Code", InSubcPrices."Starting Date", DirectCost); - GLSetup.Get(); - DirectCost := Round(DirectCost, GLSetup."Unit-Amount Rounding Precision"); + GeneralLedgerSetup.Get(); + DirectCost := Round(DirectCost, GeneralLedgerSetup."Unit-Amount Rounding Precision"); DirUnitCost := DirectCost; UnitCost := (DirUnitCost * (1 + IndirCostPct / 100) + OvhdRate); end; @@ -317,11 +317,11 @@ codeunit 99001508 "Subc. Price Management" local procedure GetUOMPrice(ItemNo: Code[20]; QtyBase: Decimal; SubCPrice: Record "Subcontractor Price"; var PriceListUOM: Code[10]; var PriceListQtyPerUOM: Decimal; var PriceListQty: Decimal) var Item: Record Item; - UOMMgt: Codeunit "Unit of Measure Management"; + UnitofMeasureManagement: Codeunit "Unit of Measure Management"; begin Item.SetLoadFields("Base Unit of Measure"); Item.Get(ItemNo); - PriceListQtyPerUOM := UOMMgt.GetQtyPerUnitOfMeasure(Item, SubCPrice."Unit of Measure Code"); + PriceListQtyPerUOM := UnitofMeasureManagement.GetQtyPerUnitOfMeasure(Item, SubCPrice."Unit of Measure Code"); if (PriceListQtyPerUOM = 1) and (SubCPrice."Unit of Measure Code" = '') then PriceListUOM := Item."Base Unit of Measure" @@ -355,14 +355,14 @@ codeunit 99001508 "Subc. Price Management" local procedure ConvertPriceToCurrency(TargetCurrencyCode: Code[10]; PriceListCurrencyCode: Code[10]; PriceListCost: Decimal; var DirectCost: Decimal) var TargetCurrency: Record Currency; - CurrExchRate: Record "Currency Exchange Rate"; - GLSetup: Record "General Ledger Setup"; + CurrencyExchangeRate: Record "Currency Exchange Rate"; + GeneralLedgerSetup: Record "General Ledger Setup"; UnitAmtRngPrecision: Decimal; begin if TargetCurrencyCode = '' then begin - GLSetup.SetLoadFields("Unit-Amount Rounding Precision"); - GLSetup.Get(); - UnitAmtRngPrecision := GLSetup."Unit-Amount Rounding Precision"; + GeneralLedgerSetup.SetLoadFields("Unit-Amount Rounding Precision"); + GeneralLedgerSetup.Get(); + UnitAmtRngPrecision := GeneralLedgerSetup."Unit-Amount Rounding Precision"; end else begin TargetCurrency.SetLoadFields("Unit-Amount Rounding Precision"); TargetCurrency.Get(TargetCurrencyCode); @@ -374,15 +374,15 @@ codeunit 99001508 "Subc. Price Management" TargetCurrencyCode = PriceListCurrencyCode: DirectCost := Round(DirectCost, UnitAmtRngPrecision); (TargetCurrencyCode <> '') and (PriceListCurrencyCode = ''): - DirectCost := CurrExchRate.ExchangeAmtLCYToFCY( + DirectCost := CurrencyExchangeRate.ExchangeAmtLCYToFCY( WorkDate(), TargetCurrencyCode, PriceListCost, - CurrExchRate.ExchangeRate(WorkDate(), TargetCurrencyCode)); + CurrencyExchangeRate.ExchangeRate(WorkDate(), TargetCurrencyCode)); (TargetCurrencyCode = '') and (PriceListCurrencyCode <> ''): - DirectCost := CurrExchRate.ExchangeAmtFCYToLCY( + DirectCost := CurrencyExchangeRate.ExchangeAmtFCYToLCY( WorkDate(), PriceListCurrencyCode, PriceListCost, - CurrExchRate.ExchangeRate(WorkDate(), PriceListCurrencyCode)); + CurrencyExchangeRate.ExchangeRate(WorkDate(), PriceListCurrencyCode)); (TargetCurrencyCode <> '') and (PriceListCurrencyCode <> ''): - DirectCost := CurrExchRate.ExchangeAmtFCYToFCY( + DirectCost := CurrencyExchangeRate.ExchangeAmtFCYToFCY( WorkDate(), PriceListCurrencyCode, TargetCurrencyCode, PriceListCost); end; @@ -392,12 +392,12 @@ codeunit 99001508 "Subc. Price Management" local procedure ConvertPriceFromCurrency(CurrencyCode: Code[10]; OrderDate: Date; var DirectCost: Decimal) var Currency: Record Currency; - CurrExchRate: Record "Currency Exchange Rate"; + CurrencyExchangeRate: Record "Currency Exchange Rate"; begin Currency.Get(CurrencyCode); - DirectCost := CurrExchRate.ExchangeAmtFCYToLCY( + DirectCost := CurrencyExchangeRate.ExchangeAmtFCYToLCY( OrderDate, CurrencyCode, DirectCost, - CurrExchRate.ExchangeRate(OrderDate, CurrencyCode)); + CurrencyExchangeRate.ExchangeRate(OrderDate, CurrencyCode)); end; procedure GetSubcPriceForReqLine(var ReqLine: Record "Requisition Line"; FixedUOM: Code[10]) @@ -456,7 +456,7 @@ codeunit 99001508 "Subc. Price Management" procedure GetSubcPriceForPurchLine(var PurchLine: Record "Purchase Line") var - ProdOrderRtngLine: Record "Prod. Order Routing Line"; + ProdOrderRoutingLine: Record "Prod. Order Routing Line"; SubcontractorPrice: Record "Subcontractor Price"; PriceListUOM: Code[10]; OrderDate: Date; @@ -471,9 +471,9 @@ codeunit 99001508 "Subc. Price Management" SubcontractorPrice.SetRange("Variant Code", PurchLine."Variant Code"); SubcontractorPrice.SetFilter("Item No.", '%1|%2', PurchLine."No.", ''); - GetProdOrderRtngLine(PurchLine."Prod. Order No.", PurchLine."Routing Reference No.", PurchLine."Routing No.", PurchLine."Operation No.", ProdOrderRtngLine); + GetProdOrderRtngLine(PurchLine."Prod. Order No.", PurchLine."Routing Reference No.", PurchLine."Routing No.", PurchLine."Operation No.", ProdOrderRoutingLine); - SubcontractorPrice.SetFilter("Standard Task Code", '%1|%2', ProdOrderRtngLine."Standard Task Code", ''); + SubcontractorPrice.SetFilter("Standard Task Code", '%1|%2', ProdOrderRoutingLine."Standard Task Code", ''); SubcontractorPrice.SetRange("Starting Date", 0D, OrderDate); SubcontractorPrice.SetFilter("Ending Date", '>=%1|%2', OrderDate, 0D); SubcontractorPrice.SetFilter("Currency Code", '%1|%2', PurchLine."Currency Code", ''); @@ -490,8 +490,8 @@ codeunit 99001508 "Subc. Price Management" end; end else begin GetUOMPrice(PurchLine."No.", PurchLine.GetQuantityBase(), SubcontractorPrice, PriceListUOM, PriceListQtyPerUOM, PriceListQty); - ProdOrderRtngLine.TestField(Type, "Capacity Type"::"Work Center"); - DirectCost := ProdOrderRtngLine."Direct Unit Cost"; + ProdOrderRoutingLine.TestField(Type, "Capacity Type"::"Work Center"); + DirectCost := ProdOrderRoutingLine."Direct Unit Cost"; end; PurchLine."Direct Unit Cost" := DirectCost; @@ -523,9 +523,9 @@ codeunit 99001508 "Subc. Price Management" local procedure GetQuantityBase(var PurchLine: Record "Purchase Line"): Decimal var - ItemUOM: Record "Item Unit of Measure"; + ItemUnitofMeasure: Record "Item Unit of Measure"; begin - ItemUOM.Get(PurchLine."No.", PurchLine."Unit of Measure Code"); - exit(Round(PurchLine.Quantity * ItemUOM."Qty. per Unit of Measure", 0.00001)); + ItemUnitofMeasure.Get(PurchLine."No.", PurchLine."Unit of Measure Code"); + exit(Round(PurchLine.Quantity * ItemUnitofMeasure."Qty. per Unit of Measure", 0.00001)); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcSynchronizeManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcSynchronizeManagement.Codeunit.al index 511abd8cca..027cf81294 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -17,7 +17,7 @@ codeunit 99001511 "Subc. Synchronize Management" { procedure SynchronizeExpectedReceiptDate(var PurchLine: Record "Purchase Line"; xRecPurchLine: Record "Purchase Line") var - ProdOrder: Record "Production Order"; + ProductionOrder: Record "Production Order"; begin if not IsSubcontractingLine(PurchLine) then exit; @@ -27,24 +27,24 @@ codeunit 99001511 "Subc. Synchronize Management" if PurchLine."Qty. Received (Base)" <> 0 then exit; - if ProdOrder.Get("Production Order Status"::Released, PurchLine."Prod. Order No.") then begin - if not ProdOrder."Created from Purch. Order" then + if ProductionOrder.Get("Production Order Status"::Released, PurchLine."Prod. Order No.") then begin + if not ProductionOrder."Created from Purch. Order" then exit; - if ProdOrder."Due Date" <> PurchLine."Expected Receipt Date" then begin - ProdOrder.SetUpdateEndDate(); - ProdOrder.Validate("Due Date", PurchLine."Expected Receipt Date"); - ProdOrder.Modify(); + if ProductionOrder."Due Date" <> PurchLine."Expected Receipt Date" then begin + ProductionOrder.SetUpdateEndDate(); + ProductionOrder.Validate("Due Date", PurchLine."Expected Receipt Date"); + ProductionOrder.Modify(); end; end; end; procedure SynchronizeQuantity(var PurchLine: Record "Purchase Line"; xRecPurchLine: Record "Purchase Line") var - ItemUoM: Record "Item Unit of Measure"; - ProdOrderComp: Record "Prod. Order Component"; + ItemUnitofMeasure: Record "Item Unit of Measure"; + ProdOrderComponent: Record "Prod. Order Component"; ProdOrderLine: Record "Prod. Order Line"; - ProdOrder: Record "Production Order"; - UOMMgt: Codeunit "Unit of Measure Management"; + ProductionOrder: Record "Production Order"; + UnitofMeasureManagement: Codeunit "Unit of Measure Management"; PurchLineBaseQuantity: Decimal; begin if not IsSubcontractingLine(PurchLine) then @@ -56,32 +56,32 @@ codeunit 99001511 "Subc. Synchronize Management" if PurchLine."Qty. Received (Base)" <> 0 then exit; - if ProdOrder.Get("Production Order Status"::Released, PurchLine."Prod. Order No.") then begin - if not ProdOrder."Created from Purch. Order" then + if ProductionOrder.Get("Production Order Status"::Released, PurchLine."Prod. Order No.") then begin + if not ProductionOrder."Created from Purch. Order" then exit; - ItemUoM.Get(PurchLine."No.", PurchLine."Unit of Measure Code"); + ItemUnitofMeasure.Get(PurchLine."No.", PurchLine."Unit of Measure Code"); PurchLineBaseQuantity := - UOMMgt.CalcBaseQty(PurchLine."No.", PurchLine."Variant Code", PurchLine."Unit of Measure Code", PurchLine.Quantity, ItemUoM."Qty. per Unit of Measure", ItemUoM."Qty. Rounding Precision", PurchLine.FieldCaption("Qty. Rounding Precision"), PurchLine.FieldCaption(Quantity), PurchLine.FieldCaption("Quantity (Base)")); + UnitofMeasureManagement.CalcBaseQty(PurchLine."No.", PurchLine."Variant Code", PurchLine."Unit of Measure Code", PurchLine.Quantity, ItemUnitofMeasure."Qty. per Unit of Measure", ItemUnitofMeasure."Qty. Rounding Precision", PurchLine.FieldCaption("Qty. Rounding Precision"), PurchLine.FieldCaption(Quantity), PurchLine.FieldCaption("Quantity (Base)")); - if ProdOrder.Quantity <> PurchLineBaseQuantity then begin - ProdOrder.Quantity := PurchLineBaseQuantity; - ProdOrder.Modify(); + if ProductionOrder.Quantity <> PurchLineBaseQuantity then begin + ProductionOrder.Quantity := PurchLineBaseQuantity; + ProductionOrder.Modify(); end; if ProdOrderLine.Get("Production Order Status"::Released, PurchLine."Prod. Order No.", PurchLine."Prod. Order Line No.") then if ProdOrderLine.Quantity <> PurchLineBaseQuantity then begin ProdOrderLine.Validate(Quantity, PurchLineBaseQuantity); ProdOrderLine.Modify(); - ProdOrderComp.SetRange(Status, "Production Order Status"::Released); - ProdOrderComp.SetRange("Prod. Order No.", PurchLine."Prod. Order No."); - ProdOrderComp.SetRange("Prod. Order Line No.", ProdOrderLine."Line No."); - if not ProdOrderComp.IsEmpty() then begin - ProdOrderComp.FindSet(); + ProdOrderComponent.SetRange(Status, "Production Order Status"::Released); + ProdOrderComponent.SetRange("Prod. Order No.", PurchLine."Prod. Order No."); + ProdOrderComponent.SetRange("Prod. Order Line No.", ProdOrderLine."Line No."); + if not ProdOrderComponent.IsEmpty() then begin + ProdOrderComponent.FindSet(); repeat - ProdOrderComp.Validate("Quantity per"); - ProdOrderComp.Modify(); - until ProdOrderComp.Next() = 0; + ProdOrderComponent.Validate("Quantity per"); + ProdOrderComponent.Modify(); + until ProdOrderComponent.Next() = 0; end; end; end; @@ -89,57 +89,57 @@ codeunit 99001511 "Subc. Synchronize Management" procedure DeleteEnhancedDocumentsByChangeOfVendorNo(var PurchHeader: Record "Purchase Header"; var xPurchHeader: Record "Purchase Header") var - CapLedgEntry: Record "Capacity Ledger Entry"; - ItemLedgEntry, ItemLedgEntry2 : Record "Item Ledger Entry"; - ProdOrder: Record "Production Order"; - PurchLine, PurchLine2, PurchLineModify : Record "Purchase Line"; + CapacityLedgerEntry: Record "Capacity Ledger Entry"; + ItemLedgerEntry, ItemLedgerEntry2 : Record "Item Ledger Entry"; + ProductionOrder: Record "Production Order"; + PurchaseLine, PurchaseLine2, PurchaseLineModify : Record "Purchase Line"; TransferHeader: Record "Transfer Header"; begin - PurchLine.SetRange("Document Type", PurchHeader."Document Type"); - PurchLine.SetRange("Document No.", PurchHeader."No."); - PurchLine.SetRange(Type, "Purchase Line Type"::Item); - PurchLine.SetFilter("No.", '<>%1', ''); - PurchLine.SetFilter("Prod. Order No.", '<>%1', ''); - PurchLine.SetRange("Qty. Received (Base)", 0); - - PurchLine2.SetRange("Document Type", PurchHeader."Document Type"); - PurchLine2.SetRange("Document No.", PurchHeader."No."); - PurchLine2.SetRange(Type, "Purchase Line Type"::Item); - PurchLine2.SetFilter("No.", '<>%1', ''); - PurchLine2.SetRange("Prod. Order No.", ''); - PurchLine2.SetRange("Qty. Received (Base)", 0); - - if not PurchLine.IsEmpty() then begin - PurchLine.FindSet(); + PurchaseLine.SetRange("Document Type", PurchHeader."Document Type"); + PurchaseLine.SetRange("Document No.", PurchHeader."No."); + PurchaseLine.SetRange(Type, "Purchase Line Type"::Item); + PurchaseLine.SetFilter("No.", '<>%1', ''); + PurchaseLine.SetFilter("Prod. Order No.", '<>%1', ''); + PurchaseLine.SetRange("Qty. Received (Base)", 0); + + PurchaseLine2.SetRange("Document Type", PurchHeader."Document Type"); + PurchaseLine2.SetRange("Document No.", PurchHeader."No."); + PurchaseLine2.SetRange(Type, "Purchase Line Type"::Item); + PurchaseLine2.SetFilter("No.", '<>%1', ''); + PurchaseLine2.SetRange("Prod. Order No.", ''); + PurchaseLine2.SetRange("Qty. Received (Base)", 0); + + if not PurchaseLine.IsEmpty() then begin + PurchaseLine.FindSet(); repeat - if ProdOrder.Get("Production Order Status"::Released, PurchLine."Prod. Order No.") then - if ProdOrder."Created from Purch. Order" then begin - ItemLedgEntry.SetRange("Order Type", "Inventory Order Type"::Production); - ItemLedgEntry.SetRange("Order No.", ProdOrder."No."); - if ItemLedgEntry.IsEmpty() then begin - CapLedgEntry.SetRange("Order Type", "Inventory Order Type"::Production); - CapLedgEntry.SetRange("Order No.", ProdOrder."No."); - if CapLedgEntry.IsEmpty() then begin - ProdOrder.DeleteProdOrderRelations(); + if ProductionOrder.Get("Production Order Status"::Released, PurchaseLine."Prod. Order No.") then + if ProductionOrder."Created from Purch. Order" then begin + ItemLedgerEntry.SetRange("Order Type", "Inventory Order Type"::Production); + ItemLedgerEntry.SetRange("Order No.", ProductionOrder."No."); + if ItemLedgerEntry.IsEmpty() then begin + CapacityLedgerEntry.SetRange("Order Type", "Inventory Order Type"::Production); + CapacityLedgerEntry.SetRange("Order No.", ProductionOrder."No."); + if CapacityLedgerEntry.IsEmpty() then begin + ProductionOrder.DeleteProdOrderRelations(); // Delete References to Production Order to delete - PurchLineModify.SetRange("Document Type", PurchHeader."Document Type"); - PurchLineModify.SetRange("Document No.", PurchHeader."No."); - PurchLineModify.SetRange(Type, "Purchase Line Type"::Item); - PurchLineModify.SetFilter("No.", '<>%1', ''); - PurchLineModify.SetRange("Prod. Order No.", ProdOrder."No."); - if not PurchLineModify.IsEmpty() then begin - PurchLineModify.ModifyAll("Prod. Order Line No.", 0); - PurchLineModify.ModifyAll("Operation No.", ''); - PurchLineModify.ModifyAll("Routing No.", ''); - PurchLineModify.ModifyAll("Routing Reference No.", 0); - PurchLineModify.ModifyAll("Prod. Order No.", ''); + PurchaseLineModify.SetRange("Document Type", PurchHeader."Document Type"); + PurchaseLineModify.SetRange("Document No.", PurchHeader."No."); + PurchaseLineModify.SetRange(Type, "Purchase Line Type"::Item); + PurchaseLineModify.SetFilter("No.", '<>%1', ''); + PurchaseLineModify.SetRange("Prod. Order No.", ProductionOrder."No."); + if not PurchaseLineModify.IsEmpty() then begin + PurchaseLineModify.ModifyAll("Prod. Order Line No.", 0); + PurchaseLineModify.ModifyAll("Operation No.", ''); + PurchaseLineModify.ModifyAll("Routing No.", ''); + PurchaseLineModify.ModifyAll("Routing Reference No.", 0); + PurchaseLineModify.ModifyAll("Prod. Order No.", ''); end; // Delete Subcontracting dependent Purchase Lines - PurchLine2.SetRange("Subc. Prod. Order No.", ProdOrder."No."); - if not PurchLine2.IsEmpty() then - PurchLine2.DeleteAll(true); + PurchaseLine2.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); + if not PurchaseLine2.IsEmpty() then + PurchaseLine2.DeleteAll(true); TransferHeader.SetCurrentKey("Source ID", "Source Type", "Source Subtype"); TransferHeader.SetRange("Source ID", PurchHeader."Buy-from Vendor No."); @@ -148,25 +148,25 @@ codeunit 99001511 "Subc. Synchronize Management" TransferHeader.SetRange("Subcontr. Purch. Order No.", PurchHeader."No."); if not TransferHeader.IsEmpty() then begin TransferHeader.FindFirst(); - ItemLedgEntry2.SetRange("Order Type", "Inventory Order Type"::Production); - ItemLedgEntry2.SetRange("Order No.", ProdOrder."No."); - if ItemLedgEntry.IsEmpty() then + ItemLedgerEntry2.SetRange("Order Type", "Inventory Order Type"::Production); + ItemLedgerEntry2.SetRange("Order No.", ProductionOrder."No."); + if ItemLedgerEntry.IsEmpty() then TransferHeader.Delete(true); end; - ProdOrder.Delete(); + ProductionOrder.Delete(); end; end; end; - until PurchLine.Next() = 0; + until PurchaseLine.Next() = 0; end; end; procedure DeleteEnhancedDocumentsByDeletePurchLine(var PurchLine: Record "Purchase Line") var - CapLedgEntry: Record "Capacity Ledger Entry"; - ItemLedgEntry, ItemLedgEntry2 : Record "Item Ledger Entry"; - ProdOrder: Record "Production Order"; - PurchLine2: Record "Purchase Line"; + CapacityLedgerEntry: Record "Capacity Ledger Entry"; + ItemLedgerEntry, ItemLedgerEntry2 : Record "Item Ledger Entry"; + ProductionOrder: Record "Production Order"; + PurchaseLine2: Record "Purchase Line"; TransferHeader: Record "Transfer Header"; begin if not IsSubcontractingLine(PurchLine) then @@ -175,21 +175,21 @@ codeunit 99001511 "Subc. Synchronize Management" if PurchLine."Qty. Received (Base)" <> 0 then exit; - if ProdOrder.Get("Production Order Status"::Released, PurchLine."Prod. Order No.") then begin - if not ProdOrder."Created from Purch. Order" then + if ProductionOrder.Get("Production Order Status"::Released, PurchLine."Prod. Order No.") then begin + if not ProductionOrder."Created from Purch. Order" then exit; - ItemLedgEntry.SetRange("Order Type", "Inventory Order Type"::Production); - ItemLedgEntry.SetRange("Order No.", ProdOrder."No."); - if ItemLedgEntry.IsEmpty() then begin - CapLedgEntry.SetRange("Order Type", "Inventory Order Type"::Production); - CapLedgEntry.SetRange("Order No.", ProdOrder."No."); - if CapLedgEntry.IsEmpty() then begin - ProdOrder.DeleteProdOrderRelations(); + ItemLedgerEntry.SetRange("Order Type", "Inventory Order Type"::Production); + ItemLedgerEntry.SetRange("Order No.", ProductionOrder."No."); + if ItemLedgerEntry.IsEmpty() then begin + CapacityLedgerEntry.SetRange("Order Type", "Inventory Order Type"::Production); + CapacityLedgerEntry.SetRange("Order No.", ProductionOrder."No."); + if CapacityLedgerEntry.IsEmpty() then begin + ProductionOrder.DeleteProdOrderRelations(); // Delete Subcontracting dependent Purchase Lines - PurchLine2.SetRange("Subc. Prod. Order No.", ProdOrder."No."); - if PurchLine2.FindSet() then - PurchLine2.DeleteAll(true); + PurchaseLine2.SetRange("Subc. Prod. Order No.", ProductionOrder."No."); + if PurchaseLine2.FindSet() then + PurchaseLine2.DeleteAll(true); TransferHeader.SetCurrentKey("Source ID", "Source Type", "Source Subtype"); TransferHeader.SetRange("Source ID", PurchLine."Buy-from Vendor No."); @@ -198,12 +198,12 @@ codeunit 99001511 "Subc. Synchronize Management" TransferHeader.SetRange("Subcontr. Purch. Order No.", PurchLine."Document No."); if not TransferHeader.IsEmpty() then begin TransferHeader.FindFirst(); - ItemLedgEntry2.SetRange("Order Type", "Inventory Order Type"::Production); - ItemLedgEntry2.SetRange("Order No.", ProdOrder."No."); - if ItemLedgEntry.IsEmpty() then + ItemLedgerEntry2.SetRange("Order Type", "Inventory Order Type"::Production); + ItemLedgerEntry2.SetRange("Order No.", ProductionOrder."No."); + if ItemLedgerEntry.IsEmpty() then TransferHeader.Delete(true); end; - ProdOrder.Delete(); + ProductionOrder.Delete(); end end; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcontractingManagement.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Codeunits/SubcontractingManagement.Codeunit.al index 6b9f0f1511..507d1ffbd3 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -32,20 +32,20 @@ using System.Utilities; codeunit 99001505 "Subcontracting Management" { var - SubManagementSetup: Record "Subc. Management Setup"; - TempGlobalReservEntry: Record "Reservation Entry" temporary; + SubcManagementSetup: Record "Subc. Management Setup"; + TempReservationEntry: Record "Reservation Entry" temporary; PageManagement: Codeunit "Page Management"; - UOMMgt: Codeunit "Unit of Measure Management"; + UnitofMeasureManagement: Codeunit "Unit of Measure Management"; HasSubManagementSetup: Boolean; OperationNo: Code[10]; procedure CalcReceiptDateFromProdCompDueDateWithInbWhseHandlingTime(ProdOrderComponent: Record "Prod. Order Component") ReceiptDate: Date begin GetSubmanagementSetup(); - if not HasSubManagementSetup or (Format(SubManagementSetup."Subc. Inb. Whse. Handling Time") = '') then + if not HasSubManagementSetup or (Format(SubcManagementSetup."Subc. Inb. Whse. Handling Time") = '') then exit(ProdOrderComponent."Due Date"); - ReceiptDate := CalcDate('-' + Format(SubManagementSetup."Subc. Inb. Whse. Handling Time"), ProdOrderComponent."Due Date"); + ReceiptDate := CalcDate('-' + Format(SubcManagementSetup."Subc. Inb. Whse. Handling Time"), ProdOrderComponent."Due Date"); exit(ReceiptDate); end; @@ -103,36 +103,36 @@ codeunit 99001505 "Subcontracting Management" procedure CreatePurchProvisionRoutingLine(RoutingHeader: Record "Routing Header") var - RtngLine: Record "Routing Line"; - Vend: Record Vendor; - CSubingleInstanceDict: Codeunit "Single Instance Dictionary"; - SubcontractingMgmt: Codeunit "Subcontracting Management"; + RoutingLine: Record "Routing Line"; + Vendor: Record Vendor; + SingleInstanceDictionary: Codeunit "Single Instance Dictionary"; + SubcontractingManagement: Codeunit "Subcontracting Management"; RoutingLinkCode: Code[10]; WorkCenterNo: Code[20]; begin GetSubmanagementSetup(); if HasSubManagementSetup then - RoutingLinkCode := SubManagementSetup."Rtng. Link Code Purch. Prov."; + RoutingLinkCode := SubcManagementSetup."Rtng. Link Code Purch. Prov."; - Vend.SetLoadFields("Work Center No."); - if Vend.Get(CSubingleInstanceDict.GetCode(SubcontractingMgmt.GetDictionaryKey_Sub_CreateProdOrderProcess())) then - WorkCenterNo := Vend."Work Center No."; + Vendor.SetLoadFields("Work Center No."); + if Vendor.Get(SingleInstanceDictionary.GetCode(SubcontractingManagement.GetDictionaryKey_Sub_CreateProdOrderProcess())) then + WorkCenterNo := Vendor."Work Center No."; if WorkCenterNo = '' then - WorkCenterNo := SubManagementSetup."Common Work Center No."; + WorkCenterNo := SubcManagementSetup."Common Work Center No."; if WorkCenterNo = '' then exit; - RtngLine.Init(); - RtngLine."Routing No." := RoutingHeader."No."; - RtngLine."Operation No." := '01'; - RtngLine.Type := "Capacity Type Routing"::"Work Center"; - RtngLine.Validate("No.", WorkCenterNo); + RoutingLine.Init(); + RoutingLine."Routing No." := RoutingHeader."No."; + RoutingLine."Operation No." := '01'; + RoutingLine.Type := "Capacity Type Routing"::"Work Center"; + RoutingLine.Validate("No.", WorkCenterNo); if RoutingLinkCode <> '' then - RtngLine."Routing Link Code" := RoutingLinkCode; + RoutingLine."Routing Link Code" := RoutingLinkCode; - RtngLine.Insert(); + RoutingLine.Insert(); end; procedure CreateSubcontractingPurchaseOrderFromRoutingLine(ProdOrderRtngLine: Record "Prod. Order Routing Line") NoOfCreatedPurchOrder: Integer @@ -142,8 +142,8 @@ codeunit 99001505 "Subcontracting Management" QtyToPurch: Decimal; begin GetSubmanagementSetup(); - SubManagementSetup.TestField("Subcontracting Template Name"); - SubManagementSetup.TestField("Subcontracting Batch Name"); + SubcManagementSetup.TestField("Subcontracting Template Name"); + SubcManagementSetup.TestField("Subcontracting Batch Name"); CheckProdOrderRtngLine(ProdOrderRtngLine, ProdOrderLine); @@ -151,7 +151,7 @@ codeunit 99001505 "Subcontracting Management" ProdOrderLine.FindSet(); repeat BaseQtyToPurch := GetBaseQtyToPurchase(ProdOrderRtngLine, ProdOrderLine); - QtyToPurch := Round(BaseQtyToPurch / ProdOrderLine."Qty. per Unit of Measure", UOMMgt.QtyRndPrecision()); + QtyToPurch := Round(BaseQtyToPurch / ProdOrderLine."Qty. per Unit of Measure", UnitofMeasureManagement.QtyRndPrecision()); if QtyToPurch > 0 then CreateSubcontractingPurchase(ProdOrderRtngLine, ProdOrderLine, @@ -164,37 +164,37 @@ codeunit 99001505 "Subcontracting Management" procedure DelLocationLinkedComponents(ProdOrdRoutingLine: Record "Prod. Order Routing Line"; ShowMsg: Boolean) var - ProdOrdComponent: Record "Prod. Order Component"; - ProdOrdLine: Record "Prod. Order Line"; - SKU: Record "Stockkeeping Unit"; - ConfirmMgmt: Codeunit "Confirm Management"; - GetPlanningParameters: Codeunit "Planning-Get Parameters"; + ProdOrderComponent: Record "Prod. Order Component"; + ProdOrderLine: Record "Prod. Order Line"; + StockkeepingUnit: Record "Stockkeeping Unit"; + ConfirmManagement: Codeunit "Confirm Management"; + PlanningGetParameters: Codeunit "Planning-Get Parameters"; RoutingLinkUpdConfQst: Label 'If you change the Work Center, you will also change the default location for components with Routing Link Code=%1.\\Do you want to continue anyway?', Comment = '%1=Routing Link Code'; SuccessfullyUpdatedMsg: Label 'Successfully updated.'; UpdateIsCancelledErr: Label 'Update cancelled.'; begin - ProdOrdComponent.SetRange(Status, ProdOrdRoutingLine.Status); - ProdOrdComponent.SetRange("Prod. Order No.", ProdOrdRoutingLine."Prod. Order No."); - ProdOrdComponent.SetRange("Prod. Order Line No.", ProdOrdRoutingLine."Routing Reference No."); - ProdOrdComponent.SetRange("Routing Link Code", ProdOrdRoutingLine."Routing Link Code"); - if not ProdOrdComponent.IsEmpty() then begin - ProdOrdComponent.FindSet(); + ProdOrderComponent.SetRange(Status, ProdOrdRoutingLine.Status); + ProdOrderComponent.SetRange("Prod. Order No.", ProdOrdRoutingLine."Prod. Order No."); + ProdOrderComponent.SetRange("Prod. Order Line No.", ProdOrdRoutingLine."Routing Reference No."); + ProdOrderComponent.SetRange("Routing Link Code", ProdOrdRoutingLine."Routing Link Code"); + if not ProdOrderComponent.IsEmpty() then begin + ProdOrderComponent.FindSet(); if ShowMsg then - if not ConfirmMgmt.GetResponseOrDefault(StrSubstNo(RoutingLinkUpdConfQst, ProdOrdRoutingLine."Routing Link Code"), true) then + if not ConfirmManagement.GetResponseOrDefault(StrSubstNo(RoutingLinkUpdConfQst, ProdOrdRoutingLine."Routing Link Code"), true) then Error(UpdateIsCancelledErr); - ProdOrdLine.SetLoadFields("Item No.", "Variant Code", "Location Code"); - ProdOrdLine.Get(ProdOrdRoutingLine.Status, ProdOrdComponent."Prod. Order No.", ProdOrdComponent."Prod. Order Line No."); - GetPlanningParameters.AtSKU( - SKU, - ProdOrdLine."Item No.", - ProdOrdLine."Variant Code", - ProdOrdLine."Location Code"); + ProdOrderLine.SetLoadFields("Item No.", "Variant Code", "Location Code"); + ProdOrderLine.Get(ProdOrdRoutingLine.Status, ProdOrderComponent."Prod. Order No.", ProdOrderComponent."Prod. Order Line No."); + PlanningGetParameters.AtSKU( + StockkeepingUnit, + ProdOrderLine."Item No.", + ProdOrderLine."Variant Code", + ProdOrderLine."Location Code"); repeat - ProdOrdComponent.Validate("Location Code", SKU."Components at Location"); - ProdOrdComponent.Modify(); - until ProdOrdComponent.Next() = 0; + ProdOrderComponent.Validate("Location Code", StockkeepingUnit."Components at Location"); + ProdOrderComponent.Modify(); + until ProdOrderComponent.Next() = 0; if ShowMsg then Message(SuccessfullyUpdatedMsg); @@ -235,7 +235,7 @@ codeunit 99001505 "Subcontracting Management" if ItemJnlLine."Work Center No." = '' then exit(false); GetSubmanagementSetup(); - if SubManagementSetup."Common Work Center No." = ItemJnlLine."Work Center No." then + if SubcManagementSetup."Common Work Center No." = ItemJnlLine."Work Center No." then exit(true); exit(false); @@ -244,14 +244,14 @@ codeunit 99001505 "Subcontracting Management" procedure InsertProdDescriptionOnAfterInsertPurchOrderLine(PurchOrderLine: Record "Purchase Line"; var RequisitionLine: Record "Requisition Line") var ProdOrderLine: Record "Prod. Order Line"; - InfoPurchOrderLine: Record "Purchase Line"; + PurchaseLine: Record "Purchase Line"; begin GetSubmanagementSetup(); if not HasSubManagementSetup then exit; - if not SubManagementSetup."Create Prod. Order Info Line" then + if not SubcManagementSetup."Create Prod. Order Info Line" then exit; if (RequisitionLine."Prod. Order No." <> '') and @@ -262,15 +262,15 @@ codeunit 99001505 "Subcontracting Management" ProdOrderLine.SetLoadFields(Description, "Description 2"); ProdOrderLine.Get("Production Order Status"::Released, RequisitionLine."Prod. Order No.", RequisitionLine."Prod. Order Line No."); - InfoPurchOrderLine.Init(); - InfoPurchOrderLine."Line No." := GetLineNoBeforeInsertedLineNo(PurchOrderLine); - InfoPurchOrderLine."Document Type" := PurchOrderLine."Document Type"; - InfoPurchOrderLine."Document No." := PurchOrderLine."Document No."; - InfoPurchOrderLine.Type := "Purchase Line Type"::" "; - InfoPurchOrderLine.Description := ProdOrderLine.Description; - InfoPurchOrderLine."Description 2" := ProdOrderLine."Description 2"; + PurchaseLine.Init(); + PurchaseLine."Line No." := GetLineNoBeforeInsertedLineNo(PurchOrderLine); + PurchaseLine."Document Type" := PurchOrderLine."Document Type"; + PurchaseLine."Document No." := PurchOrderLine."Document No."; + PurchaseLine.Type := "Purchase Line Type"::" "; + PurchaseLine.Description := ProdOrderLine.Description; + PurchaseLine."Description 2" := ProdOrderLine."Description 2"; - InfoPurchOrderLine.Insert(); + PurchaseLine.Insert(); end; end; @@ -303,7 +303,7 @@ codeunit 99001505 "Subcontracting Management" PurchaseHeader: Record "Purchase Header"; PurchaseLine: Record "Purchase Line"; InstructionMgt: Codeunit "Instruction Mgt."; - NotifMgmt: Codeunit "Subc. Notification Mgmt."; + SubcNotificationMgmt: Codeunit "Subc. Notification Mgmt."; IsHandled: Boolean; PurchOrderCreatedTxt: Label '%1 Purchase Order(s) created.\\Do you want to view them?', Comment = '%1 = No of Purchase Order(s) created.'; begin @@ -313,8 +313,8 @@ codeunit 99001505 "Subcontracting Management" if NoOfCreatedPurchOrder = 0 then exit; - if InstructionMgt.IsEnabled(NotifMgmt.GetShowCreatedSubContPurchOrderCode()) then - if InstructionMgt.ShowConfirm(StrSubstNo(PurchOrderCreatedTxt, NoOfCreatedPurchOrder), NotifMgmt.GetShowCreatedSubContPurchOrderCode()) and + if InstructionMgt.IsEnabled(SubcNotificationMgmt.GetShowCreatedSubContPurchOrderCode()) then + if InstructionMgt.ShowConfirm(StrSubstNo(PurchOrderCreatedTxt, NoOfCreatedPurchOrder), SubcNotificationMgmt.GetShowCreatedSubContPurchOrderCode()) and GuiAllowed() then begin PurchaseLine.SetCurrentKey("Document Type", Type, "Prod. Order No."); @@ -336,27 +336,27 @@ codeunit 99001505 "Subcontracting Management" procedure TransferReservationEntryFromProdOrderCompToTransferOrder(TransferLine: Record "Transfer Line"; ProdOrderComponent: Record "Prod. Order Component") var - ReservEntry: Record "Reservation Entry"; + ReservationEntry: Record "Reservation Entry"; TempReservEntry: Record "Reservation Entry" temporary; ProdOrderCompReserve: Codeunit "Prod. Order Comp.-Reserve"; begin - TempGlobalReservEntry.Reset(); - TempGlobalReservEntry.DeleteAll(); + TempReservEntry.Reset(); + TempReservEntry.DeleteAll(); - if not ProdOrderCompReserve.FindReservEntry(ProdOrderComponent, ReservEntry) then + if not ProdOrderCompReserve.FindReservEntry(ProdOrderComponent, ReservationEntry) then exit; - if ReservEntry.FindSet() then + if ReservationEntry.FindSet() then repeat - TempGlobalReservEntry := ReservEntry; - TempGlobalReservEntry.Insert(); - until ReservEntry.Next() = 0; + TempReservEntry := ReservationEntry; + TempReservEntry.Insert(); + until ReservationEntry.Next() = 0; - TempReservEntry.Copy(TempGlobalReservEntry, true); + TempReservEntry.Copy(TempReservEntry, true); - ReservEntry.TransferReservations( - ReservEntry, + ReservationEntry.TransferReservations( + ReservationEntry, TransferLine."Item No.", TransferLine."Variant Code", TransferLine."Transfer-from Code", @@ -379,14 +379,14 @@ codeunit 99001505 "Subcontracting Management" TempTrackingSpecification: Record "Tracking Specification" temporary; CreateReservEntry: Codeunit "Create Reserv. Entry"; begin - TempGlobalReservEntry.SetRange("Reservation Status", TempGlobalReservEntry."Reservation Status"::Reservation); - if not TempGlobalReservEntry.FindSet() then + TempReservationEntry.SetRange("Reservation Status", TempReservationEntry."Reservation Status"::Reservation); + if not TempReservationEntry.FindSet() then exit; repeat - if TempGlobalReservEntry.GetItemTrackingEntryType() <> "Item Tracking Entry Type"::None then - if Item.Get(TempGlobalReservEntry."Item No.") then begin - TempGlobalReservEntry."Location Code" := ProdOrderComponent."Location Code"; + if TempReservationEntry.GetItemTrackingEntryType() <> "Item Tracking Entry Type"::None then + if Item.Get(TempReservationEntry."Item No.") then begin + TempReservationEntry."Location Code" := ProdOrderComponent."Location Code"; CreateReservEntry.CreateReservEntryFor( Database::"Transfer Line", 1, // Direction::Inbound @@ -395,9 +395,9 @@ codeunit 99001505 "Subcontracting Management" TransferLine."Derived From Line No.", TransferLine."Line No.", TransferLine."Qty. per Unit of Measure", - Abs(TempGlobalReservEntry.Quantity), - Abs(TempGlobalReservEntry."Quantity (Base)"), - TempGlobalReservEntry); + Abs(TempReservationEntry.Quantity), + Abs(TempReservationEntry."Quantity (Base)"), + TempReservationEntry); TempTrackingSpecification.Init(); TempTrackingSpecification.SetSource( @@ -408,47 +408,47 @@ codeunit 99001505 "Subcontracting Management" '', ProdOrderComponent."Prod. Order Line No."); TempTrackingSpecification."Qty. per Unit of Measure" := ProdOrderComponent."Qty. per Unit of Measure"; - TempTrackingSpecification.CopyTrackingFromReservEntry(TempGlobalReservEntry); + TempTrackingSpecification.CopyTrackingFromReservEntry(TempReservationEntry); CreateReservEntry.CreateReservEntryFrom(TempTrackingSpecification); CreateReservEntry.CreateEntry( - TempGlobalReservEntry."Item No.", - TempGlobalReservEntry."Variant Code", + TempReservationEntry."Item No.", + TempReservationEntry."Variant Code", TransferLine."Transfer-to Code", - TempGlobalReservEntry.Description, + TempReservationEntry.Description, TransferLine."Receipt Date", ProdOrderComponent."Due Date", 0, - TempGlobalReservEntry."Reservation Status"); + TempReservationEntry."Reservation Status"); end; - until TempGlobalReservEntry.Next() = 0; + until TempReservationEntry.Next() = 0; end; procedure TransferReservationEntryFromPstTransferLineToProdOrderComp(var TransferReceiptLine: Record "Transfer Receipt Line") var - ItemLedgEntry: Record "Item Ledger Entry"; - ProdOrderComp: Record "Prod. Order Component"; + ItemLedgerEntry: Record "Item Ledger Entry"; + ProdOrderComponent: Record "Prod. Order Component"; TempForReservationEntry: Record "Reservation Entry" temporary; TempTrackingSpecification: Record "Tracking Specification" temporary; - ReserveProdOrderComp: Codeunit "Prod. Order Comp.-Reserve"; + ProdOrderCompReserve: Codeunit "Prod. Order Comp.-Reserve"; begin if (TransferReceiptLine."Prod. Order No." = '') or (TransferReceiptLine."Operation No." = '') then exit; - if not ProdOrderComp.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."Prod. Order No.", TransferReceiptLine."Prod. Order Line No.", TransferReceiptLine."Prod. Order Comp. Line No.") then exit; - ItemLedgEntry.SetCurrentKey("Item No.", Open, "Variant Code", Positive, "Expiration Date", "Lot No.", "Serial No."); - ItemLedgEntry.SetRange("Item No.", TransferReceiptLine."Item No."); - ItemLedgEntry.SetRange(Open, true); - ItemLedgEntry.SetRange(Positive, true); - ItemLedgEntry.SetRange("Document No.", TransferReceiptLine."Document No."); - ItemLedgEntry.SetRange("Document Line No.", TransferReceiptLine."Line No."); - ItemLedgEntry.SetRange("Location Code", TransferReceiptLine."Transfer-to Code"); - ItemLedgEntry.SetLoadFields("Serial No.", "Lot No.", "Package No.", "Variant Code", "Location Code", "Qty. per Unit of Measure", Quantity); - if not ItemLedgEntry.IsEmpty() then begin - ItemLedgEntry.FindSet(); + ItemLedgerEntry.SetCurrentKey("Item No.", Open, "Variant Code", Positive, "Expiration Date", "Lot No.", "Serial No."); + ItemLedgerEntry.SetRange("Item No.", TransferReceiptLine."Item No."); + ItemLedgerEntry.SetRange(Open, true); + ItemLedgerEntry.SetRange(Positive, true); + ItemLedgerEntry.SetRange("Document No.", TransferReceiptLine."Document No."); + ItemLedgerEntry.SetRange("Document Line No.", TransferReceiptLine."Line No."); + ItemLedgerEntry.SetRange("Location Code", TransferReceiptLine."Transfer-to Code"); + ItemLedgerEntry.SetLoadFields("Serial No.", "Lot No.", "Package No.", "Variant Code", "Location Code", "Qty. per Unit of Measure", Quantity); + if not ItemLedgerEntry.IsEmpty() then begin + ItemLedgerEntry.FindSet(); repeat - if (ItemLedgEntry."Lot No." <> '') or (ItemLedgEntry."Serial No." <> '') or (ItemLedgEntry."Package No." <> '') then begin + if (ItemLedgerEntry."Lot No." <> '') or (ItemLedgerEntry."Serial No." <> '') or (ItemLedgerEntry."Package No." <> '') then begin if not TempTrackingSpecification.IsEmpty() then TempTrackingSpecification.DeleteAll(); TempTrackingSpecification."Source Type" := Database::"Item Ledger Entry"; @@ -456,57 +456,57 @@ codeunit 99001505 "Subcontracting Management" TempTrackingSpecification."Source ID" := ''; TempTrackingSpecification."Source Batch Name" := ''; TempTrackingSpecification."Source Prod. Order Line" := 0; - TempTrackingSpecification."Source Ref. No." := ItemLedgEntry."Entry No."; - TempTrackingSpecification."Variant Code" := ItemLedgEntry."Variant Code"; - TempTrackingSpecification."Location Code" := ItemLedgEntry."Location Code"; - TempTrackingSpecification."Serial No." := ItemLedgEntry."Serial No."; - TempTrackingSpecification."Lot No." := ItemLedgEntry."Lot No."; - TempTrackingSpecification."Package No." := ItemLedgEntry."Package No."; - TempTrackingSpecification."Qty. per Unit of Measure" := ItemLedgEntry."Qty. per Unit of Measure"; + TempTrackingSpecification."Source Ref. No." := ItemLedgerEntry."Entry No."; + TempTrackingSpecification."Variant Code" := ItemLedgerEntry."Variant Code"; + TempTrackingSpecification."Location Code" := ItemLedgerEntry."Location Code"; + TempTrackingSpecification."Serial No." := ItemLedgerEntry."Serial No."; + TempTrackingSpecification."Lot No." := ItemLedgerEntry."Lot No."; + TempTrackingSpecification."Package No." := ItemLedgerEntry."Package No."; + TempTrackingSpecification."Qty. per Unit of Measure" := ItemLedgerEntry."Qty. per Unit of Measure"; TempTrackingSpecification.Insert(); - ReserveProdOrderComp.CreateReservationSetFrom(TempTrackingSpecification); + ProdOrderCompReserve.CreateReservationSetFrom(TempTrackingSpecification); TempForReservationEntry.CopyTrackingFromSpec(TempTrackingSpecification); - ReserveProdOrderComp.CreateReservation( - ProdOrderComp, - ProdOrderComp.Description, - ProdOrderComp."Due Date", - ItemLedgEntry.Quantity, - ItemLedgEntry.Quantity * ItemLedgEntry."Qty. per Unit of Measure", + ProdOrderCompReserve.CreateReservation( + ProdOrderComponent, + ProdOrderComponent.Description, + ProdOrderComponent."Due Date", + ItemLedgerEntry.Quantity, + ItemLedgerEntry.Quantity * ItemLedgerEntry."Qty. per Unit of Measure", TempForReservationEntry); end; - until ItemLedgEntry.Next() = 0; + until ItemLedgerEntry.Next() = 0; end; end; procedure TransferSubcontractingProdOrderComp(var PurchOrderLine: Record "Purchase Line"; var RequisitionLine: Record "Requisition Line"; var NextLineNo: Integer) var - ProdOrderComp: Record "Prod. Order Component"; - ProdOrderRtngLine: Record "Prod. Order Routing Line"; - PurchOrderHeader: Record "Purchase Header"; + ProdOrderComponent: Record "Prod. Order Component"; + ProdOrderRoutingLine: Record "Prod. Order Routing Line"; + PurchaseHeader: Record "Purchase Header"; PurchasingCode: Record Purchasing; WorkCenter: Record "Work Center"; - DimMgt: Codeunit DimensionManagement; + DimensionManagement: Codeunit DimensionManagement; SubContractorWorkCenterNo: Code[20]; DimensionSetIDArr: array[10] of Integer; begin GetSubmanagementSetup(); - ProdOrderRtngLine.SetLoadFields("Work Center No.", Status, "Prod. Order No.", "Routing Link Code"); - if ProdOrderRtngLine.Get("Production Order Status"::Released, RequisitionLine."Prod. Order No.", RequisitionLine."Routing Reference No.", RequisitionLine."Routing No.", RequisitionLine."Operation No.") then begin + ProdOrderRoutingLine.SetLoadFields("Work Center No.", Status, "Prod. Order No.", "Routing Link Code"); + if ProdOrderRoutingLine.Get("Production Order Status"::Released, RequisitionLine."Prod. Order No.", RequisitionLine."Routing Reference No.", RequisitionLine."Routing No.", RequisitionLine."Operation No.") then begin WorkCenter.SetLoadFields("Subcontractor No."); - if WorkCenter.Get(ProdOrderRtngLine."Work Center No.") then begin + if WorkCenter.Get(ProdOrderRoutingLine."Work Center No.") then begin SubContractorWorkCenterNo := WorkCenter."No."; OnBeforeHandleProdOrderRtngWorkCenterWithSubcontractor(SubContractorWorkCenterNo); if SubContractorWorkCenterNo <> '' then begin - PurchOrderHeader.Get(PurchOrderLine."Document Type", PurchOrderLine."Document No."); - ProdOrderComp.SetRange(Status, ProdOrderRtngLine.Status); - ProdOrderComp.SetRange("Prod. Order No.", ProdOrderRtngLine."Prod. Order No."); - ProdOrderComp.SetRange("Prod. Order Line No.", RequisitionLine."Prod. Order Line No."); - ProdOrderComp.SetRange("Subcontracting Type", "Subcontracting Type"::Purchase); - ProdOrderComp.SetRange("Routing Link Code", ProdOrderRtngLine."Routing Link Code"); - if ProdOrderComp.FindSet() then + PurchaseHeader.Get(PurchOrderLine."Document Type", PurchOrderLine."Document No."); + ProdOrderComponent.SetRange(Status, ProdOrderRoutingLine.Status); + ProdOrderComponent.SetRange("Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); + ProdOrderComponent.SetRange("Prod. Order Line No.", RequisitionLine."Prod. Order Line No."); + ProdOrderComponent.SetRange("Subcontracting Type", "Subcontracting Type"::Purchase); + ProdOrderComponent.SetRange("Routing Link Code", ProdOrderRoutingLine."Routing Link Code"); + if ProdOrderComponent.FindSet() then repeat - InitPurchOrderLine(PurchOrderLine, PurchOrderHeader, RequisitionLine, ProdOrderComp, NextLineNo); + InitPurchOrderLine(PurchOrderLine, PurchaseHeader, RequisitionLine, ProdOrderComponent, NextLineNo); PurchOrderLine."Drop Shipment" := RequisitionLine."Sales Order Line No." <> 0; @@ -521,22 +521,22 @@ codeunit 99001505 "Subcontracting Management" PurchOrderLine.UpdateUnitCost(); end; - DimensionSetIDArr[1] := ProdOrderComp."Dimension Set ID"; + DimensionSetIDArr[1] := ProdOrderComponent."Dimension Set ID"; DimensionSetIDArr[2] := PurchOrderLine."Dimension Set ID"; PurchOrderLine."Dimension Set ID" := - DimMgt.GetCombinedDimensionSetID( + DimensionManagement.GetCombinedDimensionSetID( DimensionSetIDArr, PurchOrderLine."Shortcut Dimension 1 Code", PurchOrderLine."Shortcut Dimension 2 Code"); PurchOrderLine."Order Date" := WorkDate(); - PurchOrderLine."Subc. Prod. Order No." := ProdOrderRtngLine."Prod. Order No."; - PurchOrderLine."Subc. Prod. Order Line No." := ProdOrderRtngLine."Routing Reference No."; - PurchOrderLine."Subc. Routing No." := ProdOrderRtngLine."Routing No."; - PurchOrderLine."Subc. Rtng Reference No." := ProdOrderRtngLine."Routing Reference No."; - PurchOrderLine."Subc. Operation No." := ProdOrderRtngLine."Operation No."; - PurchOrderLine."Subc. Work Center No." := ProdOrderRtngLine."Work Center No."; + PurchOrderLine."Subc. Prod. Order No." := ProdOrderRoutingLine."Prod. Order No."; + PurchOrderLine."Subc. Prod. Order Line No." := ProdOrderRoutingLine."Routing Reference No."; + PurchOrderLine."Subc. Routing No." := ProdOrderRoutingLine."Routing No."; + PurchOrderLine."Subc. Rtng Reference No." := ProdOrderRoutingLine."Routing Reference No."; + PurchOrderLine."Subc. Operation No." := ProdOrderRoutingLine."Operation No."; + PurchOrderLine."Subc. Work Center No." := ProdOrderRoutingLine."Work Center No."; PurchOrderLine.Insert(); - until ProdOrderComp.Next() = 0; + until ProdOrderComponent.Next() = 0; end; end end; @@ -545,11 +545,11 @@ codeunit 99001505 "Subcontracting Management" procedure UpdateLocationCodeInProdOrderCompAfterDeleteTransferLine(var TransferLine: Record "Transfer Line") var ProdOrderComponent: Record "Prod. Order Component"; - SubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; 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 - SubcontractingMgmt.ChangeLocation_OnProdOrderComponent(ProdOrderComponent, '', ProdOrderComponent."Orig. Location Code", ProdOrderComponent."Orig. Bin Code"); + SubcontractingManagement.ChangeLocation_OnProdOrderComponent(ProdOrderComponent, '', ProdOrderComponent."Orig. Location Code", ProdOrderComponent."Orig. Bin Code"); ProdOrderComponent."Orig. Location Code" := ''; ProdOrderComponent."Orig. Bin Code" := ''; @@ -560,7 +560,7 @@ codeunit 99001505 "Subcontracting Management" procedure UpdateSubcontractingTypeForPlanningComponent(var PlanningComponent: Record "Planning Component") var - PlanRtngLine: Record "Planning Routing Line"; + PlanningRoutingLine: Record "Planning Routing Line"; Vendor: Record Vendor; OrigLocationCode, VendorSubcontractingLocationCode : Code[10]; OrigBinCode: Code[20]; @@ -568,16 +568,16 @@ codeunit 99001505 "Subcontracting Management" if PlanningComponent."Routing Link Code" = '' then exit; - PlanRtngLine.SetRange("Worksheet Template Name", PlanningComponent."Worksheet Template Name"); - PlanRtngLine.SetRange("Worksheet Batch Name", PlanningComponent."Worksheet Batch Name"); - PlanRtngLine.SetRange("Worksheet Line No.", PlanningComponent."Worksheet Line No."); - PlanRtngLine.SetRange("Routing Link Code", PlanningComponent."Routing Link Code"); - PlanRtngLine.SetRange(Type, "Capacity Type"::"Work Center"); - if not PlanRtngLine.IsEmpty() then begin - PlanRtngLine.SetLoadFields("No."); - PlanRtngLine.FindFirst(); + PlanningRoutingLine.SetRange("Worksheet Template Name", PlanningComponent."Worksheet Template Name"); + PlanningRoutingLine.SetRange("Worksheet Batch Name", PlanningComponent."Worksheet Batch Name"); + PlanningRoutingLine.SetRange("Worksheet Line No.", PlanningComponent."Worksheet Line No."); + PlanningRoutingLine.SetRange("Routing Link Code", PlanningComponent."Routing Link Code"); + PlanningRoutingLine.SetRange(Type, "Capacity Type"::"Work Center"); + if not PlanningRoutingLine.IsEmpty() then begin + PlanningRoutingLine.SetLoadFields("No."); + PlanningRoutingLine.FindFirst(); - if not GetSubcontractor(PlanRtngLine."No.", Vendor) then + 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"; @@ -593,7 +593,7 @@ codeunit 99001505 "Subcontracting Management" procedure UpdateSubcontractingTypeForProdOrderComponent(var ProdOrderComp: Record "Prod. Order Component") var ProdOrderLine: Record "Prod. Order Line"; - ProdOrderRtngLine: Record "Prod. Order Routing Line"; + ProdOrderRoutingLine: Record "Prod. Order Routing Line"; PurchaseLine: Record "Purchase Line"; PurchaseLine2: Record "Purchase Line"; Vendor: Record Vendor; @@ -609,15 +609,15 @@ codeunit 99001505 "Subcontracting Management" ProdOrderLine.SetLoadFields("Routing Reference No.", "Routing No."); ProdOrderLine.Get(ProdOrderComp.Status, ProdOrderComp."Prod. Order No.", ProdOrderComp."Prod. Order Line No."); - ProdOrderRtngLine.SetRange(Status, ProdOrderComp.Status); - ProdOrderRtngLine.SetRange("Prod. Order No.", ProdOrderComp."Prod. Order No."); - ProdOrderRtngLine.SetRange("Routing No.", ProdOrderLine."Routing No."); - ProdOrderRtngLine.SetRange("Routing Reference No.", ProdOrderLine."Routing Reference No."); - ProdOrderRtngLine.SetRange("Routing Link Code", ProdOrderComp."Routing Link Code"); - ProdOrderRtngLine.SetLoadFields("Prod. Order No.", Type, "No."); - if ProdOrderRtngLine.FindFirst() then begin + ProdOrderRoutingLine.SetRange(Status, ProdOrderComp.Status); + ProdOrderRoutingLine.SetRange("Prod. Order No.", ProdOrderComp."Prod. Order No."); + ProdOrderRoutingLine.SetRange("Routing No.", ProdOrderLine."Routing No."); + ProdOrderRoutingLine.SetRange("Routing Reference No.", ProdOrderLine."Routing Reference No."); + ProdOrderRoutingLine.SetRange("Routing Link Code", ProdOrderComp."Routing Link Code"); + ProdOrderRoutingLine.SetLoadFields("Prod. Order No.", Type, "No."); + if ProdOrderRoutingLine.FindFirst() then begin PurchaseLine.SetRange("Document Type", "Purchase Document Type"::Order); - PurchaseLine.SetRange("Prod. Order No.", ProdOrderRtngLine."Prod. Order No."); + PurchaseLine.SetRange("Prod. Order No.", ProdOrderRoutingLine."Prod. Order No."); PurchaseLine.SetLoadFields(SystemId); if PurchaseLine.FindSet() then repeat @@ -633,8 +633,8 @@ codeunit 99001505 "Subcontracting Management" if ProdOrderCompFound then Error(PurchOrderExistErr, ProdOrderComp."Item No.", PurchOrderNo, ProdOrderComp.FieldCaption(ProdOrderComp."Subcontracting Type")); - if ProdOrderRtngLine.Type = "Capacity Type"::"Work Center" then begin - if not GetSubcontractor(ProdOrderRtngLine."No.", Vendor) then + if ProdOrderRoutingLine.Type = "Capacity Type"::"Work Center" then begin + if not GetSubcontractor(ProdOrderRoutingLine."No.", Vendor) then Clear(Vendor); VendorSubcontractingLocationCode := Vendor."Subcontr. Location Code"; @@ -652,9 +652,9 @@ codeunit 99001505 "Subcontracting Management" procedure UpdLinkedComponents(ProdOrdRoutingLine: Record "Prod. Order Routing Line"; ShowMsg: Boolean) var - ProdOrdComponent: Record "Prod. Order Component"; + ProdOrderComponent: Record "Prod. Order Component"; Vendor: Record Vendor; - ConfirmMgt: Codeunit "Confirm Management"; + ConfirmManagement: Codeunit "Confirm Management"; Subcontracting: Boolean; OrigLocationCode, VendorSubcontractingLocationCode : Code[10]; OrigBinCode: Code[20]; @@ -662,29 +662,29 @@ codeunit 99001505 "Subcontracting Management" SuccessfullyUpdatedMsg: Label 'Successfully updated.'; UpdateIsCancelledErr: Label 'The update is canceled.'; begin - ProdOrdComponent.SetRange(Status, ProdOrdRoutingLine.Status); - ProdOrdComponent.SetRange("Prod. Order No.", ProdOrdRoutingLine."Prod. Order No."); - ProdOrdComponent.SetRange("Prod. Order Line No.", ProdOrdRoutingLine."Routing Reference No."); - ProdOrdComponent.SetRange("Routing Link Code", ProdOrdRoutingLine."Routing Link Code"); - if ProdOrdComponent.FindSet() then begin + ProdOrderComponent.SetRange(Status, ProdOrdRoutingLine.Status); + ProdOrderComponent.SetRange("Prod. Order No.", ProdOrdRoutingLine."Prod. Order No."); + ProdOrderComponent.SetRange("Prod. Order Line No.", ProdOrdRoutingLine."Routing Reference No."); + ProdOrderComponent.SetRange("Routing Link Code", ProdOrdRoutingLine."Routing Link Code"); + if ProdOrderComponent.FindSet() then begin if ProdOrdRoutingLine.Type = "Capacity Type"::"Work Center" then Subcontracting := GetSubcontractor(ProdOrdRoutingLine."No.", Vendor); if Subcontracting then begin VendorSubcontractingLocationCode := Vendor."Subcontr. Location Code"; if ShowMsg then - if not ConfirmMgt.GetResponseOrDefault(StrSubstNo(RoutingLinkUpdConfQst, ProdOrdRoutingLine."Routing Link Code"), true) then + if not ConfirmManagement.GetResponseOrDefault(StrSubstNo(RoutingLinkUpdConfQst, ProdOrdRoutingLine."Routing Link Code"), true) then Error(UpdateIsCancelledErr); repeat - if ProdOrdComponent."Subcontracting Type" in ["Subcontracting Type"::InventoryByVendor, "Subcontracting Type"::Purchase] = false then + if ProdOrderComponent."Subcontracting Type" in ["Subcontracting Type"::InventoryByVendor, "Subcontracting Type"::Purchase] = false then Clear(VendorSubcontractingLocationCode); - OrigLocationCode := ProdOrdComponent."Orig. Location Code"; - OrigBinCode := ProdOrdComponent."Orig. Bin Code"; + OrigLocationCode := ProdOrderComponent."Orig. Location Code"; + OrigBinCode := ProdOrderComponent."Orig. Bin Code"; - ChangeLocation_OnProdOrderComponent(ProdOrdComponent, VendorSubcontractingLocationCode, OrigLocationCode, OrigBinCode); + ChangeLocation_OnProdOrderComponent(ProdOrderComponent, VendorSubcontractingLocationCode, OrigLocationCode, OrigBinCode); - ProdOrdComponent.Modify(); - until ProdOrdComponent.Next() = 0; + ProdOrderComponent.Modify(); + until ProdOrderComponent.Next() = 0; if ShowMsg then Message(SuccessfullyUpdatedMsg); @@ -699,14 +699,14 @@ codeunit 99001505 "Subcontracting Management" /// The transfer-from location code. procedure GetComponentsLocationCode(PurchaseLine: Record "Purchase Line"): Code[10] var - CompanyInfo: Record "Company Information"; + CompanyInformation: Record "Company Information"; ManufacturingSetup: Record "Manufacturing Setup"; ComponentsLocationCode: Code[10]; begin GetSubmanagementSetup(); - SubManagementSetup.TestField("Component at Location"); + SubcManagementSetup.TestField("Component at Location"); - case SubManagementSetup."Component at Location" of + case SubcManagementSetup."Component at Location" of "Components at Location"::Purchase: begin PurchaseLine.TestField("Location Code"); @@ -714,10 +714,10 @@ codeunit 99001505 "Subcontracting Management" end; "Components at Location"::Company: begin - CompanyInfo.SetLoadFields("Location Code"); - CompanyInfo.Get(); - CompanyInfo.TestField("Location Code"); - ComponentsLocationCode := CompanyInfo."Location Code"; + CompanyInformation.SetLoadFields("Location Code"); + CompanyInformation.Get(); + CompanyInformation.TestField("Location Code"); + ComponentsLocationCode := CompanyInformation."Location Code"; end; "Components at Location"::Manufacturing: begin @@ -747,7 +747,7 @@ codeunit 99001505 "Subcontracting Management" PurchaseHeader: Record "Purchase Header"; PurchaseLine: Record "Purchase Line"; WorkCenter: Record "Work Center"; - ConfirmMgmt: Codeunit "Confirm Management"; + ConfirmManagement: Codeunit "Confirm Management"; CreationOfSubcontractingOrderIsNotAllowedErr: Label 'You cannot create Subcontracting Order, because the Production Order %1 is not released.', Comment = '%1=Production Order No.'; NoProdOrderLineWithRemQtyErr: Label 'No Prod. Order Line with Remaining Quantity.'; PurchOrderCreatedTxt: Label 'Already Purchase Order(s) created.\\Do you want to view them?'; @@ -781,7 +781,7 @@ codeunit 99001505 "Subcontracting Management" PurchaseLine.SetRange("Routing No.", ProdOrderRtngLine."Routing No."); PurchaseLine.SetRange("Operation No.", ProdOrderRtngLine."Operation No."); if not PurchaseLine.IsEmpty() then - if ConfirmMgmt.GetResponseOrDefault(PurchOrderCreatedTxt, false) then + if ConfirmManagement.GetResponseOrDefault(PurchOrderCreatedTxt, false) then if PurchaseLine.Count() > 1 then Page.Run(Page::"Purchase Lines", PurchaseLine) else begin @@ -793,25 +793,25 @@ codeunit 99001505 "Subcontracting Management" local procedure CreateSubcontractingPurchase(ProdOrderRtngLine: Record "Prod. Order Routing Line"; ProdOrderLine: Record "Prod. Order Line"; QtyToPurch: Decimal; var NoOfCreatedPurchOrder: Integer) var - ReqLine: Record "Requisition Line"; - CarryOutAction: Report "Carry Out Action Msg. - Req."; + RequisitionLine: Record "Requisition Line"; + CarryOutActionMsgReq: Report "Carry Out Action Msg. - Req."; begin ProdOrderLine.CalcFields("Total Exp. Oper. Output (Qty.)"); - ReqLine.SetRange("Worksheet Template Name", SubManagementSetup."Subcontracting Template Name"); - ReqLine.SetRange("Journal Batch Name", SubManagementSetup."Subcontracting Batch Name"); - FilterReqLineWithProdOrderAndRtngLine(ReqLine, ProdOrderLine, ProdOrderRtngLine); - if ReqLine.FindFirst() then - ReqLine.Delete(); + RequisitionLine.SetRange("Worksheet Template Name", SubcManagementSetup."Subcontracting Template Name"); + RequisitionLine.SetRange("Journal Batch Name", SubcManagementSetup."Subcontracting Batch Name"); + FilterReqLineWithProdOrderAndRtngLine(RequisitionLine, ProdOrderLine, ProdOrderRtngLine); + if RequisitionLine.FindFirst() then + RequisitionLine.Delete(); - InsertReqWkshLine(ProdOrderRtngLine, ProdOrderLine, SubManagementSetup."Subcontracting Template Name", SubManagementSetup."Subcontracting Batch Name", QtyToPurch); + InsertReqWkshLine(ProdOrderRtngLine, ProdOrderLine, SubcManagementSetup."Subcontracting Template Name", SubcManagementSetup."Subcontracting Batch Name", QtyToPurch); - if ReqLine.FindFirst() then begin - CarryOutAction.UseRequestPage(false); - CarryOutAction.SetReqWkshLine(ReqLine); - CarryOutAction.SetHideDialog(true); - CarryOutAction.RunModal(); - Clear(CarryOutAction); + if RequisitionLine.FindFirst() then begin + CarryOutActionMsgReq.UseRequestPage(false); + CarryOutActionMsgReq.SetReqWkshLine(RequisitionLine); + CarryOutActionMsgReq.SetHideDialog(true); + CarryOutActionMsgReq.RunModal(); + Clear(CarryOutActionMsgReq); NoOfCreatedPurchOrder += 1; end; end; @@ -829,19 +829,19 @@ codeunit 99001505 "Subcontracting Management" local procedure GetBaseQtyToPurchase(ProdOrderRtngLine: Record "Prod. Order Routing Line"; ProdOrderLine: Record "Prod. Order Line") BaseQuantityToPurch: Decimal var - CostCalcMgt: Codeunit "Mfg. Cost Calculation Mgt."; + MfgCostCalculationMgt: Codeunit "Mfg. Cost Calculation Mgt."; ActOutputQtyBase: Decimal; OutputQtyBaseOnPurchOrder: Decimal; QtyAdjdForRoutingScrap: Decimal; QtyAdjForBomScrap: Decimal; begin - QtyAdjForBomScrap := CostCalcMgt.CalcQtyAdjdForBOMScrap(ProdOrderLine."Quantity (Base)", ProdOrderLine."Scrap %"); + QtyAdjForBomScrap := MfgCostCalculationMgt.CalcQtyAdjdForBOMScrap(ProdOrderLine."Quantity (Base)", ProdOrderLine."Scrap %"); - QtyAdjdForRoutingScrap := CostCalcMgt.CalcQtyAdjdForRoutingScrap(QtyAdjForBomScrap, ProdOrderRtngLine."Scrap Factor % (Accumulated)", ProdOrderRtngLine."Fixed Scrap Qty. (Accum.)"); + QtyAdjdForRoutingScrap := MfgCostCalculationMgt.CalcQtyAdjdForRoutingScrap(QtyAdjForBomScrap, ProdOrderRtngLine."Scrap Factor % (Accumulated)", ProdOrderRtngLine."Fixed Scrap Qty. (Accum.)"); - OutputQtyBaseOnPurchOrder := CostCalcMgt.CalcOutputQtyBaseOnPurchOrder(ProdOrderLine, ProdOrderRtngLine); + OutputQtyBaseOnPurchOrder := MfgCostCalculationMgt.CalcOutputQtyBaseOnPurchOrder(ProdOrderLine, ProdOrderRtngLine); - ActOutputQtyBase := CostCalcMgt.CalcActOutputQtyBase(ProdOrderLine, ProdOrderRtngLine); + ActOutputQtyBase := MfgCostCalculationMgt.CalcActOutputQtyBase(ProdOrderLine, ProdOrderRtngLine); BaseQuantityToPurch := QtyAdjdForRoutingScrap - (OutputQtyBaseOnPurchOrder + ActOutputQtyBase); @@ -852,25 +852,25 @@ codeunit 99001505 "Subcontracting Management" begin if HasSubManagementSetup then exit; - if SubManagementSetup.Get() then + if SubcManagementSetup.Get() then HasSubManagementSetup := true; end; local procedure GetLineNoBeforeInsertedLineNo(PurchLine: Record "Purchase Line") BeforeLineNo: Integer var - ToPurchLine: Record "Purchase Line"; + ToPurchaseLine: Record "Purchase Line"; LineSpacing: Integer; NotEnoughSpaceErr: Label 'There is not enough space to insert the subcontracting info line.'; begin - ToPurchLine.Reset(); - ToPurchLine.SetRange("Document Type", PurchLine."Document Type"); - ToPurchLine.SetRange("Document No.", PurchLine."Document No."); - ToPurchLine := PurchLine; + ToPurchaseLine.Reset(); + ToPurchaseLine.SetRange("Document Type", PurchLine."Document Type"); + ToPurchaseLine.SetRange("Document No.", PurchLine."Document No."); + ToPurchaseLine := PurchLine; #pragma warning disable AA0181 - if ToPurchLine.Find('<') then begin + if ToPurchaseLine.Find('<') then begin #pragma warning restore AA0181 LineSpacing := - (PurchLine."Line No." - ToPurchLine."Line No.") div 2; + (PurchLine."Line No." - ToPurchaseLine."Line No.") div 2; if LineSpacing = 0 then Error(NotEnoughSpaceErr); end else @@ -894,14 +894,14 @@ codeunit 99001505 "Subcontracting Management" exit(NextLineNo); end; - local procedure InitPurchOrderLine(var PurchOrderLine: Record "Purchase Line"; PurchOrderHeader: Record "Purchase Header"; RequisitionLine: Record "Requisition Line"; ProdOrderComp: Record "Prod. Order Component"; var NextLineNo: Integer) + local procedure InitPurchOrderLine(var PurchOrderLine: Record "Purchase Line"; PurchOrderHeader: Record "Purchase Header"; RequisitionLine: Record "Requisition Line"; ProdOrderComponent: Record "Prod. Order Component"; var NextLineNo: Integer) var Item: Record Item; begin GetSubmanagementSetup(); Item.SetLoadFields("Item Category Code", "Description 2"); - Item.Get(ProdOrderComp."Item No."); + Item.Get(ProdOrderComponent."Item No."); PurchOrderLine.Init(); PurchOrderLine.BlockDynamicTracking(true); @@ -913,27 +913,27 @@ codeunit 99001505 "Subcontracting Management" PurchOrderLine.Validate(Type, "Purchase Line Type"::Item); - PurchOrderLine.Validate("No.", ProdOrderComp."Item No."); + PurchOrderLine.Validate("No.", ProdOrderComponent."Item No."); - PurchOrderLine.Validate("Variant Code", ProdOrderComp."Variant Code"); + PurchOrderLine.Validate("Variant Code", ProdOrderComponent."Variant Code"); - PurchOrderLine.Validate("Location Code", ProdOrderComp."Location Code"); - if ProdOrderComp."Bin Code" <> '' then - PurchOrderLine.Validate("Bin Code", ProdOrderComp."Bin Code"); - PurchOrderLine.Validate("Unit of Measure Code", ProdOrderComp."Unit of Measure Code"); - PurchOrderLine."Qty. per Unit of Measure" := ProdOrderComp."Qty. per Unit of Measure"; + PurchOrderLine.Validate("Location Code", ProdOrderComponent."Location Code"); + if ProdOrderComponent."Bin Code" <> '' then + PurchOrderLine.Validate("Bin Code", ProdOrderComponent."Bin Code"); + PurchOrderLine.Validate("Unit of Measure Code", ProdOrderComponent."Unit of Measure Code"); + PurchOrderLine."Qty. per Unit of Measure" := ProdOrderComponent."Qty. per Unit of Measure"; - PurchOrderLine.Validate(Quantity, ProdOrderComp."Remaining Quantity"); + PurchOrderLine.Validate(Quantity, ProdOrderComponent."Remaining Quantity"); - if SubManagementSetup."Component Direct Unit Cost" <> SubManagementSetup."Component Direct Unit Cost"::Standard then begin + if SubcManagementSetup."Component Direct Unit Cost" <> SubcManagementSetup."Component Direct Unit Cost"::Standard then begin if PurchOrderHeader."Prices Including VAT" then - PurchOrderLine.Validate("Direct Unit Cost", ProdOrderComp."Direct Unit Cost" * (1 + PurchOrderLine."VAT %" / 100)) + PurchOrderLine.Validate("Direct Unit Cost", ProdOrderComponent."Direct Unit Cost" * (1 + PurchOrderLine."VAT %" / 100)) else - PurchOrderLine.Validate("Direct Unit Cost", ProdOrderComp."Direct Unit Cost"); + PurchOrderLine.Validate("Direct Unit Cost", ProdOrderComponent."Direct Unit Cost"); PurchOrderLine.Validate("Line Discount %", RequisitionLine."Line Discount %"); end; - PurchOrderLine.Description := ProdOrderComp.Description; + PurchOrderLine.Description := ProdOrderComponent.Description; PurchOrderLine."Description 2" := Item."Description 2"; PurchOrderLine."Sales Order No." := RequisitionLine."Sales Order No."; @@ -950,107 +950,107 @@ codeunit 99001505 "Subcontracting Management" local procedure InsertReqWkshLine(ProdOrderRtngLine: Record "Prod. Order Routing Line"; ProdOrderLine: Record "Prod. Order Line"; ReqWkshTemplateName: Code[10]; WkshName: Code[10]; QtyToPurch: Decimal) var - GLSetup: Record "General Ledger Setup"; - PurchLine: Record "Purchase Line"; - ReqLine: Record "Requisition Line"; + GeneralLedgerSetup: Record "General Ledger Setup"; + PurchaseLine: Record "Purchase Line"; + RequisitionLine: Record "Requisition Line"; WorkCenter: Record "Work Center"; begin WorkCenter.SetLoadFields("Subcontractor No.", "Unit Cost Calculation", "Location Code", "Open Shop Floor Bin Code"); WorkCenter.Get(ProdOrderRtngLine."Work Center No."); - ReqLine.GetProdOrderLine(ProdOrderLine); + RequisitionLine.GetProdOrderLine(ProdOrderLine); ProdOrderLine.CalcFields("Total Exp. Oper. Output (Qty.)"); - ReqLine.SetSubcontracting(true); - ReqLine.BlockDynamicTracking(true); + RequisitionLine.SetSubcontracting(true); + RequisitionLine.BlockDynamicTracking(true); - ReqLine.Init(); - ReqLine."Worksheet Template Name" := ReqWkshTemplateName; - ReqLine."Journal Batch Name" := WkshName; + RequisitionLine.Init(); + RequisitionLine."Worksheet Template Name" := ReqWkshTemplateName; + RequisitionLine."Journal Batch Name" := WkshName; - ReqLine."Line No." := GetNextReqLineNo(ReqLine); + RequisitionLine."Line No." := GetNextReqLineNo(RequisitionLine); - ReqLine.Validate(Type, "Requisition Line Type"::Item); - ReqLine.Validate("No.", ProdOrderLine."Item No."); - ReqLine.Validate("Variant Code", ProdOrderLine."Variant Code"); - ReqLine.Validate("Unit of Measure Code", ProdOrderLine."Unit of Measure Code"); - ReqLine.Validate(Quantity, QtyToPurch); + RequisitionLine.Validate(Type, "Requisition Line Type"::Item); + RequisitionLine.Validate("No.", ProdOrderLine."Item No."); + RequisitionLine.Validate("Variant Code", ProdOrderLine."Variant Code"); + RequisitionLine.Validate("Unit of Measure Code", ProdOrderLine."Unit of Measure Code"); + RequisitionLine.Validate(Quantity, QtyToPurch); - GLSetup.Get(); - if ReqLine.Quantity <> 0 then begin + GeneralLedgerSetup.Get(); + if RequisitionLine.Quantity <> 0 then begin if WorkCenter."Unit Cost Calculation" = "Unit Cost Calculation Type"::Units then - ReqLine.Validate( - ReqLine."Direct Unit Cost", + RequisitionLine.Validate( + RequisitionLine."Direct Unit Cost", Round( ProdOrderRtngLine."Direct Unit Cost" * ProdOrderLine."Qty. per Unit of Measure", - GLSetup."Unit-Amount Rounding Precision")) + GeneralLedgerSetup."Unit-Amount Rounding Precision")) else - ReqLine.Validate( - ReqLine."Direct Unit Cost", + RequisitionLine.Validate( + RequisitionLine."Direct Unit Cost", Round( (ProdOrderRtngLine."Expected Operation Cost Amt." - ProdOrderRtngLine."Expected Capacity Ovhd. Cost") / ProdOrderLine."Total Exp. Oper. Output (Qty.)", - GLSetup."Unit-Amount Rounding Precision")) + GeneralLedgerSetup."Unit-Amount Rounding Precision")) end else - ReqLine.Validate("Direct Unit Cost", 0); + RequisitionLine.Validate("Direct Unit Cost", 0); - ReqLine."Qty. per Unit of Measure" := 0; - ReqLine."Quantity (Base)" := 0; - ReqLine."Qty. Rounding Precision" := ProdOrderLine."Qty. Rounding Precision"; - ReqLine."Qty. Rounding Precision (Base)" := ProdOrderLine."Qty. Rounding Precision (Base)"; - ReqLine."Prod. Order No." := ProdOrderLine."Prod. Order No."; - ReqLine."Prod. Order Line No." := ProdOrderLine."Line No."; - ReqLine."Due Date" := ProdOrderRtngLine."Ending Date"; - ReqLine."Requester ID" := CopyStr(UserId(), 1, MaxStrLen(ReqLine."Requester ID")); + RequisitionLine."Qty. per Unit of Measure" := 0; + RequisitionLine."Quantity (Base)" := 0; + RequisitionLine."Qty. Rounding Precision" := ProdOrderLine."Qty. Rounding Precision"; + RequisitionLine."Qty. Rounding Precision (Base)" := ProdOrderLine."Qty. Rounding Precision (Base)"; + RequisitionLine."Prod. Order No." := ProdOrderLine."Prod. Order No."; + RequisitionLine."Prod. Order Line No." := ProdOrderLine."Line No."; + RequisitionLine."Due Date" := ProdOrderRtngLine."Ending Date"; + RequisitionLine."Requester ID" := CopyStr(UserId(), 1, MaxStrLen(RequisitionLine."Requester ID")); if WorkCenter."Location Code" <> '' then begin - ReqLine."Location Code" := WorkCenter."Location Code"; - ReqLine."Bin Code" := WorkCenter."Open Shop Floor Bin Code"; + RequisitionLine."Location Code" := WorkCenter."Location Code"; + RequisitionLine."Bin Code" := WorkCenter."Open Shop Floor Bin Code"; end else begin - ReqLine."Location Code" := ProdOrderLine."Location Code"; - ReqLine."Bin Code" := ProdOrderLine."Bin Code"; + RequisitionLine."Location Code" := ProdOrderLine."Location Code"; + RequisitionLine."Bin Code" := ProdOrderLine."Bin Code"; end; - ReqLine."Routing Reference No." := ProdOrderRtngLine."Routing Reference No."; - ReqLine."Routing No." := ProdOrderRtngLine."Routing No."; - ReqLine."Operation No." := ProdOrderRtngLine."Operation No."; - ReqLine."Work Center No." := ProdOrderRtngLine."Work Center No."; - ReqLine."Variant Code" := ProdOrderLine."Variant Code"; + RequisitionLine."Routing Reference No." := ProdOrderRtngLine."Routing Reference No."; + RequisitionLine."Routing No." := ProdOrderRtngLine."Routing No."; + RequisitionLine."Operation No." := ProdOrderRtngLine."Operation No."; + RequisitionLine."Work Center No." := ProdOrderRtngLine."Work Center No."; + RequisitionLine."Variant Code" := ProdOrderLine."Variant Code"; - ReqLine.Validate("Vendor No.", WorkCenter."Subcontractor No."); + RequisitionLine.Validate("Vendor No.", WorkCenter."Subcontractor No."); - ReqLine.Description := ProdOrderRtngLine.Description; - ReqLine."Description 2" := ''; - SetVendorItemNo(ReqLine); + RequisitionLine.Description := ProdOrderRtngLine.Description; + RequisitionLine."Description 2" := ''; + SetVendorItemNo(RequisitionLine); - if PurchLineExists(PurchLine, ProdOrderLine, ProdOrderRtngLine) then begin - ReqLine.Validate(Quantity, ReqLine.Quantity + PurchLine."Outstanding Quantity"); - ReqLine."Quantity (Base)" := 0; - ReqLine."Replenishment System" := "Replenishment System"::Purchase; + if PurchLineExists(PurchaseLine, ProdOrderLine, ProdOrderRtngLine) then begin + RequisitionLine.Validate(Quantity, RequisitionLine.Quantity + PurchaseLine."Outstanding Quantity"); + RequisitionLine."Quantity (Base)" := 0; + RequisitionLine."Replenishment System" := "Replenishment System"::Purchase; - ReqLine."Ref. Order No." := PurchLine."Document No."; - ReqLine."Ref. Order Type" := ReqLine."Ref. Order Type"::Purchase; - ReqLine."Ref. Line No." := PurchLine."Line No."; + RequisitionLine."Ref. Order No." := PurchaseLine."Document No."; + RequisitionLine."Ref. Order Type" := RequisitionLine."Ref. Order Type"::Purchase; + RequisitionLine."Ref. Line No." := PurchaseLine."Line No."; - if PurchLine."Expected Receipt Date" = ReqLine."Due Date" then - ReqLine."Action Message" := "Action Message Type"::"Change Qty." + if PurchaseLine."Expected Receipt Date" = RequisitionLine."Due Date" then + RequisitionLine."Action Message" := "Action Message Type"::"Change Qty." else - ReqLine."Action Message" := "Action Message Type"::"Resched. & Chg. Qty."; - ReqLine."Accept Action Message" := true; + RequisitionLine."Action Message" := "Action Message Type"::"Resched. & Chg. Qty."; + RequisitionLine."Accept Action Message" := true; end else begin - ReqLine."Replenishment System" := "Replenishment System"::"Prod. Order"; - ReqLine."Ref. Order No." := ProdOrderLine."Prod. Order No."; - ReqLine."Ref. Order Type" := ReqLine."Ref. Order Type"::"Prod. Order"; - ReqLine."Ref. Order Status" := ProdOrderLine.Status; - ReqLine."Ref. Line No." := ProdOrderLine."Line No."; - ReqLine."Action Message" := "Action Message Type"::New; - ReqLine."Accept Action Message" := true; + RequisitionLine."Replenishment System" := "Replenishment System"::"Prod. Order"; + RequisitionLine."Ref. Order No." := ProdOrderLine."Prod. Order No."; + RequisitionLine."Ref. Order Type" := RequisitionLine."Ref. Order Type"::"Prod. Order"; + RequisitionLine."Ref. Order Status" := ProdOrderLine.Status; + RequisitionLine."Ref. Line No." := ProdOrderLine."Line No."; + RequisitionLine."Action Message" := "Action Message Type"::New; + RequisitionLine."Accept Action Message" := true; end; - if ReqLine."Ref. Order No." <> '' then - ReqLine.GetDimFromRefOrderLine(true); + if RequisitionLine."Ref. Order No." <> '' then + RequisitionLine.GetDimFromRefOrderLine(true); - ReqLine.Insert(); + RequisitionLine.Insert(); end; local procedure SetVendorItemNo(var ReqLine: Record "Requisition Line") diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderRtng.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderRtng.PageExt.al index cd0d90878d..1e3cfbecbc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderRtng.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcProdOrderRtng.PageExt.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -51,17 +51,17 @@ pageextension 99001503 "Subc. Prod. Order Rtng." extends "Prod. Order Routing" ToolTip = 'Create Purchase Orders for Subcontracting directly from the Production Routing Line.'; trigger OnAction() var - ProdOrderRtngLine: Record "Prod. Order Routing Line"; + ProdOrderRoutingLine: Record "Prod. Order Routing Line"; PurchaseLine: Record "Purchase Line"; - SubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; NoOfCreatedPurchOrder: Integer; NoPurchOrderCreatedMsg: Label 'No subcontracting order was created for the selected operations in production order %1. Please check whether the operation or operations have already been completed.', Comment = '%1=Production Order No.'; begin - CurrPage.SetSelectionFilter(ProdOrderRtngLine); - ProdOrderRtngLine.FindSet(); + CurrPage.SetSelectionFilter(ProdOrderRoutingLine); + ProdOrderRoutingLine.FindSet(); repeat - NoOfCreatedPurchOrder += SubcontractingMgmt.CreateSubcontractingPurchaseOrderFromRoutingLine(ProdOrderRtngLine); - until ProdOrderRtngLine.Next() = 0; + NoOfCreatedPurchOrder += SubcontractingManagement.CreateSubcontractingPurchaseOrderFromRoutingLine(ProdOrderRoutingLine); + until ProdOrderRoutingLine.Next() = 0; if NoOfCreatedPurchOrder = 0 then begin PurchaseLine.SetCurrentKey("Document Type", Type, "Prod. Order No."); @@ -71,13 +71,13 @@ pageextension 99001503 "Subc. Prod. Order Rtng." extends "Prod. Order Routing" PurchaseLine.SetRange("Routing No.", Rec."Routing No."); PurchaseLine.SetRange("Operation No.", Rec."Operation No."); if PurchaseLine.IsEmpty() then - Message(NoPurchOrderCreatedMsg, ProdOrderRtngLine."Prod. Order No.") + Message(NoPurchOrderCreatedMsg, ProdOrderRoutingLine."Prod. Order No.") end else begin if NoOfCreatedPurchOrder = 1 then begin - SubcontractingMgmt.ClearOperationNoForCreatedPurchaseOrder(); - SubcontractingMgmt.SetOperationNoForCreatedPurchaseOrder(Rec."Operation No."); + SubcontractingManagement.ClearOperationNoForCreatedPurchaseOrder(); + SubcontractingManagement.SetOperationNoForCreatedPurchaseOrder(Rec."Operation No."); end; - SubcontractingMgmt.ShowCreatedPurchaseOrder(Rec."Prod. Order No.", NoOfCreatedPurchOrder); + SubcontractingManagement.ShowCreatedPurchaseOrder(Rec."Prod. Order No.", NoOfCreatedPurchOrder); end; end; } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcWorkCenterList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcWorkCenterList.PageExt.al index f934a25e16..efc02b0fca 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcWorkCenterList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Manufacturing/SubcWorkCenterList.PageExt.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -24,13 +24,13 @@ pageextension 99001507 "Subc. Work Center List" extends "Work Center List" ToolTip = 'Set up different prices for the work center and vendor in subcontracting.'; trigger OnAction() var - SubcontractorPrices: Record "Subcontractor Price"; - SubcPriceForm: Page "Subcontractor Prices"; + SubcontractorPrice: Record "Subcontractor Price"; + SubcontractorPrices: Page "Subcontractor Prices"; begin if Rec."Subcontractor No." <> '' then begin - SubcontractorPrices.SetRange("Work Center No.", Rec."No."); - SubcPriceForm.SetTableView(SubcontractorPrices); - SubcPriceForm.RunModal(); + SubcontractorPrice.SetRange("Work Center No.", Rec."No."); + SubcontractorPrices.SetTableView(SubcontractorPrice); + SubcontractorPrices.RunModal(); end; end; } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcItemCard.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcItemCard.PageExt.al index 5685abca7a..8ee8bb4ba6 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcItemCard.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcItemCard.PageExt.al @@ -30,12 +30,12 @@ pageextension 99001518 "Subc. Item Card" extends "Item Card" ToolTip = 'Create Production BOM and/or Routing BOM with purchase provision options.'; trigger OnAction() var - CreateProdRtngExt: Codeunit "Subc. Create Prod. Rtng. Ext."; + SubcCreateProdRtngExt: Codeunit "Subc. Create Prod. Rtng. Ext."; begin Rec.SetRecFilter(); - BindSubscription(CreateProdRtngExt); + BindSubscription(SubcCreateProdRtngExt); Report.Run(Report::"Subc. Create Prod. Routing", true, true, Rec); - UnbindSubscription(CreateProdRtngExt); + UnbindSubscription(SubcCreateProdRtngExt); end; } } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcItemChargeAssPurch.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcItemChargeAssPurch.PageExt.al index f7e36b983c..f13675f85b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcItemChargeAssPurch.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/MasterData/SubcItemChargeAssPurch.PageExt.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -33,26 +33,26 @@ pageextension 99001522 "Subc. ItemChargeAss.(Purch)" extends "Item Charge Assign } } var - SubManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; GetReceiptLinesSubcontractingVisible: Boolean; local procedure OpenPurchaseReceiptLinesSubcontracting() var - ItemChargeAssgntPurch: Record "Item Charge Assignment (Purch)"; + ItemChargeAssignmentPurch: Record "Item Charge Assignment (Purch)"; PurchReceiptLines: Page "Purch. Receipt Lines"; begin PurchLine2.TestField("Qty. to Invoice"); - ItemChargeAssgntPurch.SetRange("Document Type", Rec."Document Type"); - ItemChargeAssgntPurch.SetRange("Document No.", Rec."Document No."); - ItemChargeAssgntPurch.SetRange("Document Line No.", Rec."Document Line No."); + ItemChargeAssignmentPurch.SetRange("Document Type", Rec."Document Type"); + ItemChargeAssignmentPurch.SetRange("Document No.", Rec."Document No."); + ItemChargeAssignmentPurch.SetRange("Document Line No.", Rec."Document Line No."); PurchRcptLine.SetFilter("Prod. Order No.", '<>%1', ''); PurchRcptLine.SetFilter("Routing No.", '<>%1', ''); PurchRcptLine.SetFilter("Operation No.", '<>%1', ''); PurchReceiptLines.SetTableView(PurchRcptLine); - if ItemChargeAssgntPurch.FindLast() then - PurchReceiptLines.Initialize(ItemChargeAssgntPurch, PurchLine2."Unit Cost") + if ItemChargeAssignmentPurch.FindLast() then + PurchReceiptLines.Initialize(ItemChargeAssignmentPurch, PurchLine2."Unit Cost") else PurchReceiptLines.Initialize(Rec, PurchLine2."Unit Cost"); PurchReceiptLines.LookupMode(true); @@ -64,6 +64,6 @@ pageextension 99001522 "Subc. ItemChargeAss.(Purch)" extends "Item Charge Assign trigger OnOpenPage() begin - GetReceiptLinesSubcontractingVisible := SubManagementSetup.ItemChargeToRcptSubReferenceEnabled(); + GetReceiptLinesSubcontractingVisible := SubcManagementSetup.ItemChargeToRcptSubReferenceEnabled(); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPOSubform.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPOSubform.PageExt.al index 76c8d09dbc..c9e5e8c1b0 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPOSubform.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPOSubform.PageExt.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -74,7 +74,7 @@ pageextension 99001524 "Subc. PO Subform" extends "Purchase Order Subform" ToolTip = 'Specifies the depended Transfer Order of this Subcontracting Purchase Order.'; trigger OnAction() begin - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); end; } action("Return Transfer Order") @@ -85,24 +85,24 @@ pageextension 99001524 "Subc. PO Subform" extends "Purchase Order Subform" ToolTip = 'Specifies the depended Return Transfer Order of this Subcontracting Purchase Order.'; trigger OnAction() begin - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); end; } } } } var - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; local procedure CreateProductionOrder(CreatingCodeunitID: Integer; ShowCreatedDocument: Boolean) var ErrorMessageHandler: Codeunit "Error Message Handler"; - ErrorMessageMgt: Codeunit "Error Message Management"; + ErrorMessageManagement: Codeunit "Error Message Management"; InstructionMgt: Codeunit "Instruction Mgt."; - NotificationMgt: Codeunit "Subc. Notification Mgmt."; + SubcNotificationMgmt: Codeunit "Subc. Notification Mgmt."; ProdOrderCreated: Boolean; begin - ErrorMessageMgt.Activate(ErrorMessageHandler); + ErrorMessageManagement.Activate(ErrorMessageHandler); Commit(); // Used for following call of codeunit run ProdOrderCreated := Codeunit.Run(CreatingCodeunitID, Rec); @@ -112,7 +112,7 @@ pageextension 99001524 "Subc. PO Subform" extends "Purchase Order Subform" if ProdOrderCreated then begin if ShowCreatedDocument then - if InstructionMgt.IsEnabled(NotificationMgt.ShowCreatedProductionOrderConfirmationMessageCode()) then + if InstructionMgt.IsEnabled(SubcNotificationMgmt.ShowCreatedProductionOrderConfirmationMessageCode()) then ShowCreatedProdOrderConfirmationMessage() end else ErrorMessageHandler.ShowErrors(); @@ -120,32 +120,32 @@ pageextension 99001524 "Subc. PO Subform" extends "Purchase Order Subform" local procedure ShowCreatedProdOrderConfirmationMessage() var - ProdOrder: Record "Production Order"; + ProductionOrder: Record "Production Order"; InstructionMgt: Codeunit "Instruction Mgt."; PageManagement: Codeunit "Page Management"; - NotificationMgt: Codeunit "Subc. Notification Mgmt."; + SubcNotificationMgmt: Codeunit "Subc. Notification Mgmt."; OpenCreatedTransferOrderQst: Label 'The production order %1 was created from the current purchase order.\\Would you like to open the production order?', Comment = '%1=Production Order No.'; begin - ProdOrder.SetRange(Status, "Production Order Status"::Released); - ProdOrder.SetRange("No.", Rec."Prod. Order No."); - if ProdOrder.FindFirst() then - if InstructionMgt.ShowConfirm(StrSubstNo(OpenCreatedTransferOrderQst, ProdOrder."No."), - NotificationMgt.ShowCreatedProductionOrderConfirmationMessageCode()) then - PageManagement.PageRun(ProdOrder); + ProductionOrder.SetRange(Status, "Production Order Status"::Released); + ProductionOrder.SetRange("No.", Rec."Prod. Order No."); + if ProductionOrder.FindFirst() then + if InstructionMgt.ShowConfirm(StrSubstNo(OpenCreatedTransferOrderQst, ProductionOrder."No."), + SubcNotificationMgmt.ShowCreatedProductionOrderConfirmationMessageCode()) then + PageManagement.PageRun(ProductionOrder); end; local procedure ShowProductionOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrder(RecRelatedVariant); end; local procedure ShowProductionOrderComponents(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); end; local procedure ShowProductionOrderRouting(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; } \ No newline at end of file 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 1f46a1143b..51dfea2796 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -46,11 +46,11 @@ pageextension 99001523 "Subc. Purch. Order" extends "Purchase Order" trigger OnAction() var - PurchHeader: Record "Purchase Header"; + PurchaseHeader: Record "Purchase Header"; begin - PurchHeader := Rec; - PurchHeader.SetRecFilter(); - Report.Run(Report::"Subc. Create Transf. Order", false, false, PurchHeader); + PurchaseHeader := Rec; + PurchaseHeader.SetRecFilter(); + Report.Run(Report::"Subc. Create Transf. Order", false, false, PurchaseHeader); end; } action(CreateReturnFromSubcontractor) @@ -62,11 +62,11 @@ pageextension 99001523 "Subc. Purch. Order" extends "Purchase Order" trigger OnAction() var - PurchHeader: Record "Purchase Header"; + PurchaseHeader: Record "Purchase Header"; begin - PurchHeader := Rec; - PurchHeader.SetRecFilter(); - Report.Run(Report::"Subc. Create SubCReturnOrder", false, false, PurchHeader); + PurchaseHeader := Rec; + PurchaseHeader.SetRecFilter(); + Report.Run(Report::"Subc. Create SubCReturnOrder", false, false, PurchaseHeader); end; } action(PrintSubcDispatchingList) @@ -78,11 +78,11 @@ pageextension 99001523 "Subc. Purch. Order" extends "Purchase Order" trigger OnAction() var - PurchHeader: Record "Purchase Header"; + PurchaseHeader: Record "Purchase Header"; begin - PurchHeader := Rec; - PurchHeader.SetRecFilter(); - Report.Run(Report::"Subc. Dispatching List", true, false, PurchHeader); + PurchaseHeader := Rec; + PurchaseHeader.SetRecFilter(); + Report.Run(Report::"Subc. Dispatching List", true, false, PurchaseHeader); end; } } @@ -102,11 +102,11 @@ pageextension 99001523 "Subc. Purch. Order" extends "Purchase Order" local procedure SubcontractingInLines(): Boolean var - PurchLine: Record "Purchase Line"; + PurchaseLine: Record "Purchase Line"; begin - PurchLine.SetRange("Document Type", Rec."Document Type"); - PurchLine.SetRange("Document No.", Rec."No."); - PurchLine.SetFilter("Work Center No.", '<>%1', ''); - exit(not PurchLine.IsEmpty()); + PurchaseLine.SetRange("Document Type", Rec."Document Type"); + PurchaseLine.SetRange("Document No.", Rec."No."); + PurchaseLine.SetFilter("Work Center No.", '<>%1', ''); + exit(not PurchaseLine.IsEmpty()); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPurchOrderList.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPurchOrderList.PageExt.al index dd6d0f150b..c695465f64 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPurchOrderList.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Purchase/SubcPurchOrderList.PageExt.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -32,11 +32,11 @@ pageextension 99001525 "Subc. PurchOrderList" extends "Purchase Order List" trigger OnAction() var - PurchHeader: Record "Purchase Header"; + PurchaseHeader: Record "Purchase Header"; begin - PurchHeader := Rec; - PurchHeader.SetRecFilter(); - Report.Run(Report::"Subc. Create Transf. Order", false, false, PurchHeader); + PurchaseHeader := Rec; + PurchaseHeader.SetRecFilter(); + Report.Run(Report::"Subc. Create Transf. Order", false, false, PurchaseHeader); end; } action(CreateReturnFromSubcontractor) @@ -48,11 +48,11 @@ pageextension 99001525 "Subc. PurchOrderList" extends "Purchase Order List" trigger OnAction() var - PurchHeader: Record "Purchase Header"; + PurchaseHeader: Record "Purchase Header"; begin - PurchHeader := Rec; - PurchHeader.SetRecFilter(); - Report.Run(Report::"Subc. Create SubCReturnOrder", false, false, PurchHeader); + PurchaseHeader := Rec; + PurchaseHeader.SetRecFilter(); + Report.Run(Report::"Subc. Create SubCReturnOrder", false, false, PurchaseHeader); end; } action(PrintSubcDispatchingList) @@ -64,11 +64,11 @@ pageextension 99001525 "Subc. PurchOrderList" extends "Purchase Order List" trigger OnAction() var - PurchHeader: Record "Purchase Header"; + PurchaseHeader: Record "Purchase Header"; begin - PurchHeader := Rec; - PurchHeader.SetRecFilter(); - Report.Run(Report::"Subc. Dispatching List", true, false, PurchHeader); + PurchaseHeader := Rec; + PurchaseHeader.SetRecFilter(); + Report.Run(Report::"Subc. Dispatching List", true, false, PurchaseHeader); end; } } 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 f4e1a9e8de..1de9f6e4de 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -56,8 +56,8 @@ pageextension 99001502 "Subc. CapLEntries" extends "Capacity Ledger Entries" } local procedure ShowPurchaseOrder(RecRelatedVariant: Variant) var - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; begin - SubcontractingFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); end; } \ No newline at end of file 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 dea05fb61f..658d41fa4f 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -93,25 +93,25 @@ pageextension 99001501 "Subc. ILEntries" extends "Item Ledger Entries" } } var - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; local procedure ShowProductionOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrder(RecRelatedVariant); end; local procedure ShowProductionOrderRouting(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; local procedure ShowProductionOrderComponents(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); end; local procedure ShowPurchaseOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdDirectTransfSub.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdDirectTransfSub.PageExt.al index ffe525aad9..63e1fccdd9 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdDirectTransfSub.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Transfer/SubcPstdDirectTransfSub.PageExt.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -123,25 +123,25 @@ pageextension 99001532 "Subc. PstdDirectTransfSub" extends "Posted Direct Transf } } var - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; local procedure ShowProductionOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrder(RecRelatedVariant); end; local procedure ShowProductionOrderRouting(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; local procedure ShowProductionOrderComponents(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); end; local procedure ShowPurchaseOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); end; } \ No newline at end of file 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 c0522a8471..e0ca2cf17f 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -123,25 +123,25 @@ pageextension 99001529 "Subc. Trans. Order Sub." extends "Transfer Order Subform } } var - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; local procedure ShowProductionOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrder(RecRelatedVariant); end; local procedure ShowProductionOrderRouting(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant) + SubcFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant) end; local procedure ShowProductionOrderComponents(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); end; local procedure ShowPurchaseOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Warehouse/SubcWhseRcptLinesExt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Warehouse/SubcWhseRcptLinesExt.PageExt.al index 227199ebfe..0512c123f5 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Warehouse/SubcWhseRcptLinesExt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Warehouse/SubcWhseRcptLinesExt.PageExt.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -25,8 +25,8 @@ pageextension 99001534 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - ShowProductionOrder(PurchLine); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + ShowProductionOrder(PurchaseLine); end; } action("Production Order Routing") @@ -38,8 +38,8 @@ pageextension 99001534 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - ShowProductionOrderRouting(PurchLine); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + ShowProductionOrderRouting(PurchaseLine); end; } action("Production Order Components") @@ -51,8 +51,8 @@ pageextension 99001534 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - ShowProductionOrderComponents(PurchLine); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + ShowProductionOrderComponents(PurchaseLine); end; } action("Transfer Order") @@ -64,8 +64,8 @@ pageextension 99001534 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); end; } action("Return Transfer Order") @@ -77,29 +77,29 @@ pageextension 99001534 "Subc. Whse Rcpt Lines Ext." extends "Whse. Receipt Lines trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); end; } } } } var - PurchLine: Record "Purchase Line"; - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + PurchaseLine: Record "Purchase Line"; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; local procedure ShowProductionOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrder(RecRelatedVariant); end; local procedure ShowProductionOrderComponents(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); end; local procedure ShowProductionOrderRouting(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Warehouse/SubcWhseRcptSubformExt.PageExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Warehouse/SubcWhseRcptSubformExt.PageExt.al index 27c2a10d9e..5206f13bdc 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Warehouse/SubcWhseRcptSubformExt.PageExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pageextensions/Warehouse/SubcWhseRcptSubformExt.PageExt.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -25,8 +25,8 @@ pageextension 99001533 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Sub trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - ShowProductionOrder(PurchLine); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + ShowProductionOrder(PurchaseLine); end; } action("Production Order Routing") @@ -38,8 +38,8 @@ pageextension 99001533 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Sub trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - ShowProductionOrderRouting(PurchLine); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + ShowProductionOrderRouting(PurchaseLine); end; } action("Production Order Components") @@ -51,8 +51,8 @@ pageextension 99001533 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Sub trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - ShowProductionOrderComponents(PurchLine); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + ShowProductionOrderComponents(PurchaseLine); end; } action("Transfer Order") @@ -64,8 +64,8 @@ pageextension 99001533 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Sub trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); end; } action("Return Transfer Order") @@ -77,29 +77,29 @@ pageextension 99001533 "Subc. Whse Rcpt Subform Ext." extends "Whse. Receipt Sub trigger OnAction() begin if Rec."Source Type" = Database::"Purchase Line" then - if PurchLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); + if PurchaseLine.Get(Rec."Source Subtype", Rec."Source No.", Rec."Source Line No.") then + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); end; } } } } var - PurchLine: Record "Purchase Line"; - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + PurchaseLine: Record "Purchase Line"; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; local procedure ShowProductionOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrder(RecRelatedVariant); end; local procedure ShowProductionOrderComponents(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); end; local procedure ShowProductionOrderRouting(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; } \ No newline at end of file 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 2a05cd30cb..15603fd1a0 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -59,7 +59,7 @@ page 99001503 "Subc. Prod. Order Components" AutoFormatType = 0; ToolTip = 'Specifies the difference between the finished and planned quantities, or zero if the finished quantity is greater than the remaining quantity.'; } - field("OutQtyOnPurch Order (Base)"; FactBoxmanagement.GetPurchOrderOutstandingQtyBaseFromProdOrderComp(Rec)) + field("OutQtyOnPurch Order (Base)"; SubcFactboxMgmt.GetPurchOrderOutstandingQtyBaseFromProdOrderComp(Rec)) { AutoFormatType = 0; Caption = 'Outstanding Qty (Base)'; @@ -68,10 +68,10 @@ page 99001503 "Subc. Prod. Order Components" ToolTip = 'Specifies the outstanding item amount that is on the subcontracting order.'; trigger OnDrillDown() begin - FactBoxmanagement.ShowPurchOrderOutstandingQtyBaseFromProdOrderComp(Rec); + SubcFactboxMgmt.ShowPurchOrderOutstandingQtyBaseFromProdOrderComp(Rec); end; } - field("ReceivedQtyOnPurch Order (Base)"; FactBoxmanagement.GetPurchOrderQtyReceivedBaseFromProdOrderComp(Rec)) + field("ReceivedQtyOnPurch Order (Base)"; SubcFactboxMgmt.GetPurchOrderQtyReceivedBaseFromProdOrderComp(Rec)) { AutoFormatType = 0; Caption = 'Qty. received (Base)'; @@ -80,7 +80,7 @@ page 99001503 "Subc. Prod. Order Components" ToolTip = 'Specifies the received item amount that is on the subcontracting order.'; trigger OnDrillDown() begin - FactBoxmanagement.ShowPurchOrderQtyReceivedBaseFromProdOrderComp(Rec); + SubcFactboxMgmt.ShowPurchOrderQtyReceivedBaseFromProdOrderComp(Rec); end; } field("Qty. on Transfer Order (Base)"; Rec."Qty. on Trans Order (Base)") @@ -105,7 +105,7 @@ page 99001503 "Subc. Prod. Order Components" { ToolTip = 'Specifies the item amount transferred to the subcontractor.'; } - field(ConsumedQty; FactBoxmanagement.GetConsumptionQtyFromProdOrderComponent(Rec)) + field(ConsumedQty; SubcFactboxMgmt.GetConsumptionQtyFromProdOrderComponent(Rec)) { AutoFormatType = 0; Caption = 'Consumed'; @@ -114,7 +114,7 @@ page 99001503 "Subc. Prod. Order Components" ToolTip = 'Specifies the consumed Quantity from assigned Components.'; trigger OnDrillDown() begin - FactBoxmanagement.ShowConsumptionQtyFromProdOrderComponent(Rec); + SubcFactboxMgmt.ShowConsumptionQtyFromProdOrderComponent(Rec); end; } field("Due Date"; Rec."Due Date") @@ -174,5 +174,5 @@ page 99001503 "Subc. Prod. Order Components" } var - FactBoxmanagement: Codeunit "Subc. Factbox Mgmt."; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcPurchaseLineFactbox.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcPurchaseLineFactbox.Page.al index ca5a4aaab9..03a1774b1a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcPurchaseLineFactbox.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcPurchaseLineFactbox.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -35,7 +35,7 @@ page 99001518 "Subc. Purchase Line Factbox" trigger OnDrillDown() var begin - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); end; } field(NoOfTransOrder; GetNoOfTransferOrders(Rec)) @@ -45,7 +45,7 @@ page 99001518 "Subc. Purchase Line Factbox" trigger OnDrillDown() var begin - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); end; } field(ShowReturnTransOrder; GetReturnTransferOrderNo(Rec)) @@ -55,7 +55,7 @@ page 99001518 "Subc. Purchase Line Factbox" trigger OnDrillDown() var begin - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); end; } field(ShowProdOrderRouting; GetNoOfProductionOrderRoutings(Rec)) @@ -79,7 +79,7 @@ page 99001518 "Subc. Purchase Line Factbox" ShowProductionOrderComponents(Rec); end; } - field(SubcontractingPrices; StrSubstNo(PlaceholderLbl, SubcontractingFactboxMgmt.CalcNoOfPurchasePrices(Rec))) + field(SubcontractingPrices; StrSubstNo(PlaceholderLbl, SubcFactboxMgmt.CalcNoOfPurchasePrices(Rec))) { Caption = 'Subcontractor Prices'; DrillDown = true; @@ -94,51 +94,51 @@ page 99001518 "Subc. Purchase Line Factbox" } } var - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; local procedure GetNoOfProductionComponents(RecRelatedVariant: Variant): Integer begin - exit(SubcontractingFactboxMgmt.CalcNoOfProductionOrderComponents(RecRelatedVariant)) + exit(SubcFactboxMgmt.CalcNoOfProductionOrderComponents(RecRelatedVariant)) end; local procedure GetNoOfProductionOrderRoutings(RecRelatedVariant: Variant): Integer begin - exit(SubcontractingFactboxMgmt.CalcNoOfProductionOrderRoutings(RecRelatedVariant)) + exit(SubcFactboxMgmt.CalcNoOfProductionOrderRoutings(RecRelatedVariant)) end; local procedure GetTransferOrderNo(RecRelatedVariant: Variant): Code[20] begin - exit(SubcontractingFactboxMgmt.GetTransferOrderNo(RecRelatedVariant)) + exit(SubcFactboxMgmt.GetTransferOrderNo(RecRelatedVariant)) end; local procedure GetReturnTransferOrderNo(RecRelatedVariant: Variant): Code[20] begin - exit(SubcontractingFactboxMgmt.GetReturnTransferOrderNo(RecRelatedVariant)) + exit(SubcFactboxMgmt.GetReturnTransferOrderNo(RecRelatedVariant)) end; local procedure ShowProductionOrderComponents(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); end; local procedure ShowSubcontractorPrices() begin - SubcontractingFactboxMgmt.ShowSubcontractorPrices(Rec); + SubcFactboxMgmt.ShowSubcontractorPrices(Rec); end; local procedure ShowProductionOrderRouting(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; local procedure ShowProductionOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrder(RecRelatedVariant); end; local procedure GetNoOfTransferOrders(RecRelatedVariant: Variant): Integer begin - exit(SubcontractingFactboxMgmt.GetNoOfTransferOrders(RecRelatedVariant)) + exit(SubcFactboxMgmt.GetNoOfTransferOrders(RecRelatedVariant)) end; var diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcRoutingInfoFactbox.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcRoutingInfoFactbox.Page.al index c4a2bd5613..92582ab07d 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcRoutingInfoFactbox.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcRoutingInfoFactbox.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -17,7 +17,7 @@ page 99001502 "Subc. Routing Info Factbox" { area(Content) { - field(ShowSubcontractor; SubcontractingFactboxMgmt.GetSubcontractorNo(Rec)) + field(ShowSubcontractor; SubcFactboxMgmt.GetSubcontractorNo(Rec)) { Caption = 'Subcontractor'; ToolTip = 'Specifies the assigned Subcontractor No. of this Prod. Order Routing Line.'; @@ -26,7 +26,7 @@ page 99001502 "Subc. Routing Info Factbox" ShowSubcontractorFromRouting(); end; } - field(ShowQtyInSubcontractingOrder; SubcontractingFactboxMgmt.GetPurchOrderQtyFromRoutingLine(Rec)) + field(ShowQtyInSubcontractingOrder; SubcFactboxMgmt.GetPurchOrderQtyFromRoutingLine(Rec)) { AutoFormatType = 0; Caption = 'Order Quantity'; @@ -37,7 +37,7 @@ page 99001502 "Subc. Routing Info Factbox" ShowPurchaseOrders(); end; } - field(ShowQtyShippedRequest; SubcontractingFactboxMgmt.GetPurchReceiptQtyFromRoutingLine(Rec)) + field(ShowQtyShippedRequest; SubcFactboxMgmt.GetPurchReceiptQtyFromRoutingLine(Rec)) { AutoFormatType = 0; Caption = 'Quantity received'; @@ -48,7 +48,7 @@ page 99001502 "Subc. Routing Info Factbox" ShowPurchaseReceipts(); end; } - field(ShowQtyInvoicedRequest; SubcontractingFactboxMgmt.GetPurchInvoicedQtyFromRoutingLine(Rec)) + field(ShowQtyInvoicedRequest; SubcFactboxMgmt.GetPurchInvoicedQtyFromRoutingLine(Rec)) { AutoFormatType = 0; Caption = 'Quantity invoiced'; @@ -59,7 +59,7 @@ page 99001502 "Subc. Routing Info Factbox" ShowPurchaseInvoices(); end; } - field(ShowNoOfTransferOrdersFromProdOrderComp; SubcontractingFactboxMgmt.GetNoOfTransferLinesFromRouting(Rec)) + field(ShowNoOfTransferOrdersFromProdOrderComp; SubcFactboxMgmt.GetNoOfTransferLinesFromRouting(Rec)) { AutoFormatType = 0; Caption = 'Transfer Order Lines'; @@ -68,10 +68,10 @@ page 99001502 "Subc. Routing Info Factbox" trigger OnDrillDown() var begin - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, false); end; } - field(ShowNoOfReturnTransferOrdersFromProdOrderComp; SubcontractingFactboxMgmt.GetNoOfReturnTransferLinesFromRouting(Rec)) + field(ShowNoOfReturnTransferOrdersFromProdOrderComp; SubcFactboxMgmt.GetNoOfReturnTransferLinesFromRouting(Rec)) { AutoFormatType = 0; Caption = 'Return Transfer Order Lines'; @@ -80,10 +80,10 @@ page 99001502 "Subc. Routing Info Factbox" trigger OnDrillDown() var begin - SubcontractingFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); + SubcFactboxMgmt.ShowTransferOrdersAndReturnOrder(Rec, true, true); end; } - field(ShowNoOfLinkedComp; SubcontractingFactboxMgmt.GetNoOfLinkedComponentsFromRouting(Rec)) + field(ShowNoOfLinkedComp; SubcFactboxMgmt.GetNoOfLinkedComponentsFromRouting(Rec)) { AutoFormatType = 0; Caption = 'Components'; @@ -99,29 +99,29 @@ page 99001502 "Subc. Routing Info Factbox" } local procedure ShowSubcontractorFromRouting() begin - SubcontractingFactboxMgmt.ShowSubcontractor(Rec); + SubcFactboxMgmt.ShowSubcontractor(Rec); end; local procedure ShowPurchaseOrders() begin - SubcontractingFactboxMgmt.ShowPurchaseOrderLinesFromRouting(Rec); + SubcFactboxMgmt.ShowPurchaseOrderLinesFromRouting(Rec); end; local procedure ShowPurchaseReceipts() begin - SubcontractingFactboxMgmt.ShowPurchaseReceiptLinesFromRouting(Rec); + SubcFactboxMgmt.ShowPurchaseReceiptLinesFromRouting(Rec); end; local procedure ShowPurchaseInvoices() begin - SubcontractingFactboxMgmt.ShowPurchaseInvoiceLinesFromRouting(Rec); + SubcFactboxMgmt.ShowPurchaseInvoiceLinesFromRouting(Rec); end; local procedure ShowProdOrderComponents() begin - SubcontractingFactboxMgmt.ShowProdOrderComponents(Rec); + SubcFactboxMgmt.ShowProdOrderComponents(Rec); end; var - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; } \ No newline at end of file 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 5f50a6a1ae..a7d0a201a1 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -62,35 +62,35 @@ page 99001501 "Subc. Transfer Line Factbox" } } var - SubcontractingFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; + SubcFactboxMgmt: Codeunit "Subc. Factbox Mgmt."; local procedure GetNoOfProductionComponents(RecRelatedVariant: Variant): Integer begin - exit(SubcontractingFactboxMgmt.CalcNoOfProductionOrderComponents(RecRelatedVariant)) + exit(SubcFactboxMgmt.CalcNoOfProductionOrderComponents(RecRelatedVariant)) end; local procedure GetNoOfProductionOrderRoutings(RecRelatedVariant: Variant): Integer begin - exit(SubcontractingFactboxMgmt.CalcNoOfProductionOrderRoutings(RecRelatedVariant)) + exit(SubcFactboxMgmt.CalcNoOfProductionOrderRoutings(RecRelatedVariant)) end; local procedure ShowProductionOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrder(RecRelatedVariant); end; local procedure ShowProductionOrderRouting(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderRouting(RecRelatedVariant); end; local procedure ShowProductionOrderComponents(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); + SubcFactboxMgmt.ShowProductionOrderComponents(RecRelatedVariant); end; local procedure ShowPurchaseOrder(RecRelatedVariant: Variant) begin - SubcontractingFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); + SubcFactboxMgmt.ShowPurchaseOrder(RecRelatedVariant); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcontractorPrices.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcontractorPrices.Page.al index b541c381fb..5f631bf121 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcontractorPrices.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Pages/SubcontractorPrices.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -35,11 +35,11 @@ page 99001500 "Subcontractor Prices" trigger OnLookup(var Text: Text): Boolean var - VendList: Page "Vendor List"; + VendorList: Page "Vendor List"; begin - VendList.LookupMode := true; - if VendList.RunModal() = Action::LookupOK then - Text := VendList.GetSelectionFilter() + VendorList.LookupMode := true; + if VendorList.RunModal() = Action::LookupOK then + Text := VendorList.GetSelectionFilter() else exit(false); @@ -247,7 +247,7 @@ page 99001500 "Subcontractor Prices" end; var - Vend: Record Vendor; + Vendor: Record Vendor; IsLookupMode: Boolean; MultipleVendorsSelectedErr: Label 'More than one vendor uses these subcontractor prices. To copy prices, the Vendor No. Filter field must contain one vendor only.'; MultipleWorkCenterSelectedErr: Label 'More than one work center uses these subcontractor prices. To copy prices, the Vendor No. Filter field must contain one vendor only.'; @@ -307,7 +307,7 @@ page 99001500 "Subcontractor Prices" local procedure GetCaption(): Text var - ObjTransl: Record "Object Translation"; + ObjectTranslation: Record "Object Translation"; PlaceholderLbl: Label '%1 %2 %3 %4 ', Locked = true; Description: Text[100]; SourceTableName: Text[250]; @@ -315,12 +315,12 @@ page 99001500 "Subcontractor Prices" GetRecFilters(); if ItemNoFilter <> '' then - SourceTableName := ObjTransl.TranslateObject(ObjTransl."Object Type"::Table, 27) + SourceTableName := ObjectTranslation.TranslateObject(ObjectTranslation."Object Type"::Table, 27) else SourceTableName := ''; - if Vend.Get(CopyStr(VendNoFilter, 1, MaxStrLen(Vend."No."))) then - Description := Vend.Name; + if Vendor.Get(CopyStr(VendNoFilter, 1, MaxStrLen(Vendor."No."))) then + Description := Vendor.Name; exit(StrSubstNo(PlaceholderLbl, VendNoFilter, Description, SourceTableName, ItemNoFilter)); end; @@ -378,14 +378,14 @@ page 99001500 "Subcontractor Prices" var SelectedSubcontractorPrice: Record "Subcontractor Price"; SubcontractorPrice: Record "Subcontractor Price"; - Vendor: Record Vendor; + ToVendor: Record Vendor; WorkCenter: Record "Work Center"; SubcontractorPrices: Page "Subcontractor Prices"; CopyToVendorNo: Code[20]; CopyToWorkCenterNo: Code[20]; begin - Vendor.SetFilter("No.", VendNoFilter); - if Vendor.Count() <> 1 then + ToVendor.SetFilter("No.", VendNoFilter); + if ToVendor.Count() <> 1 then Error(MultipleVendorsSelectedErr); CopyToVendorNo := CopyStr(VendNoFilter, 1, MaxStrLen(CopyToVendorNo)); 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 e6ac476e80..97c2e4de91 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -22,15 +22,15 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." TableNo = "Purchase Line"; var - SubManagementSetup: Record "Subc. Management Setup"; - TempDataInitializer: Codeunit "Subc. Temp Data Initializer"; - SubVersionSelectionMgmt: Codeunit "Subc. Version Mgmt."; + SubcManagementSetup: Record "Subc. Management Setup"; + SubcTempDataInitializer: Codeunit "Subc. Temp Data Initializer"; + SubcVersionMgmt: Codeunit "Subc. Version Mgmt."; BOMCreated, BOMVersionCreated : Boolean; HasSubManagementSetup: Boolean; ProdCompRoutingModified: Boolean; ProdOrderCompRoutingCreated: Boolean; RoutingCreated, RoutingVersionCreated : Boolean; - ApplyBomRtngToSource: Enum "Subc. RtngBOMSourceType"; + GlobalSubcRtngBOMSourceType: Enum "Subc. RtngBOMSourceType"; trigger OnRun() begin @@ -43,12 +43,12 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." local procedure CreateProductionOrderWithTemporaryData(var PurchLine: Record "Purchase Line") var Item: Record Item; - ScenarioType: Enum "Subc. Scenario Type"; + SubcScenarioType: Enum "Subc. Scenario Type"; begin ValidateAndPrepareCreation(PurchLine, Item); - ScenarioType := DetermineScenarioAndPrepareData(Item, PurchLine); + SubcScenarioType := DetermineScenarioAndPrepareData(Item, PurchLine); - if not ExecuteBOMRoutingWizardProcess(Item, ScenarioType) then + if not ExecuteBOMRoutingWizardProcess(Item, SubcScenarioType) then Error(''); TransferTemporaryDataToRealTables(PurchLine); @@ -57,39 +57,39 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// /// Determines the scenario type based on existing BOM and Routing data from best source /// - local procedure DetermineScenarioAndPrepareData(Item: Record Item; PurchLine: Record "Purchase Line") ScenarioType: Enum "Subc. Scenario Type" + local procedure DetermineScenarioAndPrepareData(Item: Record Item; PurchLine: Record "Purchase Line") SubcScenarioType: Enum "Subc. Scenario Type" var BOMNo, RoutingNo : Code[20]; - SourceType: Enum "Subc. RtngBOMSourceType"; + SubcRoutingBOMSourceType: Enum "Subc. RtngBOMSourceType"; begin - TempDataInitializer.InitializeTemporaryProdOrder(PurchLine); + SubcTempDataInitializer.InitializeTemporaryProdOrder(PurchLine); - GetBOMAndRoutingFromBestSource(Item, BOMNo, RoutingNo, SourceType); + GetBOMAndRoutingFromBestSource(Item, BOMNo, RoutingNo, SubcRoutingBOMSourceType); - TempDataInitializer.SetRtngBOMSourceType(SourceType); + SubcTempDataInitializer.SetRtngBOMSourceType(SubcRoutingBOMSourceType); - ScenarioType := GetScenarioTypeFromBOMRouting(BOMNo, RoutingNo); + SubcScenarioType := GetScenarioTypeFromBOMRouting(BOMNo, RoutingNo); PrepareBOMAndRoutingDataForScenario(BOMNo, RoutingNo); - exit(ScenarioType); + exit(SubcScenarioType); end; /// /// Gets BOM and routing from best source (Stockkeeping Unit or Item) /// - local procedure GetBOMAndRoutingFromBestSource(var Item: Record Item; var BOMNo: Code[20]; var RoutingNo: Code[20]; var SourceType: Enum "Subc. RtngBOMSourceType") + local procedure GetBOMAndRoutingFromBestSource(var Item: Record Item; var BOMNo: Code[20]; var RoutingNo: Code[20]; var SubcRtngBOMSourceType: Enum "Subc. RtngBOMSourceType") var LocationCode, VariantCode : Code[10]; begin Clear(BOMNo); Clear(RoutingNo); - SourceType := SourceType::Empty; + SubcRtngBOMSourceType := SubcRtngBOMSourceType::Empty; GetLocationAndVariantForStockkeepingUnit(LocationCode, VariantCode); if GetBOMAndRoutingFromStockkeepingUnit(Item."No.", VariantCode, LocationCode, BOMNo, RoutingNo) then begin - SourceType := SourceType::StockkeepingUnit; + SubcRtngBOMSourceType := SubcRtngBOMSourceType::StockkeepingUnit; exit; end; @@ -97,7 +97,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." RoutingNo := Item."Routing No."; if (BOMNo <> '') or (RoutingNo <> '') then - SourceType := SourceType::Item; + SubcRtngBOMSourceType := SubcRtngBOMSourceType::Item; end; /// @@ -122,15 +122,15 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure GetScenarioTypeFromBOMRouting(BOMNo: Code[20]; RoutingNo: Code[20]): Enum "Subc. Scenario Type" var - ScenarioType: Enum "Subc. Scenario Type"; + SubcScenarioType: Enum "Subc. Scenario Type"; begin if (BOMNo <> '') and (RoutingNo <> '') then - exit(ScenarioType::BothAvailable); + exit(SubcScenarioType::BothAvailable); if (BOMNo <> '') or (RoutingNo <> '') then - exit(ScenarioType::PartiallyAvailable); + exit(SubcScenarioType::PartiallyAvailable); - exit(ScenarioType::NothingAvailable); + exit(SubcScenarioType::NothingAvailable); end; /// @@ -150,41 +150,41 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." var BOMVersionCode, RoutingVersionCode : Code[20]; begin - TempDataInitializer.InitializeNewTemporaryBOMInformation(); + SubcTempDataInitializer.InitializeNewTemporaryBOMInformation(); if BOMNo <> '' then begin - BOMVersionCode := SubVersionSelectionMgmt.GetDefaultBOMVersion(BOMNo); - TempDataInitializer.LoadBOMLines(BOMNo, BOMVersionCode); + BOMVersionCode := SubcVersionMgmt.GetDefaultBOMVersion(BOMNo); + SubcTempDataInitializer.LoadBOMLines(BOMNo, BOMVersionCode); end; - TempDataInitializer.InitializeNewTemporaryRoutingInformation(); + SubcTempDataInitializer.InitializeNewTemporaryRoutingInformation(); if RoutingNo <> '' then begin - RoutingVersionCode := SubVersionSelectionMgmt.GetDefaultRoutingVersion(RoutingNo); - TempDataInitializer.LoadRoutingLines(RoutingNo, RoutingVersionCode); + RoutingVersionCode := SubcVersionMgmt.GetDefaultRoutingVersion(RoutingNo); + SubcTempDataInitializer.LoadRoutingLines(RoutingNo, RoutingVersionCode); end; end; /// /// Executes the BOM/Routing wizard process with user interaction /// - local procedure ExecuteBOMRoutingWizardProcess(Item: Record Item; ScenarioType: Enum "Subc. Scenario Type"): Boolean + local procedure ExecuteBOMRoutingWizardProcess(Item: Record Item; SubcScenarioType: Enum "Subc. Scenario Type"): Boolean begin - exit(RunBOMRoutingWizardWithUserInteraction(Item, ScenarioType)); + exit(RunBOMRoutingWizardWithUserInteraction(Item, SubcScenarioType)); end; /// /// Handles the wizard interaction with show/edit type determination /// - local procedure RunBOMRoutingWizardWithUserInteraction(Item: Record Item; ScenarioType: Enum "Subc. Scenario Type"): Boolean + local procedure RunBOMRoutingWizardWithUserInteraction(Item: Record Item; SubcScenarioType: Enum "Subc. Scenario Type"): Boolean var - SubTempProdOrdBind: Codeunit "Subc. TempProdOrdBind"; + SubcTempProdOrdBind: Codeunit "Subc. TempProdOrdBind"; BOMRoutingShowEditType: Enum "Subc. Show/Edit Type"; ProdCompRoutingShowEditType: Enum "Subc. Show/Edit Type"; begin - BindSubscription(SubTempProdOrdBind); - GetShowEditTypesForScenario(ScenarioType, BOMRoutingShowEditType, ProdCompRoutingShowEditType); + BindSubscription(SubcTempProdOrdBind); + GetShowEditTypesForScenario(SubcScenarioType, BOMRoutingShowEditType, ProdCompRoutingShowEditType); if ShouldSkipUserInteraction(BOMRoutingShowEditType, ProdCompRoutingShowEditType) then begin - TempDataInitializer.BuildTemporaryStructureFromBOMRouting(); + SubcTempDataInitializer.BuildTemporaryStructureFromBOMRouting(); exit(true); end; @@ -194,25 +194,25 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// /// Gets show/edit types for both BOM/Routing and Production Components/Routing in one call /// - local procedure GetShowEditTypesForScenario(ScenarioType: Enum "Subc. Scenario Type"; var BOMRoutingShowEditType: Enum "Subc. Show/Edit Type"; var ProdCompRoutingShowEditType: Enum "Subc. Show/Edit Type") + local procedure GetShowEditTypesForScenario(SubcScenarioType: Enum "Subc. Scenario Type"; var BOMRoutingShowEditType: Enum "Subc. Show/Edit Type"; var ProdCompRoutingShowEditType: Enum "Subc. Show/Edit Type") begin GetSubManagementSetupCached(); - case ScenarioType of - ScenarioType::BothAvailable: + case SubcScenarioType of + SubcScenarioType::BothAvailable: begin - BOMRoutingShowEditType := SubManagementSetup.ShowRtngBOMSelect_Both; - ProdCompRoutingShowEditType := SubManagementSetup.ShowProdRtngCompSelect_Both; + BOMRoutingShowEditType := SubcManagementSetup.ShowRtngBOMSelect_Both; + ProdCompRoutingShowEditType := SubcManagementSetup.ShowProdRtngCompSelect_Both; end; - ScenarioType::PartiallyAvailable: + SubcScenarioType::PartiallyAvailable: begin - BOMRoutingShowEditType := SubManagementSetup.ShowRtngBOMSelect_Partial; - ProdCompRoutingShowEditType := SubManagementSetup.ShowProdRtngCompSelect_Partial; + BOMRoutingShowEditType := SubcManagementSetup.ShowRtngBOMSelect_Partial; + ProdCompRoutingShowEditType := SubcManagementSetup.ShowProdRtngCompSelect_Partial; end; - ScenarioType::NothingAvailable: + SubcScenarioType::NothingAvailable: begin - BOMRoutingShowEditType := SubManagementSetup.ShowRtngBOMSelect_Nothing; - ProdCompRoutingShowEditType := SubManagementSetup.ShowProdRtngCompSelect_Nothing; + BOMRoutingShowEditType := SubcManagementSetup.ShowRtngBOMSelect_Nothing; + ProdCompRoutingShowEditType := SubcManagementSetup.ShowProdRtngCompSelect_Nothing; end end; end; @@ -231,13 +231,13 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure ExecuteWizardPageWithTemporaryData(Item: Record Item; BOMRoutingShowEditType: Enum "Subc. Show/Edit Type"; ProdCompRoutingShowEditType: Enum "Subc. Show/Edit Type"): Boolean var - PurchProvisionWizard: Page "Subc. PurchProvisionWizard"; + SubcPurchProvisionWizard: Page "Subc. PurchProvisionWizard"; begin - SetupWizardPageWithTemporaryData(PurchProvisionWizard, Item, BOMRoutingShowEditType, ProdCompRoutingShowEditType); - PurchProvisionWizard.RunModal(); + SetupWizardPageWithTemporaryData(SubcPurchProvisionWizard, Item, BOMRoutingShowEditType, ProdCompRoutingShowEditType); + SubcPurchProvisionWizard.RunModal(); - if PurchProvisionWizard.GetFinished() then begin - UpdateWizardResults(PurchProvisionWizard); + if SubcPurchProvisionWizard.GetFinished() then begin + UpdateWizardResults(SubcPurchProvisionWizard); exit(true); end; @@ -247,21 +247,21 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// /// Updates internal flags based on wizard results /// - local procedure UpdateWizardResults(var PurchProvisionWizard: Page "Subc. PurchProvisionWizard") + local procedure UpdateWizardResults(var SubcPurchProvisionWizard: Page "Subc. PurchProvisionWizard") begin - ProdCompRoutingModified := PurchProvisionWizard.GetApplyChangesComponents() or PurchProvisionWizard.GetApplyChangesProdRouting(); - ApplyBomRtngToSource := PurchProvisionWizard.GetApplyBomRtngToSource(); + ProdCompRoutingModified := SubcPurchProvisionWizard.GetApplyChangesComponents() or SubcPurchProvisionWizard.GetApplyChangesProdRouting(); + GlobalSubcRtngBOMSourceType := SubcPurchProvisionWizard.GetApplyBomRtngToSource(); end; /// /// Configures the wizard page with temporary data /// - local procedure SetupWizardPageWithTemporaryData(var PurchProvisionWizard: Page "Subc. PurchProvisionWizard"; Item: Record Item; BOMRoutingShowEditType: Enum "Subc. Show/Edit Type"; ProdCompRoutingShowEditType: Enum "Subc. Show/Edit Type") + local procedure SetupWizardPageWithTemporaryData(var SubcPurchProvisionWizard: Page "Subc. PurchProvisionWizard"; Item: Record Item; BOMRoutingShowEditType: Enum "Subc. Show/Edit Type"; ProdCompRoutingShowEditType: Enum "Subc. Show/Edit Type") begin - PurchProvisionWizard.SetItem(Item); - PurchProvisionWizard.SetBOMRoutingShowEditType(BOMRoutingShowEditType); - PurchProvisionWizard.SetProdCompRoutingShowEditType(ProdCompRoutingShowEditType); - PurchProvisionWizard.SetTempDataInitializer(TempDataInitializer); + SubcPurchProvisionWizard.SetItem(Item); + SubcPurchProvisionWizard.SetBOMRoutingShowEditType(BOMRoutingShowEditType); + SubcPurchProvisionWizard.SetProdCompRoutingShowEditType(ProdCompRoutingShowEditType); + SubcPurchProvisionWizard.SetTempDataInitializer(SubcTempDataInitializer); end; /// @@ -270,19 +270,19 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." [CommitBehavior(CommitBehavior::Ignore)] local procedure TransferTemporaryDataToRealTables(var PurchLine: Record "Purchase Line") var - ProdOrder: Record "Production Order"; - SubProdOrderCreateBind: Codeunit "Subc. ProdOrderCreateBind"; + ProductionOrder: Record "Production Order"; + SubcProdOrderCreateBind: Codeunit "Subc. ProdOrderCreateBind"; begin - BindSubscription(SubProdOrderCreateBind); - SubProdOrderCreateBind.SetSubcontractingPurchaseLine(PurchLine); + BindSubscription(SubcProdOrderCreateBind); + SubcProdOrderCreateBind.SetSubcontractingPurchaseLine(PurchLine); UpdateItemWithBOMAndRoutingFromTemp(PurchLine); - CreateReleasedProductionOrderFromTemp(ProdOrder); - TransferTemporaryDataToProductionOrder(ProdOrder); - RefreshProductionOrderWithOptimalSettings(ProdOrder); - FinalizeProductionOrderCreation(PurchLine, ProdOrder); + CreateReleasedProductionOrderFromTemp(ProductionOrder); + TransferTemporaryDataToProductionOrder(ProductionOrder); + RefreshProductionOrderWithOptimalSettings(ProductionOrder); + FinalizeProductionOrderCreation(PurchLine, ProductionOrder); - UnbindSubscription(SubProdOrderCreateBind); + UnbindSubscription(SubcProdOrderCreateBind); end; /// @@ -314,13 +314,13 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure CreateReleasedProductionOrderFromTemp(var ProdOrder: Record "Production Order") var - TempProdOrder: Record "Production Order" temporary; + TempProductionOrder: Record "Production Order" temporary; begin - TempDataInitializer.GetGlobalProdOrder(TempProdOrder); + SubcTempDataInitializer.GetGlobalProdOrder(TempProductionOrder); InitializeProductionOrder(ProdOrder); - ConfigureProductionOrderFromTemp(ProdOrder, TempProdOrder); + ConfigureProductionOrderFromTemp(ProdOrder, TempProductionOrder); ProdOrder."Created from Purch. Order" := true; ProdOrder.Modify(true); @@ -362,7 +362,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." ProdOrderLine: Record "Prod. Order Line"; TempProdOrderLine: Record "Prod. Order Line" temporary; begin - TempDataInitializer.GetGlobalProdOrderLine(TempProdOrderLine); + SubcTempDataInitializer.GetGlobalProdOrderLine(TempProdOrderLine); if not TempProdOrderLine.FindFirst() then exit; @@ -392,7 +392,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." ProdOrderComponent: Record "Prod. Order Component"; TempProdOrderComponent: Record "Prod. Order Component" temporary; begin - TempDataInitializer.GetGlobalProdOrderComponent(TempProdOrderComponent); + SubcTempDataInitializer.GetGlobalProdOrderComponent(TempProdOrderComponent); if TempProdOrderComponent.FindSet() then repeat CreateProdOrderComponentFromTemp(ProdOrderComponent, TempProdOrderComponent, ProdOrderLine); @@ -404,14 +404,14 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure TransferProductionOrderRoutingLines(var ProdOrderLine: Record "Prod. Order Line") var - ProdOrderRtngLine: Record "Prod. Order Routing Line"; - TempProdOrderRtngLine: Record "Prod. Order Routing Line" temporary; + ProdOrderRoutingLine: Record "Prod. Order Routing Line"; + TempProdOrderRoutingLine: Record "Prod. Order Routing Line" temporary; begin - TempDataInitializer.GetGlobalProdOrderRoutingLine(TempProdOrderRtngLine); - if TempProdOrderRtngLine.FindSet() then + SubcTempDataInitializer.GetGlobalProdOrderRoutingLine(TempProdOrderRoutingLine); + if TempProdOrderRoutingLine.FindSet() then repeat - CreateProdOrderRoutingLineFromTemp(ProdOrderRtngLine, TempProdOrderRtngLine, ProdOrderLine); - until TempProdOrderRtngLine.Next() = 0; + CreateProdOrderRoutingLineFromTemp(ProdOrderRoutingLine, TempProdOrderRoutingLine, ProdOrderLine); + until TempProdOrderRoutingLine.Next() = 0; end; /// @@ -458,20 +458,20 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure UpdatePurchLineWithRoutingInfo(var PurchLine: Record "Purchase Line"; var ProdOrderLine: Record "Prod. Order Line") var - ProdOrderRtngLine: Record "Prod. Order Routing Line"; + ProdOrderRoutingLine: Record "Prod. Order Routing Line"; WorkCenter: Record "Work Center"; begin - if not FindRoutingLinesForProdOrderLine(ProdOrderRtngLine, ProdOrderLine) then + if not FindRoutingLinesForProdOrderLine(ProdOrderRoutingLine, ProdOrderLine) then exit; - if FindMatchingWorkCenterForVendor(ProdOrderRtngLine, WorkCenter, PurchLine."Buy-from Vendor No.") or - FindAnySubcontractorWorkCenter(ProdOrderRtngLine, WorkCenter) then begin - UpdatePurchLineFromRoutingLine(PurchLine, ProdOrderRtngLine); + if FindMatchingWorkCenterForVendor(ProdOrderRoutingLine, WorkCenter, PurchLine."Buy-from Vendor No.") or + FindAnySubcontractorWorkCenter(ProdOrderRoutingLine, WorkCenter) then begin + UpdatePurchLineFromRoutingLine(PurchLine, ProdOrderRoutingLine); exit; end; - ProdOrderRtngLine.FindFirst(); - UpdatePurchLineFromRoutingLine(PurchLine, ProdOrderRtngLine); + ProdOrderRoutingLine.FindFirst(); + UpdatePurchLineFromRoutingLine(PurchLine, ProdOrderRoutingLine); end; /// @@ -522,7 +522,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." local procedure UpdatePurchLineFromRoutingLine(var PurchLine: Record "Purchase Line"; ProdOrderRtngLine: Record "Prod. Order Routing Line") var - SubcontractingPriceMgt: Codeunit "Subc. Price Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; begin PurchLine.Description := ProdOrderRtngLine.Description; PurchLine."Routing No." := ProdOrderRtngLine."Routing No."; @@ -531,7 +531,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." PurchLine."Expected Receipt Date" := ProdOrderRtngLine."Ending Date"; PurchLine.Validate("Work Center No.", ProdOrderRtngLine."Work Center No."); - SubcontractingPriceMgt.GetSubcPriceForPurchLine(PurchLine); + SubcPriceManagement.GetSubcPriceForPurchLine(PurchLine); PurchLine.GetItemTranslation(); end; @@ -541,14 +541,14 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." local procedure TransferReservationEntryFromPurchOrderCompToProdOrderLine(PurchLine: Record "Purchase Line"; ProdOrder: Record "Production Order") var ProdOrderLine: Record "Prod. Order Line"; - TempReservEntry: Record "Reservation Entry" temporary; + TempReservationEntry: Record "Reservation Entry" temporary; PurchLineReserve: Codeunit "Purch. Line-Reserve"; begin if not FindProdOrderLineForReservation(ProdOrderLine, ProdOrder, PurchLine."No.") then exit; - CollectReservationEntries(PurchLine, TempReservEntry, PurchLineReserve); - ReassignReservationEntries(ProdOrderLine, TempReservEntry); + CollectReservationEntries(PurchLine, TempReservationEntry, PurchLineReserve); + ReassignReservationEntries(ProdOrderLine, TempReservationEntry); end; /// @@ -568,15 +568,15 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure CollectReservationEntries(PurchLine: Record "Purchase Line"; var TempReservEntry: Record "Reservation Entry" temporary; var PurchLineReserve: Codeunit "Purch. Line-Reserve") var - ReservEntry: Record "Reservation Entry"; + ReservationEntry: Record "Reservation Entry"; begin - PurchLineReserve.FindReservEntry(PurchLine, ReservEntry); - if ReservEntry.FindSet() then begin + PurchLineReserve.FindReservEntry(PurchLine, ReservationEntry); + if ReservationEntry.FindSet() then begin repeat - TempReservEntry := ReservEntry; + TempReservEntry := ReservationEntry; TempReservEntry.Insert(); - until ReservEntry.Next() = 0; - ReservEntry.DeleteAll(); + until ReservationEntry.Next() = 0; + ReservationEntry.DeleteAll(); end; end; @@ -593,23 +593,23 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." local procedure ReassignSingleReservationEntry(ProdOrderLine: Record "Prod. Order Line"; var TempReservEntry: Record "Reservation Entry" temporary) var - ReservEntry2: Record "Reservation Entry"; + ReservationEntry2: Record "Reservation Entry"; begin - ReservEntry2 := TempReservEntry; - ReservEntry2."Source Type" := Database::"Prod. Order Line"; - ReservEntry2."Source Subtype" := ProdOrderLine.Status.AsInteger(); - ReservEntry2."Source ID" := ProdOrderLine."Prod. Order No."; - ReservEntry2."Source Ref. No." := 0; - ReservEntry2."Source Batch Name" := ''; - ReservEntry2."Source Prod. Order Line" := ProdOrderLine."Line No."; - ReservEntry2.Insert(); + ReservationEntry2 := TempReservEntry; + ReservationEntry2."Source Type" := Database::"Prod. Order Line"; + ReservationEntry2."Source Subtype" := ProdOrderLine.Status.AsInteger(); + ReservationEntry2."Source ID" := ProdOrderLine."Prod. Order No."; + ReservationEntry2."Source Ref. No." := 0; + ReservationEntry2."Source Batch Name" := ''; + ReservationEntry2."Source Prod. Order Line" := ProdOrderLine."Line No."; + ReservationEntry2.Insert(); end; local procedure HandleSubcontractingAfterUpdate(var PurchLine: Record "Purchase Line") var RequisitionLine: Record "Requisition Line"; - SubcontractingMgmt: Codeunit "Subcontracting Management"; - SubcontractingMgmtExt: Codeunit "Subcontracting Management Ext."; + SubcontractingManagement: Codeunit "Subcontracting Management"; + SubcontractingManagementExt: Codeunit "Subcontracting Management Ext."; NextLineNo: Integer; begin RequisitionLine."Prod. Order No." := PurchLine."Prod. Order No."; @@ -619,9 +619,9 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." RequisitionLine."Routing Reference No." := PurchLine."Routing Reference No."; NextLineNo := PurchLine."Line No." + 10000; - BindSubscription(SubcontractingMgmtExt); - SubcontractingMgmt.TransferSubcontractingProdOrderComp(PurchLine, RequisitionLine, NextLineNo); - UnbindSubscription(SubcontractingMgmtExt); + BindSubscription(SubcontractingManagementExt); + SubcontractingManagement.TransferSubcontractingProdOrderComp(PurchLine, RequisitionLine, NextLineNo); + UnbindSubscription(SubcontractingManagementExt); end; /// @@ -633,10 +633,10 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." Vendor: Record Vendor; begin GetSubManagementSetupCached(); - SubManagementSetup.TestField("Rtng. Link Code Purch. Prov."); - SubManagementSetup.TestField("Component at Location"); - SubManagementSetup.TestField("Preset Component Item No."); - SubManagementSetup.TestField("Common Work Center No."); + SubcManagementSetup.TestField("Rtng. Link Code Purch. Prov."); + SubcManagementSetup.TestField("Component at Location"); + SubcManagementSetup.TestField("Preset Component Item No."); + SubcManagementSetup.TestField("Common Work Center No."); ManufacturingSetup.Get(); ManufacturingSetup.TestField("Released Order Nos."); @@ -668,22 +668,22 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." begin if HasSubManagementSetup then exit; - if SubManagementSetup.Get() then + if SubcManagementSetup.Get() then HasSubManagementSetup := true; end; /// /// Updates item with BOM and routing from temporary data /// - local procedure UpdateItemWithBOMAndRoutingFromTemp(var PurchLine: Record "Purchase Line") + local procedure UpdateItemWithBOMAndRoutingFromTemp(var PurchaseLine: Record "Purchase Line") var SkipProcessBOMAndRouting: Boolean; begin - SkipProcessBOMAndRouting := CheckCreateProdOrderCompRtng() and (ApplyBomRtngToSource = "Subc. RtngBOMSourceType"::Empty); + SkipProcessBOMAndRouting := CheckCreateProdOrderCompRtng() and (GlobalSubcRtngBOMSourceType = "Subc. RtngBOMSourceType"::Empty); if SkipProcessBOMAndRouting then exit; - ProcessBOMAndRoutingData(PurchLine."No."); + ProcessBOMAndRoutingData(PurchaseLine."No."); end; /// @@ -691,19 +691,19 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure ProcessBOMAndRoutingData(ItemNo: Code[20]) var - TempBOMHeader: Record "Production BOM Header" temporary; - TempBOMLine: Record "Production BOM Line" temporary; + TempProductionBOMHeader: Record "Production BOM Header" temporary; + TempProductionBOMLine: Record "Production BOM Line" temporary; TempRoutingHeader: Record "Routing Header" temporary; TempRoutingLine: Record "Routing Line" temporary; BOMNo, BOMVersionCode, RoutingNo, RoutingVersionCode : Code[20]; begin - GetTemporaryBOMAndRoutingData(TempBOMHeader, TempBOMLine, TempRoutingHeader, TempRoutingLine); + GetTemporaryBOMAndRoutingData(TempProductionBOMHeader, TempProductionBOMLine, TempRoutingHeader, TempRoutingLine); GetBOMAndRoutingInfoFromTempData(BOMNo, BOMVersionCode, RoutingNo, RoutingVersionCode); if BOMVersionCode = '' then - CreateBOMIfNotExists(TempBOMHeader, TempBOMLine, BOMNo) + CreateBOMIfNotExists(TempProductionBOMHeader, TempProductionBOMLine, BOMNo) else - SaveBOMVersionIfRequired(TempBOMHeader, TempBOMLine, BOMNo, BOMVersionCode); + SaveBOMVersionIfRequired(TempProductionBOMHeader, TempProductionBOMLine, BOMNo, BOMVersionCode); if RoutingVersionCode = '' then CreateRoutingIfNotExists(TempRoutingHeader, TempRoutingLine, RoutingNo) @@ -718,10 +718,10 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure GetTemporaryBOMAndRoutingData(var TempBOMHeader: Record "Production BOM Header" temporary; var TempBOMLine: Record "Production BOM Line" temporary; var TempRoutingHeader: Record "Routing Header" temporary; var TempRoutingLine: Record "Routing Line" temporary) begin - TempDataInitializer.GetGlobalBOMHeader(TempBOMHeader); - TempDataInitializer.GetGlobalBOMLines(TempBOMLine); - TempDataInitializer.GetGlobalRoutingHeader(TempRoutingHeader); - TempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); + SubcTempDataInitializer.GetGlobalBOMHeader(TempBOMHeader); + SubcTempDataInitializer.GetGlobalBOMLines(TempBOMLine); + SubcTempDataInitializer.GetGlobalRoutingHeader(TempRoutingHeader); + SubcTempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); end; /// @@ -729,38 +729,38 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure SaveBOMVersionIfRequired(var TempBOMHeader: Record "Production BOM Header" temporary; var TempBOMLine: Record "Production BOM Line" temporary; BomNo: Code[20]; BOMVersionCode: Code[20]) var - BOMLine: Record "Production BOM Line"; - BOMVersion: Record "Production BOM Version"; + ProductionBOMLine: Record "Production BOM Line"; + ProductionBOMVersion: Record "Production BOM Version"; NoSeries: Codeunit "No. Series"; NewBOMVersionCode: Code[20]; begin if BOMVersionCode = '' then exit; - if SubVersionSelectionMgmt.CheckBOMExists(BomNo, BOMVersionCode) then + if SubcVersionMgmt.CheckBOMExists(BomNo, BOMVersionCode) then exit; - NewBOMVersionCode := NoSeries.GetNextNo(SubVersionSelectionMgmt.GetBOMVersionNoSeries(BomNo)); - TempDataInitializer.UpdateBOMVersionCode(NewBOMVersionCode); - - BOMVersion.Init(); - BOMVersion."Production BOM No." := BomNo; - BOMVersion."Version Code" := NewBOMVersionCode; - BOMVersion.Status := "BOM Status"::Certified; - BOMVersion.Description := TempBOMHeader.Description; - BOMVersion."Unit of Measure Code" := TempBOMHeader."Unit of Measure Code"; - BOMVersion."Starting Date" := WorkDate(); - BOMVersion.Status := TempBOMHeader.Status; - BOMVersion.Insert(true); + NewBOMVersionCode := NoSeries.GetNextNo(SubcVersionMgmt.GetBOMVersionNoSeries(BomNo)); + SubcTempDataInitializer.UpdateBOMVersionCode(NewBOMVersionCode); + + ProductionBOMVersion.Init(); + ProductionBOMVersion."Production BOM No." := BomNo; + ProductionBOMVersion."Version Code" := NewBOMVersionCode; + ProductionBOMVersion.Status := "BOM Status"::Certified; + ProductionBOMVersion.Description := TempBOMHeader.Description; + ProductionBOMVersion."Unit of Measure Code" := TempBOMHeader."Unit of Measure Code"; + ProductionBOMVersion."Starting Date" := WorkDate(); + ProductionBOMVersion.Status := TempBOMHeader.Status; + ProductionBOMVersion.Insert(true); BOMVersionCreated := true; if TempBOMLine.FindSet() then repeat - BOMLine := TempBOMLine; - BOMLine.Insert(true); + ProductionBOMLine := TempBOMLine; + ProductionBOMLine.Insert(true); until TempBOMLine.Next() = 0; - BOMVersion.Validate(Status, "BOM Status"::Certified); - BOMVersion.Modify(true); + ProductionBOMVersion.Validate(Status, "BOM Status"::Certified); + ProductionBOMVersion.Modify(true); end; @@ -774,11 +774,11 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." NoSeries: Codeunit "No. Series"; NewRoutingVersionCode: Code[20]; begin - if SubVersionSelectionMgmt.CheckRoutingExists(RoutingNo, RoutingVersionCode) then + if SubcVersionMgmt.CheckRoutingExists(RoutingNo, RoutingVersionCode) then exit; - NewRoutingVersionCode := NoSeries.GetNextNo(SubVersionSelectionMgmt.GetRoutingVersionNoSeries(RoutingNo)); - TempDataInitializer.UpdateRoutingVersionCode(NewRoutingVersionCode); + NewRoutingVersionCode := NoSeries.GetNextNo(SubcVersionMgmt.GetRoutingVersionNoSeries(RoutingNo)); + SubcTempDataInitializer.UpdateRoutingVersionCode(NewRoutingVersionCode); RoutingVersion.Init(); RoutingVersion."Routing No." := RoutingNo; @@ -804,33 +804,33 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." local procedure CreateBOMIfNotExists(var TempBOMHeader: Record "Production BOM Header" temporary; var TempBOMLine: Record "Production BOM Line" temporary; var BOMNo: Code[20]) var ManufacturingSetup: Record "Manufacturing Setup"; - BOMHeader: Record "Production BOM Header"; - BOMLine: Record "Production BOM Line"; + ProductionBOMHeader: Record "Production BOM Header"; + ProductionBOMLine: Record "Production BOM Line"; NoSeries: Codeunit "No. Series"; begin - if SubVersionSelectionMgmt.CheckBOMExists(BOMNo, '') then + if SubcVersionMgmt.CheckBOMExists(BOMNo, '') then exit; ManufacturingSetup.Get(); BOMNo := NoSeries.GetNextNo(ManufacturingSetup."Production BOM Nos."); - BOMHeader.Init(); - BOMHeader."No." := BOMNo; - BOMHeader.Description := TempBOMHeader.Description; - BOMHeader.Validate("Unit of Measure Code", TempBOMHeader."Unit of Measure Code"); - BOMHeader.Insert(true); + ProductionBOMHeader.Init(); + ProductionBOMHeader."No." := BOMNo; + ProductionBOMHeader.Description := TempBOMHeader.Description; + ProductionBOMHeader.Validate("Unit of Measure Code", TempBOMHeader."Unit of Measure Code"); + ProductionBOMHeader.Insert(true); BOMCreated := true; if TempBOMLine.FindSet() then repeat - BOMLine := TempBOMLine; - BOMLine."Production BOM No." := BOMNo; - BOMLine."Version Code" := ''; - BOMLine.Insert(true); + ProductionBOMLine := TempBOMLine; + ProductionBOMLine."Production BOM No." := BOMNo; + ProductionBOMLine."Version Code" := ''; + ProductionBOMLine.Insert(true); until TempBOMLine.Next() = 0; - BOMHeader.Status := "BOM Status"::Certified; - BOMHeader.Modify(true); - TempDataInitializer.LoadBOMLines(BOMNo, ''); + ProductionBOMHeader.Status := "BOM Status"::Certified; + ProductionBOMHeader.Modify(true); + SubcTempDataInitializer.LoadBOMLines(BOMNo, ''); end; /// @@ -839,14 +839,14 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure CheckCreateProdOrderCompRtng(): Boolean var - TempBOMLine: Record "Production BOM Line" temporary; + TempProductionBOMLine: Record "Production BOM Line" temporary; TempRoutingLine: Record "Routing Line" temporary; BOMRoutingExists: Boolean; begin - TempDataInitializer.GetGlobalBOMLines(TempBOMLine); - TempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); + SubcTempDataInitializer.GetGlobalBOMLines(TempProductionBOMLine); + SubcTempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); - BOMRoutingExists := SubVersionSelectionMgmt.CheckBOMExists(TempBOMLine."Production BOM No.", '') and SubVersionSelectionMgmt.CheckRoutingExists(TempRoutingLine."Routing No.", ''); + BOMRoutingExists := SubcVersionMgmt.CheckBOMExists(TempProductionBOMLine."Production BOM No.", '') and SubcVersionMgmt.CheckRoutingExists(TempRoutingLine."Routing No.", ''); exit(not BOMRoutingExists or ProdCompRoutingModified); end; /// @@ -862,7 +862,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." if not TempRoutingHeader.FindFirst() then exit; - if SubVersionSelectionMgmt.CheckRoutingExists(RoutingNo, '') then + if SubcVersionMgmt.CheckRoutingExists(RoutingNo, '') then exit; ManufacturingSetup.Get(); @@ -884,11 +884,11 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." RoutingHeader.Validate(Status, "Routing Status"::Certified); RoutingHeader.Modify(true); - TempDataInitializer.LoadRoutingLines(RoutingNo, ''); + SubcTempDataInitializer.LoadRoutingLines(RoutingNo, ''); end; /// - /// Updates item or stockkeeping unit with BOM and routing numbers based on ApplyBomRtngToSource + /// Updates item or stockkeeping unit with BOM and routing numbers based on SubcRtngBOMSourceType /// local procedure UpdateSourceWithBOMRoutingNumbers(ItemNo: Code[20]; BOMNo: Code[20]; RoutingNo: Code[20]) var @@ -897,15 +897,15 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." LocationCode: Code[10]; VariantCode: Code[10]; begin - case ApplyBomRtngToSource of - ApplyBomRtngToSource::Item: + case GlobalSubcRtngBOMSourceType of + GlobalSubcRtngBOMSourceType::Item: if Item.Get(ItemNo) and ((Item."Production BOM No." <> BOMNo) or (Item."Routing No." <> RoutingNo)) then begin Item."Production BOM No." := BOMNo; Item."Routing No." := RoutingNo; Item.Modify(true); end; - ApplyBomRtngToSource::StockkeepingUnit: + GlobalSubcRtngBOMSourceType::StockkeepingUnit: begin GetLocationAndVariantForStockkeepingUnit(LocationCode, VariantCode); if StockkeepingUnit.Get(LocationCode, ItemNo, VariantCode) then begin @@ -925,12 +925,12 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure GetLocationAndVariantForStockkeepingUnit(var LocationCode: Code[10]; var VariantCode: Code[10]) var - TempPurchLine: Record "Purchase Line" temporary; + TempPurchaseLine: Record "Purchase Line" temporary; begin - TempDataInitializer.GetGlobalPurchLine(TempPurchLine); - if TempPurchLine.FindFirst() then begin - LocationCode := TempPurchLine."Location Code"; - VariantCode := TempPurchLine."Variant Code"; + SubcTempDataInitializer.GetGlobalPurchLine(TempPurchaseLine); + if TempPurchaseLine.FindFirst() then begin + LocationCode := TempPurchaseLine."Location Code"; + VariantCode := TempPurchaseLine."Variant Code"; end; end; @@ -961,11 +961,11 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." GetSubManagementSetupCached(); GetBOMAndRoutingInfoFromTempData(BOMNo, BOMVersionCode, RoutingNo, RoutingVersionCode); - if (ApplyBomRtngToSource = ApplyBomRtngToSource::Empty) then begin + if (GlobalSubcRtngBOMSourceType = GlobalSubcRtngBOMSourceType::Empty) then begin DeleteCreatedBOMIfExists(BOMNo); DeleteCreatedRoutingIfExists(RoutingNo); - if not SubManagementSetup."Always Save Modified Versions" then begin + if not SubcManagementSetup."Always Save Modified Versions" then begin DeleteCreatedBOMVersionIfExists(BOMNo, BOMVersionCode); DeleteCreatedRoutingVersionIfExists(RoutingNo, RoutingVersionCode); end; @@ -974,7 +974,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." local procedure DeleteCreatedBOMIfExists(BOMNo: Code[20]) var - BOMHeader: Record "Production BOM Header"; + ProductionBOMHeader: Record "Production BOM Header"; begin if not BOMCreated then exit; @@ -982,10 +982,10 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." if BOMNo = '' then exit; - if BOMHeader.Get(BOMNo) then begin - BOMHeader.Validate(Status, "BOM Status"::"Under Development"); - BOMHeader.Modify(true); - BOMHeader.Delete(true); + if ProductionBOMHeader.Get(BOMNo) then begin + ProductionBOMHeader.Validate(Status, "BOM Status"::"Under Development"); + ProductionBOMHeader.Modify(true); + ProductionBOMHeader.Delete(true); end; end; @@ -1008,7 +1008,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." local procedure DeleteCreatedBOMVersionIfExists(BOMNo: Code[20]; BOMVersionCode: Code[20]) var - BOMVersion: Record "Production BOM Version"; + ProductionBOMVersion: Record "Production BOM Version"; begin if not BOMVersionCreated then exit; @@ -1016,10 +1016,10 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." if (BOMNo = '') or (BOMVersionCode = '') then exit; - if BOMVersion.Get(BOMNo, BOMVersionCode) then begin - BOMVersion.Validate(Status, "BOM Status"::"Under Development"); - BOMVersion.Modify(); - BOMVersion.Delete(true); + if ProductionBOMVersion.Get(BOMNo, BOMVersionCode) then begin + ProductionBOMVersion.Validate(Status, "BOM Status"::"Under Development"); + ProductionBOMVersion.Modify(); + ProductionBOMVersion.Delete(true); end; end; @@ -1062,7 +1062,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." local procedure CreateProdOrderLineFromTemp(var ProdOrderLine: Record "Prod. Order Line"; ProdOrder: Record "Production Order"; TempProdOrderLine: Record "Prod. Order Line" temporary) var Item: Record Item; - CalcProdOrder: Codeunit "Calculate Prod. Order"; + CalculateProdOrder: Codeunit "Calculate Prod. Order"; BOMNo, BOMVersionCode, RoutingNo, RoutingVersionCode : Code[20]; begin GetBOMAndRoutingInfoFromTempData(BOMNo, BOMVersionCode, RoutingNo, RoutingVersionCode); @@ -1094,7 +1094,7 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." if ProdOrder."Bin Code" <> '' then ProdOrderLine.Validate("Bin Code", ProdOrder."Bin Code") else - CalcProdOrder.SetProdOrderLineBinCodeFromRoute(ProdOrderLine, ProdOrderLine."Location Code", ProdOrderLine."Routing No."); + CalculateProdOrder.SetProdOrderLineBinCodeFromRoute(ProdOrderLine, ProdOrderLine."Location Code", ProdOrderLine."Routing No."); Item.SetLoadFields("Scrap %", "Inventory Posting Group"); Item.Get(ProdOrder."Source No."); @@ -1120,20 +1120,20 @@ codeunit 99001556 "Subc. Create Prod. Ord. Opt." /// local procedure GetBOMAndRoutingInfoFromTempData(var BOMNo: Code[20]; var BOMVersionCode: Code[20]; var RoutingNo: Code[20]; var RoutingVersionCode: Code[20]) var - TempProdBOMLine: Record "Production BOM Line" temporary; + TempProductionBOMLine: Record "Production BOM Line" temporary; TempRoutingLine: Record "Routing Line" temporary; begin - TempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); - TempDataInitializer.GetGlobalBOMLines(TempProdBOMLine); + SubcTempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); + SubcTempDataInitializer.GetGlobalBOMLines(TempProductionBOMLine); if TempRoutingLine.FindFirst() then begin RoutingNo := TempRoutingLine."Routing No."; RoutingVersionCode := TempRoutingLine."Version Code"; end; - if TempProdBOMLine.FindFirst() then begin - BOMNo := TempProdBOMLine."Production BOM No."; - BOMVersionCode := TempProdBOMLine."Version Code"; + if TempProductionBOMLine.FindFirst() then begin + BOMNo := TempProductionBOMLine."Production BOM No."; + BOMVersionCode := TempProductionBOMLine."Version Code"; end; 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 eb9eb15cc2..98cd6c5c87 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -41,13 +41,13 @@ codeunit 99001555 "Subc. ProdOrderCreateBind" local procedure TransferSubcontractingFieldsBOMComponentForPurchaseProvision(var ProdOrderComponent: Record "Prod. Order Component") var - SubManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; SubcontractingManagement: Codeunit "Subcontracting Management"; ComponentsLocationCode: Code[10]; begin - SubManagementSetup.SetLoadFields("Rtng. Link Code Purch. Prov."); - SubManagementSetup.Get(); - if (ProdOrderComponent."Routing Link Code" <> SubManagementSetup."Rtng. Link Code Purch. Prov.") or + SubcManagementSetup.SetLoadFields("Rtng. Link Code Purch. Prov."); + SubcManagementSetup.Get(); + if (ProdOrderComponent."Routing Link Code" <> SubcManagementSetup."Rtng. Link Code Purch. Prov.") or (ProdOrderComponent."Subcontracting Type" <> "Subcontracting Type"::Transfer) then exit; 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 bc0933b472..3708c7c447 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -19,19 +19,19 @@ codeunit 99001552 "Subc. Temp Data Initializer" var TempGlobalProdOrderComponent: Record "Prod. Order Component" temporary; TempGlobalProdOrderLine: Record "Prod. Order Line" temporary; - TempGlobalProdOrderRtngLine: Record "Prod. Order Routing Line" temporary; - TempGlobalBOMHeader: Record "Production BOM Header" temporary; - TempGlobalBOMLine: Record "Production BOM Line" temporary; - TempGlobalProdOrder: Record "Production Order" temporary; - TempGlobalPurchLine: Record "Purchase Line" temporary; + TempGlobalProdOrderRoutingLine: Record "Prod. Order Routing Line" temporary; + TempGlobalProductionBOMHeader: Record "Production BOM Header" temporary; + TempGlobalProductionBOMLine: Record "Production BOM Line" temporary; + TempGlobalProductionOrder: Record "Production Order" temporary; + TempGlobalPurchaseLine: Record "Purchase Line" temporary; TempGlobalRoutingHeader: Record "Routing Header" temporary; TempGlobalRoutingLine: Record "Routing Line" temporary; TempGlobalVendor: Record Vendor temporary; - SubManagementSetup: Record "Subc. Management Setup"; - SingleInstance: Codeunit "Single Instance Dictionary"; - SubVersionSelectionMgmt: Codeunit "Subc. Version Mgmt."; + SubcManagementSetup: Record "Subc. Management Setup"; + SingleInstanceDictionary: Codeunit "Single Instance Dictionary"; + SubcVersionMgmt: Codeunit "Subc. Version Mgmt."; HasSubManagementSetup: Boolean; - RtngBOMSourceType: Enum "Subc. RtngBOMSourceType"; + SubcRtngBOMSourceType: Enum "Subc. RtngBOMSourceType"; /// /// Initializes the temporary structure for production order processing based on a purchase line. @@ -51,30 +51,30 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The purchase line to base the temporary structure on. procedure InitGlobalPurchLine(var PurchLine: Record "Purchase Line") begin - TempGlobalPurchLine.Reset(); - TempGlobalPurchLine.DeleteAll(); - TempGlobalPurchLine := PurchLine; - TempGlobalPurchLine.Insert(); + TempGlobalPurchaseLine.Reset(); + TempGlobalPurchaseLine.DeleteAll(); + TempGlobalPurchaseLine := PurchLine; + TempGlobalPurchaseLine.Insert(); end; local procedure CreateTemporaryProductionOrder() var TempProdOrderNoLbl: Label 'TEMP-%1', Locked = true, MaxLength = 20; begin - TempGlobalBOMLine.Reset(); - TempGlobalBOMLine.DeleteAll(); - TempGlobalProdOrder.Init(); - TempGlobalProdOrder.Status := "Production Order Status"::Released; - TempGlobalProdOrder."No." := StrSubstNo(TempProdOrderNoLbl, CopyStr(Format(CreateGuid()), 2, 10)); - TempGlobalProdOrder."Source Type" := "Prod. Order Source Type"::Item; - TempGlobalProdOrder."Source No." := TempGlobalPurchLine."No."; - if TempGlobalPurchLine."Variant Code" <> '' then - TempGlobalProdOrder."Variant Code" := TempGlobalPurchLine."Variant Code"; - TempGlobalProdOrder."Due Date" := TempGlobalPurchLine."Expected Receipt Date"; - TempGlobalProdOrder.Quantity := TempGlobalPurchLine."Quantity (Base)"; - TempGlobalProdOrder."Location Code" := TempGlobalPurchLine."Location Code"; - TempGlobalProdOrder."Created from Purch. Order" := true; - TempGlobalProdOrder.Insert(); + TempGlobalProductionBOMLine.Reset(); + TempGlobalProductionBOMLine.DeleteAll(); + TempGlobalProductionOrder.Init(); + TempGlobalProductionOrder.Status := "Production Order Status"::Released; + TempGlobalProductionOrder."No." := StrSubstNo(TempProdOrderNoLbl, CopyStr(Format(CreateGuid()), 2, 10)); + TempGlobalProductionOrder."Source Type" := "Prod. Order Source Type"::Item; + TempGlobalProductionOrder."Source No." := TempGlobalPurchaseLine."No."; + if TempGlobalPurchaseLine."Variant Code" <> '' then + TempGlobalProductionOrder."Variant Code" := TempGlobalPurchaseLine."Variant Code"; + TempGlobalProductionOrder."Due Date" := TempGlobalPurchaseLine."Expected Receipt Date"; + TempGlobalProductionOrder.Quantity := TempGlobalPurchaseLine."Quantity (Base)"; + TempGlobalProductionOrder."Location Code" := TempGlobalPurchaseLine."Location Code"; + TempGlobalProductionOrder."Created from Purch. Order" := true; + TempGlobalProductionOrder.Insert(); end; local procedure CreateTemporaryProdOrderLine() @@ -82,22 +82,22 @@ codeunit 99001552 "Subc. Temp Data Initializer" Item: Record Item; begin TempGlobalProdOrderLine.Init(); - TempGlobalProdOrderLine.Status := TempGlobalProdOrder.Status; - TempGlobalProdOrderLine."Prod. Order No." := TempGlobalProdOrder."No."; + TempGlobalProdOrderLine.Status := TempGlobalProductionOrder.Status; + TempGlobalProdOrderLine."Prod. Order No." := TempGlobalProductionOrder."No."; TempGlobalProdOrderLine."Line No." := 10000; TempGlobalProdOrderLine."Routing Reference No." := TempGlobalProdOrderLine."Line No."; - TempGlobalProdOrderLine."Item No." := TempGlobalProdOrder."Source No."; - TempGlobalProdOrderLine."Location Code" := TempGlobalProdOrder."Location Code"; - TempGlobalProdOrderLine."Variant Code" := TempGlobalProdOrder."Variant Code"; - TempGlobalProdOrderLine.Description := TempGlobalProdOrder.Description; - TempGlobalProdOrderLine."Description 2" := TempGlobalProdOrder."Description 2"; - TempGlobalProdOrderLine.Quantity := TempGlobalProdOrder.Quantity; - TempGlobalProdOrderLine."Due Date" := TempGlobalProdOrder."Due Date"; - TempGlobalProdOrderLine."Starting Date-Time" := TempGlobalProdOrder."Starting Date-Time"; - TempGlobalProdOrderLine."Ending Date-Time" := TempGlobalProdOrder."Ending Date-Time"; + TempGlobalProdOrderLine."Item No." := TempGlobalProductionOrder."Source No."; + TempGlobalProdOrderLine."Location Code" := TempGlobalProductionOrder."Location Code"; + TempGlobalProdOrderLine."Variant Code" := TempGlobalProductionOrder."Variant Code"; + TempGlobalProdOrderLine.Description := TempGlobalProductionOrder.Description; + TempGlobalProdOrderLine."Description 2" := TempGlobalProductionOrder."Description 2"; + TempGlobalProdOrderLine.Quantity := TempGlobalProductionOrder.Quantity; + TempGlobalProdOrderLine."Due Date" := TempGlobalProductionOrder."Due Date"; + TempGlobalProdOrderLine."Starting Date-Time" := TempGlobalProductionOrder."Starting Date-Time"; + TempGlobalProdOrderLine."Ending Date-Time" := TempGlobalProductionOrder."Ending Date-Time"; Item.SetLoadFields("Scrap %", "Inventory Posting Group"); - Item.Get(TempGlobalProdOrder."Source No."); + Item.Get(TempGlobalProductionOrder."Source No."); TempGlobalProdOrderLine."Scrap %" := Item."Scrap %"; TempGlobalProdOrderLine."Inventory Posting Group" := Item."Inventory Posting Group"; @@ -110,8 +110,8 @@ codeunit 99001552 "Subc. Temp Data Initializer" begin TempGlobalProdOrderComponent.Reset(); TempGlobalProdOrderComponent.DeleteAll(); - TempGlobalProdOrderRtngLine.Reset(); - TempGlobalProdOrderRtngLine.DeleteAll(); + TempGlobalProdOrderRoutingLine.Reset(); + TempGlobalProdOrderRoutingLine.DeleteAll(); end; /// @@ -130,7 +130,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" ManufacturingSetup.TestField("Production BOM Nos."); Item.SetLoadFields(Description, "Base Unit of Measure", "No."); - if not Item.Get(TempGlobalPurchLine."No.") then + if not Item.Get(TempGlobalPurchaseLine."No.") then exit; BOMNo := InitializeTemporaryBOMHeaderFromSetup(Item); @@ -144,27 +144,27 @@ codeunit 99001552 "Subc. Temp Data Initializer" BOMForLbl: Label 'BOM for %1', Comment = '%1 = Item description'; TempBOMNoLbl: Label 'TEMP-BOM-%1', Locked = true, MaxLength = 20; begin - TempGlobalBOMHeader.Init(); + TempGlobalProductionBOMHeader.Init(); BOMNo := StrSubstNo(TempBOMNoLbl, CopyStr(Format(CreateGuid()), 2, 10)); - TempGlobalBOMHeader."No." := BOMNo; - TempGlobalBOMHeader.Description := CopyStr(StrSubstNo(BOMForLbl, Item.Description), 1, MaxStrLen(TempGlobalBOMHeader.Description)); - TempGlobalBOMHeader."Unit of Measure Code" := Item."Base Unit of Measure"; - TempGlobalBOMHeader.Insert(); + TempGlobalProductionBOMHeader."No." := BOMNo; + TempGlobalProductionBOMHeader.Description := CopyStr(StrSubstNo(BOMForLbl, Item.Description), 1, MaxStrLen(TempGlobalProductionBOMHeader.Description)); + TempGlobalProductionBOMHeader."Unit of Measure Code" := Item."Base Unit of Measure"; + TempGlobalProductionBOMHeader.Insert(); exit(BOMNo); end; local procedure InitializeTemporaryBOMLineFromSetup(BOMNo: Code[20]) begin GetSubmanagementSetup(); - TempGlobalBOMLine.Init(); - TempGlobalBOMLine."Production BOM No." := BOMNo; - TempGlobalBOMLine."Line No." := 10000; - TempGlobalBOMLine."Type" := "Production BOM Line Type"::Item; - TempGlobalBOMLine.Validate("No.", SubManagementSetup."Preset Component Item No."); - TempGlobalBOMLine."Quantity per" := 1; - TempGlobalBOMLine."Routing Link Code" := SubManagementSetup."Rtng. Link Code Purch. Prov."; - TempGlobalBOMLine."Subcontracting Type" := "Subcontracting Type"::InventoryByVendor; - TempGlobalBOMLine.Insert(); + TempGlobalProductionBOMLine.Init(); + TempGlobalProductionBOMLine."Production BOM No." := BOMNo; + TempGlobalProductionBOMLine."Line No." := 10000; + TempGlobalProductionBOMLine."Type" := "Production BOM Line Type"::Item; + TempGlobalProductionBOMLine.Validate("No.", SubcManagementSetup."Preset Component Item No."); + TempGlobalProductionBOMLine."Quantity per" := 1; + TempGlobalProductionBOMLine."Routing Link Code" := SubcManagementSetup."Rtng. Link Code Purch. Prov."; + TempGlobalProductionBOMLine."Subcontracting Type" := "Subcontracting Type"::InventoryByVendor; + TempGlobalProductionBOMLine.Insert(); end; /// @@ -185,7 +185,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" ManufacturingSetup.TestField("Routing Nos."); Item.SetLoadFields(Description, "Base Unit of Measure", "No."); - Item.Get(TempGlobalPurchLine."No."); + Item.Get(TempGlobalPurchaseLine."No."); RoutingNo := InitializeTemporaryRoutingHeaderFromSetup(Item); WorkCenterNo := DetermineWorkCenter(); @@ -215,11 +215,11 @@ codeunit 99001552 "Subc. Temp Data Initializer" begin GetSubmanagementSetup(); Vendor.SetLoadFields("Work Center No."); - Vendor.Get(TempGlobalPurchLine."Buy-from Vendor No."); + Vendor.Get(TempGlobalPurchaseLine."Buy-from Vendor No."); WorkCenterNo := Vendor."Work Center No."; if WorkCenterNo = '' then begin - SubManagementSetup.TestField("Common Work Center No."); - WorkCenterNo := SubManagementSetup."Common Work Center No."; + SubcManagementSetup.TestField("Common Work Center No."); + WorkCenterNo := SubcManagementSetup."Common Work Center No."; end; exit(WorkCenterNo); end; @@ -237,21 +237,21 @@ codeunit 99001552 "Subc. Temp Data Initializer" TempGlobalRoutingLine."No." := WorkCenterNo; TempGlobalRoutingLine."Work Center No." := WorkCenterNo; TempGlobalRoutingLine.Description := CopyStr(SubcontractingOperationLbl, 1, MaxStrLen(TempGlobalRoutingLine.Description)); - TempGlobalRoutingLine."Routing Link Code" := SubManagementSetup."Rtng. Link Code Purch. Prov."; + TempGlobalRoutingLine."Routing Link Code" := SubcManagementSetup."Rtng. Link Code Purch. Prov."; TempGlobalRoutingLine.Insert(); Location.SetLoadFields("Prod. Output Whse. Handling"); - Location.Get(TempGlobalPurchLine."Location Code"); + Location.Get(TempGlobalPurchaseLine."Location Code"); if Location."Prod. Output Whse. Handling" <> "Prod. Output Whse. Handling"::"No Warehouse Handling" then - if SubManagementSetup."Put-Away Work Center No." <> '' then begin + if SubcManagementSetup."Put-Away Work Center No." <> '' then begin TempGlobalRoutingLine.Init(); TempGlobalRoutingLine."Routing No." := RoutingNo; TempGlobalRoutingLine."Operation No." := '20'; TempGlobalRoutingLine.Type := "Capacity Type Routing"::"Work Center"; - TempGlobalRoutingLine."No." := SubManagementSetup."Put-Away Work Center No."; - TempGlobalRoutingLine."Work Center No." := SubManagementSetup."Put-Away Work Center No."; + TempGlobalRoutingLine."No." := SubcManagementSetup."Put-Away Work Center No."; + TempGlobalRoutingLine."Work Center No." := SubcManagementSetup."Put-Away Work Center No."; TempGlobalRoutingLine.Description := CopyStr(PutAwayOperationLbl, 1, MaxStrLen(TempGlobalRoutingLine.Description)); - TempGlobalRoutingLine."Routing Link Code" := SubManagementSetup."Rtng. Link Code Purch. Prov."; + TempGlobalRoutingLine."Routing Link Code" := SubcManagementSetup."Rtng. Link Code Purch. Prov."; TempGlobalRoutingLine.Insert(); end; end; @@ -269,7 +269,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" BuildTemporaryComponents(); GetVendor(); - SingleInstance.SetCode('SetSubcontractingLocationCodeFromVendor', TempGlobalVendor."Subcontr. Location Code"); + SingleInstanceDictionary.SetCode('SetSubcontractingLocationCodeFromVendor', TempGlobalVendor."Subcontr. Location Code"); end; local procedure BuildTemporaryComponents() @@ -292,8 +292,8 @@ codeunit 99001552 "Subc. Temp Data Initializer" var TempRoutingLine: Record "Routing Line" temporary; begin - TempGlobalProdOrderRtngLine.Reset(); - TempGlobalProdOrderRtngLine.DeleteAll(); + TempGlobalProdOrderRoutingLine.Reset(); + TempGlobalProdOrderRoutingLine.DeleteAll(); GetGlobalRoutingLines(TempRoutingLine); if TempRoutingLine.FindSet() then repeat @@ -328,8 +328,8 @@ codeunit 99001552 "Subc. Temp Data Initializer" TempGlobalProdOrderComponent."Subcontracting Type" := ProductionBOMLine."Subcontracting Type"; PresetComponentLocationCode(); - if not SubVersionSelectionMgmt.CheckBOMExists(ProductionBOMLine."Production BOM No.", '') then - TempGlobalProdOrderComponent.Validate("Flushing Method", SubManagementSetup."Def. provision flushing method"); + if not SubcVersionMgmt.CheckBOMExists(ProductionBOMLine."Production BOM No.", '') then + TempGlobalProdOrderComponent.Validate("Flushing Method", SubcManagementSetup."Def. provision flushing method"); FillProdOrderComponentDefaultBin(); TempGlobalProdOrderComponent.Insert(); @@ -337,7 +337,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" "Production BOM Line Type"::"Production BOM": begin ProductionBOMLine_NextLevel.SetRange("Production BOM No.", ProductionBOMLine."No."); - ProductionBOMLine_NextLevel.SetRange("Version Code", SubVersionSelectionMgmt.GetDefaultBOMVersion(ProductionBOMLine."No.")); + ProductionBOMLine_NextLevel.SetRange("Version Code", SubcVersionMgmt.GetDefaultBOMVersion(ProductionBOMLine."No.")); if ProductionBOMLine_NextLevel.FindSet() then repeat CreateTemporaryComponentFromBOMLine(ProductionBOMLine_NextLevel, ProductionBOMLine_NextLevel."Quantity per", LineNo); @@ -351,26 +351,26 @@ codeunit 99001552 "Subc. Temp Data Initializer" GetSubmanagementSetup(); GetVendor(); - TempGlobalProdOrderRtngLine.Init(); - TempGlobalProdOrderRtngLine.Status := TempGlobalProdOrderLine.Status; - TempGlobalProdOrderRtngLine."Prod. Order No." := TempGlobalProdOrderLine."Prod. Order No."; - TempGlobalProdOrderRtngLine."Routing No." := RoutingLine."Routing No."; - TempGlobalProdOrderRtngLine.Validate("Routing Reference No.", TempGlobalProdOrderLine."Line No."); - TempGlobalProdOrderRtngLine.Validate("Operation No.", RoutingLine."Operation No."); - TempGlobalProdOrderRtngLine.Validate(Type, RoutingLine.Type); - TempGlobalProdOrderRtngLine.Validate("No.", RoutingLine."No."); - TempGlobalProdOrderRtngLine.Validate("Work Center No.", RoutingLine."Work Center No."); - TempGlobalProdOrderRtngLine.Description := RoutingLine.Description; - TempGlobalProdOrderRtngLine.Validate("Setup Time", RoutingLine."Setup Time"); - TempGlobalProdOrderRtngLine.Validate("Run Time", RoutingLine."Run Time"); - TempGlobalProdOrderRtngLine.Validate("Wait Time", RoutingLine."Wait Time"); - TempGlobalProdOrderRtngLine.Validate("Move Time", RoutingLine."Move Time"); - TempGlobalProdOrderRtngLine.Validate("Ending Date", TempGlobalProdOrderLine."Ending Date"); - TempGlobalProdOrderRtngLine.Validate("Ending Time", TempGlobalProdOrderLine."Ending Time"); - TempGlobalProdOrderRtngLine."Routing Link Code" := RoutingLine."Routing Link Code"; - TempGlobalProdOrderRtngLine.Validate("Vendor No. Subc. Price", TempGlobalVendor."No."); - TempGlobalProdOrderRtngLine.FillDefaultLocationAndBins(); - TempGlobalProdOrderRtngLine.Insert(); + TempGlobalProdOrderRoutingLine.Init(); + TempGlobalProdOrderRoutingLine.Status := TempGlobalProdOrderLine.Status; + TempGlobalProdOrderRoutingLine."Prod. Order No." := TempGlobalProdOrderLine."Prod. Order No."; + TempGlobalProdOrderRoutingLine."Routing No." := RoutingLine."Routing No."; + TempGlobalProdOrderRoutingLine.Validate("Routing Reference No.", TempGlobalProdOrderLine."Line No."); + TempGlobalProdOrderRoutingLine.Validate("Operation No.", RoutingLine."Operation No."); + TempGlobalProdOrderRoutingLine.Validate(Type, RoutingLine.Type); + TempGlobalProdOrderRoutingLine.Validate("No.", RoutingLine."No."); + TempGlobalProdOrderRoutingLine.Validate("Work Center No.", RoutingLine."Work Center No."); + TempGlobalProdOrderRoutingLine.Description := RoutingLine.Description; + TempGlobalProdOrderRoutingLine.Validate("Setup Time", RoutingLine."Setup Time"); + TempGlobalProdOrderRoutingLine.Validate("Run Time", RoutingLine."Run Time"); + TempGlobalProdOrderRoutingLine.Validate("Wait Time", RoutingLine."Wait Time"); + TempGlobalProdOrderRoutingLine.Validate("Move Time", RoutingLine."Move Time"); + TempGlobalProdOrderRoutingLine.Validate("Ending Date", TempGlobalProdOrderLine."Ending Date"); + TempGlobalProdOrderRoutingLine.Validate("Ending Time", TempGlobalProdOrderLine."Ending Time"); + TempGlobalProdOrderRoutingLine."Routing Link Code" := RoutingLine."Routing Link Code"; + TempGlobalProdOrderRoutingLine.Validate("Vendor No. Subc. Price", TempGlobalVendor."No."); + TempGlobalProdOrderRoutingLine.FillDefaultLocationAndBins(); + TempGlobalProdOrderRoutingLine.Insert(); end; /// @@ -406,8 +406,8 @@ codeunit 99001552 "Subc. Temp Data Initializer" begin if ProductionBOMLine.FindSet() then repeat - TempGlobalBOMLine := ProductionBOMLine; - TempGlobalBOMLine.Insert(); + TempGlobalProductionBOMLine := ProductionBOMLine; + TempGlobalProductionBOMLine.Insert(); until ProductionBOMLine.Next() = 0; end; @@ -427,7 +427,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" exit; if VersionCode = '' then - VersionCode := SubVersionSelectionMgmt.GetDefaultRoutingVersion(RoutingNo); + VersionCode := SubcVersionMgmt.GetDefaultRoutingVersion(RoutingNo); SetRoutingLineFilters(RoutingLine, RoutingNo, VersionCode); CopyRoutingLinesToTemporary(RoutingLine); @@ -482,21 +482,21 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The new version code to apply. procedure UpdateBOMVersionCode(NewVersionCode: Code[20]) var - TempBOMLine: Record "Production BOM Line" temporary; - TempBOMLine2: Record "Production BOM Line" temporary; + TempProductionBOMLine: Record "Production BOM Line" temporary; + TempProductionBOMLine2: Record "Production BOM Line" temporary; begin - TempBOMLine.Copy(TempGlobalBOMLine, true); - TempBOMLine2.Copy(TempGlobalBOMLine, true); + TempProductionBOMLine.Copy(TempGlobalProductionBOMLine, true); + TempProductionBOMLine2.Copy(TempGlobalProductionBOMLine, true); - TempBOMLine.SetFilter("Version Code", '<>%1', NewVersionCode); - if TempBOMLine.FindSet(true) then + TempProductionBOMLine.SetFilter("Version Code", '<>%1', NewVersionCode); + if TempProductionBOMLine.FindSet(true) then repeat - TempBOMLine2 := TempBOMLine; - TempBOMLine2."Version Code" := NewVersionCode; - TempBOMLine2.Insert(); - until TempBOMLine.Next() = 0; + TempProductionBOMLine2 := TempProductionBOMLine; + TempProductionBOMLine2."Version Code" := NewVersionCode; + TempProductionBOMLine2.Insert(); + until TempProductionBOMLine.Next() = 0; - TempBOMLine.DeleteAll(); + TempProductionBOMLine.DeleteAll(); end; /// @@ -512,14 +512,14 @@ codeunit 99001552 "Subc. Temp Data Initializer" begin if HasSubManagementSetup then exit; - if SubManagementSetup.Get() then + if SubcManagementSetup.Get() then HasSubManagementSetup := true; end; local procedure ClearBOMTables() begin - TempGlobalBOMLine.Reset(); - TempGlobalBOMLine.DeleteAll(); + TempGlobalProductionBOMLine.Reset(); + TempGlobalProductionBOMLine.DeleteAll(); end; local procedure ClearRoutingTables() @@ -530,7 +530,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" local procedure FillProdOrderComponentDefaultBin() var - TempProdOrderRtngLine: Record "Prod. Order Routing Line" temporary; + TempProdOrderRoutingLine: Record "Prod. Order Routing Line" temporary; Item: Record Item; begin Item.SetLoadFields(Type); @@ -539,29 +539,29 @@ codeunit 99001552 "Subc. Temp Data Initializer" if not Item.IsInventoriableType() then exit; - TempProdOrderRtngLine.Copy(TempGlobalProdOrderRtngLine, true); - TempGlobalProdOrderComponent."Bin Code" := TempGlobalProdOrderComponent.GetDefaultConsumptionBin(TempProdOrderRtngLine); + TempProdOrderRoutingLine.Copy(TempProdOrderRoutingLine, true); + TempGlobalProdOrderComponent."Bin Code" := TempGlobalProdOrderComponent.GetDefaultConsumptionBin(TempProdOrderRoutingLine); end; local procedure GetVendor() var Vendor: Record Vendor; begin - if (TempGlobalVendor."No." <> '') and (Vendor."No." = TempGlobalPurchLine."Buy-from Vendor No.") then + if (TempGlobalVendor."No." <> '') and (Vendor."No." = TempGlobalPurchaseLine."Buy-from Vendor No.") then exit; - Vendor.Get(TempGlobalPurchLine."Buy-from Vendor No."); + Vendor.Get(TempGlobalPurchaseLine."Buy-from Vendor No."); TempGlobalVendor := Vendor; end; local procedure PresetComponentLocationCode() var - SubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; ComponentsLocationCode: Code[10]; begin - ComponentsLocationCode := SubcontractingMgmt.GetComponentsLocationCode(TempGlobalPurchLine); + ComponentsLocationCode := SubcontractingManagement.GetComponentsLocationCode(TempGlobalPurchaseLine); - if TempGlobalProdOrderComponent."Routing Link Code" = SubManagementSetup."Rtng. Link Code Purch. Prov." then + if TempGlobalProdOrderComponent."Routing Link Code" = SubcManagementSetup."Rtng. Link Code Purch. Prov." then case TempGlobalProdOrderComponent."Subcontracting Type" of "Subcontracting Type"::InventoryByVendor, "Subcontracting Type"::Purchase: begin @@ -574,7 +574,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" end; if TempGlobalProdOrderComponent."Location Code" = '' then - TempGlobalProdOrderComponent.Validate("Location Code", TempGlobalProdOrder."Location Code"); + TempGlobalProdOrderComponent.Validate("Location Code", TempGlobalProductionOrder."Location Code"); end; /// @@ -585,8 +585,8 @@ codeunit 99001552 "Subc. Temp Data Initializer" procedure SetNewBOMInformation(var TempBOMHeader: Record "Production BOM Header" temporary; var TempBOMLines: Record "Production BOM Line" temporary) begin ClearBOMTables(); - TempGlobalBOMHeader.Copy(TempBOMHeader, true); - TempGlobalBOMLine.Copy(TempBOMLines, true); + TempGlobalProductionBOMHeader.Copy(TempBOMHeader, true); + TempGlobalProductionBOMLine.Copy(TempBOMLines, true); end; /// @@ -618,9 +618,9 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The temporary production order routing lines to copy from. procedure SetNewProdOrderRoutingLine(var TempProdOrderRtngLine: Record "Prod. Order Routing Line" temporary) begin - TempGlobalProdOrderRtngLine.Reset(); - TempGlobalProdOrderRtngLine.DeleteAll(); - TempGlobalProdOrderRtngLine.Copy(TempProdOrderRtngLine, true); + TempGlobalProdOrderRoutingLine.Reset(); + TempGlobalProdOrderRoutingLine.DeleteAll(); + TempGlobalProdOrderRoutingLine.Copy(TempProdOrderRtngLine, true); end; /// @@ -629,9 +629,9 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The temporary production order to copy from. procedure SetNewProdOrder(var TempProdOrder: Record "Production Order" temporary) begin - TempGlobalProdOrder.Reset(); - TempGlobalProdOrder.DeleteAll(); - TempGlobalProdOrder.Copy(TempProdOrder, true); + TempGlobalProductionOrder.Reset(); + TempGlobalProductionOrder.DeleteAll(); + TempGlobalProductionOrder.Copy(TempProdOrder, true); end; /// @@ -640,7 +640,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The source type to set. procedure SetRtngBOMSourceType(SourceType: Enum "Subc. RtngBOMSourceType") begin - RtngBOMSourceType := SourceType; + SubcRtngBOMSourceType := SourceType; end; /// @@ -649,7 +649,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The temporary BOM lines to copy to. procedure GetGlobalBOMLines(var TempBOMLines: Record "Production BOM Line" temporary) begin - TempBOMLines.Copy(TempGlobalBOMLine, true); + TempBOMLines.Copy(TempGlobalProductionBOMLine, true); end; /// @@ -667,7 +667,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The temporary BOM header to copy to. procedure GetGlobalBOMHeader(var TempBOMHeader: Record "Production BOM Header" temporary) begin - TempBOMHeader.Copy(TempGlobalBOMHeader, true); + TempBOMHeader.Copy(TempGlobalProductionBOMHeader, true); end; /// @@ -694,7 +694,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The temporary production order routing lines to copy to. procedure GetGlobalProdOrderRoutingLine(var TempProdOrderRtngLine: Record "Prod. Order Routing Line" temporary) begin - TempProdOrderRtngLine.Copy(TempGlobalProdOrderRtngLine, true); + TempProdOrderRtngLine.Copy(TempGlobalProdOrderRoutingLine, true); end; /// @@ -703,7 +703,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The temporary production order to copy to. procedure GetGlobalProdOrder(var TempProductionOrder: Record "Production Order" temporary) begin - TempProductionOrder.Copy(TempGlobalProdOrder, true); + TempProductionOrder.Copy(TempGlobalProductionOrder, true); end; /// @@ -721,7 +721,7 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The current routing and BOM source type. procedure GetRtngBOMSourceType(): Enum "Subc. RtngBOMSourceType" begin - exit(RtngBOMSourceType); + exit(SubcRtngBOMSourceType); end; /// @@ -730,12 +730,12 @@ codeunit 99001552 "Subc. Temp Data Initializer" /// The temporary purchase line to copy to. procedure GetGlobalPurchLine(var TempPurchaseLine: Record "Purchase Line" temporary) begin - TempPurchaseLine.Copy(TempGlobalPurchLine, true); + TempPurchaseLine.Copy(TempGlobalPurchaseLine, true); end; [InternalEvent(false, false)] - local procedure OnBeforeBuildTemporaryStructureFromBOMRouting(TempDataInitializer: Codeunit "Subc. Temp Data Initializer") + local procedure OnBeforeBuildTemporaryStructureFromBOMRouting(SubcTempDataInitializer: Codeunit "Subc. Temp Data Initializer") begin end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcTempProdOrdBind.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcTempProdOrdBind.Codeunit.al index c5f7f5ddea..d1081b8b2f 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcTempProdOrdBind.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcTempProdOrdBind.Codeunit.al @@ -12,13 +12,13 @@ codeunit 99001554 "Subc. TempProdOrdBind" EventSubscriberInstance = Manual; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Subc. Temp Data Initializer", OnBeforeBuildTemporaryStructureFromBOMRouting, '', false, false)] - local procedure "Sub. Temp Data Initializer_OnBeforeBuildTemporaryStructureFromBOMRouting"(TempDataInitializer: Codeunit "Subc. Temp Data Initializer") + local procedure "Sub. Temp Data Initializer_OnBeforeBuildTemporaryStructureFromBOMRouting"(SubcTempDataInitializer: Codeunit "Subc. Temp Data Initializer") var TempProdOrderLine: Record "Prod. Order Line" temporary; TempRoutingLine: Record "Routing Line" temporary; begin - TempDataInitializer.GetGlobalProdOrderLine(TempProdOrderLine); - TempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); + SubcTempDataInitializer.GetGlobalProdOrderLine(TempProdOrderLine); + SubcTempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); PrepareDummyProdOrderLine(TempProdOrderLine, TempRoutingLine."Routing No."); end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcVersionMgmt.Codeunit.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcVersionMgmt.Codeunit.al index 3593ec2325..a4f2d17d37 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcVersionMgmt.Codeunit.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Codeunits/SubcVersionMgmt.Codeunit.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -15,18 +15,18 @@ codeunit 99001553 "Subc. Version Mgmt." procedure ShowBOMVersionSelection(ProductionBOMNo: Code[20]; var SelectedVersion: Code[20]): Boolean var ProductionBOMVersion: Record "Production BOM Version"; - ProductionBOMVersions: Page "Prod. BOM Version List"; + ProdBOMVersionList: Page "Prod. BOM Version List"; begin if ProductionBOMNo = '' then exit(false); ProductionBOMVersion.SetRange("Production BOM No.", ProductionBOMNo); ProductionBOMVersion.SetRange(Status, "BOM Status"::Certified); - ProductionBOMVersions.SetTableView(ProductionBOMVersion); - ProductionBOMVersions.LookupMode(true); + ProdBOMVersionList.SetTableView(ProductionBOMVersion); + ProdBOMVersionList.LookupMode(true); - if ProductionBOMVersions.RunModal() = Action::LookupOK then begin - ProductionBOMVersions.GetRecord(ProductionBOMVersion); + if ProdBOMVersionList.RunModal() = Action::LookupOK then begin + ProdBOMVersionList.GetRecord(ProductionBOMVersion); SelectedVersion := ProductionBOMVersion."Version Code"; exit(true); end; @@ -37,18 +37,18 @@ codeunit 99001553 "Subc. Version Mgmt." procedure ShowRoutingVersionSelection(RoutingNo: Code[20]; var SelectedVersion: Code[20]): Boolean var RoutingVersion: Record "Routing Version"; - RoutingVersions: Page "Routing Version List"; + RoutingVersionList: Page "Routing Version List"; begin if RoutingNo = '' then exit(false); RoutingVersion.SetRange("Routing No.", RoutingNo); RoutingVersion.SetRange(Status, "Routing Status"::Certified); - RoutingVersions.SetTableView(RoutingVersion); - RoutingVersions.LookupMode(true); + RoutingVersionList.SetTableView(RoutingVersion); + RoutingVersionList.LookupMode(true); - if RoutingVersions.RunModal() = Action::LookupOK then begin - RoutingVersions.GetRecord(RoutingVersion); + if RoutingVersionList.RunModal() = Action::LookupOK then begin + RoutingVersionList.GetRecord(RoutingVersion); SelectedVersion := RoutingVersion."Version Code"; exit(true); end; @@ -92,7 +92,6 @@ codeunit 99001553 "Subc. Version Mgmt." RoutingHeader.SetRange(Status, "Routing Status"::Certified); RoutingList.SetTableView(RoutingHeader); RoutingList.LookupMode(true); - if RoutingList.RunModal() = Action::LookupOK then begin RoutingList.GetRecord(RoutingHeader); SelectedRoutingNo := RoutingHeader."No."; @@ -166,12 +165,12 @@ codeunit 99001553 "Subc. Version Mgmt." procedure GetBOMVersionNoSeries(ProductionBOMNo: Code[20]): Code[20] var - ProductionBOM: Record "Production BOM Header"; + ProductionBOMHeader: Record "Production BOM Header"; begin - ProductionBOM.SetLoadFields("Version Nos."); - ProductionBOM.Get(ProductionBOMNo); - ProductionBOM.TestField("Version Nos."); - exit(ProductionBOM."Version Nos."); + ProductionBOMHeader.SetLoadFields("Version Nos."); + ProductionBOMHeader.Get(ProductionBOMNo); + ProductionBOMHeader.TestField("Version Nos."); + exit(ProductionBOMHeader."Version Nos."); end; procedure GetRoutingVersionNoSeries(RoutingNo: Code[20]): Code[20] diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcPurchProvisionWizard.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcPurchProvisionWizard.Page.al index d491d521eb..add01c1aee 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcPurchProvisionWizard.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcPurchProvisionWizard.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -157,13 +157,13 @@ page 99001505 "Subc. PurchProvisionWizard" begin if CreateBOMVersion then begin SelectedBOMVersion := 'TEMP-VERSION-' + CopyStr(Format(CreateGuid()), 2, 7); - VersionSelectionMgmt.GetBOMVersionNoSeries(SelectedBOMNo) + SubcVersionMgmt.GetBOMVersionNoSeries(SelectedBOMNo) end else begin SelectedBOMVersion := ''; LoadBOMLines(); end; SetBOMRoutingEditable(); - TempDataInitializer.UpdateBOMVersionCode(SelectedBOMVersion); + SubcTempDataInitializer.UpdateBOMVersionCode(SelectedBOMVersion); end; } } @@ -178,7 +178,7 @@ page 99001505 "Subc. PurchProvisionWizard" NewBOMNo: Code[20]; begin NewBOMNo := SelectedBOMNo; - if VersionSelectionMgmt.ShowBOMSelection(NewBOMNo) then + if SubcVersionMgmt.ShowBOMSelection(NewBOMNo) then if NewBOMNo <> SelectedBOMNo then begin SelectedBOMNo := NewBOMNo; SelectedBOMVersion := ''; @@ -195,7 +195,7 @@ page 99001505 "Subc. PurchProvisionWizard" trigger OnAssistEdit() begin - if VersionSelectionMgmt.ShowBOMVersionSelection(SelectedBOMNo, SelectedBOMVersion) then + if SubcVersionMgmt.ShowBOMVersionSelection(SelectedBOMNo, SelectedBOMVersion) then LoadBOMLines(); end; } @@ -237,13 +237,13 @@ page 99001505 "Subc. PurchProvisionWizard" begin if CreateRoutingVersion then begin SelectedRoutingVersion := 'TEMP-VER-' + CopyStr(Format(CreateGuid()), 2, 7); - VersionSelectionMgmt.GetRoutingVersionNoSeries(SelectedRoutingNo) + SubcVersionMgmt.GetRoutingVersionNoSeries(SelectedRoutingNo) end else begin SelectedRoutingVersion := ''; LoadRoutingLines(); end; SetBOMRoutingEditable(); - TempDataInitializer.UpdateRoutingVersionCode(SelectedRoutingVersion); + SubcTempDataInitializer.UpdateRoutingVersionCode(SelectedRoutingVersion); end; } } @@ -258,7 +258,7 @@ page 99001505 "Subc. PurchProvisionWizard" NewRoutingNo: Code[20]; begin NewRoutingNo := SelectedRoutingNo; - if VersionSelectionMgmt.ShowRoutingSelection(NewRoutingNo) then + if SubcVersionMgmt.ShowRoutingSelection(NewRoutingNo) then if NewRoutingNo <> SelectedRoutingNo then begin SelectedRoutingNo := NewRoutingNo; SelectedRoutingVersion := ''; @@ -275,7 +275,7 @@ page 99001505 "Subc. PurchProvisionWizard" trigger OnAssistEdit() begin - if VersionSelectionMgmt.ShowRoutingVersionSelection(SelectedRoutingNo, SelectedRoutingVersion) then + if SubcVersionMgmt.ShowRoutingVersionSelection(SelectedRoutingNo, SelectedRoutingVersion) then LoadRoutingLines(); end; } @@ -381,8 +381,8 @@ page 99001505 "Subc. PurchProvisionWizard" var MediaRepositoryStandard: Record "Media Repository"; MediaResourcesStandard: Record "Media Resources"; - TempDataInitializer: Codeunit "Subc. Temp Data Initializer"; - VersionSelectionMgmt: Codeunit "Subc. Version Mgmt."; + SubcTempDataInitializer: Codeunit "Subc. Temp Data Initializer"; + SubcVersionMgmt: Codeunit "Subc. Version Mgmt."; Finished: Boolean; BomRtngFromSource: Enum "Subc. RtngBOMSourceType"; BomRtngFromSourceTxt: Text; @@ -444,7 +444,7 @@ page 99001505 "Subc. PurchProvisionWizard" /// The temporary data initializer codeunit to use. procedure SetTempDataInitializer(var NewTempDataInitializer: Codeunit "Subc. Temp Data Initializer") begin - TempDataInitializer := NewTempDataInitializer; + SubcTempDataInitializer := NewTempDataInitializer; end; /// @@ -488,10 +488,10 @@ page 99001505 "Subc. PurchProvisionWizard" if SelectedBOMNo = '' then exit; - if not VersionSelectionMgmt.CheckBOMExists(SelectedBOMNo, SelectedBOMVersion) then + if not SubcVersionMgmt.CheckBOMExists(SelectedBOMNo, SelectedBOMVersion) then exit; - TempDataInitializer.LoadBOMLines(SelectedBOMNo, SelectedBOMVersion); + SubcTempDataInitializer.LoadBOMLines(SelectedBOMNo, SelectedBOMVersion); end; local procedure LoadRoutingLines() @@ -499,10 +499,10 @@ page 99001505 "Subc. PurchProvisionWizard" if SelectedRoutingNo = '' then exit; - if not VersionSelectionMgmt.CheckRoutingExists(SelectedRoutingNo, SelectedRoutingVersion) then + if not SubcVersionMgmt.CheckRoutingExists(SelectedRoutingNo, SelectedRoutingVersion) then exit; - TempDataInitializer.LoadRoutingLines(SelectedRoutingNo, SelectedRoutingVersion); + SubcTempDataInitializer.LoadRoutingLines(SelectedRoutingNo, SelectedRoutingVersion); end; local procedure LoadTopBanners() @@ -514,20 +514,20 @@ page 99001505 "Subc. PurchProvisionWizard" local procedure SetBOMDataReference() var - TempBOMLines: Record "Production BOM Line" temporary; + TempProductionBOMLine: Record "Production BOM Line" temporary; begin - TempDataInitializer.GetGlobalBOMLines(TempBOMLines); - CurrPage.BOMLinesPart.Page.SetTemporaryRecords(TempBOMLines); + SubcTempDataInitializer.GetGlobalBOMLines(TempProductionBOMLine); + CurrPage.BOMLinesPart.Page.SetTemporaryRecords(TempProductionBOMLine); - SelectedBOMNo := TempBOMLines."Production BOM No."; - SelectedBOMVersion := TempBOMLines."Version Code"; + SelectedBOMNo := TempProductionBOMLine."Production BOM No."; + SelectedBOMVersion := TempProductionBOMLine."Version Code"; end; local procedure SetRoutingDataReference() var TempRoutingLine: Record "Routing Line" temporary; begin - TempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); + SubcTempDataInitializer.GetGlobalRoutingLines(TempRoutingLine); CurrPage.RoutingLinesPart.Page.SetTemporaryRecords(TempRoutingLine); SelectedRoutingNo := TempRoutingLine."Routing No."; @@ -537,38 +537,38 @@ page 99001505 "Subc. PurchProvisionWizard" local procedure SetProdOrderDataReference() var TempProdOrderComponent: Record "Prod. Order Component" temporary; - TempProdOrderRtngLine: Record "Prod. Order Routing Line" temporary; + TempProdOrderRoutingLine: Record "Prod. Order Routing Line" temporary; begin - TempDataInitializer.GetGlobalProdOrderComponent(TempProdOrderComponent); + SubcTempDataInitializer.GetGlobalProdOrderComponent(TempProdOrderComponent); CurrPage.ComponentsPart.Page.SetTemporaryRecords(TempProdOrderComponent); - TempDataInitializer.GetGlobalProdOrderRoutingLine(TempProdOrderRtngLine); - CurrPage.ProdOrderRoutingPart.Page.SetTemporaryRecords(TempProdOrderRtngLine); + SubcTempDataInitializer.GetGlobalProdOrderRoutingLine(TempProdOrderRoutingLine); + CurrPage.ProdOrderRoutingPart.Page.SetTemporaryRecords(TempProdOrderRoutingLine); end; local procedure SetBOMRoutingEditable() begin - EditBOMLines := not VersionSelectionMgmt.CheckBOMExists(SelectedBOMNo, SelectedBOMVersion) and (BOMRoutingShowEditType = BOMRoutingShowEditType::Edit); - EditRoutingLines := not VersionSelectionMgmt.CheckRoutingExists(SelectedRoutingNo, SelectedRoutingVersion) and (BOMRoutingShowEditType = BOMRoutingShowEditType::Edit); + EditBOMLines := not SubcVersionMgmt.CheckBOMExists(SelectedBOMNo, SelectedBOMVersion) and (BOMRoutingShowEditType = BOMRoutingShowEditType::Edit); + EditRoutingLines := not SubcVersionMgmt.CheckRoutingExists(SelectedRoutingNo, SelectedRoutingVersion) and (BOMRoutingShowEditType = BOMRoutingShowEditType::Edit); - CreateBOMVersionVisible := VersionSelectionMgmt.CheckBOMExists(SelectedBOMNo, '') and (BOMRoutingShowEditType = BOMRoutingShowEditType::Edit); - CreateRoutingVersionVisible := VersionSelectionMgmt.CheckRoutingExists(SelectedRoutingNo, '') and (BOMRoutingShowEditType = BOMRoutingShowEditType::Edit); + CreateBOMVersionVisible := SubcVersionMgmt.CheckBOMExists(SelectedBOMNo, '') and (BOMRoutingShowEditType = BOMRoutingShowEditType::Edit); + CreateRoutingVersionVisible := SubcVersionMgmt.CheckRoutingExists(SelectedRoutingNo, '') and (BOMRoutingShowEditType = BOMRoutingShowEditType::Edit); end; local procedure SetShowEditOptionsEnabled() var - SubManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; begin - SubManagementSetup.SetLoadFields(AllowEditUISelection); - SubManagementSetup.Get(); - ShowEditOptionsEnabled := SubManagementSetup.AllowEditUISelection; + SubcManagementSetup.SetLoadFields(AllowEditUISelection); + SubcManagementSetup.Get(); + ShowEditOptionsEnabled := SubcManagementSetup.AllowEditUISelection; end; local procedure SetProdOrderPresetValuesInSubpages() var PresetBOMValues, PresetRoutingValues : Boolean; begin - PresetBOMValues := not VersionSelectionMgmt.CheckBOMExists(SelectedBOMNo, ''); - PresetRoutingValues := not VersionSelectionMgmt.CheckRoutingExists(SelectedRoutingNo, ''); + PresetBOMValues := not SubcVersionMgmt.CheckBOMExists(SelectedBOMNo, ''); + PresetRoutingValues := not SubcVersionMgmt.CheckRoutingExists(SelectedRoutingNo, ''); CurrPage.ComponentsPart.Page.SetPresetSubValues(PresetBOMValues); CurrPage.ProdOrderRoutingPart.Page.SetPresetSubValues(PresetRoutingValues); end; @@ -598,7 +598,7 @@ page 99001505 "Subc. PurchProvisionWizard" case Step of Step::Components: begin - TempDataInitializer.BuildTemporaryStructureFromBOMRouting(); + SubcTempDataInitializer.BuildTemporaryStructureFromBOMRouting(); SetProdOrderPresetValuesInSubpages(); end; end; @@ -686,7 +686,7 @@ page 99001505 "Subc. PurchProvisionWizard" var SetupSourceLbl: Label 'Subcontracting Management Setup'; begin - BomRtngFromSource := TempDataInitializer.GetRtngBOMSourceType(); + BomRtngFromSource := SubcTempDataInitializer.GetRtngBOMSourceType(); case BomRtngFromSource of "Subc. RtngBOMSourceType"::Empty: BomRtngFromSourceTxt := SetupSourceLbl; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempBOMLines.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempBOMLines.Page.al index 251d28b25f..39a21d3199 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempBOMLines.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempBOMLines.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -86,7 +86,7 @@ page 99001506 "Subc. Temp BOM Lines" if (Rec."Routing Link Code" = '') and (Rec."Subcontracting Type" <> Rec."Subcontracting Type"::Empty) then begin GetSubManagementSetup(); - Rec."Routing Link Code" := SubManagementSetup."Rtng. Link Code Purch. Prov."; + Rec."Routing Link Code" := SubcManagementSetup."Rtng. Link Code Purch. Prov."; end; end; } @@ -105,11 +105,11 @@ page 99001506 "Subc. Temp BOM Lines" Rec."Routing Link Code" := xRec."Routing Link Code"; Rec."Subcontracting Type" := xRec."Subcontracting Type"; GetSubManagementSetup(); - Rec."Routing Link Code" := SubManagementSetup."Rtng. Link Code Purch. Prov."; + Rec."Routing Link Code" := SubcManagementSetup."Rtng. Link Code Purch. Prov."; end; var - SubManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; SubManagementSetupRead: Boolean; procedure SetTemporaryRecords(var TempProductionBOMLine: Record "Production BOM Line" temporary) @@ -120,8 +120,8 @@ page 99001506 "Subc. Temp BOM Lines" local procedure GetSubManagementSetup() begin if not SubManagementSetupRead then begin - SubManagementSetup.SetLoadFields("Rtng. Link Code Purch. Prov."); - SubManagementSetup.Get(); + SubcManagementSetup.SetLoadFields("Rtng. Link Code Purch. Prov."); + SubcManagementSetup.Get(); SubManagementSetupRead := true; end; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempProdOrdRtngLines.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempProdOrdRtngLines.Page.al index a7a08cc115..2dad6e51fa 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempProdOrdRtngLines.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempProdOrdRtngLines.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -99,8 +99,8 @@ page 99001509 "Subc. TempProdOrdRtngLines" if PresetSubValues then begin GetSubManagementSetup(); - Rec."Routing Link Code" := SubManagementSetup."Rtng. Link Code Purch. Prov."; - Rec."Flushing Method" := SubManagementSetup."Def. provision flushing method"; + Rec."Routing Link Code" := SubcManagementSetup."Rtng. Link Code Purch. Prov."; + Rec."Flushing Method" := SubcManagementSetup."Def. provision flushing method"; end; end; @@ -108,7 +108,7 @@ page 99001509 "Subc. TempProdOrdRtngLines" LinesChanged: Boolean; var - SubManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; PresetSubValues: Boolean; SubManagementSetupRead: Boolean; @@ -151,8 +151,8 @@ page 99001509 "Subc. TempProdOrdRtngLines" local procedure GetSubManagementSetup() begin if not SubManagementSetupRead then begin - SubManagementSetup.SetLoadFields("Rtng. Link Code Purch. Prov.", "Def. provision flushing method"); - SubManagementSetup.Get(); + SubcManagementSetup.SetLoadFields("Rtng. Link Code Purch. Prov.", "Def. provision flushing method"); + SubcManagementSetup.Get(); SubManagementSetupRead := true; end; end; 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 25ebf7af39..d524718d86 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -80,11 +80,11 @@ page 99001508 "Subc. Temp Prod Order Comp" if (Rec."Routing Link Code" = '') and (Rec."Subcontracting Type" <> Rec."Subcontracting Type"::Empty) then begin GetSubManagementSetup(); - Rec."Routing Link Code" := SubManagementSetup."Rtng. Link Code Purch. Prov."; + Rec."Routing Link Code" := SubcManagementSetup."Rtng. Link Code Purch. Prov."; end; if Rec."Subcontracting Type" <> Rec."Subcontracting Type"::Transfer then - Rec.Validate("Location Code", CopyStr(SingleInstance.GetCode('SetSubcontractingLocationCodeFromVendor'), 1, MaxStrLen(Rec."Location Code"))) + Rec.Validate("Location Code", CopyStr(SingleInstanceDictionary.GetCode('SetSubcontractingLocationCodeFromVendor'), 1, MaxStrLen(Rec."Location Code"))) else Rec.Validate("Location Code", Rec."Orig. Location Code"); end; @@ -109,8 +109,8 @@ page 99001508 "Subc. Temp Prod Order Comp" if PresetSubValues then begin GetSubManagementSetup(); - Rec."Routing Link Code" := SubManagementSetup."Rtng. Link Code Purch. Prov."; - Rec."Flushing Method" := SubManagementSetup."Def. provision flushing method"; + Rec."Routing Link Code" := SubcManagementSetup."Rtng. Link Code Purch. Prov."; + Rec."Flushing Method" := SubcManagementSetup."Def. provision flushing method"; end; end; @@ -138,8 +138,8 @@ page 99001508 "Subc. Temp Prod Order Comp" LinesChanged: Boolean; var - SubManagementSetup: Record "Subc. Management Setup"; - SingleInstance: Codeunit "Single Instance Dictionary"; + SubcManagementSetup: Record "Subc. Management Setup"; + SingleInstanceDictionary: Codeunit "Single Instance Dictionary"; PresetSubValues: Boolean; SubManagementSetupRead: Boolean; @@ -162,8 +162,8 @@ page 99001508 "Subc. Temp Prod Order Comp" local procedure GetSubManagementSetup() begin if not SubManagementSetupRead then begin - SubManagementSetup.SetLoadFields("Rtng. Link Code Purch. Prov.", "Def. provision flushing method"); - SubManagementSetup.Get(); + SubcManagementSetup.SetLoadFields("Rtng. Link Code Purch. Prov.", "Def. provision flushing method"); + SubcManagementSetup.Get(); SubManagementSetupRead := true; end; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempRoutingLines.Page.al b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempRoutingLines.Page.al index 3ba6718e29..818c15c943 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempRoutingLines.Page.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Prod Order Creation Wizard/Pages/SubcTempRoutingLines.Page.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -80,7 +80,7 @@ page 99001507 "Subc. Temp Routing Lines" Rec."Routing No." := xRec."Routing No."; Rec."Version Code" := xRec."Version Code"; if Rec."Version Code" = '' then - Rec."Routing Link Code" := SubManagementSetup."Rtng. Link Code Purch. Prov."; + Rec."Routing Link Code" := SubcManagementSetup."Rtng. Link Code Purch. Prov."; end; procedure SetTemporaryRecords(var TempRoutingLine: Record "Routing Line" temporary) @@ -89,5 +89,5 @@ page 99001507 "Subc. Temp Routing Lines" end; var - SubManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; } diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateProdRouting.Report.al b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateProdRouting.Report.al index 35218460ef..5e585f3d2a 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateProdRouting.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcCreateProdRouting.Report.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -67,7 +67,7 @@ report 99001503 "Subc. Create Prod. Routing" trigger OnPreDataItem() var - ConfirmMgt: Codeunit "Confirm Management"; + ConfirmManagement: Codeunit "Confirm Management"; ConfirmBOMQst: Label 'Do you really want to create BOMs for %1 items?', Comment = '%1=Number of Items'; ConfirmBothQst: Label 'Do you really want to create routings and BOMs for %1 items?', Comment = '%1=Number of Items'; ConfirmRoutingQst: Label 'Do you really want to create routings for %1 items?', Comment = '%1=Number of Items'; @@ -79,14 +79,14 @@ report 99001503 "Subc. Create Prod. Routing" ItemCount := Item.Count(); if ItemCount > 1 then if CreateProdBOM and CreateRouting then begin - if not ConfirmMgt.GetResponse(StrSubstNo(ConfirmBothQst, ItemCount), true) then + if not ConfirmManagement.GetResponse(StrSubstNo(ConfirmBothQst, ItemCount), true) then Error(''); end else begin if CreateProdBOM then - if not ConfirmMgt.GetResponse(StrSubstNo(ConfirmBOMQst, ItemCount), true) then + if not ConfirmManagement.GetResponse(StrSubstNo(ConfirmBOMQst, ItemCount), true) then Error(''); if CreateRouting then - if not ConfirmMgt.GetResponse(StrSubstNo(ConfirmRoutingQst, ItemCount), true) then + if not ConfirmManagement.GetResponse(StrSubstNo(ConfirmRoutingQst, ItemCount), true) then Error(''); end; end; @@ -158,7 +158,7 @@ report 99001503 "Subc. Create Prod. Routing" local procedure HandleProductionBOM(var CurrentItem: Record Item) var - ProdBOMHeader: Record "Production BOM Header"; + ProductionBOMHeader: Record "Production BOM Header"; CreateBOMLbl: Label 'Create Production BOM.'; ProdBOMCreatedMsg: Label 'Production BOM %1 was created for item %2.', Comment = '%1=Production BOM No., %2=Item No.'; ProdBOMExistsMsg: Label 'Production BOM %1 already exists.', Comment = '%1=Production BOM No.'; @@ -169,15 +169,15 @@ report 99001503 "Subc. Create Prod. Routing" if CurrentItem."Production BOM No." = '' then begin if CurrentItem."Production BOM No." = '' then begin - ProdBOMHeader.Init(); - ProdBOMHeader."No." := GetNextNo(NextNoType::ProdBOM); - ProdBOMHeader.Validate(Description, CurrentItem.Description); - ProdBOMHeader."Description 2" := CurrentItem."Description 2"; - ProdBOMHeader."Unit of Measure Code" := CurrentItem."Base Unit of Measure"; - if ProdBOMHeader.Insert(true) then begin - CurrentItem."Production BOM No." := ProdBOMHeader."No."; + ProductionBOMHeader.Init(); + ProductionBOMHeader."No." := GetNextNo(NextNoType::ProdBOM); + ProductionBOMHeader.Validate(Description, CurrentItem.Description); + ProductionBOMHeader."Description 2" := CurrentItem."Description 2"; + ProductionBOMHeader."Unit of Measure Code" := CurrentItem."Base Unit of Measure"; + if ProductionBOMHeader.Insert(true) then begin + CurrentItem."Production BOM No." := ProductionBOMHeader."No."; CurrentItem.Modify(); - StatusProdBOMList.Add(StrSubstNo(ProdBOMCreatedMsg, ProdBOMHeader."No.", CurrentItem."No.")); + StatusProdBOMList.Add(StrSubstNo(ProdBOMCreatedMsg, ProductionBOMHeader."No.", CurrentItem."No.")); end; end end else 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 e7e17652ae..350eebe415 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -66,11 +66,10 @@ report 99001502 "Subc. Create SubCReturnOrder" end; var - SubcontractingMgmtSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; TransferHeader: Record "Transfer Header"; TransferLine: Record "Transfer Line"; Vendor: Record Vendor; - SubcontractingMgt: Codeunit "Subcontracting Management"; PurchOrderNo: Code[20]; LineNum: Integer; ComponentsDoesNotExistErr: Label 'Components to return from subcontractor do not exist.'; @@ -81,11 +80,11 @@ report 99001502 "Subc. Create SubCReturnOrder" local procedure InsertTransferHeader(SubcontractingType: Enum "Subcontracting Type"; OrigCompLineLocation: Code[10]) var - SubSubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; TransferFromLocationCode, TransferToLocationCode : Code[10]; begin - if not SubcontractingMgmtSetup.Get() then - Clear(SubcontractingMgmtSetup); + if not SubcManagementSetup.Get() then + Clear(SubcManagementSetup); GetTransferFromLocationCode(TransferFromLocationCode); GetTransferToLocationCode(TransferToLocationCode, SubcontractingType); @@ -106,8 +105,8 @@ report 99001502 "Subc. Create SubCReturnOrder" TransferHeader.Validate("Transfer-from Code", TransferFromLocationCode); TransferHeader.Validate("Transfer-to Code", OrigCompLineLocation); - if SubcontractingMgmtSetup."Direct Transfer" then begin - SubSubcontractingMgmt.CheckDirectTransferIsAllowedForTransferHeader(TransferHeader); + if SubcManagementSetup."Direct Transfer" then begin + SubcontractingManagement.CheckDirectTransferIsAllowedForTransferHeader(TransferHeader); TransferHeader.Validate("Direct Transfer Posting", "Direct Transfer Post. Type"::"Direct Transfer"); end; @@ -139,19 +138,19 @@ report 99001502 "Subc. Create SubCReturnOrder" local procedure CheckExistComponent(): Boolean var - PurchLine: Record "Purchase Line"; + PurchaseLine: Record "Purchase Line"; QtyToPost: Decimal; begin - PurchLine.SetCurrentKey("Document Type", Type, "Prod. Order No.", "Prod. Order Line No.", "Routing No.", "Operation No."); - PurchLine.SetRange("Document No.", PurchOrderNo); - PurchLine.SetFilter("Prod. Order No.", '<>'''''); - PurchLine.SetFilter("Prod. Order Line No.", '<>0'); - PurchLine.SetFilter("Operation No.", '<>0'); - if PurchLine.FindSet() then + PurchaseLine.SetCurrentKey("Document Type", Type, "Prod. Order No.", "Prod. Order Line No.", "Routing No.", "Operation No."); + PurchaseLine.SetRange("Document No.", PurchOrderNo); + PurchaseLine.SetFilter("Prod. Order No.", '<>'''''); + PurchaseLine.SetFilter("Prod. Order Line No.", '<>0'); + PurchaseLine.SetFilter("Operation No.", '<>0'); + if PurchaseLine.FindSet() then repeat - if HandleSubcontractingForPurchLine(PurchLine, false, QtyToPost) then + if HandleSubcontractingForPurchLine(PurchaseLine, false, QtyToPost) then exit(true); - until PurchLine.Next() = 0; + until PurchaseLine.Next() = 0; exit(false); end; @@ -162,8 +161,9 @@ report 99001502 "Subc. Create SubCReturnOrder" ProdOrderComponent: Record "Prod. Order Component"; ProdOrderLine: Record "Prod. Order Line"; ProdOrderRoutingLine: Record "Prod. Order Routing Line"; - CostCalcMgt: Codeunit "Mfg. Cost Calculation Mgt."; - UOMMgt: Codeunit "Unit of Measure Management"; + MfgCostCalculationMgt: Codeunit "Mfg. Cost Calculation Mgt."; + SubcontractingManagement: Codeunit "Subcontracting Management"; + UnitofMeasureManagement: Codeunit "Unit of Measure Management"; QtyPerUom: Decimal; begin if not ProdOrderLine.Get(ProdOrderLine.Status::Released, PurchLine."Prod. Order No.", PurchLine."Prod. Order Line No.") then @@ -176,7 +176,7 @@ report 99001502 "Subc. Create SubCReturnOrder" Item.SetLoadFields("Base Unit of Measure", "Rounding Precision"); Item.Get(PurchLine."No."); - QtyPerUom := UOMMgt.GetQtyPerUnitOfMeasure(Item, PurchLine."Unit of Measure Code"); + QtyPerUom := UnitofMeasureManagement.GetQtyPerUnitOfMeasure(Item, PurchLine."Unit of Measure Code"); ProdOrderComponent.SetCurrentKey(Status, "Prod. Order No.", "Routing Link Code"); ProdOrderComponent.SetRange(Status, ProdOrderComponent.Status::Released); @@ -189,8 +189,8 @@ report 99001502 "Subc. Create SubCReturnOrder" CheckTransferLineExists(); repeat Item.Get(ProdOrderComponent."Item No."); - QtyToPost := CostCalcMgt.CalcActNeededQtyBase(ProdOrderLine, ProdOrderComponent, - Round(PurchLine."Outstanding Quantity" * QtyPerUom, UOMMgt.QtyRndPrecision())); + QtyToPost := MfgCostCalculationMgt.CalcActNeededQtyBase(ProdOrderLine, ProdOrderComponent, + Round(PurchLine."Outstanding Quantity" * QtyPerUom, UnitofMeasureManagement.QtyRndPrecision())); ProdOrderComponent.CalcFields("Qty. in Transit (Base)", "Qty. transf. to Subcontr"); if QtyToPost > (Abs(ProdOrderComponent."Qty. in Transit (Base)") + Abs(ProdOrderComponent."Qty. transf. to Subcontr")) then QtyToPost := (Abs(ProdOrderComponent."Qty. in Transit (Base)") + Abs(ProdOrderComponent."Qty. transf. to Subcontr")); @@ -217,7 +217,7 @@ report 99001502 "Subc. Create SubCReturnOrder" TransferLine.Insert(); - SubcontractingMgt.TransferReservationEntryFromProdOrderCompToTransferOrder(TransferLine, ProdOrderComponent); + SubcontractingManagement.TransferReservationEntryFromProdOrderCompToTransferOrder(TransferLine, ProdOrderComponent); if ProdOrderComponent."Orig. Location Code" = '' then ProdOrderComponent."Orig. Location Code" := ProdOrderComponent."Location Code"; @@ -229,7 +229,7 @@ report 99001502 "Subc. Create SubCReturnOrder" end; ProdOrderComponent.Modify(); - SubcontractingMgt.CreateReservEntryForTransferReceiptToProdOrderComp(TransferLine, ProdOrderComponent); + SubcontractingManagement.CreateReservEntryForTransferReceiptToProdOrderComp(TransferLine, ProdOrderComponent); end else exit(true); until ProdOrderComponent.Next() = 0; @@ -266,14 +266,14 @@ report 99001502 "Subc. Create SubCReturnOrder" local procedure GetTransferToLocationCode(var TransferFromLocationCode: Code[10]; SubcontractingType: Enum "Subcontracting Type") var - CompanyInfo: Record "Company Information"; + CompanyInformation: Record "Company Information"; ManufacturingSetup: Record "Manufacturing Setup"; begin if SubcontractingType = "Subcontracting Type"::Purchase then TransferFromLocationCode := "Purchase Line"."Location Code" else begin - SubcontractingMgmtSetup.TestField("Component at Location"); - case SubcontractingMgmtSetup."Component at Location" of + SubcManagementSetup.TestField("Component at Location"); + case SubcManagementSetup."Component at Location" of "Components at Location"::Purchase: begin "Purchase Line".TestField("Location Code"); @@ -281,9 +281,9 @@ report 99001502 "Subc. Create SubCReturnOrder" end; "Components at Location"::Company: begin - CompanyInfo.Get(); - CompanyInfo.TestField("Location Code"); - TransferFromLocationCode := CompanyInfo."Location Code"; + CompanyInformation.Get(); + CompanyInformation.TestField("Location Code"); + TransferFromLocationCode := CompanyInformation."Location Code"; end; "Components at Location"::Manufacturing: begin 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 d5d6d68feb..5f6033fe2b 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -62,11 +62,10 @@ report 99001501 "Subc. Create Transf. Order" end; var - SubcontractingMgmtSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; TransferHeader: Record "Transfer Header"; TransferLine: Record "Transfer Line"; Vendor: Record Vendor; - SubcontractingMgt: Codeunit "Subcontracting Management"; PurchOrderNo: Code[20]; LineNum: Integer; ComponentsDoesNotExistErr: Label 'Components to send to subcontractor do not exist.'; @@ -76,11 +75,11 @@ report 99001501 "Subc. Create Transf. Order" local procedure InsertTransferHeader(CompLineLocation: Code[10]) var - SubSubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; TransferToLocationCode: Code[10]; begin - if not SubcontractingMgmtSetup.Get() then - Clear(SubcontractingMgmtSetup); + if not SubcManagementSetup.Get() then + Clear(SubcManagementSetup); GetTransferToLocationCode(TransferToLocationCode); @@ -98,8 +97,8 @@ report 99001501 "Subc. Create Transf. Order" TransferHeader.Insert(true); TransferHeader.Validate("Transfer-from Code", CompLineLocation); TransferHeader.Validate("Transfer-to Code", TransferToLocationCode); - if SubcontractingMgmtSetup."Direct Transfer" then begin - SubSubcontractingMgmt.CheckDirectTransferIsAllowedForTransferHeader(TransferHeader); + if SubcManagementSetup."Direct Transfer" then begin + SubcontractingManagement.CheckDirectTransferIsAllowedForTransferHeader(TransferHeader); TransferHeader.Validate("Direct Transfer Posting", "Direct Transfer Post. Type"::"Direct Transfer"); end; @@ -132,18 +131,18 @@ report 99001501 "Subc. Create Transf. Order" local procedure CheckExistComponent(): Boolean var - PurchLine: Record "Purchase Line"; + PurchaseLine: Record "Purchase Line"; begin - PurchLine.SetCurrentKey("Document Type", Type, "Prod. Order No.", "Prod. Order Line No.", "Routing No.", "Operation No."); - PurchLine.SetRange("Document No.", PurchOrderNo); - PurchLine.SetFilter("Prod. Order No.", '<>'''''); - PurchLine.SetFilter("Prod. Order Line No.", '<>0'); - PurchLine.SetFilter("Operation No.", '<>0'); - if PurchLine.FindSet() then + PurchaseLine.SetCurrentKey("Document Type", Type, "Prod. Order No.", "Prod. Order Line No.", "Routing No.", "Operation No."); + PurchaseLine.SetRange("Document No.", PurchOrderNo); + PurchaseLine.SetFilter("Prod. Order No.", '<>'''''); + PurchaseLine.SetFilter("Prod. Order Line No.", '<>0'); + PurchaseLine.SetFilter("Operation No.", '<>0'); + if PurchaseLine.FindSet() then repeat - if HandleSubcontractingForPurchLine(PurchLine, false) then + if HandleSubcontractingForPurchLine(PurchaseLine, false) then exit(true); - until PurchLine.Next() = 0; + until PurchaseLine.Next() = 0; exit(false); end; @@ -154,9 +153,10 @@ report 99001501 "Subc. Create Transf. Order" ProdOrderComponent: Record "Prod. Order Component"; ProdOrderLine: Record "Prod. Order Line"; ProdOrderRoutingLine: Record "Prod. Order Routing Line"; - CostCalcMgt: Codeunit "Mfg. Cost Calculation Mgt."; - SubProdOrderCompReserve: Codeunit "Subc. Prod. Ord. Comp. Res."; - UOMMgt: Codeunit "Unit of Measure Management"; + MfgCostCalculationMgt: Codeunit "Mfg. Cost Calculation Mgt."; + SubcontractingManagement: Codeunit "Subcontracting Management"; + SubcProdOrdCompRes: Codeunit "Subc. Prod. Ord. Comp. Res."; + UnitofMeasureManagement: Codeunit "Unit of Measure Management"; TransferFromLocationCode: Code[10]; QtyPerUom: Decimal; QtyToPost: Decimal; @@ -171,7 +171,7 @@ report 99001501 "Subc. Create Transf. Order" Item.SetLoadFields("Base Unit of Measure", "Rounding Precision"); Item.Get(PurchLine."No."); - QtyPerUom := UOMMgt.GetQtyPerUnitOfMeasure(Item, PurchLine."Unit of Measure Code"); + QtyPerUom := UnitofMeasureManagement.GetQtyPerUnitOfMeasure(Item, PurchLine."Unit of Measure Code"); ProdOrderComponent.SetCurrentKey(Status, "Prod. Order No.", "Routing Link Code"); ProdOrderComponent.SetRange(Status, "Production Order Status"::Released); @@ -184,7 +184,7 @@ report 99001501 "Subc. Create Transf. Order" repeat Item.SetLoadFields("Rounding Precision", "Order Tracking Policy"); Item.Get(ProdOrderComponent."Item No."); - QtyToPost := CostCalcMgt.CalcActNeededQtyBase(ProdOrderLine, ProdOrderComponent, Round(PurchLine.Quantity * QtyPerUom, UOMMgt.QtyRndPrecision())); + QtyToPost := MfgCostCalculationMgt.CalcActNeededQtyBase(ProdOrderLine, ProdOrderComponent, Round(PurchLine.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)" + @@ -216,7 +216,7 @@ report 99001501 "Subc. Create Transf. Order" TransferLine.Validate(Quantity, Round(QtyToPost / ProdOrderComponent."Qty. per Unit of Measure", Item."Rounding Precision", '>')); if ProdOrderComponent."Due Date" <> 0D then - TransferLine.Validate("Receipt Date", SubcontractingMgt.CalcReceiptDateFromProdCompDueDateWithInbWhseHandlingTime(ProdOrderComponent)); + TransferLine.Validate("Receipt Date", SubcontractingManagement.CalcReceiptDateFromProdCompDueDateWithInbWhseHandlingTime(ProdOrderComponent)); TransferLine."Subcontr. Purch. Order No." := PurchLine."Document No."; TransferLine."Subcontr. PO Line No." := PurchLine."Line No."; @@ -234,20 +234,20 @@ report 99001501 "Subc. Create Transf. Order" if ProdOrderComponent."Orig. Bin Code" = '' then ProdOrderComponent."Orig. Bin Code" := ProdOrderComponent."Bin Code"; - SubcontractingMgt.TransferReservationEntryFromProdOrderCompToTransferOrder(TransferLine, ProdOrderComponent); + SubcontractingManagement.TransferReservationEntryFromProdOrderCompToTransferOrder(TransferLine, ProdOrderComponent); if TransferHeader."Transfer-to Code" <> ProdOrderComponent."Location Code" then begin if Item."Order Tracking Policy" = Item."Order Tracking Policy"::None then ProdOrderComponent.Validate("Location Code", TransferHeader."Transfer-to Code") else begin - BindSubscription(SubProdOrderCompReserve); + BindSubscription(SubcProdOrdCompRes); ProdOrderComponent.Validate("Location Code", TransferHeader."Transfer-to Code"); - UnbindSubscription(SubProdOrderCompReserve); + UnbindSubscription(SubcProdOrdCompRes); end; ProdOrderComponent.GetDefaultBin(); end; ProdOrderComponent.Modify(); - SubcontractingMgt.CreateReservEntryForTransferReceiptToProdOrderComp(TransferLine, ProdOrderComponent); + SubcontractingManagement.CreateReservEntryForTransferReceiptToProdOrderComp(TransferLine, ProdOrderComponent); end else exit(true); until ProdOrderComponent.Next() = 0; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcDetailedCalculation.Report.al b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcDetailedCalculation.Report.al index b4e1881c9e..c0b586b781 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcDetailedCalculation.Report.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Reports/SubcDetailedCalculation.Report.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -135,9 +135,9 @@ report 99001500 "Subc. Detailed Calculation" } trigger OnAfterGetRecord() var - SubcPrices: Record "Subcontractor Price"; + SubcontractorPrice: Record "Subcontractor Price"; WorkCenter: Record "Work Center"; - SubcontractingPriceMgt: Codeunit "Subc. Price Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; UnitCostCalculationType: Enum "Unit Cost Calculation Type"; begin ProdUnitCost := "Unit Cost per"; @@ -147,16 +147,16 @@ report 99001500 "Subc. Detailed Calculation" if ("Routing Line".Type = "Routing Line".Type::"Work Center") and (WorkCenter."Subcontractor No." <> '') then begin - SubcPrices."Vendor No." := WorkCenter."Subcontractor No."; - SubcPrices."Item No." := Item."No."; - SubcPrices."Standard Task Code" := "Routing Line"."Standard Task Code"; - SubcPrices."Work Center No." := WorkCenter."No."; - SubcPrices."Variant Code" := ''; - SubcPrices."Unit of Measure Code" := Item."Base Unit of Measure"; - SubcPrices."Starting Date" := CalculateDate; - SubcPrices."Currency Code" := ''; - SubcontractingPriceMgt.SetRoutingPriceListCost( - SubcPrices, + SubcontractorPrice."Vendor No." := WorkCenter."Subcontractor No."; + SubcontractorPrice."Item No." := Item."No."; + SubcontractorPrice."Standard Task Code" := "Routing Line"."Standard Task Code"; + SubcontractorPrice."Work Center No." := WorkCenter."No."; + SubcontractorPrice."Variant Code" := ''; + SubcontractorPrice."Unit of Measure Code" := Item."Base Unit of Measure"; + SubcontractorPrice."Starting Date" := CalculateDate; + SubcontractorPrice."Currency Code" := ''; + SubcPriceManagement.SetRoutingPriceListCost( + SubcontractorPrice, WorkCenter, DirectUnitCost, IndirectCostPct, @@ -167,7 +167,7 @@ report 99001500 "Subc. Detailed Calculation" 1, 1); end else - CostCalcMgt.CalcRoutingCostPerUnit( + MfgCostCalculationMgt.CalcRoutingCostPerUnit( Type, "No.", DirectUnitCost, @@ -175,12 +175,12 @@ report 99001500 "Subc. Detailed Calculation" OverheadRate, ProdUnitCost, UnitCostCalculationType); CostTime := - CostCalcMgt.CalculateCostTime( - CostCalcMgt.CalcQtyAdjdForBOMScrap(Item."Lot Size", Item."Scrap %"), + MfgCostCalculationMgt.CalculateCostTime( + MfgCostCalculationMgt.CalcQtyAdjdForBOMScrap(Item."Lot Size", Item."Scrap %"), "Setup Time", "Setup Time Unit of Meas. Code", "Run Time", "Run Time Unit of Meas. Code", "Lot Size", "Scrap Factor % (Accumulated)", "Fixed Scrap Qty. (Accum.)", - "Work Center No.", UnitCostCalculationType, MfgSetup."Cost Incl. Setup", + "Work Center No.", UnitCostCalculationType, ManufacturingSetup."Cost Incl. Setup", "Concurrent Capacities") / Item."Lot Size"; @@ -275,12 +275,12 @@ report 99001500 "Subc. Detailed Calculation" if Level = 1 then UOMFactor := - UOMMgt.GetQtyPerUnitOfMeasure(Item, VersionMgt.GetBOMUnitOfMeasure(PBOMNoList[Level], PBOMVersionCode[Level])) + UnitofMeasureManagement.GetQtyPerUnitOfMeasure(Item, VersionManagement.GetBOMUnitOfMeasure(PBOMNoList[Level], PBOMVersionCode[Level])) else UOMFactor := 1; CompItemQtyBase := - CostCalcMgt.CalcCompItemQtyBase(ProdBOMLine[Level], CalculateDate, Quantity[Level], Item."Routing No.", Level = 1) / + MfgCostCalculationMgt.CalcCompItemQtyBase(ProdBOMLine[Level], CalculateDate, Quantity[Level], Item."Routing No.", Level = 1) / UOMFactor; case ProdBOMLine[Level].Type of @@ -297,7 +297,7 @@ report 99001500 "Subc. Detailed Calculation" Clear(ProdBOMLine[NextLevel]); PBOMNoList[NextLevel] := ProdBOMLine[Level]."No."; PBOMVersionCode[NextLevel] := - VersionMgt.GetBOMVersion(ProdBOMLine[Level]."No.", CalculateDate, false); + VersionManagement.GetBOMVersion(ProdBOMLine[Level]."No.", CalculateDate, false); ProdBOMLine[NextLevel].SetRange("Production BOM No.", PBOMNoList[NextLevel]); ProdBOMLine[NextLevel].SetRange("Version Code", PBOMVersionCode[NextLevel]); ProdBOMLine[NextLevel].SetFilter("Starting Date", '%1|..%2', 0D, CalculateDate); @@ -321,7 +321,7 @@ report 99001500 "Subc. Detailed Calculation" Clear(CostTotal); Level := 1; - ProdBOMHeader.Get(PBOMNoList[Level]); + ProductionBOMHeader.Get(PBOMNoList[Level]); Clear(ProdBOMLine); ProdBOMLine[Level].SetRange("Production BOM No.", PBOMNoList[Level]); @@ -329,7 +329,7 @@ report 99001500 "Subc. Detailed Calculation" ProdBOMLine[Level].SetFilter("Starting Date", '%1|..%2', 0D, CalculateDate); ProdBOMLine[Level].SetFilter("Ending Date", '%1|%2..', 0D, CalculateDate); - Quantity[Level] := CostCalcMgt.CalcQtyAdjdForBOMScrap(Item."Lot Size", Item."Scrap %"); + Quantity[Level] := MfgCostCalculationMgt.CalcQtyAdjdForBOMScrap(Item."Lot Size", Item."Scrap %"); InBOM := true; end; @@ -394,10 +394,10 @@ report 99001500 "Subc. Detailed Calculation" if "Production BOM No." <> '' then PBOMVersionCode[1] := - VersionMgt.GetBOMVersion("Production BOM No.", CalculateDate, false); + VersionManagement.GetBOMVersion("Production BOM No.", CalculateDate, false); if "Routing No." <> '' then - RtngVersionCode := VersionMgt.GetRtngVersion("Routing No.", CalculateDate, false); + RtngVersionCode := VersionManagement.GetRtngVersion("Routing No.", CalculateDate, false); SingleLevelMfgOvhd := Item."Single-Level Mfg. Ovhd Cost"; @@ -439,17 +439,17 @@ report 99001500 "Subc. Detailed Calculation" } trigger OnInitReport() begin - MfgSetup.Get(); + ManufacturingSetup.Get(); end; var CompItem: Record Item; - MfgSetup: Record "Manufacturing Setup"; - ProdBOMHeader: Record "Production BOM Header"; + ManufacturingSetup: Record "Manufacturing Setup"; + ProductionBOMHeader: Record "Production BOM Header"; ProdBOMLine: array[99] of Record "Production BOM Line"; - CostCalcMgt: Codeunit "Mfg. Cost Calculation Mgt."; - UOMMgt: Codeunit "Unit of Measure Management"; - VersionMgt: Codeunit VersionManagement; + MfgCostCalculationMgt: Codeunit "Mfg. Cost Calculation Mgt."; + UnitofMeasureManagement: Codeunit "Unit of Measure Management"; + VersionManagement: Codeunit VersionManagement; InBOM: Boolean; InRouting: Boolean; PBOMNoList: array[99] of Code[20]; 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 7ef8848835..f23a197f76 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -122,19 +122,19 @@ report 99001504 "Subc. Dispatching List" column(CompanyAddress6; CompanyAddr[6]) { } - column(CompanyBankAccountNo; CompanyInfo."Bank Account No.") + column(CompanyBankAccountNo; CompanyInformation."Bank Account No.") { } column(CompanyBankAccountNo_Lbl; CompanyInfoBankAccNoCaptionLbl) { } - column(CompanyBankBranchNo; CompanyInfo."Bank Branch No.") + column(CompanyBankBranchNo; CompanyInformation."Bank Branch No.") { } - column(CompanyBankBranchNo_Lbl; CompanyInfo.FieldCaption("Bank Branch No.")) + column(CompanyBankBranchNo_Lbl; CompanyInformation.FieldCaption("Bank Branch No.")) { } - column(CompanyBankName; CompanyInfo."Bank Name") + column(CompanyBankName; CompanyInformation."Bank Name") { } column(CompanyBankName_Lbl; CompanyInfoBankNameCaptionLbl) @@ -146,28 +146,28 @@ report 99001504 "Subc. Dispatching List" column(CompanyCustomGiro_Lbl; CustomGiroLbl) { } - column(CompanyEMail; CompanyInfo."E-Mail") + column(CompanyEMail; CompanyInformation."E-Mail") { } column(CompanyEmail_Lbl; EmailIDCaptionLbl) { } - column(CompanyGiroNo; CompanyInfo."Giro No.") + column(CompanyGiroNo; CompanyInformation."Giro No.") { } column(CompanyGiroNo_Lbl; CompanyInfoGiroNoCaptionLbl) { } - column(CompanyHomePage; CompanyInfo."Home Page") + column(CompanyHomePage; CompanyInformation."Home Page") { } column(CompanyHomePage_Lbl; HomePageCaptionLbl) { } - column(CompanyIBAN; CompanyInfo.IBAN) + column(CompanyIBAN; CompanyInformation.IBAN) { } - column(CompanyIBAN_Lbl; CompanyInfo.FieldCaption(IBAN)) + column(CompanyIBAN_Lbl; CompanyInformation.FieldCaption(IBAN)) { } column(CompanyLegalOffice; LegalOfficeTxt) @@ -179,37 +179,37 @@ report 99001504 "Subc. Dispatching List" column(CompanyLogoPosition; CompanyLogoPosition) { } - column(CompanyPhoneNo; CompanyInfo."Phone No.") + column(CompanyPhoneNo; CompanyInformation."Phone No.") { } column(CompanyPhoneNo_Lbl; CompanyInfoPhoneNoCaptionLbl) { } - column(CompanyPicture; CompanyInfo.Picture) + column(CompanyPicture; CompanyInformation.Picture) { } - column(CompanyRegistrationNumber; CompanyInfo.GetRegistrationNumber()) + column(CompanyRegistrationNumber; CompanyInformation.GetRegistrationNumber()) { } - column(CompanyRegistrationNumber_Lbl; CompanyInfo.GetRegistrationNumberLbl()) + column(CompanyRegistrationNumber_Lbl; CompanyInformation.GetRegistrationNumberLbl()) { } - column(CompanySWIFT; CompanyInfo."SWIFT Code") + column(CompanySWIFT; CompanyInformation."SWIFT Code") { } - column(CompanySWIFT_Lbl; CompanyInfo.FieldCaption("SWIFT Code")) + column(CompanySWIFT_Lbl; CompanyInformation.FieldCaption("SWIFT Code")) { } - column(CompanyVATRegistrationNo; CompanyInfo.GetVATRegistrationNumber()) + column(CompanyVATRegistrationNo; CompanyInformation.GetVATRegistrationNumber()) { } - column(CompanyVATRegistrationNo_Lbl; CompanyInfo.GetVATRegistrationNumberLbl()) + column(CompanyVATRegistrationNo_Lbl; CompanyInformation.GetVATRegistrationNumberLbl()) { } - column(CompanyVATRegNo; CompanyInfo.GetVATRegistrationNumber()) + column(CompanyVATRegNo; CompanyInformation.GetVATRegistrationNumber()) { } - column(CompanyVATRegNo_Lbl; CompanyInfo.GetVATRegistrationNumberLbl()) + column(CompanyVATRegNo_Lbl; CompanyInformation.GetVATRegistrationNumberLbl()) { } column(ConfirmToCaption_Lbl; ConfirmToCaptionLbl) @@ -247,7 +247,7 @@ report 99001504 "Subc. Dispatching List" column(SubcAmountCaptionLbl; SubAmountCaptionLbl) { } - column(SubcBarcodeBase; TempDummyCompanyInfoForBarcode.Picture) + column(SubcBarcodeBase; TempCompanyInformation.Picture) { } column(SubcCompanyAddress1; CompanyAddress1Footer) @@ -280,10 +280,10 @@ report 99001504 "Subc. Dispatching List" column(SubcCompanyIBAN_Lbl; CompanyInfoIBANLblFooter) { } - column(SubcCompanyInfo1Picture; CompanyInfo1.Picture) + column(SubcCompanyInfo1Picture; CompanyInformation1.Picture) { } - column(SubcCompanyInfo2Picture; CompanyInfo2.Picture) + column(SubcCompanyInfo2Picture; CompanyInformation2.Picture) { } column(SubcCompanyInfoCourtLocation; CompanyInfoCourtLocationFooter) @@ -310,7 +310,7 @@ report 99001504 "Subc. Dispatching List" column(SubcCompanyInfoPhoneNoLbl; CompanyInfoPhoneNoLblFooter) { } - column(SubcCompanyInfoPicture; SubCompanyInfo.Picture) + column(SubcCompanyInfoPicture; SubCompanyInformation.Picture) { } column(SubcCompanyInfoRegisterCourtNo; CompanyInfoRegisterCourtNoFooter) @@ -1163,17 +1163,17 @@ report 99001504 "Subc. Dispatching List" } trigger OnAfterGetRecord() var - TempPrepmtPurchLine: Record "Purchase Line" temporary; + TempPrepmtPurchaseLine: Record "Purchase Line" temporary; begin - Clear(TempPurchLine); + Clear(TempPurchaseLine); Clear(PurchPost); - if not TempPurchLine.IsEmpty() then - TempPurchLine.DeleteAll(); + if not TempPurchaseLine.IsEmpty() then + TempPurchaseLine.DeleteAll(); if not TempVATAmountLine.IsEmpty() then TempVATAmountLine.DeleteAll(); - PurchPost.GetPurchLines("Purchase Header", TempPurchLine, 0); - TempPurchLine.CalcVATAmountLines(0, "Purchase Header", TempPurchLine, TempVATAmountLine); - TempPurchLine.UpdateVATOnLines(0, "Purchase Header", TempPurchLine, TempVATAmountLine); + PurchPost.GetPurchLines("Purchase Header", TempPurchaseLine, 0); + TempPurchaseLine.CalcVATAmountLines(0, "Purchase Header", TempPurchaseLine, TempVATAmountLine); + TempPurchaseLine.UpdateVATOnLines(0, "Purchase Header", TempPurchaseLine, TempVATAmountLine); VATAmount := TempVATAmountLine.GetTotalVATAmount(); VATBaseAmount := TempVATAmountLine.GetTotalVATBase(); VATDiscountAmount := @@ -1182,16 +1182,16 @@ report 99001504 "Subc. Dispatching List" if not TempPrepaymentInvLineBuffer.IsEmpty() then TempPrepaymentInvLineBuffer.DeleteAll(); - PurchasePostPrepayments.GetPurchLines("Purchase Header", 0, TempPrepmtPurchLine); - if not TempPrepmtPurchLine.IsEmpty() then begin - PurchasePostPrepayments.GetPurchLinesToDeduct("Purchase Header", TempPurchLine); - if not TempPurchLine.IsEmpty() then - PurchasePostPrepayments.CalcVATAmountLines("Purchase Header", TempPurchLine, TempPrePmtVATAmountLineDeduct, 1); + PurchasePostPrepayments.GetPurchLines("Purchase Header", 0, TempPurchaseLine); + if not TempPrepmtPurchaseLine.IsEmpty() then begin + PurchasePostPrepayments.GetPurchLinesToDeduct("Purchase Header", TempPurchaseLine); + if not TempPurchaseLine.IsEmpty() then + PurchasePostPrepayments.CalcVATAmountLines("Purchase Header", TempPurchaseLine, TempPrePmtVATAmountLineDeduct, 1); end; - PurchasePostPrepayments.CalcVATAmountLines("Purchase Header", TempPrepmtPurchLine, TempPrepmtVATAmountLine, 0); + PurchasePostPrepayments.CalcVATAmountLines("Purchase Header", TempPrepmtPurchaseLine, TempPrepmtVATAmountLine, 0); TempPrepmtVATAmountLine.DeductVATAmountLine(TempPrePmtVATAmountLineDeduct); - PurchasePostPrepayments.UpdateVATOnLines("Purchase Header", TempPrepmtPurchLine, TempPrepmtVATAmountLine, 0); - PurchasePostPrepayments.BuildInvLineBuffer("Purchase Header", TempPrepmtPurchLine, 0, TempPrepaymentInvLineBuffer); + PurchasePostPrepayments.UpdateVATOnLines("Purchase Header", TempPrepmtPurchaseLine, TempPrepmtVATAmountLine, 0); + PurchasePostPrepayments.BuildInvLineBuffer("Purchase Header", TempPrepmtPurchaseLine, 0, TempPrepaymentInvLineBuffer); PrepmtVATAmount := TempPrepmtVATAmountLine.GetTotalVATAmount(); PrepmtVATBaseAmount := TempPrepmtVATAmountLine.GetTotalVATBase(); PrepmtTotalAmountInclVAT := TempPrepmtVATAmountLine.GetTotalAmountInclVAT(); @@ -1295,8 +1295,8 @@ report 99001504 "Subc. Dispatching List" else VALSpecLCYHeader := VATAmountSpecificationLbl + Format(GLSetup."LCY Code"); - CurrExchRate.FindCurrency("Purchase Header"."Posting Date", "Purchase Header"."Currency Code", 1); - VALExchRate := StrSubstNo(ExchangeRateLbl, CurrExchRate."Relational Exch. Rate Amount", CurrExchRate."Exchange Rate Amount"); + CurrencyExchangeRate.FindCurrency("Purchase Header"."Posting Date", "Purchase Header"."Currency Code", 1); + VALExchRate := StrSubstNo(ExchangeRateLbl, CurrencyExchangeRate."Relational Exch. Rate Amount", CurrencyExchangeRate."Exchange Rate Amount"); end; } dataitem(PrepmtLoop; "Integer") @@ -1500,7 +1500,7 @@ report 99001504 "Subc. Dispatching List" begin TotalAmount := 0; CurrReport.Language := LanguageMgt.GetLanguageIdOrDefault("Language Code"); - FormatAddr.SetLanguageCode("Language Code"); + FormatAddress.SetLanguageCode("Language Code"); FormatAddressFields("Purchase Header"); FormatDocumentFields("Purchase Header"); @@ -1513,7 +1513,7 @@ report 99001504 "Subc. Dispatching List" ArchiveManagement.StorePurchDocument("Purchase Header", ShouldLogInteraction); end; - SubFormatAddr.PurchHeaderShipTo(ShipToAddr, "Purchase Header"); + SubFormatAddress.PurchHeaderShipTo(ShipToAddr, "Purchase Header"); if not SubcVATAmountLine.IsEmpty() then SubcVATAmountLine.DeleteAll(); @@ -1540,20 +1540,20 @@ report 99001504 "Subc. Dispatching List" dataitem(SubcShipToAddr; Integer) { DataItemTableView = sorting(Number); - column(TempSUBShipToAddr__Address; TempShipToAddr.Address) + column(TempSUBShipToAddr__Address; TempShiptoAddress.Address) { } trigger OnPreDataItem() begin - SetRange(Number, 1, TempShipToAddr.Count); + SetRange(Number, 1, TempShiptoAddress.Count); end; trigger OnAfterGetRecord() begin if Number = 1 then - TempShipToAddr.Find('-') + TempShiptoAddress.Find('-') else - TempShipToAddr.Next(); + TempShiptoAddress.Next(); end; } } @@ -1606,7 +1606,7 @@ report 99001504 "Subc. Dispatching List" trigger OnInit() begin LogInteractionEnable := true; - ShouldArchiveDocument := PurchSetup."Archive Orders"; + ShouldArchiveDocument := PurchasesPayablesSetup."Archive Orders"; end; trigger OnOpenPage() @@ -1617,12 +1617,12 @@ report 99001504 "Subc. Dispatching List" trigger OnInitReport() begin GLSetup.Get(); - CompanyInfo.Get(); - PurchSetup.Get(); - CompanyInfo.CalcFields(Picture); + CompanyInformation.Get(); + PurchasesPayablesSetup.Get(); + CompanyInformation.CalcFields(Picture); - SalesSetup.Get(); - SubFormatDocument.SetLogoPosition(SalesSetup."Logo Position on Documents", CompanyInfo1, CompanyInfo2, SubCompanyInfo); + SalesReceivablesSetup.Get(); + SubFormatDocument.SetLogoPosition(SalesReceivablesSetup."Logo Position on Documents", CompanyInformation1, CompanyInformation2, SubCompanyInformation); end; trigger OnPostReport() @@ -1643,24 +1643,24 @@ report 99001504 "Subc. Dispatching List" end; var - CompanyInfo: Record "Company Information"; - SubCompanyInfo: Record "Company Information"; - CompanyInfo1: Record "Company Information"; - CompanyInfo2: Record "Company Information"; - TempDummyCompanyInfoForBarcode: Record "Company Information" temporary; + CompanyInformation: Record "Company Information"; + SubCompanyInformation: Record "Company Information"; + CompanyInformation1: Record "Company Information"; + CompanyInformation2: Record "Company Information"; + TempCompanyInformation: Record "Company Information" temporary; BuyFromContact: Record Contact; PayToContact: Record Contact; - CurrExchRate: Record "Currency Exchange Rate"; + CurrencyExchangeRate: Record "Currency Exchange Rate"; GLSetup: Record "General Ledger Setup"; PaymentTerms: Record "Payment Terms"; PrepmtPaymentTerms: Record "Payment Terms"; TempPrepaymentInvLineBuffer: Record "Prepayment Inv. Line Buffer" temporary; - TempPurchLine: Record "Purchase Line" temporary; - PurchSetup: Record "Purchases & Payables Setup"; - RespCenter: Record "Responsibility Center"; - SalesSetup: Record "Sales & Receivables Setup"; + TempPurchaseLine: Record "Purchase Line" temporary; + PurchasesPayablesSetup: Record "Purchases & Payables Setup"; + ResponsibilityCenter: Record "Responsibility Center"; + SalesReceivablesSetup: Record "Sales & Receivables Setup"; SalespersonPurchaser: Record "Salesperson/Purchaser"; - TempShipToAddr: Record "Ship-to Address" temporary; + TempShiptoAddress: Record "Ship-to Address" temporary; ShipmentMethod: Record "Shipment Method"; TempPrepmtVATAmountLine: Record "VAT Amount Line" temporary; TempPrePmtVATAmountLineDeduct: Record "VAT Amount Line" temporary; @@ -1668,8 +1668,8 @@ report 99001504 "Subc. Dispatching List" VATClause2: Record "VAT Clause"; Vendor: Record Vendor; ArchiveManagement: Codeunit ArchiveManagement; - SubFormatAddr: Codeunit "Format Address"; - FormatAddr: Codeunit "Format Address"; + SubFormatAddress: Codeunit "Format Address"; + FormatAddress: Codeunit "Format Address"; SubFormatDocument: Codeunit "Format Document"; FormatDocument: Codeunit "Format Document"; LanguageMgt: Codeunit Language; @@ -1890,11 +1890,11 @@ report 99001504 "Subc. Dispatching List" local procedure FormatAddressFields(var PurchaseHeader: Record "Purchase Header") begin - FormatAddr.GetCompanyAddr(PurchaseHeader."Responsibility Center", RespCenter, CompanyInfo, CompanyAddr); - FormatAddr.PurchHeaderBuyFrom(BuyFromAddr, PurchaseHeader); + FormatAddress.GetCompanyAddr(PurchaseHeader."Responsibility Center", ResponsibilityCenter, CompanyInformation, CompanyAddr); + FormatAddress.PurchHeaderBuyFrom(BuyFromAddr, PurchaseHeader); if PurchaseHeader."Buy-from Vendor No." <> PurchaseHeader."Pay-to Vendor No." then - FormatAddr.PurchHeaderPayTo(VendAddr, PurchaseHeader); - FormatAddr.PurchHeaderShipTo(ShipToAddr, PurchaseHeader); + FormatAddress.PurchHeaderPayTo(VendAddr, PurchaseHeader); + FormatAddress.PurchHeaderShipTo(ShipToAddr, PurchaseHeader); end; local procedure FormatDocumentFields(PurchaseHeader: Record "Purchase Header") @@ -1914,22 +1914,22 @@ report 99001504 "Subc. Dispatching List" ShouldLogInteraction := SegManagement.FindInteractionTemplateCode("Interaction Log Entry Document Type"::"Purch. Ord.") <> ''; end; - local procedure BlankZero(Line: Record "Purchase Line") + local procedure BlankZero(PurchaseLine: Record "Purchase Line") var LineDiscountPctPlaceholderLbl: Label '%1%', Locked = true; begin - if Line."Line Discount %" = 0 then + if PurchaseLine."Line Discount %" = 0 then LineDiscountPctText := '' else - LineDiscountPctText := StrSubstNo(LineDiscountPctPlaceholderLbl, Round(Line."Line Discount %", 0.1)); + LineDiscountPctText := StrSubstNo(LineDiscountPctPlaceholderLbl, Round(PurchaseLine."Line Discount %", 0.1)); - if Line."Line Amount" = 0 then + if PurchaseLine."Line Amount" = 0 then LineAmount := '' else - LineAmount := Format(Line."Line Amount", 0, DecimalAmountFormatExpression); + LineAmount := Format(PurchaseLine."Line Amount", 0, DecimalAmountFormatExpression); - if Line."Unit Cost" = 0 then + if PurchaseLine."Unit Cost" = 0 then UnitCost := '' else UnitCost := FormattedDirectUnitCost; @@ -1947,23 +1947,23 @@ report 99001504 "Subc. Dispatching List" CompanyInfoFaxNoLblFooter := CompanyInfoFaxLbl; CompanyInfoEMailAddressLblFooter := EMailLbl; CompanyInfoHomepageLblFooter := HomePageLbl; - CompanyVATRegNoLblFooter := CompanyInfo.GetVATRegistrationNumberLbl(); + CompanyVATRegNoLblFooter := CompanyInformation.GetVATRegistrationNumberLbl(); - CompanyInfoPhoneNoFooter := CompanyInfo."Phone No."; - CompanyInfoFaxNoFooter := CompanyInfo."Fax No."; - CompanyInfoEmailFooter := CompanyInfo."E-Mail"; - CompanyVATRegNoFooter := CompanyInfo.GetVATRegistrationNumber(); + CompanyInfoPhoneNoFooter := CompanyInformation."Phone No."; + CompanyInfoFaxNoFooter := CompanyInformation."Fax No."; + CompanyInfoEmailFooter := CompanyInformation."E-Mail"; + CompanyVATRegNoFooter := CompanyInformation.GetVATRegistrationNumber(); CourtLocationLblFooter := CourtLocationLbl; RegisterCourtLblFooter := RegisterCourtNoLbl; CompanyInfoBankNameLblFooter := CompanyInfoBankNameLbl; - CompanyInfoIBANLblFooter := CompanyInfo.FieldCaption(IBAN); - CompanyInfoSWIFTLblFooter := CompanyInfo.FieldCaption("SWIFT Code"); + CompanyInfoIBANLblFooter := CompanyInformation.FieldCaption(IBAN); + CompanyInfoSWIFTLblFooter := CompanyInformation.FieldCaption("SWIFT Code"); - CompanyInfoBankNameFooter := CompanyInfo."Bank Name"; - CompanyInfoIBANFooter := CompanyInfo.IBAN; - CompanyInfoSWIFTFooter := CompanyInfo."SWIFT Code"; + CompanyInfoBankNameFooter := CompanyInformation."Bank Name"; + CompanyInfoIBANFooter := CompanyInformation.IBAN; + CompanyInfoSWIFTFooter := CompanyInformation."SWIFT Code"; end; end; diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcPlanningCompExt.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcPlanningCompExt.TableExt.al index e1e1ce877c..a48c1e7c1b 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcPlanningCompExt.TableExt.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Manufacturing/SubcPlanningCompExt.TableExt.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -20,9 +20,9 @@ tableextension 99001503 "Subc. Planning Comp Ext." extends "Planning Component" ToolTip = 'Specifies the Type of Subcontracting that is assigned to the Planning Component.'; trigger OnValidate() var - SubSubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin - SubSubcontractingMgmt.UpdateSubcontractingTypeForPlanningComponent(Rec); + SubcontractingManagement.UpdateSubcontractingTypeForPlanningComponent(Rec); end; } field(99001525; "Orig. Location Code"; Code[10]) 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 1e18a2350b..243f1b765a 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -23,9 +23,9 @@ tableextension 99001502 "Subc. Prod Order Comp Ext." extends "Prod. Order Compon ToolTip = 'Specifies the Type of Subcontracting that is assigned to the Production Order Component.'; trigger OnValidate() var - SubSubcontractingMgmt: Codeunit "Subcontracting Management"; + SubcontractingManagement: Codeunit "Subcontracting Management"; begin - SubSubcontractingMgmt.UpdateSubcontractingTypeForProdOrderComponent(Rec); + SubcontractingManagement.UpdateSubcontractingTypeForProdOrderComponent(Rec); end; } field(99001523; "Orig. Location Code"; Code[10]) 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 a1ae1b8191..095ab4a70e 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -62,17 +62,17 @@ tableextension 99001512 "Subc. Purchase Line" extends "Purchase Line" } procedure GetQuantityPerUOM(): Decimal var - ItemUOM: Record "Item Unit of Measure"; + ItemUnitofMeasure: Record "Item Unit of Measure"; begin - ItemUOM.Get("No.", "Unit of Measure Code"); - exit(ItemUOM."Qty. per Unit of Measure"); + ItemUnitofMeasure.Get("No.", "Unit of Measure Code"); + exit(ItemUnitofMeasure."Qty. per Unit of Measure"); end; procedure GetQuantityBase(): Decimal var - ItemUOM: Record "Item Unit of Measure"; + ItemUnitofMeasure: Record "Item Unit of Measure"; begin - ItemUOM.Get("No.", "Unit of Measure Code"); - exit(Round(Quantity * ItemUOM."Qty. per Unit of Measure", 0.00001)); + ItemUnitofMeasure.Get("No.", "Unit of Measure Code"); + exit(Round(Quantity * ItemUnitofMeasure."Qty. per Unit of Measure", 0.00001)); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcRequisitionLine.TableExt.al b/src/Apps/W1/Subcontracting/App/src/Process/Tableextensions/Purchase/SubcRequisitionLine.TableExt.al index 89142d6aec..c310c90d26 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 @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -86,7 +86,7 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" trigger OnValidate() var Currency: Record Currency; - GLSetup: Record "General Ledger Setup"; + GeneralLedgerSetup: Record "General Ledger Setup"; begin if ("Prod. Order No." <> '') and (Type = Type::Item) @@ -97,8 +97,8 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" Currency.TestField("Unit-Amount Rounding Precision"); "Direct Unit Cost" := Round("Direct Unit Cost", Currency."Unit-Amount Rounding Precision"); end else begin - GLSetup.Get(); - "Direct Unit Cost" := Round("Direct Unit Cost", GLSetup."Unit-Amount Rounding Precision"); + GeneralLedgerSetup.Get(); + "Direct Unit Cost" := Round("Direct Unit Cost", GeneralLedgerSetup."Unit-Amount Rounding Precision"); end; end; end; @@ -106,33 +106,33 @@ tableextension 99001510 "Subc. RequisitionLine" extends "Requisition Line" } procedure GetQuantityForUOM(): Decimal var - ItemUOM: Record "Item Unit of Measure"; + ItemUnitofMeasure: Record "Item Unit of Measure"; begin - ItemUOM.Get("No.", "Unit of Measure Code"); - exit(ItemUOM."Qty. per Unit of Measure"); + ItemUnitofMeasure.Get("No.", "Unit of Measure Code"); + exit(ItemUnitofMeasure."Qty. per Unit of Measure"); end; procedure GetQuantityBase(): Decimal var - ItemUOM: Record "Item Unit of Measure"; + ItemUnitofMeasure: Record "Item Unit of Measure"; begin - ItemUOM.Get("No.", "Unit of Measure Code"); - exit(Round(Quantity * ItemUOM."Qty. per Unit of Measure", 0.00001)); + ItemUnitofMeasure.Get("No.", "Unit of Measure Code"); + exit(Round(Quantity * ItemUnitofMeasure."Qty. per Unit of Measure", 0.00001)); end; procedure UpdateSubcontractorPrice() var - SubcontractingPriceMgt: Codeunit "Subc. Price Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; begin if (Type = Type::Item) and ("No." <> '') and ("Prod. Order No." <> '') then - SubcontractingPriceMgt.GetSubcPriceForReqLine(Rec, ''); + SubcPriceManagement.GetSubcPriceForReqLine(Rec, ''); end; procedure UpdateSubcontractorPriceUOM() var - SubcontractingPriceMgt: Codeunit "Subc. Price Management"; + SubcPriceManagement: Codeunit "Subc. Price Management"; begin if (Type = Type::Item) and ("No." <> '') and ("Prod. Order No." <> '') then - SubcontractingPriceMgt.GetSubcPriceForReqLine(Rec, "UoM for Pricelist"); + SubcPriceManagement.GetSubcPriceForReqLine(Rec, "UoM for Pricelist"); end; } \ No newline at end of file diff --git a/src/Apps/W1/Subcontracting/App/src/Process/Tables/SubcontractorPrice.Table.al b/src/Apps/W1/Subcontracting/App/src/Process/Tables/SubcontractorPrice.Table.al index 672695fce4..563d691730 100644 --- a/src/Apps/W1/Subcontracting/App/src/Process/Tables/SubcontractorPrice.Table.al +++ b/src/Apps/W1/Subcontracting/App/src/Process/Tables/SubcontractorPrice.Table.al @@ -28,10 +28,10 @@ table 99001500 "Subcontractor Price" trigger OnValidate() var - Vend: Record Vendor; + Vendor: Record Vendor; begin - if Vend.Get("Vendor No.") then - "Currency Code" := Vend."Currency Code"; + if Vendor.Get("Vendor No.") then + "Currency Code" := Vendor."Currency Code"; end; } field(2; "Item No."; Code[20]) diff --git a/src/Apps/W1/Subcontracting/App/src/Setup/Tables/SubcManagementSetup.Table.al b/src/Apps/W1/Subcontracting/App/src/Setup/Tables/SubcManagementSetup.Table.al index 76cc149f19..1777a3a219 100644 --- a/src/Apps/W1/Subcontracting/App/src/Setup/Tables/SubcManagementSetup.Table.al +++ b/src/Apps/W1/Subcontracting/App/src/Setup/Tables/SubcManagementSetup.Table.al @@ -1,4 +1,4 @@ -// ------------------------------------------------------------------------------------------------ +// ------------------------------------------------------------------------------------------------ // Copyright (c) Microsoft Corporation. All rights reserved. // Licensed under the MIT License. See License.txt in the project root for license information. // ------------------------------------------------------------------------------------------------ @@ -70,14 +70,14 @@ table 99001501 "Subc. Management Setup" Caption = 'Component at Location'; trigger OnValidate() var - CompanyInfo: Record "Company Information"; + CompanyInformation: Record "Company Information"; ManufacturingSetup: Record "Manufacturing Setup"; begin case "Component at Location" of "Components at Location"::Company: begin - CompanyInfo.Get(); - CompanyInfo.TestField("Location Code"); + CompanyInformation.Get(); + CompanyInformation.TestField("Location Code"); end; "Components at Location"::Manufacturing: begin @@ -152,12 +152,12 @@ table 99001501 "Subc. Management Setup" } procedure ItemChargeToRcptSubReferenceEnabled(): Boolean var - SubManagementSetup: Record "Subc. Management Setup"; + SubcManagementSetup: Record "Subc. Management Setup"; begin - SubManagementSetup.SetLoadFields(RefItemChargeToRcptSubLines); - if not SubManagementSetup.Get() then + SubcManagementSetup.SetLoadFields(RefItemChargeToRcptSubLines); + if not SubcManagementSetup.Get() then exit(false); - exit(SubManagementSetup.RefItemChargeToRcptSubLines); + exit(SubcManagementSetup.RefItemChargeToRcptSubLines); end; } \ No newline at end of file