Calculo delphi

CREATE OR ALTER PROCEDURE MOVIMENTO (
    dataini date,
    datafim date)
returns (
    data date,
    nfluxo numeric(15,2),
    ncontasreceber numeric(15,2),
    ncontaspagar numeric(15,2),
    ncheque numeric(15,2),
    ncontacorrente numeric(15,2))
as
begin
  data = dataini;
  while (:data < :datafim) do
  begin
    select coalesce(sum(valor),0) from fluxo where data = :data into :nfluxo;
    select coalesce(sum(valor),0) from contasreceber where baixa = :data into :ncontasreceber;
    select coalesce(sum(valor),0) from contaspagar where baixa = :data into :ncontaspagar;
    select coalesce(sum(valor),0) from cheques where baixa = :data into :ncheque;
    select coalesce(sum(valor * (case when tipo = 'D' then -1 else 1 end)),0) from contacorrente where data = :data into :ncontacorrente;

    suspend;

    data = data + 1;
  end
end

CREATE PROCEDURE SP_MOVIMENTO (
	DATAINI DATE,
	DATAFIM DATE,
	COD_CAIXA INTEGER,
	COD_CONTA INTEGER)
RETURNS (
	DATA DATE,
	CAIXA INTEGER,
	CONTA INTEGER,
	NFLUXO NUMERIC(15,2),
	NCONTASRECEBER NUMERIC(15,2),
	NCONTASPAGAR NUMERIC(15,2),
	NCHEQUE NUMERIC(15,2),
	NCARTAO NUMERIC(15,2),
	NSALDOCONTACORRENTE NUMERIC(15,2))
AS
declare variable nsaldoinicial numeric(15,2);
declare variable nsaldo numeric(15,2);
begin
	data = dataini;
	caixa = cod_caixa;
	conta = cod_conta;

	-- é preciso saber se você tem algum totalizador para a conta corrente ou se o saldo é calculado em tempo-real.
	-- assumindo a segunda opção (tempo-real), será preciso calcular o saldo inicial do período.
	-- o cálculo poderia ter sido feito 'diariamente' naquela instrução da conta corrente, mas creio que assim, separado,
	-- tenha melhor performance. com isso, preciso obter o saldo inicial do período. 

	-- obtém o saldo inicial do período, ou seja, o saldo até o dia imediatamente anterior ao início período
	select coalesce(sum(tab6.valor_lan * (case when tab6.dc_lan = '0' then -1 else 1 end)),0)
	from lancamentos_contas_corrente tab6 where tab6.cod_conta = :conta and tab6.dataemi_lan < :data into :nsaldoinicial;

	-- efetua o cálculo diário dos movimentos
	while (:data <= :datafim) do -- Aqui troquei o operador para 'menor ou igual'
	begin
		select coalesce(sum(tab1.valorfechamento),0) from fluxo tab1 where tab1.cod_caixa = :caixa and tab1.datafechamento = :data into :nfluxo;
		select coalesce(sum(tab2.valor_ctr),0) from contas_receber tab2 where tab2.vencto_ctr = :data into :ncontasreceber;
		select coalesce(sum(tab3.valor_ctp),0) from contas_pagar tab3 where tab3.dtvencto_ctp = :data into :ncontaspagar;
		select coalesce(sum(tab4.valor_che),0) from cheque tab4 where tab4.vencto_che = :data into :ncheque;
		select coalesce(sum((tab5.valor - (tab5.valor * tab5.taxa)/100)),0) from contas_receber_adm_cartao tab5 where tab5.vencimento = :data into :ncartao;

		select coalesce(sum(tab6.valor_lan * (case when tab6.dc_lan = '0' then -1 else 1 end)),0) from lancamentos_contas_corrente tab6
		where tab6.cod_conta = :conta and tab6.dataemi_lan between :data_ini and :data into :nsaldo;

		nsaldocontacorrente = nsaldoinicial + nsaldo; -- saldo da conta corrente no dia

		suspend;

		data = data + 1;
	end
end