dbo.QBM_PViewBuildV

1   create   procedure QBM_PViewBuildV ( @UID_TablePattern varchar(38) = '%' , @dummy1 varchar(38) = '%' , @GenProcID varchar(38) = '%' , @AutoCorrectColumns
2 bit = 0 ) as begin  declare @UID_DialogTable varchar(38)  declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') declare @ElementBuffer QBM_YCursorBuffer
3 declare @ElementCount int declare @ElementIndex int SET XACT_ABORT OFF BEGIN TRY if isnull(@GenProcID, '') = '' begin select @GenProcID = @GenProcID_R
4 end insert into @ElementBuffer (UID1) select x.UID_DialogTable from ( select t.UID_DialogTable as UID_DialogTable, def.SortOrder from dialogtable t join
5 dialogtable b on t.UID_DialogTableBase = b.UID_DialogTable join QBMModuleDef def on LEFT(t.uid_dialogtable, 3) = def.ModuleName where t.tabletype = 'V'
6 and b.tabletype in ('B') and ( t.UID_DialogTable like @UID_TablePattern ) union  select @UID_TablePattern, 0 where charindex('%', @UID_TablePattern ) 
7= 0 and @UID_TablePattern > ' ' ) as x order by x.SortOrder, x.UID_DialogTable select @ElementCount = @@ROWCOUNT select @ElementIndex = 1 while @ElementIndex
8 <= @ElementCount begin select top 1 @UID_DialogTable = bu.UID1 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex exec QBM_PViewBuildV_intern
9 @UID_DialogTable , @GenProcID, @AutoCorrectColumns = @AutoCorrectColumns select @ElementIndex += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd 
10default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH  ende: return end 
11