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/chunk_listados.txt
+++ b/chunk_listados.txt
@@ -0,0 +1,118 @@
+Public Class ListadoDevueltos
+    Public Sub New(Recibo As recibos)
+        NumeroRecibo = Recibo.NumeroRecibo
+        NumeroPoliza = Recibo.polizassg.NumeroPolizaSuplementoLargo
+        Compañia = Recibo.polizassg.companias.Nombre
+        Tomador = Recibo.polizassg.Tomador.RazonSocial
+        Teléfono = Recibo.polizassg.Telefono1Tomador
+        FechaEfecto = Recibo.FechaEfecto
+        PrimaBruta = Recibo.TotalRecibo
+        TipoPago = Recibo.TipoPago
+        IBAN = Recibo.IBAN
+        FechaDevolucion = Recibo.FechaDevolucionBanco
+        CausaDevolucion = Recibo.CausaDevolucion
+    End Sub
+
+    Property NumeroRecibo As String
+    Property NumeroPoliza As String
+    Property Compañia As String
+    Property Tomador As String
+    Property Teléfono As String
+    Property FechaEfecto As Date
+    Property PrimaBruta As Double
+    Property TipoPago As String
+    Property IBAN As String
+    Property FechaDevolucion As Date
+    Property CausaDevolucion As String
+
+End ClassPublic Class ListadoBajas
+    Public Sub New(Recibo As recibos)
+        NumeroRecibo = Recibo.NumeroRecibo
+        NumeroPoliza = Recibo.polizassg.NumeroPolizaSuplementoLargo
+        Compañia = Recibo.polizassg.companias.Nombre
+        Tomador = Recibo.polizassg.Tomador.RazonSocial
+        Teléfono = Recibo.polizassg.Telefono1Tomador
+        FechaEfecto = Recibo.FechaEfecto
+        PrimaBruta = Recibo.TotalRecibo
+        TipoPago = Recibo.TipoPago
+        IBAN = Recibo.IBAN
+        FechaBaja = Recibo.FechaBaja
+        CausaBaja = Recibo.CausaBaja
+        PosibleFechaAnulacion = Recibo.FechaBaja
+        If PosibleFechaAnulacion.Day > 22 Then
+            If PosibleFechaAnulacion.Month = 12 Then
+                PosibleFechaAnulacion = New Date(PosibleFechaAnulacion.Year + 1, 1, 22)
+            Else
+                PosibleFechaAnulacion = New Date(PosibleFechaAnulacion.Year, PosibleFechaAnulacion.Month + 1, 22)
+            End If
+        Else
+            PosibleFechaAnulacion = New Date(PosibleFechaAnulacion.Year, PosibleFechaAnulacion.Month, 22)
+        End If
+    End Sub
+
+    Property NumeroRecibo As String
+    Property NumeroPoliza As String
+    Property Compañia As String
+    Property Tomador As String
+    Property Teléfono As String
+    Property FechaEfecto As Date
+    Property PrimaBruta As Double
+    Property TipoPago As String
+    Property IBAN As String
+    Property FechaBaja As Date
+    Property CausaBaja As String
+    Property PosibleFechaAnulacion As Date
+
+
+
+End ClassPublic Class ListadoAsegurados
+    Public Sub New(Recibo As recibos)
+        NumeroPropuesta = Recibo.polizassg.idPoliza
+        NumeroPoliza = Recibo.polizassg.NumeroPolizaSuplementoLargo
+        NumeroRecibo = Recibo.NumeroRecibo
+        CIFTomador = Recibo.polizassg.Tomador.CIF
+        Tomador = Recibo.polizassg.Tomador.RazonSocial
+        Compañia = Recibo.polizassg.companias.Nombre
+        Agente = Recibo.agentes.Nombre
+        SubAgente = Recibo.subagentes.Nombre
+        Ramo = Recibo.polizassg.ramos.Descripcion
+        FechaEfecto = Recibo.FechaEfecto
+        Teléfono1 = Recibo.polizassg.Telefono1Tomador
+        Teléfono2 = Recibo.polizassg.Telefono1Tomador
+        Email = Recibo.polizassg.EmailTomador
+        BienesAsegurados = Recibo.polizassg.BienesAsegurados
+        Matricula = Recibo.polizassg.Matricula
+    End Sub
+    Public Sub New(Recibo As vf_recibosextendidos)
+        NumeroPropuesta = Recibo.idPoliza
+        NumeroPoliza = Recibo.NumeroPolizaSuplementoLargo
+        NumeroRecibo = Recibo.NumeroRecibo
+        CIFTomador = Recibo.CIFTomador
+        Tomador = Recibo.Tomador
+        Compañia = Recibo.Compania
+        Agente = Recibo.Agente
+        SubAgente = Recibo.SubAgente
+        Ramo = Recibo.Ramo
+        FechaEfecto = Recibo.FechaEfecto
+        Teléfono1 = Recibo.Telefono1Tomador
+        Teléfono2 = Recibo.Telefono2Tomador
+        Email = Recibo.EmailTomador
+        BienesAsegurados = Recibo.BienesAsegurados
+        Matricula = Recibo.Matricula
+    End Sub
+    Property NumeroPropuesta As Integer
+    Property NumeroPoliza As String
+    Property NumeroRecibo As String
+    Property CIFTomador As String
+    Property Tomador As String
+    Property Compañia As String
+    Property Agente As String
+    Property SubAgente As String
+    Property Ramo As String
+    Property FechaEfecto As Date
+    Property Teléfono1 As String
+    Property Teléfono2 As String
+    Property Email As String
+    Property BienesAsegurados As String
+    Property Matricula As String
+End Class