agregando las consultas de cuentas y conceptos

Ventas/Clientes.aspx.vb

@@ -778,7 +778,7 @@ Partial Class Clientes
                 If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
                     Tab.ActiveTabIndex = Request("ATI").ToEntero
                 End If
-
+                CargaCuentasyConceptos()
             Else
                 'Configuración de Modalidad Insert
 
@@ -1037,6 +1037,15 @@ Partial Class Clientes
         DdlMonedaExtranjeraAnticipos.Attributes.Add("onclick", "CargaCuentas(9);")
 
     End Sub
+    Private Sub CargaCuentasyConceptos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasyConceptos(CveCliente) Then
+            GvCuentasContable.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvCuentasContable.DataBind()
+        UpCuentaConceptos.Update()
+    End Sub
     Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
         If UsuarioActual.Empresa.ServerContPAQi = "" Then Exit Sub