77 lines
2.8 KiB
VB.net
77 lines
2.8 KiB
VB.net
Partial Public Class gestionesrecibos
|
|
Public ReadOnly Property DetalleCorreo As String
|
|
Get
|
|
If Me.correos IsNot Nothing Then
|
|
If Me.correos.FechaAnulacion.HasValue Then
|
|
Return "Correo a " & Me.correos.Destinatario & " Anulado el " & Me.correos.FechaAnulacion.Value.ToString("dd/MM/yyyy hh:mm")
|
|
Else
|
|
If Me.correos.FechaEnvio.HasValue Then
|
|
Return "Correo a " & Me.correos.Destinatario & " Enviado el " & Me.correos.FechaEnvio.Value.ToString("dd/MM/yyyy hh:mm")
|
|
Else
|
|
Return "Correo a " & Me.correos.Destinatario & " pendiente de envio"
|
|
End If
|
|
End If
|
|
Else
|
|
Return "Sin correo"
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property DetalleMensaje As String
|
|
Get
|
|
If Me.mensajes IsNot Nothing Then
|
|
If Me.mensajes.FechaAnulacion.HasValue Then
|
|
Return "Mensaje a " & Me.mensajes.Destinatario & " Anulado el " & Me.mensajes.FechaAnulacion.Value.ToString("dd/MM/yyyy hh:mm")
|
|
Else
|
|
If Me.mensajes.FechaEnvio.HasValue Then
|
|
Return "Mensaje a " & Me.mensajes.Destinatario & " Enviado el " & Me.mensajes.FechaEnvio.Value.ToString("dd/MM/yyyy hh:mm")
|
|
Else
|
|
Return "Mensaje a " & Me.mensajes.Destinatario & " pendiente de envio"
|
|
End If
|
|
End If
|
|
Else
|
|
Return "Sin Mensaje"
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|
|
|
|
Public Enum TipoGestionEnum As Integer
|
|
AVISO_REMESA_O_COBRO_DIRECTO = 1
|
|
AVISO_POLIZA_DE_BAJA = 2
|
|
AVISO_RECIBO_DEVUELTO_BANCO = 3
|
|
AVISO_IMPERATIVO_LEGAL = 4
|
|
SOLICITUD_DATOS_DEL_ASEGURADO_AL_AGENTE = 5
|
|
COMUNICACIÓN_DEVOLUCIÓN_AL_AGENTE = 6
|
|
COMUNICACIÓN_BAJA_AL_AGENTE = 7
|
|
CAMBIO_CARTERA_AGENTE = 8
|
|
AVISO_DEFENSA_CARTERA = 9
|
|
DESCARGA_RECIBO_DE_CIA = 10
|
|
OTROS_HP = 100
|
|
OTROS = 101
|
|
COMUNICACIÓN_EMISION_RECIBO_A_LA_COMPAÑÍA = 200
|
|
IMPRESION_RECIBO_CIA = 300
|
|
IMPRESION_RECIBO_GENERICO = 301
|
|
AVISO_ERRONEO = 1000
|
|
End Enum
|
|
Public Enum FormaComunicacionEnum
|
|
NINGUNA = 0
|
|
POR_SMS = 1
|
|
POR_CARTA = 2
|
|
SIN_DOMICILIO_NI_TLF_VALIDO = 3
|
|
POR_EMAIL = 4
|
|
|
|
'AVISO_REMESA_O_COBRO_DIRECTO_POR_SMS = 1
|
|
'AVISO_REMESA_O_COBRO_DIRECTO_POR_CARTA = 2
|
|
'AVISO_REMESA_O_COBRO_DIRECTO_SIN_DOMICILIO_NI_TLF_VALIDO = 3
|
|
|
|
'AVISO_POLIZA_DE_BAJA_POR_SMS = 4
|
|
'AVISO_POLIZA_DE_BAJA_POR_CARTA = 5
|
|
'AVISO_POLIZA_DE_BAJA_SIN_DOMICILIO_NI_TLF_VALIDO = 6
|
|
|
|
'AVISO_RECIBO_DEVUELTO_BANCO_POR_SMS = 7
|
|
'AVISO_RECIBO_DEVUELTO_BANCO_POR_CARTA = 8
|
|
'AVISO_RECIBO_DEVUELTO_BANCO_SIN_DOMICILIO_NI_TLF_VALIDO = 9
|
|
End Enum
|