Tcl
Tcl
Create Signed SOAP XML for Albanian Fiscalization Service
See more XAdES Examples
This example is created for a customer that needs to send signed billing/invoicing SOAP XML requests to http://efiskalizimi-test.tatime.gov.al:80/FiscalizationServiceThe example demonstrates how to create and signed the SOAP XML message that is to be sent.
Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
# --------------------------------------------------------------------------------
# Also see Chilkat's Online WSDL Code Generator
# to generate code and SOAP Request and Response XML for each operation in a WSDL.
# --------------------------------------------------------------------------------
# We want to build and send a signed SOAP XML that looks like the following:
#
# <?xml version="1.0" encoding="utf-8"?>
# <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
# <SOAP-ENV:Header/>
# <SOAP-ENV:Body>
# <RegisterWTNRequest xmlns="https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema" xmlns:ns2="http://www.w3.org/2000/09/xmldsig#" Id="Request">
# <Header SendDateTime="2019-09-03T14:19:01+02:00" UUID="42db3af5-0d9f-4dea-95b4-4b947ab8d8e7"/>
# <WTN BusinUnit="bb123bb123" DateTimeCreated="2019-09-03T14:19:01+02:00" DestinAddr="Destination address"
# DestinCity="Destination city" IsAfterDel="false" OperatorCode="oo123oo123"
# SoftNum="ss123ss123" StartAddr="Start address" StartCity="Start city" TransDate="2019-09-03T14:19:01+02:00"
# VehPlates="AA0000AA" WTNIC="5C5E58580D0A24E1F7A5E5E011929511" WTNICSignature="82D69C38206D ... F5FCA48" WTNNum="12345678901">
# <Issuer NUIS="I12345678I" Name="Issuer name"/>
# <Items>
# <I C="501234567890" N="Item name" Q="1.0" U="piece"/>
# </Items>
# </WTN>
# <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
# <SignedInfo>
# <CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
# <SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256"/>
# <Reference URI="#Request">
# <Transforms>
# <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
# <Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
# </Transforms>
# <DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/>
# <DigestValue>aNa0r4RW04BlsAciTUrWHGW9PADskl2op315BAQ0hTg=</DigestValue>
# </Reference>
# </SignedInfo>
# <SignatureValue>4/j/d4j/5xCJ2YUP+XTC6li0B94...........................KESd38NT5+puArBcNgLYIjLx/dh6Q==</SignatureValue>
# <KeyInfo>
# <X509Data>
# <X509Certificate>MIIE6TCCAtGgAwIBAgICEA8wDQYJKoZIhvcNA......................uoqWsSuLmA==</X509Certificate>
# </X509Data>
# </KeyInfo>
# </Signature>
# </RegisterWTNRequest>
# </SOAP-ENV:Body>
# </SOAP-ENV:Envelope>
set success 1
# Create the XML to be signed...
set xmlToSign [new_CkXml]
CkXml_put_Tag $xmlToSign "SOAP-ENV:Envelope"
CkXml_AddAttribute $xmlToSign "xmlns:SOAP-ENV" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_UpdateChildContent $xmlToSign "SOAP-ENV:Header" ""
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest" 1 "xmlns" "https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest" 1 "xmlns:ns2" "http://www.w3.org/2000/09/xmldsig#"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest" 1 "Id" "Request"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|Header" 1 "SendDateTime" "2019-09-03T14:19:01+02:00"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|Header" 1 "UUID" "42db3af5-0d9f-4dea-95b4-4b947ab8d8e7"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "BusinUnit" "bb123bb123"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "DateTimeCreated" "2019-09-03T14:19:01+02:00"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "DestinAddr" "Destination address"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "DestinCity" "Destination city"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "IsAfterDel" "false"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "OperatorCode" "oo123oo123"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "SoftNum" "ss123ss123"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "StartAddr" "Start address"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "StartCity" "Start city"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "TransDate" "2019-09-03T14:19:01+02:00"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "VehPlates" "AA0000AA"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "WTNIC" "5C5E58580D0A24E1F7A5E5E011929511"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "WTNICSignature" "82D69C38206D ... F5FCA48"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN" 1 "WTNNum" "12345678901"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer" 1 "NUIS" "I12345678I"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer" 1 "Name" "Issuer name"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I" 1 "C" "501234567890"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I" 1 "N" "Item name"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I" 1 "Q" "1.0"
CkXml_UpdateAttrAt $xmlToSign "SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I" 1 "U" "piece"
set gen [new_CkXmlDSigGen]
CkXmlDSigGen_put_SigLocation $gen "SOAP-ENV:Envelope|SOAP-ENV:Body|RegisterWTNRequest"
CkXmlDSigGen_put_SigLocationMod $gen 0
CkXmlDSigGen_put_SigNamespacePrefix $gen ""
CkXmlDSigGen_put_SigNamespaceUri $gen "http://www.w3.org/2000/09/xmldsig#"
CkXmlDSigGen_put_SignedInfoCanonAlg $gen "EXCL_C14N"
CkXmlDSigGen_put_SignedInfoDigestMethod $gen "sha256"
# -------- Reference 1 --------
CkXmlDSigGen_AddSameDocRef $gen "Request" "sha256" "EXCL_C14N" "" ""
# Provide a certificate + private key. (PFX password is test123)
set cert [new_CkCert]
set success [CkCert_LoadPfxFile $cert "qa_data/pfx/cert_test123.pfx" "test123"]
if {$success == 0} then {
puts [CkCert_lastErrorText $cert]
delete_CkXml $xmlToSign
delete_CkXmlDSigGen $gen
delete_CkCert $cert
exit
}
CkXmlDSigGen_SetX509Cert $gen $cert 1
CkXmlDSigGen_put_KeyInfoType $gen "X509Data"
CkXmlDSigGen_put_X509Type $gen "Certificate"
# Load XML to be signed...
set sbXml [new_CkStringBuilder]
CkXml_GetXmlSb $xmlToSign $sbXml
CkXmlDSigGen_put_Behaviors $gen "CompactSignedXml,ForceAddEnvelopedSignatureTransform"
# Sign the XML...
set success [CkXmlDSigGen_CreateXmlDSigSb $gen $sbXml]
if {$success == 0} then {
puts [CkXmlDSigGen_lastErrorText $gen]
delete_CkXml $xmlToSign
delete_CkXmlDSigGen $gen
delete_CkCert $cert
delete_CkStringBuilder $sbXml
exit
}
# -----------------------------------------------
# Now to send the SOAP request....
# Note: Chilkat did not actually test this by sending the request to the server.
# The example is a best-guess for how to do it...
set strXml [CkStringBuilder_getAsString $sbXml]
# We'll need to add this in the HTTP header:
# SOAPAction: "https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN"
# Note: This is for the RegisterWTN request.
# You may wish to load the WSDL at https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1/FiscalizationService.wsdl into the SoapUI application to see
# the SOAP requests..
set http [new_CkHttp]
CkHttp_SetRequestHeader $http "SOAPAction" "https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN"
# The testing endpoint for this soap service is likely:
set endPoint "https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1"
set resp [new_CkHttpResponse]
set success [CkHttp_HttpStr $http "POST" $endPoint $strXml "utf-8" "text/xml" $resp]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkXml $xmlToSign
delete_CkXmlDSigGen $gen
delete_CkCert $cert
delete_CkStringBuilder $sbXml
delete_CkHttp $http
delete_CkHttpResponse $resp
exit
}
set responseStatusCode [CkHttpResponse_get_StatusCode $resp]
# Check that the responseStatusCode equals 200...
puts "Response Status Code: $responseStatusCode"
# Examine the exact HTTP header sent with the POST like this:
puts "LastHeader:"
puts [CkHttp_lastHeader $http]
# Examine the XML returned by the web service:
puts "XML Response:"
set xmlResp [new_CkXml]
CkXml_LoadXml $xmlResp [CkHttpResponse_bodyStr $resp]
puts [CkXml_getXml $xmlResp]
# Use this online tool to generate parsing code from response XML:
# Generate Parsing Code from XML
delete_CkXml $xmlToSign
delete_CkXmlDSigGen $gen
delete_CkCert $cert
delete_CkStringBuilder $sbXml
delete_CkHttp $http
delete_CkHttpResponse $resp
delete_CkXml $xmlResp