Fastreport - Impressão de campo EDIT

Delphi

23/03/2014

Olá pessoal, estou com um problema com o FastReport 4.0 usando o Delphi XE5, no caso estou fazendo uma impressão de um determinado formulário que busca no BD os campos que estou precisando, ai criei uma função para pegar a data de nascimento, transformar em anos, e depois colocar em um edit, só que não sei como fazer para aparecer esse campo de IDADE no fastreport. Alguém tem uma solução?
Jefferson Pereira

Jefferson Pereira

Curtidas 0

Melhor post

Ricardo

Ricardo

23/03/2014

Deixa ver se eu entendi, vc quer enviar valor de um Edit para o FasReport?

Se sim então vc tem que fazer o seguinte:

No FastReport vc vai criar uma variável que vai receber o valor do Edit e posicionar essa variável no lugar que vc deseja no relatório. Aí basta no formulário no momento que vc chama relatório enviar o Edit para a variável: frxReport1.Variables['variavel'] := QuotedStr(edit.text)
GOSTEI 1

Mais Respostas

Jefferson Pereira

Jefferson Pereira

23/03/2014

Olá bom dia Ricardo Cardoso, era exatamente isso que estava precisando, funcionou perfeitamente. Muito Obrigado!!!
GOSTEI 0
Rodrigo Adriano

Rodrigo Adriano

23/03/2014

aqui não deu certo :(

tentei assim
frmdtmdados.frxrrelextratogeraldata.LoadFromFile(vcaminhoexe+'\relextratogeraldata.fr3');
frmdtmdados.frxrrelextratogeraldata.ShowReport();
frmdtmdados.frxrrelextratogeraldata.Variables['vdtinicial']:=quotedstr(edtdatainicial.text);
frmdtmdados.frxrrelextratogeraldata.Variables['vdtfinal']:=quotedstr(edtdatafinal.Text);

e assim.
frmdtmdados.frxrrelextratogeraldata.Variables['vdtinicial']:=quotedstr(edtdatainicial.text);
frmdtmdados.frxrrelextratogeraldata.Variables['vdtfinal']:=quotedstr(edtdatafinal.Text);
frmdtmdados.frxrrelextratogeraldata.LoadFromFile(vcaminhoexe+'\relextratogeraldata.fr3');
frmdtmdados.frxrrelextratogeraldata.ShowReport();
GOSTEI 0
Ricardo

Ricardo

23/03/2014

aqui não deu certo :(

tentei assim
frmdtmdados.frxrrelextratogeraldata.LoadFromFile(vcaminhoexe+'\relextratogeraldata.fr3');
frmdtmdados.frxrrelextratogeraldata.ShowReport();
frmdtmdados.frxrrelextratogeraldata.Variables['vdtinicial']:=quotedstr(edtdatainicial.text);
frmdtmdados.frxrrelextratogeraldata.Variables['vdtfinal']:=quotedstr(edtdatafinal.Text);

e assim.
frmdtmdados.frxrrelextratogeraldata.Variables['vdtinicial']:=quotedstr(edtdatainicial.text);
frmdtmdados.frxrrelextratogeraldata.Variables['vdtfinal']:=quotedstr(edtdatafinal.Text);
frmdtmdados.frxrrelextratogeraldata.LoadFromFile(vcaminhoexe+'\relextratogeraldata.fr3');
frmdtmdados.frxrrelextratogeraldata.ShowReport();


Rodrigo, não deu certo porque esta tudo fora de lugar. O correto seria:

frxReport1.LoadFromFile(vcaminhoexe+'\relextratogeraldata.fr3');
frxReport1.Variables['vdtinicial']:=quotedstr(edtdatainicial.text);
frxReport1.Variables['vdtfinal']:=quotedstr(edtdatafinal.Text);
frxReport1.ShowReport();

Troque o frxReport1 pelo nome que vc deu ao componente e não coloque o nome do form antes.
GOSTEI 1
Rodrigo Adriano

Rodrigo Adriano

23/03/2014

Ricardo, show, funcionou perfeito.

seguinte, o frmdtmdados não é um formulário não, é o nome do meu dm, onde está localizado o frxreport.

só mudei a ordem conforme sua indicação e funcionou perfeito. parabéns. :)
e muito obrigado pela ajuda.
GOSTEI 0
Ricardo

Ricardo

23/03/2014

Blz!
GOSTEI 0
Rafael Fernandes

Rafael Fernandes

23/03/2014

Alguem pode me ajudar ? oque estou fazendo errado, criei a Variavel no Frxreport chamada ['Edt_Responsavel'] e segui essa seguinte regra




procedure TFrmChamado.BtnImprimeClick(Sender: TObject); // BOTÃO IMPRIMIR
begin

frxReport1.LoadFromFile('C:\Users\Rafael.ARAYA\Desktop\Projetos - Delphi XE8\Chamado\FRelatorio.fr3');
frxReport1.PrepareReport(True);
FrxReport1.variables['Edt_Responsavel']:= QuotedStr(Edtresponsavel.Text);
frxReport1.ShowReport;


end;


onde estou errando pois quando mando imprimir os campos no relatorio estão vazios.?

att
GOSTEI 0
Rafael Fernandes

Rafael Fernandes

23/03/2014

resolvi galera a expressão de minha variavel no Fxreport não estava correta, resolvido :) deu certo!
GOSTEI 0
POSTAR