From d4722876201e0e321d301ec8d72f3267689dd7f3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Feb 2025 17:06:11 -0700
Subject: [PATCH] -- Vya. ver remisiones de todos los contratos

---
 Ventas/Ventas.aspx.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5a370980a..fa828e2b7 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -34643,7 +34643,11 @@ Partial Class Ventas
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetRemisionesSinFacturar(TxtFechaIRem.Text, TxtFechaFRem.Text, CveCliente, CveContrato, 1, CveMoneda) Then
             If CveContrato = -1 Then
-                DTRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0")
+                If UsuarioActual.CveEmpresa = 188 Then
+                    DTRemisiones = ObjVentas.DtResultados
+                Else
+                    DTRemisiones = ObjVentas.DtResultados.FiltraParametros("CveContrato = 0")
+                End If
             Else
                 DTRemisiones = ObjVentas.DtResultados.FiltraParametros($"CveContrato = {CveContrato}")
             End If