Visual FoxPro

Aruba Fatturazione Elettronica Get Zip by Filename

See more Aruba Fatturazione Examples

Returns an invoice with all of its notifications in Zip format (e.g. IT01879020517_abcde.xml.p7m). Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loBdZip
LOCAL lnRespStatusCode
LOCAL loZip
LOCAL lnNumUnzipped
LOCAL loEntry
LOCAL loBdP7m
LOCAL loCrypt

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Implements the following CURL command:

* curl -X GET https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/getZipByFilename?filename=IT01879020517_jtlk1.xml.p7m \
*   -H "Accept: application/json" \
*   -H "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="

* Use the following online tool to generate HTTP code from a CURL command
* Convert a cURL Command to HTTP Source Code

* Adds the "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE=" header.
loHttp.AuthToken = "NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="
loHttp.SetRequestHeader("Accept","application/json")

loBdZip = CreateObject('Chilkat.BinData')
lnSuccess = loHttp.QuickGetBd("https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/getZipByFilename?filename=IT01879020517_jtlk1.xml.p7m",loBdZip)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loBdZip
    CANCEL
ENDIF

lnRespStatusCode = loHttp.LastStatus
? "response status code = " + STR(lnRespStatusCode)

IF (lnRespStatusCode <> 200) THEN
    * If it failed, the response body will not contain the .zip file data.
    * It will likely contain an error message.
    ? loBdZip.GetString("utf-8")
    ? "Failed."
    RELEASE loHttp
    RELEASE loBdZip
    CANCEL
ENDIF

* Open the zip and extract the .p7m
loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.OpenBd(loBdZip)
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loHttp
    RELEASE loBdZip
    RELEASE loZip
    CANCEL
ENDIF

* If desired, we can unzip to the filesystem..
lnNumUnzipped = loZip.Unzip("c:/mySignedInvoices")
IF (lnNumUnzipped < 0) THEN
    ? loZip.LastErrorText
    RELEASE loHttp
    RELEASE loBdZip
    RELEASE loZip
    CANCEL
ENDIF

* Alternatively, we can unzip into memory..
loEntry = CreateObject('Chilkat.ZipEntry')
lnSuccess = loZip.EntryAt(0,loEntry)
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loHttp
    RELEASE loBdZip
    RELEASE loZip
    RELEASE loEntry
    CANCEL
ENDIF

loBdP7m = CreateObject('Chilkat.BinData')
lnSuccess = loEntry.UnzipToBd(loBdP7m)
IF (lnSuccess = 0) THEN
    ? loEntry.LastErrorText
    RELEASE loHttp
    RELEASE loBdZip
    RELEASE loZip
    RELEASE loEntry
    RELEASE loBdP7m
    CANCEL
ENDIF

* Verify the signature and extract the XML from the p7m
* If the signature verification is successful, the contents of bdP7m are unwrapped and what
* remains is the original signed document..
loCrypt = CreateObject('Chilkat.Crypt2')
lnSuccess = loCrypt.OpaqueVerifyBd(loBdP7m)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loHttp
    RELEASE loBdZip
    RELEASE loZip
    RELEASE loEntry
    RELEASE loBdP7m
    RELEASE loCrypt
    CANCEL
ENDIF

? "The signature was verified."

* The bdp7m now contains the XML that was originally signed.
? "Original XML:"
? loBdP7m.GetString("utf-8")

RELEASE loHttp
RELEASE loBdZip
RELEASE loZip
RELEASE loEntry
RELEASE loBdP7m
RELEASE loCrypt