filtros colapsables en ajuste de seccion

Inventarios/AjustesSeccionAlmacen.aspx

@@ -33,6 +33,8 @@
                 <div class="portlet-title portlet-filterT smalltitle magindate">
                     <div class="tools">
                         <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-default" />
+                        <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
                     <div class="titlefiltros caption ">
 
@@ -57,7 +59,7 @@
                         </div>
                     </div>
                 </div>
-                <div class="portlet-body">
+                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                     <div class="row" >
                         <label class="col-sm-1 truncate" style="text-align: right">Mostrar Lote:</label>
                         <div class="col-md-1 form-group form-md-line-input input-iconright">

Inventarios/EntregaAlmacen.aspx.vb

@@ -3771,12 +3771,12 @@ Partial Class Inventarios_EntregaAlmacen
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
 
         ImprimirPDF("Empresas/Grales/Formatos/RepEntregaAlmacenSugerencia.rdlc", DtDatosSugerencias, params, "Equipo GPS")
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "TipoEntrega"
-
+
     Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs)
         If RbEntregaExterna.Checked Then
             RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')")