缺料表

opiona

h749600173 发表于 2018-4-26 16:32
对求缺料表的BOM作一下说明，可能这样表达比较直观。

看不懂BOM表
习惯看这种：

h749600173

zpy2 发表于 2018-4-27 06:19

代码要放在哪里运行？我再把资料重新整理及作相应的说明，看看对你写码有没有帮助？

h749600173

opiona 发表于 2018-4-27 09:30
看不懂BOM表
习惯看这种：

我再把资料重新整理及作相应的说明，看看对你写码有没有帮助？看上一楼，谢谢！

13825719951

h749600173 发表于 2018-4-24 10:03
因为BOM为多阶层，好多成品下的半品是共用的，采购物料大部分也是共用的。

亲,你的BOM表的建立就有问题呀.
如果在第二阶中是共用的, 那就要把这个在存货中也建立,才能被索引.

zpy2

h749600173 发表于 2018-4-27 13:04
代码要放在哪里运行？我再把资料重新整理及作相应的说明，看看对你写码有没有帮助？

你计算的结果和我的不一样的很多,不知道你是如何得出这些结果的。你如果有试验的数据需要运行比对，可以，按照我的stu.xls.zip里excel文件的格式把数据准备好发给我，我在服务器上运行。

zpy2

我是手机，那位老师下载了22楼的附件，方便把代码贴出来，大家学习学习吧，先谢谢了。

opiona

zpy2 发表于 2018-4-27 19:38
我是手机，那位老师下载了22楼的附件，方便把代码贴出来，大家学习学习吧，先谢谢了。

只是一种方式，结果不一定正确
思路是论坛的，不过很好用！

代码太长，给出主要函数

1. Private Function Get_data(PN, QTY, DATEX)
   
2.     Rem 编码，用量
   
3.     Rem 在BOM表中找
   
4.     Dim DOU2 As Double
   
5.     Dim A As Long
   
6.    
   
7.     For A = 0 To UBound(Arr_BOM, 1)
   
8.         Rem 存在此编码
   
9.         If Arr_BOM(A, 0) = PN Then
   
10.             If Dic_temp.exists(Arr_BOM(A, 2)) Then
    
11.                 Rem 如果词典中存在子件，就进行递归
    
12.                 Get_data = Get_data(Arr_BOM(A, 2), Deduct_Stock(Arr_BOM(A, 2), Arr_BOM(A, 3), Arr_BOM(A, 4), QTY, DATEX), DATEX)
    
13.             Else
    
14.                 Rem 如果已经是最底层，则操作公用数组
    
15.                 Rem 加一个一行
    
16.                 If IsNull(Arr_BOM(A, 3)) = True Then Arr_BOM(A, 3) = " "
    
17.                 DOU2 = Deduct_Stock(Arr_BOM(A, 2), Arr_BOM(A, 3), Arr_BOM(A, 4), QTY, DATEX)
    
18.                
    
19.                 ReDim Preserve Arr_结果(0 To UBound(Arr_结果, 1), 0 To UBound(Arr_结果, 2) + 1)
    
20.                 Arr_结果(0, UBound(Arr_结果, 2)) = Arr_BOM(A, 2)
    
21.                 Arr_结果(1, UBound(Arr_结果, 2)) = Arr_BOM(A, 3)
    
22.                 Arr_结果(2, UBound(Arr_结果, 2)) = DATEX
    
23.                 Arr_结果(3, UBound(Arr_结果, 2)) = DOU2
    
24.                 Arr_结果(4, UBound(Arr_结果, 2)) = "BOM"
    
25.             End If
    
26.         End If
    
27.     Next A
    
28.    
    
29.    
    
30. End Function
    
31. 
    
32. 
    
33. Private Function Deduct_Stock(PN, NAME, Usage, Demand_Qty, DATEX)
    
34.     Rem 检查库存,将需求从库存中扣除
    
35.     Dim DOU1, DOU2 As Double
    
36.     Dim A As Long
    
37.     Dim DATE1 As Date
    
38.     DOU1 = Usage * Demand_Qty
    
39.     DOU2 = 0
    
40.     If IsNull(Usage) = True Then Usage = 0
    
41.     If IsNull(NAME) = True Then NAME = " "
    
42.    
    
43.     For A = LBound(Arr_库存, 1) + 1 To UBound(Arr_库存, 1)
    
44.         Rem 找到此父件,日期
    
45.         If Arr_库存(A, 2) = PN Then
    
46.             If Arr_库存(A, 4) >= DOU1 Then
    
47.                 Rem 如果库存大于所需，库存中扣减掉此次用量
    
48.                 DOU2 = Usage * Demand_Qty
    
49.             Else
    
50.                 Rem 如果库存小于所需，库存=0，扣减库存后数量向BOM表找
    
51.                 DOU2 = Arr_库存(A, 4)
    
52.             End If
    
53.             Arr_库存(A, 4) = Arr_库存(A, 4) - DOU2
    
54.             If DOU2 > 0 And DOU1 > 0 Then
    
55.                 ReDim Preserve Arr_结果(0 To UBound(Arr_结果, 1), 0 To UBound(Arr_结果, 2) + 1)
    
56.                 Arr_结果(0, UBound(Arr_结果, 2)) = PN
    
57.                 Arr_结果(1, UBound(Arr_结果, 2)) = NAME
    
58.                 Arr_结果(2, UBound(Arr_结果, 2)) = DATEX
    
59.                 Arr_结果(3, UBound(Arr_结果, 2)) = DOU2
    
60.                 Arr_结果(4, UBound(Arr_结果, 2)) = "库存"
    
61.                 DOU1 = DOU1 - DOU2
    
62.             End If
    
63.         End If
    
64.     Next A
    
65.    
    
66.     Rem 如果库存无数据，则全部向BOM表找
    
67.     Deduct_Stock = DOU1  '//Usage * Demand_Qty - DOU2
    
68. End Function

复制代码

opiona

调用函数：

1.     Rem ===============================================================================================初始化结果
   
2.     ReDim Arr_结果(0 To 4, 0 To 0)
   
3.     Arr_结果(0, 0) = "编码"
   
4.     Arr_结果(1, 0) = "名称"
   
5.     Arr_结果(2, 0) = "日期"
   
6.     Arr_结果(3, 0) = "数量"
   
7.     Arr_结果(4, 0) = "出处"
   
8.    
   
9.    
   
10.     Rem ===============================================================================================将Bom表初始化到词典
    
11.     Set Dic_temp = CreateObject("Scripting.Dictionary")
    
12.     For C = LBound(Arr_BOM, 1) To UBound(Arr_BOM, 1)
    
13.         If Not Dic_temp.exists(Arr_BOM(C, 0)) Then
    
14.             Dic_temp(Arr_BOM(C, 0)) = ""
    
15.         End If
    
16.     Next C
    
17.    
    
18.     Rem ===============================================================================================获得初步结果
    
19.     For B = 3 To UBound(Arr_需求, 2) Step 2
    
20.         For A = 1 To UBound(Arr_需求, 1)
    
21.             SkuTemp = Arr_需求(A, 0)  '//父件名
    
22.             NameTemp = Arr_需求(A, 1) '//父件名
    
23.             DemandDate = Arr_需求(A, B) '//需求日期
    
24.             Rem 存在需求
    
25.             If Arr_需求(A, B + 1) > 0 Then
    
26.                 Rem  提示信息，在状态栏显示
    
27.                 Application.StatusBar = "正在拆解BOM数据，当前父件编码：" & SkuTemp
    
28.                 DoEvents
    
29.                 Rem 扣除库存后的
    
30.                 Call Get_data(Arr_需求(A, 0), Deduct_Stock(SkuTemp, NameTemp, 1, Arr_需求(A, B + 1), DemandDate), DemandDate)
    
31.             End If
    
32.         Next A
    
33.     Next B

复制代码

h749600173

zpy2 发表于 2018-4-27 19:34
你计算的结果和我的不一样的很多,不知道你是如何得出这些结果的。你如果有试验的数据需要运行比对，可以 ...

我给出的只是格式，数据是不对的，请先按照我昨天发的最新资料（可能您在这之前对BOM结构的理解有些许偏差）作了BOM的结构说明）及需求写码，谢谢！。

zpy2

h749600173 发表于 2018-4-20 18:41
没有人去开发这一块，每次用人工算，好烦锁。所以求各位大师帮写个代码。谢谢！

没看懂附件表的逻辑关系

库存那里有很多行，但是需求只有不到20行

最好你说一下你们怎么算的，比如良率是什么？？
从沙发二楼开始，大家都想知道你们是这么算的，所以，问题不再编程，代码都已经写好了，当然，可能距离你的需求有差距。vba你们也运行了，差距在哪也不明确。
bom这一块，以前，我就是准备数据源然后上传到服务器，键入tCode运行的，一般都是一个订单一个bom,当时，我也对这个bom计算比较好奇，听说是咨询公司定制的。你们这个是涉及到半阶产品，也比较有趣，你自己也挺想解决问题的，只是这样感觉不在一个频道上，你自己也看到了代码也不算是很复杂的，所以，如果就这些信息，可能也只有这样了。