eFacturas vingulación de complemento, al vincular manualmente vincular todos los documentos, si no encunetra la compra y prepólzia detalle vincular al primer resuiltado que coincida

Compras/eFacturas.aspx.vb

@@ -1686,6 +1686,8 @@ Partial Class Compras_eFacturas
 
         End Using
     End Sub
+
+
     Public Shared Function CargaEmisordeXML(ArchivoXML As String, CampoXML As String, RFCEmpresaActual As String) As String
         Dim Valor As [String] = Nothing
 
@@ -3142,15 +3144,6 @@ Partial Class Compras_eFacturas
 
             If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
 
-                'GvVincularPago.DataSource = ObjCompras.DtResultados
-
-                'If ObjCompras.DtResultados.Rows.Count > 0 Then
-                '    SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
-                'End If
-
-
-                'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
-
                 For Each Drow As DataRow In ObjCompras.DtResultados.Rows
                     For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 
@@ -3171,16 +3164,26 @@ Partial Class Compras_eFacturas
 
                 For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
                     If GvRow.RowType = DataControlRowType.DataRow Then
+
                         If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
                             ErrorVinculacion = False
-                            Exit For
+
                         Else
-                            ErrorVinculacion = True
+
+                            If ObjCompras.DtResultados.Rows.Count > 0 Then
+                                GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
+                                GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
+                            Else
+                                ErrorVinculacion = True
+                                Exit For
+                            End If
 
                         End If
                     End If
+
                 Next
 
+
             Else
                 ErrorVinculacion = True
             End If