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