diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index 146607353..f1be4bfd8 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -6644,6 +6644,7 @@ Public Class ClsContPAQi
         StrSQL.Append("                                CodigoSup5 VARCHAR(100), Sup5 VARCHAR(200), CodigoSup6 VARCHAR(100), Sup6 VARCHAR(200),")
         StrSQL.Append("                                CodigoSup7 VARCHAR(100), Sup7 VARCHAR(200), CodigoSup8 VARCHAR(100), Sup8 VARCHAR(100),")
         StrSQL.Append("                                SaldoActual FLOAT);")
+        StrSQL.Append("            CREATE NONClUSTERED INDEX IDX ON #TEMP (ID); ")
         StrSQL.Append("            ")
         'StrSQL.AppendLine("            -- RECOLECCION DE DATOS RECORRIENDO TODO EL ARBOL")
         StrSQL.Append("            WITH Rec(IdCtaSup, IdSubCtade, CtaSup, SubCtade, Level, Orden) AS  ")
@@ -6782,6 +6783,8 @@ Public Class ClsContPAQi
 
         SqlDataAdapter(StrSQL.ToString, CommandType.Text)
 
+        SqlAdapter.SelectCommand.CommandTimeout = 0
+
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index be531b95e..143b93038 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -3037,7 +3037,7 @@ Partial Class Compras_eFacturas
 
 
             ObjCompraFolios.Dispose()
-            DTDocumentosRelacionados = DTDocumentosRelacionados.FiltraParametros("CveIE > 0 AND  LEN(IdDocumento) > 0")
+            DTDocumentosRelacionados = DTDocumentosRelacionados.FiltraParametros(" LEN(IdDocumento) > 0 ")
             GVPDocumentosRelacionadosPagos.DataSource = DTDocumentosRelacionados
             GVPDocumentosRelacionadosPagos.DataBind()