dbo.QBM_PMultilanguageFill

1   create   procedure QBM_PMultilanguageFill (@ModuleName varchar(3) ) as begin declare @UID_DialogCultureDefault varchar(38) declare @MusterInsert
2 nvarchar(max) declare @MusterHinten nvarchar(max) declare @SQLCmd nvarchar(max) declare @DebugSwitch int = 0 SET XACT_ABORT OFF BEGIN TRY select top 1
3 @UID_DialogCultureDefault = d.UID_DialogCultureDefault from DialogDatabase d with (readpast) where d.IsMainDatabase = 1 select @MusterInsert = N'
4	 insert into DialogMultiLanguage (UID_DialogMultiLanguage, UID_DialogColumn, EntryKey, EntryValue, UID_DialogCulture, XDateInserted, XUserInserted
5						, XObjectKey
6						, SourceType
7						)
8			select 
9				y.UID_DialogMultiLanguage
10			, y.UID_DialogColumn , y.prop, y.prop, '''
11 + @UID_DialogCultureDefault + ''', getutcdate(), ''FillDefaults''
12			, dbo.QBM_FCVElementToObjectKey1(''dialogmultilanguage'', ''UID_dialogmultilanguage'',  y.UID_DialogMultiLanguage)
13			, ''Data''
14			from 
15			 (
16						'
17 select @MusterHinten = '
18			) as y
19
20	where Not exists (select top 1 1 
21					from DialogMultiLanguage m
22					where m.UID_DialogColumn = y.UID_DialogColumn
23						and m.EntryKey = y.prop
24					)
25'
26 select @SQLCmd = string_agg( concat (convert(nvarchar(max), ''), '
27				select convert(nvarchar(max), t.', x.ColumnName, ') as prop, dbo.QBM_FCVStringToGUID( '''
28, @ModuleName, ''',  ''', x.UID_DialogColumn, ''' + ''', @UID_DialogCultureDefault, ''' +  convert(nvarchar(max), t.', x.ColumnName, ')) as UID_DialogMultiLanguage
29					, '''
30, x.UID_DialogColumn, ''' as UID_DialogColumn
31				from ', x.TableName, ' t
32				where ', dbo.QBM_FSQFunctionCallModuleOwner(x.TableName, 't') , ' = '''
33, @ModuleName, '''
34					and convert(nvarchar(max), t.', x.ColumnName, ') > '' ''
35			' )  ,  '
36					union
37					' )  within group(order by x.TableName
38, x.columnname) from (select c.UID_DialogColumn, t.TableName, c.ColumnName from DialogColumn c with (readpast) join DialogTable t with (readpast) on c.UID_DialogTable
39 = t.UID_DialogTable where c.Multilanguageflag & dbo.QBM_FGIBitPatternMultilanguage('|Source|Multivalent|', 0) = dbo.QBM_FGIBitPatternMultilanguage('|Source|'
40, 0)  and isnull(c.syntaxtype, '') <> 'Text.Dollar' and exists (Select top 1 1 from DialogColumn cv with (readpast) where cv.UID_DialogTable = t.UID_DialogTable
41 and cv.ColumnName = 'XObjectKey' )  ) as x if @SQLCmd > ' ' begin select @SQLCmd = concat( @MusterInsert , @SQLCmd , @MusterHinten ) if @DebugSwitch >
42 0 begin select @SQLCmd end exec QBM_PExecuteSQLWithRetry_LLP @SQLStatement = @SQLCmd , @LockTimeout_ms = default , @MaxWaitTimeForLock_s = default , @ProcIDForJournal
43 = default , @HandleErrorSilent = 0 end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow
44() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH ende: return end 
45