From 2ebaa45aa7d32b80941f2569173bc9789a5389bf Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 28 Feb 2025 19:12:12 -0700
Subject: [PATCH] --FIX, servicio a domicilio

---
 Ventas/Ventas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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