-- cuentas asignaciones, cambios en globalDT

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -32,10 +32,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
     Private Sub CargaDatosModal()
         Dim ObjConta As New ClsContabilidad
-        Dim ObjProveedores As New ClsCompProveedores
-        Dim ObjRH As New ClsRH
-        Dim ObjClasificaciones As New ClsClasificaciones
-        Dim ObjInv As New ClsInventarios
 
         If ObjConta.GetConta_ConceptosContables() Then
             DdlCconceptosContables.DataSource = ObjConta.DtResultados
@@ -45,31 +41,17 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlCuenta.DataSource = ObjConta.DtResultados
         End If
 
-        If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        End If
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
 
         DdlClientes.setEsWebService(True)
 
         DdlPersonal.setEsWebService(True)
-        'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-        '    DdlPersonal.DataSource = ObjRH.DtResultados
-        'End If
 
-        If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
-            DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
-        End If
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
 
-        If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
-            DdlAlmacen.DataSource = ObjInv.DtResultados
-        End If
+        DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
 
         ObjConta.Dispose()
-        ObjProveedores.Dispose()
-        ObjRH.Dispose()
-        ObjClasificaciones.Dispose()
-        ObjInv.Dispose()
-
 
         DdlCconceptosContables.DataBind()
         DdlCuenta.DataBind()
@@ -171,7 +153,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             End If
         End If
         ObjConta.Dispose()
-        RegistraScript("$('#ModalCat').modal('hide');")
+        If Not ChkSeguirRegistrando.Checked Then RegistraScript("$('#ModalCat').modal('hide');")
+
         If ErrorString.Length > 0 Then
             Alert(ErrorString)
         Else