Dim j As HttpJob
j.Initialize("", Me)
j.Download("http://xxx.yyy.com/AWWebAPI/api/aw/awa/GetAWAReservation?Hotel=H06&Localizador=42652447")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim jp As JSONParser : jp.Initialize(j.GetString)
Map = jp.NextObject
Log(Map)
Dim jGen As JSONGenerator : jGen.Initialize(Map)
Dim root As Map
parser.Initialize(j.GetString)
root = parser.NextObject
root.Put("Hotel", "H06")
Dim j1 As HttpJob
j1.Initialize("", Me)
j1.PostMultipart("http://xxx.yyy.com/AWWebAPI/api/aw/awa/PostAWAReservationGuests",root,Null)
Wait For (j1) JobDone(j1 As HttpJob)