Amigo faz assim:
select extract( month from DT_ENTRADA), sum(NR_QUANTIDADE) from <tabela>
group by extract( month from DT_ENTRADA)
order by extract( month from DT_ENTRADA)
pronto ta ai, espero te ajudado
Sergio Kawahara
----- Original Message -----
From: Eduardo Silva dos Santos
To: delphi-br@yahoogrupos.com.br
Sent: Monday, November 19, 2007 3:45 PM
Subject: Re: [delphi-br] Agrupar por mês, serviço e quantidade
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum banco
de dados SQL?
Em 19/11/07, Eduardo Silva <[EMAIL PROTECTED]> escreveu:
>
> Galera, tenho uma tabela (paradox) onde eu preciso agrupar a quantidade
> por mês e serviço realizado.
>
> Tenho 3 serviços: Visita, Serviço e Entrega.
>
> Estou com o laço abaixo mas ele esta dando erro e não esta agrupando por
> mês, alguém pode me dar uma mão?
>
> Obrigado
>
> sServico := '';
> while not qrySIAE0501.Eof do
> begin
> sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
> while (not qrySIAE0501.Eof) and (sServico =
qrySIAE0501.FieldByName('NM_SERVICO').AsString)
> do
> begin
> sMes := FormatDateTime('mmmm', qrySIAE0501.FieldByName
> ('DT_ENTRADA').AsDateTime);
> iTotMes := 0;
> while (not qrySIAE0501.Eof) and
> (sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
> (sMes = FormatDateTime('mmmm',
qrySIAE0501.FieldByName('DT_ENTRADA').AsDateTime))
> do
> begin
> iTotMes := iTotMes + qrySIAE0501.FieldByName('NR_QUANTIDADE').AsInteger;
> qrySIAE0501.Next;
> end;
> tblSIAETEMP.Append;
> tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
> tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
> tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
> tblSIAETEMP.Post;
> end;
> end;
> tblSIAETEMP.First;
>
> ---------------------------------
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
.......................................................
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
__________ NOD32 2669 (20071119) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
