Sub ChangeQty
ProgressDialogShow("ATTENDI")
Dim cmdList As List
cmdList.Initialize
Dim cmd As DBCommand = Utils.CreateCommand("set_gestione", Array(Main.act_variant))
cmdList.Add(cmd)
Dim cmd As DBCommand = Utils.CreateCommand("set_gestione_linee", Array(Main.act_variant, vendita.Text))
cmdList.Add(cmd)
Dim req As DBRequestManager = Utils.CreateRequest
Wait For(req.ExecuteBatch(cmdList, Null)) JobDone(j As HttpJob)
If j.Success Then
Log("Inserted successfully!")
ProgressDialogHide
End If
j.Release
End Sub