From 5e732ea4e7d017dfb1384d0dfe80cb500619efb4 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Thu, 2 Jan 2020 12:45:40 -0700
Subject: [PATCH]

---
 Ashx/SIGWeb.ashx      | 13 ++++++++-----
 Ventas/Ventas.aspx    |  4 ++--
 Ventas/Ventas.aspx.vb |  6 +++++-
 3 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index 0dc50dcd3..2126273d5 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -319,13 +319,16 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                 Dim objInv As New ClsInventarios
                 If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa) Then
 
-                    ' limpio los almacenes donde no tiene ningun producto existencia
-                    For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1
+                    ' limpio los almacenes donde no tiene ningun producto existencia
+                    Dim i As Integer = 0
+                    While i < objInv.DtResultados.Columns.Count
 
                         If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
-                            objInv.DtResultados.Columns.RemoveAt(i)
-                        End If
-                    Next
+                            objInv.DtResultados.Columns.RemoveAt(i)
+                        Else
+                            i = i + 1
+                        End If
+                    End While
 
                     DtPSRetorno = objInv.DtResultados
 
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index cc817e97b..dacdda4f2 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -7284,10 +7284,10 @@
             $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable").scrollTop(stop);
         }
         function CargaExistenciaAlmacenes(data, params) {
-            var div = $('<div class="select2anothertable"></div>');
+            var div = $('<div class="select2anothertable" style=" max-width: 950px; overflow-x: auto;"></div>');
             $('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove();
             $('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div);
-            var table = $('<table id="TExistencias"></table>'); div.append(table);
+            var table = $('<table id="TExistencias" ></table>'); div.append(table);
             var tbody = $('<tbody></tbody>'); table.append(tbody);
             $(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion);
             $(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion);
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 389ef21b7..036c80da9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5406,7 +5406,11 @@ Partial Class Ventas
             Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
             Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         Else
-            Objeto.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
+            Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue
+            If UsuarioActual.CveEmpresa = 141 Then
+                cvesubproyecto = "-1"
+            End If
+            Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto)
             Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString)
             Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
             Objeto.ddlWS.Attributes.Add("data-Estatus", "1")