118 lines
4.4 KiB
Plaintext
118 lines
4.4 KiB
Plaintext
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 |