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