diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb
index ed556b6a1..22b3119c2 100644
--- a/Contabilidad2/RepEstadoActividades.aspx.vb
+++ b/Contabilidad2/RepEstadoActividades.aspx.vb
@@ -116,6 +116,10 @@ Partial Class AC_RepEstadoActividades
             DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
         End If
         DdlPeriodo.SelectedValue = Now.Month.ToString
+
+        DdlSubproyecto.datasource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubproyecto.databind
+
     End Sub
 
     Private Sub CargaDatos()