PowerBuilder
PowerBuilder
Peoplevox SaveData
See more Peoplevox Examples
Demonstrates how to call the Peoplevox SaveData SOAP method. This example adds a new carrier (DHL) to the system.Chilkat PowerBuilder Downloads
integer li_rc
integer li_Success
oleobject loo_SbSoapXml
oleobject loo_SbCsvData
integer li_NumReplacements
oleobject loo_Req
oleobject loo_Http
oleobject loo_Resp
oleobject loo_XmlResponse
string ls_Reference
string ls_Status
li_Success = 0
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// Sends a POST that looks like this:
// POST /PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx HTTP/1.1
// Content-Type: text/xml;charset=UTF-8
// SOAPAction: http://www.peoplevox.net/SaveData
// Content-Length: (automatically computed and added by Chilkat)
// Host: qac.peoplevox.net
//
// <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:peop="http://www.peoplevox.net/">
// <soap:Header>
// <peop:UserSessionCredentials>
// <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>
// <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>
// <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>
// </peop:UserSessionCredentials>
// </soap:Header>
// <soap:Body>
// <peop:SaveData>
// <peop:saveRequest>
// <peop:TemplateName>Carriers</peop:TemplateName>
// <peop:CsvData>CSV_DATA</peop:CsvData>
// <peop:Action>0</peop:Action>
// </peop:saveRequest>
// </peop:SaveData>
// </soap:Body>
// </soap:Envelope>
//
// Notice that a UserId is needed here. This is different than the username required for Peoplevox authentication.
// The UserId for the admin account is 1.
//
loo_SbSoapXml = create oleobject
li_rc = loo_SbSoapXml.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
destroy loo_SbSoapXml
MessageBox("Error","Connecting to COM object failed")
return
end if
loo_SbSoapXml.Append("<?xml version=~"1.0~" encoding=~"utf-8~"?>~r~n")
loo_SbSoapXml.Append("<soap:Envelope xmlns:soap=~"http://www.w3.org/2003/05/soap-envelope~" xmlns:peop=~"http://www.peoplevox.net/~">~r~n")
loo_SbSoapXml.Append(" <soap:Header>~r~n")
loo_SbSoapXml.Append(" <peop:UserSessionCredentials>~r~n")
loo_SbSoapXml.Append(" <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>~r~n")
loo_SbSoapXml.Append(" <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>~r~n")
loo_SbSoapXml.Append(" <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>~r~n")
loo_SbSoapXml.Append(" </peop:UserSessionCredentials>~r~n")
loo_SbSoapXml.Append(" </soap:Header>~r~n")
loo_SbSoapXml.Append(" <soap:Body>~r~n")
loo_SbSoapXml.Append(" <peop:SaveData>~r~n")
loo_SbSoapXml.Append(" <peop:saveRequest>~r~n")
loo_SbSoapXml.Append(" <peop:TemplateName>Carriers</peop:TemplateName>~r~n")
loo_SbSoapXml.Append(" <peop:CsvData>CSV_DATA</peop:CsvData>~r~n")
loo_SbSoapXml.Append(" <peop:Action>0</peop:Action>~r~n")
loo_SbSoapXml.Append(" </peop:saveRequest>~r~n")
loo_SbSoapXml.Append(" </peop:SaveData>~r~n")
loo_SbSoapXml.Append(" </soap:Body>~r~n")
loo_SbSoapXml.Append("</soap:Envelope>")
loo_SbCsvData = create oleobject
li_rc = loo_SbCsvData.ConnectToNewObject("Chilkat.StringBuilder")
loo_SbCsvData.Append("Name,Reference~r~n")
loo_SbCsvData.Append("DHL,D0001")
li_NumReplacements = loo_SbSoapXml.Replace("CSV_DATA",loo_SbCsvData.GetAsString())
loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")
loo_Req.HttpVerb = "POST"
loo_Req.SendCharset = 1
loo_Req.Charset = "utf-8"
loo_Req.AddHeader("Content-Type","text/xml")
loo_Req.AddHeader("SOAPAction","http://www.peoplevox.net/SaveData")
loo_Req.Path = "/PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx"
li_Success = loo_Req.LoadBodyFromString(loo_SbSoapXml.GetAsString(),"utf-8")
loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
loo_Http.FollowRedirects = 1
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")
li_Success = loo_Http.HttpSReq("qac.peoplevox.net",443,1,loo_Req,loo_Resp)
if li_Success = 0 then
Write-Debug loo_Http.LastErrorText
destroy loo_SbSoapXml
destroy loo_SbCsvData
destroy loo_Req
destroy loo_Http
destroy loo_Resp
return
end if
// We should expect a 200 response if successful.
if loo_Resp.StatusCode <> 200 then
Write-Debug "Response StatusCode = " + string(loo_Resp.StatusCode)
Write-Debug "Response StatusLine: " + loo_Resp.StatusLine
Write-Debug "Response Header:"
Write-Debug loo_Resp.Header
Write-Debug loo_Resp.BodyStr
destroy loo_SbSoapXml
destroy loo_SbCsvData
destroy loo_Req
destroy loo_Http
destroy loo_Resp
return
end if
loo_XmlResponse = create oleobject
li_rc = loo_XmlResponse.ConnectToNewObject("Chilkat.Xml")
li_Success = loo_XmlResponse.LoadXml(loo_Resp.BodyStr)
Write-Debug loo_XmlResponse.GetXml()
// A successful response is shown below.
// To parse a successful response:
ls_Reference = loo_XmlResponse.ChilkatPath("soap:Body|SaveDataResponse|SaveDataResult|Statuses|IntegrationStatusResponse|Reference|*")
Write-Debug "Reference = " + ls_Reference
ls_Status = loo_XmlResponse.ChilkatPath("soap:Body|SaveDataResponse|SaveDataResult|Statuses|IntegrationStatusResponse|Status|*")
Write-Debug "Status = " + ls_Status
// <?xml version="1.0" encoding="utf-8" ?>
// <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
// <soap:Body>
// <SaveDataResponse xmlns="http://www.peoplevox.net/">
// <SaveDataResult>
// <ResponseId>0</ResponseId>
// <TotalCount>1</TotalCount>
// <Detail />
// <Statuses>
// <IntegrationStatusResponse>
// <Reference>D0001</Reference>
// <Status>Success</Status>
// <LineNo>0</LineNo>
// </IntegrationStatusResponse>
// </Statuses>
// <ImportingQueueId>0</ImportingQueueId>
// <SalesOrdersToDespatchIds />
// </SaveDataResult>
// </SaveDataResponse>
// </soap:Body>
// </soap:Envelope>
destroy loo_SbSoapXml
destroy loo_SbCsvData
destroy loo_Req
destroy loo_Http
destroy loo_Resp
destroy loo_XmlResponse