dbo.QBM_PNonlinear_Prepare

1  create   procedure QBM_PNonlinear_Prepare as begin declare @Tablenames QBM_YCursorBuffer SET XACT_ABORT OFF BEGIN TRY declare @Pattern nvarchar
2(max) = '
3
4update 	@TableName@
5	set XTouched = diff.XTouchedSoll
6--select * 
7	from @TableName@	ist 
8		join (
9			select z.XObjectKey, z.XTouchedist, Case
10													when z.OwnerElem = ''ZZZ'' then ''O''
11													else ''''
12												end as XTouchedSoll
13			 from (
14					select y.XObjectKey, y.XTouchedist, dbo.QBM_FCVObjectKeyToModuleOwner(y.XObjectKey  ) as OwnerElem
15						from (
16
17							select x.XObjectKey , isnull(x.XTouched, '''') as XTouchedist
18								, dbo.QBM_FCVGUIDToModuleOwner(x.@ChildColumnLeft@) as OwnerLeft
19								, dbo.QBM_FCVGUIDToModuleOwner(x.@ChildColumnRight@) as OwnerRight
20								--, dbo.QBM_FCVObjectKeyToModuleOwner(x.XObjectKey  ) as OwnerObj
21							from @TableName@ x
22							) as y -- vorfiltern was überhaupt Z werden kann
23									left outer join QBMModuleDependCollection co1 on  (co1.UID_ModulePredecessor = y.OwnerLeft + ''-ModuleDefinition''
24																						and co1.UID_ModuleFollower = y.OwnerRight + ''-ModuleDefinition''
25																					 ) 
26									left outer join QBMModuleDependCollection co2 on  (co2.UID_ModulePredecessor = y.OwnerRight + ''-ModuleDefinition''
27																						and co2.UID_ModuleFollower = y.OwnerLeft + ''-ModuleDefinition''
28																					 ) 
29					where co1.UID_ModuleFollower is null
30					 and co2.UID_ModuleFollower is null
31					) as z 
32				where z.XTouchedist <> Case
33											when z.OwnerElem = ''ZZZ'' then ''O''
34											else ''''
35										end 
36			) as diff on ist.XObjectKey = diff.XObjectKey
37'
38  insert into @Tablenames(Ident1, ContentFull) select v.TableName  ,REPLACE(REPLACE(REPLACE(@Pattern, '@TableName@', v.TableName) , '@ChildColumnLeft@'
39, v.ChildColumnLeft) , '@ChildColumnRight@', v.ChildColumnRight) from QBM_VNonlinearDeleteCandidates v if @@ROWCOUNT > 0 begin exec QBM_PExecuteSQLMulti
40 @Tablenames, 0, @@procid end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR
41 (@Rethrow, 18, 1) WITH NOWAIT END CATCH end 
42