diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb
index e524ce6bb..bd388c409 100644
--- a/App_Code/ClsPuntoVenta.vb
+++ b/App_Code/ClsPuntoVenta.vb
@@ -222,13 +222,14 @@ Public Class ClsPuntoVenta
         Return Retorno
     End Function
 
-    Public Function GetCortesDetalleVentas(CveCorte As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetCortesDetalleVentas(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_CortesDetalleVentasGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With