Namespace Documents
    Public Class DocumentRow
        ''' <summary>
        ''' Tabellen/Elementname aus XML
        ''' </summary>
        Public Property Name As String
        Public Property Id As New Guid

        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
        End Class
    End Class

End Namespace