Query duplicando calculo..

Delphi

08/02/2007

Olá Pessoal.... tenho uma query com 3 campos: Operação, valor e saldo
os campos operação e valor estão ligados a campos em uma tabela PostgreSql... e o campo saldo.. é um campo calculated q crei na query...
além deles tenho uma variavel.. vSaldoIni
no evento onCalcFields da query.. executo o seguinte código:

vSaldoIni := 1.000,00 //(ou outro valor qualquer informado)..
if Operacao = CREDITO then begin
      vSaldoIni := vSaldoIni + qMovCxCCRvalor.Value;
      qMovCxCCRsaldo.Value := vSaldoIni;
end
else begin
      vSaldoIni := vSaldoIni - qMovCxCCRvalor.Value;
      qMovCxCCRsaldo.Value := vSaldoIni;
end;

o problema é q quando ela vai fazer o calculo do primeiro registro da query.. ela faz duas vezes a soma ou subtração...ex: tenho o SaldoIni = 1.000,00 e o primeiro registro da query com campo valor = 100 e tipo = CREDITO
ao invés dele fazer 1.000,00 + 100,00 = 1.100,00 ele faz 1.000,00 + 100,00+ 100,00 = 1.200,00
isso ocorre somente no primeiro registro da query... nos outros ele calcula corretamente.....
alguem tem alguma idéia???
obrigado...


Thiago Coleti

Thiago Coleti

Curtidas 0

Respostas

Thiago Coleti

Thiago Coleti

08/02/2007

Alguem???
Alguma idéia???


GOSTEI 0
POSTAR