Change Name to MultiTool

MultiTool.Shared/Documents/Document.vb

@@ -0,0 +1,76 @@
+Imports System.IO
+Imports MultiTool.Shared.Schemas
+Imports MultiTool.Shared.Winline
+
+Namespace Documents
+    Public Class Document
+        Public File As FileInfo
+        Public 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
+
+        '    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