Report Builder: Passando parâmetro para arquivo RTM

Este post tem o objetivo de ensinar como carregar dados externos no RTM via código Delphi, usando os recursos disponíveis na aba cálculo no editor do Report Builder e um arquivo .txt. Ele pode ser utilizado em casos de customizações na impressão dos componentes Tecnospeed.

Utilizando a classe do tipo TStrings no Delphi é possível gerar arquivos texto e o conteúdo
desejado, como no exemplo abaixo:

var
  x:TStringList; //Declara a variável do tipo TStringList
begin
  x:=TStringList.create; //Instancia a classe TString
  x.add(DataSaida=27/10/2009); //Seta a DataSaida para a variável
  x.add(HoraSaida=10:10); //Seta a HoraSaida para a variável
  x.SaveToFile(c:\parametros.txt); //Salva valores setados acima em um arquivo texto
  x.free; //Libera a classe TStringList
end; 

Segue abaixo um passo a passo de como utilizar valores gravados em um arquivo texto dentro do Report Builder, para ser utilizado em customizações do DANFE.

Passo 1

Execute o método para edição do componente para chamar o editor do Report Builder. Com o editor do Report Builder aberto (como mostra a figura abaixo), adicione dois labels no local onde deseja apresentar o conteúdo, após adicionar o label veja nas propriedades o nome correto do objeto.

Passo 2

Selecione a aba Cálculo, clique em Report, na lista de eventos clique com o botão direito sobre o evento OnStartPage, selecione a opção Novo e adicione o código para ler o arquivo de texto, como mostra a figura abaixo:

Passo 3

Após inserir o código no editor do DANFE gere o arquivo texto em um projeto Delphi, e se precisar, coloque mais parâmetros seguindo o modelo da figura abaixo:

Ao final do passo 3, já podemos rodar o relatório do DANFE e verificar que os valores do arquivo texto são exibidos na impressão.