ActiveDelphi

[AntonioJose]

Estou tentando criar uma stored procedure firebird que retorne saldos das contas do banco de dados.
fiz da seguinte maneira. Mas não calcula os saldos de cada conta. Somente saldo geral como se não tivesse outra conta.
Queria que quando a conta fosse diferente o saldo começasse do zero novamente e assim todas as vezes que a conta mudasse de nome.
segue o codigo que estou tentando:

CREATE PROCEDURE LIVRO_CAIXA2
returns (
idcaixa integer,
datacaixa date,
historico varchar(70),
conta varchar(1,
entrada decimal(15,2),
saida decimal(15,2),
saldo decimal(15,2),
controle varchar(10))
as
declare variable saldoatual decimal(15,2);
begin
saldoatual = 0;

for select c.conte, c.codc, c.datalanc, c.historico, c.credito, c.debito, c.dc
from caixa c order by C.conte, C.datalanc
into
:conta,
:idcaixa,
:datacaixa,
:historico,
:entrada,
:saida,
:controle

do
begin

saldo = saldoatual + :entrada - :saida;
saldoatual = :saldo;


suspend;
end
end

[imex]

Boa tarde,

Qual banco de dados (e versão) você está utilizando? Firebird?
Existe uma tabela de contas no seu banco de dados?

[AntonioJose]

Estou usando firebird 2.1

tabela caixa:

CREATE TABLE CAIXA (
CODC INTEGER,
CREDITO NUMERIC(15,2),
DEBITO NUMERIC(15,2),
DATALANC DATE,
HISTORICO VARCHAR(55),
DC VARCHAR(1),
CONTE VARCHAR(15)

);

[imex]

Experimente dessa forma:

[AntonioJose]

[renanbg]

Tenho um caso semelhante, porém preciso filtrar essa procedure pelo nome da conta.

ex:

caixa interno
banco do brasil
etc..

Como poderia ajustar essa procedure para buscar essa informação?