-- cambios en la visualziacion de las cuentas contables

Compras/Proveedores.aspx.vb

@@ -852,6 +852,15 @@ Partial Class Compras_Proveedores
                 DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
                 TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
 
+                If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                    divCuentasContp.Visible = False
+                Else
+                    divCuentas.Visible = False
+                    divCuentasContp.Visible = True
+                End If
+
                 'Contable
                 If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then
                     DdlCtaContAcreedores.AutoPostBack = True
@@ -1010,6 +1019,16 @@ Partial Class Compras_Proveedores
         DdlUsuarioEvaluador.DataBind()
     End Sub
 
+    Private Sub CargaCuentasConceptos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasConceptos(1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
+            GvCta.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvCta.DataBind()
+
+    End Sub
+
     Private Sub CargaContactos(ByRef ObjProveedor As ClsCompProveedores)
         'TRAE CONTACTOS GENERALES Y POR SUCURSAL
         If ObjProveedor.GetProveedoresContactos(-1, CveProveedor, -1) Then