Imports bdGestionAsegasa.gestionasegasaEntities
Partial Public Class vf_polizasextendidas
    Public ReadOnly Property NumeroSuplemento_String As String
        Get
            If Me.NumeroSuplemento = 0 Then
                Return ""
            Else
                Return NumeroSuplemento.ToString
            End If
        End Get
    End Property
    Public ReadOnly Property Situacion_Web As String
        Get
            Return ObtieneSituacionWeb(Me.idSituacion, Me.idTipoPago)
        End Get
    End Property
    Public ReadOnly Property CiaNumeroPoliza As String
        Get
            Return Me.Compania & "/" & Me.NumeroPoliza
        End Get
    End Property
    Public ReadOnly Property EdadTomador As Integer?
        Get
            If Me.FechaNacimientoTomador.HasValue Then
                Return CInt(Now.Subtract(Me.FechaNacimientoTomador.Value).TotalDays / 365.2425)
            Else
                Return Nothing
            End If
        End Get
    End Property
    Public ReadOnly Property TelefonoMovilValido As String
        Get
            If tsl5.Extensiones.StringExtensions.EsNumeroTelefonoMovilEspañolValido(Me.Telefono1Tomador) Then
                Return Me.Telefono1Tomador
            ElseIf tsl5.Extensiones.StringExtensions.EsNumeroTelefonoMovilEspañolValido(Me.Telefono2Tomador) Then
                Return Me.Telefono2Tomador
            Else
                Return ""
            End If
        End Get
    End Property
    Public Property LibreAlfabetico_TMP_1 As String
    Public Property LibreAlfabetico_TMP_2 As String
    Public Property LibreAlfabetico_TMP_3 As String
    Public Property LibreAlfabetico_TMP_4 As String
    Public Property LibreAlfabetico_TMP_5 As String
    Public Property LibreAlfabetico_TMP_6 As String
    Public Property LibreAlfabetico_TMP_7 As String
    Public Property LibreAlfabetico_TMP_8 As String
    Public Property LibreAlfabetico_TMP_9 As String
    Public Property LibreAlfabetico_TMP_10 As String
    Public Property LibreAlfabetico_TMP_11 As String
    Public Property LibreAlfabetico_TMP_12 As String
    Public Property LibreAlfabetico_TMP_13 As String
    Public Property LibreAlfabetico_TMP_14 As String
    Public Property LibreAlfabetico_TMP_15 As String
    Public Property LibreAlfabetico_TMP_16 As String
    Public Property LibreAlfabetico_TMP_17 As String
    Public Property LibreAlfabetico_TMP_18 As String
    Public Property LibreAlfabetico_TMP_19 As String
    Public Property LibreAlfabetico_TMP_20 As String

    Public Property LibreDoble_TMP_1 As Double
    Public Property LibreDoble_TMP_2 As Double
    Public Property LibreDoble_TMP_3 As Double
    Public Property LibreDoble_TMP_4 As Double
    Public Property LibreDoble_TMP_5 As Double
    Public Property LibreDoble_TMP_6 As Double
    Public Property LibreDoble_TMP_7 As Double
    Public Property LibreDoble_TMP_8 As Double
    Public Property LibreDoble_TMP_9 As Double
    Public Property LibreDoble_TMP_10 As Double
    Public Property LibreDoble_TMP_11 As Double
    Public Property LibreDoble_TMP_12 As Double
    Public Property LibreDoble_TMP_13 As Double
    Public Property LibreDoble_TMP_14 As Double
    Public Property LibreDoble_TMP_15 As Double
    Public Property LibreDoble_TMP_16 As Double
    Public Property LibreDoble_TMP_17 As Double
    Public Property LibreDoble_TMP_18 As Double
    Public Property LibreDoble_TMP_19 As Double
    Public Property LibreDoble_TMP_20 As Double
#Region "Conversiones"
    Public Function AListadoReducido() As ListadoReducido
        Return New ListadoReducido(Me)
    End Function
#End Region
End Class
Public Class ListadoReducido
    Public Sub New(Poliza As vf_polizasextendidas)
        NumeroPropuesta = Poliza.idPoliza
        FechaAlta = Poliza.FechaAlta
        NumeroPóliza = Poliza.NumeroPoliza
        Matrícula = Poliza.Matricula
        Compañía = Poliza.Compania
        Ramo = Poliza.Ramo
        BienesAsegurados = Poliza.BienesAsegurados
        TipoPago = Poliza.TipoPago
        CIFTomador = Poliza.CIFTomador
        Tomador = Poliza.Tomador
        Teléfono1 = Poliza.Telefono1Tomador
        Teléfono2 = Poliza.Telefono2Tomador
        Email = Poliza.EmailTomador
    End Sub
    Property NumeroPropuesta As Integer
    Property FechaAlta As Date?
    Property NumeroPóliza As String
    Property Matrícula As String
    Property BienesAsegurados As String
    Property Compañía As String
    Property Ramo As String
    Property TipoPago As String
    Property CIFTomador As String
    Property Tomador As String
    Property Teléfono1 As String
    Property Teléfono2 As String
    Property Email As String

End Class