Fórum SP não está funcionando corretamente #301010

begin 
  saldo_ant_debito=0; 
  saldo_ant_credito=0; 

  select coalesce(sum(conta.conta_valor),0) from conta 
  where (conta.conta_tp = 0) and (conta.cli_cod = :cliente) 
  into :saldo_ant_debito; 

  select coalesce(sum(conta.conta_valor),0) from conta 
  where (conta.conta_tp = 1) and (conta.cli_cod = :cliente) 
  into :saldo_ant_credito; 

  historico = ´SALDO ANTERIOR´; 
  valor = (saldo_ant_credito - saldo_ant_debito); 

  saldo_final = valor; 

  if (:valor < 0) then 
  begin 
    tipo = ´D´; 
    valor = valor * -1; 
  end 
  else 
  begin 
    tipo = ´C´; 
  end 

  suspend; 

  tipo = ´D´; 
  lanca_credito = null; 

  for select conta.conta_desc, coalesce(conta.conta_valor,0)
      from conta 
      where (conta.conta_tp = 0) and (conta.cli_cod = :cliente) 
      into :historico, :lanca_debito
  do 
  begin 
    /*** tem certeza que é esse o cálculo??? ***/
    saldo_final = saldo_final - valor;
    suspend; 
  end 

  tipo = ´C´; 
  lanca_debito = null; 

  for select conta.conta_desc, coalesce(conta.conta_valor,0) 
      from conta 
      where (conta.conta_tp = 1) and (conta.cli_cod = :cliente) 
      into :historico, :lanca_credito
  do 
  begin
    /*** tem certeza que é esse o cálculo??? ***/ 
    saldo_final = saldo_final + valor;
    suspend; 
  end 

  lanca_debito = null; 
  lanca_credito = null; 
  historico = ´SALDO FINAL´; 
  tipo = ´C´; 
  valor = saldo_final; 
  suspend; 
end