Clientes Validacion en alta de cuenta sig

2023-06-05 23:35:36 -07:00
parent 5efebdb212
commit 9d702afd10
1 changed files with 6 additions and 2 deletions
--- 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