39 lines
1.4 KiB
VB.net
39 lines
1.4 KiB
VB.net
Public Class movimientosbancarios
|
|
Private _Conciliado As Boolean?
|
|
Public Property Conciliado As Boolean
|
|
Get
|
|
If _Conciliado.HasValue Then
|
|
Return _Conciliado
|
|
Else
|
|
If ConciliacionActual_TMP IsNot Nothing Then
|
|
If ConciliacionActual_TMP.idconciliacion <> Me.idConciliacion Then
|
|
Return False
|
|
Else
|
|
Return Me.idConciliacion.HasValue
|
|
End If
|
|
Else
|
|
Return Me.idConciliacion.HasValue
|
|
End If
|
|
End If
|
|
End Get
|
|
Set(value As Boolean)
|
|
_Conciliado = value
|
|
If value Then
|
|
Me.conciliacionesbancarias = Me.ConciliacionActual_TMP
|
|
Else
|
|
Me.idConciliacion = Nothing
|
|
End If
|
|
End Set
|
|
End Property
|
|
Public Property ConciliacionActual_TMP As conciliacionesbancarias
|
|
Public ReadOnly Property ConciliadoEn As String
|
|
Get
|
|
If ConciliacionActual_TMP IsNot Nothing AndAlso Me.idConciliacion.HasValue AndAlso Me.idConciliacion <> ConciliacionActual_TMP.idconciliacion Then
|
|
Return "Nº Conc.: " & Me.idConciliacion & " (" & Me.conciliacionesbancarias.Año.ToString & "-" & Me.conciliacionesbancarias.Mes.ToString & ")"
|
|
Else
|
|
Return ""
|
|
End If
|
|
End Get
|
|
End Property
|
|
End Class
|