堆栈内存溢出
  繁体   English   中英

根据两个值（最小值/最大值）计算数量 [关闭]

[英]Calculate quantity based on two values (min/max) [closed]

 原文  2022-08-10 13:27:00  4   0    sql-server/ sql-server-2008

问题描述

我编写了一个复杂的查询，其中包含许多其他计算和大约 40 多列。 在这篇文章中，我只提供相关的列列表。

  • 这是每月发货计划数据，其中特定商品的数量 (itemCode) 根据其排名 (buyerRank) 和最小值 (minQty) 最大值 (maxQty) 值发送给买家 (buyerCode)
  • 每个买家 (buyerCode) 在特定月份可以拥有 X 个集装箱 (containerCount)。
  • 每个容器（containerCount）可以有多个项目（itemCode）。
  • 最小值 (minQty) 和最大值 (maxQty) 定义为可以在一个容器中针对特定买家发送多少数量的该物品。
  • 每个项目 (itemCode) 在特定月份以 X 个数量 (itemQty) 生产。 因此，这是该商品在一个月内可用的固定数量，将分发给不同的买家。
  • 每个项目将根据他们的排名 (Rank) 和最小 (minQty) 和最大 (maxQty) 值分配给不同的买家。
  • 每个买家 (buyerCode) 都会针对每个单独的商品进行排名 (rank)。
  • 一个项目的多个买家可以具有相同的排名。 如果两个或多个买家的排名相同，则该项目将被分配到每个先到的位置。
  • 从每件商品的总可用数量（itemQty）中，每个买家将首先获得最小数量，即最小数量（minQty）x集装箱数量（containerCount）
  • 每个买家都必须获得最低数量（minQty x containerCount），无论其排名如何。
  • 从剩余数量中，排名较高的买家将首先获得最大数量，即最大数量（maxQty）x集装箱数量（containerCount）
  • 如果总可用商品数量 (itemQty) 小于所有最小数量的总和 (minQty x containerCount)，则根据排名，买家将仅获得最小数量 (minQty x containerCount) 直到可用数量，其余买家将获得 0
  • 如果在向所有买家分配最大数量后未消耗商品的总数量（itemQty），则可以。
  • 没有必要将每件商品都出售给每个买家。
  • 在任何情况下，总分发计数 (distCount) 的总和不能超过总可用项目 (itemQty)。
  • 虽然在下表中，我已将数据按特定排序顺序排列，但记录未按任何特定格式排序。 数量的分布将基于等级和最小最大值，而不是任何排序顺序。
  • 不必担心此表中的规范化，因为除了 itemCode 和buyerCode 之外的所有列都是计算值。

数据集如下所示。 我试图涵盖以下数据集中的所有场景。 基于上述条件，我希望计算 distCount 中的值

CREATE TABLE #planningData
(
    itemCode char(5) NOT NULL
    , buyerCode char(5) NOT NULL
    , [rank] int NOT NULL
    , [containerCount] int NOT NULL
    , [itemQty] int NOT NULL
    , [minQty] int NOT NULL
    , [maxQty] int NOT NULL
);
INSERT INTO #planningData
VALUES ('02-474', '18', 1, 6, 31, 6, 12)
, ('01-145', '35', 1, 1, 0, 0, 0)
, ('01-005', '28', 1, 4, 287, 2, 7)
, ('01-005', '09', 2, 4, 287, 2, 5)
, ('01-005', '30', 3, 2, 287, 0, 0)
, ('01-005', '37', 4, 3, 287, 10, 60)
, ('01-005', '03', 5, 4, 287, 10, 60)
, ('01-735', '28', 1, 4, 222, 10, 15)
, ('01-735', '15', 2, 3, 222, 5, 18)
, ('01-735', '30', 3, 2, 222, 9, 27)
, ('01-735', '23', 4, 2, 222, 9, 27)
, ('01-735', '10', 5, 0, 222, 0, 0)
, ('01-735', '11', 6, 0, 222, 0, 0)
, ('01-735', '09', 7, 4, 222, 9, 18)
, ('01-735', '01', 8, 0, 222, 0, 0)
, ('01-735', '25', 9, 1, 222, 0, 0)
, ('01-735', '04', 10, 4, 222, 5, 15)
, ('01-735', '08', 11, 0, 222, 0, 0)
, ('01-089', '20', 1, 2, 63, 18, 100)
, ('01-089', '26', 2, 0, 63, 0, 0)
, ('01-089', '12', 3, 3, 63, 10, 40)
, ('01-010', '27', 1, 3, 336, 9, 18)
, ('01-010', '28', 2, 4, 336, 9, 27)
, ('01-010', '15', 3, 3, 336, 18, 36)
, ('01-010', '25', 4, 1, 336, 10, 30)
, ('01-010', '17', 5, 1, 336, 9, 27)
, ('01-010', '30', 6, 2, 336, 18, 36)
, ('01-010', '04', 7, 4, 336, 0, 0)
, ('01-010', '23', 8, 2, 336, 18, 36)
, ('01-010', '03', 9, 4, 336, 0, 0)
, ('01-010', '38', 10, 1, 336, 10, 30)
, ('01-010', '10', 11, 0, 336, 0, 0)
, ('01-010', '09', 12, 4, 336, 0, 0)
, ('01-010', '05', 13, 3, 336, 10, 30)
, ('01-010', '11', 14, 0, 336, 0, 0)
, ('01-010', '37', 15, 3, 336, 0, 0)
, ('01-899', '21', 1, 2, 49, 10, 20)
, ('01-899', '18', 2, 6, 49, 10, 30)
, ('01-011', '30', 1, 2, 15, 30, 40)
, ('01-796', '19', 1, 0, 0, 0, 0)
, ('01-009', '19', 1, 0, 271, 0, 0)
, ('01-009', '27', 2, 3, 271, 9, 18)
, ('01-009', '28', 3, 4, 271, 9, 18)
, ('01-009', '30', 4, 2, 271, 0, 0)
, ('01-009', '04', 5, 4, 271, 9, 18)
, ('01-009', '08', 6, 0, 271, 0, 0)
, ('01-009', '01', 7, 0, 271, 10, 15)
, ('01-009', '37', 8, 3, 271, 0, 0)
, ('01-009', '09', 9, 4, 271, 0, 0)
, ('01-009', '03', 10, 4, 271, 9, 27)
, ('01-088', '28', 1, 4, 0, 0, 0)
, ('01-088', '04', 2, 4, 0, 0, 0)
, ('01-088', '09', 3, 4, 0, 0, 0)
, ('01-088', '01', 4, 0, 0, 0, 0)
, ('01-088', '11', 5, 0, 0, 0, 0)
, ('01-088', '08', 6, 0, 0, 5, 10)
, ('01-744', '02', 1, 2, 1001, 5, 15)
, ('01-744', '10', 2, 1, 1001, 8, 10)
, ('02-038', '18', 1, 6, 14, 5, 15)
, ('01-736', '28', 1, 4, 65, 10, 22)
, ('01-092', '27', 1, 3, 88, 5, 15)
, ('01-092', '02', 2, 3, 88, 9, 36)
, ('01-092', '11', 3, 0, 88, 0, 0)
, ('01-092', '01', 4, 0, 88, 0, 0)
, ('01-092', '10', 5, 0, 88, 0, 0)
, ('01-092', '06', 6, 0, 88, 10, 15)
, ('01-092', '05', 7, 3, 88, 0, 0)
, ('01-093', '27', 1, 3, 185, 5, 15)
, ('01-093', '04', 2, 4, 185, 9, 27)
, ('01-093', '28', 3, 4, 185, 0, 0)
, ('01-093', '22', 4, 2, 185, 0, 0)
, ('01-093', '01', 5, 0, 185, 0, 0)
, ('01-093', '02', 6, 3, 185, 0, 0)
, ('01-093', '05', 7, 3, 185, 0, 0)
, ('01-094', '29', 1, 3, 6, 9, 100)
, ('01-094', '28', 2, 4, 6, 2, 50)
, ('01-095', '30', 1, 2, 27, 9, 45)
, ('01-095', '23', 2, 2, 27, 9, 45)
, ('01-095', '08', 3, 0, 27, 0, 0)
, ('01-095', '01', 4, 0, 27, 0, 0)
, ('01-095', '02', 5, 3, 27, 4, 10)
, ('01-095', '06', 6, 0, 27, 0, 0)
, ('02-480', '38', 1, 1, 30, 9, 18)
, ('02-480', '05', 2, 3, 30, 9, 18)
, ('01-745', '28', 1, 4, 31, 5, 15)
, ('01-097', '28', 1, 4, 218, 9, 18)
, ('01-097', '37', 2, 3, 218, 9, 18)
, ('01-097', '08', 3, 0, 218, 5, 10)
, ('01-097', '03', 4, 4, 218, 9, 18)
, ('01-097', '11', 5, 0, 218, 0, 0)
, ('01-097', '09', 6, 4, 218, 5, 15)
, ('01-097', '38', 7, 1, 218, 5, 9)
, ('01-097', '04', 8, 4, 218, 0, 0)
, ('01-097', '05', 9, 3, 218, 5, 9)
, ('01-097', '06', 10, 0, 218, 10, 15)
, ('01-097', '02', 11, 3, 218, 9, 18)
, ('01-097', '01', 12, 0, 218, 27, 54)
, ('01-098', '28', 1, 4, 1016, 27, 50)
, ('01-098', '27', 2, 3, 1016, 27, 50)
, ('01-098', '09', 3, 4, 1016, 36, 72)
, ('01-098', '06', 4, 0, 1016, 10, 15)
, ('01-098', '05', 5, 3, 1016, 36, 72)
, ('01-098', '10', 6, 0, 1016, 0, 0)
, ('01-098', '04', 7, 4, 1016, 27, 63)
, ('01-098', '11', 8, 0, 1016, 0, 0)
, ('01-098', '37', 9, 3, 1016, 18, 63)
, ('01-098', '38', 10, 1, 1016, 36, 72)
, ('01-098', '01', 11, 0, 1016, 27, 36)
, ('01-098', '02', 12, 3, 1016, 27, 63)
, ('01-098', '08', 13, 0, 1016, 5, 10)
, ('01-098', '02', 14, 4, 1016, 18, 36);

distCount 中所需的结果值应如下所示：

期望的Redult

这是 VBA 脚本，我用来计算相同的 distCount 列。

Sub updatedistribution()
    Dim RngData As Range
    Dim RngItem As Range
    Dim RngQty As Range
    Dim RngMin As Range
    Dim RngMax As Range
    Dim RngCont As Range
    Dim RngDistribute As Range
    Dim VarArray() As Variant
    Dim DblItemCol As Double
    Dim DblQtyCol As Double
    Dim DblMinCol As Double
    Dim DblMaxCol As Double
    Dim DblContCol As Double
    Dim DblRow As Double
    Dim DblCounter01 As Double
    Dim DblQuantity As Double
    Dim BlnFirstLap As Boolean
    
    Dim sh As Worksheet
    Set sh = Sheets("DataCalc")

    
    Set RngData = sh.Range("A2")
    Set RngQty = sh.Range("C2")
    Set RngItem = sh.Range("A2")
    Set RngMin = sh.Range("D2")
    Set RngMax = sh.Range("E2")
    Set RngCont = sh.Range("F2")
    Set RngDistribute = sh.Range("G2")
    
    DblItemCol = RngData.Column - RngItem.Column + 1
    DblQtyCol = RngData.Column - RngQty.Column + 1
    DblMinCol = RngData.Column - RngMin.Column + 1
    DblMaxCol = RngData.Column - RngMax.Column + 1
    DblContCol = RngData.Column - RngCont.Column + 1
    
    Set RngData = sh.Range(RngData, RngData.End(xlToRight).End(xlDown))
    
    ReDim VarArray(1 To RngData.Rows.Count)
    
    For DblRow = 1 To RngData.Rows.Count
        
        If Not RngItem.Offset(DblRow - 1).Value = "" Then
        
            If RngItem.Offset(DblRow).Value = RngItem.Offset(DblRow - 1).Value And BlnFirstLap = False Then
                DblQuantity = RngQty.Offset(DblRow - 1).Value
                BlnFirstLap = True
            Else
                If RngItem.Offset(DblRow).Value <> RngItem.Offset(DblRow - 1).Value Then
                    BlnFirstLap = False
                End If
            End If
            
            
            If RngItem.Offset(DblRow).Value <> RngItem.Offset(DblRow - 1) Then
                If DblQuantity = 0 Then
                    VarArray(DblRow) = Excel.WorksheetFunction.Min(RngQty.Offset(DblRow - 1), (RngMax.Offset(DblRow - 1) * RngCont.Offset(DblRow - 1)))
'                    VarArray(DblRow) = Excel.WorksheetFunction.Min(RngQty.Offset(DblRow - 1), (RngMin.Offset(DblRow - 1) * RngCont.Offset(DblRow - 1)))
                Else
                    VarArray(DblRow) = Excel.WorksheetFunction.Min(DblQuantity, (RngMin.Offset(DblRow - 1) * RngCont.Offset(DblRow - 1)))
                End If
            Else
                VarArray(DblRow) = Excel.WorksheetFunction.Min(DblQuantity, (RngMin.Offset(DblRow - 1) * RngCont.Offset(DblRow - 1)))
            End If
            
            DblQuantity = Excel.WorksheetFunction.Max(0, DblQuantity - (RngMin.Offset(DblRow - 1).Value * RngCont.Offset(DblRow - 1).Value))
            
            If BlnFirstLap = True Then
                DblCounter01 = DblCounter01 + 1
            Else
                For DblCounter01 = DblCounter01 To 0 Step -1
                    VarArray(DblRow - DblCounter01) = VarArray(DblRow - DblCounter01) + Excel.WorksheetFunction.Min(DblQuantity, (RngMax.Offset(DblRow - 1 - DblCounter01) * RngCont.Offset(DblRow - 1 - DblCounter01)) - (RngMin.Offset(DblRow - 1 - DblCounter01) * RngCont.Offset(DblRow - 1 - DblCounter01)))
                    DblQuantity = Excel.WorksheetFunction.Max(0, DblQuantity - ((RngMax.Offset(DblRow - 1 - DblCounter01).Value * RngCont.Offset(DblRow - 1 - DblCounter01).Value) - (RngMin.Offset(DblRow - 1 - DblCounter01).Value * RngCont.Offset(DblRow - 1 - DblCounter01).Value)))
                    
                Next
                
                DblCounter01 = 0
            End If
        End If
    Next
    
    RngDistribute.Resize(UBound(VarArray)).Value = Excel.WorksheetFunction.Transpose(VarArray)

End Sub

这是我所做的尝试，但它适用于所有方面。 由于每个项目都是单独排名的，我正在寻找基于项目的解决方案。 这也是非常高级的尝试，所以这里我没有包含容器部分。

CREATE TABLE #work
(
    Item char(3) COLLATE DATABASE_DEFAULT NOT NULL
    ,Qty int NOT NULL
    ,Customer char(4) COLLATE DATABASE_DEFAULT NOT NULL
    ,[Rank] int NOT NULL
    ,[Min] int NOT NULL
    ,[Max] int NOT NULL
    ,Distribute int NULL
    ,QtyLeft int NULL
    ,QtyAfterMin int NULL
    ,PRIMARY KEY (Item, [Rank])
);

INSERT INTO #work (Item, Qty, Customer, [Rank], [Min], [Max])
SELECT Item, Qty, Customer, [Rank], [Min], [Max]
FROM #t;

UPDATE W1
SET QtyLeft = W1.Qty - X.SumMin
FROM #work W1
    CROSS APPLY
    (
        SELECT SUM([Min]) AS SumMin
        FROM #work W2
        WHERE W2.Item = W1.Item
            AND W2.[Rank] <= W1.[Rank]
    ) X;

UPDATE #work
SET Distribute =
        CASE
            WHEN QtyLeft > 0
            THEN [Min]
            WHEN [Min] + QtyLeft > 0
            THEN [Min] + QtyLeft
            ELSE 0
        END;

WITH QtyAfterMins
AS
(
    SELECT Item
        ,MIN(CASE WHEN QtyLeft > 0 THEN QtyLeft ELSE 0 END) AS QtyAfterMin
    FROM #work
    GROUP BY Item
)
UPDATE W
SET QtyAfterMin = Q.QtyAfterMin
FROM #work W
    JOIN QtyAfterMins Q
        ON W.Item = Q.Item;

UPDATE W1
SET QtyLeft = W1.QtyAfterMin - X.SumMaxMin
FROM #work W1
    CROSS APPLY
    (
        SELECT SUM([Max] - [Min]) AS SumMaxMin
        FROM #work W2
        WHERE W2.Item = W1.Item
            AND W2.[Rank] <= W1.[Rank]
    ) X;

UPDATE #work
SET Distribute = Distribute +
        CASE
            WHEN QtyLeft > 0
            THEN [Max] - [Min]
            WHEN [Max] - [Min] + QtyLeft > 0
            THEN [Max] - [Min] + QtyLeft
            ELSE 0
        END;

UPDATE T
SET Distribute = W.Distribute
FROM #t T
    JOIN #work W
        ON T.Item = W.Item
            AND T.[Rank] = W.[Rank];

select * from #t;

0 个解决方案

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 基于相关的MIN（）和MAX（）值的不同值 SQL从两列中获取基于两个列的ID的MAX和MIN值 根据MIN和MAX（Date）选择值 根据表格中的计算值获取最小值和最大值 计算最小和最大函数 基于 Min Max 的分布 根据数量计算折扣金额 基于字段分组的MAX数量和SUM数量的SELECT ROW SQL计算最大值、最小值和平均值 如何查找SQL Server中特定列的包含MIN / MAX值的所有（基于组）行？
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM