关于货物先进先出

搁[浅灬 · 发表于 2012-8-8 20:16

yangyangzhifeng 发表于 2012-8-8 19:31
以上附件已经自动更新了库存，不知要什么效果？

谢谢，我需要的是生成表格3的出货仓库，数量，但不需要表格2库存自动更新，谢谢了

yangyangzhifeng · 发表于 2012-8-8 20:36

搁[浅灬发表于 2012-8-8 20:16
谢谢，我需要的是生成表格3的出货仓库，数量，但不需要表格2库存自动更新，谢谢了

将更新表格2的代码注释掉即可

66.rar (9.4 KB, 下载次数: 418)

搁[浅灬 · 发表于 2012-8-8 21:24

yangyangzhifeng 发表于 2012-8-8 20:36
将更新表格2的代码注释掉即可

谢谢，基本可以了，不过如果125 数量500，库存不足，再有125的话，就无法调试

yangyangzhifeng · 发表于 2012-8-8 22:06

搁[浅灬发表于 2012-8-8 21:24
谢谢，基本可以了，不过如果125 数量500，库存不足，再有125的话，就无法调试

Sub test()
Dim arr, i&, d As Object, st1$, st2$
Dim brr, x&, j&, temp1, crr
Set d = CreateObject("scripting.dictionary")
Sheet2.Range("a1").CurrentRegion.Sort key1:="商品名称", order1:=xlAscending, key2:="入库时间", order2:=xlAscending, header:=xlYes
arr = Sheet2.Range("a1").CurrentRegion
For i = 2 To UBound(arr)
st1 = arr(i, 1)
st2 = i
If Not d.exists(st1) Then
d(st1) = st2
Else
d(st1) = d(st1) & "|" & st2
End If
Next
brr = Sheet1.Range("A2", "c" & Sheet1.Range("a65536").End(xlUp).Row)
ReDim crr(1 To UBound(arr) + UBound(brr), 1 To 3)
crr(1, 1) = "商品名称": crr(1, 2) = "仓库": crr(1, 3) = "出货数量"
y = 1
For i = 1 To UBound(brr)
st1 = brr(i, 1)
st2 = ""
If d.exists(st1) Then
x = brr(i, 2)
temp1 = Split(d(st1), "|")
For j = 0 To UBound(temp1)
If x > arr(temp1(j), 3) Then
If arr(temp1(j), 3) > 0 Then
If st2 = "" Then st2 = arr(temp1(j), 2) & "/" & arr(temp1(j), 3) Else st2 = st2 & ";" & arr(temp1(j), 2) & "/" & arr(temp1(j), 3)
If j = UBound(temp1) Then MsgBox "商品" & st1 & "-库存不够": brr(i, 3) = st2
d(st1) = Replace(d(st1), temp1(j) & "|", "", , 1)
x = x - arr(temp1(j), 3)
y = y + 1
crr(y, 1) = arr(temp1(j), 1): crr(y, 2) = arr(temp1(j), 2): crr(y, 3) = arr(temp1(j), 3)
arr(temp1(j), 1) = "": arr(temp1(j), 2) = "": arr(temp1(j), 3) = 0: arr(temp1(j), 4) = ""
End If
Else
If st2 = "" Then st2 = arr(temp1(j), 2) & "/" & x Else st2 = st2 & ";" & arr(temp1(j), 2) & "/" & x
brr(i, 3) = st2
arr(temp1(j), 3) = arr(temp1(j), 3) - x
y = y + 1
crr(y, 1) = arr(temp1(j), 1): crr(y, 2) = arr(temp1(j), 2): crr(y, 3) = x
If arr(temp1(j), 3) = 0 Then arr(temp1(j), 1) = "": arr(temp1(j), 2) = "": arr(temp1(j), 3) = 0: arr(temp1(j), 4) = ""
Exit For
End If
Next
End If
Next
Sheet1.Range("a2").Resize(UBound(brr), 3) = brr
' Sheet2.Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
' Sheet2.Range("a1").Resize(UBound(arr), UBound(arr, 2)).Sort key1:="商品名称", order1:=xlAscending, key2:="入库时间", order2:=xlAscending, header:=xlYes
Sheet3.Cells.ClearContents: Sheet3.Range("a1").Resize(y, 3) = crr
End Sub

复制代码

huaimiao781 · 发表于 2012-8-8 22:31

我也是做仓储的，先进先出我是模拟系统的采用加入库流水号的办法实现。库存是采用品名条件求和得到。
入库一张流水账，出库一张流水账，出库的流水账可是同入库相同的格式。在入库的结存列中逐步扣数。
遇到一个问题就是同品名在一票单单中出多次。原计划是出库指令逐条运行，后来觉得代码难写就还是手工做了。在查找出库数据的时候手工将同品名的累加好，然后再工作表中进行查找作业。有兴趣查看我以前的发帖就能找到。

huazai688 · 发表于 2013-5-22 14:46

收藏{:soso_e100:}

luyina · 发表于 2013-5-22 15:18

yangyangzhifeng 发表于 2012-8-8 20:36
将更新表格2的代码注释掉即可

出库125 185件库存不够！！！！！

IVYQQQQQ · 发表于 2013-9-22 21:56

yangyangzhifeng 发表于 2012-8-8 22:06

老师：能帮我写一下与你这个类似的程序吗？详细见附件！

先进先出领料.zip (55.29 KB, 下载次数: 97)

shaokui123 · 发表于 2013-10-11 22:08

下载慢慢分享

sqwuqing · 发表于 2014-3-10 08:34

下载下来试试先

		自动登录	找回密码
密码			免费注册

[已解决] 关于货物先进先出

评分