(Visual FoxPro) Verify Factura Electronica Chile SII (iso-8859-1)

Demonstrates how to verify SII XML stored as iso-8859-1 having just a single signature.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loSbXml
LOCAL lnSuccess
LOCAL loDsig
LOCAL lnBVerifyReferenceDigests
LOCAL lnBVerified

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* The signed XML to be verified in this example contains the following:

* <?xml version="1.0" encoding="ISO-8859-1"?>
* <DTE version="1.0" xmlns="http://www.sii.cl/SiiDte">
* <Documento ID="F13T34">
* ...
* </Documento>
* <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
* ....
* </Signature>
* </DTE>

* Load the signed XML into sbXml -- telling Chilkat to interpret the bytes as iso-8859-1 
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbXml = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbXml.LoadFile("qa_data/xml_dsig/sii_cl/signed1.xml","iso-8859-1")
IF (lnSuccess = 0) THEN
    ? "Failed to load input file."
    RELEASE loSbXml
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.XmlDSig')
loDsig = CreateObject('Chilkat.XmlDSig')

lnSuccess = loDsig.LoadSignatureSb(loSbXml)
IF (lnSuccess <> 1) THEN
    ? loDsig.LastErrorText
    RELEASE loSbXml
    RELEASE loDsig
    CANCEL
ENDIF

lnBVerifyReferenceDigests = 1
lnBVerified = loDsig.VerifySignature(lnBVerifyReferenceDigests)
IF (lnBVerified = 0) THEN
    ? loDsig.LastErrorText
    RELEASE loSbXml
    RELEASE loDsig
    CANCEL
ENDIF

? "Signature verified = " + STR(lnBVerified)

RELEASE loSbXml
RELEASE loDsig