From 7b3037d87566a2777607d63063dc0635230c8458 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 13 Apr 2022 10:42:06 -0700
Subject: [PATCH] =?UTF-8?q?--=20SE=20AGREG=C3=93=20E=20LFILTRO=20POR=20CEN?=
 =?UTF-8?q?TRO=20DE=20COSTO?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsVentas.vb    | 3 ++-
 Bancos/RepCortes.aspx.vb | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

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