From 2dad7facdd184ccb7ddc0a1f0f191c64c7111bcc Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 16 Oct 2020 12:52:52 -0700
Subject: [PATCH] -- filtro de aplicaparaventa de la E140

---
 Ashx/SIGWeb.ashx | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index 88ad21772..7b397f53f 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -661,6 +661,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153) Then
                 UsaGlobal = False
 
+                If CveEmpresa = 140 And Pagina.Contiene("ventas/ventas") Then
+                    AplicaParaVenta = 1
+                End If
+
                 Dim objInv As New ClsInventarios
                 If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa) Then