Transportes Mejoras

Sistemas/EmpresasModulos.aspx

@@ -20,7 +20,10 @@
                     <div class="titlefiltros caption ">
                         <ul class="list-inline">
                             <li>Empresa: 
-                         <asp:DropDownList ID="DdlEmpresa" AutoPostBack="true" runat="server" AppendDataBoundItems="true" DataTextField="Empresa" DataValueField="CveEmpresa" CssClass=" select2me table-group-action-input form-control input-inline input-small input-sm" Style="width: 400px !important;" ValidationGroup="GrpGuardar">
+                         <asp:DropDownList ID="DdlEmpresa" AutoPostBack="true" runat="server" AppendDataBoundItems="true" DataTextField="Empresa" DataValueField="CveEmpresa"
+                             CssClass=" select2me table-group-action-input form-control input-inline input-small input-sm" Style="width: 400px !important;" ValidationGroup="GrpGuardar"
+                             OnSelectedIndexChanged="DdlEmpresa_SelectedIndexChanged"
+                             >
                              <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                          </asp:DropDownList>
                             </li>

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