BOM展开的中间函数给大家

最近一直在搞BOM展开的工作,其实在生产制造企业都是最需要的. 这里放BOM展开的中间函数,提供给需要展开BOM写存储的一些思路.

 

BOM展开存储过程中间函数，其他的存储过程展开都需要调用此存储过程函数

执行：Exec BOMCOMMONRpt @Code,@Sort,@ItemCode,@Quantity,@Level out

需要传入变量Code：需要展开的物料代码

                      Sort：排序

                      ItemCode：第一层的源物料

                      Quantity：父物料数量

                      Level ：层级

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[BOMCOMMONRpt]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

Drop Procedure [dbo].[BOMCOMMONRpt]

GO

 

SET QUOTED_IDENTIFIER OFF

GO

SET ANSI_NULLS OFF

GO

 

Create Procedure [dbo].[BOMCOMMONRpt]

(

       @ItemCode  nvarchar(40),

       @Sort     int,

       @Source nvarchar(50),

       @Quantity1 int,

       @Level   int   out

)

--With encryption

as

 

declare @LevCount int                     --LevelCount

declare @strSQL nvarchar(4000)       

declare @strSQL1 nvarchar(4000) 

declare @Father nvarchar(50)

declare @Code nvarchar(50)

declare @Quantity2 int

 

 

Set @strSQL = ''

Set @strSQL1 = ''

set @LevCount=@Level

 

Begin

 

--创建存储表

--    Create Table W_Temp1

--    (

--           IDNo int identity(1,1),                      --No

--           Father nvarchar(30)    ,                      --AcctCode

--           Code nvarchar(200)   ,                     --AcctName

--           Quantity int,

--           BOMLevel int,

--           SortID   int,

--           Source nvarchar(50),

--           BOMQnty int

--          

--    )

 

       --alter table W_Temp1 add BOMQnty int

 

       Declare @MyPrc Cursor

       Set @MyPrc = Cursor FOR

           Select  Father,Code,Quantity from itt1

           where Father =@ItemCode

      

       Open @MyPrc

       Fetch next from  @MyPrc Into @Father,@Code,@Quantity2

       While @@FETCH_STATUS = 0

       Begin

 

              --插入所有子件

 

              insert into W_Temp1 ( Father,Code,Quantity,BOMLevel,SortID,Source,BOMQnty) values (@Father,@Code,@Quantity2*@Quantity1,@LevCount,@Sort,@Source,@Quantity2)

                 

              Fetch next from  @MyPrc Into @Father,@Code,@Quantity2

 

       End

       Close @MyPrc

       Deallocate @MyPrc

 

       set @Level=@Level+1

 

 

End