dbo.QER_ZPersonHasQERReuse

1       create   procedure QER_ZPersonHasQERReuse (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin
2 int declare @GenProcID varchar(38) declare @Xdate datetime = getutcdate() declare @XUser nvarchar(64) = object_name(@@procid) declare @UID_BaseTreeAssignToUse
3 varchar(38) = 'QER-AsgnBT-QERReuse' declare @DBQueueCurrent QBM_YDBQueueCurrent declare @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin
4('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue
5, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast
6) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement
7, XOriginBefore , XIsInEffectBefore, XIsInEffectAfter ) select 0, 0 , phr.UID_Person, phr.UID_QERReuse, phr.XOrigin , phr.XIsInEffect, 0 from PersonHasQERReuse
8 phr join @DBQueueCurrent x on phr.UID_Person = x.uid_parameter  if exists (select top 1 1 from DialogTable t where t.TableName = 'PersonHasQERReuse' and
9 t.IsDeactivatedByPreProcessor = 1 ) begin goto berechnen end insert into @SourceData( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement
10 , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0, case when pd.UID_QERReuse = pd.UID_QERReusePredecessor then phr.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv
11 else @QBM_BitPatternXOrigin_Inherit end , phr.UID_person,pd.UID_QERReusePredecessor as UID_QERReuse , 0, 1  from PersonHasQERReuse phr join @DBQueueCurrent
12 x on UID_person = x.uid_parameter  join person p on phr.uid_person = p.uid_person  join QERReuse r on phr.uid_QERReuse = r.uid_QERReuse cross apply dbo.QER_FTQERReusePredecessor
13(r.UID_QERReuse) pd  where phr.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0 insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement
14, XOriginAfter , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0 , x.UID_person,pd.UID_QERReusePredecessor as UID_QERReuse , @QBM_BitPatternXOrigin_Inherit
15 as XOrigin , 0, (r.IsNoInheriteToSecurityIncident & p.IsSecurityIncident) ^1 from ( select pha.UID_person, r.UID_QERReuse from @DBQueueCurrent x join 
16PersonHasESet pha on pha.UID_person = x.uid_parameter and pha.XOrigin > 0 and pha.XIsInEffect = 1  join person px on pha.uid_person = px.uid_person and
17 px.isNoInherite = 0  join ESetHasEntitlement aha on pha.UID_ESet = aha.UID_ESet and aha.XOrigin > 0 and aha.XIsInEffect = 1 and dbo.QBM_FGIModuleExists
18('RMS') = 1 Join QERReuse r on aha.Entitlement = r.XObjectKey union all select pfo.UID_person, oha.UID_QERReuse  from dbo.QER_FTPersonInheritFromOrg_L(@DBQueueCurrent
19, @UID_BaseTreeAssignToUse) pfo join BaseTreeHasQERReuse oha on oha.uid_org = pfo.uid_org and oha.XOrigin > 0 and oha.XIsInEffect = 1 ) as x join person
20 p on x.uid_person = p.uid_person join QERReuse r on x.uid_QERReuse = r.uid_QERReuse cross apply dbo.QER_FTQERReusePredecessor(r.UID_QERReuse) pd berechnen:
21 exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete = 0, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity
22 output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect = 1 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent if @CountDeltaOrigin
23 > 0 begin exec QBM_PMNTableOriginUpdate 'PersonHasQERReuse', 'uid_Person', 'uid_QERReuse' end if @CountDeltaQantity > 0 begin exec QBM_PMNTableInsert 
24'PersonHasQERReuse', 'uid_Person', 'uid_QERReuse', @TargetIsView = 0 , @FKTableNameElement = 'Person' , @FKColumnNameElement = 'UID_Person' end END TRY
25 BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: return end 
26