ActiveDelphi

[aconmarcel]

Boa tarde a todos.. se alguem puder me ajudar....

Tenho uma stored procedure que faz a atualização do Saldo de um bem(sistema de patrimonio).

Tai a tabela Saldos_bens:
CREATE TABLE SALDOS_BENS (
CONTA DOM_CONTA NOT NULL,
BEM DOM_CODIGO_BEM NOT NULL,
ANO DOM_INTEGER NOT NULL,
MES DOM_SMALLINT NOT NULL,
SALDO DOM_MONETARIO2,
DEPRECIACAO DOM_MONETARIO2,
SALDO_ATU COMPUTED BY (saldos_bens.saldo-saldos_bens.depreciacao)
);

a stored procedure:

for select saldos_bens.saldo from saldos_bens where saldos_bens.conta=:conta and saldos_bens.bem=:bem order by mes into :saldo do begin
update saldos_bens b set b.saldo=(:SALDO+:valor)
where b.conta=:conta and b.bem=:bem and b.ano=extract(year from :data)
and b.mes>=extract(month from :data);
end

os problemas são:
1-o saldo que atualiza fica errado: por exemplo: Saldo era 59000 :valo=1000 mas na tabela fixca 119000.

2- a atualização dos meses não acontece toda.. por exemplo: se o mes é 10 ele atualiza até o mes 12(certo), mas se o mes é 04 ele só atualiza até 09. 10 11,12 não recebem o saldo!

não sei se me fiz entender... mas desde já obrigado