diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 1b63b1a6f..2aa7450ba 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9544,7 +9544,7 @@ Public Class ClsPaginas
         If Pago.TipoPago = "NC" Then ConPreP.CveConcepto = If(VentaActual.CveMoneda <> 1, 301, 251)
 
         'movimiento de pago cliente
-        If Pago.ImportePagoVenta > 0 Then
+        If Pago.ImportePagoVenta <> 0 Then
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePagoVenta, Pago.ImportePagoVenta, ConPreP.CveConcepto, VentaActual.SerieFolio, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveVentaAmortizacion:=Pago.CveVentaAmortizacion, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=VentaActual.CveSubProyecto, CveCompra:=Pago.CveCompraRelacionada, Contabilizable:=Contabilizable) Then ErrorMovtos = True
             'movimiento de pago cliente Complementaria
             If Not ErrorMovtos AndAlso VentaActual.CveMoneda > 1 Then