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

Inventarios Kardex caducidades/etiquetas fix generación PDF

Browse Source
This commit is contained in:
MLopez
2022-12-15 16:17:49 -07:00
parent 2be82bf16d
commit 2a222d8703
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsPaginas.vb
View File

@@ -6410,7 +6410,8 @@ Public Class ClsPaginas
Else Else
Response.ContentType = mimeType Response.ContentType = mimeType
End If End If
Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls"))) Response.ClearHeaders()
Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
Response.BinaryWrite(bytes) ' create the file Response.BinaryWrite(bytes) ' create the file
Response.Flush() ' send it to the client to download Response.Flush() ' send it to the client to download
bytes = Nothing bytes = Nothing

4
Compras/PopUpVerFactura.aspx.vb
View File

@@ -6571,7 +6571,7 @@ Partial Class PopUpVerFactura
Dim PS As String = "" Dim PS As String = ""
Dim All As Byte() Dim All As Byte()
Using ms As New MemoryStream Using ms As New MemoryStream
Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(ms)) Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
pdfdoc.InitializeOutlines() pdfdoc.InitializeOutlines()
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
If ObjInventarios.DtResultados IsNot Nothing Then If ObjInventarios.DtResultados IsNot Nothing Then
@@ -6621,7 +6621,7 @@ Partial Class PopUpVerFactura
Dim All As Byte() Dim All As Byte()
Using ms As New MemoryStream Using ms As New MemoryStream
Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(ms)) Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
pdfdoc.InitializeOutlines() pdfdoc.InitializeOutlines()
If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then
If ObjInventarios.DtResultados IsNot Nothing Then If ObjInventarios.DtResultados IsNot Nothing Then