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.IO
Imports System.Xml Imports System.Xml
Imports Extensiones Imports Extensiones
Imports iText.Kernel.Pdf
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports Stimulsoft.Report Imports Stimulsoft.Report
Imports Stimulsoft.Report.Web Imports Stimulsoft.Report.Web
@@ -183,9 +182,9 @@ Partial Class PopUpVerFactura
End If End If
End If End If
If Request("REPORTE") IsNot Nothing Then 'If Request("REPORTE") IsNot Nothing Then
CType(Session("DTPDF"), HtmlTable).GenerarReportePDF("Reporte") ' CType(Session("DTPDF"), HtmlTable).GenerarReportePDF("Reporte")
End If 'End If
'OPCIONES 'OPCIONES
@@ -6572,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 PdfDocument(New PdfReader(ms)) Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(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
@@ -6584,7 +6583,7 @@ Partial Class PopUpVerFactura
If Modalidad = "Individual" Then If Modalidad = "Individual" Then
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) 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.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close() docEtiqueta.Close()
Else Else
@@ -6593,7 +6592,7 @@ Partial Class PopUpVerFactura
For i As Integer = 0 To Cant For i As Integer = 0 To Cant
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) 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.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close() docEtiqueta.Close()
Next Next
@@ -6622,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 PdfDocument(New PdfReader(ms)) Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(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
@@ -6632,7 +6631,7 @@ Partial Class PopUpVerFactura
If Modalidad = "Individual" Then If Modalidad = "Individual" Then
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) 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.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close() docEtiqueta.Close()
Else Else
@@ -6641,7 +6640,7 @@ Partial Class PopUpVerFactura
For i As Integer = 0 To Cant For i As Integer = 0 To Cant
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) 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.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
docEtiqueta.Close() docEtiqueta.Close()
Next Next