Repository.WriteToDiagnosticsLog

Syntax

 * WriteToDiagnosticsLog(message, entrytype  XFRACASDiagnosticEntryType, comment)

Parameters
 * message: The message that should be displayed in the diagnostics log for the diagnostics entry type
 * entryType: The type of diagnostics entry type, specified as XFRACASDiagnosticsEntryType
 * exObject: The object that can be written into the diagnostics log.
 * comment: Optional comment that can be written into the diagnostics log.
 * ''XFRACASDiagnosticsEntryType: The type of diagnostics entry

Usage Example
' ' Success  = Success = MyRepository.ConnectToRepository("RepositoryFileNamePath") ' ListOfXFRACASEntities ListOfXFRACASEntities = MyRepository.GetAllXFRACASEntities ' ImportXMLSystemID ImportXMLSystemID = MyRepository.ImportXFRACASXMLFile(ListOfXFRACASEntities(0).ID,  XFRACASImportType.Incident, "XMLFileName", "XMLFileDescription") ' MyRepository.ProcessXfracasImports ' MyRepository.WriteToDiagosticsLog(Diagnostics Message TextAs String, entryType XFRACASDiagnosticsEntryType.4)

Reformatted Usage Example
Private WithEvents MyRepository As New Repository

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

Dim ListOfXFRACASEntities As NameIdPair ListOfXFRACASEntities = MyRepository.GetAllXFRACASEntities

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

MyRepository.ProcessXfracasImports

MyRepository.WriteToDiagosticsLog(Diagnostics Message String, ByVal entryType XFRACASDiagnosticsEntryType.4)