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