45 lines
2.0 KiB
Plaintext
45 lines
2.0 KiB
Plaintext
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 |