WIP

MultiTool.Shared/Documents/DocumentRow.vb

@@ -3,21 +3,41 @@
         ''' <summary>
         ''' Tabellen/Elementname aus XML
         ''' </summary>
-        Public Name As String
-        Public Id As New Guid
+        Public Property Name As String
+        Public Property Id As New Guid
 
-        Public Fields As Dictionary(Of String, FieldValue)
+        Public Property Fields As Dictionary(Of String, FieldValue)
+
+        Public ReadOnly Property HasErrors As Boolean
+            Get
+                Return Fields.Any(Function(f) f.Value.HasError)
+            End Get
+        End Property
 
         Public Sub New()
             Id = Guid.NewGuid()
         End Sub
 
+        Public Enum FieldError
+            None
+            AccountNotFound
+            ArticleNotFound
+        End Enum
+
         Public Class FieldValue
+            Public [Error] As FieldError = FieldError.None
+
             Public Original As String = ""
             Public External As String = ""
             Public Final As String = ""
             Public Property DataType As Constants.ColumnType = Constants.ColumnType.String
 
+            Public ReadOnly Property HasError As Boolean
+                Get
+                    Return [Error] <> FieldError.None
+                End Get
+            End Property
+
             Public Overrides Function ToString() As String
                 Return Final
             End Function