diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 767cf5d47..8558b7971 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -216,6 +216,10 @@
                                 <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 8a8c02e01..2916dec67 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -139,43 +139,60 @@ 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
 
-        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
-                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
+        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
             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) 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
         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