agregado procesos y bd clases

2026-04-28 11:52:16 +02:00
parent 59a774c397
commit cd2e8b8530
251 changed files with 56881 additions and 49 deletions
--- a/guia/Extensiones/pagosliquidacionescia.vb
+++ b/guia/Extensiones/pagosliquidacionescia.vb
@@ -0,0 +1,21 @@
+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