dbo.RMS_TIBaseTreeHasESet

1CREATE trigger RMS_TIBaseTreeHasESet2  ON BaseTreeHasESet FOR3INSERT NOT FOR Replication4AS5BEGIN6  DECLARE @EsetOperation varchar(38)7  DECLARE @EsetTable varchar(30)8  DECLARE @ElementBuffer QBM_YCursorBuffer9  DECLARE @ElementCount int10  DECLARE @ElementIndex int11  DECLARE @QBM_BitPatternXOrigin_Direct int = dbo.QBM_FGIBitPatternXOrigin('|Direct|',12  0)13  DECLARE @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',14  1)15  DECLARE @DBQueueElements_spezial QBM_YDBQueueRaw16  BEGIN TRY17    IF EXISTS(18      SELECT TOP 1 119      FROM inserted)20    GOTO start21    RETURN start:22    DECLARE @GenProcID varchar(38)23    SELECT @GenProcID = dbo.QBM_FGISessionContext('')24    DECLARE @AssignCheckValues QBM_YparameterList25    INSERT INTO @AssignCheckValues(Parameter1,26    Parameter2)27    SELECT28      i.UID_Org,29      i.XOrigin30    FROM inserted i31    EXEC QER_PAssignmentCheckValid 'RMS-AsgnBT-Eset',32      @AssignCheckValues,33      @GenProcID34    IF EXISTS(35      SELECT TOP 1 136      FROM inserted i37      JOIN BaseTree dest38        ON i.uid_Org = dest.uid_Org39      JOIN ESet elem40        ON i.uid_ESet = elem.uid_ESet41      WHERE42        dbo.QER_FGIITShopFlagCombineValid(dest.XObjectKey, NULL, NULL, elem.XObjectKey, elem.IsForITShop,43    elem.IsITShopOnly) = 0 AND i.XOrigin & @QBM_BitPatternXOrigin_Direct > 0)44    BEGIN45      RAISERROR('#LDS#Assignment is not permitted due to the combination of IT Shop flags.|',46      18,47      2)48        WITH nowait49    END50    DECLARE @DBQueueElements_01 QBM_YDBQueueRaw51    INSERT INTO @DBQueueElements_01(object,52    subobject,53    genprocid)54    SELECT55      x.uid,56      'RMS-K-OrgHasESet',57      @GenProcID58    FROM(59    SELECT60      DISTINCT d.UID_Org AS uid61    FROM inserted d62    WHERE63      d.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0) AS x64    EXEC QBM_PDBQueueInsert_Bulk 'QER-K-AllChildrenOfOrg',65      @DBQueueElements_0166    DECLARE @DBQueueElements_02 QBM_YDBQueueRaw67    INSERT INTO @DBQueueElements_02(object,68    subobject,69    genprocid)70    SELECT71      x.uid,72      NULL,73      @GenProcID74    FROM(75    SELECT76      DISTINCT d.UID_Org AS uid77    FROM inserted d78    JOIN BaseTree b79      ON d.uid_Org = b.uid_Org80    WHERE81      b.ITShopInfo = 'BO' AND d.XIsInEffect = 1) AS x82    EXEC QBM_PDBQueueInsert_Bulk 'QER-K-OrgAutoChild',83      @DBQueueElements_0284    DECLARE @DBQueueElements_03 QBM_YDBQueueRaw85    INSERT INTO @DBQueueElements_03(object,86    subobject,87    genprocid)88    SELECT89      x.uid,90      NULL,91      @GenProcID92    FROM(93    SELECT94      DISTINCT i.uid_org AS uid95    FROM inserted i96    WHERE97      i.XIsInEffect = 1) AS x98    EXEC QBM_PDBQueueInsert_Bulk 'RMS-K-BaseTreeHasObject',99      @DBQueueElements_03100    DECLARE @DBQueueElements_04 QBM_YDBQueueRaw101    INSERT INTO @DBQueueElements_04(object,102    subobject,103    genprocid)104    SELECT105      x.uid,106      NULL,107      @GenProcID108    FROM(109    SELECT110      DISTINCT hpo.uid_person AS uid111    FROM inserted i112    JOIN(113    SELECT114      pio.uid_person, pio.uid_org115    FROM personinBaseTree pio116    WHERE117      pio.XOrigin > 0118    UNION all119    SELECT120      uid_person, uid_org121    FROM helperPersonOrg) hpo122      ON hpo.uid_org = i.uid_org123    WHERE124      i.XIsInEffect = 1) AS x125    EXEC QBM_PDBQueueInsert_Bulk 'RMS-K-PersonHasESet',126      @DBQueueElements_04127    DECLARE @DBQueueElements_05 QBM_YDBQueueRaw128    INSERT INTO @DBQueueElements_05(object,129    subobject,130    genprocid)131    SELECT132      x.uid,133      NULL,134      @GenProcID135    FROM(136    SELECT137      DISTINCT hwo.uid_WorkDesk AS uid138    FROM inserted i139    JOIN(140    SELECT141      pio.uid_WorkDesk, pio.uid_org142    FROM WorkDeskinBaseTree pio143    WHERE144      pio.XOrigin > 0145    UNION all146    SELECT147      uid_WorkDesk, uid_org148    FROM helperWorkDeskOrg) hwo149      ON hwo.uid_org = i.uid_org150    WHERE151      i.XIsInEffect = 1) AS x152    EXEC QBM_PDBQueueInsert_Bulk 'RMS-K-WorkdeskHasESet',153      @DBQueueElements_05154    INSERT INTO @ElementBuffer(UID1,155    Ident1)156    SELECT157      DISTINCT v.UID_TaskBaseTree,158      t.TableName159    FROM inserted i160    JOIN ESetHasEntitlement ehe161      ON i.uid_ESet = ehe.uid_ESet AND ehe.XOrigin > 0162    JOIN DialogTable t163      ON ehe.Entitlement LIKE '<Key><T>' + t.TableName + '</T>%' AND t.TableName <> 'ESet'164    JOIN BaseTreeAssign v165      ON t.UID_DialogTable = v.UID_DialogTableElement166    WHERE167      v.UID_TaskBaseTree > ' '168    SELECT @ElementCount = @@rowcount169    SELECT @ElementIndex = 1170    WHILE @ElementIndex <= @ElementCount171    BEGIN172      SELECT173        TOP 1 @EsetOperation = bu.UID1,174        @EsetTable = bu.Ident1175      FROM @ElementBuffer bu176      WHERE177        bu.ElementIndex = @ElementIndex178      DELETE @DBQueueElements_spezial179      INSERT INTO @DBQueueElements_spezial(object,180      subobject,181      genprocid)182      SELECT183        x.uid,184        NULL,185        @GenProcID186      FROM(187      SELECT188        DISTINCT i.uid_org AS uid189      FROM inserted i190      JOIN ESetHasEntitlement ehe191        ON i.uid_ESet = ehe.uid_ESet AND ehe.XOrigin > 0192      WHERE193        ehe.Entitlement LIKE '<Key><T>' + @EsetTable + '</T>%' AND i.XIsInEffect = 1) AS x194      EXEC QBM_PDBQueueInsert_Bulk @EsetOperation,195        @DBQueueElements_spezial196      SELECT @ElementIndex += 1197    END198  END TRY199  BEGIN CATCH200    EXEC QBM_PSessionErrorAdd DEFAULT201    RAISERROR('',202    18,203    1)204      WITH NOWAIT205  END CATCH206  ende:207  RETURN208END