Partial Public Class apuntes

    Private _NumeroCuentaTmp As String
    Public Property NumeroCuentaTmp As String
        Get
            Return _NumeroCuentaTmp
        End Get
        Set(value As String)
            _NumeroCuentaTmp = value
            OnPropertyChanged("NumeroCuentaTmp")
        End Set
    End Property
    Public Property SaldoCuentaTmp As Double
    Public Property DescripcionCuentaTmp As String
    Public Shared Sub EstableceSaldoTmp(lap As List(Of apuntes))
        Dim SaldoAnterior As Double = 0
        For Each ap In lap
            SaldoAnterior = SaldoAnterior + ap.Debe - ap.Haber
            ap.SaldoCuentaTmp = SaldoAnterior
        Next
    End Sub

    Public Enum TiposDocumentos
        RECIBO = 1
        FACTURA = 2
        OTRO = 99
    End Enum
    Public Shared Function ListaTiposDocumentos() As List(Of Tipo)
        Dim lEstados As New List(Of Tipo)
        For Each Enumeracion As TiposDocumentos In System.Enum.GetValues(GetType(TiposDocumentos))
            lEstados.Add(New Tipo With {.id = CInt(Enumeracion), .Descripcion = Enumeracion.ToString.Replace("_", " ")})
        Next
        Return lEstados
    End Function

    Public Function DebeAnterior(bd As bdGestionAsegasa.gestionasegasaEntities, Fecha As Date) As Double
        Try
            Dim aps = bd.apuntes.Where(Function(X) X.idCuenta = Me.idCuenta And X.asientos.Fecha < Fecha).ToList
            Return aps.Sum(Function(x) x.Debe)
        Catch ex As Exception
            Throw New Exception(ex.Message, ex)
        End Try
    End Function
    Public Function HaberAnterior(bd As bdGestionAsegasa.gestionasegasaEntities, Fecha As Date) As Double
        Try
            Dim aps = bd.apuntes.Where(Function(X) X.idCuenta = Me.idCuenta And X.asientos.Fecha < Fecha).ToList
            Return aps.Sum(Function(x) x.Haber)
        Catch ex As Exception
            Throw New Exception(ex.Message, ex)
        End Try

    End Function
    Public ReadOnly Property Saldo As Double
        Get
            Return Math.Round(Debe - Haber, 2)
        End Get
    End Property

    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
    Public ReadOnly Property Diferencia As Double
        Get
            Return Debe - Haber
        End Get
    End Property




End Class

Public Class Tipo
    Property id As Integer
    Property Descripcion As String
End Class