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.
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: