Rep Compras Detalle: Hacer columnas personalizables

Compras/RepComprasAFDetalle.aspx.vb

@@ -82,12 +82,13 @@ Partial Class Compras_RepComprasAFDetalle
 
 #End Region
 
+    Private Personalizado As Boolean = False
+
     Private Sub Compras_RepComprasAFDetalle_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
             'ImgPersonalizar.Attributes.Add("onclick", "javascript:$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")
-
-
+            GvDatos.DataBind(True)
 
             Try
                 Dim Fecha, FechaI, FechaF As String
@@ -163,9 +164,11 @@ Partial Class Compras_RepComprasAFDetalle
             End If
 
             If UsuarioActual.CveEmpresa = 72 Then
-                GvDatos.Columns(3).Visible = True
+                GvDatos.FBColumn("NoSerie").Visible = True
             End If
 
+            UPDatos.Update()
+
         End If
     End Sub
 
@@ -284,18 +287,12 @@ Partial Class Compras_RepComprasAFDetalle
                                       CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
             DTDatos = ObjCompras.DtResultados
 
-            GvDatos.DataSource = ObjCompras.DtResultados
-        Else
-            GvDatos.DataSource = Nothing
-            DTDatos = Nothing
+            GvDatos.DataSource = DTDatos
         End If
 
-
         ObjCompras.Dispose()
-        GvDatos.DataBind()
-
-
-
+        GvDatos.DataBind(True)
+        UPDatos.Update()
     End Sub
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
 
@@ -482,4 +479,31 @@ Partial Class Compras_RepComprasAFDetalle
         End If
 
     End Sub
+
+    Protected Sub PersonalizarColumnas()
+        GvDatos.FBColumn("SerieFolio").Visible = ChkFactura.Checked
+        GvDatos.FBColumn("SubProyecto").Visible = ChkSubProyecto.Checked
+        GvDatos.FBColumn("CodigoAF").Visible = ChkAF.Checked
+        GvDatos.FBColumn("NoSerie").Visible = ChkNS.Checked
+        GvDatos.FBColumn("CodigoPS").Visible = ChkPS.Checked
+        GvDatos.FBColumn("NombreCompleto").Visible = ChkResp.Checked
+        GvDatos.FBColumn("AFMedida").Visible = ChkMedidaAF.Checked
+        GvDatos.FBColumn("AFTipoMantenimientoStr").Visible = ChkTipoMant.Checked
+        GvDatos.FBColumn("TipoActivoFijo").Visible = ChkTipoAF.Checked
+        GvDatos.FBColumn("SubTipoActivoFijo").Visible = ChkSubTipoAF.Checked
+        GvDatos.FBColumn("Clasificacion").Visible = ChkClasif.Checked
+        GvDatos.FBColumn("Clasificacion2").Visible = ChkClasif2.Checked
+        GvDatos.FBColumn("UnidadMedida").Visible = ChkUM.Checked
+        GvDatos.FBColumn("Cantidad").Visible = ChkCant.Checked
+        GvDatos.FBColumn("PU").Visible = ChkPU.Checked
+        GvDatos.FBColumn("Total").Visible = ChkTotal.Checked
+        GvDatos.FBColumn("Cuenta").Visible = ChkCuenta.Checked
+        UPDatos.Update()
+    End Sub
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+        Personalizado = True
+        PersonalizarColumnas()
+    End Sub
+
 End Class