Esporta risorse e carica su cloud

Struttura

ExportAssetsAndUploadToCloud(sSQL, sEventFilter, sService, sFolder, sLocalArchiveFolder: Text; bOverwrite, bAllowAuth: Boolean): Text

Tipo

Funzione

Descrizione

Questa funzione esporterà tutte le risorse che corrispondono a sSQL (query SQL per una clausola WHERE nella tabella GAGES) e le caricherà sul servizio cloud specificato in sService. Se il parametro sFolder è impostato, i file ZIP risultanti verranno caricati in questa cartella nel cloud (deve trovarsi un livello sopra la directory principale). Se la cartella sFolder è vuota, i file verranno caricati nella directory principale. Se si desidera selezionare solo un sottoinsieme di eventi, è possibile specificare sEventFilter (SQL per una clausola WHERE nelle tabelle EVENTS). È possibile impostare sLocalArchiveFolder indicando una directory locale facoltativa in cui copiare i file ZIP prima del caricamento. Imposta l'opzione "Sovrascrivi" se desideri che il file venga prima eliminato dal cloud prima del caricamento, nel caso in cui esista già nel cloud con lo stesso nome. La funzione restituirà un riepilogo delle azioni completate. Cerca il termine «ERROR» per verificare se si sono verificati errori durante il download o l'importazione. All'esecuzione, se non esiste alcun token per il servizio cloud E il parametro bAuth è impostato su True, verrà visualizzata la schermata di accesso al servizio in una finestra del browser. Questo token verrà memorizzato per le sessioni future.

Parametri: 7

sSQL = query SQL per una clausola WHERE nella tabella GAGES relativa a tutte le risorse da esportare. Questo codice SQL NON deve iniziare con la parola WHERE (che verrà aggiunta automaticamente da IndySoft)

sEventFilter = Se desideri esportare solo un sottoinsieme di eventi insieme alle risorse, inserisci qui il codice SQL per la clausola WHERE nella tabella EVENTS. Questo codice SQL NON deve iniziare con la parola WHERE (questa verrà aggiunta automaticamente da IndySoft).

sService = il nome del servizio cloud online. I valori ammessi sono: 'BOX' (box.com) e 'DROPBOX' (dropbox.com)

sFolder = Cartella online facoltativa in cui caricare i file. Questa cartella dovrebbe trovarsi un livello sopra la directory principale. Se questo parametro è vuoto, tutti i file ZIP verranno caricati nella directory principale del servizio cloud.

sLocalArchiveFolder = Impostare questo parametro facoltativo con il nome di una directory locale in cui copiare i file ZIP prima del caricamento.

bOverwrite = Se il valore è TRUE e nella posizione sul cloud esiste già un file zip con lo stesso nome, questo verrà prima eliminato prima che il file zip più recente venga caricato.

bAllowAuth = Se i token precedentemente salvati nel database non vengono trovati e/o non consentono l'accesso al servizio online, questo parametro determina se deve essere visualizzata una finestra del browser per consentire l'inserimento delle credenziali. Se questo script è destinato a essere eseguito in un ambiente automatizzato/senza supervisione, questo parametro deve essere impostato su False.

Valore restituito

Testo

Esempi

sService = "DROPBOX" sCompany = "TEST COMPANY"

sArchiveDirectory = "C:\Temp\Uploaded" & sCompany

if tdDoSQLRecords(1, "SELECT VARIABLE_DATE FROM COMPANY_VARS WHERE COMPANY = '" & sCompany &

"' AND VARIABLE_NAME = 'LAST EXPORT DATE'") then

dtCompanyLastExport = tdFieldByNameAsDateTime(1, "VARIABLE_DATE")

Else

dtCompanyLastExport = 0 RunSQL("INSERT INTO COMPANY_VARS (COMPANY, VARIABLE_NAME) VALUES ('" & sCompany & "', 'LAST EXPORT DATE')") End If

dtExport = Now

; sResult = ExportAssetsAndUploadToCloud("COMPANY = '" & sCompany & "' AND LAST_MODIFIED_DATE >= '" &

FormatDateTimeForSQL(dtCompanyLastExport) & "'", "(EVENTS.EVENT_DATE > '01/01/2013 12:00:00 AM')", sService,

sCompany, sArchiveDirectory, True, True)

DebugLog(sResult)

SendEMail("myemail@notreal.com", "", "", "Risultati di esportazione e caricamento", "", "CLOUD", sResult, False, False)

se Pos("ERROR:", sResult) = 0 allora

RunSQL("UPDATE COMPANY_VARS SET VARIABLE_DATE = '" & FormatDateTimeForSQL(dtExport) & "' WHERE COMPANY = '" &

sCompany & "' AND " & "VARIABLE_NAME = 'LAST EXPORT DATE'")

End If |