-

2024-08-03 12:42:38 -07:00
parent f82826e1cb
commit 2fe1490050
2 changed files with 10 additions and 2 deletions
--- 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()