Rename Shared to Common

MultiTool.Common/Winline/Entities/DocumentKind.vb

@@ -0,0 +1,19 @@
+Namespace Winline.Entities
+    Public Class DocumentKind
+        Public Property Id As Integer
+        Public Property Name As String
+        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, DocumentKind).Id = Id
+        End Function
+
+        Public Overrides Function ToString() As String
+            Return $"{Name} ({Id})"
+        End Function
+    End Class
+End Namespace