From 08c14700c13746af71c609021bc80748feac8b47 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 6 Jun 2023 16:58:28 -0700
Subject: [PATCH] Clientes Quitar seccion de asiganacion de cuenta padre con
 base en funcionalidad 114

---
 Ventas/Clientes.aspx.vb | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 2c00d8389..911037aab 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2638,31 +2638,31 @@ Partial Class Clientes
             Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero()
 
             ' si tiene la funcionalidad de la cuenta contable padre
-            If UsuarioActual.Empresa.Funcionalidad(114) <> "" Then
+            'If UsuarioActual.Empresa.Funcionalidad(114) <> "" Then
 
-                Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+            '    Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
 
-                ObjContaAC.IniciaTransacSQL()
-                'se registra la cuenta contable automaticamente
+            '    ObjContaAC.IniciaTransacSQL()
+            '    'se registra la cuenta contable automaticamente
 
-                CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero(), TxtNombreComercial.Text.Trim, "A", 2)
+            '    CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero(), TxtNombreComercial.Text.Trim, "A", 2)
 
-                If CtaCliente > 0 Then
-                    ObjContaAC.Commit()
-                    DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString()))
-                    DdlCtaContableClientes.SelectedValue = CtaCliente.ToString()
-                    'MsgCuentaContable = String.Format("<br />Con la cuenta contable: {0}", NewCuenta)
+            '    If CtaCliente > 0 Then
+            '        ObjContaAC.Commit()
+            '        DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString()))
+            '        DdlCtaContableClientes.SelectedValue = CtaCliente.ToString()
+            '        'MsgCuentaContable = String.Format("<br />Con la cuenta contable: {0}", NewCuenta)
 
-                Else
+            '    Else
 
-                    ObjContaAC.RollBack()
-                    ObjContaAC.Dispose()
-                    Alert("Error al guardar la cuenta contable ", TipoMensaje.MsgError)
-                    ObjClientes.Dispose()
-                    Exit Sub
-                End If
-                ObjContaAC.Dispose()
-            End If
+            '        ObjContaAC.RollBack()
+            '        ObjContaAC.Dispose()
+            '        Alert("Error al guardar la cuenta contable ", TipoMensaje.MsgError)
+            '        ObjClientes.Dispose()
+            '        Exit Sub
+            '    End If
+            '    ObjContaAC.Dispose()
+            'End If
 
 
             Dim CodigoCuentaAltaCompaq As String = ""