Fastreport - Impressão de campo EDIT
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
Curtidas 0
Melhor post
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)
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
23/03/2014
Olá bom dia Ricardo Cardoso, era exatamente isso que estava precisando, funcionou perfeitamente. Muito Obrigado!!!
GOSTEI 0
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();
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
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();
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
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.
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
23/03/2014
Blz!
GOSTEI 0
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
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
23/03/2014
resolvi galera a expressão de minha variavel no Fxreport não estava correta, resolvido :) deu certo!
GOSTEI 0