Agrupacion por subproyecto

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>

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -139,10 +139,32 @@ 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 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
             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
@@ -158,24 +180,19 @@ Partial Class Inventarios_KardexAlmacen
             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
-        Else
-            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