dbo.QBM_PQBMTranslationAddOnClean

1   create   procedure QBM_PQBMTranslationAddOnClean as begin declare @DebugSwitch int = 0 declare @lauf int = 1 declare @Module varchar(3) declare
2 @EntryKey nvarchar(1024) SET XACT_ABORT OFF BEGIN TRY  while @lauf > 0 begin select @Module = null select top 1 @Module = z.AddOnOwner , @EntryKey = z.EntryKey
3 from (   select md.SortOrder as AddOnSortorder , sign(len(isnull(co.UID_ModuleFollower, ''))) as AddOnIsDBOwnersPredecessor , sign(len(replace(y.AddOnOwner
4, y.TranslationOwner, ''))) as OwnerOfTranslationAndAddonDiffers , y.* from (  select dbo.QBM_FCVGUIDToModuleOwner(s.UID_QBMTranslationAddOnSource) as 
5AddOnOwner , isnull(m.ModuleOwner, 'ZZZ') as TranslationOwner , s.EntryKey from QBMTranslationAddOnSource s join (  select a.EntryKey from QBMTranslationAddOnSource
6 a group by a.EntryKey having COUNT(*) > 1 ) as x on s.EntryKey = x.EntryKey left outer join ( select dbo.QBM_FCVGUIDToModuleOwner(m.UID_DialogMultiLanguage
7) as ModuleOwner , m.EntryKey from DialogMultiLanguage m where m.UID_DialogColumn = 'QBM-7262717EE68049A9BE2EEB30C6EC408B'  group by dbo.QBM_FCVGUIDToModuleOwner
8(m.UID_DialogMultiLanguage) , m.EntryKey ) as m on m.EntryKey = s.EntryKey ) as y join QBMModuleDef md on y.AddOnOwner = md.ModuleName left outer join 
9QBMModuleDependCollection co on co.UID_ModuleFollower = dbo.QBM_FGIDBOwner() + '-Moduledefinition' and co.UID_ModulePredecessor = y.AddOnOwner+ '-Moduledefinition'
10   ) as z order by z.EntryKey, z.OwnerOfTranslationAndAddonDiffers desc, AddOnIsDBOwnersPredecessor asc, z.AddOnSortorder desc, z.AddOnOwner , z.TranslationOwner
11 if @Module > ' ' begin if @debugSwitch > 0 begin print @module print @entrykey end DELETE QBMTranslationAddOnSource WHERE EntryKey = @EntryKey and dbo.QBM_FCVGUIDToModuleOwner
12(UID_QBMTranslationAddOnSource) = @Module end  else begin select @lauf = 0 end end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow
13 varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH ende:  return end 
14