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 ?
Pergunta
Alessandro
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
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