Garments & Cut-to-Order Textile Manufacturing: Production Routing & Dye Lot Valuation

codeunit 50230 "Subcontracting PO Generator"
{
    Access = Public;
    Subtype = Normal;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Calculate Subcontract Order", 'OnBeforeCreateSubcontractPO', '', false, false)]
    local procedure GenerateSubcontractPO(var ProdOrderRoutingLine: Record "Prod. Order Routing Line"; var IsHandled: Boolean)
    var
        WorkCenter: Record "Work Center";
        PurchaseHeader: Record "Purchase Header";
        PurchaseLine: Record "Purchase Line";
    begin
        if not WorkCenter.Get(ProdOrderRoutingLine."No.") then
            exit;

        if WorkCenter."Subcontractor No." = '' then
            exit;

        // Generate Subcontractor Purchase Order for Outsource Operation (Washing, Embroidery, Dyeing)
        PurchaseHeader.Init();
        PurchaseHeader."Document Type" := PurchaseHeader."Document Type"::Order;
        PurchaseHeader.Insert(true);
        PurchaseHeader.Validate("Buy-from Vendor No.", WorkCenter."Subcontractor No.");
        PurchaseHeader.Modify(true);

        PurchaseLine.Init();
        PurchaseLine."Document Type" := PurchaseHeader."Document Type";
        PurchaseLine."Document No." := PurchaseHeader."No.";
        PurchaseLine."Line No." := 10000;
        PurchaseLine.Validate(Type, PurchaseLine.Type::"Work Center");
        PurchaseLine.Validate("No.", WorkCenter."No.");
        PurchaseLine.Validate(Quantity, ProdOrderRoutingLine."Run Time");
        PurchaseLine."Prod. Order No." := ProdOrderRoutingLine."Prod. Order No.";
        PurchaseLine.Insert(true);

        Message('Subcontractor Purchase Order %1 generated for Vendor %2 (Operation: %3).',
            PurchaseHeader."No.",
            WorkCenter."Subcontractor No.",
            ProdOrderRoutingLine.Description);

        IsHandled := true;
    end;
}