MRP(VBA系列):4.得到每天的净欠料

King_HEQ

于 2024-03-19 11:10:45 发布

阅读量493

点赞数 10

CC 4.0 BY-SA版权

文章标签： vba MRP 数据库

本文链接：https://blog.csdn.net/bosney/article/details/136836087

此功能非常适用于JIT和Milk RUN，交货及其频繁的供应方式！

首先，我们看看结果：

使用以上的信息，直接发给供应商，只要提前一/二天，交货负数数量，就可以满足生产！

代码：

'Net shortage只需要在Shortage的基础上修改就可以了
'原理就是读取某天的数据，如果前一天正数/0，自己正数/0，那么这一天不欠料
'如果前一天正数，自己负数，那么欠数就是自己（不用考虑新增）
'如果前一天是负数，自己肯定是负数，求出新增数量，后-前

ReDim irr(1 To UBound(frr), 1 To UBound(frr, 2))

For i = 1 To UBound(frr)
    For j = 1 To 6
        irr(i, j) = frr(i, j)
    Next
Next
    
For i = 1 To UBound(frr)
    For j = 7 To UBound(frr, 2)
        If frr(i, j - 1) >= 0 Then
            If frr(i, j) >= 0 Then
                irr(i, j) = 0
            Else
                irr(i, j) = frr(i, j)
            End If