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]> 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]