Personal ajustes cuenta depositito

Compras/RepComplementoPago.aspx.vb

@@ -69,15 +69,17 @@ Partial Class Compras_RepComplementoPago
         Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1)
         Dim Count As Integer = 0
 
+        Personalizar()
+
         Dim ObjCompras As New ClsCompras
         If ObjCompras.RepComplementosPago(CveProveedor, -1, TipoConsulta, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, CveTipoProveedor, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRegistra.SelectedValue.ToEntero) Then
             DTComplemntos = ObjCompras.DtResultados '.FiltraParametros(If(ChkViculadas.Checked, "FechaAsociacionPago IS NOT NULL", "FechaAsociacionPago IS NULL"))
             GvDatos.DataSource = DTComplemntos
             If ChkViculadas.Checked Then
                 Count = DTComplemntos.Rows.Count
-                GvDatos.Columns(7).Visible = True
+                GvDatos.Columns(8).Visible = True
             Else
-                GvDatos.Columns(7).Visible = False
+                GvDatos.Columns(8).Visible = False
             End If
         End If
         ObjCompras.Dispose()
@@ -98,6 +100,22 @@ Partial Class Compras_RepComplementoPago
         GvDatos.DataBind()
         UpDatos.Update()
     End Sub
+
+    Private Sub Personalizar()
+
+        GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked
+        If ChkFolioFiscal.Checked Then
+            GvDatos.Columns(0).ItemStyle.Width = 15%
+        Else
+            GvDatos.Columns(0).ItemStyle.Width = 30%
+        End If
+
+
+
+        UpDatos.Update()
+
+    End Sub
+
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If ChkViculadas.Checked Then
@@ -201,4 +219,11 @@ Partial Class Compras_RepComplementoPago
 
     End Sub
 #End Region
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs)
+
+
+        Personalizar()
+    End Sub
+
 End Class