Imprimir no FastReport 5.0

Delphi

Banco de Dados

Firebird

06/04/2018

Boa tarde amigos
tenho um form que traz em um grid os resultados de uma consulta feita no meu banco de dados... até ai tudo bem
criei um relatorio no fastreport tudo certinho e setei o dataset tudo certinho só que sempre que eu gero o relatorio ele fica em branco.

entao resolvi colocar a data de consulta dos dados fixa para testar (porque essa data eu pego de um datetimepicker) quando executei novamente os dados apareceram .
os amigos podem me ajudar a resolver isso?
segue o codigo:


procedure TFRMListMed.Button1Click(Sender: TObject);
begin
IBQlistaclientes.Close;
IBQlistaclientes.ParamByName('Dtinicial').AsDate:=(DateTimePicker1.Datetime);
IBQlistaclientes.ParamByName('Dtfinal').AsDate:=(DateTimePicker2.Datetime);
IBQlistaclientes.ParamByName('Especialidade').AsString:= Edit2.Text;
IBQlistaclientes.ParamByName('CRMmedico').AsString:= Edit1.Text;
IBQlistaclientes.Open;
end;

procedure TFRMListMed.Button2Click(Sender: TObject);
begin
close;
end;


procedure TFRMListMed.Button3Click(Sender: TObject);

begin
path := ExtractFilePath (Application.ExeName);
frxReport1.LoadFromFile(path + 'relatorio clientes-medicos.fr3');
frxReport1.ShowReport; 

end;

procedure TFRMListMed.FormShow(Sender: TObject);
begin
      dia:= formatdatetime('dd',date);
      mes:= formatdatetime('mm',date);
      ano:= formatdatetime('yyyy',date);
      data:= strtodate(dia+'/'+mes+'/'+ano);
      datetimepicker2.Date:= data;
      datetimepicker1.Date:= data;
end;

end.



no aguardo da ajuda dos amigos
Reginaldo Souza

Reginaldo Souza

Curtidas 0

Melhor post

Raimundo Pereira

Raimundo Pereira

07/04/2018

path := ExtractFilePath (Application.ExeName)+'relatorio clientes-medicos.fr3';
if FileExists(path) then
begin
frxReport1.LoadFromFile(path);
frxReport1.PrepareReport();;
frxReport1.ShowReport;
end
else
begin
ShowMessage('FR3 , não encontrado revise o caminho ['+path+']');
end;
GOSTEI 1

Mais Respostas

Reginaldo Souza

Reginaldo Souza

06/04/2018

Meu amigo P2 muito obrigado pela ajuda

caso resolvido.

Deus te abençoe amigo
GOSTEI 0
POSTAR