dbo.QBM_PModuleDependCollFill

1         create   procedure QBM_PModuleDependCollFill as begin declare @Xdate datetime = getutcdate() declare @XUser nvarchar(64) declare @GenProcID
2 varchar(38) SET XACT_ABORT OFF BEGIN TRY select @GenProcID = dbo.QBM_FGISessionContext('') select @XUser = dbo.QBM_FGISessionContext('XUser') begin transaction
3  if not exists (select top 1 1 from QBMModuleDef where UID_ModuleDef = 'CCC-Moduledefinition' ) begin insert into QBMModuleDef (UID_ModuleDef, DisplayValue
4, XObjectKey , Modulename, ModuleVersion, MigrationVersion , XDateInserted, XDateUpdated, XUserInserted, XUserUpdated) select 'CCC-Moduledefinition' , 
5'Customer configured content', '<Key><T>QBMModuleDef</T><P>CCC-Moduledefinition</P></Key>' , 'CCC', d.ModuleVersion, d.MigrationVersion , @Xdate, @Xdate
6, @XUser, @XUser from QBMModuleDef d where d.ModuleName = 'QBM' exec QBM_PTransportHistoryInsert 'CCC', @XUser end else begin update QBMModuleDef set ModuleVersion
7 = x.ModuleVersion , MigrationVersion = x.MigrationVersion , XDateUpdated = @Xdate , XUserUpdated = @XUser from QBMModuleDef d , ( select a.MigrationVersion
8, a.ModuleVersion from QBMModuleDef a where a.ModuleName = 'QBM' ) as x where d.ModuleName = 'CCC' and ( isnull(d.ModuleVersion, '') <> x.ModuleVersion
9 or isnull(d.MigrationVersion, '') <> x.MigrationVersion ) end  update QBMModuleDef set ModuleVersion = x.ModuleVersion , XDateUpdated = @Xdate , XUserUpdated
10 = @XUser from QBMModuleDef d , ( select a.MigrationVersion, a.ModuleVersion from QBMModuleDef a where a.ModuleName = 'QBM' ) as x where d.ModuleName =
11 'MDK' and ( isnull(d.ModuleVersion, '') <> x.ModuleVersion ) delete QBMModuleDependCollection insert into QBMModuleDependCollection(UID_ModulePredecessor
12, UID_ModuleFollower) select UID_ModuleDef, UID_ModuleDef from QBMModuleDef union select UID_ModuleDef, 'CCC-Moduledefinition' from QBMModuleDef union 
13select d.UID_ModulePredecessor, d.UID_ModuleFollower from QBMModuledepend d declare @lauf int = 1 while @lauf > 0 begin insert into QBMModuleDependCollection
14(UID_ModulePredecessor, UID_ModuleFollower) select distinct v.UID_ModulePredecessor, n.UID_ModuleFollower from QBMModuleDependCollection v join QBMModuleDependCollection
15 n on v.UID_ModuleFollower = n.UID_ModulePredecessor where Not exists (select top 1 1 from QBMModuleDependCollection co where co.UID_ModulePredecessor 
16= v.UID_ModulePredecessor and co.UID_ModuleFollower = n.UID_ModuleFollower ) select @lauf = @@ROWCOUNT end commit transaction  ; with hierarchy (UID_ModuleDef
17, UID_ModuleFollower, SortOrder) as ( (select d.UID_ModulePredecessor, d.UID_ModuleFollower, 1 as SortOrder from QBMModuleDepend d union all select de.UID_ModuleDef
18, 'CCC-Moduledefinition', 1 from QBMModuleDef de union all  select d.UID_ModulePredecessor, d.UID_ModulePredecessor, 0 as SortOrder from QBMModuleDepend
19 d ) union all select a.UID_ModulePredecessor, h.UID_ModuleFollower, h.SortOrder +1 from QBMModuleDepend a join hierarchy h on a.UID_ModuleFollower = h.UID_ModuleDef
20 ) update QBMModuleDef set SortOrder = x.SortOrder , XDateUpdated = @Xdate , XUserUpdated = @XUser from QBMModuleDef md join ( select UID_ModuleFollower
21 as UID_ModuleDef, max(SortOrder) as SortOrder from hierarchy group by UID_ModuleFollower ) as x on x.UID_ModuleDef = md.UID_ModuleDef  END TRY BEGIN CATCH
22 exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH 
23ende: end 
24