生产bom比对报价BOM--多对一

wqhsz385919

广东台风肆虐，论坛旧题求助！多个工单BOM根据成品料号去核对报价BOM（先用成品料号找到报价BOM，再对比报价BOM下层的物料&用量,比对差异），谢谢！具体见附件模拟，谢谢！ 生产bom比对报价BOM--多对一.rar (14.69 KB, 下载次数: 71)

2018-9-16 12:55 上传

点击文件名下载附件

onlycxb

没时间做,帮你顶

wqhsz385919

onlycxb 发表于 2018-9-16 13:22
没时间做,帮你顶

谢谢onlycxb!

zpy2

可以参考 下面 是合并分组的Sql
CREATE VIEW bomByParent AS SELECT 上阶料号,group_concat(SAP_Code,",")||"~"||group_concat(单耗,",") as keyWords FROM bom GROUP BY 上阶料号 ORDER BY CAST(行号 AS int) DESC

先以 上阶料号(你是 成品料号) 分组，然后 分组 组合SAP_code(你是 下层物流料号)，行成一个 产品料号，下层物料料号~下层物料料号2~下层物料料号3
的字典，然后，下层物料料号~下层物料料号2~下层物料料号3 作为 key 逐一比对，找出 key 不一致的 产品料号，一致的就是 OK 第一步就行了。

你这里 不一致的key  生产BOM和报价BOM 用 2个left join 就可以找出不 包含的 下级物料料号了。

opiona

SQL解决方案：

1.     StrSQL = ""
   
2.     StrSQL = StrSQL & "SELECT A.[工单号],A.[成品料号],A.[序号],A.[下层物料料号],A.[描述]"
   
3.     StrSQL = StrSQL & ",B.[报价用量],B.[报价单价],B.[报价金额]"
   
4.     StrSQL = StrSQL & ",B.[生产用量],B.[生产单价],B.[生产金额]"
   
5. 
   
6.     StrSQL = StrSQL & ",IIF(B.[报价用量]=B.[生产用量],'OK',IIF(B.[报价用量]=0,'报价BOM没有',IIF(B.[生产用量]=0,'生产BOM没有','不一样'))) AS 结果A"
   
7.    
   
8.     StrSQL = StrSQL & " FROM ("
   
9.    
   
10.     StrSQL = StrSQL & "SELECT MAX([工单号]) AS [工单号],[成品料号],[序号],[下层物料料号],[描述]"
    
11.     StrSQL = StrSQL & " FROM ("
    
12.     StrSQL = StrSQL & "SELECT DISTINCT NULL AS [工单号],[成品料号],[序号],[下层物料料号],[描述]"
    
13.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$]"
    
14.     StrSQL = StrSQL & " UNION ALL "
    
15.     StrSQL = StrSQL & "SELECT  DISTINCT [工单号],[成品料号],[序号],[下层物料料号],[描述]"
    
16.     StrSQL = StrSQL & " FROM [" & SH1.Name & "$]"
    
17.     StrSQL = StrSQL & ") GROUP BY [成品料号],[序号],[下层物料料号],[描述]"
    
18.    
    
19.     StrSQL = StrSQL & ") AS A LEFT JOIN ( "
    
20.     StrSQL = StrSQL & "SELECT [成品料号],[序号],[下层物料料号],[描述]"
    
21.     StrSQL = StrSQL & ",SUM([报价用量]) AS [报价用量],MAX([报价单价]) AS [报价单价],SUM([报价金额]) AS [报价金额]"
    
22.     StrSQL = StrSQL & ",SUM([生产用量]) AS [生产用量],MAX([生产单价]) AS [生产单价],SUM([生产金额]) AS [生产金额]"
    
23.     StrSQL = StrSQL & " FROM ("
    
24.     StrSQL = StrSQL & "SELECT [成品料号],[序号],[下层物料料号],[描述]"
    
25.     StrSQL = StrSQL & ",[用量] AS [报价用量],[单价] AS [报价单价],[金额] AS [报价金额]"
    
26.     StrSQL = StrSQL & ",0 AS [生产用量],0 AS [生产单价],0 AS [生产金额]"
    
27.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$]"
    
28.     StrSQL = StrSQL & " UNION ALL "
    
29.     StrSQL = StrSQL & "SELECT [成品料号],[序号],[下层物料料号],[描述]"
    
30.     StrSQL = StrSQL & ",0 AS [报价用量],0 AS [报价单价],0 AS [报价金额]"
    
31.     StrSQL = StrSQL & ",[用量] AS [生产用量],[单价] AS [生产单价],[金额] AS [生产金额]"
    
32.     StrSQL = StrSQL & " FROM [" & SH1.Name & "$]"
    
33.     StrSQL = StrSQL & ") GROUP BY [成品料号],[序号],[下层物料料号],[描述]"
    
34.    
    
35.     StrSQL = StrSQL & ") AS B ON A.[成品料号]=B.[成品料号] AND A.[下层物料料号]=B.[下层物料料号]"

复制代码

opiona

QQ14885553.rar (35.43 KB, 下载次数: 55)

2018-9-17 11:22 上传

点击文件名下载附件

自认为此种效果更好

wqhsz385919

opiona 发表于 2018-9-17 11:23
自认为此种效果更好

感谢opiona的帮助，是我表述清楚，用量不一样的也要列出来，如RC0402FR-0747KL在生产BOM中的用量是100，而报价BOM中是3，也要标示出来，烦请大侠再帮忙看下，非常感谢！

15202881601

兄弟，你好！

点刷新就OK,想进一步了解就

自己点开alt+F11看代码,基本上就是看下表3中B&D是否在表1中存在,不存在就显示报价BOM没有,存在就进一步看表2中有没有,有就看量一致否…

不懂可以加我微信15202881601.

这个需求比较简单,大概用个10分钟左右的样子,复杂点的要有偿服务了:) ,小弟还要养家糊口,合作愉快!!

祝 工作顺利.

opiona

wqhsz385919 发表于 2018-9-17 21:03
感谢opiona的帮助，是我表述清楚，用量不一样的也要列出来，如RC0402FR-0747KL在生产BOM中的用量是100， ...