--

General/CatCompuestos.aspx

@@ -27,7 +27,7 @@
     </div>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CveCompuesto,Compuesto,Estatus" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos">
+            <asp:GridView ID="GvDatos" runat="server" GridLines="None"  data-sort="true" DataKeyNames="CveCompuesto,Compuesto,Estatus" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Compuestos Activos">
                 <Columns>
                     <asp:BoundField DataField="Compuesto" ItemStyle-Width="20%" HeaderText="Compuesto" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="20%" HeaderText="Fecha Ing" ItemStyle-HorizontalAlign="center" />

General/CatCompuestos.aspx.vb

@@ -32,11 +32,11 @@ Partial Class General_CatCompuestos
             CveCompuesto = -1
             EsEditar = 0
             dvEstatus.Visible = False
-            CargaDatos(-1)
+            CargaDatos()
         End If
     End Sub
 
-    Private Sub CargaDatos(CveConductor As Integer)
+    Private Sub CargaDatos()
         Dim PS As New ClsProductosServicios
         If PS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = PS.DtResultados
@@ -85,7 +85,7 @@ Partial Class General_CatCompuestos
         TxtCompuesto.Text = ""
 
 
-        CargaDatos(-1)
+        CargaDatos()
         UpDatos.Update()
         UpBodyCompuesto.Update()
 
@@ -98,7 +98,7 @@ Partial Class General_CatCompuestos
             Alert("El Compuesto se eliminó correctamente", TipoMensaje.MsgInformacion)
         End If
         PS.Dispose()
-        CargaDatos(-1)
+        CargaDatos()
         UpDatos.Update()
     End Sub