dbo.RMS_ZESetHasEntitlement

1        create   procedure RMS_ZESetHasEntitlement (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin
2 int declare @GenProcID varchar(38) declare @DebugSwitch int = 0 declare @DBQueueCurrent QBM_YDBQueueCurrent declare @QBM_BitPatternXOrigin_Inherit int
3 = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  BEGIN TRY
4 insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, 
5GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end               insert into
6 @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore , XIsInEffectBefore, XIsInEffectAfter ) select 0, 0 , ehe.UID_ESet
7, ehe.Entitlement, ehe.XOrigin , ehe.XIsInEffect, 0 from ESetHasEntitlement ehe join @DBQueueCurrent x on ehe.uid_ESet = x.uid_parameter  where ehe.Entitlement
8 like '<Key><T>ESet</T>%'  insert into @SourceData( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement , XIsInEffectBefore, XIsInEffectAfter
9 ) select 1, 0, y.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv , y.UID_ESet, y.Entitlement , 0, (es.IsInActive ^ 1) * (pa.isInactive ^ 1) from ESetHasEntitlement
10 y join @DBQueueCurrent x on y.UID_ESet= x.uid_parameter join ESet es on y.UID_ESet = es.uid_ESet  join ESet pa on y.Entitlement = pa.XObjectKey  where
11 y.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0 if @DebugSwitch > 0 begin print 'BasisInfo drin' select IsUpcommingContent , XOriginBefore , XOriginAfter
12 , XIsInEffectBefore , XIsInEffectAfter, Element, AssignedElement from @SourceData s end insert into @SourceData( IsUpcommingContent, XOriginBefore , Element
13, AssignedElement, XOriginAfter , XIsInEffectBefore, XIsInEffectAfter ) select distinct 1, 0 , co.UID_ESet, pa.XObjectKey, @QBM_BitPatternXOrigin_Inherit
14 , 0, (es.isinactive ^1) * (pa.isinactive ^ 1) from @DBQueueCurrent x join ESetCollection co on x.uid_parameter = co.uid_ESet and co.uid_ESet <> co.UID_EsetChild
15 join ESet es on co.UID_ESet = es.uid_ESet  join ESet pa on co.UID_EsetChild = pa.uid_ESet   where not exists (select top 1 1 from @SourceData s where 
16s.IsUpcommingContent = 1 and s.Element = co.UID_ESet and s.AssignedElement = pa.XObjectKey and s.XOriginAfter > 0 ) if @DebugSwitch > 0 begin print 'Nach Collection befüllen'
17 select IsUpcommingContent , XOriginBefore , XOriginAfter , XIsInEffectBefore , XIsInEffectAfter, Element, AssignedElement from @SourceData s end  if @DebugSwitch
18 > 0 begin   print 'die Exclude def' select l.uid_ESet as UID_Excluded, h.uid_Eset as UID_Excluding, h.XObjectKey as ObjectKeyExcluding, l.XObjectKey as
19 ObjectKeyExcluded from ESetExcludesEset exe join Eset h on exe.uid_Eset = h.UID_ESet join ESet l on exe.UID_ESetExcluded = l.UID_ESet end if dbo.QBM_FGIConfigparmValue
20('QER\Structures\Inherite\ESetExclusion') > ' '  begin if exists (select top 1 1 from ESetExcludesESet) begin     insert into @SourceData( IsUpcommingContent
21, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0 , e.UID_ESet, e.XObjectKey, 0 , 0, 0 from 
22@DBQueueCurrent x join ESet e on x.uid_parameter = e.uid_ESet  update @Sourcedata set XIsInEffectAfter = 0 from @Sourcedata l  join (select sh.* from @Sourcedata
23 sh where sh.IsUpcommingContent = 1 and sh.XOriginAfter > 0  and sh.XIsInEffectAfter = 1 ) as vh on l.Element = vh.Element join ( select l.uid_ESet as 
24UID_Excluded, h.uid_Eset as UID_Excluding, h.XObjectKey as ObjectKeyExcluding, l.XObjectKey as ObjectKeyExcluded from ESetExcludesEset exe join Eset h 
25on exe.uid_Eset = h.UID_ESet join ESet l on exe.UID_ESetExcluded = l.UID_ESet ) as ex on l.AssignedElement = ex.ObjectKeyExcluded and vh.AssignedElement
26 = ex.ObjectKeyExcluding where l.IsUpcommingContent = 1 and l.XOriginAfter > 0 and l.XIsInEffectAfter = 1  update @Sourcedata set XIsInEffectAfter = 0 
27from @Sourcedata l  join ( select l.uid_ESet as UID_Excluded, h.uid_Eset as UID_Excluding, h.XObjectKey as ObjectKeyExcluding, l.XObjectKey as ObjectKeyExcluded
28 from ESetExcludesEset exe join Eset h on exe.uid_Eset = h.UID_ESet join ESet l on exe.UID_ESetExcluded = l.UID_ESet ) as ex on l.Element = ex.UID_Excluding
29 and l.AssignedElement = ex.ObjectKeyExcluded where l.IsUpcommingContent = 1 and l.XOriginAfter > 0 and l.XIsInEffectAfter = 1 end  end  if @DebugSwitch
30 > 0 begin print 'nach Exclude' select IsUpcommingContent , XOriginBefore , XOriginAfter , XIsInEffectBefore , XIsInEffectAfter, Element, AssignedElement
31 from @SourceData s end  berechnen: exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete = 0, @DeltaInsert = 1, @DeltaOrigin =
32 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect = 1 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern
33 = @DBQueueCurrent if @CountDeltaOrigin > 0 begin exec QBM_PMNTableOriginUpdate 'ESetHasEntitlement', 'uid_ESet', 'Entitlement' end if @CountDeltaQantity
34 > 0 begin if @DebugSwitch > 0 begin print 'RMS_ZESetHasEntitlement einzufügende Sätze' select * from #QBMDeltaInsert end exec QBM_PMNTableInsertOwnPK 
35'ESetHasEntitlement', 'uid_ESet', 'Entitlement' , @FKTableNameElement = 'ESet' , @FKColumnNameElement = 'uid_ESet'  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
36 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: return end 
37