Fórum Imprimir no FastReport 5.0 #592249
06/04/2018
0
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:
no aguardo da ajuda dos 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
Curtir tópico
+ 0
Responder
Post mais votado
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;
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;
Raimundo Pereira
Responder
Gostei + 1
Mais Posts
07/04/2018
Reginaldo Souza
Meu amigo P2 muito obrigado pela ajuda
caso resolvido.
Deus te abençoe amigo
caso resolvido.
Deus te abençoe amigo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)