dbo.TSB_TIUNSAccountBInUNSGroupB

1CREATE trigger TSB_TIUNSAccountBInUNSGroupB2  ON UNSAccountBInUNSGroupB FOR3INSERT NOT FOR Replication4AS5BEGIN6  DECLARE @QBM_BitPatternXOrigin_Direct int = dbo.QBM_FGIBitPatternXOrigin('|Direct|',7  0)8  DECLARE @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',9  1)10  BEGIN TRY11    IF EXISTS(12      SELECT TOP 1 113      FROM inserted)14    GOTO start15    RETURN start:16    DECLARE @GenProcID varchar(38)17    SELECT @GenProcID = dbo.QBM_FGISessionContext('')18    IF EXISTS(19      SELECT TOP 1 120      FROM inserted i21      JOIN UNSAccountB u22        ON i.UID_UNSAccountB = u.UID_UNSAccountB23      JOIN UNSRootB r24        ON u.UID_UNSRootB = r.UID_UNSRootB25      WHERE26        r.UserContainsGroupList & 0x01 > 0)27    BEGIN28      RAISERROR('#LDS#Assignment is not permitted due to the Value of UNSRootB.UserContainsGroupList.|',29      18,30      2)31        WITH nowait32    END33    IF EXISTS(34      SELECT TOP 1 135      FROM inserted i36      JOIN UNSGroupB elem37        ON i.uid_UNSGroupB = elem.uid_UNSGroupB38      WHERE39        dbo.QER_FGIITShopFlagCombineValid(i.XObjectKey, NULL, NULL, elem.XObjectKey, elem.IsForITShop, elem.IsITShopOnly) = 0 AND i.XOrigin & @QBM_BitPatternXOrigin_Direct40    > 0 AND dbo.QBM_FGISessionContext('Fullsync') = '')41    BEGIN42      RAISERROR('#LDS#Assignment is not permitted due to the combination of IT Shop flags.|',43      18,44      2)45        WITH nowait46    END47    IF EXISTS(48      SELECT TOP 1 149      FROM inserted i50      JOIN UNSGroupB g51        ON i.UID_UNSGroupB = g.UID_UNSGroupB AND g.HasReadOnlyMemberships = 1 AND dbo.QBM_FGISessionContext('Fullsync') = '')52    BEGIN53      RAISERROR('#LDS#Cannot add {0} because assignments for groups with read only memberships are not permitted.|UNSAccountBInUNSGroupB|',54      18,55      2)56        WITH nowait57    END58    IF EXISTS(59      SELECT TOP 1 160      FROM inserted i61      JOIN UNSGroupB g62        ON i.UID_UNSGroupB = g.UID_UNSGroupB63      JOIN UNSAccountB u64        ON i.UID_UNSAccountB = u.UID_UNSAccountB65      JOIN UNSRootB ru66        ON u.UID_UNSRootB = ru.UID_UNSRootB67      JOIN DPRNameSpace ns68        ON ru.UID_DPRNameSpace = ns.UID_DPRNameSpace69      JOIN UNSRootB rg70        ON g.UID_UNSRootB = rg.UID_UNSRootB71      WHERE72        0 = CASE73    WHEN u.UID_UNSRootB = g.UID_UNSRootB THEN74    175    WHEN ns.IsExtendedInheritance = 0 THEN76    077    WHEN ns.IsExtendedInheritance = 1 AND ns.UID_DPRNameSpace = rg.UID_DPRNameSpace THEN78    179    ELSE 080    END)81    BEGIN82      RAISERROR('#LDS#Assignment is not permitted due to the configuration of related UNSRoots.|',83      18,84      2)85        WITH nowait86    END87    DECLARE @DBQueueElements_01 QBM_YDBQueueRaw88    INSERT INTO @DBQueueElements_01(object,89    subobject,90    genprocid)91    SELECT92      x.uid,93      NULL,94      @GenProcID95    FROM(96    SELECT97      DISTINCT i.UID_UNSAccountB AS uid98    FROM inserted i99    WHERE100      i.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0) AS x101    EXEC QBM_PDBQueueInsert_Bulk 'TSB-K-UNSAccountBInUNSGroupB',102      @DBQueueElements_01103    IF 'UNSGroupB' = 'UNSGroupB'104    BEGIN105      IF EXISTS(106        SELECT TOP 1 1107        FROM UNSItemB)108      BEGIN109        DECLARE @DBQueueElements_02 QBM_YDBQueueRaw110        INSERT INTO @DBQueueElements_02(object,111        subobject,112        genprocid)113        SELECT114          x.uid,115          NULL,116          @GenProcID117        FROM(118        SELECT119          DISTINCT i.UID_UNSAccountB AS uid120        FROM inserted i121        WHERE122          i.XIsInEffect = 1 AND EXISTS(123        SELECT TOP 1 1124        FROM UNSItemB b125        JOIN UNSAccountB acc126          ON b.UID_UNSRootB = acc.UID_UNSRootB AND acc.UID_UNSAccountB = i.UID_UNSAccountB)) AS x127        EXEC QBM_PDBQueueInsert_Bulk 'TSB-K-UNSAccountBHasUNSItemB',128          @DBQueueElements_02129      END130    END131    DECLARE @DBQueueElements_03 QBM_YDBQueueRaw132    INSERT INTO @DBQueueElements_03(object,133    subobject,134    genprocid)135    SELECT136      x.uid,137      NULL,138      @GenProcID139    FROM(140    SELECT141      DISTINCT u.UID_Person AS uid142    FROM inserted i143    JOIN UNSAccountB u144      ON i.UID_UNSAccountB = u.UID_UNSAccountB145    WHERE146      u.UID_Person > ' ' AND i.XIsInEffect = 1) AS x147    EXEC QBM_PDBQueueInsert_Bulk 'TSB-K-PersonHasObject',148      @DBQueueElements_03149    IF '1' = dbo.QBM_FGIConfigparmValue('QER\ComplianceCheck\IncludeTSBPersonUsesAccount')150    BEGIN151      DECLARE @DBQueueElements_PersonUsesAccount QBM_YDBQueueRaw152      INSERT INTO @DBQueueElements_PersonUsesAccount(object,153      subobject,154      genprocid)155      SELECT156        x.uid,157        NULL,158        @GenProcID159      FROM(160      SELECT161        DISTINCT t.uid_person AS uid162      FROM inserted i163      JOIN UNSAccountB u164        ON i.UID_UNSAccountB = u.UID_UNSAccountB165      JOIN TSBPersonUsesAccount t166        ON u.XObjectKey = t.ObjectKeyAccount167      WHERE168        i.XIsInEffect = 1) AS x169      EXEC QBM_PDBQueueInsert_Bulk 'TSB-K-PersonHasObject',170        @DBQueueElements_PersonUsesAccount171    END172  END TRY173  BEGIN CATCH174    EXEC QBM_PSessionErrorAdd DEFAULT175    RAISERROR('',176    18,177    1)178      WITH NOWAIT179  END CATCH180  ende:181  RETURN182END