diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 8558b7971..f043c2844 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -141,12 +141,19 @@
                                 </div>
                             </div>
                             <label class="col-md-1 truncate">Producto:</label>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me" Width="100%" CssStyle="width: 100%;">
                                     <asp:ListItem Text="Con existencia" Value="2" />
                                     <asp:ListItem Text="Sin existencia" Value="3" />
                                 </asp:DropDownList>
                             </div>
+                            <label class="col-md-1 truncate">Ver por:</label>
+                            <div class="col-md-1">
+                                <asp:DropDownList ID="Ddlgrupo" runat="server" CssClass="select2me" Width="100%" CssStyle="width: 100%;">
+                                    <asp:ListItem Text="Almacenes" Value="1" />
+                                    <asp:ListItem Text="Sucursales" Value="2" />
+                                </asp:DropDownList>
+                            </div>
                         </div>
                     </div>
                 </div>
@@ -216,10 +223,6 @@
                                 <asp:ListItem Text="No" Value="0" Selected="True"  />
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1"><span>Ver por SubProyecto:</span></div>
-                        <div class="col-md-1">
-                            <asp:CheckBox runat="server" ID="chkAgruparSubProyecto"/>
-                        </div>
                     </asp:Panel>
                 </div>
             </div>
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 2916dec67..bae47a480 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -139,60 +139,46 @@ Partial Class Inventarios_KardexAlmacen
         Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
         Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
-        Dim dtMovs As DataTable = Nothing
+        Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
 
-        If chkAgruparSubProyecto.Checked Then
-            If ObjMovimientos.GetKardexAlmacenHorizontalAgrupado(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then
-                If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
-                    dt = ObjMovimientos.DtResultados
-                End If
-            Else
-                ObjMovimientos.Dispose()
-                Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
-                Exit Sub
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(),
+                                                     DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue,
+                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO) Then
+            If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
+                dt = ObjMovimientos.DtResultados
+                Dim ListaBorrar As New List(Of DataColumn)
+                For index = 3 To dt.Columns.Count - 1
+                    Dim TotColumna As Double = 0
+                    For Each Dr As DataRow In dt.Rows
+                        TotColumna += Dr.Item(index).ToString.ToDouble
+                    Next
+                    'If Not TotColumna > 0 Then
+                    '    ListaBorrar.Add(dt.Columns(index))
+                    'End If
+                Next
+                For Each item As DataColumn In ListaBorrar
+                    dt.Columns().Remove(item)
+                Next
+                dt.AcceptChanges()
+                GvDatos.DataSource = dt
+            Else
+                Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
+                GvDatos.Columns.Clear()
+                dt = Nothing
+                Exit Sub
             End If
         Else
-            If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes) Then
-                If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
-                    dt = ObjMovimientos.DtResultados
-                End If
-            Else
-                ObjMovimientos.Dispose()
-                Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
-                Exit Sub
-            End If
-        End If
-
-
-        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-            Dim ListaBorrar As New List(Of DataColumn)
-            For index = 3 To dt.Columns.Count - 1
-                Dim TotColumna As Double = 0
-                For Each Dr As DataRow In dt.Rows
-                    TotColumna += Dr.Item(index).ToString.ToDouble
-                Next
-                'If Not TotColumna > 0 Then
-                '    ListaBorrar.Add(dt.Columns(index))
-                'End If
-            Next
-            For Each item As DataColumn In ListaBorrar
-                dt.Columns().Remove(item)
-            Next
-            dt.AcceptChanges()
-            GvDatos.DataSource = dt
-            GvDatos.DataBind()
-        Else
-            Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
-            GvDatos.Columns.Clear()
-            dt = Nothing
-            Exit Sub
+            ObjMovimientos.Dispose()
+            Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
+            Exit Sub
         End If
 
 
+        GvDatos.DataBind()
+
         For index = 4 To GvDatos.Rows(0).Cells.Count - 1
             GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|")(0)
         Next
-        ObjMovimientos.Dispose()
     End Sub
 
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound