Sub button_ok_Click
Dim job1 As HttpJob
Dim job2 As HttpJob
Dim job1link As String
Dim job1dir As String
Dim job1file As String
Dim job2link As String
Dim job2dir As String
Dim job2file As String
job1.Initialize("Job1", Me)
job2.Initialize("Job2", Me)
variabili_globali.Descrizione = Descrizione_txt.Text
funzioni.SaveCSVFile(variabili_globali.CSVDirectory,variabili_globali.ImageName & ".csv",True)
'UPLOAD
ToastMessageShow("Caricamento immagine sul server del comune", True)
job1link = "http://.................../sign/seam/resource/rest/foto/upload"
job1dir = variabili_globali.PicturesDirectory
job1file = variabili_globali.ImageName
job1.PostFile(job1link,job1dir,job1file)
ToastMessageShow("Caricamento csv sul server del comune", True)
'link http://.................../sign/seam/resource/rest/foto/upload
'directory variabili_globali.CSVDirectory
'Filename variabili_globali.ImageName & ".csv"
job2link = "http://web.comune.calenzano.fi.it/sign/seam/resource/rest/foto/upload"
job2dir = variabili_globali.CSVDirectory
job2file = variabili_globali.ImageName & ".csv"
job2.PostFile(job2link,job2dir,job2file)
'Activity.LoadLayout("camera")
Descrizione_txt.Visible = False
button_ok.Visible = False
Descrizione_lbl.Visible = False
Panel_Gray.Visible = False
End Sub