dbo.QBM_PIndexCreateGenerated_XI

1  create   procedure QBM_PIndexCreateGenerated_XI (@TableName varchar(30) ) as begin declare @ColumnName varchar(30) declare @Indexname varchar(30
2) declare @DebugSwitch int = 0  declare @ElementBufferMulti QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int SET XACT_ABORT OFF BEGIN
3 TRY  insert into @ElementBufferMulti (Ident2) select c.ColumnName from DialogTable tc with (readpast) join DialogColumn c with (readpast) on c.UID_DialogTable
4 = tc.UID_DialogTable and tc.TableType in ('B', 'T') and c.SchemaDataLen = 138 and c.ColumnName <> 'XObjectKey'  join sys.tables ts with (readpast) on 
5tc.TableName = ts.name collate database_default and ts.type = 'U'  join sys.schemas s with (readpast) on ts.schema_id = s.schema_id and s.name = 'dbo' 
6join sys.columns cs with (readpast) on ts.object_id = cs.object_id and cs.name = c.ColumnName collate database_default  and not exists (Select top 1 1 
7from QBM_VHeavyLoadTables h where h.TableName = tc.TableName and h.IsNoAutoIndex = 1 ) and tc.TableName = @TableName  and tc.IsMAllTable = 0 order by 1
8 select @ElementCount = @@ROWCOUNT select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @ColumnName = bu.Ident2 from @ElementBufferMulti
9 bu where bu.ElementIndex = @ElementIndex select @Indexname = dbo.QBM_FGICodeName( 'XI', @TableName + @ColumnName ) if @DebugSwitch > 0 begin print @Indexname
10 end exec QBM_PIndexCreate @TableName, @indexname, 0, @columnname select @ElementIndex += 1 end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR
11 ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
12