diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 43a0427be..2c00d8389 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2750,11 +2750,15 @@ Partial Class Clientes
                     End If
                 End If
 
-                If Not AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, IdCuentaAltaCompaq, 1, ObjClientes.IniciaTransacSQL) Then
-                    ErrorProceso = True
+
+                If IdCuentaAltaCompaq > 0 Then
+                    If Not AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, IdCuentaAltaCompaq, 1, ObjClientes.IniciaTransacSQL) Then
+                        ErrorProceso = True
+                    End If
                 End If
 
 
+
                 If ErrorProceso Then
                     ObjClientes.RollBack()
                 Else