-- descarga excel - corrección

This commit is contained in:
2023-11-09 11:34:55 -07:00
parent 0a774f4a68
commit 5bc24edf07

View File

@@ -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