diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index accc6316b..c38c36938 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4671,9 +4671,9 @@ Public Class ClsPaginas
             PaginaDict.Add("/PortalProveedor/PortalProveedor.aspx".ToUpper(), 1201)
 
             PaginaDict.Add("/Edoc/CatDocumentos.aspx".ToUpper(), 1205)
-            PaginaDict.Add("/Edoc/CatTipoContratos.aspx".ToUpper(), -1)
-            PaginaDict.Add("/Edoc/CatDocumentosContratos.aspx".ToUpper(), -1)
-            PaginaDict.Add("/Edoc/Contratos.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Edoc/CatTipoContratos.aspx".ToUpper(), 1207)
+            PaginaDict.Add("/Edoc/CatDocumentosContratos.aspx".ToUpper(), 1208)
+            PaginaDict.Add("/Edoc/Contratos.aspx".ToUpper(), 1209)
 
             'Portal
             PaginaDict.Add("/AIMMGM/ConsultaCliente.aspx".ToUpper(), -1)
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index deaf7c5ac..596819afc 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -3914,14 +3914,14 @@ Public Class ClsVentas
 
 #End Region
 
-    Public Function RepIngresos(CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date, TipoDocto As String, CveSubProyecto As Integer) As Boolean
+    Public Function RepIngresos(CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date, TipoDocto As String, Cves_Subprotectos As String) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Ventas_RepIngresos", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@TipoDoc", SqlDbType.VarChar).Value = TipoDocto
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Cves_Subprotectos", SqlDbType.VarChar).Value = Cves_Subprotectos
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
diff --git a/Ventas/RepIngresos.aspx.vb b/Ventas/RepIngresos.aspx.vb
index 295e5b6b9..0850d272c 100644
--- a/Ventas/RepIngresos.aspx.vb
+++ b/Ventas/RepIngresos.aspx.vb
@@ -84,7 +84,11 @@ Partial Class Ventas_RepIngresos
 
     Protected Sub CargaRepIngresos(Optional tipoReporte As Integer = -1)
         Dim ObjRepI As New ClsVentas()
-        ObjRepI.RepIngresos(UsuarioActual.CveEmpresa, If(RsFechaI = "-1", MinFecha, RsFechaI.ToDate), If(RsFechaF = "-1", MaxFecha, RsFechaF.ToDate), TipoDoc, DdlSubProyecto.SelectedValue.ToEntero)
+        Dim Cves_Subprotectos As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
+
+
+
+        ObjRepI.RepIngresos(UsuarioActual.CveEmpresa, If(RsFechaI = "-1", MinFecha, RsFechaI.ToDate), If(RsFechaF = "-1", MaxFecha, RsFechaF.ToDate), TipoDoc, Cves_Subprotectos)
         GVRepIngresos.DataSource = ObjRepI.DtResultados
         DtDatos = ObjRepI.DtResultados
         ObjRepI.Dispose()