Lianja

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). Lianja

llSuccess = .F.

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

loHttp = createobject("CkHttp")

// 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("CkBinData")
llSuccess = loHttp.QuickGetBd("https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/getZipByFilename?filename=IT01879020517_jtlk1.xml.p7m",loBdZip)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loBdZip
    return
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
    return
endif

// Open the zip and extract the .p7m
loZip = createobject("CkZip")

llSuccess = loZip.OpenBd(loBdZip)
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loHttp
    release loBdZip
    release loZip
    return
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
    return
endif

// Alternatively, we can unzip into memory..
loEntry = createobject("CkZipEntry")
llSuccess = loZip.EntryAt(0,loEntry)
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loHttp
    release loBdZip
    release loZip
    release loEntry
    return
endif

loBdP7m = createobject("CkBinData")
llSuccess = loEntry.UnzipToBd(loBdP7m)
if (llSuccess = .F.) then
    ? loEntry.LastErrorText
    release loHttp
    release loBdZip
    release loZip
    release loEntry
    release loBdP7m
    return
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("CkCrypt2")
llSuccess = loCrypt.OpaqueVerifyBd(loBdP7m)
if (llSuccess = .F.) then
    ? loCrypt.LastErrorText
    release loHttp
    release loBdZip
    release loZip
    release loEntry
    release loBdP7m
    release loCrypt
    return
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