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()