-- globaldttipogasto

Ventas/Clientes.aspx.vb

@@ -791,7 +791,7 @@ Partial Class Clientes
                 If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
                     Tab.ActiveTabIndex = Request("ATI").ToEntero
                 End If
-                CargaCuentasyConceptos()
+                'CargaCuentasyConceptos()
             Else
                 'Configuración de Modalidad Insert
 
@@ -1079,13 +1079,13 @@ Partial Class Clientes
         DdlMonedaExtranjeraAnticipos.Attributes.Add("onclick", "CargaCuentas(9);")
 
     End Sub
-    Private Sub CargaCuentasyConceptos()
+    Private Sub CargaCuentasConceptos()
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentasyConceptos(CveCliente) Then
-            GvCuentasContable.DataSource = ObjConta.DtResultados
+        If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
+            GvCta.DataSource = ObjConta.DtResultados
         End If
         ObjConta.Dispose()
-        GvCuentasContable.DataBind()
+        GvCta.DataBind()
         UpCuentaConceptos.Update()
     End Sub
     Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
@@ -1681,8 +1681,17 @@ Partial Class Clientes
                 End If
 
                 CargaEventoBitacora()
-
-                'Ocultamos la mayoria de informacion si es no-frecuente
+                If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                    divCuentasContp.Visible = False
+                Else
+                    divCuentas.Visible = False
+                    divCuentasContp.Visible = True
+                End If
+
+
+                'Ocultamos la mayoria de informacion si es no-frecuente
                 If ObjClientes.TipoCliente = 2 Then
                     TabFiscalContable.Visible = False
                     TabCxC.Visible = False