dbo.QER_TIPersonHasQERResource

1    create   trigger QER_TIPersonHasQERResource on PersonHasQERResource  for Insert not for Replication as begin  declare @QBM_BitPatternXOrigin_Direct
2 int = dbo.QBM_FGIBitPatternXOrigin('|Direct|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  BEGIN
3 TRY if exists (select top 1 1 from inserted) goto start return start: declare @GenProcID varchar(38) select @GenProcID = dbo.QBM_FGISessionContext('')
4  declare @neu_uid_person varchar(38)  declare @operation nvarchar(64) declare @zeilen int declare @errno int declare @errmsg nvarchar(255)  if exists 
5(select top 1 1 from inserted i   join QERResource elem on i.uid_QERResource = elem.uid_QERResource where dbo.QER_FGIITShopFlagCombineValid(i.XObjectKey
6, null, 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 'QER-K-PersonHasQERResource', @DBQueueElements_01 declare @DBQueueElements_02 QBM_YDBQueueRaw insert into @DBQueueElements_02 (object, subobject, genprocid
10) select x.uid, null, @GenProcID from ( select distinct i.uid_person as uid from inserted i where i.XIsInEffect = 1 ) as x exec QBM_PDBQueueInsert_Bulk
11 'QER-K-PersonHasObject', @DBQueueElements_02 END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return
12 end 
13