From 8392be070b40f3dcedfd40656062d0347243cd90 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 18 Dec 2023 09:33:15 -0700
Subject: [PATCH] -- quitamos botones. de mover o quitar todos

---
 Sistemas/EmpresasModulos.aspx    |  8 ++---
 Sistemas/EmpresasModulos.aspx.vb | 59 ++++----------------------------
 2 files changed, 9 insertions(+), 58 deletions(-)

diff --git a/Sistemas/EmpresasModulos.aspx b/Sistemas/EmpresasModulos.aspx
index 0130814b8..5b39c796f 100644
--- a/Sistemas/EmpresasModulos.aspx
+++ b/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>
diff --git a/Sistemas/EmpresasModulos.aspx.vb b/Sistemas/EmpresasModulos.aspx.vb
index a59b6a77a..63ebda5e4 100644
--- a/Sistemas/EmpresasModulos.aspx.vb
+++ b/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