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