Forum Discussion

Gabriel_08's avatar
Gabriel_08
New Contributor
9 months ago

Delete DM Sequences and Steps in bulk.

Hello~,

I am wondering if there are any solutions available for bulk deletion of DM Sequences and Steps. We have hundreds of Sequences and Steps that will not be used, and deleting them manually would require a significant amount of effort. Could you please assist us with this?

Thank you in advance!

Data Management
  • MarcusH's avatar
    MarcusH
    Contributor III
    9 months ago

    There was an application on MarketPlace called Admin Solution Tools (AST) that has a script that deletes DM sequences. I can't find it on MarketPlace now though. That clears up DM steps and sequences using SQL statements. This is the function:

      

    Private Function DropSolutionDM(ByVal si As SessionInfo) As String
    Try
        'Delete business rules associated with this app
        Dim message As String = String.Empty

        If BRApi.Security.Authorization.IsUserInAdminGroup(si) Then

            Dim dmUniqueID As String = String.Empty
            'Get UniqueID from DataMgmtGroup
            Dim sql As String = "Select UniqueID From [DataMgmtSequence] Where Name Like '%(AST)'"
            
            'Execute Query on App DB
            Using dbConnApp As DbConnInfo = BRApi.Database.CreateApplicationDbConnInfo(si)

                Dim dt As DataTable = BRApi.Database.ExecuteSql(dbConnApp, sql, True)

                If (dt.Rows.Count > 0) Then 'Check If the DataTable returns a valid record
                    dmUniqueID = dt.Rows(0)(0).ToString
                Else
                    dmUniqueID = Guid.Empty.ToString
                End If

                'Delete	DataMgmtSeqStepMember
                sql = $"Delete From [DataMgmtSeqStepMember] WHERE [SequenceID] = '{dmUniqueID}'"
                BRApi.Database.ExecuteSql(dbConnApp, sql, True)

                'Delete	DataMgmtGroup
                sql = $"Delete From [DataMgmtGroup] WHERE Name like '%(AST)'"
                BRApi.Database.ExecuteSql(dbConnApp, sql, True)

                'Delete	DataMgmtSequence
                sql = $"Delete From [DataMgmtSequence] WHERE Name like '%(AST)'"
                BRApi.Database.ExecuteSql(dbConnApp, sql, True)

                'Delete	DataMgmtStep
                sql = $"Delete From [DataMgmtStep] WHERE Name like '%_AST'"
                BRApi.Database.ExecuteSql(dbConnApp, sql, True)

            End Using
        Else
            message = "Security Error: Adminstration Rights Required to Execute Uninstall"
        End If
        Return message
    Catch ex As Exception
        Throw ErrorHandler.LogWrite(si, New XFException(si, "Unhandled Exception in DropSolutionDM() function.", ex.Message, ex.InnerException))
    End Try
End Function

     

    • Gabriel_08's avatar
      Gabriel_08
      New Contributor
      9 months ago

      Thank you so much! Will let you know if the code worked.

    • Gabriel_08's avatar
      Gabriel_08
      New Contributor
      9 months ago

      Hi MarcusH,

      Thank you again!  We deleted Sequences and Steps successfully. 

       

      Try
      Dim message As String = String.Empty
       
              If BRApi.Security.Authorization.IsUserInAdminGroup(si) Then
              Using dbConnApp As DbConnInfo = BRApi.Database.CreateApplicationDbConnInfo(si)
                   
               'Delete DataMgmtStep
                Dim sql As String = "Delete From [DataMgmtStep] WHERE [DataMgmtGroupID] = '......' "
                      BRApi.Database.ExecuteSql(dbConnApp, sql, True)
                  End Using
              Else
                  message = "Security Error: Adminstration Rights Required to Execute Uninstall"
              End If
              Return message
      Catch ex As Exception
      Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
      End Try