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()