110 lines
3.7 KiB
VB.net
110 lines
3.7 KiB
VB.net
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
|