Somar Até Um Determinado Numero

[pdelphi]

Tenho uma query que só pode somar até 7 itens inclusive. Do oitavo em diante, deve ser ignorado, não valendo o somatório. Tipo:

1,00+1,00+1,00+1,00+1,00+1,00+1,00+1,00+1,00=7,00 e não nove como deveria ser. Como faço?

[Progr'amador]

Olá,

eu num entendi direito não (é que eu sou meio "cabeça dura" mesmo ).

Esse nº itens, você refere-se ao nº registros?

Posta a sua Select ai cara, assim ficaria mais fácil ajudá-lo.

Abs. Progr'amador.

[Vivendo&Aprendendo]

cara

não deu para entender muito bem mas pelo que eu entendi tenta isso:

cria uma variável para cada vez que ele somar um novo valor ela receber +1 sendo que ela inicia com 1 pois já começa somando o primeiro registgro...

falou

Alexandre

[pdelphi]

Não dá para enviar a query, porque eu não afiz. Só pode somar até sete itens. Vou falar de outra forma. Tem travar o DBGrid, para até sete itens? Daria no mesmo que somar somente sete itens. É só isso.

[Progr'amador]

Olá,

No Evento AfterInsert da Query liguada ao DBGrid, coloque assim:

  if Query1.RecordCount > 7 then begin
     ShowMessage('Número máximo de Ítens Atingido!');
     Query1.Cancel;
     Exit;
  end;

Abs. Progr'mador.