diff --git a/Finanzas/RepEstadoResultados.aspx.vb b/Finanzas/RepEstadoResultados.aspx.vb
index 04957a446..0081aa14c 100644
--- a/Finanzas/RepEstadoResultados.aspx.vb
+++ b/Finanzas/RepEstadoResultados.aspx.vb
@@ -173,10 +173,10 @@ Partial Class Contabilidad2_RepEstadoResultados
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing