DataFlex
DataFlex
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 DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoSbSoapXml
Handle hoSbCsvData
Integer iNumReplacements
Variant vReq
Handle hoReq
Handle hoHttp
Variant vResp
Handle hoResp
Handle hoXmlResponse
String sReference
String sStatus
String sTemp1
Integer iTemp1
Move False To iSuccess
// 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.
//
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbSoapXml
If (Not(IsComObjectCreated(hoSbSoapXml))) Begin
Send CreateComObject of hoSbSoapXml
End
Get ComAppend Of hoSbSoapXml '<?xml version="1.0" encoding="utf-8"?>' + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml '<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:peop="http://www.peoplevox.net/">' + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <soap:Header>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:UserSessionCredentials>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </peop:UserSessionCredentials>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </soap:Header>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <soap:Body>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:SaveData>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:saveRequest>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:TemplateName>Carriers</peop:TemplateName>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:CsvData>CSV_DATA</peop:CsvData>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:Action>0</peop:Action>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </peop:saveRequest>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </peop:SaveData>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </soap:Body>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml "</soap:Envelope>" To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbCsvData
If (Not(IsComObjectCreated(hoSbCsvData))) Begin
Send CreateComObject of hoSbCsvData
End
Get ComAppend Of hoSbCsvData "Name,Reference" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbCsvData "DHL,D0001" To iSuccess
Get ComGetAsString Of hoSbCsvData To sTemp1
Get ComReplace Of hoSbSoapXml "CSV_DATA" sTemp1 To iNumReplacements
Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
If (Not(IsComObjectCreated(hoReq))) Begin
Send CreateComObject of hoReq
End
Set ComHttpVerb Of hoReq To "POST"
Set ComSendCharset Of hoReq To True
Set ComCharset Of hoReq To "utf-8"
Send ComAddHeader To hoReq "Content-Type" "text/xml"
Send ComAddHeader To hoReq "SOAPAction" "http://www.peoplevox.net/SaveData"
Set ComPath Of hoReq To "/PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx"
Get ComGetAsString Of hoSbSoapXml To sTemp1
Get ComLoadBodyFromString Of hoReq sTemp1 "utf-8" To iSuccess
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
Set ComFollowRedirects Of hoHttp To True
Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
If (Not(IsComObjectCreated(hoResp))) Begin
Send CreateComObject of hoResp
End
Get pvComObject of hoReq to vReq
Get pvComObject of hoResp to vResp
Get ComHttpSReq Of hoHttp "qac.peoplevox.net" 443 True vReq vResp To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
// We should expect a 200 response if successful.
Get ComStatusCode Of hoResp To iTemp1
If (iTemp1 <> 200) Begin
Get ComStatusCode Of hoResp To iTemp1
Showln "Response StatusCode = " iTemp1
Get ComStatusLine Of hoResp To sTemp1
Showln "Response StatusLine: " sTemp1
Showln "Response Header:"
Get ComHeader Of hoResp To sTemp1
Showln sTemp1
Get ComBodyStr Of hoResp To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatXml)) To hoXmlResponse
If (Not(IsComObjectCreated(hoXmlResponse))) Begin
Send CreateComObject of hoXmlResponse
End
Get ComBodyStr Of hoResp To sTemp1
Get ComLoadXml Of hoXmlResponse sTemp1 To iSuccess
Get ComGetXml Of hoXmlResponse To sTemp1
Showln sTemp1
// A successful response is shown below.
// To parse a successful response:
Get ComChilkatPath Of hoXmlResponse "soap:Body|SaveDataResponse|SaveDataResult|Statuses|IntegrationStatusResponse|Reference|*" To sReference
Showln "Reference = " sReference
Get ComChilkatPath Of hoXmlResponse "soap:Body|SaveDataResponse|SaveDataResult|Statuses|IntegrationStatusResponse|Status|*" To sStatus
Showln "Status = " sStatus
// <?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>
End_Procedure