diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index dea3762d5..f6675b947 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -550,11 +550,9 @@
                         </table>
 
                         <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
-
-
-
+                        
                         <asp:GridView ID="GVPDocumentosRelacionadosPagos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn"
-                            DataKeyNames="CveFactura,CveCompra,CveIE"
+                            DataKeyNames="CveFactura,CveCompra,CveIE,Fecha,FechaPago"
                             data-sort="true" Width="100%" EmptyDataText="No se encontró registros con la información del complemento de pago"
                             ShowHeaderWhenEmpty="true" AutoGenerateColumns="False">
                             <Columns>
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index f68fe8254..9b8cfecce 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2838,24 +2838,21 @@ Partial Class Compras_eFacturas
             BtnVincularPago.Visible = False
         End If
 
+        For Each GvRowF As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 
-
-
-        For Each drow As DataRow In ObjCompras.DtResultados.FiltraParametros("CveIE > 0 AND FechaDocumento IS NOT NULL", "", {"FechaDocumento"}).Rows
-
-            Dim FechaDocumento As Date = drow("FechaDocumento").ToString.ToDate
+            Dim FechaDocumento As Date = GvRowF.DataKey("FechaPago").ToString.ToDate
+            Dim FechaDoRecibo As Date = GvRowF.DataKey("Fecha").ToString.ToDate
 
             Dim FT1 As Date = FechaDocumento.AddDays(-6)
             Dim FT2 As Date = FechaDocumento.AddDays(7)
 
-            If Not (FechaPago >= FT1 And FechaPago < FT2) Then
+            If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then
 
                 BtnVincularPago.Visible = False
                 MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. "
 
                 Exit For
             End If
-
         Next
 
         If MSGComplemento.Trim.Length > 0 Then