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