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