From 5bc24edf0735937bdca28d687873437838fb8e55 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 9 Nov 2023 11:34:55 -0700
Subject: [PATCH] =?UTF-8?q?--=20descarga=20excel=20-=20correcci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/FacturacionAcarreos.aspx.vb | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/Ventas/FacturacionAcarreos.aspx.vb b/Ventas/FacturacionAcarreos.aspx.vb
index 70830fe5e..2cd109303 100644
--- a/Ventas/FacturacionAcarreos.aspx.vb
+++ b/Ventas/FacturacionAcarreos.aspx.vb
@@ -5,12 +5,8 @@ Imports System.Data
 Imports System.IO
 Imports System.IO.Compression
 Imports System.Net.Http
-Imports System.Windows.Forms
-Imports ADSTimbrado
-Imports DocumentFormat.OpenXml.Spreadsheet
 Imports Extensiones
 Imports GemBox.Spreadsheet
-Imports iText.Barcodes.Dmcode
 
 Partial Class Ventas_FacturacionAcarreos
     Inherits ClsPaginas
@@ -385,9 +381,11 @@ Partial Class Ventas_FacturacionAcarreos
 
     Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
         GvDatos.Columns(0).Visible = False
-        GvDatos.ExportToExcel("Acarreos_" & NowADS().ToShortDateString & ".xls")
+        GvDatos.ExportToExcelG("Acarreos_" & NowADS().ToShortDateString & ".xls", "Facturación Acarreos")
         GvDatos.Columns(0).Visible = True
     End Sub
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
     Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer, Optional GetBytes As Boolean = True, Optional Regenerar As Boolean = False, Optional strURLHOST As String = "") As Byte()
 
         If String.IsNullOrEmpty(strURLHOST) Then