dbo.QBM_PViewBuildCheckCCCExtend

1   create   procedure QBM_PViewBuildCheckCCCExtend (@UID_QBMViewAddOn varchar(38) ) as begin declare @Vorher QBM_YParameterList declare @nachher
2 QBM_YParameterList declare @UID_DialogTable varchar(38) declare @DebugSwitch int = 0 declare @Datatypes table(Datatype nvarchar(64) collate database_default
3 , SortOrder int ) SET XACT_ABORT OFF BEGIN TRY if @DebugSwitch > 0 begin print 'eintritt QBM_PViewBuildCheckCCCExtend für' + @UID_QBMViewAddOn end if 
4dbo.QBM_FGIDBOwner() <> 'CCC' begin goto endLabel end select top 1 @UID_DialogTable = a.UID_DialogTable from QBMViewAddOn a where UID_QBMViewAddOn = @UID_QBMViewAddOn
5 if dbo.QBM_FCVGUIDToModuleOwner(@UID_DialogTable) = 'CCC' begin if @DebugSwitch > 0 begin print 'Kundentabelle' end goto endlabel end if dbo.QBM_FCVGUIDToModuleOwner
6(@UID_QBMViewAddOn) <> 'CCC' begin if @DebugSwitch > 0 begin print 'unsere Tablle unser kram' end goto endLabel end insert into @Vorher(Parameter1, Parameter2
7, Parameter3) select c.COLUMN_NAME, c.DATA_TYPE, case isnull(c.CHARACTER_MAXIMUM_LENGTH, 0) when 0 then 0 when -1 then 1073741824 else c.CHARACTER_MAXIMUM_LENGTH
8 end from INFORMATION_SCHEMA.COLUMNS c join DialogTable t on t.TableName = c.TABLE_NAME collate database_default where t.UID_DialogTable = @UID_DialogTable
9 if @DebugSwitch > 0 begin print '@vorher' select z.Parameter1, z.Parameter2, z.Parameter3 from @vorher z end exec QBM_PViewBuild_FromAddOn @UID_DialogTable
10 insert into @nachher(Parameter1, Parameter2, Parameter3) select c.COLUMN_NAME, c.DATA_TYPE, case isnull(c.CHARACTER_MAXIMUM_LENGTH, 0) when 0 then 0 when
11 -1 then 1073741824 else c.CHARACTER_MAXIMUM_LENGTH end from INFORMATION_SCHEMA.COLUMNS c join DialogTable t on t.TableName = c.TABLE_NAME collate database_default
12 where t.UID_DialogTable = @UID_DialogTable if @DebugSwitch > 0 begin print '@nachher' select z.Parameter1, z.Parameter2, z.Parameter3 from @nachher z 
13end if exists (select top 1 1 from ( select n.Parameter1 as AdditionalColumn from @nachher n left outer join @Vorher v on v.Parameter1 = n.Parameter1 where
14 v.Parameter1 is null ) as x ) begin set XACT_ABORT ON  raiserror('#LDS#Custom extension would extend columns of the view.|', 18, 1) with nowait goto endlabel
15 end insert into @Datatypes(Datatype, SortOrder) values ('nvarchar' , 0 ) , ('varchar' , 100 ) , ('nchar' , 200 ) , ('char' , 300 ) , ('varbinary' , 1000
16 ) , ('binary' , 1100 ) , ('float' , 2001 )  , ('datetime' , 2100 ) , ('numeric' , 3001 ) , ('bigint' , 3101 ) , ('int' , 3201 ) , ('smallint' , 3301 )
17 , ('tinyint' , 3401 ) , ('bit' , 3501 ) if @DebugSwitch > 0 begin print 'vergleich' select v.Parameter1, v.Parameter2 as typ_alt, n.Parameter2 as typ_neu
18, v.Parameter3 as laenge_alt, n.Parameter3 as laenge_neu, vd.SortOrder / 1000 as GruppeV, nd.SortOrder / 1000 as GruppeN from @Vorher v join @nachher n
19 on v.Parameter1 = n.Parameter1 join @Datatypes vd on v.Parameter2 = vd.Datatype join @Datatypes nd on n.Parameter2 = nd.Datatype end if exists (select
20 top 1 1 from ( select v.Parameter1, v.Parameter2 as typ_alt, n.Parameter2 as typ_neu, v.Parameter3 as laenge_alt, n.Parameter3 as laenge_neu from @Vorher
21 v join @nachher n on v.Parameter1 = n.Parameter1 join @Datatypes vd on v.Parameter2 = vd.Datatype join @Datatypes nd on n.Parameter2 = nd.Datatype where
22 nd.SortOrder / 1000 <> vd.SortOrder / 1000  or dbo.QBM_FCVStringToInt(v.Parameter3, 0) > dbo.QBM_FCVStringToInt(n.Parameter3,0)  or (v.Parameter1 like
23 'X%' and (v.Parameter3 <> n.Parameter3 or v.Parameter2 <> n.Parameter2 ) ) ) as x ) begin raiserror('#LDS#Custom extension would change datatype(s) of the view-columns.|'
24, 18, 1) with nowait goto endlabel end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow
25() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH endLabel: return end 
26