25 lines
744 B
VB.net
25 lines
744 B
VB.net
Namespace Winline.Entities
|
|
Public Class Account
|
|
Public Property Id As String
|
|
Public Property Name As String
|
|
|
|
Public Property StreetName As String
|
|
Public Property CityName As String
|
|
Public Property ZipCode As String
|
|
Public Property GLN 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, Account).Id = Id
|
|
End Function
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return $"{Name} ({Id})"
|
|
End Function
|
|
End Class
|
|
End Namespace |