Correcion en impresion de corte

2020-06-22 22:05:51 -07:00
parent 6cb3dda36b
commit a913ca96f9
1 changed files with 5 additions and 3 deletions
--- 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()