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)