Personalizar columnas en reporte de compras y su detalle

Compras/RepComprasDetalle.aspx.vb

@@ -159,6 +159,16 @@ Partial Class Compras_RepComprasDetalle
         End If
         DdlTipoProveedor.SelectedValueExist(CveTipoProveedor)
         DdlTipoDocto.SelectedValueExist(TipoDocto)
+
+        ChkIVA.Checked = True
+        ChkIEPS.Checked = True
+        ChkDesc.Checked = True
+        ChkTotal.Checked = True
+        ChkAbre.Checked = True
+        ChkRazon.Checked = True
+        ChkFolio.Checked = True
+        ChkFecha.Checked = True
+
     End Sub
 
     Private Sub CargaGrupo()
@@ -582,11 +592,63 @@ Partial Class Compras_RepComprasDetalle
 
     Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs)
         CambioGrafica()
-    End Sub
-
+    End Sub
+
 #End Region
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+        If ChkIVA.Checked Then
+            GvDatos.Columns(4).Visible = True
+        Else
+            GvDatos.Columns(4).Visible = False
+        End If
 
+        If ChkIEPS.Checked Then
+            GvDatos.Columns(5).Visible = True
+        Else
+            GvDatos.Columns(5).Visible = False
+        End If
+
+        If ChkDesc.Checked Then
+            GvDatos.Columns(6).Visible = True
+        Else
+            GvDatos.Columns(6).Visible = False
+        End If
+
+        If ChkTotal.Checked Then
+            GvDatos.Columns(7).Visible = True
+        Else
+            GvDatos.Columns(7).Visible = False
+        End If
 
+        If ChkAbre.Checked Then
+            GvDatos.Columns(8).Visible = True
+        Else
+            GvDatos.Columns(8).Visible = False
+        End If
 
+        If ChkRazon.Checked Then
+            GvDatos.Columns(9).Visible = True
+        Else
+            GvDatos.Columns(9).Visible = False
+        End If
+
+        If ChkFolio.Checked Then
+            GvDatos.Columns(10).Visible = True
+        Else
+            GvDatos.Columns(10).Visible = False
+        End If
+
+        If ChkFecha.Checked Then
+            GvDatos.Columns(11).Visible = True
+        Else
+            GvDatos.Columns(11).Visible = False
+        End If
+
+        UPDatos.Update()
+    End Sub
+
+
+
 End Class