F�rum Fazer relat�rios agrupados no QReport #357222

16/04/2008

Ol� pessoal, estou realizando uma pesquisa de aniversariantes e preciso que ele seja enviado para o QReport separando por m�s, eu fiz uma Procedure enviando para txt, o resultado seria mais ou menos o mesmo, mas queria enviar para o QReport ao inv�s de txt, o c�digo est� assim

procedure Tfrm_niver.Pesquisa_Mensal;
var
  a: TextFile;
  Linha1, campo1, campo2, campo3 : string;
begin
AssignFile(a, �C:\�+Edit1.Text+�.txt�);
Rewrite(a);
Writeln(a, �Codigo�+�  �+�Nome�+�                    �+�Data Nascimento�);
Writeln(a,);
//=============================================================================\\   
//-------------------------------JANEIRO---------------------------------------\\   
  ZQuery_niver.Active:= False;                                                      
  ZQuery_niver.SQL.Clear;                                                           
  ZQuery_niver.SQL.Add(�select id_cliente, nome, telefone, email, nascimento �);    
  ZQuery_niver.SQL.Add(�from clientes where extract(month from nascimento)=1�);     
  ZQuery_niver.Active:=True;                                                        
if(ZQuery_niver.RecordCount>0)then begin                                            
    Writeln(a);                                                                    
    Writeln(a,(�=========================JANEIRO==============================�));  
    Writeln(a);                                                                     
  while not ZQuery_niver.Eof do begin                                              
     campo1 := AjustaStr(ZQuery_niver.FieldByName(�id_cliente�).AsString,6);       
     campo2 := AjustaStr(ZQuery_niver.FieldByName(�nome�).AsString,23);             
     campo3 := ZQuery_niver.FieldByName(�nascimento�).AsString;                  
     Linha1 := campo1+�  �+campo2+� �+campo3;                                       
     Writeln(a, Linha1);                                                            
     ZQuery_niver.Next;                                                             
     end                                                                            
     end                                                                            
else begin                                                                          
    Writeln(a);
    Writeln(a);                                                                     
    Writeln(a,(�                         JANEIRO                              �));  
    Writeln(a,(�Nenhum aniversariante cadastrado para o m�s de Janeiro�));
    Writeln(a);                                                                    
end;                                                                                
//=============================================================================\\  
//-------------------------------FEVEREIRO-------------------------------------\\
  ZQuery_niver.Active:= False;
  ZQuery_niver.SQL.Clear;
  ZQuery_niver.SQL.Add(�select id_cliente, nome, telefone, email, nascimento �);
  ZQuery_niver.SQL.Add(�from clientes where extract(month from nascimento)=2�);
  ZQuery_niver.Active:=True;
if(ZQuery_niver.RecordCount>0)then begin
    Writeln(a);
    Writeln(a);
    Writeln(a,(�=========================FEVEREIRO============================�));
    Writeln(a);
  while not ZQuery_niver.Eof do begin
     campo1 := AjustaStr(ZQuery_niver.FieldByName(�id_cliente�).AsString,6);
     campo2 := AjustaStr(ZQuery_niver.FieldByName(�nome�).AsString,23);
     campo3 := ZQuery_niver.FieldByName(�nascimento�).AsString;
     Linha1 := campo1+�  �+campo2+� �+campo3;
     Writeln(a, Linha1);
     ZQuery_niver.Next;
     end;
     end
     else begin
    Writeln(a);
    Writeln(a);
    Writeln(a,(�                       FEVEREIRO                              �));
    Writeln(a,(�Nenhum aniversariante cadastrado para o m�s de Fevereiro�));
    Writeln(a);
     end;

E por a� vai, at� Dezembro, N�o sei como fazer este procedimento, de separar m�s a m�s, colocando a descri��o do m�s e passando um tra�o, o que sai no txt � assim

Codigo Nome Data Nascimento =========================JANEIRO============================== 4 JOAO PAULO 01/01/2004 10 AMADEU SILV�RIO 01/01/2001 11 HENRIQUE MARINHO 02/01/1999 =========================FEVEREIRO============================ 5 MARCELO ANTUNES 02/02/1995 MARCO Nenhum aniversariante cadastrado para o m�s de Mar�o =========================ABRIL=============================== 3 CARLOS 01/04/1979

Era assim que gostaria que ficasse, s� que, no QReport, ou pode ser no Fortes Report, mas nesse eu nunca trabalhei!!!

Taraciuk

Curtir t�pico

+ 0

Responder