dbo.RMS_TIPersonHasESet

1  create   trigger RMS_TIPersonHasESet on PersonHasESet  for Insert 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 @QBM_BitPatternXOrigin_Direct int = dbo.QBM_FGIBitPatternXOrigin
3('|Direct|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  declare @DBQueueElements_spezial QBM_YDBQueueRaw
4 BEGIN TRY if exists (select top 1 1 from inserted) goto start return start: declare @GenProcID varchar(38) select @GenProcID = dbo.QBM_FGISessionContext
5('')   if exists (select top 1 1 from inserted i   join ESet elem on i.uid_ESet = elem.uid_ESet where dbo.QER_FGIITShopFlagCombineValid(i.XObjectKey, null
6, null, elem.XObjectKey, elem.IsForITShop, elem.IsITShopOnly) = 0 and i.XOrigin & @QBM_BitPatternXOrigin_Direct > 0 ) begin  raiserror ('#LDS#Assignment is not permitted due to the combination of IT Shop flags.|'
7, 18, 2) with nowait end declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01 (object, subobject, genprocid) select x.uid, null,
8 @GenProcID from ( select distinct i.UID_Person as uid from inserted i   where i.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0 ) as x exec QBM_PDBQueueInsert_Bulk
9 'RMS-K-PersonHasESet', @DBQueueElements_01 declare @DBQueueElements_02 QBM_YDBQueueRaw insert into @DBQueueElements_02 (object, subobject, genprocid) 
10select x.uid, null, @GenProcID from ( select distinct uid_person as uid from inserted i  ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-PersonHasObject', @DBQueueElements_02
11  insert into @ElementBuffer(UID1, Ident1) select distinct v.UID_TaskPerson, t.TableName from inserted i join ESetHasEntitlement ehe on i.uid_ESet = ehe.uid_ESet
12 join DialogTable t on  ehe.Entitlement like '<Key><T>' + t.TableName + '</T>%' and t.TableName <> 'ESet' join BaseTreeAssign v on t.UID_DialogTable = 
13v.UID_DialogTableElement where v.UID_TaskPerson > ' ' and i.XIsInEffect = 1 select @ElementCount = @@rowcount select @ElementIndex = 1 while @ElementIndex
14 <= @ElementCount begin select top 1 @EsetOperation = bu.UID1 , @EsetTable = bu.Ident1 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex   delete
15  @DBQueueElements_spezial insert into @DBQueueElements_spezial (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct i.uid_Person
16 as uid from inserted i join ESetHasEntitlement ehe on i.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0  where  ehe.Entitlement like '<Key><T>' + @EsetTable
17 + '</T>%'  ) as x exec QBM_PDBQueueInsert_Bulk @EsetOperation, @DBQueueElements_spezial select @ElementIndex += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
18 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
19