GetLastInsightTransactionMessages Method

Description

This method returns Insight error log information for the last Insight transaction.

Syntax

Visual Basic
Public Function GetLastInsightTransactionMessages( _ ByRef TransactionString As String, _ ByRef NumberOfDocuments As Long, _ ByRef ListofDocumentNamesWithPath As Variant, _ ByRef ListofMessages As Variant, _ ByRef ListofSeverityCodes As Variant _ ) As Long

Visual Basic

Public Function GetLastInsightTransactionMessages( _
   ByRef TransactionString As String, _
   ByRef NumberOfDocuments As Long, _
   ByRef ListofDocumentNamesWithPath As Variant, _
   ByRef ListofMessages As Variant, _
   ByRef ListofSeverityCodes As Variant _
) As Long

Parameters

TransactionString: Specifies the failed command name.
NumberOfDocuments: Specifies the number of documents for which there is error information.
ListofDocumentNamesWithPath: Specifies the documents for which there is error information.
ListofMessages: Specifies the error messages for the documents.
ListofSeverityCodes: Specifies the severity codes for the documents.

Example

Example (VB.NET)

Imports RevisionManager
Imports System.Runtime.InteropServices

Module Example

    Sub Main()
        Dim objApplication As RevisionManager.Application = Nothing
        Dim objInsight As RevisionManager.Insight = Nothing
        Dim TransactionString As String = String.Empty
        Dim NumberOfDocuments As Integer
        Dim aListofDocumentNamesWithPath As Object = Nothing
        Dim aListofMessages As Object = Nothing
        Dim aListofSeverityCodes As Object = Nothing

        Try
            ' Start Revision Manager.
            objApplication = New RevisionManager.Application

            ' Get reference to Insight object.
            objInsight = objApplication.Insight

            objInsight.GetLastInsightTransactionMessages(TransactionString, NumberOfDocuments, aListofDocumentNamesWithPath, aListofMessages, aListofSeverityCodes)
        Catch ex As Exception
            ' Write any errors to console.
            Console.WriteLine(ex.Message)
        Finally
            ' Release COM Objects.
            If Not (objInsight Is Nothing) Then
                Marshal.ReleaseComObject(objInsight)
                objInsight = Nothing
            End If

            If Not (objApplication Is Nothing) Then
                objApplication.Quit()
                Marshal.ReleaseComObject(objApplication)
                objApplication = Nothing
            End If
        End Try
    End Sub

End Module