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.
Comentários
0 comentário
Por favor, entre para comentar.