Spanish [Solucionado] Problemas con HttpJob en bucles

JMMF

Member
Licensed User
Hola a todos.
Mi problema, es cuando intento pasar un job dentro de un for.
No sale de el bucle para recibir el evento JobDone.
B4X:
Sub EnviarMarcados_Click
    Dim CuentaMarcados As Int = 0
    For i=0 To A.Size -1
        If Check(i).Checked Then
            CuentaMarcados = CuentaMarcados+1
        End If
    Next
    If CuentaMarcados>0 Then
        Dim Resultado As Int = Msgbox2("¿Esta seguro de enviar las " & CuentaMarcados & " aves marcadas?","","Si","","No",Jaula.Imagen(3))
        If Resultado = DialogResponse.POSITIVE Then
            For i=0 To A.Size -1
                If Check(i).Checked Then
                    m = A.Get(i)
                    Jaula.hc.Initialize("Modificar",Me)
                      ProgressDialogShow("Guardando baja " & m.Get("dbAve") & " a Lohman")'Abre la barra de progreso
                    Dim MiSQL As String ="UPDATE dbAves" & Main.N_NAVE & " SET dbLohmann = 1 WHERE dbJaulaAve ='" & m.Get("dbJaulaAve") & "'"
                    Jaula.hc.Download2("http://dbaja.esy.es/BajaPHP.php", Array As String("Operacion",Jaula.hc.JobName, "IdOperario", Jaula.Operador, "MiSQL", MiSQL))
                End If
            Next
            PnlSinEnviar.RemoveView
            SV1.RemoveView
            Buscar_SinEnviar                 
        End If
    End If
End Sub

Sub JobDone (Job As HttpJob)
 
Last edited:

JMMF

Member
Licensed User
Claro que si.
Gracias IdasI4A
La cuestión es mi versión v6, que no admitía Wait For.
Ya la he actualizado v7.3, y todo perfecto.
 
Top