dbo.RMS_TUESetHasEntitlement

1create   trigger RMS_TUESetHasEntitlement on ESetHasEntitlement  for update not for Replication as begin declare @EsetOperation varchar(38) declare
2 @EsetTable varchar(30) declare @DebugSwitch int = 0 declare @DebugMessage nvarchar(max) declare @ElementLast int declare @ElementBufferMulti QBM_YCursorBuffer
3 declare @ElementCount int declare @ElementIndex int declare @QBM_BitPatternXOrigin_Direct int = dbo.QBM_FGIBitPatternXOrigin('|Direct|', 0) declare @DBQueueElements_spezial
4 QBM_YDBQueueRaw declare @XUser nvarchar(64) = object_name(@@procid) declare @Xdate datetime = getutcdate() declare @UID_TaskFollow varchar(38) BEGIN TRY
5 if exists (select top 1 1 from deleted) goto start if exists (select top 1 1 from inserted) goto start return start: declare @GenProcID varchar(38) select
6 @GenProcID = dbo.QBM_FGISessionContext('') if update(XOrigin) begin declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01 (object
7, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct d.UID_ESet as uid from deleted d join ESetHasEntitlement dd on d.XObjectKey
8 = dd.XObjectKey where dbo.QBM_FGIXOriginChanged_Except2(d.XOrigin, dd.XOrigin ) = 1  ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-ESetHasEntitlement', @DBQueueElements_01
9 end   if update(XOrigin) and not update(XIsInEffect) begin update ESetHasEntitlement set XIsInEffect = 1  , XDateUpdated = @Xdate , XUserUpdated = @XUser
10 from ESetHasEntitlement ehe join deleted d on ehe.UID_ESetHasEntitlement = d.UID_ESetHasEntitlement where d.XOrigin = 0 and ehe.XOrigin & @QBM_BitPatternXOrigin_Direct
11 > 0 and ehe.Entitlement not like '<Key><T>ESet</T>%' end if update(XIsInEffect) or update(XOrigin) begin if @DebugSwitch > 0 begin select @DebugMessage
12 = OBJECT_NAME(@@procid) + ' stelle 1' print @DebugMessage end  declare @DBQueueElements_02 QBM_YDBQueueRaw insert into @DBQueueElements_02 (object, subobject
13, genprocid) select x.uid, null, @GenProcID from ( select d.UID_ESet as uid from deleted d join ESetHasEntitlement dd on d.XObjectKey = dd.XObjectKey and
14 dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, dd.XOrigin, d.XIsInEffect, dd.XIsInEffect) = 1 union select p.UID_ESet as uid from deleted d join ESetHasEntitlement
15 dd on d.XObjectKey = dd.XObjectKey and dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, dd.XOrigin, d.XIsInEffect, dd.XIsInEffect) = 1 join Eset p on d.Entitlement
16 = p.XObjectKey union select ehe.uid_ESet from deleted d join ESetHasEntitlement dd on d.XObjectKey = dd.XObjectKey and dbo.QBM_FGIXOriginChanged_Effect
17(d.XOrigin, dd.XOrigin, d.XIsInEffect, dd.XIsInEffect) = 1 join ESet p on d.Entitlement = p.XObjectKey join EsetHasEntitlement ehe on ehe.Entitlement =
18 p.XObjectKey ) as x if @DebugSwitch > 0 begin select @DebugMessage = OBJECT_NAME(@@procid) + ' stelle 2' print @DebugMessage select * from deleted select
19 * from inserted select * from @DBQueueElements_02 end  select @UID_TaskFollow = 'RMS-K-ESetCollection' exec QBM_PDBQueueInsert_Bulk @UID_TaskFollow, @DBQueueElements_02
20  declare @DBQueueElements_03 QBM_YDBQueueRaw insert into @DBQueueElements_03 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select
21 distinct ec.UID_ESet as uid from deleted d join ESetHasEntitlement dd on d.XObjectKey = dd.XObjectKey join ESetCollection ec on d.uid_ESet = ec.UID_EsetChild
22 where dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, dd.XOrigin, d.XIsInEffect, dd.XIsInEffect) = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-ESetHasEntitlement'
23, @DBQueueElements_03  delete  @ElementBufferMulti insert into @ElementBufferMulti(UID1, Ident1) select distinct v.UID_TaskBaseTree, t.TableName from deleted
24 i join ESetHasEntitlement dd on i.XObjectKey = dd.XObjectKey and dbo.QBM_FGIXOriginChanged_Effect(i.XOrigin, dd.XOrigin, i.XIsInEffect, dd.XIsInEffect
25) = 1 join DialogTable t on  i.Entitlement like '<Key><T>' + t.TableName + '</T>%' join BaseTreeAssign v on t.UID_DialogTable = v.UID_DialogTableElement
26 where v.UID_TaskBaseTree > ' ' select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount +1 select @ElementLast = @@IDENTITY
27 while @ElementIndex <= @ElementLast begin select top 1 @EsetOperation = bu.UID1 , @EsetTable = bu.Ident1 from @ElementBufferMulti bu where bu.ElementIndex
28 = @ElementIndex if @DebugSwitch > 0 begin print '@EsetOperation ' + @EsetOperation+ ' -- ' + @EsetTable end  delete  @DBQueueElements_spezial insert into
29 @DBQueueElements_spezial (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct ehe.uid_org as uid from deleted i join ESetHasEntitlement
30 dd on i.XObjectKey = dd.XObjectKey and dbo.QBM_FGIXOriginChanged_Effect(i.XOrigin, dd.XOrigin, i.XIsInEffect, dd.XIsInEffect) = 1 join BaseTreehaseset
31 ehe on i.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0  where  i.Entitlement like '<Key><T>' + @EsetTable + '</T>%' ) as x exec QBM_PDBQueueInsert_Bulk 
32@EsetOperation, @DBQueueElements_spezial select @ElementIndex += 1 end   delete  @ElementBufferMulti insert into @ElementBufferMulti(UID1, Ident1) select
33 distinct v.UID_TaskPerson, t.TableName from deleted i join ESetHasEntitlement dd on i.XObjectKey = dd.XObjectKey and dbo.QBM_FGIXOriginChanged_Effect(i.XOrigin
34, dd.XOrigin, i.XIsInEffect, dd.XIsInEffect) = 1 join DialogTable t on  i.Entitlement like '<Key><T>' + t.TableName + '</T>%' join BaseTreeAssign v on 
35t.UID_DialogTable = v.UID_DialogTableElement where v.UID_TaskPerson > ' ' select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount
36 +1 select @ElementLast = @@IDENTITY while @ElementIndex <= @ElementLast begin select top 1 @EsetOperation = bu.UID1 , @EsetTable = bu.Ident1 from @ElementBufferMulti
37 bu where bu.ElementIndex = @ElementIndex   delete  @DBQueueElements_spezial insert into @DBQueueElements_spezial (object, subobject, genprocid) select
38 x.uid, null, @GenProcID from ( select distinct ehe.UID_Person as uid from deleted i join ESetHasEntitlement dd on i.XObjectKey = dd.XObjectKey and dbo.QBM_FGIXOriginChanged_Effect
39(i.XOrigin, dd.XOrigin, i.XIsInEffect, dd.XIsInEffect) = 1 join PersonHasESet ehe on i.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0  where  i.Entitlement
40 like '<Key><T>' + @EsetTable + '</T>%' ) as x exec QBM_PDBQueueInsert_Bulk @EsetOperation, @DBQueueElements_spezial select @ElementIndex += 1 end   delete
41  @ElementBufferMulti insert into @ElementBufferMulti(UID1, Ident1) select distinct v.UID_TaskWorkDesk, t.TableName from deleted i join ESetHasEntitlement
42 dd on i.XObjectKey = dd.XObjectKey and dbo.QBM_FGIXOriginChanged_Effect(i.XOrigin, dd.XOrigin, i.XIsInEffect, dd.XIsInEffect) = 1 join DialogTable t on
43  i.Entitlement like '<Key><T>' + t.TableName + '</T>%' join BaseTreeAssign v on t.UID_DialogTable = v.UID_DialogTableElement where v.UID_TaskWorkDesk 
44> ' ' select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount +1 select @ElementLast = @@IDENTITY while @ElementIndex <= @ElementLast
45 begin select top 1 @EsetOperation = bu.UID1 , @EsetTable = bu.Ident1 from @ElementBufferMulti bu where bu.ElementIndex = @ElementIndex   delete  @DBQueueElements_spezial
46 insert into @DBQueueElements_spezial (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct ehe.UID_WorkDesk as uid from
47 deleted i join ESetHasEntitlement dd on i.XObjectKey = dd.XObjectKey and dbo.QBM_FGIXOriginChanged_Effect(i.XOrigin, dd.XOrigin, i.XIsInEffect, dd.XIsInEffect
48) = 1 join WorkDeskHasESet ehe on i.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0  where  i.Entitlement like '<Key><T>' + @EsetTable + '</T>%' ) as x exec
49 QBM_PDBQueueInsert_Bulk @EsetOperation, @DBQueueElements_spezial select @ElementIndex += 1 end  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default
50 RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
51