First bug fixes

MultiTool.Shared/Winline/Entities/Account.vb

@@ -6,8 +6,9 @@
         Public Property StreetName As String
         Public Property CityName As String
         Public Property ZipCode As String
+        Public Property GLN As String
 
-        Public Property Mandator As String
+        Public Property Mandator As Mandator
 
         Public Overrides Function GetHashCode() As Integer
             Return Id.GetHashCode()

MultiTool.Shared/Winline/Entities/Article.vb

@@ -0,0 +1,21 @@
+Namespace Winline
+    Public Class Article
+        Public Property Id
+        Public Property Name
+        Public Property EAN
+        Public Property Mandator As Mandator
+
+        Public Overrides Function GetHashCode() As Integer
+            Return Id.GetHashCode()
+        End Function
+
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return DirectCast(obj, Article).Id = Id
+        End Function
+
+        Public Overrides Function ToString() As String
+            Return $"{Name} ({Id})"
+        End Function
+    End Class
+
+End Namespace

MultiTool.Shared/Winline/Entities/DocumentKind.vb

@@ -1,8 +1,8 @@
 Namespace Winline
     Public Class DocumentKind
-        Public Id As Integer
-        Public Name As String
-        Public Mandator As String
+        Public Property Id As Integer
+        Public Property Name As String
+        Public Property Mandator As Mandator
 
         Public Overrides Function GetHashCode() As Integer
             Return Id.GetHashCode()