-

Ventas/CatPS.aspx.vb

@@ -113,6 +113,11 @@ Partial Class CatPS
             AplicaVenta = False
         End If
 
+        GvDatos.Columns(10).Visible = ChkProductosServiciosSAT.Checked
+        GvDatos.Columns(11).Visible = ChkClasificacion2.Checked
+        GvDatos.Columns(12).Visible = ChkMarca.Checked
+        GvDatos.Columns(13).Visible = ChkVentaMinima.Checked
+
         CargaDatos()
         OrdenaDatos()
         UPDatos.Update()
@@ -255,6 +260,13 @@ Partial Class CatPS
         ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
 
     End Sub
+
+    Protected Sub LBExcelPersonalizado_Click(Sender As Object, e As EventArgs) Handles LBExcelPersonalizado.Click
+        ExportToExcelGembox(GvDatos, "Catálogo de Productos y Servicios", UsuarioActual, "", "", "Catálogo de Productos y Servicios", "", -1)
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+    End Sub
 #End Region
 
 End Class