53 lines
1.4 KiB
VB.net
53 lines
1.4 KiB
VB.net
Imports System.IO
|
|
Imports MultiTool.Shared.Schemas
|
|
Imports MultiTool.Shared.Winline
|
|
|
|
Namespace Documents
|
|
Public Class Document
|
|
Public File As FileInfo
|
|
Public Property Type As DocumentType
|
|
Public Schema As Schema
|
|
Public Mandator As Mandator
|
|
|
|
Public TemplateName As String
|
|
Public TemplateType As Integer
|
|
Public [Option] As Integer
|
|
Public PrintVoucher As Integer
|
|
|
|
''' <summary>
|
|
''' Original Values, read-only
|
|
''' </summary>
|
|
Public Property Rows As New List(Of DocumentRow)
|
|
|
|
Public Property Selected As Boolean = False
|
|
|
|
Public ReadOnly Property MandatorId As String
|
|
Get
|
|
Return Mandator?.Id
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property CreatedAt As Date
|
|
Get
|
|
Return File?.CreationTime
|
|
End Get
|
|
End Property
|
|
|
|
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 Overrides Function Equals(obj As Object) As Boolean
|
|
Return FullName = DirectCast(obj, Document).FullName
|
|
End Function
|
|
End Class
|
|
|
|
End Namespace |