AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- descarga excel - corrección

Browse Source
This commit is contained in:
rrene
2023-11-09 11:34:55 -07:00
parent 0a774f4a68
commit 5bc24edf07
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/FacturacionAcarreos.aspx.vb
View File

@@ -5,12 +5,8 @@ Imports System.Data
Imports System.IO Imports System.IO
Imports System.IO.Compression Imports System.IO.Compression
Imports System.Net.Http Imports System.Net.Http
Imports System.Windows.Forms
Imports ADSTimbrado
Imports DocumentFormat.OpenXml.Spreadsheet
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports iText.Barcodes.Dmcode
Partial Class Ventas_FacturacionAcarreos Partial Class Ventas_FacturacionAcarreos
Inherits ClsPaginas Inherits ClsPaginas
@@ -385,9 +381,11 @@ Partial Class Ventas_FacturacionAcarreos
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
GvDatos.Columns(0).Visible = False 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 GvDatos.Columns(0).Visible = True
End Sub 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() 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 If String.IsNullOrEmpty(strURLHOST) Then