diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 5ba4bc54a..36bf075da 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -3297,13 +3297,14 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function GetCortesDetalleVentasResumen(CveCorte As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetCortesDetalleVentasResumen(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_CortesDetalleVentasResumenGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index 3109668a4..7011c1ad2 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -151,11 +151,11 @@ Partial Class Bancos_RepCortes
         Nombre = gvr.DataKey("Nombre").ToString
         Dim Vent As New ClsPuntoVenta
         Dim Vn As New ClsVentas
-        If Vn.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then
+        If Vn.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GvP.DataSource = Vn.DtResultados
             DtCortesVentasResumen = Vn.DtResultados
         End If
-        If Vent.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then
+        If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GvD.DataSource = Vent.DtResultados
             DtCortesVentas = Vent.DtResultados
             divDetalle.Visible = True