27 lines
746 B
VB.net
27 lines
746 B
VB.net
Imports System
|
|
Partial Public Class liquidacionesviajes
|
|
|
|
Public ReadOnly Property Diferencia As Double
|
|
Get
|
|
Return Math.Round(TotalJustificado - Anticipo, 2, MidpointRounding.AwayFromZero)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property ADevolver As String
|
|
Get
|
|
If Diferencia < 0 Then
|
|
Return Math.Abs(Diferencia).ToString("c2")
|
|
Else
|
|
Return ""
|
|
End If
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property ARecibir As String
|
|
Get
|
|
If Diferencia > 0 Then
|
|
Return Diferencia.ToString("c2")
|
|
Else
|
|
Return ""
|
|
End If
|
|
End Get
|
|
End Property
|
|
End Class |