WIP

ImporterShared/Winline/Entities/DocumentKind.vb

@@ -2,6 +2,18 @@
     Public Class DocumentKind
         Public Id As Integer
         Public Name As String
-    End Class
+        Public Mandator As String
 
+        Public Overrides Function GetHashCode() As Integer
+            Return Id.GetHashCode()
+        End Function
+
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return DirectCast(obj, DocumentKind).Id = Id
+        End Function
+
+        Public Overrides Function ToString() As String
+            Return $"{Name} ({Id})"
+        End Function
+    End Class
 End Namespace