Sub sendBooking2Api(record As Booking)
Dim job As HttpJob
job.Initialize("",Me)
job.PostString("https://" & Globals.Api_MainAddress2 & "/bookings/store",record.GetApiString())
LogColor("https://" & Globals.Api_MainAddress2 & "/bookings/store" & "?" & record.GetApiString(),Colors.Magenta)
wait for (job) JobDone (job As HttpJob)
If job.Success Then
Log(job.GetString)
record.IsSent2Api()
Else
End If
End Sub