Sample code for 30+ languages & platforms
Xojo Plugin 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 Xojo Plugin Downloads

Download Chilkat for Xojo Plugin
Xojo Plugin 
Dim success As Boolean
success = False

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

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

Dim gen As New Chilkat.XmlDSigGen

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

//  -------- Reference 1 --------
success = gen.AddSameDocRef("Request","sha256","EXCL_C14N","","")

//  Provide a certificate + private key. (PFX password is test123)
Dim cert As New Chilkat.Cert
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

success = gen.SetX509Cert(cert,True)

gen.KeyInfoType = "X509Data"
gen.X509Type = "Certificate"

//  Load XML to be signed...
Dim sbXml As New Chilkat.StringBuilder
success = xmlToSign.GetXmlSb(sbXml)

gen.Behaviors = "CompactSignedXml,ForceAddEnvelopedSignatureTransform"

//  Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If (success = False) Then
    System.DebugLog(gen.LastErrorText)
    Return
End If

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

Dim strXml As String
strXml = sbXml.GetAsString()

Dim responseStatusCode As Int32

//  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..
Dim http As New Chilkat.Http
http.SetRequestHeader "SOAPAction","https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN"

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

Dim resp As New Chilkat.HttpResponse
success = http.HttpStr("POST",endPoint,strXml,"utf-8","text/xml",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

responseStatusCode = resp.StatusCode

//  Check that the responseStatusCode equals 200...
System.DebugLog("Response Status Code: " + Str(responseStatusCode))

//  Examine the exact HTTP header sent with the POST like this:
System.DebugLog("LastHeader:")
System.DebugLog(http.LastHeader)

//  Examine the XML returned by the web service:
System.DebugLog("XML Response:")
Dim xmlResp As New Chilkat.Xml
success = xmlResp.LoadXml(resp.BodyStr)
System.DebugLog(xmlResp.GetXml())

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