119 lines
4.6 KiB
VB.net
119 lines
4.6 KiB
VB.net
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 |