arquivo atual no fastreport
Como faço para imprimir apenas um registro atual no fast report
Tulio Santana
Curtidas 0
Respostas
Dorivan Sousa
02/05/2016
filtro
GOSTEI 0
Raimundo Pereira
02/05/2016
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.
GOSTEI 0