E141 Rep Entradas y salidas: Opción para personalizar columnas, no recargar consulta al personalizar Grid

Inventarios/RepEntradasSalidas.aspx.vb

@@ -54,13 +54,21 @@ Partial Class Inventarios_ReporteEntradasSalidas
             Return (UsuarioActual.CveEmpresa.Contiene(72, 80))
         End Get
     End Property
+    Private Property Personalizo As Integer
+        Get
+            Return ViewState("Personalizo").ToString.ToEntero
+        End Get
 
-
+        Set(value As Integer)
+            ViewState("Personalizo") = value
+        End Set
+    End Property
 
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            Personalizo = 0
 
             If UsuarioActual.CveEmpresa.Contiene(119) Then
                 LnkFormatoInventario.Visible = True
@@ -73,7 +81,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
             CargaCombos()
 
-            GvM.DataBind()
+            GvM.DataBind(True)
             If Not IsNothing(Request("CveAlmacen")) Then
                 DdlAlmacen.SelectedValue = Request("CveAlmacen").ToString()
                 TxtFechaI.Text = "01/01/2000"
@@ -246,10 +254,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
             rpt = dt
         End If
 
-
         Reporte.Dispose()
-        GvM.DataBind()
-
+        GvM.DataBind(True)
         UPPMov.Update()
     End Sub
 
@@ -322,7 +328,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
                 e.Row.FCLabel("lbSaldoF2").Text = If(e.Row.DBCampo("SaldoFImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SaldoFImp").ToDouble.ToString("N2"))
 
             End If
-
         End If
     End Sub
 
@@ -349,6 +354,9 @@ Partial Class Inventarios_ReporteEntradasSalidas
         ' GvM.ExportToExcel("Reporte de Entradas y Salidas")
         ImprimiReporte("EXCEL")
     End Sub
+    Private Sub LnkExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles LnkExcelPersonalizado.Click
+        GvM.ExportToExcel("EntradasSalidas_" + Now.ToShortDateString + ".xls")
+    End Sub
     Private Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
         ImprimiReporte()
     End Sub
@@ -420,8 +428,14 @@ Partial Class Inventarios_ReporteEntradasSalidas
         ImprimirPDF(RutaPDF, If(FormatoInventario, dt.FiltraParametros("", "RazonSocial, PS  ASC"), dt), params, NombreArchivoDescarga, Formato:=Formato)
 
     End Sub
-    Private Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) Handles BtnPersonalizar.Click
-        RegistraScript("$('#DivPersonalizar').modal('hide')")
+
+    Private Sub LnkFormatoInventario_Click(sender As Object, e As EventArgs) Handles LnkFormatoInventario.Click
+        ImprimiReporte("EXCEL", True)
+    End Sub
+#End Region
+
+#Region "PERSONALIZAR"
+    Private Sub MostrarOcultarColumnas()
         GvM.Columns(1).Visible = ChkCodigoAlterno.Checked
         GvM.Columns(2).Visible = ChkCodigoBarras.Checked
         GvM.Columns(3).Visible = ChkClasificacion2.Checked
@@ -496,13 +510,24 @@ Partial Class Inventarios_ReporteEntradasSalidas
             dvCan.Style.Add("width", "21%")
         End If
 
-        CargaDatos()
+        Personalizo = 1
+        If Personalizo = 1 Then
+            LnkExcelPersonalizado.Visible = True
+        Else
+            LnkExcelPersonalizado.Visible = False
+        End If
+
         UpEncabezado.Update()
+        UPPMov.Update()
     End Sub
 
-    Private Sub LnkFormatoInventario_Click(sender As Object, e As EventArgs) Handles LnkFormatoInventario.Click
-        ImprimiReporte("EXCEL", True)
+    Private Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) Handles BtnPersonalizar.Click
+        MostrarOcultarColumnas()
+        RegistraScript("$('#DivPersonalizar').modal('hide')")
+        UPAcciones.Update()
+        'CargaDatos()
     End Sub
+
 #End Region
 
 #Region "B I T A C O R A"