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()
+        ChkIVA.Checked = True
-        'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
+        If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
-        If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(6).Visible = False
+        If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
-        If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(7).Visible = False
-        'End If
-        'ObjEmpresa.Dispose()
     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 ChkIEPS.Checked Then
-        If ChkRetIVA.Checked Then
             GvDatos.Columns(6).Visible = True
         Else
             GvDatos.Columns(6).Visible = False
-        End If
+        End If
-
+
-        If ChkRetISR.Checked Then
+        If ChkRetIVA.Checked Then
             GvDatos.Columns(7).Visible = True
         Else
             GvDatos.Columns(7).Visible = False
         End If
 
-        If ChkMinSub.Checked Then
+        If ChkRetISR.Checked Then
-            GvDatos.Columns(9).Visible = True
+            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
 

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