diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 59b3e072a..72326646c 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -10362,7 +10362,7 @@ Public Class ClsPaginas
 
     Public Function AplicaPrePolizaPagoVenta(VentaActual As Venta, Pago As VentaPago, CvePrePoliza As Integer, ByRef ObjConta As ClsContabilidad) As Boolean
         Dim ErrorMovtos As Boolean = False
-        Dim PorcentajePago As Decimal = Pago.ImportePago / VentaActual.Total
+        Dim PorcentajePago As Decimal = Pago.ImportePagoVenta / VentaActual.Total
         Dim ImporteMovimiento As Decimal = 0
         Dim ImporteMN As Decimal = 0
         Dim ImporteME As Decimal = 0
@@ -10372,6 +10372,7 @@ Public Class ClsPaginas
         Dim tFechaUltimaFluctuacion As Date
         Dim tImportePago, tImporteVenta As Decimal
         Dim CveConceptoContableComplementaria As Integer = 207
+        If PorcentajePago > 1 Then PorcentajePago = 1
 
         Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 2, Pago.CveConceptoPago)  'si viene en parametro lo toma com primera opcion, sino el 2