(PowerBuilder) Aruba Fatturazione Elettronica Get Zip by Filename

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

For more information, see https://fatturazioneelettronica.aruba.it/apidoc/docs_EN.html#_getzipbyfilename

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

integer li_rc
oleobject loo_Http
integer li_Success
oleobject loo_BdZip
integer li_RespStatusCode
oleobject loo_Zip
integer li_NumUnzipped
oleobject loo_Entry
oleobject loo_BdP7m
oleobject loo_Crypt

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat_9_5_0.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.
loo_Http.AuthToken = "NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="
loo_Http.SetRequestHeader("Accept","application/json")

loo_BdZip = create oleobject
li_rc = loo_BdZip.ConnectToNewObject("Chilkat_9_5_0.BinData")

li_Success = loo_Http.QuickGetBd("https://ws.fatturazioneelettronica.aruba.it/services/invoice/in/getZipByFilename?filename=IT01879020517_jtlk1.xml.p7m",loo_BdZip)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_BdZip
    return
end if

li_RespStatusCode = loo_Http.LastStatus
Write-Debug "response status code = " + string(li_RespStatusCode)

if li_RespStatusCode <> 200 then
    // If it failed, the response body will not contain the .zip file data.
    // It will likely contain an error message.
    Write-Debug loo_BdZip.GetString("utf-8")
    Write-Debug "Failed."
    destroy loo_Http
    destroy loo_BdZip
    return
end if

// Open the zip and extract the .p7m
loo_Zip = create oleobject
li_rc = loo_Zip.ConnectToNewObject("Chilkat_9_5_0.Zip")

li_Success = loo_Zip.OpenBd(loo_BdZip)
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Http
    destroy loo_BdZip
    destroy loo_Zip
    return
end if

// If desired, we can unzip to the filesystem..
li_NumUnzipped = loo_Zip.Unzip("c:/mySignedInvoices")
if li_NumUnzipped < 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Http
    destroy loo_BdZip
    destroy loo_Zip
    return
end if

// Alternatively, we can unzip into memory..
loo_Entry = loo_Zip.GetEntryByIndex(0)
if loo_Zip.LastMethodSuccess = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Http
    destroy loo_BdZip
    destroy loo_Zip
    return
end if

loo_BdP7m = create oleobject
li_rc = loo_BdP7m.ConnectToNewObject("Chilkat_9_5_0.BinData")

li_Success = loo_Entry.UnzipToBd(loo_BdP7m)
if li_Success = 0 then
    Write-Debug loo_Entry.LastErrorText
    destroy loo_Http
    destroy loo_BdZip
    destroy loo_Zip
    destroy loo_BdP7m
    return
end if

destroy loo_Entry

// 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..
loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat_9_5_0.Crypt2")

li_Success = loo_Crypt.OpaqueVerifyBd(loo_BdP7m)
if li_Success = 0 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Http
    destroy loo_BdZip
    destroy loo_Zip
    destroy loo_BdP7m
    destroy loo_Crypt
    return
end if

Write-Debug "The signature was verified."

// The bdp7m now contains the XML that was originally signed.
Write-Debug "Original XML:"
Write-Debug loo_BdP7m.GetString("utf-8")


destroy loo_Http
destroy loo_BdZip
destroy loo_Zip
destroy loo_BdP7m
destroy loo_Crypt