From ff9c270c331a50dadde57ba3a7f138f65f44a2cb Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 14 Oct 2019 15:07:49 -0700 Subject: [PATCH] No generar cuantas al gregr proveeor cuando tenga funcionalidad de cuenta padre --- Compras/Proveedores.aspx.vb | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 25e2e72d7..073f98587 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1357,7 +1357,14 @@ Partial Class Compras_Proveedores End If - IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2) + If UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero > 0 Then + IdCuentaContable = UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero + Else + IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2) + End If + + + If IdCuentaContable > 0 Then ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1) @@ -1571,7 +1578,8 @@ Partial Class Compras_Proveedores 'End If Dim CreoCuenta As Boolean = False - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) Then + + If (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") If drCuenta IsNot Nothing Then