Imports System.IO Namespace Documents Public Class Document Public File As FileInfo Public Mandator As String Public Type As DocumentType Public Selected As Boolean = False Public TemplateName As String Public TemplateType As Integer Public [Option] As Integer Public PrintVoucher As Integer Public ReadOnly Property FullName As String Get Return File?.FullName End Get End Property Public ReadOnly Property Name As String Get Return File?.Name End Get End Property Public Rows As New List(Of DocumentRow) ' Public Type As DocumentType ' Public Data As Object ' Public DataOriginal As Object ' Public DataOutput As Object ' Public DataString As String ' Public Selected As Boolean = False ' Public Shared Function GetDocumentTypeFromTemplateName(pTemplateName As String) As DocumentType ' Return DocumentMatch.TypeMatchingTable. ' Where(Function(kv) pTemplateName.Contains(kv.Key)). ' Select(Function(kv) kv.Value). ' FirstOrDefault() ' End Function ' Public Shared Function GetDocumentSchemaFromDocumentType(pDocumentType As DocumentType) As Type ' Return DocumentMatch.SchemaMatchingTable. ' Where(Function(kv) pDocumentType = kv.Key). ' Select(Function(kv) kv.Value). ' FirstOrDefault() ' End Function End Class End Namespace