26 lines
757 B
VB.net
26 lines
757 B
VB.net
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
|