dbo.QER_ZPersonHasObject

1      create   procedure QER_ZPersonHasObject (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin
2 int declare @DBQueueCurrent QBM_YDBQueueCurrent declare @QER_BitPatternInherit_Direct int = dbo.QER_FGIBitPatternInheritInfo('|Direct|', 0) declare @QER_BitPatternInherit_Master
3 int = dbo.QER_FGIBitPatternInheritInfo('|Master|', 0)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID
4) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount
5 = 0 begin goto EndLabel end insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore ) select 0, 0 , uid_person
6, ObjectKey, InheritInfo from PersonHasObject pho join @DBQueueCurrent x on uid_person = x.uid_parameter cross join (select distinct dbo.QER_FGIOrgRootName
7(r.uid_orgRoot) as OrgRootName from OrgRoot r ) as rn where  pho.ObjectKey like '<Key><T>' + rn.OrgRootName + '</T>%' insert into @SourceData( IsUpcommingContent
8, XOriginAfter , Element, AssignedElement, XOriginBefore ) select 0, 0 , uid_person, ObjectKey, InheritInfo from PersonHasObject pho join @DBQueueCurrent
9 x on uid_person = x.uid_parameter where pho.ObjectKey like '<Key><T>QERAssign</T>%' or pho.ObjectKey like '<Key><T>QERResource</T>%' or pho.ObjectKey 
10like '<Key><T>QERReuse</T>%' or pho.ObjectKey like '<Key><T>QERReuseUS</T>%'  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement
11, XOriginAfter ) select x.IsUpcommingContent, x.XOriginBefore, x.Element, x.AssignedElement, dbo.QER_FCVXOriginToInheritInfo(x.XOrigin) from ( select 1
12 as IsUpcommingContent, 0 as XOriginBefore , y.uid_person as Element, z.XObjectKey as AssignedElement, y.XOrigin from PersonHasQERAssign y join @DBQueueCurrent
13 x on y.uid_person= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join QERAssign z on y.uid_QERAssign = z.uid_QERAssign union all select 1, 0
14 , y.uid_person, z.XObjectKey, y.XOrigin from PersonHasQERResource y join @DBQueueCurrent x on y.uid_person= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect
15 = 1  join QERResource z on y.uid_QERResource = z.uid_QERResource union all select 1, 0 , y.uid_person, z.XObjectKey, y.XOrigin from PersonHasQERReuse 
16y join @DBQueueCurrent x on y.uid_person= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1  join QERReuse z on y.uid_QERReuse = z.uid_QERReuse union
17 all select 1, 0 , y.uid_person, z.XObjectKey, y.XOrigin from PersonHasQERReuseUS y join @DBQueueCurrent x on y.uid_person= x.uid_parameter and y.XOrigin
18 > 0 and y.XIsInEffect = 1 join QERReuseUS z on y.uid_QERReuseUS = z.uid_QERReuseUS ) as x  insert into @SourceData( IsUpcommingContent, XOriginBefore 
19, Element, AssignedElement, XOriginAfter ) select 1, 0 , y.uid_person, q.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(y.XOrigin) from PersonInBaseTree y
20 join @DBQueueCurrent x on y.uid_person= x.uid_parameter and y.XOrigin > 0 join BaseTree q on y.uid_org = q.uid_org  where q.UID_OrgRoot <> 'QER-V-ITShopOrg'
21 insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , y.uid_person, q.XObjectKey, dbo.QER_FCVXOriginToInheritInfo
22(y.XOrigin) from PersonInBaseTree y join @DBQueueCurrent x on y.uid_person= x.uid_parameter and y.XOrigin > 0 join BaseTree q on y.uid_org = q.uid_org 
23 where q.UID_OrgRoot = 'QER-V-ITShopOrg' and q.ITShopInfo <> 'PR'  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement
24, XOriginAfter ) select 1, 0 , y.uid_person, q.XObjectKey, @QER_BitPatternInherit_Direct from HelperPersonOrg y join @DBQueueCurrent x on y.uid_person=
25 x.uid_parameter join BaseTree q on y.uid_org = q.uid_org   insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter
26 )  select 1, 0 , m.uid_person, pho.objectkey, @QER_BitPatternInherit_Master FROM @DBQueueCurrent x JOIN person m with (readpast)ON m.UID_Person = x.uid_parameter
27 JOIN person s with (readpast) ON s.UID_PersonMasterIdentity = m.uid_Person JOIN PersonHasObject pho with (readpast) ON pho.uid_person = s.uid_person join
28 (SELECT DISTINCT dbo.QER_FGIOrgRootName(r.uid_orgRoot) AS OrgRootName FROM OrgRoot r ) AS rn on pho.ObjectKey LIKE '<Key><T>' + rn.OrgRootName + '</T>%'
29 option (force order)   insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , m.uid_person
30, pho.objectkey, @QER_BitPatternInherit_Master from @DBQueueCurrent x join person m on m.UID_Person = x.uid_parameter  join person s on s.UID_PersonMasterIdentity
31 = m.uid_Person join PersonHasObject pho on pho.uid_person = s.uid_person   where pho.ObjectKey like '<Key><T>QERAssign</T>%' or pho.ObjectKey like '<Key><T>QERResource</T>%'
32 or pho.ObjectKey like '<Key><T>QERReuse</T>%' or pho.ObjectKey like '<Key><T>QERReuseUS</T>%'   berechnen: exec QBM_PDBQueueCalculateDelta @SourceData
33, @DeltaQuantity = 1, @DeltaDelete = 1, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin
34 output , @UseIsInEffect = 0 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent exec QER_PPersonHasObjectPostProc @SlotNumber , @CountDeltaOrigin
35 , @CountDeltaQantity , 'QER-K-PersonHasObject' END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel:
36 end 
37