dbo.ADS_ZADSMachineInADSGroup

1       create   procedure ADS_ZADSMachineInADSGroup (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , 
2@CountDeltaOrigin int declare @GenProcID varchar(38) declare @DBQueueCurrent QBM_YDBQueueCurrent declare @ObjectKeysToCheck_Projection QBM_YParameterList
3 declare @RowsToReset int declare @MyName nvarchar(64) = object_name(@@procid) declare @QBM_BitPatternXMarkedForDel_Delay int = dbo.QBM_FGIBitPatternXMarkedForDel
4('|Delay|', 0) declare @QBM_BitPatternXMarkedForDel_Out int = dbo.QBM_FGIBitPatternXMarkedForDel('|OutStanding|', 0) declare @QBM_BitPatternXOrigin_Direct
5 int = dbo.QBM_FGIBitPatternXOrigin('|Direct|', 0) declare @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv
6 int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID
7) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount
8 = 0 begin goto EndLabel end  insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore , XIsInEffectBefore, 
9XIsInEffectAfter ) select 0, 0 , hia.UID_ADSMachine, hia.UID_ADSGroup, hia.XOrigin , hia.XIsInEffect, 0 from @DBQueueCurrent x join ADSMachineInADSGroup
10 hia on hia.UID_ADSMachine = x.uid_parameter join ADSGroup g on hia.uid_adsGroup = g.uid_adsgroup   where hia.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Delay
11 = 0  and g.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Out = 0   insert into @SourceData( IsUpcommingContent, XOriginBefore, XOriginAfter , Element
12, AssignedElement , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0, hia.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv , hia.UID_ADSMachine, hia.UID_ADSGroup
13 , 0 ,  case when a.UID_ADSGroupPrimary = hia.UID_ADSGroup then 0 else 1 end  from @DBQueueCurrent x join ADSMachineInADSGroup hia on hia.UID_ADSMachine
14 = x.uid_parameter join ADSGroup g on hia.uid_ADSGroup = g.uid_ADSGroup join ADSMachine a on x.UID_Parameter = a.UID_ADSMachine  and g.XMarkedForDeletion
15 & @QBM_BitPatternXMarkedForDel_Out = 0    insert into @SourceData( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement , XIsInEffectBefore
16, XIsInEffectAfter ) select 1, 0, @QBM_BitPatternXOrigin_Direct , a.UID_ADSMachine, a.UID_ADSGroupPrimary , 0, 0 from ADSMachine a join @DBQueueCurrent
17 x on a.UID_ADSMachine = x.uid_parameter where a.UID_ADSGroupPrimary > ' '  if dbo.QBM_FGIConfigparmValue('TargetSystem\ADS\HardwareInGroupFromOrg') > 
18' '  begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectBefore, XIsInEffectAfter ) 
19select 1, 0 , y.UID_ADSMachine , y.UID_ADSGroup, @QBM_BitPatternXOrigin_Inherit , 0,  case when a.UID_ADSGroupPrimary = y.UID_ADSGroup then 0 else 1 end
20  from ( select nt.UID_ADSMachine , ohg.UID_ADSGroup from ADSMachine nt join @DBQueueCurrent x on nt.UID_ADSMachine = x.uid_parameter  and nt.XMarkedForDeletion
21 & @QBM_BitPatternXMarkedForDel_Delay = 0 join Hardware h on nt.uid_Hardware = h.uid_Hardware join WorkDesk w on h.uid_WorkDesk = w.uid_WorkDesk and w.IsNoInherite
22 = 0 join  ( select hpo.uid_WorkDesk , hpo.uid_org from helperWorkDeskorg hpo union select pio.uid_WorkDesk , pio.uid_org from WorkDeskinBaseTree pio join
23 BaseTree ba on pio.UID_Org = ba.UID_Org and pio.XOrigin > 0 left outer join DynamicGroup dg on dg.ObjectKeyBaseTree = ba.XObjectKey ) as hwo  on hwo.uid_WorkDesk
24 = h.uid_WorkDesk join BaseTreeHasADSGroup ohg on ohg.uid_org = hwo.uid_org and ohg.XOrigin > 0 and ohg.XIsInEffect = 1 join BaseTree b on b.uid_org = 
25ohg.uid_org and b.IsNoInheriteToWorkDesk = 0 join ADSGroup gg on ohg.UID_ADSGroup = gg.UID_ADSGroup  and gg.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Out
26 = 0   and ( nt.UID_ADSDomain = gg.UID_ADSDomain    or exists (select top 1 1 from ADS_VDomainTrustExists td where td.UID_ADSDomainMember = nt.UID_ADSDomain
27 and td.UID_ADSDomainGroup = gg.UID_ADSDomain ) )  where   exists (select top 1 1 from ADS_VGroupMemberValid_Machine v where v.UID_ADSDomainContainer =
28 gg.UID_ADSDomain and v.uid_adsgroupcontainer = gg.uid_adsgroup and v.UID_ADSDomainMember = nt.UID_ADSDomain ) union  select nt.UID_ADSMachine , ohg.UID_ADSGroup
29 from  ( select m.uid_ADSMachine , hpo.uid_org from @DBQueueCurrent p join ADSMachine m on p.uid_parameter = m.UID_ADSMachine join helperHardwareorg hpo
30 on m.uid_Hardware = hpo.uid_Hardware union select m.uid_ADSMachine , pio.uid_org from @DBQueueCurrent p join ADSMachine m on p.uid_parameter = m.UID_ADSMachine
31 join HardwareinBaseTree pio on m.uid_Hardware = pio.uid_Hardware and pio.XOrigin > 0 join BaseTree ba on pio.UID_Org = ba.UID_Org left outer join DynamicGroup
32 dg on dg.ObjectKeyBaseTree = ba.XObjectKey ) as hho  join ADSMachine nt on nt.UID_ADSMachine = hho.UID_ADSMachine  and nt.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Delay
33 = 0  join BaseTreeHasADSGroup ohg on ohg.uid_org = hho.uid_org and ohg.XOrigin > 0 and ohg.XIsInEffect = 1 join BaseTree b on b.uid_org = ohg.uid_org 
34and b.IsNoInheriteToHardware = 0 join ADSGroup gg on ohg.UID_ADSGroup = gg.UID_ADSGroup  and gg.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Out =
35 0   and ( nt.UID_ADSDomain = gg.UID_ADSDomain    or exists (select top 1 1 from ADS_VDomainTrustExists td where td.UID_ADSDomainMember = nt.UID_ADSDomain
36 and td.UID_ADSDomainGroup = gg.UID_ADSDomain ) )  where   exists (select top 1 1 from ADS_VGroupMemberValid_Machine v where v.UID_ADSDomainContainer =
37 gg.UID_ADSDomain and v.uid_adsgroupcontainer = gg.uid_adsgroup and v.UID_ADSDomainMember = nt.UID_ADSDomain ) ) as y join ADSMachine a on y.UID_ADSMachine
38 = a.UID_ADSMachine   end  if dbo.QBM_FGIModuleExists('RMS') = 1 begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement
39, XOriginAfter , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0 , nt.UID_ADSMachine , gg.UID_ADSGroup , @QBM_BitPatternXOrigin_Inherit as XOrigin , 
400,  case when nt.UID_ADSGroupPrimary = gg.UID_ADSGroup then 0 else 1 end  from ADSMachine nt join @DBQueueCurrent x on nt.UID_ADSMachine = x.uid_parameter
41  and nt.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Delay = 0 join Hardware h on h.uid_Hardware = nt.uid_Hardware join WorkDeskHasESet whe on h.uid_WorkDesk
42 = whe.uid_WorkDesk and whe.XIsInEffect = 1 and whe.XOrigin > 0 and whe.XIsInEffect = 1 join ESetHasEntitlement ehe on whe.uid_ESet = ehe.UID_ESet and 
43ehe.XOrigin > 0 and ehe.XIsInEffect = 1 join ADSGroup gg on ehe.Entitlement = gg.XObjectKey  and gg.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Out
44 = 0   and ( nt.UID_ADSDomain = gg.UID_ADSDomain    or exists (select top 1 1 from ADS_VDomainTrustExists td where td.UID_ADSDomainMember = nt.UID_ADSDomain
45 and td.UID_ADSDomainGroup = gg.UID_ADSDomain ) )    and exists (select top 1 1 from ADS_VGroupMemberValid_Machine v where v.UID_ADSDomainContainer = gg.UID_ADSDomain
46 and v.uid_adsgroupcontainer = gg.uid_adsgroup and v.UID_ADSDomainMember = nt.UID_ADSDomain )  end    if 1 = dbo.DPR_FGIProjectionRootRunning ('ADSDomain'
47) begin insert into @ObjectKeysToCheck_Projection(Parameter1, Parameter2) select cu.UID_Parameter, ro.ObjectKeyRoot from @DBQueueCurrent cu join @Sourcedata
48 sd on cu.UID_Parameter = sd.Element join AdsGroup g on sd.AssignedElement= g.uid_adsGroup join ADS_VElementAndRoot ro on g.XObjectKey = ro.ObjectKeyElement
49  join ADSMachine a on cu.UID_Parameter = a.UID_ADSMachine and a.UID_ADSDomain <> g.UID_ADSDomain  where ro.ElementTable = 'AdsGroup' exec @RowsToReset
50 = DPR_PSlotResetWhileProj_L @DBQueueCurrent, @ObjectKeysToCheck_Projection, @MyName, @SlotNumber if @RowsToReset > 0 begin delete  @DBQueueCurrent from
51 @DBQueueCurrent cu left outer join QBMDBQueueCurrent d with (readpast) on cu.UID_DialogDBQueue = d.UID_DialogDBQueue and d.SlotNumber = @SlotNumber where
52 d.UID_DialogDBQueue is null delete  @Sourcedata from @Sourcedata s left outer join @DBQueueCurrent cu on s.Element = cu.UID_Parameter where cu.UID_DialogDBQueue
53 is null end end if dbo.QBM_FGIConfigparmValue('QER\Structures\Inherite\GroupExclusion') > ' ' begin if exists (select top 1 1 from ADSGroupExclusion ex
54 with (nolock) join @Sourcedata s on ex.UID_ADSGroupLower  = s.AssignedElement where s.IsUpcommingContent = 1 and s.XOriginAfter > 0 and s.XIsInEffectAfter
55 = 1 ) begin declare @ExcludeCandidate QER_YExcludeCandidate insert into @ExcludeCandidate(Element, AssignedElement, XIsInEffectAfter) select s.Element
56, s.AssignedElement, 1 from @Sourcedata s join ( select exe.UID_ADSGroupLower as UID_Excluded from ADSGroupExclusion exe ) as ex on s.AssignedElement =
57 ex.UID_Excluded where s.IsUpcommingContent = 1 and s.XOriginAfter > 0 and s.XIsInEffectAfter = 1 union all select s.Element, s.AssignedElement, 1 from
58 @Sourcedata s join ( select exe.UID_ADSGroupHigher as UID_Excluding from ADSGroupExclusion exe ) as ex on s.AssignedElement = ex.UID_Excluding where s.IsUpcommingContent
59 = 1 and s.XOriginAfter > 0 and s.XIsInEffectAfter = 1 update @ExcludeCandidate set XIsInEffectAfter = 0 from @ExcludeCandidate l  join ( select exe.UID_ADSGroupLower
60 as UID_Excluded, exe.UID_ADSGroupHigher as UID_Excluding from ADSGroupExclusion exe ) as ex on l.AssignedElement = ex.UID_Excluded join (select sh.* from
61 @ExcludeCandidate sh  ) as h on l.Element = h.Element and h.AssignedElement = ex.UID_Excluding if @@ROWCOUNT > 0 begin update @Sourcedata set XIsInEffectAfter
62 = 0 from @Sourcedata l join @ExcludeCandidate k on l.Element = k.Element and l.AssignedElement = k.AssignedElement and k.XIsInEffectAfter = 0 where l.IsUpcommingContent
63 = 1 and l.XOriginAfter > 0 and l.XIsInEffectAfter = 1 end end  end  exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete = 0,
64 @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect = 1
65 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent if @CountDeltaOrigin > 0 begin exec QBM_PMNTableOriginUpdate 'ADSMachineInADSGroup'
66, 'uid_ADSMachine', 'uid_ADSgroup' end if @CountDeltaQantity > 0 begin exec QBM_PMNTableInsert 'ADSMachineInADSGroup', 'uid_ADSMachine', 'uid_ADSgroup'
67, @TargetIsView = 0 , @FKTableNameElement = 'ADSMachine' , @FKColumnNameElement = 'uid_ADSMachine' end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default
68 RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 
69