agregado procesos y bd clases

guia/Extensiones/movimientosbancarios.vb

@@ -0,0 +1,38 @@
+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