Revert "-- correccion de texto"

This reverts commit 1c08843dd9.

Ventas/Clientes.aspx.vb

@@ -790,8 +790,8 @@ Partial Class Clientes
 
                 If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
                     Tab.ActiveTabIndex = Request("ATI").ToEntero
-                End If
-                ' CargaCuentasyConceptos()
+                End If
+                CargaCuentasyConceptos()
             Else
                 'Configuración de Modalidad Insert
 
@@ -1079,15 +1079,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
+    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
 
@@ -1540,18 +1540,14 @@ Partial Class Clientes
                 HDLG.Value = If(ObjClientes.DtResultados(0)("LG").ToString = "", "0", ObjClientes.DtResultados(0)("LG").ToString)
 
                 DdlPais.SelectedValueExist(ObjClientes.CvePais)
-                CargaEstado()
-
-
-
+                CargaEstado()
+
+
                 CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString)
 
                 DdlSATPais.SelectedValueExist(ObjClientes.DtResultados(0)("SATPais").ToString)
                 DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado)
 
-                ''carga las cuentas contables con nuevo modelo
-                CargaCuentasConceptos(CveCliente)
-
 
                 If DdlPais.SelectedValue.Contiene("151", "66", "40") Then
                     DdlEstado.Visible = True
@@ -1745,25 +1741,6 @@ Partial Class Clientes
 
         Return Retorno
     End Function
-
-    Private Sub CargaCuentasConceptos(CveCliente As Integer)
-        If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
-
-            divCuentas.Visible = True
-            divCuentaContp.Visible = False
-            Dim Conta As New ClsContabilidad
-            If Conta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
-                GvCtas.DataSource = Conta.DtResultados
-            End If
-
-            Conta.Dispose()
-            GvCtas.DataBind()
-        Else
-            divCuentas.Visible = False
-            divCuentaContp.Visible = True
-        End If
-
-    End Sub
     Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
         Dim ObjClientes As New ClsClientes()
         If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then