Sample code for 30+ languages & platforms
Lianja Requires Chilkat v11.0.0+

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/FiscalizationService

The example demonstrates how to create and signed the SOAP XML message that is to be sent.

Chilkat Lianja Downloads

Download Chilkat for Lianja
Lianja 
llSuccess = .F.

//  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>

llSuccess = .T.
//  Create the XML to be signed...
loXmlToSign = createobject("CkXml")
loXmlToSign.Tag = "SOAP-ENV:Envelope"
loXmlToSign.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/")
loXmlToSign.UpdateChildContent("SOAP-ENV:Header","")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",.T.,"xmlns","https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",.T.,"xmlns:ns2","http://www.w3.org/2000/09/xmldsig#")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest",.T.,"Id","Request")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header",.T.,"SendDateTime","2019-09-03T14:19:01+02:00")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header",.T.,"UUID","42db3af5-0d9f-4dea-95b4-4b947ab8d8e7")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"BusinUnit","bb123bb123")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"DateTimeCreated","2019-09-03T14:19:01+02:00")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"DestinAddr","Destination address")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"DestinCity","Destination city")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"IsAfterDel","false")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"OperatorCode","oo123oo123")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"SoftNum","ss123ss123")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"StartAddr","Start address")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"StartCity","Start city")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"TransDate","2019-09-03T14:19:01+02:00")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"VehPlates","AA0000AA")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"WTNIC","5C5E58580D0A24E1F7A5E5E011929511")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"WTNICSignature","82D69C38206D ... F5FCA48")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN",.T.,"WTNNum","12345678901")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer",.T.,"NUIS","I12345678I")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer",.T.,"Name","Issuer name")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",.T.,"C","501234567890")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",.T.,"N","Item name")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",.T.,"Q","1.0")
loXmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I",.T.,"U","piece")

loGen = createobject("CkXmlDSigGen")

loGen.SigLocation = "SOAP-ENV:Envelope|SOAP-ENV:Body|RegisterWTNRequest"
loGen.SigLocationMod = 0
loGen.SigNamespacePrefix = ""
loGen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
loGen.SignedInfoCanonAlg = "EXCL_C14N"
loGen.SignedInfoDigestMethod = "sha256"

//  -------- Reference 1 --------
loGen.AddSameDocRef("Request","sha256","EXCL_C14N","","")

//  Provide a certificate + private key. (PFX password is test123)
loCert = createobject("CkCert")
llSuccess = loCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loXmlToSign
    release loGen
    release loCert
    return
endif

loGen.SetX509Cert(loCert,.T.)

loGen.KeyInfoType = "X509Data"
loGen.X509Type = "Certificate"

//  Load XML to be signed...
loSbXml = createobject("CkStringBuilder")
loXmlToSign.GetXmlSb(loSbXml)

loGen.Behaviors = "CompactSignedXml,ForceAddEnvelopedSignatureTransform"

//  Sign the XML...
llSuccess = loGen.CreateXmlDSigSb(loSbXml)
if (llSuccess = .F.) then
    ? loGen.LastErrorText
    release loXmlToSign
    release loGen
    release loCert
    release loSbXml
    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...

lcStrXml = loSbXml.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..
loHttp = createobject("CkHttp")
loHttp.SetRequestHeader("SOAPAction","https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN")

//  The testing endpoint for this soap service is likely:
lcEndPoint = "https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1"

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpStr("POST",lcEndPoint,lcStrXml,"utf-8","text/xml",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loXmlToSign
    release loGen
    release loCert
    release loSbXml
    release loHttp
    release loResp
    return
endif

lnResponseStatusCode = loResp.StatusCode

//  Check that the responseStatusCode equals 200...
? "Response Status Code: " + str(lnResponseStatusCode)

//  Examine the exact HTTP header sent with the POST like this:
? "LastHeader:"
? loHttp.LastHeader

//  Examine the XML returned by the web service:
? "XML Response:"
loXmlResp = createobject("CkXml")
loXmlResp.LoadXml(loResp.BodyStr)
? loXmlResp.GetXml()

//  Use this online tool to generate parsing code from response XML: 
//  Generate Parsing Code from XML


release loXmlToSign
release loGen
release loCert
release loSbXml
release loHttp
release loResp
release loXmlResp