Visual FoxPro

Italian FatturaPA (e-Invoice) Signed XML (CADES-BES P7M) using USB SmartCard Reader

See more CAdES Examples

Demonstrates Italian e-Invoice (FatturaPA) signing by using a private key stored on a USB smartcard reader. Visual FoxPro

LOCAL lnSuccess
LOCAL loCrypt
LOCAL loCert
LOCAL loSignedAttrs
LOCAL lcInputXmlPath
LOCAL lcOutputP7mPath

lnSuccess = 0

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

loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.VerboseLogging = 1

loCert = CreateObject('Chilkat.Cert')
* Use your smart card user PIN for signing.
loCert.SmartCardPin = "0000"

lnSuccess = loCert.LoadFromSmartcard("")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCrypt
    RELEASE loCert
    CANCEL
ENDIF

lnSuccess = loCrypt.SetSigningCert(loCert)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    RELEASE loCert
    CANCEL
ENDIF

* The CadesEnabled property applies to all methods that create PKCS7 signatures. 
* To create a CAdES-BES signature, set this property equal to true.
loCrypt.CadesEnabled = 1

loCrypt.HashAlgorithm = "sha256"

loSignedAttrs = CreateObject('Chilkat.JsonObject')
loSignedAttrs.UpdateInt("contentType",1)
loSignedAttrs.UpdateInt("signingTime",1)
loSignedAttrs.UpdateInt("messageDigest",1)
loSignedAttrs.UpdateInt("signingCertificateV2",1)
loCrypt.SigningAttributes = loSignedAttrs.Emit()

* Load XML such as the following:
*  <p:FatturaElettronica xmlns:p="http://ivaservizi.agenziaentrate.gov.it/docs/xsd/fatture/v1.2" versione="FPR12">
*     <FatturaElettronicaHeader>
*        <DatiTrasmissione>
* 	...
*        </DatiTrasmissione>
*        <CedentePrestatore>
* 	...
*        </CedentePrestatore>
*        <CessionarioCommittente>
* 	...
*        </CessionarioCommittente>
*     </FatturaElettronicaHeader>
*     <FatturaElettronicaBody>
*        <DatiGenerali>
*           <DatiGeneraliDocumento>
* 		...
*           </DatiGeneraliDocumento>
*        </DatiGenerali>
*        <DatiBeniServizi>
* 	...
*        </DatiBeniServizi>
*     </FatturaElettronicaBody>
*  </p:FatturaElettronica>

lcInputXmlPath = "c:/someDir/e-Invoice.xml"
lcOutputP7mPath = "c:/someDir/signed.p7m"

* Create the CAdES-BES attached signature, which contains the original data.
lnSuccess = loCrypt.CreateP7M(lcInputXmlPath,lcOutputP7mPath)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    RELEASE loCert
    RELEASE loSignedAttrs
    CANCEL
ENDIF

? "Success."

RELEASE loCrypt
RELEASE loCert
RELEASE loSignedAttrs