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