Indented Bom's to csv or Excel? 2

select * from  fn_Explode_Bill('MONITOR 40') ORDER BY KEYVALUE 
[\code]

After you run this code to create a function

[code]
IF EXISTS (SELECT * FROM DBO.SYSOBJECTS WHERE NAME = 'fn_Explode_Bill' AND TYPE = 'TF')
drop function fn_Explode_Bill
go


create function fn_Explode_Bill
(
@STARTINGPARENT AS VARCHAR(100)
)
returns  @TESTstructure table (
low_level int,
Par_item_no VARCHAR (100),
Comp_Item_no VARCHAR (100),
WKQTYPER float,
Extended_WKQTYPER float,
Process_flag char (1),
keyvalue VARCHAR(2000),
idi numeric identity
)
as
begin

declare @ssql as nVARCHAR (2000)
DECLARE @RowsAdded int
declare @low_level int

set @low_level = 0
insert into @TESTstructure (low_level,Par_item_no,Comp_Item_no,WKQTYPER,Extended_WKQTYPER,Process_flag,keyvalue)
values (@low_level,@STARTINGPARENT,@STARTINGPARENT,1,1,'Y','')

   SET @RowsAdded = @@rowcount

   WHILE @RowsAdded > 0 and  @low_level <= 500
    BEGIN
	set @low_level = @low_level + 1
	insert into @TESTstructure (low_level,Par_item_no,Comp_Item_no,WKQTYPER,Extended_WKQTYPER,Process_flag,keyvalue)
	Select @low_level,ITEM_NO,A.COMP_ITEM_NO,QTY_PER_PAR,QTY_PER_PAR * WKQTYPER,'Y',
          CASE WHEN DATALENGTH(B.KEYVALUE) < 1800 THEN B.KEYVALUE+A.item_no + str(seq_no,4) ELSE B.KEYVALUE END
  	  FROM BMPRDSTR_SQL a 
	    inner join @TESTstructure b on b.process_flag = 'Y' and b.Comp_Item_no = ITEM_NO
--          FOR PHANTOM LOGIC ADD JOIN TO IMITMIDX_SQL HERE
        SET @RowsAdded = @@rowcount


	update @TESTstructure
	  set process_flag = 'N'
	   where low_level <> @low_level
             and process_flag = 'Y'
	update @TESTstructure
	  set comp_item_no = ''
	   where low_level = 0 
	     and par_item_no = comp_item_no
             and comp_item_no <>  ''
     END

IF @low_level >= 500 
BEGIN 
  insert into @TESTstructure (low_level,Par_item_no) values (@low_level,'Recursion')
END 
return 
end 
go 


[\code]



good luck
Tom