53 lines
1.6 KiB
VB.net
53 lines
1.6 KiB
VB.net
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 |