Eduardo Silva dos Santos, rssrs
Por um momento achei que vc estava tendo uma crise de identidade. rsrsrs
Pessoal da lista, que ainda trabalha com paradox, por favor, mudem, para
algo decente. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos <[EMAIL PROTECTED]> escreveu:
>
> 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]<edukobra%40yahoo.com.br>>
> 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] <eduardo.drd%40gmail.com>
> Site: http://www.drdsistemas.com/
> .......................................................
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br
[As partes desta mensagem que não continham texto foram removidas]
