dbo.TSB_PMemberOfSplitToGroups

1  create   procedure TSB_PMemberOfSplitToGroups (@UID_UNSAccountB varchar(38) )as begin declare @Memberlist nvarchar(max) declare @UID_UNSRootB 
2as varchar(38) declare @XUser nvarchar(64) declare @Xdate Datetime declare @Sollzustand QBM_YParameterList    declare @QBM_BitPatternXOrigin_Direct int
3 = dbo.QBM_FGIBitPatternXOrigin('|Direct|', 0) declare @QBM_BitPatternXOrigin_Direct_inv int = dbo.QBM_FGIBitPatternXOrigin('|Direct|', 1) declare @QBM_BitPatternXOrigin_Inherit_inv
4 int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  SET XACT_ABORT OFF BEGIN TRY select @Xdate = getUTCDate() select @XUser = 'sa' select @Memberlist 
5= isnull(MemberOf,'') , @UID_UNSRootB = UID_UNSRootB from UNSAccountB where UID_UNSAccountB = @UID_UNSAccountB insert into @Sollzustand(ContentShort  )
6 select distinct ParameterValue from dbo.QBM_FCVStringToList(@Memberlist, nchar(7), 0, 0 )  update @Sollzustand set Parameter1  = g.UID_UNSGroupB , Parameter2
7  = dbo.QBM_FCVElementToObjectKey2 ('UNSAccountBInUNSGroupB', 'UID_UNSAccountB', @UID_UNSAccountB , 'UID_UNSGroupB', g.UID_UNSGroupB) from @Sollzustand
8 s , UNSGroupB g where s.ContentShort  = g.cn and g.UID_UNSRootB = @UID_UNSRootB  delete  @Sollzustand where Parameter1  is null   insert into UNSAccountBInUNSGroupB
9 (UID_UNSAccountB , UID_UNSGroupB , XObjectKey, XDateInserted, XDateUpdated, XUserInserted, XUserUpdated, XOrigin) select @UID_UNSAccountB, s.Parameter1
10 , s.Parameter2 , @Xdate, @Xdate, @XUser, @XUser, @QBM_BitPatternXOrigin_Direct from @Sollzustand s where Not exists (select top 1 1 from UNSAccountBInUNSGroupB
11 uig where uig.XObjectKey = s.Parameter2  )    update UNSAccountBInUNSGroupB set XOrigin = XOrigin & @QBM_BitPatternXOrigin_Direct_inv  , XDateUpdated 
12= @Xdate , XUserUpdated = @XUser where UID_UNSAccountB = @UID_UNSAccountB  and XOrigin & @QBM_BitPatternXOrigin_Direct > 0  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
13 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: end 
14