Sub meterlineas
'bucle que inserta las lineas del pedido
Dim temporal,temporal3 As String
Dim articulos As Int=0
Dim Job420 As HttpJob
For i=1 To TableView1.GetItems(0).Size
Dim tc As TableCell = TableView1.GetItems(0).Get(i-1) 'Get the second item in the first section
'
If cantidades.Get(i)>0 Then
articulos=articulos+cantidades.Get(i)
temporal=tc.Text.ToString
temporal3=NumberFormat((tc.DetailText.ToString*cantidades.Get(i)),0,2)
cadenapedidoxx=temporal&" "&temporal3&"€ "&cantidades.Get(i)&" x "& _
tc.DetailText.ToString&"€"
Job420.Initialize("Job420"&i, Me)
Job420.Download2("http://www.XXXXXXXXX.XXX.php",Array As String("pedido",pedido,"linea",cadenapedidoxx))
End If
Next
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Select Job.JobName
Case "Job4"
If Job.GetString.Contains("Registro insertado")=True Then
'metemos las lineas
meterlineas
.... rest of code (job.release,etc...)
End sub