Personalizar columnas en reporte de compras y su detalle

Compras/RepCompras.aspx.vb

@@ -130,7 +130,8 @@ Partial Class Compras_RepCompras
         DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15"))
     End Sub
 
-    Private Sub CargaCombos()
+    Private Sub CargaCombos()
+        txtFechaI.Text = $"01/01/{Now.Year}"
         'CargaProveedores
         DdlProveedores.setEsWebService(True)
         DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
@@ -169,12 +170,9 @@ Partial Class Compras_RepCompras
 
 
     Private Sub ConfiguraEmpresa()
-        'Dim ObjEmpresa As New ClsEmpresas()
-        'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
-        If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(6).Visible = False
-        If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(7).Visible = False
-        'End If
-        'ObjEmpresa.Dispose()
+        ChkIVA.Checked = True
+        If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
+        If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
     End Sub
 
     Private Sub CargaSubProyecto()
@@ -211,11 +209,13 @@ Partial Class Compras_RepCompras
         CargaDatos()
         ConfiguraEmpresa()
         UPDatos.Update()
+        UPPersonalizar.Update()
     End Sub
     Protected Sub BtnTipoCambio_Click(sender As Object, e As EventArgs)
         CargaDatos()
         ConfiguraEmpresa()
         UPDatos.Update()
+        UPPersonalizar.Update()
     End Sub
     Private Sub CargaDatos()
         Dim ObjCompras As New ClsCompras()
@@ -304,61 +304,73 @@ Partial Class Compras_RepCompras
             If e.Row.DBCampo("AVG_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGTotal").Text = ""
             If e.Row.DBCampo("MIN_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlMinTotal").Text = ""
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "PERSONALIZAR"
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+        If ChkIVA.Checked Then
+            GvDatos.Columns(5).Visible = True
+        Else
+            GvDatos.Columns(5).Visible = False
+        End If
 
-    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-        If ChkRetIVA.Checked Then
+        If ChkIEPS.Checked Then
             GvDatos.Columns(6).Visible = True
         Else
             GvDatos.Columns(6).Visible = False
-        End If
-
-        If ChkRetISR.Checked Then
+        End If
+
+        If ChkRetIVA.Checked Then
             GvDatos.Columns(7).Visible = True
         Else
             GvDatos.Columns(7).Visible = False
         End If
 
-        If ChkMinSub.Checked Then
-            GvDatos.Columns(9).Visible = True
+        If ChkRetISR.Checked Then
+            GvDatos.Columns(8).Visible = True
         Else
-            GvDatos.Columns(9).Visible = False
+            GvDatos.Columns(8).Visible = False
         End If
 
-        If ChkAVGSub.Checked Then
+        If ChkMinSub.Checked Then
             GvDatos.Columns(10).Visible = True
         Else
             GvDatos.Columns(10).Visible = False
         End If
 
-        If ChkMaxSub.Checked Then
+        If ChkAVGSub.Checked Then
             GvDatos.Columns(11).Visible = True
         Else
             GvDatos.Columns(11).Visible = False
         End If
 
-        If ChkMinTot.Checked Then
+        If ChkMaxSub.Checked Then
             GvDatos.Columns(12).Visible = True
         Else
             GvDatos.Columns(12).Visible = False
         End If
 
-        If ChkAvgTot.Checked Then
+        If ChkMinTot.Checked Then
             GvDatos.Columns(13).Visible = True
         Else
             GvDatos.Columns(13).Visible = False
         End If
 
-        If ChkMaxTot.Checked Then
+        If ChkAvgTot.Checked Then
             GvDatos.Columns(14).Visible = True
         Else
             GvDatos.Columns(14).Visible = False
         End If
 
+        If ChkMaxTot.Checked Then
+            GvDatos.Columns(15).Visible = True
+        Else
+            GvDatos.Columns(15).Visible = False
+        End If
+
         UPDatos.Update()
     End Sub