From d7695492b8bdc6a47e3cc738b25d2f4ccf7a7f7a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 19 Apr 2022 22:27:02 -0700
Subject: [PATCH] Errores de impresion

---
 Compras/PopUpVerFactura.aspx.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index a9e63b2ef..adef1fc1b 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -33,7 +33,7 @@ Partial Class PopUpVerFactura
     End Property
     Public Property DtDetalle() As DataTable
         Get
-            Return CType(ViewState("DtDetalle"), DataTable)
+            Return DirectCast(IfNull(ViewState("DtDetalle"), New DataTable, ViewState("DtDetalle")), DataTable)
         End Get
         Set(value As DataTable)
             ViewState("DtDetalle") = value
@@ -807,7 +807,7 @@ Partial Class PopUpVerFactura
             DtCortesVentasResumen = ObjVenta.DtResultados
 
         End If
-        If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then
+        If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, -1, UsuarioActual.CveEmpresa) Then
             DtCortesVentas = ObjPuntoVenta.DtResultados
             If DtCortesVentas.Rows.Count > 0 Then
                 Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
@@ -5031,7 +5031,7 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("MsgError", ""))
             params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
 
-            ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
+            ImprimirPDF(Archivo.FullName, New DataTable(), params, "AcuseCancelacion" & CveVenta)
 
         End If