L_shipment_consume_Tbl(N).SHIPMENT_LINE_ID :=REC_SHIPMENT_LINE.SHIPMENT_LINE_ID;
L_shipment_consume_Tbl(N).PRIMARY_QUANTITY :=REC_SHIPMENT_LINE.PRIMARY_QUANTITY;
----消耗红沙的数量就是瓶子的容量。
L_shipment_consume_Tbl(N).consume_pre_qty :=REC_SHIPMENT_LINE.PRIMARY_QUANTITY;
L_shipment_consume_Tbl(N).consume_curr_qty :=0;
----期初数量就是剩下要分配的数量。因为红色沙子已经被消耗掉一部分了。
L_PRE_PERIOD_QTY :=L_PRE_PERIOD_QTY-REC_SHIPMENT_LINE.PRIMARY_QUANTITY;
ELSE ---当红色沙子的数量小于瓶子容量的时候
L_shipment_consume_Tbl(N).SHIPMENT_LINE_ID :=REC_SHIPMENT_LINE.SHIPMENT_LINE_ID;
L_shipment_consume_Tbl(N).PRIMARY_QUANTITY :=REC_SHIPMENT_LINE.PRIMARY_QUANTITY;
----瓶子装 红色沙子的数量就是红色沙子的数量了
L_shipment_consume_Tbl(N).consume_pre_qty :=L_PRE_PERIOD_QTY;
----这时候已经用完红色沙子了，开始用黑色沙子了-----
---2.2 当黑色沙子数量大于瓶子 可用的容量 的时候。
IF L_CURR_PERIOD_QTY > (REC_SHIPMENT_LINE.PRIMARY_QUANTITY - L_PRE_PERIOD_QTY) THEN
---该瓶子 装黑色沙子的数量 就是 瓶子的可用容量。
L_shipment_consume_Tbl(N).consume_curr_qty := REC_SHIPMENT_LINE.PRIMARY_QUANTITY - L_PRE_PERIOD_QTY;
---本次还有多少数量需要被下一个单号分摊，就是确定剩下还有多少黑色沙子可用。
L_CURR_PERIOD_QTY := L_CURR_PERIOD_QTY - L_shipment_consume_Tbl(N).consume_curr_qty;
ELSE
----当黑色沙子数量 小于或者等于 瓶子的可用容量的时候
-----该瓶子装黑色沙子的数量就是 瓶子的可用容量。
L_shipment_consume_Tbl(N).consume_curr_qty := L_CURR_PERIOD_QTY;
-----黑色沙子用完咯！~~一定要赋值0，因为根据黑色沙子的使用情况判断后面是否要退出瓶子的循环。
L_CURR_PERIOD_QTY := 0;
END IF;
L_PRE_PERIOD_QTY:= 0;
END IF;
N := N+1;
----当黑色沙子用完的时候，要退出循环。因为沙子数量可能很少，但是瓶子很多。。。没必要再循环下去了。
IF L_CURR_PERIOD_QTY <= 0 THEN
EXIT;
END IF;
END LOOP;
---显示装的结果。
FOR I IN 1..L_shipment_consume_Tbl.COUNT LOOP
DBMS_OUTPUT.PUT_LINE(L_shipment_consume_Tbl(I).SHIPMENT_LINE_ID
||'-'|| L_shipment_consume_Tbl(I).PRIMARY_QUANTITY
||'-'|| L_shipment_consume_Tbl(I).consume_pre_qty
||'-'|| L_shipment_consume_Tbl(I).consume_curr_qty
);
END LOOP;
END;
/*
---例如：
L_PRE_PERIOD_QTY:0 -L_CURR_PERIOD_QTY:2020.2
18467366-1605.5-0-1605.5
18633076-5014.7-0-414.7
*/