diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c461ada86..45dfd0dc6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6072,7 +6072,7 @@ Partial Class Ventas
 
                                 Dim ObjUsados As New ClsVentas
 
-                                If ObjUsados.GetVentasUsados(CveVenta, -1, DbRowVenta("Fecha").ToString().ToDateTime, UsuarioActual.CveEmpresa) Then
+                                If ObjUsados.GetVentasUsados(CveVenta, -1, DbRowVenta("Fecha").ToString().ToDateTime, UsuarioActual.CveEmpresa, ServicioDomicilio:=CBool(DbRowVenta("ServicioDomicilio"))) Then
                                     DtUsadosPendientes = ObjUsados.DtResultados.Copy()
                                 End If