Exportar recursos e carregar para a nuvem

Estrutura

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

Tipo

Função

Descrição

Esta função irá exportar todos os recursos que correspondam ao sSQL (SQL para uma cláusula WHERE na tabela GAGES) e carregá-los no serviço na nuvem indicado em sService. Se o parâmetro sFolder estiver definido, os ficheiros ZIP resultantes serão carregados para esta pasta na nuvem (deve estar um nível acima do diretório raiz). Se a pasta sFolder estiver vazia, os ficheiros serão carregados para o diretório raiz. Se apenas se pretender um subconjunto de eventos, é possível especificar o sEventFilter (SQL para uma cláusula WHERE nas tabelas EVENTS). A variável sLocalArchiveFolder pode ser definida com um diretório local opcional para onde os ficheiros ZIP devem ser copiados antes do envio. Defina bOverwrite se pretender que o ficheiro seja primeiro eliminado da nuvem antes do carregamento, caso já exista na nuvem com esse nome. A função irá devolver um resumo das ações concluídas. Pesquise o texto «ERROR» para verificar se ocorreram erros durante o download ou a importação. Após a execução, se não existir nenhum token para o serviço na nuvem E o parâmetro bAuth for True, a página de início de sessão do serviço será apresentada numa janela do navegador. Este token será guardado para sessões futuras.

Parâmetros: 7

sSQL = consulta SQL para uma cláusula WHERE na tabela GAGES, relativa a todos os ativos que devem ser exportados. Este SQL NÃO deve começar com a palavra WHERE (esta será adicionada automaticamente pela IndySoft)

sEventFilter = Se pretender exportar apenas um subconjunto de eventos juntamente com os ativos, introduza aqui o SQL para a cláusula WHERE na tabela EVENTS. Esta instrução SQL NÃO deve começar com a palavra WHERE (esta será adicionada automaticamente pela IndySoft).

sService = o nome do serviço em nuvem online. Os valores aceitáveis são: «BOX» (box.com) e «DROPBOX» (dropbox.com)

sFolder = Pasta online opcional para onde os ficheiros devem ser carregados. Esta pasta deve estar localizada um nível acima do diretório raiz. Se este parâmetro estiver vazio, todos os ficheiros ZIP serão carregados para o diretório raiz do serviço na nuvem.

sLocalArchiveFolder = Defina este parâmetro opcional com o nome de um diretório local para onde os ficheiros ZIP devem ser copiados antes do envio.

bOverwrite = Se for TRUE e já existir um ficheiro zip com o mesmo nome na localização na nuvem, este será primeiro eliminado antes de o ficheiro zip mais recente ser carregado.

bAllowAuth = Se os tokens anteriores guardados na base de dados não forem encontrados e/ou não permitirem o acesso ao serviço online, este parâmetro determina se deve ser apresentada uma janela do navegador para permitir a introdução das credenciais. Se este script se destinar a ser executado numa configuração automatizada/sem supervisão, este parâmetro deve ser definido como False.

Valor de retorno

Texto

Exemplos

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", "", "", "Resultados da exportação e do upload", "", "CLOUD", sResult, False, False)

if Pos("ERROR:", sResult) = 0 then

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

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

End If |