22 lines
916 B
VB.net
22 lines
916 B
VB.net
Public Class pagosliquidacionescias
|
|
Public ReadOnly Property ImportePago As Double
|
|
Get
|
|
Return Math.Round(Me.ImporteLiquidaciones + Me.ImporteRegularizacion, 2, MidpointRounding.AwayFromZero)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property ImporteCobros As Double
|
|
Get
|
|
Return Math.Round(Me.liquidacionescompanias.Where(Function(x) x.enumeraciones.Codigo <> "TIPLIQ.DESCOBRO").Sum(Function(x) x.Importe), 2, MidpointRounding.AwayFromZero)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property ImporteDesCobros As Double
|
|
Get
|
|
Return Math.Round(Me.liquidacionescompanias.Where(Function(x) x.enumeraciones.Codigo = "TIPLIQ.DESCOBRO").Sum(Function(x) x.Importe), 2, MidpointRounding.AwayFromZero)
|
|
End Get
|
|
End Property
|
|
Public Sub ActualizaImportePago()
|
|
Me.OnPropertyChanged("ImportePago")
|
|
End Sub
|
|
|
|
End Class
|