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/chunk_props2.txt
+++ b/chunk_props2.txt
@@ -0,0 +1,45 @@
+Public ReadOnly Property DescripcionFormaPago As String
+        Get
+            If Me.idTipoPago.HasValue Then
+                Return Me.enumeraciones2.Descripcion
+            Else
+                Return ""
+            End If
+        End Get
+    End PropertyPublic ReadOnly Property NombreBanco As String
+        Get
+            If Me.IBAN.NothingAVacio <> "" Then
+                If IBAN.Length = 24 Then 'IBAN.Length <> 24 Then
+                    Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto()
+                    Dim banco = bd.bancos.Where(Function(x) x.Codigo = IBAN.Substring(4, 4))
+                    If banco.Any Then
+                        Return banco.First.Nombre
+                    Else
+                        Return "** DESCONOCIDO **"
+                    End If
+                Else
+                    Return "** IBAN ERRONEO **"
+                End If
+            Else
+                Return ""
+            End If
+        End Get
+    End PropertyPublic ReadOnly Property CamposAComprobar As String
+        Get
+            Dim sFechaBaja As String = If(Me.FechaBaja.HasValue, Me.FechaBaja.Value.ToString("yyyyMMdd"), "0")
+            Dim sFechaPago As String = If(Me.FechaPago.HasValue, Me.FechaPago.Value.ToString("yyyyMMdd"), "0")
+            Dim sFechaRemesa As String = If(Me.idRemesa.HasValue, Me.remesas.Fecha.Value.ToString("yyyyMMdd"), "0")
+            Dim sNumeroRemesa As String = If(Me.idRemesa.HasValue, Me.remesas.idRemesa.ToString, "")
+            Return (Me.CodigoRecibo & "|" & sFechaBaja & "|" & sFechaPago & "|" & sFechaRemesa & "|" & sNumeroRemesa)
+        End Get
+    End PropertyPublic ReadOnly Property LimiteEfectoSobrePasadoFechaBaja As Boolean
+        Get
+            Dim DiasLimite As Integer
+            If Me.TipoRecibo.Contains("CARTERA") Then
+                DiasLimite = Me.polizassg.companias.NumeroDiasLimiteFBCartera
+            Else
+                DiasLimite = Me.polizassg.companias.NumeroDiasLimiteFBEmision
+            End If
+            Return Me.FechaEfecto < Today.AddDays(DiasLimite)
+        End Get
+    End Property