Xbase++ Requires Chilkat v11.0.0+
Xbase++
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 Xbase++ Downloads
LOCAL nSuccess
LOCAL oXmlToSign
LOCAL oGen
LOCAL oCert
LOCAL oSbXml
LOCAL cStrXml
LOCAL nResponseStatusCode
LOCAL oHttp
LOCAL cEndPoint
LOCAL oResp
LOCAL oXmlResp
nSuccess := 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>
nSuccess := 1
// Create the XML to be signed...
oXmlToSign := CreateObject("Chilkat.Xml")
oXmlToSign:Tag := "SOAP-ENV:Envelope"
oXmlToSign:AddAttribute("xmlns:SOAP-ENV", "http://schemas.xmlsoap.org/soap/envelope/")
oXmlToSign:UpdateChildContent("SOAP-ENV:Header", "")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest", 1, "xmlns", "https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest", 1, "xmlns:ns2", "http://www.w3.org/2000/09/xmldsig#")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest", 1, "Id", "Request")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header", 1, "SendDateTime", "2019-09-03T14:19:01+02:00")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header", 1, "UUID", "42db3af5-0d9f-4dea-95b4-4b947ab8d8e7")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "BusinUnit", "bb123bb123")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "DateTimeCreated", "2019-09-03T14:19:01+02:00")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "DestinAddr", "Destination address")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "DestinCity", "Destination city")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "IsAfterDel", "false")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "OperatorCode", "oo123oo123")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "SoftNum", "ss123ss123")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "StartAddr", "Start address")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "StartCity", "Start city")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "TransDate", "2019-09-03T14:19:01+02:00")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "VehPlates", "AA0000AA")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "WTNIC", "5C5E58580D0A24E1F7A5E5E011929511")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "WTNICSignature", "82D69C38206D ... F5FCA48")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", 1, "WTNNum", "12345678901")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer", 1, "NUIS", "I12345678I")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer", 1, "Name", "Issuer name")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I", 1, "C", "501234567890")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I", 1, "N", "Item name")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I", 1, "Q", "1.0")
oXmlToSign:UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I", 1, "U", "piece")
oGen := CreateObject("Chilkat.XmlDSigGen")
oGen:SigLocation := "SOAP-ENV:Envelope|SOAP-ENV:Body|RegisterWTNRequest"
oGen:SigLocationMod := 0
oGen:SigNamespacePrefix := ""
oGen:SigNamespaceUri := "http://www.w3.org/2000/09/xmldsig#"
oGen:SignedInfoCanonAlg := "EXCL_C14N"
oGen:SignedInfoDigestMethod := "sha256"
// -------- Reference 1 --------
oGen:AddSameDocRef("Request", "sha256", "EXCL_C14N", "", "")
// Provide a certificate + private key. (PFX password is test123)
oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
IF (nSuccess == 0)
? oCert:LastErrorText
oXmlToSign:destroy()
oGen:destroy()
oCert:destroy()
RETURN
ENDIF
oGen:SetX509Cert(oCert, 1)
oGen:KeyInfoType := "X509Data"
oGen:X509Type := "Certificate"
// Load XML to be signed...
oSbXml := CreateObject("Chilkat.StringBuilder")
oXmlToSign:GetXmlSb(oSbXml)
oGen:Behaviors := "CompactSignedXml,ForceAddEnvelopedSignatureTransform"
// Sign the XML...
nSuccess := oGen:CreateXmlDSigSb(oSbXml)
IF (nSuccess == 0)
? oGen:LastErrorText
oXmlToSign:destroy()
oGen:destroy()
oCert:destroy()
oSbXml:destroy()
RETURN
ENDIF
// -----------------------------------------------
// 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...
cStrXml := oSbXml:GetAsString()
// 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..
oHttp := CreateObject("Chilkat.Http")
oHttp:SetRequestHeader("SOAPAction", "https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN")
// The testing endpoint for this soap service is likely:
cEndPoint := "https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1"
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpStr("POST", cEndPoint, cStrXml, "utf-8", "text/xml", oResp)
IF (nSuccess == 0)
? oHttp:LastErrorText
oXmlToSign:destroy()
oGen:destroy()
oCert:destroy()
oSbXml:destroy()
oHttp:destroy()
oResp:destroy()
RETURN
ENDIF
nResponseStatusCode := oResp:StatusCode
// Check that the responseStatusCode equals 200...
? "Response Status Code: " + Str(nResponseStatusCode)
// Examine the exact HTTP header sent with the POST like this:
? "LastHeader:"
? oHttp:LastHeader
// Examine the XML returned by the web service:
? "XML Response:"
oXmlResp := CreateObject("Chilkat.Xml")
oXmlResp:LoadXml(oResp:BodyStr)
? oXmlResp:GetXml()
// Use this online tool to generate parsing code from response XML:
// Generate Parsing Code from XML
oXmlToSign:destroy()
oGen:destroy()
oCert:destroy()
oSbXml:destroy()
oHttp:destroy()
oResp:destroy()
oXmlResp:destroy()