From 2fe149005052b4efded8e981f2cad867b454c985 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 3 Aug 2024 12:42:38 -0700 Subject: [PATCH] - --- Ventas/PVCobranza.aspx | 11 +++++++++-- Ventas/PVCobranza.aspx.vb | 1 + 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index a69e53fd1..6a5f1b790 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -500,19 +500,26 @@
-
+
$
-
+
$
+ +
+ $ + + +
+
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 8cbfdf484..f9c88e062 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -651,6 +651,7 @@ Partial Class Ventas_PVCobranza DtPagos.Rows.Add({1, TxtImporteEfectivo.Text.ToDecimal}) End If + Dim PagoMaximo = DtPagos.MAX("Importe") Dim CveFormaPago As Integer = DtPagos.FiltroPrimeroValor("CveFormaPago", $"Importe = {PagoMaximo}").ToEntero()