Refactor: Add ImporterShared Project

ImporterShared/Documents/Document.vb

@@ -0,0 +1,44 @@
+Imports System.IO
+Imports EDIDocumentImport.Data
+
+Namespace Documents
+    Public Class Document
+        Public File As FileInfo
+        Public Type As DocumentType
+        Public Mandator As String
+
+        Public Data As Object
+        Public DataOriginal As Object
+        Public DataOutput As Object
+        Public DataString As String
+
+        Public Selected As Boolean = False
+
+        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 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