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

mejora en namespace

Browse Source
This commit is contained in:
rrene
2022-12-15 09:30:37 -07:00
parent d2bc929043
commit 699e4b3994
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5,7 +5,6 @@ Imports System.Data
Imports System.IO
Imports System.Xml
Imports Extensiones
Imports iText.Kernel.Pdf
Imports Microsoft.Reporting.WebForms
Imports Stimulsoft.Report
Imports Stimulsoft.Report.Web
@@ -183,9 +182,9 @@ Partial Class PopUpVerFactura
End If
End If
If Request("REPORTE") IsNot Nothing Then
CType(Session("DTPDF"), HtmlTable).GenerarReportePDF("Reporte")
End If
'If Request("REPORTE") IsNot Nothing Then
' CType(Session("DTPDF"), HtmlTable).GenerarReportePDF("Reporte")
'End If
'OPCIONES
@@ -6572,7 +6571,7 @@ Partial Class PopUpVerFactura
Dim PS As String = ""
Dim All As Byte()
Using ms As New MemoryStream
Using pdfdoc As New PdfDocument(New PdfReader(ms))
Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(ms))
pdfdoc.InitializeOutlines()
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
If ObjInventarios.DtResultados IsNot Nothing Then
@@ -6584,7 +6583,7 @@ Partial Class PopUpVerFactura
If Modalidad = "Individual" Then
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte))
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close()
Else
@@ -6593,7 +6592,7 @@ Partial Class PopUpVerFactura
For i As Integer = 0 To Cant
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte))
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close()
Next
@@ -6622,7 +6621,7 @@ Partial Class PopUpVerFactura
Dim All As Byte()
Using ms As New MemoryStream
Using pdfdoc As New PdfDocument(New PdfReader(ms))
Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(ms))
pdfdoc.InitializeOutlines()
If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then
If ObjInventarios.DtResultados IsNot Nothing Then
@@ -6632,7 +6631,7 @@ Partial Class PopUpVerFactura
If Modalidad = "Individual" Then
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte))
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close()
Else
@@ -6641,7 +6640,7 @@ Partial Class PopUpVerFactura
For i As Integer = 0 To Cant
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
Dim docEtiqueta As New PdfDocument(New PdfReader(reporteByte))
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close()
Next