diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index e9407e7b2..b934d58fc 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2290,7 +2290,7 @@ Partial Class PV
         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