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