Web services API call to join a user to a cost centre

Question

I can't find the call for this, does anyone know it please?
thanks in advance.
J

Answer 1

This may be more complicated than you were hoping for, but here is how it can be done. The parts that write the xml attributes to the results log can be used to compare to your database or databank. I did not include code to do that here. You will need to reference the rswWait object in tools/references. Can't use win api for sleep because it will hang the process.
Option Explicit
Dim hDoc As MSXML.XMLHTTPRequest
Private Sub RSWVBAPage_afterPlay()
Set hDoc = New XMLHTTPRequest
hDoc.open "get", "http://localhost/public/XMLStuff/blouisSample.xml", True
hDoc.send
checkState
End Sub
Private sub checkState()
Dim xDoc As New DOMDocument
Dim resText As String
Dim ndList As IXMLDOMNode
Dim attr As IXMLDOMAttribute
Dim hangOn As New RSWWait.clsSleep 'cannot use winapi call here
If hDoc.ReadyState <> 4 Then
  hangOn.wait (500) 'wait a half second
   checkState
End If
resText = hDoc.responseText
xDoc.loadXML resText
For Each ndList In xDoc.getElementsByTagName("product")
  For Each attr In ndList.Attributes
    RSWApp.WriteToLog attr.Text
  Next
Next
End Function
I attached the script which will work against the xml you posted with some minor changes to the directory path in the vba.