From a913ca96f974df6ee4af131f164363cfab619fee Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 22 Jun 2020 22:05:51 -0700
Subject: [PATCH] Correcion en impresion de corte

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

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 35aee5510..fc74807e6 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -502,9 +502,11 @@ Partial Class PopUpVerFactura
         End If
         If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then
             DtCortesVentas = ObjPuntoVenta.DtResultados
-            If ObjPuntoVenta.DtResultados.Rows.Count > 0 Then
-                Fecha = ObjPuntoVenta.DtResultados.Rows(0)("FechaInicial").ToString
-                Nombre = ObjPuntoVenta.DtResultados.Rows(0)("Nombre").ToString
+            If DtCortesVentas.Rows.Count > 0 Then
+                Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
+
+                Fecha = RowInfo("FechaInicial").ToString
+                Nombre = RowInfo("Nombre").ToString
             End If
         End If
         ObjVenta.Dispose()