Personalizar columnas en reporte de cxp detalle

Compras/RepCxPDetalle.aspx.vb

@@ -223,14 +223,15 @@ Partial Class RepCxPDetalle
             Personalizo = 0
 
             ViewState("Opcion") = IfNull(Request("Op"), "S")
+            MostrarOcultarColumnas()
             CargaCombos()
             If Request("Op") IsNot Nothing Then
                 CargaDatos()
             End If
             'ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")
         End If
-    End Sub
-
+    End Sub
+
 #Region "CARGAS"
     Private Sub CargaCombos()
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -321,7 +322,6 @@ Partial Class RepCxPDetalle
 
     End Sub
 
-
     Private Function CargaCuentasContables(DT As DataTable) As DataTable
 
         Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
@@ -441,10 +441,10 @@ Partial Class RepCxPDetalle
         'Dim ObjEmpresa As New ClsEmpresas()
         'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
 
-        If Opcion <> "S" Then
-            If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
-            If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
-        End If
+        'If Opcion <> "S" Then
+        '    If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
+        '    If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
+        'End If
         'End If
         'ObjEmpresa.Dispose()
     End Sub
@@ -516,14 +516,13 @@ Partial Class RepCxPDetalle
             End If
 
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "PERSONALIZAR"
-
-    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-
+    Protected Sub MostrarOcultarColumnas()
+
         If ChkFolio.Checked Then
             GvDatos.Columns(1).Visible = True
         Else
@@ -536,42 +535,72 @@ Partial Class RepCxPDetalle
             GvDatos.Columns(2).Visible = False
         End If
 
-        If ChkSaldo.Checked Then
+        If ChkIVA.Checked Then
             GvDatos.Columns(3).Visible = True
         Else
             GvDatos.Columns(3).Visible = False
         End If
 
-        If ChkFechaVencimiento.Checked Then
+        If ChkIEPS.Checked Then
             GvDatos.Columns(4).Visible = True
         Else
             GvDatos.Columns(4).Visible = False
         End If
 
-        If ChkDiasVencidos.Checked Then
+        If ChkDescuento.Checked Then
             GvDatos.Columns(5).Visible = True
         Else
             GvDatos.Columns(5).Visible = False
         End If
 
-        If ChkProveedor.Checked Then
+        If ChkTotal.Checked Then
             GvDatos.Columns(6).Visible = True
         Else
             GvDatos.Columns(6).Visible = False
         End If
 
-        If ChkCuenta.Checked Then
+        If ChkSaldo.Checked Then
             GvDatos.Columns(7).Visible = True
         Else
             GvDatos.Columns(7).Visible = False
         End If
 
-        If ChkObservaciones.Checked Then
+        If ChkFechaVencimiento.Checked Then
             GvDatos.Columns(8).Visible = True
         Else
             GvDatos.Columns(8).Visible = False
         End If
 
+        If ChkDiasVencidos.Checked Then
+            GvDatos.Columns(9).Visible = True
+        Else
+            GvDatos.Columns(9).Visible = False
+        End If
+
+        If ChkProveedor.Checked Then
+            GvDatos.Columns(10).Visible = True
+        Else
+            GvDatos.Columns(10).Visible = False
+        End If
+
+        If ChkCuenta.Checked Then
+            GvDatos.Columns(11).Visible = True
+        Else
+            GvDatos.Columns(11).Visible = False
+        End If
+
+        If ChkObservaciones.Checked Then
+            GvDatos.Columns(12).Visible = True
+        Else
+            GvDatos.Columns(12).Visible = False
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
+            GvDatos.Columns(13).Visible = True
+        Else
+            GvDatos.Columns(13).Visible = False
+        End If
+
         Personalizo = 1
         If Personalizo = 1 Then
             ImgExcelPersonalizado.Visible = True
@@ -579,9 +608,10 @@ Partial Class RepCxPDetalle
             ImgExcelPersonalizado.Visible = False
         End If
 
-
-        UPDatos.Update()
-
+        UPDatos.Update()
+    End Sub
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+        MostrarOcultarColumnas()
         RegistraScript("$('#DivPersonalizar').modal('hide');")
     End Sub