B4X Requires Chilkat v11.0.0+
B4X
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 B4X Downloads
Dim success As Boolean = 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 ChilkatXml
xmlToSign.Initialize
xmlToSign.Tag = "SOAP-ENV:Envelope"
xmlToSign.AddAttribute("xmlns:SOAP-ENV", "http://schemas.xmlsoap.org/soap/envelope/")
xmlToSign.UpdateChildContent("SOAP-ENV:Header", "")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest", True, "xmlns", "https://eFiskalizimi.tatime.gov.al/FiscalizationService/schema")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest", True, "xmlns:ns2", "http://www.w3.org/2000/09/xmldsig#")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest", True, "Id", "Request")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header", True, "SendDateTime", "2019-09-03T14:19:01+02:00")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|Header", True, "UUID", "42db3af5-0d9f-4dea-95b4-4b947ab8d8e7")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "BusinUnit", "bb123bb123")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "DateTimeCreated", "2019-09-03T14:19:01+02:00")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "DestinAddr", "Destination address")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "DestinCity", "Destination city")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "IsAfterDel", "false")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "OperatorCode", "oo123oo123")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "SoftNum", "ss123ss123")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "StartAddr", "Start address")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "StartCity", "Start city")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "TransDate", "2019-09-03T14:19:01+02:00")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "VehPlates", "AA0000AA")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "WTNIC", "5C5E58580D0A24E1F7A5E5E011929511")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "WTNICSignature", "82D69C38206D ... F5FCA48")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN", True, "WTNNum", "12345678901")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer", True, "NUIS", "I12345678I")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Issuer", True, "Name", "Issuer name")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I", True, "C", "501234567890")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I", True, "N", "Item name")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I", True, "Q", "1.0")
xmlToSign.UpdateAttrAt("SOAP-ENV:Body|RegisterWTNRequest|WTN|Items|I", True, "U", "piece")
Dim gen As ChilkatXmlDSigGen
gen.Initialize("gen")
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 --------
gen.AddSameDocRef("Request", "sha256", "EXCL_C14N", "", "")
' Provide a certificate + private key. (PFX password is test123)
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx", "test123")
If success = False Then
Log(cert.LastErrorText)
Return
End If
gen.SetX509Cert(cert, True)
gen.KeyInfoType = "X509Data"
gen.X509Type = "Certificate"
' Load XML to be signed...
Dim sbXml As ChilkatStringBuilder
sbXml.Initialize
xmlToSign.GetXmlSb(sbXml)
gen.Behaviors = "CompactSignedXml,ForceAddEnvelopedSignatureTransform"
' Sign the XML...
success = gen.CreateXmlDSigSb(sbXml)
If success = False Then
Log(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 = sbXml.GetAsString
Dim responseStatusCode As Int
' 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 ChilkatHttp
http.Initialize("http")
http.SetRequestHeader("SOAPAction", "https://eFiskalizimi.tatime.gov.al/FiscalizationService/RegisterWTN")
' The testing endpoint for this soap service is likely:
Dim endPoint As String = "https://efiskalizimi-test.tatime.gov.al/FiscalizationService-v1"
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpStr("POST", endPoint, strXml, "utf-8", "text/xml", resp)
If success = False Then
Log(http.LastErrorText)
Return
End If
responseStatusCode = resp.StatusCode
' Check that the responseStatusCode equals 200...
Log("Response Status Code: " & responseStatusCode)
' Examine the exact HTTP header sent with the POST like this:
Log("LastHeader:")
Log(http.LastHeader)
' Examine the XML returned by the web service:
Log("XML Response:")
Dim xmlResp As ChilkatXml
xmlResp.Initialize
xmlResp.LoadXml(resp.BodyStr)
Log(xmlResp.GetXml)
' Use this online tool to generate parsing code from response XML:
' Generate Parsing Code from XML