-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Compras/Proveedores.aspx.vb

@@ -4554,7 +4554,7 @@ Partial Class Compras_Proveedores
         '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
         'End If
         'ObjUsuarios.Dispose()
-        GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
     Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
@@ -4918,7 +4918,7 @@ Partial Class Compras_Proveedores
         DdlSubProyectoFiltro.DataBind()
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'Carga Productos