48 lines
1.3 KiB
VB.net
48 lines
1.3 KiB
VB.net
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
|