Fórum arquivo atual no fastreport #552937
02/05/2016
0
Como faço para imprimir apenas um registro atual no fast report
Tulio Santana
Curtir tópico
+ 0
Responder
Posts
12/05/2016
Dorivan Sousa
filtro
Responder
Gostei + 0
12/05/2016
Raimundo Pereira
Exemplo :
Dm.tabela.close;
Dm.tabela.sql.clear;
Dm.tabela.sql.text:='SELECT * FROM TABELA_PRODUTO WHRE ID=1';
Dm.tabela.sql.OPEN;
IF Dm.tabela.recordcount=0 then
begin
Showmessage('Nenhum Registro encontrado, Impressão não autorizada');
end
else
begin
Seu_relatório.preparereports();
Seu_relatório.Showreports();
end;
end;
Espero que ajude.
Dm.tabela.close;
Dm.tabela.sql.clear;
Dm.tabela.sql.text:='SELECT * FROM TABELA_PRODUTO WHRE ID=1';
Dm.tabela.sql.OPEN;
IF Dm.tabela.recordcount=0 then
begin
Showmessage('Nenhum Registro encontrado, Impressão não autorizada');
end
else
begin
Seu_relatório.preparereports();
Seu_relatório.Showreports();
end;
end;
Espero que ajude.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)