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/guia/Extensiones/gestionesrecibos.vb
+++ b/guia/Extensiones/gestionesrecibos.vb
@@ -0,0 +1,76 @@
+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