agregado procesos y bd clases

guia/Extensiones/liquidacionesviajes.vb

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