-ambios validacion de fechas entre pago XML y pago IE

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