diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb
index f54ca1f99..2c528d53d 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -219,17 +219,9 @@ Partial Class AC2_RepAnexoCatalogo
             TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
         End If
         'Dim CveSubProyecto As String
-        If Request("CveSubProyecto") IsNot Nothing Then
-            CveSubProyecto = Request("CveSubProyecto").ToString
-        Else
-            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
-        End If
 
-        If Request("CveProyecto") IsNot Nothing Then
-            CveProyecto = Request("CveProyecto").ToString
-        Else
-            CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToString
-        End If
+        CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToString
 
         If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveProyecto.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte) Then