First Working Version with New parser

ImporterShared/Documents/Document.vb

@@ -1,19 +1,17 @@
 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 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
@@ -26,19 +24,30 @@ Namespace Documents
             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 Rows As New List(Of DocumentRow)
 
-        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
+        '    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