From 3609bb71d96a01f0802eda7b808a204bcb0ecec1 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 31 May 2024 21:42:18 -0700 Subject: [PATCH] - --- Ventas/PVCobranza.aspx.vb | 4 ++-- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 9f3afc3cf..bc9bcfb5c 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -740,7 +740,7 @@ Partial Class Ventas_PVCobranza ObjPVenta.Dispose() End Sub Private Sub CargaEntradasSalidas() - Dim ObjPVenta As New ClsPuntoVenta + Dim ObjPVenta As New ClsVentas 'Salida If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 0) Then @@ -1005,7 +1005,7 @@ Partial Class Ventas_PVCobranza Dim FechaI As Date = If(txtFechaI.Text <> "", txtFechaI.Text.ToDate, MinFecha) Dim FechaF As Date = If(txtFechaF.Text <> "", txtFechaF.Text.ToDate, MaxFecha) - Dim ObjPuntoVenta As New ClsPuntoVenta + Dim ObjPuntoVenta As New ClsVentas If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then GvD.DataSource = ObjPuntoVenta.DtResultados diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e4fd97f87..ee6befccd 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3902,7 +3902,7 @@ Partial Class Ventas ObjPVenta.Dispose() End Sub Private Sub CargaEntradasSalidas() - Dim ObjPVenta As New ClsPuntoVenta + Dim ObjPVenta As New ClsVentas 'Salida If ObjPVenta.GetVta_MovimientosCajas(CveCorte, 0) Then