Repository.WriteToDiagnosticsLog

From ReliaWiki
Jump to navigation Jump to search



This subroutine adds diagnostic information into the diagnostics log. There are two methods that can be used. Both are shown.

This method is an overloaded method which means the same signature will accept different sets of arguments. Both available methods are shown separately.

First Available Method

Writes a message to the diagnostics log.

Syntax

Parameters

message: Message to write to the diagnostics log
entryType: The type of diagnostics entry type, specified as XFRACASDiagnosticsEntryType

Second Available Method

Writes exception information to the diagnostics log.

Syntax

Parameters

exObject: Represents an error that occurs during application execution
entryType: The type of diagnostics entry type, specified as XFRACASDiagnosticsEntryType
comment: Optional comment to write to the diagnostics log

Usage Example

Code Block

' Declare a new repository connection class. 
Private WithEvents MyRepository As New Repository
' Connect to the Synthesis repository. 
Dim Success As Boolean = False
Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
' Get the list of XFRACAS Entities in the current project in the connected repository. 
Dim ListOfXFRACASEntities() As NameIdPair
ListOfXFRACASEntities = MyRepository.GetAllXFRACASEntities()
' Import the XML file into the entity desired.  In this example, the first entity is used. 
Dim ImportXMLSystemID As Integer
ImportXMLSystemID = MyRepository.ImportXFRACASXMLFile(ListOfXFRACASEntities(0).ID,   XFRACASImportType.Incident, "XMLFileName", "XMLFileDescription")
' Process the imported file. 
MyRepository.ProcessXfracasImports()
' Create place to see where code is breaking instead of writing to your own logfile 
MyRepository.WriteToDiagosticsLog(Diagnostics Message As String, entryType AsXFRACASDiagnosticsEntryType.Information)

Reformatted Usage Example

Declare a new repository connection class.

       Private WithEvents MyRepository As New Repository

Connect to the Synthesis repository.

       Dim Success As Boolean = False
       Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")

Get the list of XFRACAS Entities in the current project in the connected repository.

       Dim ListOfXFRACASEntities() As NameIdPair
       ListOfXFRACASEntities = MyRepository.GetAllXFRACASEntities()

Import the XML file into the entity desired. In this example, the first entity is used.

       Dim ImportXMLSystemID As Integer
       ImportXMLSystemID = MyRepository.ImportXFRACASXMLFile(ListOfXFRACASEntities(0).ID, XFRACASImportType.Incident, "XMLFileName", "XMLFileDescription")

Process the imported file.

       MyRepository.ProcessXfracasImports()

Create place to see where code is breaking instead of writing to your own logfile

       MyRepository.WriteToDiagosticsLog(ByValDiagnostics Message AsString, entryType ASXFRACASDiagnosticsEntryType.Information)