From 9d702afd106e7c6224d2b122b1861e9563a9f265 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 5 Jun 2023 23:35:36 -0700
Subject: [PATCH] Clientes Validacion en alta de cuenta sig

---
 Ventas/Clientes.aspx.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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