power query 先进先出结果错误

欢乐马666789

写法如下，是套的大佬分享：

let
    源 = Excel.CurrentWorkbook(){[Name="先进先出"]}[Content],
    分组 = Table.Group(源,"产品",{"a",each _}),
    fx = (l,t)=>List.Accumulate(l,
                [a={},b=0] ,
                (s,c)=>if t<c+s
                        then [a=s[a]&{List.Max({t-s,0})},b=s+c]
                        else [a=s[a]&{c},b=s+c]
          )[a],
    结果 = Table.Combine(List.Transform(分组[a],
                each Table.FromColumns(
                        Table.ToColumns(_)&{fx([收入数量],[期末数量]{0})},
                        Table.ColumnNames(_)&{"分配"})
          ))
in
    结果



目前问题是入库数明细中有负数的存在，导致结果异常，从想要的结果来说，只需要第一行就行了

看各位老师能不能指导修改下公式

windgod489

上附件，凭一张图猜不见源数据。

roserice

即使没有负值，按你写的这些代码也不能得出结果，大佬的代码让你改成这样了

欢乐马666789

windgod489 发表于 2022-7-20 17:38
上附件，凭一张图猜不见源数据。

附件上不了，垃圾公司的所有表格都加密了~这种数据走解密流程不可能的~

欢乐马666789

roserice 发表于 2022-7-20 23:43
即使没有负值，按你写的这些代码也不能得出结果，大佬的代码让你改成这样了

数据是出了结果的，其他的物料代码都是对的~~只有这个中间有负数的错了

roserice

图片里正值的也不对啊,2019-7-1,分配了1个,8-1分配两个,我的理解你这个是错误的, 不是先进先出吗

欢乐马666789

其他的物料代码是正确的，就这个因为中间有负数的入库，所以结果不正确，对公司需要修改下，但是我无从下手


物料代码        入库日期        入库数量        期末库存
A        2022-7-20        5        5
A        2022-6-20        -5        5
A        2022-5-20        3        5
B        2022-4-20        3        7
B        2022-3-20        3        7
B        2022-2-20        2        7




上面是数据源，转为为超级表后上载，处理逻辑如下：

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    分组 = Table.Group(源,"物料代码",{"a",each _}),
    fx = (l,t)=>List.Accumulate(l,
                [a={},b=0] ,
                (s,c)=>if t<c+s
                        then [a=s[a]&{List.Max({t-s,0})},b=s+c]
                        else [a=s[a]&{c},b=s+c]
          )[a],
    结果 = Table.Combine(List.Transform(分组[a],
                each Table.FromColumns(
                        Table.ToColumns(_)&{fx([入库数量],[期末库存]{0})},
                        Table.ColumnNames(_)&{"分配"})
          ))
in
    结果



处理结果如下：

欢乐马666789

roserice 发表于 2022-7-21 09:30
图片里正值的也不对啊,2019-7-1,分配了1个,8-1分配两个,我的理解你这个是错误的, 不是先进先出吗

逻辑是这样的，先进的先出了，库存剩余的就从日期最靠近今天的往前排序分配

欢乐马666789

改好了，在大佬的基础上加了几个逻辑，删除第一次出现累计=期末库存之后的所有行
，按物料代码聚合之后是我自己摸索写的，之前是抄的大佬的
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    分组 = Table.Group(源,"物料代码",{"a",each _}),
     fx = (l,t)=>List.Accumulate(l,
                [a={},b=0] ,
                (s,c)=>if t<c+s
                        then [a=s[a]&{List.Max({t-s,0})},b=s+c]
                        else [a=s[a]&{c},b=s+c]
          )[a],
    结果 = Table.Combine(List.Transform(分组[a],
                each Table.FromColumns(
                        Table.ToColumns(_)&{fx([入库数量],[期末库存]{0})},
                        Table.ColumnNames(_)&{"分配"})
          )),
    按物料代码聚合 = Table.Group(结果,"物料代码",{"D",each _}),
    遍历添加索引 = Table.TransformColumns(按物料代码聚合,{"D",(x)=>Table.AddIndexColumn(x,"索引",1,1)}),
    遍历累加 = Table.TransformColumns(遍历添加索引,{"D",(y)=>Table.AddColumn(y,"累计",each List.Sum(Table.SelectRows(y,(x)=>x[索引]<=[索引])[分配]),type number)}),
    /*1.求出第一次出现[累计]=[期末库存]的下标+1
        2.以1作为筛选条件，对表格进行遍历筛选，删除不需要的记录行
    */
    删除出现负数导致的不符合的行 = Table.TransformColumns(遍历累加,{"D",(y)=>Table.SelectRows(y,(x)=>x[索引]<=List.PositionOf(y[累计],y[期末库存]{0})+1)}),
    展开 = Table.ExpandTableColumn(删除出现负数导致的不符合的行, "D", {"入库日期", "入库数量", "期末库存", "分配", "索引", "累计"})
in
    展开

轩宇逐清风

欢乐马666789 发表于 2022-8-5 11:49
改好了，在大佬的基础上加了几个逻辑，删除第一次出现累计=期末库存之后的所有行
，按物料代码聚合之后是 ...

刷新过程卡不卡呢