Ir para conteúdo
Fórum Script Brasil
  • 0

O Real Do Sobrenatural (AUTORESOLVIDO)


Alessandro

Pergunta

procedure TfmRelAt.FormCreate(Sender: TObject);
var Total : Integer;
begin
Total := 0;
modProjeto.tbCadAt.First;  // Posiciona no primeiro registro da tabela
while not modProjeto.tbCadAt.Eof do  // Enquanto não for o fim da tabela
begin
  //Localiza o registro de cada linha na tabela e acumula
  modProjeto.tbCadAt.Locate('Quantidade',modProjeto.tbCadAtQuantidade.Value,[]);
  Total := modProjeto.tbCadAtQuantidade.Value + Total;
  if not modProjeto.tbCadAt.Eof then
    begin
       dataProjeto.modProjeto.tbCadAt.Next;
    end;
end;
  qrLabel5.Caption := inttostr(Total);
end;

Galera é o seguinte :

1º Eu fiz um relatório para contar o número de ligações que cada Assistência Técnica teve em um Script de Atendimento.

2º O Relatório está funcionando perfeitamente...se eu finalizo a ligação, é acrecentado + 1 na qtde de ligações daquela determinada At e aparece no relatório.

3º Fiz este código aí para saber o total de ligações, e o problema é o seguinte :

Quando meus registro de ligações possui qtde diferente, por exemplo:

Assistência A = 1

Assistência B = 2

Assistência C = 3

O relatório conta e gera normalmente.

Mas quando há qtde de ligações iguais, por exemplo :

Assistência A = 1

Assistência B = 2

Assistência C = 2

O sistema para de responder e parece que fica no "while infinito".

Alguém sabe me dizer porque ele não acumula valores iguais ?

Banco de dados : Paradox wink.gif

Delphi 6

O tipo da Quantidade é "Long Integer"

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

procedure TfmRelAt.FormCreate(Sender: TObject);
var Total : Integer;
begin
  Total := 0;
  modProjeto.tbCadAt.First;  // Posiciona no primeiro registro da tabela
  while not modProjeto.tbCadAt.Eof do  // Enquanto não for o fim da tabela
    begin
     query1.active := false;
     query1.sql.clear;
     query1.sql.add('SELECT Quantidade FROM dbCadAt.db');
     query1.active:= true;
     Total := modProjeto.tbCadAtQuantidade.Value + Total;
     modProjeto.tbCadAt.Next;
    end;
     qrLabel5.Caption := inttostr(Total);
end;

Eu usei a query e deu certo......Fechou biggrin.gif

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...