diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5dae7aa3a..46bf006b6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3436,8 +3436,8 @@ Partial Class Ventas
 
                 Dim ObjUsados As New ClsVentas
                 Dim DtUsados As DataTable = Nothing
-                If ObjUsados.GetVentasUsados(CveVenta, DdlSubProyectoDatos.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
-                    DtUsados = ObjVentas.DtResultados
+                If ObjUsados.GetVentasUsados(CveVenta, DdlSubProyectoDatos.SelectedValue.ToEntero(), DbRowVenta("Fecha").ToString.ToDateTime, UsuarioActual.CveEmpresa) Then
+                    DtUsados = ObjUsados.DtResultados
                 End If
                 ObjUsados.Dispose()