-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Sistemas/Usuarios.aspx.vb

@@ -61,8 +61,6 @@ Partial Class Sistemas_Usuarios
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-
-
             ViewState("Orden") = ""
             ViewState("CveRol") = -1
             CargarEmpresa()
@@ -102,7 +100,7 @@ Partial Class Sistemas_Usuarios
     End Sub
 
     Private Sub CargarEmpresa()
-        Dim ClsUsuarios As New ClsSisUsuarios
+        Dim ClsUsuarios As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
         Dim DtEmpresas As DataTable
 
         'Se cargan las empresas que tenga acceso el Usuario Actual, que son las que el puede dar acceso o no.
@@ -117,8 +115,8 @@ Partial Class Sistemas_Usuarios
         ClsUsuarios.Dispose()
 
         DdlEmpresa.DataSource = DtEmpresas
-        DdlEmpresa.SelectedValue = UsuarioActual.CveEmpresa.ToString
         DdlEmpresa.DataBind()
+        DdlEmpresa.SelectedValueExist(UsuarioActual.CveEmpresa.ToString)
 
     End Sub