后进先出分配

Peny2020

请教各位高手，怎么用pq实现先进先出分配，并拆分数量。谢谢。
数据源为Tabel2，库存是Tabel1
在 这三个条件相同的前提下，再按tabel1里的【申报日期】先进先出找出数量足够分配给tabel2里的数量的“清单编号”，如遇上一个不够的就拆分两行，直到分配到满足tabel2里的数量。效果如下图黄色部分。

ThxAlot

你这个文不对题哦，标题是“后进先出”，要求里又写的是“先进先出”；期待的结果虽然是“后进先出”，但看样子是没把“[清单申报日期] <= TODAY()”说明白。

PQ的可读性肯定是不好的，我是更愿意用DAX搞定，放在这里供参考：

1. REQ =
   
2. CALCULATE(
   
3.     SUM( Table2[数量] ),
   
4.     TREATAS(
   
5.         SUMMARIZE( Table1, Table1[企业原始料号], Table1[备案序号], Table1[原产国] ),
   
6.         Table2[企业原始料号],
   
7.         Table2[备案序号],
   
8.         Table2[原产国]
   
9.     )
   
10. )

复制代码

1. LIFO =
   
2. VAR __req = [REQ]
   
3. VAR __rev_rt =
   
4.     IF(
   
5.         MAX( Table1[清单申报日期] ) <= TODAY(),
   
6.         CALCULATE(
   
7.             SUM( Table1[Subtotal] ),
   
8.             Table1[清单申报日期] <= TODAY(),
   
9.             WINDOW(
   
10.                 1, REL,
    
11.                 -1, ABS,
    
12.                 ALLSELECTED( Table1[企业原始料号], Table1[备案序号], Table1[原产国], Table1[清单申报日期] ),
    
13.                 ORDERBY( Table1[清单申报日期] ),
    
14.                 PARTITIONBY( Table1[企业原始料号], Table1[备案序号], Table1[原产国] )
    
15.             ),
    
16.             REMOVEFILTERS()
    
17.         )
    
18.     )
    
19. VAR __current = SUM( Table1[Subtotal] )
    
20. RETURN
    
21.     IF(
    
22.         MAX( Table1[清单申报日期] ) <= TODAY() && __rev_rt < __req,
    
23.         IF( __rev_rt + __current < __req, __current, __req - __rev_rt )
    
24.     )

复制代码

1. let
   
2.     Source = let today = Date.From(DateTime.LocalNow()) in Table.NestedJoin(Table2, {"企业原始料号","备案序号","原产国"}, Table.Sort(Table.SelectRows(Table1, each [清单申报日期] <= today), {{"清单申报日期", Order.Descending}}), {"企业原始料号","备案序号","原产国"}, "joined", JoinKind.Inner),
   
3.     #"Transformed joined" = Table.ReplaceValue(
   
4.         Source,
   
5.         each [数量],
   
6.         null,
   
7.         (x,y,z) =>
   
8.             let
   
9.                 rows = Table.ToRecords(x),
   
10.                 tb = Table.FromRecords(List.Accumulate(rows, {}, (s,c) => let prev = List.Sum(Table.FromRecords(s)[Subtotal]? ?? {0}) in if prev < y then if prev + c[Subtotal] >= y then s & {Record.TransformFields(c, {"Subtotal", each y - prev})} else s & {c} else s))
    
11.             in tb,
    
12.         {"joined"}
    
13.     ),
    
14.     #"Expanded joined" = Table.ExpandTableColumn(#"Transformed joined", "joined", {"清单编号", "清单申报日期", "Subtotal"}, {"清单编号", "清单申报日期", "Subtotal"})
    
15. in
    
16.     #"Expanded joined"

复制代码

sm629

试试这个，用到了ACC：

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
   
3.     合并的查询 = Table.NestedJoin(源, {"企业原始料号", "备案序号", "原产国"}, Table1, {"企业原始料号", "备案序号", "原产国"}, "a", JoinKind.LeftOuter),
   
4.     翻转 = Table.TransformColumns(合并的查询,{"a",each Table.ReverseRows(_)}),
   
5.     分配 = Table.AddColumn(翻转,"b",each Table.FromColumns({
   
6. [a][清单编号],[a][清单申报日期],List.Accumulate([a][Subtotal],{{},[数量]},(x,y)=>if y>x{1} then {x{0}&{x{1}},0} else {x{0}&{y},x{1}-y} ){0} },{"清单编号","清单申报日期","分配"})  ),
   
7.     展开 = Table.ExpandTableColumn(分配, "b", {"清单编号", "清单申报日期", "分配"}),
   
8.     筛选的行 = Table.SelectRows(展开, each ([分配] <> 0))
   
9. in
   
10.     筛选的行

复制代码