Sub Activity_Create(FirstTime As Boolean)
Dim job1 As HttpJob
Dim requestSoapXML As String
requestSoapXML = "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:urn='urn:FBC_WEBSERVICE'>" & _
"<soapenv:Header/><soapenv:Body>" & _
"<urn:Schouw_Get_ProjectenV2><gPara>BAM123;</gPara></urn:Schouw_Get_ProjectenV2>" & _
"</soapenv:Body></soapenv:Envelope>"
job1.Initialize("JOB1", Me)
job1.PostString ("HTTP://XXXXXXXXXXX/FBC_WEBSERVICE_WEB/awws/FBC_WEBSERVICE.awws", requestSoapXML)
end sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
Log(Job.GetString)
Job.Release
End Sub