ActiveDelphi

[mastersoftware]

Bom dia pessoal,
Gostaria de ajuda de vocês para a seguinte situação :

Tenho 3 laços.

While not Qry1.eof do
begin
Qry.fieldbyname('valortotal1').asfloat;
Qry1.next;
end;


While not Qry2.eof do
begin
Qry.fieldbyname('valortotal2').asfloat;
Qry2.next;
end;

While not Qry3.eof do
begin
Qry.fieldbyname('valortotal3').asfloat;
Qry3.next;
end;


Eu preciso coletar todos os valores de todos os campos, armazenar em um lugar e depois compara-los.
Exemplo :

if valortotal3 > valortotal2 and valortotal2 > valortotal1 then
showmessge('Compra OK')


Lembrando que poderei ter varios tipos e peças na mesma situação:

No resumo seria isso :

Peça 01 : 1,00 : 2,00 : 3,00 -- Compra OK, terceiro valor maior que o segundo, e segundo valor maior que o primeiro.

Peça 03 : 2,00 : 3,00 : 4,00 -- Compra OK, terceiro valor maior que o segundo, e segundo valor maior que o primeiro.

Peça 03 : 5,00 : 6,00 : 3,00 -- Compra negada terceiro valor menor que o segundo, e segundo valor maior que o primeiro.

Para compra ser verdadeira, o segundo valor tem que ser maior que o primeiro, o terceiro tem que ser maior que o segundo.

Ou seja eu precisaria incluir isso em uma matriz de dados, lembrando que o primeiro laço inclui todas peças de maneira distinta, e que o segundo laço deverá começar na posição 1, visto que trata-se do segundo preço da mesma peça, ou seja mesmo a primeira matriz de dados ja carregada, a segunda e terceira matriz, deverão iniciar da posição zero.

Falei em matriz pois vi que isso pode ma ajudar, eu até fiz uns testes, porém depois de muito quebrar a cabeça, não consegui um meio para fazer esta comparação, se alguém puder ajudar agradeço.

Obrigado à todos.

[mastersoftware]

Alguem galera ?

[ric_rio2]

Bom dia...
Uma pergunta...
Você precisa de todos os DADOS ou somente dos NEGADOS?

Se sim... posso fornecer um outro tipo de abordagem.. se te servir.. legal

Eu faria um Select com join das tabelas..

Ficaria mais ou menos assim ( mais ou menos pois nao sei o nome das tabelas nem dos campos )

[mastersoftware]

Bom dia,
Primeiramente obrigado pela resposta.
Estava mesmo pensando em inserir em tabelas, e tratar via select.
Você tem algo diferente disto, ou indica isso mesmo ?