diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx
index 9399901c2..b840b5165 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx
@@ -80,17 +80,17 @@
                         ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False"
                         ShowFooter="False" DataKeyNames="CvePSCargo,Codigo,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual">
                         <Columns>
-                            <asp:BoundField DataField="Codigo" HeaderText="Grupo" ReadOnly="true" />
-                            <asp:BoundField DataField="Inicial" HeaderText="Inicial" ReadOnly="true" />
-                            <asp:BoundField DataField="E_Almacen" HeaderText="E.Alm" ReadOnly="true" />
-                            <asp:BoundField DataField="E_Pub" HeaderText="E.Alm" ReadOnly="true" />
-                            <asp:BoundField DataField="E_Traspaso" HeaderText="E.Tras" ReadOnly="true" />
-                            <asp:BoundField DataField="E_Compra" HeaderText="E.Compra" ReadOnly="true" />
-                            <asp:BoundField DataField="E_Otros" HeaderText="Otros" ReadOnly="true" />
-                            <asp:BoundField DataField="S_Almacen" HeaderText="E.Alm" ReadOnly="true" />
-                            <asp:BoundField DataField="S_Traspaso" HeaderText="S.Tras" ReadOnly="true" />
-                            <asp:BoundField DataField="S_Otros" HeaderText="Otros" ReadOnly="true" />
-                            <asp:BoundField DataField="Exist_Actual" HeaderText="Exist. Actual" ReadOnly="true" />
+                            <asp:BoundField DataField="Codigo" HeaderText="Grupo" ReadOnly="true" ></asp:BoundField>
+                            <asp:BoundField DataField="Inicial" HeaderText="Inicial" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
+                            <asp:BoundField DataField="E_Almacen" HeaderText="E.Alm" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
+                            <asp:BoundField DataField="E_Pub" HeaderText="E.Alm" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
+                            <asp:BoundField DataField="E_Traspaso" HeaderText="E.Tras" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
+                            <asp:BoundField DataField="E_Compra" HeaderText="E.Compra" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
+                            <asp:BoundField DataField="E_Otros" HeaderText="Otros" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
+                            <asp:BoundField DataField="S_Almacen" HeaderText="E.Alm" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
+                            <asp:BoundField DataField="S_Traspaso" HeaderText="S.Tras" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
+                            <asp:BoundField DataField="S_Otros" HeaderText="Otros" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
+                            <asp:BoundField DataField="Exist_Actual" HeaderText="Exist. Actual" ReadOnly="true" DataFormatString="{0:N0}"><ItemStyle HorizontalAlign="Center"></ItemStyle></asp:BoundField>
                         </Columns>
                     </asp:GridView>
                 </ContentTemplate>
diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
index 8e8489b85..1aa15ed02 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
@@ -53,14 +53,15 @@ Partial Class Acumuladores_RepEntradasUsados
 
         Dim params As New List(Of ReportParameter)
 
-        params.Add(New ReportParameter("Direccion", "asdfasdfasdf"))
+        params.Add(New ReportParameter("Direccion", "dirección"))
         params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
         params.Add(New ReportParameter("FechaInicial", txtFechaI.Text))
         params.Add(New ReportParameter("FechaFinal", txtFechaF.Text))
+        params.Add(New ReportParameter("Sucursal", "Sucursal"))
 
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados}
 
-        ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados2.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "prueba", "PDF")
+        ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "Reporte entrada usados", "PDF")
 
     End Sub
 End Class
diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb
index 48b57e6ab..6a0112680 100644
--- a/App_Code/ClsPuntoVenta.vb
+++ b/App_Code/ClsPuntoVenta.vb
@@ -243,13 +243,14 @@ Public Class ClsPuntoVenta
         Return Retorno
     End Function
 
-    Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean
+    Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ReporteCortesGet")
 
         SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         SqlAdapter.SelectCommand.Parameters.Add("@FechaInicio", SqlDbType.Date).Value = FechaI
         SqlAdapter.SelectCommand.Parameters.Add("@FechaFin", SqlDbType.Date).Value = FechaF
+        SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
         Try
             SqlAdapter.Fill(Data)
diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx
index 7794916f9..cb73fe891 100644
--- a/Bancos/RepCortes.aspx
+++ b/Bancos/RepCortes.aspx
@@ -112,6 +112,11 @@
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
                         </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList runat="server" ID="DdlSubProyectos" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm">
+
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
                 <%--                <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index e04b47980..937679e51 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -61,6 +61,9 @@ Partial Class Bancos_RepCortes
             txtFechaVI.Text = Now.ToShortDateString
             txtFechaVF.Text = Now.ToShortDateString
             Me.Form.DefaultButton = BtnConsultar.UniqueID
+            DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+            DdlSubProyectos.DataBind()
+            DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
     End Sub
 
@@ -70,7 +73,7 @@ Partial Class Bancos_RepCortes
         Dim ObjPuntoVenta As New ClsPuntoVenta
         Dim FechaI As Date = If(txtFechaVI.Text <> "", txtFechaVI.Text.ToDate, MinFecha)
         Dim FechaF As Date = If(txtFechaVF.Text <> "", txtFechaVF.Text.ToDate, MaxFecha)
-        If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF) Then
+        If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjPuntoVenta.DtResultados
             GvDatos.DataBind()
             UPDatos.Update()