Alguém poderia ajudar ?
Caros amigos,
Tenho o seguinte problema.
Pelo menu principal do programa eu chamo o meu relatório sa seguinte forma:
Application.CreateForm(TFrelclassiCargo, FrelclassiCargo);
Try
FrelclassiCargo.QuickRep1.Preview;
finally
FrelclassiCargo.Release;
FreeAndNil(FrelclassiCargo);
End;
No meu relatorio no evento QuickRep1BeforePrint tenho uma rotina que
verifica que filtra um status de um registro no banco de dados. Dependendo
se o status estiver vazio não há nenhum relatório a ser impresso. Minha
pergunta é:
Como fazer para emitir um aviso ao usuário que não tem nenhum relatório a
ser visualizado e fechar o Form ou QuickRep e voltar a tela do menu
principal.
Mantmor
Tenho o seguinte problema.
Pelo menu principal do programa eu chamo o meu relatório sa seguinte forma:
Application.CreateForm(TFrelclassiCargo, FrelclassiCargo);
Try
FrelclassiCargo.QuickRep1.Preview;
finally
FrelclassiCargo.Release;
FreeAndNil(FrelclassiCargo);
End;
No meu relatorio no evento QuickRep1BeforePrint tenho uma rotina que
verifica que filtra um status de um registro no banco de dados. Dependendo
se o status estiver vazio não há nenhum relatório a ser impresso. Minha
pergunta é:
Como fazer para emitir um aviso ao usuário que não tem nenhum relatório a
ser visualizado e fechar o Form ou QuickRep e voltar a tela do menu
principal.
Mantmor
Anonymous
Curtidas 0
Respostas
Dor_poa
25/02/2003
Ja tentou nesta mesma rotina tu dar um showmessage e mandar finalizar o form?
ex.:
if tabel.recordcount = 0 then
begin
Showmessage(´nao tem´);
Close;
end;
Obs.: Estou dizendo para experimentar, pois nao sei tu ira conseguir fechar o form.
ex.:
if tabel.recordcount = 0 then
begin
Showmessage(´nao tem´);
Close;
end;
Obs.: Estou dizendo para experimentar, pois nao sei tu ira conseguir fechar o form.
GOSTEI 0