Histórico da Página
...
Variável | Tipo do parâmetro | Tipo do dado | Descrição | |||||
---|---|---|---|---|---|---|---|---|
zipFileName | INPUT | CHARACTER | Endereço completo do arquivo .ZIP a ser gerado. Exemplo: c:\tmp\teste.zip | |||||
tt-listFiles cFile lSearch | INPUT | TEMP-TABLE CHARACTER X(200) LOGICAL
| Tabela temporária que irá armazenar as informações referentes a cada um dos arquivos que deve ser inserido no arquivo .ZIP gerado cFile: indica o nome do arquivo que deve ser inserido no ZIP gerado. lSearch: indica se o arquivo informado foi encontrado pelo utilitário. Valor padrão é false. | |||||
password | INPUT | CHARACTER | Senha de acesso aos arquivos do .ZIP gerado. Este parâmetro é utilizado apenas na procedure interna zipFilesEncryp. | |||||
lsobrescreve | INPUT | LOGICAL | Indica se o utilitário deve sobrescrever o arquivo ZIP caso ele já exista. | |||||
tt-erros Cod-Erro Desc-Erro | OUTPUT | TEMP-TABLE INTEGER CHARACTER | Tabela temporária que irá armazenar os dados referentes aos erros encontrados na manipulação dos dados das tabelas de entrada. Cod-Erro: número do erro. Seqüencial dentro da temp-table. Desc-Erro: descrição do erro.
|
Informações | ||
---|---|---|
| ||
Após a chamada feita ao utilitário é imprescindível tratar os erros |
...
na temp-table tt-erros caso existam. |
Exemplo Padrão:
Bloco de código | ||
---|---|---|
| ||
{utp/ut-zip.i} define variable h-zip as handle no-undo. run utp/ut-zip.p persistent set h-zip. create tt-listfiles. assign tt-listfiles.cfile = "c:\temp\teste01.txt". create tt-listfiles. assign tt-listfiles.cfile = "c:\temp\teste02.txt". run zipfiles in h-zip (input "c:\temp\teste01.zip", input table tt-listfiles, input true, output table tt-erros). for each tt-erros: disp tt-erros. end. run zipfilesencrypt in h-zip (input "c:\temp\teste02.zip", input table tt-listfiles, input "senha", input false, output table tt-erros). for each tt-erros: disp tt-erros. end. delete procedure h-zip. |
...