Download de Arquivos - Web

Bom dia pessoal, este post é bem simples, iremos ver como podemos possibilitar a opção de "Salvar como" arquivos gerados por nossa aplicação para o usuário final.

Utilizando este método podemos controlar o tipo de documento que será salvo e o nome padrão que irá aparecer para o usuário. Dessa forma podemos gerar Logs Diários das alterações do Banco de Dados em .txt passando a Data como Nome Padrão. Em alguns casos necessitamos gerar documentos, por exemplo .txt, em nossa aplicação web para que o usuário possa exportar este arquivo gerado. Porém se utilizarmos uma variável do tipo blob, nossas ações estarão limitadas aos métodos default do Genexus. Assim, ao realizar a soliticação a opção de Salvar irá aparecer:

Neste exemplo adicionei um botão à minha WebPanel, com o Evento "Salvar", logo quando este botão for clicado o seguinte evento irá ocorrer:

Event 'Salvar'
 //=====Extensao do Arquivo=====
 &Extensao = 'txt'
 do case
  case &Extensao = 'txt'
   &contenttype = 'text/plain'
 endcase
 
 //=====Nome a ser gerado=====
 &Date = ServerDate()
 &Nome = &Date.Year().ToString().Trim()+PadL(&Date.Month().ToString().Trim(),2,'0')+
 PadL(&Date.Day().ToString().Trim(),2,'0')+'.txt'
 
 //=====Source do Arquivo=====
 &Arquivo = 'Destino\Teste.txt'
 
 RealizaDownload.Call(&contenttype,&Arquivo,&Nome)
EndEvent

No código acima, uma Procedure (RealizaDownload) é chamada passando 3 parâmetros:

1. contentType (tipo do documento) - aqui você encontra os tipos existentes (xls/doc/etc);
2. Arquivo (Caminho onde o arquivo se encontra);
3. Nome(Nome padrão do Documento a ser Salvo).

Já  procedure terá o seguinte código:

Rules:

parm(in:&contenttype,in:&filepath,in:&DocumentoNome); 

Events:

&HttpResponse.AddHeader('Content-Type', &contenttype)
&HttpResponse.AddHeader('Content-Disposition',"attachment;filename="+&DocumentoNome)
&HttpResponse.AddFile(&filepath)

Properties:

Main program: true
Call protocol: Http