首页 > 其他分享> 文章详细

金蝶K3 Wise版本BOM批量多级展开代码

2020-12-23 12:32:02 阅读：461 来源： 互联网

标签：Wise t2 t5 u1 t1 K3 FItemID BOM join

K3没有批量BOM多级展开功能，如果需要对所有BOM进行批量多级展开，可以使用如下sql代码来实现。

1、创建BOM父项表

create table HWbom
(
FId int identity(1,1),
FItemID int
)

2、创建BOM子项表

create table HWbomchild
(
FID int identity(1,1),
FOrgID int,
FParentID int,
FLevel int,
FSN nvarchar(200),
FItemID int,
FQty decimal(28,19),
FBOMInterID int,
FEntryID int
)

3、将父项BOM对应的物料内码插入父项表（可带条件）

insert into HWbom
(FItemID)
select t.Fitemid from t_ICItem t
inner join t_item t5 ON t5.FItemID = t.Fitemid
left join icbom t6 on t6.fitemid=t.Fitemid
left join ICBOMGROUP t7 on t7.finterid=t6.fparentid
where
t.FErpClsID in (2,3,5)--2代表自制件，3代表委外件，5代表虚拟件
and t5.fdeleted=0
and t5.fnumber in('物料编码1','物料编码2')--可根据需要限定BOM范围
order by t.fnumber

4、根据父项表数据，将数据插入子项表，为后续卷算做准备

insert into HWbomchild
(FOrgID,FParentID,FSN,FItemID,FQty,FBOMInterID,FEntryID,FLevel)
select
FId,-1 as FParentID,'001',u1.FItemID,1 as Fqty,t1.FInterID as FBOMInterID,-1 as FEntryID,0
from HWbom u1
left join ICBOM t1 on u1.FItemID=t1.FItemID

5、BOM卷算

declare @level int
set @level=1
while exists(
select 1 from
HWbomchild
where FLevel=@level-1
and FItemID in
(select Fitemid from icbom)
)
and @level<20
begin
insert into HWbomchild
(FOrgID,FParentID,FSN,FItemID,FQty,FBOMInterID,FEntryID,FLevel)
select
u1.FOrgID,u1.FID,u1.FSN+'.'+right('000'+CONVERT(nvarchar(50),t2.Fentryid),3),t2.Fitemid,u1.FQty*(t2.FQty/t1.FQty)/(1-t2.FScrap/100),
t2.FInterID,t2.FEntryID,@level
from HWbomchild u1
inner join icbom t1 on u1.FItemID=t1.FItemID
inner join ICBOMChild t2 on t2.FInterID=t1.FInterID
where u1.FLevel=@level-1
set @level=@level+1
end

6、最终BOM展开数据检索，执行结果可复制到Excel

select
t2.FNumber 产品代码,t2.FName 产品名称,t2.FModel 产品规格,
t1.FSN 序号,
t3.FNumber 材料代码,t3.FName 材料名称,t3.FModel 材料规格,t1.FQty 产品用量,yy.fname 材料属性,
t5.FQty 单位用量,
t5.FScrap 损耗率,
t4.FBOMNumber BOM编号,
t6.FName as 是否跳层,
t5.FNote 备注,
t5.FPositionNo 位置号
from HWbom u1
inner join HWbomchild t1 on u1.FId=t1.FOrgID
inner join t_icitem t2 on t2.FItemID=u1.FItemID
inner join t_ICItem t3 on t3.FItemID=t1.FItemID
left join ICBOM t4 on t4.FInterID=t1.FBOMInterID
left join ICBOMChild t5 on t5.FInterID=t1.FBOMInterID and t5.FEntryID=t1.FEntryID
left join t_SubMessage t6 on t6.FInterID=t4.FBOMSkip
inner join t_SubMessage yy on yy.FInterID=t3.FErpClsID
--where fbomnumber='物料编码'
order by u1.FId,t1.FSN

7、最后清空父项表和子项表数据，以便下次运算使用（不用重新建表了）

TRUNCATE TABLE HWbom
--清空附表数据
TRUNCATE TABLE HWbomchild
--清空子表数据

8、如果不再使用，可以将这两个表删除

drop table HWbom
--删除父表
drop table HWbomchild
--删除子表

标签：Wise,t2,t5,u1,t1,K3,FItemID,BOM,join
来源： https://blog.csdn.net/mamengna/article/details/111587231

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

金蝶K3 Wise版本BOM批量多级展开代码