load ./chilkat.dll
set xml [new_CkXml]
CkXml_put_Tag $xml "soapenv:Envelope"CkXml_AddAttribute $xml "xmlns:soapenv""http://schemas.xmlsoap.org/soap/envelope/"CkXml_AddAttribute $xml "xmlns:v3""http://oneclickforapp.dpag.de/V3"CkXml_UpdateChildContent $xml "soapenv:Header"""CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:userToken""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:shopOrderId""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:pageFormatId""int"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:ppl""int"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:productCode""int"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:imageID""int"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:sender|v3:name"""CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:sender|v3:address|v3:additional""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:sender|v3:address|v3:street""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:sender|v3:address|v3:houseNo""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:sender|v3:address|v3:zip""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:sender|v3:address|v3:city""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:sender|v3:address|v3:country""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:receiver|v3:name"""CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:receiver|v3:address|v3:additional""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:receiver|v3:address|v3:street""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:receiver|v3:address|v3:houseNo""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:receiver|v3:address|v3:zip""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:receiver|v3:address|v3:city""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:address|v3:receiver|v3:address|v3:country""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:additionalInfo""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:voucherLayout""AddressZone"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:cashOnDelivery|v3:paymentRecipient""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:cashOnDelivery|v3:paymentReference""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:cashOnDelivery|v3:iban""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:cashOnDelivery|v3:bic""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:cashOnDelivery|v3:accountOwner""string"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:cashOnDelivery|v3:amount""int"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:position|v3:labelX""int"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:position|v3:labelY""int"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:positions|v3:position|v3:page""int"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:total""int"CkXml_UpdateChildContent $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:createManifest""boolean"CkXml_UpdateChildContentInt $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:createShippingList"0CkXml_UpdateChildContentInt $xml "soapenv:Body|v3:CheckoutShoppingCartPDFRequest|v3:dpi"300# 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 "https://internetmarke.deutschepost.de/OneClickForApp/OneClickForAppServiceV3/OneClickForAppV3EJB"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 link [CkXml_getChildContent $responseXml "*:Body|*:CheckoutShoppingCartPDFResponse|*:link"]
set manifestLink [CkXml_getChildContent $responseXml "*:Body|*:CheckoutShoppingCartPDFResponse|*:manifestLink"]
set walletBallance [CkXml_getChildContent $responseXml "*:Body|*:CheckoutShoppingCartPDFResponse|*:walletBallance"]
set shopOrderId [CkXml_getChildContent $responseXml "*:Body|*:CheckoutShoppingCartPDFResponse|*:shoppingCart|*:shopOrderId"]
set voucherId [CkXml_getChildContent $responseXml "*:Body|*:CheckoutShoppingCartPDFResponse|*:shoppingCart|*:voucherList|*:voucher|*:voucherId"]
set trackId [CkXml_getChildContent $responseXml "*:Body|*:CheckoutShoppingCartPDFResponse|*:shoppingCart|*:voucherList|*:voucher|*:trackId"]
delete_CkXml $xml
delete_CkHttp $http
delete_CkXml $responseXml