Transportes Mejoras

Sistemas/EmpresasModulos.aspx.vb

@@ -47,14 +47,23 @@ Partial Class Sistemas_EmpresasModulos
         UpDatos.Update()
     End Sub
     Private Sub CargarEmpresa()
+
+        Dim DTEmpresas As New DataTable
+
+        Using ObjEmpresas As New ClsSisEmpresas()
+            If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
+                DTEmpresas = ObjEmpresas.DtResultados
+            End If
+        End Using
+
         If UsuarioActual.CveRol <> 1 Then
-            DdlEmpresa.DataSource = GlobalDTEmpresas
+            DdlEmpresa.DataSource = DTEmpresas
             DdlEmpresa.Enabled = False
         Else
-            DdlEmpresa.DataSource = GlobalDTEmpresas
+            DdlEmpresa.DataSource = DTEmpresas
         End If
 
-        DdlEmpresa.SelectedValue = UsuarioActual.CveEmpresa.ToString
+        DdlEmpresa.SelectedValueExist(UsuarioActual.CveEmpresa.ToString)
         DdlEmpresa.DataBind()
     End Sub
     Private Sub CargaModulosEmpresa()
@@ -71,7 +80,13 @@ Partial Class Sistemas_EmpresasModulos
     End Sub
 
     Private Sub CargaModulosDisponible()
-        Dim DtModulosDisponible As DataTable = GlobalDTModulos().FiltraParametros("Liga <> ''")
+        Dim DtModulosDisponible As New DataTable '= GlobalDTModulos().FiltraParametros("Liga <> ''")
+
+        Using ObjModulos As New ClsModulos
+            If ObjModulos.GetModulos(-1, -1, "-1", "-1") Then
+                DtModulosDisponible = ObjModulos.DtResultados
+            End If
+        End Using
 
         Dim rowsToDelete = From r1 In DtModulosDisponible.AsEnumerable()
                            Join r2 In DtModulosEmpresa.AsEnumerable() On r1.Field(Of Integer)("CveModulo") Equals r2.Field(Of Integer)("CveModulo")
@@ -150,4 +165,8 @@ Partial Class Sistemas_EmpresasModulos
 #End Region
 
 
+
+    Protected Sub DdlEmpresa_SelectedIndexChanged(sender As Object, e As EventArgs)
+        consultar_Click(Nothing, Nothing)
+    End Sub
 End Class