先进先出系统求助，有大神吗？

不行_换吉喆

xinjiana 发表于 2014-4-6 14:25
好的，晚上给你看下

十分感谢。

cbtaja

1. Sub 发料()
   
2. With Sheet1.[a1].CurrentRegion
   
3.     '先按原始数据料号、批次升序排序，以便先进先出
   
4.     .Sort key1:=Range("A1"), order1:=xlAscending, _
   
5.     key2:=Range("E1"), order2:=xlAscending, Header:=xlYes
   
6.     arr = .Value
   
7.     a = UBound(arr)
   
8.     ReDim crr(1 To a, 1 To 5)
   
9. End With
   
10. brr = Sheet2.[a1].CurrentRegion
    
11. b = UBound(brr)
    
12. Set dic = CreateObject("Scripting.Dictionary")
    
13. For i = 3 To b
    
14.     dic(brr(i, 1)) = brr(i, 3)
    
15. Next
    
16. For i = 2 To a
    
17.     '下面计算出货情况
    
18.     If dic.exists(arr(i, 1)) Then '当前料号有出货需求
    
19.         m = dic(arr(i, 1)) '查询总需求出货量
    
20.         chjl = chjl + 1 '预增一条出货记录
    
21.         For j = 1 To 5
    
22.             crr(chjl, j) = arr(i, j) '填写出货记录，暂假定把本储位全部出货
    
23.         Next
    
24.         '接着计算：①实际出货量、②当前储位余量
    
25.         If arr(i, 3) >= m Then  '当前储位足够时
    
26.             crr(chjl, 3) = m '当前料号出货量按需发满，
    
27.             dic.Remove arr(i, 1) '然后清除当前料号出货需求记录
    
28.             arr(i, 3) = arr(i, 3) - m '当前储位余量
    
29.         Else '否则，当前储位余量不足
    
30.             crr(chjl, 3) = arr(i, 3) '出货量为当前储位数量
    
31.             arr(i, 3) = 0 '当前储位无剩余
    
32.         End If
    
33.     End If
    
34.     If arr(i, 3) > 0 Then '如当前储位确有剩余
    
35.         yhjl = yhjl + 1 '则在新库存记录中增加一条记录编号
    
36.         For j = 1 To 5
    
37.             arr(yhjl, j) = arr(i, j) '填写该储位的新库存记录
    
38.         Next
    
39.     End If
    
40. Next
    
41. With Sheet2
    
42.     .Range("G3:K1048576").Clear
    
43.     .[G3].Resize(chjl, 5) = crr '输出发料清单
    
44. End With
    
45. With Sheet1
    
46.     .Range("G2:K1048576").Clear
    
47.     .[G2].Resize(yhjl, 5) = arr '更新库存清单
    
48. End With
    
49. If dic.Count > 0 Then MsgBox "部分货物库存不足、未发满！", vbExclamation, "发货排料提示"
    
50. End Sub

复制代码

cbtaja

附件在此。。。 根据批次先进先出.rar (23.13 KB, 下载次数: 171)

2014-4-6 18:20 上传

点击文件名下载附件

不行_换吉喆

xinjiana 发表于 2014-4-6 14:25
好的，晚上给你看下

大神有没有空帮我看一下 产品怎么按照批次做到先进先出呢？

不行_换吉喆

cbtaja 发表于 2014-4-6 18:14
附件在此。。。

附件我已经收到了，十分感谢您的帮助。

xinjiana

不行_换吉喆 发表于 2014-4-7 15:35
大神有没有空帮我看一下 产品怎么按照批次做到先进先出呢？

应该不用我做了吧，哈哈

不行_换吉喆

xinjiana 发表于 2014-4-7 16:33
应该不用我做了吧，哈哈

十分感谢您的帮助。但是我在论坛上看到一个先进先出的软件挺好的。您看能不能帮助我修改一下，下面我上传附件了。

不行_换吉喆

我觉得这样修改后更适合我现在的工作需求，麻烦大师再帮我修改一下。谢谢哈。

a2125216

cbtaja 发表于 2014-4-6 18:14
附件在此。。。

大神很厉害，但是我发现一个问题，举例来说，编号701000007的零件，一共有3个批次，如果我设定的出库数量超过第一个批次，那么第一个批次完全出库没有问题，但是接下来第二个批次的出库数量，不是我设定的出库数量减去第一个批次出库数量的差，这样做不到累加出库，示例中编号701000007的零件总数量有366个，3个库位，但是我设定的出库数量超过132，就会提示数量不足，但实际数量是可以满足的，能否修改下呢？非常感谢！