dbo.RMS_TIBaseTreeHasESet

1  create   trigger RMS_TIBaseTreeHasESet on BaseTreeHasESet  for Insert not for Replication as begin  declare @EsetOperation varchar(38) declare
2 @EsetTable varchar(30) declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int declare @QBM_BitPatternXOrigin_Direct
3 int = dbo.QBM_FGIBitPatternXOrigin('|Direct|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1) declare
4 @DBQueueElements_spezial QBM_YDBQueueRaw BEGIN TRY if exists (select top 1 1 from inserted) goto start return start: declare @GenProcID varchar(38) select
5 @GenProcID = dbo.QBM_FGISessionContext('')  declare @AssignCheckValues QBM_YparameterList insert into @AssignCheckValues(Parameter1, Parameter2) select
6 i.UID_Org, i.XOrigin from inserted i exec QER_PAssignmentCheckValid 'RMS-AsgnBT-Eset', @AssignCheckValues, @GenProcID  if exists (select top 1 1 from 
7inserted i join BaseTree dest on i.uid_Org = dest.uid_Org  join ESet elem on i.uid_ESet = elem.uid_ESet where dbo.QER_FGIITShopFlagCombineValid(dest.XObjectKey
8, 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.|'
9, 18, 2) with nowait end         declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01(object, subobject, genprocid) select x.uid
10, 'RMS-K-OrgHasESet', @GenProcID from ( select distinct d.UID_Org as uid from inserted d where d.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0  ) as
11 x exec QBM_PDBQueueInsert_Bulk 'QER-K-AllChildrenOfOrg', @DBQueueElements_01 declare @DBQueueElements_02 QBM_YDBQueueRaw insert into @DBQueueElements_02
12 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct d.UID_Org as uid from inserted d join BaseTree b on d.uid_Org = b.uid_Org
13 where b.ITShopInfo = 'BO' and d.XIsInEffect = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'QER-K-OrgAutoChild', @DBQueueElements_02 declare @DBQueueElements_03
14 QBM_YDBQueueRaw insert into @DBQueueElements_03 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct i.uid_org as uid 
15from inserted i where i.XIsInEffect = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-BaseTreeHasObject', @DBQueueElements_03 declare @DBQueueElements_04 
16QBM_YDBQueueRaw insert into @DBQueueElements_04 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct hpo.uid_person as 
17uid from inserted i join (select pio.uid_person, pio.uid_org from personinBaseTree pio where pio.XOrigin > 0 union all select uid_person, uid_org from 
18helperPersonOrg ) hpo on hpo.uid_org = i.uid_org where i.XIsInEffect = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-PersonHasESet', @DBQueueElements_04
19 declare @DBQueueElements_05 QBM_YDBQueueRaw insert into @DBQueueElements_05 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select
20 distinct hwo.uid_WorkDesk as uid from inserted i join (select pio.uid_WorkDesk, pio.uid_org from WorkDeskinBaseTree pio where pio.XOrigin > 0 union all
21 select uid_WorkDesk, uid_org from helperWorkDeskOrg ) hwo on hwo.uid_org = i.uid_org where i.XIsInEffect = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-WorkdeskHasESet'
22, @DBQueueElements_05   insert into @ElementBuffer(UID1, Ident1) select distinct v.UID_TaskBaseTree, t.TableName from inserted i join ESetHasEntitlement
23 ehe on i.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0  join DialogTable t on  ehe.Entitlement like '<Key><T>' + t.TableName + '</T>%' and t.TableName <>
24 'ESet' join BaseTreeAssign v on t.UID_DialogTable = v.UID_DialogTableElement where v.UID_TaskBaseTree > ' ' select @ElementCount = @@rowcount select @ElementIndex
25 = 1 while @ElementIndex <= @ElementCount begin select top 1 @EsetOperation = bu.UID1 , @EsetTable = bu.Ident1 from @ElementBuffer bu where bu.ElementIndex
26 = @ElementIndex   delete  @DBQueueElements_spezial insert into @DBQueueElements_spezial (object, subobject, genprocid) select x.uid, null, @GenProcID 
27from ( select distinct i.uid_org as uid from inserted i join ESetHasEntitlement ehe on i.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0  where  ehe.Entitlement
28 like '<Key><T>' + @EsetTable + '</T>%' and i.XIsInEffect = 1 ) as x exec QBM_PDBQueueInsert_Bulk @EsetOperation, @DBQueueElements_spezial select @ElementIndex
29 += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
30