根据订单代码，在库存内找出订单所要代码的数量

hyd1205 · 发表于 2009-8-9 11:24

出《订单表》里面代码所对应的数量，在《库存表》G列用什么公式可以自动分配数量。出库时按“生产日期”先后顺序出库。
比如，《订单表》代码A11　要出库750件，
而且这代码，在《库存表》ES-001-01、ES-001-02、ES-001-03、ES-001-04货位有这些货，如果一个货位的数量不够时，自动在《库存表》查找代码为A11的其它货位的数量，直到《订单表》代码A11需出库的数量为止，（如果库存不够时，库存有多少出多少），如果同时匹配对《订单表》要出库的所有代码时，用VBA怎么实现在“库存表”G列出库数的自动匹配？请大侠帮忙。谢谢！详见附件。

hyd1205 · 发表于 2009-8-9 12:11

请高手帮忙！多谢！

hyd1205 · 发表于 2009-8-9 16:28

刷新一下帖子。

figfig · 发表于 2009-8-9 16:57

Sub fig168()

Set x = CreateObject("msxml2.domdocument")
Set r = x.createelement("root")
x.appendchild r
For i = 1 To Sheet1.[b65535].End(xlUp).Row
Set aa = x.createelement(Sheet1.Cells(i, "b"))
aa.Text = Sheet1.Cells(i, "b")
Set bb = x.createelement(Sheet1.Cells(i, "b"))
bb.Text = Sheet1.Cells(i, "c")
r.appendchild (aa)
r.appendchild (bb)
Next
y = 2
Do While Sheet2.Cells(y, "d") <> ""
rr = "//" & Sheet2.Cells(y, "d")
Set List = r.selectsinglenode(rr)
If Not List Is Nothing Then
If Val(List.nextsibling.Text) > 0 Then
If Sheet2.Cells(y, "f") <= Val(List.nextsibling.Text) Then

Sheet2.Cells(y, "g") = Sheet2.Cells(y, "f")

kk = Val(List.nextsibling.Text) - Val(Sheet2.Cells(y, "f"))

List.nextsibling.Text = kk

Else

Sheet2.Cells(y, "g") = Val(List.nextsibling.Text)

List.nextsibling.Text = 0
End If
'if sheet2.Cells(

End If

End If
y = y + 1
Loop

End Sub

hyd1205 · 发表于 2009-8-9 17:31

原帖由 figfig 于 2009-8-9 16:57 发表
Sub fig168()

Set x = CreateObject("msxml2.domdocument")
Set r = x.createelement("root")
x.appendchild r
For i = 1 To Sheet1..End(xlUp).Row
Set aa = x.createelement(Sheet1.Cells(i, "b"))
aa.T ...

非常感谢：figfig 大侠，可不可以上传附件。本人对VBA昨天才开始学习入门知识。还请见谅。

hyd1205 · 发表于 2009-8-9 18:13

原帖由 figfig 于 2009-8-9 16:57 发表
Sub fig168()

Set x = CreateObject("msxml2.domdocument")
Set r = x.createelement("root")
x.appendchild r
For i = 1 To Sheet1..End(xlUp).Row
Set aa = x.createelement(Sheet1.Cells(i, "b"))
aa.T ...

大侠我在运行中出现了，“系统错误 &H80004005 (-2147467259).未指定的错误。”这是什么原因。

figfig · 发表于 2009-8-9 19:05

Sub fig168()

Set x = CreateObject("msxml2.domdocument")
Set r = x.createelement("xml")
x.appendchild r
For i = 1 To Sheet1.[a65535].End(xlUp).Row
Set rr = x.createelement("root")
kk = Sheet1.Cells(i, "a")
'kk = Replace("kk", "-", "")

Set aa = x.createelement("name")
aa.Text = kk
Set bb = x.createelement("amt")
bb.Text = Sheet1.Cells(i, "b")
rr.appendchild (aa)
rr.appendchild (bb)
r.appendchild (rr)
Next
y = 2
Do While Sheet4.Cells(y, "d") <> ""

ll = Sheet4.Cells(y, "d")

Set List = r.SelectSingleNode("//name[text()='" & ll & "']")
If Not List Is Nothing Then
'Debug.Print List.LastChild.Text
If Val(List.NextSibling.Text) > 0 Then
If Sheet4.Cells(y, "e") <= Val(List.NextSibling.Text) Then

Sheet4.Cells(y, "f") = Sheet4.Cells(y, "e")

kk = Val(List.NextSibling.Text) - Val(Sheet4.Cells(y, "e"))

List.NextSibling.Text = kk

Else

Sheet4.Cells(y, "f") = Val(List.NextSibling.Text)
Debug.Print List.NextSibling.Text
List.NextSibling.Text = 0
End If
'if sheet4.Cells(

End If

End If
y = y + 1
Loop

End Sub

hyd1205 · 发表于 2009-8-9 20:05

原帖由 figfig 于 2009-8-9 19:05 发表
Sub fig168()

Set x = CreateObject("msxml2.domdocument")
Set r = x.createelement("xml")
x.appendchild r
For i = 1 To Sheet1.[a65535].End(xlUp).Row
Set rr = x.createelement("root")
kk = Sheet1 ...

figfig 大侠，非常谢谢，OK了。解决了大问题。以前我用的是函数，运行起来非常之慢。现在好了，十来秒就搞定。谢谢。

[ 本帖最后由 hyd1205 于 2009-8-9 20:15 编辑 ]

caspar.cai · 发表于 2013-12-6 11:24

入库日期生产日期最终位置号全代码库存数订单数结余
2009/7/8 2009/7/30 EG-009-01A GWH060EK732-R72-S 12 12 0
2015/4/3 2015/2/5 EG-009-01b GWH060EK732-R72-S 1 1 0
2011/4/5 2011/2/3 EG-009-01C GWH060EK732-R72-S 9 7 2
如上，我预定20件，有效期不一致的，根据先进先出的原则，应在EG-009-01A取12件，EG-009-01C取8件，还请指教！

hyd1205 · 发表于 2014-3-5 19:53

caspar.cai 发表于 2013-12-6 11:24
入库日期生产日期最终位置号全代码库存数订单数结余
2009/7/8 2009/7/30 EG-009-01A GWH060EK732-R7 ...

在执行语句前，把生产日期排一下序就可以了。

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

[求助] 根据订单代码，在库存内找出订单所要代码的数量