MS Access - 使用 fifo 逻辑将 2 个视图加入结果表

Question

我有 1 个这样的视图（PurchaseOrder 视图）

PONo        Date        ProductId    Price   Amount 
PO 00001    01/07/2014  AS15         4.750   10.000 
PO 00002    02/07/2014  AS15         4.000   100.000 
PO 00003    05/07/2014  AS24         4.500   30.000 
PO 00004    06/07/2014  AS19         4.250   80.000 
PO 00005    08/07/2014  AS19         4.500   25.000 
PO 00006    09/07/2014  AS15         4.750   15.000 
PO 00007    11/07/2014  AS19         4.250   75.000 
PO 00008    12/07/2014  AS24         4.000   95.000 

以及销售视图的汇总（SalesSummary View）

ProductId    AmountSale 
AS15         35.000 
AS19         88.000 
AS24         50.000 

我需要这样的表格/视图

PONo        Date        ProductId    Price   Amount      AmountSale 
PO 00001    01/07/2014  AS15         4.750   10.000      10.000 
PO 00002    02/07/2014  AS15         4.000   100.000     25.000 
PO 00003    05/07/2014  AS24         4.500   30.000      30.000 
PO 00004    06/07/2014  AS19         4.250   80.000      80.000 
PO 00005    08/07/2014  AS19         4.500   25.000      8.000 
PO 00006    09/07/2014  AS15         4.750   15.000      - 
PO 00007    11/07/2014  AS19         4.250   75.000      - 
PO 00008    12/07/2014  AS24         4.000   95.000      20.000 

前 5 个字段与 PurchaseOrderView 相同。
棘手的部分是如何获取 AmountSale。这个字段填充了 FIFO 逻辑 来自销售摘要

Answer 1

如果您没有找到 SQL Server 解决方案，您可以在 Access 中执行此操作。将此函数添加到公共模块：

编辑：更改了代码以在 AmountSales 未完全覆盖给定 ProductID 的第一个 PO 时考虑。

编辑 2：注意到逻辑错误并修复它。

Public Function ReturnAmountSale(strPoNo As String, strProductID As String, curAmount As Currency, curAmountSale As Currency) As Variant

    Dim curAmountSaleUpToCurrentPO As Currency
    Dim varAmountSalePriorToCurrentPO As Variant

    'Get the total Amount for the current ProductID up to and including given PO.
    curAmountSaleUpToCurrentPO = DSum("Amount", "PurchaseOrder", "[PoNo] <= '" & strPoNo & "' AND [ProductID] = '" & strProductID & "'")

    'If there is enough in SalesAmount to cover the whole cost, return the whole Amount.
    If curAmountSale - curAmountSaleUpToCurrentPO >= 0 Then
        ReturnAmountSale = Format(curAmount, "0.00")
    Else
        'Get the the total Amount in ProductID prior to current PO.
        varAmountSalePriorToCurrentPO = DSum("Amount", "PurchaseOrder", "[PoNo] < '" & strPoNo & "' AND [ProductID] = '" & strProductID & "'")

        'If current PO is first in ProductID, varAmountSalePriorToCurrentPO will be null;
        'determine covered amount.
        If IsNull(varAmountSalePriorToCurrentPO) = True Then
            If curAmount <= curAmountSale Then
                ReturnAmountSale = Format(curAmount, "0.00")
            Else
                ReturnAmountSale = Format(curAmountSale, "0.00")
            End If
        Else
            'If current PO is not first in ProductID, varAmountSalePriorToCurrentPO
            'will have a value; determine the covered amount.
            varAmountSalePriorToCurrentPO = curAmountSale - varAmountSalePriorToCurrentPO

            If varAmountSalePriorToCurrentPO <= 0 Then
                ReturnAmountSale = Null
            Else
                ReturnAmountSale = Format(varAmountSalePriorToCurrentPO, "0.00")
            End If
        End If
    End If

End Function

然后将此列添加到您的查询中（您不能在查询中的现有表/查询中有一个重复名称的列，因此下划线）：

Amount_Sale: ReturnAmountSale([PurchaseOrder].[PoNo],[PurchaseOrder].[ProductID],[PurchaseOrder].[Amount],[SalesSummary].[AmountSale])

注意：这假定采购订单是按照每个 ProductID 的日期顺序连续发出的。