From 699e4b39945132d65ad432944b5691665a0390fd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 15 Dec 2022 09:30:37 -0700
Subject: [PATCH] mejora en namespace

---
 Compras/PopUpVerFactura.aspx.vb | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index aa810b9d4..832f9d9e0 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -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