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

TareasProgramadas/Tareas119.ashx

@@ -29,7 +29,27 @@ public class TareasJam : IHttpHandler
                 retorno  = PruebaConexionFTP("ftp://us2.hostedftp.com/", "agrojam", "A12345678");
                 break;
             case "EjecutaThalamus":
-                retorno =EjecutaThalamus(CveEmpresa);
+
+                try
+                {
+                    if (context.Application["EjecutaThalamusRuning"].ToEntero() == 1)
+                    {
+                        retorno = true;
+                    }
+                    else
+                    {
+                        context.Application["EjecutaThalamusRuning"] = 1;
+                        System.Threading.Thread.Sleep(500);
+                        retorno = EjecutaThalamus(CveEmpresa, context);
+                        context.Application["EjecutaThalamusRuning"] = 0;
+                    }
+
+                }
+                catch {
+                    retorno = false;
+                    context.Application["EjecutaThalamusRuning"] = 0;
+                }
+
                 break;
             default:
                 break;
@@ -46,10 +66,12 @@ public class TareasJam : IHttpHandler
         context.Response.End();
 
     }
-    private bool EjecutaThalamus(int CveEmpresa)
+    private bool EjecutaThalamus(int CveEmpresa, HttpContext context)
     {
 
 
+
+
         this.GuardaLog("EjecutaThalamus: Inicio. ");
 
         bool Respuesta = false;