dbo.QER_ZBaseTreeHasObject

1        create   procedure QER_ZBaseTreeHasObject (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin
2 int declare @DBQueueCurrent QBM_YDBQueueCurrent declare @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 0)  BEGIN TRY insert
3 into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID
4 from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  insert into @SourceData( IsUpcommingContent
5, XOriginAfter , Element, AssignedElement, XOriginBefore ) select 0, 0 , uid_Org, ObjectKey, bho.InheritInfo from BaseTreeHasObject bho join @DBQueueCurrent
6 x on uid_Org = x.uid_parameter where bho.ObjectKey like '<Key><T>QERAssign</T>%' or bho.ObjectKey like '<Key><T>QERResource</T>%' or bho.ObjectKey like
7 '<Key><T>QERReuse</T>%' or bho.ObjectKey like '<Key><T>QERReuseUS</T>%'  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement
8, XOriginAfter ) select 1, 0 , y.UID_Org, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(y.XOrigin) from BaseTreeHasQERAssign y join @DBQueueCurrent x on
9 y.UID_Org= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join QERAssign z on z.uid_QERAssign = y.uid_QERAssign union all select 1, 0 , y.UID_Org
10, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(y.XOrigin) from BaseTreeHasQERResource y join @DBQueueCurrent x on y.UID_Org= x.uid_parameter and y.XOrigin
11 > 0 and y.XIsInEffect = 1 join QERResource z on z.uid_QERResource = y.uid_QERResource union all select 1, 0 , y.UID_Org, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo
12(y.XOrigin) from BaseTreeHasQERReuse y join @DBQueueCurrent x on y.UID_Org= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join QERReuse z on 
13z.uid_QERReuse = y.uid_QERReuse union all select 1, 0 , y.UID_Org, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(y.XOrigin) from BaseTreeHasQERReuseUS 
14y join @DBQueueCurrent x on y.UID_Org= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join QERReuseUS z on z.uid_QERReuseUS = y.uid_QERReuseUS
15 if dbo.QBM_FGIModuleExists('RMS') = 1 begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select
16 1, 0 , y.UID_Org, ehe.Entitlement, dbo.QER_FCVXOriginToInheritInfo(@QBM_BitPatternXOrigin_Inherit) from BaseTreeHasESet y join @DBQueueCurrent x on y.UID_Org
17 = x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join ESetHasEntitlement ehe on ehe.UID_ESet = y.UID_ESet and ehe.XOrigin > 0 and ehe.XIsInEffect
18 = 1 join BaseTree b on y.UID_Org = b.UID_Org  and not (b.UID_OrgRoot in ( 'QER-V-ITShopOrg', 'QER-V-ITShopSrc') and b.ITShopInfo in ( 'BO', 'PR', 'BG'
19, 'BT') ) join OrgRootAssign oa on oa.UID_OrgRoot = b.UID_OrgRoot and oa.IsAssignmentAllowed = 1 where ((ehe.Entitlement like '<Key><T>QERAssign</T>%' 
20and oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERAssign') or (ehe.Entitlement like '<Key><T>QERResource</T>%' and oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERResource'
21) or (ehe.Entitlement like '<Key><T>QERReuse</T>%' and oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERReuse') or (ehe.Entitlement like '<Key><T>QERReuseUS</T>%'
22 and oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERReuseUS') )        end   berechnen: exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 1, @DeltaDelete
23 = 1, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect
24 = 0 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent exec QER_PBasetreeHasObjectPostProc @CountDeltaOrigin, @CountDeltaQantity END
25 TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: return end 
26