load ./chilkat.dll
set xml [new_CkXml]
CkXml_put_Tag $xml "soapenv:Envelope"CkXml_AddAttribute $xml "xmlns:intf""http://data.webservice.workshop.vivid.nl"CkXml_AddAttribute $xml "xmlns:soapenv""http://schemas.xmlsoap.org/soap/envelope/"CkXml_UpdateChildContent $xml "soapenv:Header"""CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:vrid""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:descriptionLanguage""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:carTypeId""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:repairtimesTypeId""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:rtTypeCategory""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:systemId""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:periodId""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:includeSmartLinks""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:includeServiceTimes""xml"CkXml_UpdateChildContent $xml "soapenv:Body|intf:getMaintenanceTasksV8|intf:maintenanceBasedType""xml"# In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required. CkXml_put_EmitXmlDecl $xml 0set soapRequestBody [CkXml_getXml $xml]
set endpoint "http://www.haynespro-services.com/workshopServices3/services/DataServiceEndpoint"set soapAction ""# For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"set contentType "text/xml"
set http [new_CkHttp]
CkHttp_ClearHeaders $http
CkHttp_SetRequestHeader $http "Content-Type" $contentType
CkHttp_SetRequestHeader $http "SOAPAction" $soapAction
# resp is a CkHttpResponseset resp [CkHttp_PostXml $http $endpoint $soapRequestBody "utf-8"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
puts [CkHttp_lastErrorText $http]
puts "Failed to send SOAP request."
delete_CkXml $xml
delete_CkHttp $http
exit
}
# Get the XML response body.
set responseXml [new_CkXml]
CkHttpResponse_GetBodyXml $resp $responseXml
set statusCode [CkHttpResponse_get_StatusCode $resp]
puts "response status code: $statusCode"
delete_CkHttpResponse $resp
# If the status code does not indicate succcess, then show the response XML,
# which probably contains error information.if {$statusCode != 200} then {
puts [CkXml_getXml $responseXml]
delete_CkXml $xml
delete_CkHttp $http
delete_CkXml $responseXml
exit
}
puts [CkXml_getXml $responseXml]
# Parse the successful SOAP response XML.# This is a sample of the response XML, but the namespace prefixes will be different.
# We can parse the result using "*" for the namespace prefixes (see below).set attributeTypeDescription [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:criteria|*:item|*:attributeTypeDescription"]
set keyTableDescription [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:criteria|*:item|*:keyTableDescription"]
set keyValue [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:criteria|*:item|*:keyValue"]
set keyValueDescription [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:criteria|*:item|*:keyValueDescription"]
set kritnr [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:criteria|*:item|*:kritnr"]
set tabnr [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:criteria|*:item|*:tabnr"]
set descriptionId [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:descriptionId"]
set awNumber [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:awNumber"]
set description [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:description"]
set description [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:genarts|*:item|*:description"]
set id [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:genarts|*:item|*:id"]
set mandatory [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:genarts|*:item|*:mandatory"]
set hasInfoGroups [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:hasInfoGroups"]
set hasSubnodes [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:hasSubnodes"]
set id [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:id"]
set jobType [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:jobType"]
set oeCode [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:oeCode"]
set order [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:order"]
set confirmationLink [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:status|*:confirmationLink"]
set statusCode [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:status|*:statusCode"]
set criteriaId [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:timeCriterias|*:item|*:groupCriterias|*:item|*:criteriaId"]
set criteriaLevel [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:timeCriterias|*:item|*:groupCriterias|*:item|*:criteriaLevel"]
set description [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:timeCriterias|*:item|*:groupCriterias|*:item|*:description"]
set value1 [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:timeCriterias|*:item|*:groupCriterias|*:item|*:value1"]
set value2 [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:timeCriterias|*:item|*:groupCriterias|*:item|*:value2"]
set groupDescription [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:timeCriterias|*:item|*:groupDescription"]
set groupId [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:timeCriterias|*:item|*:groupId"]
set value [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:followUpRepairs|*:item|*:value"]
set description [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalArticles|*:item|*:description"]
set id [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalArticles|*:item|*:id"]
set mandatory [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalArticles|*:item|*:mandatory"]
set criteriaId [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalCriterias|*:item|*:groupCriterias|*:item|*:criteriaId"]
set criteriaLevel [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalCriterias|*:item|*:groupCriterias|*:item|*:criteriaLevel"]
set description [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalCriterias|*:item|*:groupCriterias|*:item|*:description"]
set value1 [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalCriterias|*:item|*:groupCriterias|*:item|*:value1"]
set value2 [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalCriterias|*:item|*:groupCriterias|*:item|*:value2"]
set groupDescription [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalCriterias|*:item|*:groupDescription"]
set groupId [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:generalCriterias|*:item|*:groupId"]
set includeByDefault [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:includeByDefault"]
set item [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:longDescriptions|*:item"]
set mandatoryReplacement [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:mandatoryReplacement"]
set name [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:name"]
set order [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:order"]
set overrulingRemark [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:overrulingRemark"]
set remark [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:remark"]
set repairTimesTaskId [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:repairTimesTaskId"]
set filter [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:smartLinks|*:item|*:filter"]
set id1 [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:smartLinks|*:item|*:id1"]
set id2 [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:smartLinks|*:item|*:id2"]
set operation [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:smartLinks|*:item|*:operation"]
set item [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:smartLinks|*:item|*:text|*:item"]
set confirmationLink [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:status|*:confirmationLink"]
set statusCode [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:status|*:statusCode"]
set code [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:times|*:item|*:code"]
set selected [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:times|*:item|*:selected"]
set v_type [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:times|*:item|*:type"]
set value [CkXml_getChildContent $responseXml "*:Body|*:getMaintenanceTasksV8Response|*:getMaintenanceTasksV8Return|*:times|*:item|*:value"]
delete_CkXml $xml
delete_CkHttp $http
delete_CkXml $responseXml