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