Relatório de Agenda e Itens Agendados
Na verdade minha dificuldade é a seguinte, tenho tres tabelas no Banco InterBase uma chamada Agenda, uma Chamada ItemAgenda outra chamada Agendamento
Preciso em um relatório exibir para Cada Agenda Vários Itens Agendados e Vários Agendamentos, quando trabalho apenas o Tens Agendados é fácil, mas quando tenho outra tabela não consigo exibir os Agendamentos.
Algém poderia me dizer como posso fazer isso?
Estou trabalhando com o QuickRep, tenho 3 IBQuerys na tela sendo
IBQuery1 - Agenda
IBQuery2 - ItemAgenda
IBQuery3 - Agendamento
No DataSet do QuickRep liguei o IBQuery1
no botão de impressão meu código é:
FrmRelatorioAgenda:=TFrmRelatorioAgenda.Create(Self);
FrmRelatorioAgenda.IBQuery1.Close;
FrmRelatorioAgenda.IBQuery1.SQL.Clear;
FrmRelatorioAgenda.IBQuery1.SQL.Add('Select*From Tarefas '+Pes);
FrmRelatorioAgenda.IBQuery1.Open;
FrmRelatorioAgenda.IBQuery2.Close;
FrmRelatorioAgenda.IBQuery2.SQL.Clear;
FrmRelatorioAgenda.IBQuery2.SQL.Add('Select * from ItemTarefa where CodAgenda='''+FrmRelatorioAgenda.IBQuery1Codigo.Value+'''');
FrmRelatorioAgenda.IBQuery2.Open;
FrmRelatorioAgenda.IBQuery3.Close;
FrmRelatorioAgenda.IBQuery3.SQL.Clear;
FrmRelatorioAgenda.IBQuery3.SQL.Add('Select * from Agendamento where CPF='''+FrmRelatorioAgenda.IBQuery1CodFunc.Value+'''');
FrmRelatorioAgenda.IBQuery3.Open;
FrmRelatorioAgenda.QuickRep1.Preview;Discussão (4)
Carregando comentários...