agregado procesos y bd clases

2026-04-28 11:52:16 +02:00
parent 59a774c397
commit cd2e8b8530
251 changed files with 56881 additions and 49 deletions
--- a/guia/Extensiones/vf_polizasextendidas.vb
+++ b/guia/Extensiones/vf_polizasextendidas.vb
@@ -0,0 +1,119 @@
+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