diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 4d726dadd..5747d66dc 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -863,7 +863,7 @@ Partial Class Ventas_ClientesAbonar
                                                 importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioVentaValuacion
                                             ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                 ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-                                                importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioVentaValuacion
+                                                importeMX = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                             ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                                 ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                                 importeMX = ImporteMovimiento * tipoCambioVentaValuacion
@@ -1467,6 +1467,7 @@ Partial Class Ventas_ClientesAbonar
 
                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                             MsgError = "No se pudo insertar la póliza"
+                                            Exit For
                                         End If
 
                                     End If
@@ -1568,7 +1569,7 @@ Partial Class Ventas_ClientesAbonar
                         End If
                     End If
 
-                    If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
+                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
                         If ObjMov.ValorPolizaDescuadre > 0 Then
                             MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia
                         End If