First bug fixes

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