-- filtro de aplicaparaventa de la E140

2020-10-16 12:52:52 -07:00
parent 5b230881bd
commit 2dad7facdd
1 changed files with 4 additions and 0 deletions
--- 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