-- quitamos botones. de mover o quitar todos

Sistemas/EmpresasModulos.aspx

@@ -40,17 +40,15 @@
         <ContentTemplate>
             <table>
                 <tr>
-                    <td>
+                    <td>                       
                         <asp:ListBox runat="server" ID="ListModulosDisponible" DataTextField="Padres" DataValueField="CveModulo" Height="300px" Width="450px" SelectionMode="Multiple"></asp:ListBox>
                     </td>
                     <td width="100px" align="center">
-                        <asp:Button Text=">>" runat="server" ID="BtnAddTodos" ToolTip="Añadir Todos" OnClick="BtnAddTodos_Click" class="btn btn-primary" /><br />
+                        
-                        <br />
                         <asp:Button Text=">" runat="server" ID="BtnAdd" ToolTip="Añadir Seleccionados" OnClick="BtnAdd_Click" class="btn btn-primary" /><br />
                         <br />
                         <asp:Button Text="<" runat="server" ID="BtnRemove" ToolTip="Quitar Seleccionados" OnClick="BtnRemove_Click" class="btn btn-primary" /><br />
-                        <br />
+                        
-                        <asp:Button Text="<<" runat="server" ID="BtnRemoveTodos" ToolTip="Quitar Todos" OnClick="BtnRemoveTodos_Click" class="btn btn-primary" />
                     </td>
                     <td>
                         <asp:ListBox runat="server" ID="ListModulosEmpresa" DataTextField="Padres" DataValueField="CveModulo" Height="300px" Width="450px" SelectionMode="Multiple"></asp:ListBox>

Sistemas/EmpresasModulos.aspx.vb

@@ -70,13 +70,13 @@ Partial Class Sistemas_EmpresasModulos
     End Sub
 
     Private Sub CargaModulosDisponible()
-        Dim DtModulosDisponible = GlobalDTModulos().FiltraParametros("Liga <> ''")
+        Dim DtModulosDisponible As DataTable = GlobalDTModulos().FiltraParametros("Liga <> ''")
 
         Dim rowsToDelete = From r1 In DtModulosDisponible.AsEnumerable()
                            Join r2 In DtModulosEmpresa.AsEnumerable() On r1.Field(Of Integer)("CveModulo") Equals r2.Field(Of Integer)("CveModulo")
                            Select r1
 
-        For i = 0 To rowsToDelete.Count - 1
+        For i As Integer = 0 To rowsToDelete.Count - 1
             DtModulosDisponible.Rows.Remove(rowsToDelete(0))
         Next
 
@@ -87,37 +87,14 @@ Partial Class Sistemas_EmpresasModulos
 
 
 #Region "GUARAR - AÑADIR"
-    Protected Sub BtnAddTodos_Click(sender As Object, e As EventArgs)
-        Dim ObjEmpresas As New ClsSisEmpresas
-        ObjEmpresas.IniciaTransacSQL()
-        Dim TieneError = False
 
-        For i = 0 To ListModulosDisponible.Items.Count - 1
-            If Not ObjEmpresas.AddEmpresasModulos(CveEmpresa, ListModulosDisponible.Items(i).Value.ToEntero) Then
-                TieneError = True
-                Exit For
-            End If
-        Next
-
-        If Not TieneError Then
-            Alert("Los módulos se agregaron correctamente.", TipoMensaje.MsgInformacion)
-            ObjEmpresas.Commit()
-        Else
-            Alert("Ocurrió un error al agregar los módulos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-            ObjEmpresas.RollBack()
-        End If
-
-        ObjEmpresas.Dispose()
-
-        CargaDatos()
-    End Sub
 
     Protected Sub BtnAdd_Click(sender As Object, e As EventArgs)
         Dim ObjEmpresas As New ClsSisEmpresas
         ObjEmpresas.IniciaTransacSQL()
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
-        For i = 0 To ListModulosDisponible.Items.Count - 1
+        For i As Integer = 0 To ListModulosDisponible.Items.Count - 1
             If ListModulosDisponible.Items(i).Selected Then
                 If Not ObjEmpresas.AddEmpresasModulos(CveEmpresa, ListModulosDisponible.Items(i).Value.ToEntero) Then
                     TieneError = True
@@ -145,9 +122,9 @@ Partial Class Sistemas_EmpresasModulos
     Protected Sub BtnRemove_Click(sender As Object, e As EventArgs)
         Dim ObjEmpresas As New ClsSisEmpresas
         ObjEmpresas.IniciaTransacSQL()
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
-        For i = 0 To ListModulosEmpresa.Items.Count - 1
+        For i As Integer = 0 To ListModulosEmpresa.Items.Count - 1
             If ListModulosEmpresa.Items(i).Selected Then
                 If Not ObjEmpresas.RemoveEmpresasModulos(CveEmpresa, ListModulosEmpresa.Items(i).Value.ToEntero) Then
                     TieneError = True
@@ -169,30 +146,6 @@ Partial Class Sistemas_EmpresasModulos
         CargaDatos()
     End Sub
 
-    Protected Sub BtnRemoveTodos_Click(sender As Object, e As EventArgs)
-        Dim ObjEmpresas As New ClsSisEmpresas
-        ObjEmpresas.IniciaTransacSQL()
-        Dim TieneError = False
-
-        For i = 0 To ListModulosEmpresa.Items.Count - 1
-            If Not ObjEmpresas.RemoveEmpresasModulos(CveEmpresa, ListModulosEmpresa.Items(i).Value.ToEntero) Then
-                TieneError = True
-                Exit For
-            End If
-        Next
-
-        If Not TieneError Then
-            Alert("Los módulos se eliminaron correctamente.", TipoMensaje.MsgInformacion)
-            ObjEmpresas.Commit()
-        Else
-            Alert("Ocurrió un error al eliminar los módulos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-            ObjEmpresas.RollBack()
-        End If
-
-        ObjEmpresas.Dispose()
-
-        CargaDatos()
-    End Sub
 #End Region