diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index bad559dc2..47fed9063 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1185,7 +1185,7 @@ Partial Class Ventas_ClientesAbonar
                         End If
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso MsgError = "" Then '' si es empresa GDiaz
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TxtAnticipo.Text.ToDecimal > 0 AndAlso MsgError = "" Then '' si es empresa GDiaz
                         'generar un anticipo y registrarle el pago.
 
                         Dim tCveMoneda As Integer = 1