public Sub GetData() As ResumableSub
Dim J As HttpJob
Dim RequestSoapXML As String
J.Initialize(J.JobName ,Me)
RequestSoapXML =$"<?xml version='1.0' encoding='utf-8'?>
<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>
<soap:Body>
<GetProveedores xmlns='http://tempuri.org/' />
</soap:Body>
</soap:Envelope>"$
j.PostString("http://www.loquesea.com/proveedor.asmx",RequestSoapXML)
j.GetRequest.SetContentType ("text/xml; charset=utf-8")
j.GetRequest.SetHeader("Content-Type", "text/xml; charset=utf-8")
wait for (j) JodDone(j As HttpJob) 'ERROR, JOBDONE <> JODDONE
'
If j.Success Then
Log(j.GetString)
'
Else
Log("Error:" & job.ErrorMessage)
'
End If
J.Release
Return True
End Sub
Sub JobDone2 (job As HttpJob)
Log(">JobDone EN FRM:" & job.JobName & ";FIN")
If job.Success = True Then
'Msgbox(job.GetString,"")
Log( job.GetString)
End If
End Sub