dbo.RMS_TUBaseTreeHasESet

1create   trigger RMS_TUBaseTreeHasESet on BaseTreeHasESet  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 @ChangedOrg QBM_YSingleGUID declare @DBQueueElements_spezial
3 QBM_YDBQueueRaw 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
4 @GenProcID varchar(38) select @GenProcID = dbo.QBM_FGISessionContext('') if update(XOrigin) or update(XIsInEffect) begin declare @DBQueueElements_01 QBM_YDBQueueRaw
5 insert into @DBQueueElements_01 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct a.UID_Org as uid from BaseTreeHasESet
6 a join deleted d on a.XObjectKey = d.XObjectKey where ( dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, a.XOrigin, d.XIsInEffect, a.XIsInEffect) = 1 or dbo.QER_FCVXOriginToInheritInfo
7(d.XOrigin) <> dbo.QER_FCVXOriginToInheritInfo(a.XOrigin) ) ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-BaseTreeHasObject', @DBQueueElements_01 insert into
8 @ChangedOrg (UID_SingleGuid) select distinct d.UID_Org as uid from BaseTreeHasESet a join deleted d on a.XObjectKey = d.XObjectKey where dbo.QBM_FGIXOriginChanged_Effect
9(d.XOrigin, a.XOrigin, d.XIsInEffect, a.XIsInEffect) = 1 if @@ROWCOUNT > 0  begin  declare @DBQueueElements_02 QBM_YDBQueueRaw insert into @DBQueueElements_02
10 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct co.uid_org as uid from @ChangedOrg c join BaseTreecollection co on
11 c.UID_SingleGuid = co.uid_parentorg ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-OrgHasESet', @DBQueueElements_02 declare @DBQueueElements_03 QBM_YDBQueueRaw
12 insert into @DBQueueElements_03 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select b.UID_Org as uid from @ChangedOrg c join BaseTree
13 b on c.UID_SingleGuid = b.UID_Org where b.ITShopInfo = 'BO' ) as x exec QBM_PDBQueueInsert_Bulk 'QER-K-OrgAutoChild', @DBQueueElements_03 declare @DBQueueElements_04
14 QBM_YDBQueueRaw insert into @DBQueueElements_04 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select pio.UID_Person as uid from
15 @ChangedOrg c join PersoninBaseTree pio on c.UID_SingleGuid = pio.UID_Org and pio.XOrigin > 0 union select hpo.UID_Person as uid from @ChangedOrg c join
16 HelperPersonOrg hpo on c.UID_SingleGuid = hpo.UID_Org ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-PersonHasESet', @DBQueueElements_04 declare @DBQueueElements_05
17 QBM_YDBQueueRaw insert into @DBQueueElements_05 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select pio.UID_WorkDesk as uid from
18 @ChangedOrg c join WorkDeskinBaseTree pio on c.UID_SingleGuid = pio.UID_Org and pio.XOrigin > 0 union select hpo.UID_WorkDesk as uid from @ChangedOrg 
19c join HelperWorkDeskOrg hpo on c.UID_SingleGuid = hpo.UID_Org ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-WorkdeskHasESet', @DBQueueElements_05 end    
20insert into @ElementBuffer(UID1, Ident1) select distinct v.UID_TaskBaseTree, t.TableName from deleted d join BaseTreeHasESet a on d.XObjectKey = a.XObjectKey
21 join ESetHasEntitlement ehe on d.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0  join DialogTable t on  ehe.Entitlement like '<Key><T>' + t.TableName + '</T>%'
22 and t.TableName <> 'ESet' join BaseTreeAssign v on t.UID_DialogTable = v.UID_DialogTableElement where v.UID_TaskBaseTree > ' ' and dbo.QBM_FGIXOriginChanged_Effect
23(d.XOrigin, a.XOrigin, d.XIsInEffect, a.XIsInEffect) = 1 select @ElementCount = @@rowcount select @ElementIndex = 1 while @ElementIndex <= @ElementCount
24 begin select top 1 @EsetOperation = bu.UID1 , @EsetTable = bu.Ident1 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex   delete  @DBQueueElements_spezial
25 insert into @DBQueueElements_spezial (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct d.uid_org as uid from deleted
26 d join BaseTreeHasESet a on d.XObjectKey = a.XObjectKey join ESetHasEntitlement ehe on d.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0  where  ehe.Entitlement
27 like '<Key><T>' + @EsetTable + '</T>%' and dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, a.XOrigin, d.XIsInEffect, a.XIsInEffect) = 1 ) as x exec QBM_PDBQueueInsert_Bulk
28 @EsetOperation, @DBQueueElements_spezial select @ElementIndex += 1 end  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 
291) WITH NOWAIT END CATCH ende: return end 
30