Add packing units, calculate price according to packing units

MultiTool.Common/Winline/Entities/PackingUnit.vb

@@ -0,0 +1,25 @@
+Namespace Winline.Entities
+    Public Class PackingUnit
+        Public Property Name As String
+        Public Property Description As String
+        Public Property Description2 As String
+        Public Property Unit As Integer
+        Public Property Factor As Decimal
+        Public Property Flag As Integer
+
+        Public Property Mandator As Mandator
+
+        Public Overrides Function GetHashCode() As Integer
+            Return Name.GetHashCode()
+        End Function
+
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return DirectCast(obj, PackingUnit).Name = Name
+        End Function
+
+        Public Overrides Function ToString() As String
+            Return Name
+        End Function
+    End Class
+
+End Namespace