-- cambio en GlobalDT Usuarios

Compras/Proveedores.aspx.vb

@@ -5147,11 +5147,12 @@ Partial Class Compras_Proveedores
         objUsuario.Dispose()
     End Sub
     Public Sub CargaGlobal()
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-        End If
-        ObjUsuarios.Dispose()
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        'End If
+        'ObjUsuarios.Dispose()
+        GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
     Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound

Compras/eFacturas.aspx.vb

@@ -751,7 +751,7 @@ Partial Class Compras_eFacturas
             Ejecutable = "C:\Proyectos\wwwSIG\Utilerias\ADSUtilerias.exe"
             Form.DefaultButton = BtnConsultar.UniqueID
 
-            DdlResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+            DdlResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
             DdlResponsable.DataBind()
             DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1"))