las columnas ahora se muestran con checkbox en el filtro

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -533,4 +533,21 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         '    row.FCTextBox("TxtCantidad").Text = ExistenciaBackup
         'End If
     End Sub
+
+    Protected Sub ChkMostrarColumnas(sender As Object, e As EventArgs)
+        'Mostrar Lote
+        GvD.Columns(7).Visible = ChkMostrarLote.Checked
+        GvD.Columns(8).Visible = ChkMostrarLote.Checked
+
+        'Mostrar Caducidad
+        GvD.Columns(9).Visible = ChkMostrarFecha.Checked
+        GvD.Columns(10).Visible = ChkMostrarFecha.Checked
+
+        'Mostrar Sección
+        GvD.Columns(11).Visible = ChkMostrarSeccion.Checked
+        GvD.Columns(12).Visible = ChkMostrarSeccion.Checked
+
+        UppD.Update()
+    End Sub
+
 End Class