--FIX, servicio a domicilio

2025-02-28 19:12:12 -07:00
parent cc19f447d6
commit 2ebaa45aa7
1 changed files with 1 additions and 1 deletions
--- 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