/****** Object: StoredProcedure [dbo].[pro_bobang_BOMCost] Script Date: 07/29/2015 16:09:11 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

drop procpro_bobang_BOMCostGO

create PROC [dbo].[pro_bobang_BOMCost]

@FBomNumber1 varchar(50), --bom单号

@FBomNumber2 varchar(50) --bom单号

as

begin

SET ANSI_WARNINGS OFF

set nocount on

--1.--业务员查找某个BOM单,包含所有BOM(已使用,未使用,已审核,未审核)

with cte as(select convert(varchar(100),'') as cen,Finterid,FBOMNumber as fppbomnumber,convert(varchar(50),'') as fpbomnumber,Fbomnumber AS FCbomnumber,fitemid,fitemid as fpitemid,0 as fpinterid,convert(decimal(18,4),1) as FBomQty,convert(varchar(500),RIGHT('000000'+CONVERT(varchar(10),Finterid),6)) as code fromICBOMwhere (1=1)and FBOMNumber >= @FBomNumber1

and FBOMNumber <= case when @FBomNumber2='' then (select MAX(FBOMNumber) from ICBOM) else @FBomNumber2 end

union all

select convert(varchar(100),cen+'------'),a.finterid,c.fppbomnumber,convert(varchar(50),c.FCbomnumber) as fpbomnumber,a.fbomnumber as fcbomnumber,a.fitemid,c.fpitemid,a.fpinterid,convert(decimal(18,4),a.FAuxQty) as FBomQty,convert(varchar(500),c.code+RIGHT('000000'+convert(varchar(10),a.finterid),6)) ascodefrom(select t1.finterid asfpinterid,t2.FInterID,t1.FItemID,t2.FBOMNumber,t1.FAuxQtyfrom ICBOMChild t1 inner join ICBOM t2 on t1.FItemID=t2.FItemIDwhere FParentID=1038

union all

select t1.finterid as fpinterid,0,t1.fitemid,'',t1.FAuxQty from ICBOMChild t1 where not exists (select * from ICBOM where FItemID=t1.FItemID)) ainner join cte c on a.fpinterid=c.FInterID

)select cen,finterid,fppbomnumber,fpbomnumber,fcbomnumber,fitemid,fpitemid,fpinterid,FBomQty,code into #tmp1 from cte order bycodeOPTION (MAXRECURSION 0)--2.--取采购价格管理物料最新日期的价格(已审核,可使用)

SELECT distinct u1.FSupID,u1.FItemID,case when u1.fcyid=1 then u1.FPrice*t3.FExchangeRate/(1+v1.FValueAddRate/100) else u1.FPrice*t3.FExchangeRate end asFPrice,

t3.FNameASFCyName,u1.FQuoteTime,u1.FDisableDateinto #tmp2 FROMt_SupplyEntry u1INNER JOIN t_ICItem t1 ON u1.FItemID=t1.FItemIDINNER JOIN t_Supply u2 ON u1.FSupID=u2.FSupID AND u1.FItemID=u2.FItemID AND u1.FPType=u2.FPTypeINNER JOIN t_Currency t3 ON t3.FCurrencyID=u1.FCyIDINNER JOIN t_Currency u3 ON u3.FCurrencyID=u2.FCurrencyIDINNER JOIN t_Supplier v1 ON u1.FSupID=v1.FItemIDinner join(select MAX(fquotetime) as fquotetime,FItemID from t_SupplyEntry where FCheckerID>0 group byFItemID

) bbon bb.FItemID=u1.FItemID and bb.fquotetime=u1.FQuoteTimeWHERE t1.FErpClsID not in (6,8) and u1.FCheckerID>0 and u1.FUsed=1

--3.--列出BOM明细成本,取采购价格的最新价格

select t1.cen+t1.code asFTree,t1.cen,t1.code,t1.fppbomnumber,t1.fpbomnumber,t1.fcbomnumber,t1.FItemID,t1.FBomQty,

t2.FSupID,t2.FPriceas FAuxPrice,t1.FBomQty*t2.FPrice as FAmount,case when FCbomnumber<>'' then t1.FBomQty*t2.FPrice end asFJGAmountinto #tmp3 from#tmp1 t1left join #tmp2 t2 on t1.FItemID=t2.FItemIDleft join t_ICItem t3 on t1.FItemID=t3.FItemIDorder byt1.code,t3.FNumber--4.--循环计算中间件成本---这部分部署会出错,先注释,部署成功,再解除注释更新存储过程

declare @cb decimal(18,4),@fbom varchar(50),@fppbom varchar(50)declare auth_cur cursor for

select fppbomnumber,fcbomnumber from #tmp3 where FAuxPrice is null and fcbomnumber<>'' and cen<>'' order by cen desc

openauth_curfetch next from auth_cur into @fppbom,@fbom

while(@@fetch_status=0)begin

set @cb=0

select @cb=isnull(SUM(FAmount),0) from #tmp3 where fpbomnumber=@fbom and fppbomnumber=@fppbom

UPDATE #tmp3 set FAmount=isnull(FAmount,0)+@cb,FAuxPrice=isnull(FAuxPrice,0)+@cb/FBomQty where FCbomnumber=@fbom and fppbomnumber=@fppbom

fetch next from auth_cur into @fppbom,@fbom

end

closeauth_curdeallocateauth_cur----这部分部署会出错,先注释,部署成功,再解除注释更新存储过程

--5.--循环计算成品件成本---这部分部署会出错,先注释,部署成功,再解除注释更新存储过程

declare @cb1 decimal(18,4),@fbom1 varchar(50),@fppbom1 varchar(50)declare auth_cur cursor for

select fppbomnumber,fcbomnumber from #tmp3 where fcbomnumber<>'' and cen='' order by cen desc

openauth_curfetch next from auth_cur into @fppbom1,@fbom1

while(@@fetch_status=0)begin

set @cb1=0

select @cb1=isnull(SUM(FAmount),0) from #tmp3 where fpbomnumber=@fbom1 and fppbomnumber=@fppbom1

UPDATE #tmp3 set FAmount=isnull(FAmount,0)+@cb1,FAuxPrice=isnull(FAmount,0)+@cb1/FBomQty where FCbomnumber=@fbom1 and fppbomnumber=@fppbom1

fetch next from auth_cur into @fppbom1,@fbom1

end

closeauth_curdeallocateauth_cur----这部分部署会出错,先注释,部署成功,再解除注释更新存储过程

select t1.FTree,case when t1.fpbomnumber='' then t1.FCbomnumber end as fpbomnumber,t2.FNumber,t2.FName,t2.FModel,t3.FName as FUnitName,t1.FBomQty,t1.FAuxPrice,t1.FAmount,t1.FJGAmount,t4.FName as FSupName from#tmp3 t1inner join t_ICItem t2 on t2.FItemID=t1.FItemIDinner join t_MeasureUnit t3 on t2.FUnitID=t3.FItemIDleft join t_Supplier t4 on t1.FSupID=t4.FItemIDorder byt1.codedrop table#tmp1drop table#tmp2drop table#tmp3set nocount off

end

--exec pro_bobang_BOMCost 'BOM000032','BOM000032'--exec pro_bobang_BOMCost '*FBomNumber*','#FBomNumber#'