Apelou perdeu,
Em 19/11/07, Eduardo Silva <[EMAIL PROTECTED]> escreveu:
>
> Se alguém quiser me ajudar e solucionar o meu problema eu agradeço, não
> pedi a opinião de ninguem sobre que banco usar ou deixar de usar...cada um
> usa aquilo que lhe agrada e convém....sem recentimentos...
>
>
> 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]<eduardo.drd%40gmail.com>>
> 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>
> <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]
Site: http://www.drdsistemas.com/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
