dbo.RMS_TUPersonHasESet

1create   trigger RMS_TUPersonHasESet on PersonHasESet  for Update not for Replication as begin  declare @EsetOperation varchar(38) declare @EsetTable
2 varchar(30) declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int declare @DBQueueElements_spezial QBM_YDBQueueRaw
3 BEGIN TRY if exists (select top 1 1 from inserted) goto start if exists (select top 1 1 from deleted) goto start return start: declare @GenProcID varchar
4(38) select @GenProcID = dbo.QBM_FGISessionContext('') if update(XOrigin) begin declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01
5 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct d.UID_Person as uid from deleted d join PersonHasESet dd on d.XObjectKey
6 = dd.XObjectKey where dbo.QBM_FGIXOriginChanged_Except2(d.XOrigin, dd.XOrigin) = 1  ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-PersonHasESet', @DBQueueElements_01
7 end  if update(XIsInEffect) or update(XOrigin) begin declare @DBQueueElements_02 QBM_YDBQueueRaw insert into @DBQueueElements_02 (object, subobject, genprocid
8) select x.uid, null, @GenProcID from ( select distinct a.UID_Person as uid from PersonHasESet a join deleted d on a.XObjectKey = d.XObjectKey where ( 
9dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, a.XOrigin, d.XIsInEffect, a.XIsInEffect) = 1 or dbo.QER_FCVXOriginToInheritInfo(d.XOrigin) <> dbo.QER_FCVXOriginToInheritInfo
10(a.XOrigin) ) ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-PersonHasObject', @DBQueueElements_02 end if update(XIsInEffect) or update(XOrigin) begin  insert
11 into @ElementBuffer(UID1, Ident1) select distinct v.UID_TaskPerson, t.TableName from deleted i join PersonHasESet dd on i.XObjectKey = dd.XObjectKey and
12 dbo.QBM_FGIXOriginChanged_Effect(i.XOrigin, dd.XOrigin, i.XIsInEffect, dd.XIsInEffect) = 1 join ESetHasEntitlement ehe on i.uid_ESet = ehe.uid_ESet and
13 ehe.XOrigin > 0  join DialogTable t on  ehe.Entitlement like '<Key><T>' + t.TableName + '</T>%' and t.TableName <> 'ESet' join BaseTreeAssign v on t.UID_DialogTable
14 = v.UID_DialogTableElement where v.UID_TaskPerson > ' ' select @ElementCount = @@rowcount select @ElementIndex = 1 while @ElementIndex <= @ElementCount
15 begin select top 1 @EsetOperation = bu.UID1 , @EsetTable = bu.Ident1 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex   delete  @DBQueueElements_spezial
16 insert into @DBQueueElements_spezial (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct i.uid_person as uid from deleted
17 i join PersonHasESet dd on i.XObjectKey = dd.XObjectKey and dbo.QBM_FGIXOriginChanged_Effect(i.XOrigin, dd.XOrigin, i.XIsInEffect, dd.XIsInEffect) = 1
18 join ESetHasEntitlement ehe on i.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0  where  ehe.Entitlement like '<Key><T>' + @EsetTable + '</T>%' ) as x exec
19 QBM_PDBQueueInsert_Bulk @EsetOperation, @DBQueueElements_spezial select @ElementIndex += 1 end  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default
20 RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
21