Footwear & Apparel Retail: Business Central Multi-Store Matrix & Variant Architecture

codeunit 50180 "Retail Replenishment Engine"
{
    Access = Public;
    Subtype = Normal;

    procedure GenerateStoreTransferOrders(StoreLocationCode: Code[10]; TargetSafetyDays: Integer)
    var
        Item: Record Item;
        ItemVariant: Record "Item Variant";
        SKU: Record "Stockkeeping Unit";
        TransferHeader: Record "Transfer Header";
        TransferLine: Record "Transfer Line";
        SalesVelocity: Decimal;
        RequiredQty: Decimal;
        LineNo: Integer;
    begin
        SKU.SetRange("Location Code", StoreLocationCode);
        if not SKU.FindSet() then
            exit;

        repeat
            // 1. Calculate Daily Sales Velocity (Past 14 Days)
            SalesVelocity := CalculateDailyVelocity(SKU."Item No.", SKU."Variant Code", StoreLocationCode, 14);

            // 2. Determine Net Reorder Target
            RequiredQty := (SalesVelocity * TargetSafetyDays) - SKU.Inventory;

            if RequiredQty > 0 then begin
                if TransferHeader."No." = '' then
                    CreateTransferHeader(TransferHeader, 'CENTRAL_WH', StoreLocationCode);

                LineNo += 10000;
                TransferLine.Init();
                TransferLine."Document No." := TransferHeader."No.";
                TransferLine."Line No." := LineNo;
                TransferLine."Item No." := SKU."Item No.";
                TransferLine."Variant Code" := SKU."Variant Code";
                TransferLine.Quantity := RequiredQty;
                TransferLine.Insert(true);
            end;
        until SKU.Next() = 0;
    end;

    local procedure CalculateDailyVelocity(ItemNo: Code[20]; VariantCode: Code[10]; LocationCode: Code[10]; DaysWindow: Integer): Decimal
    var
        ValueEntry: Record "Value Entry";
        TotalSold: Decimal;
    begin
        ValueEntry.SetRange("Item No.", ItemNo);
        ValueEntry.SetRange("Variant Code", VariantCode);
        ValueEntry.SetRange("Location Code", LocationCode);
        ValueEntry.SetRange("Item Ledger Entry Type", ValueEntry."Item Ledger Entry Type"::Sale);
        ValueEntry.SetRange("Posting Date", CalcDate('<-' + Format(DaysWindow) + 'D>', Today), Today);

        ValueEntry.CalcSums("Invoiced Quantity");
        TotalSold := Abs(ValueEntry."Invoiced Quantity");

        if DaysWindow > 0 then
            exit(TotalSold / DaysWindow);
        exit(0);
    end;

    local procedure CreateTransferHeader(var TransferHeader: Record "Transfer Header"; FromLoc: Code[10]; ToLoc: Code[10])
    begin
        TransferHeader.Init();
        TransferHeader."No." := '';
        TransferHeader.Insert(true);
        TransferHeader.Validate("Transfer-from Code", FromLoc);
        TransferHeader.Validate("Transfer-to Code", ToLoc);
        TransferHeader.Modify(true);
    end;
}