24 lines
1.1 KiB
VB.net
24 lines
1.1 KiB
VB.net
Imports tsl5.Extensiones
|
|
|
|
Public Class entidadespolizas
|
|
Public Property AEliminar_tmp As Boolean
|
|
|
|
Public ReadOnly Property Domicilio As String
|
|
Get
|
|
If Me.idDireccion.HasValue Then
|
|
If Me.direcciones.municipios Is Nothing OrElse Me.direcciones.Direccion.NothingAVacio = "" OrElse Me.direcciones.CodigoPostal.NothingAVacio = "" Then
|
|
Return "** DOMICILIO INCORRECTO **"
|
|
Else
|
|
If Me.direcciones.municipios.provincias.Nombre = Me.direcciones.municipios.Nombre Then
|
|
Return Me.direcciones.Direccion & " - " & Me.direcciones.CodigoPostal & " " & Me.direcciones.municipios.Nombre
|
|
Else
|
|
Return Me.direcciones.Direccion & " - " & Me.direcciones.CodigoPostal & " " & Me.direcciones.municipios.Nombre & " (" & Me.direcciones.municipios.provincias.Nombre & ")"
|
|
End If
|
|
End If
|
|
Else
|
|
Return "** DOMICILIO INCORRECTO **"
|
|
End If
|
|
End Get
|
|
End Property
|
|
End Class
|