Recalcular saldo bancário

[Vlademiro]

No próximo fonte, não nesse, talvez valha a pena usar o comando Text / endtext mandando para uma variável. Depois substitui as tags com strtran.

[Vlademiro]

Tipo assim

Código: Selecionar todos

EXEC SQL
    SELECT EMP_LNAME,
           DEPT_ID
      INTO :EMP-LNAME,
           :DEPT-ID
      WHERE EMP_ID = :WK-EMP-ID
  END-EXEC.

Esse aí já tem mais de 40 anos, é do tempo do Cobol. Dava até pra criar um comando no Harbour para simular o Exec sql.

[Ana Mitoooo]

Lentidão garantida com o acumulo de dados:

Código: Selecionar todos

 CREATE TABLE MOVIMENTACAO (
  NUM_LANCAMENTO INTEGER PRIMARY KEY,
  DATA_HORA DATE NOT NULL,
  DEBITO_CREDITO CHAR(1) NOT NULL,
  VALOR NUMBER (16,2)NOT NULL,
  SALDO NUMBER (16,2)NOT NULL )

Transações em tempo real:

Código: Selecionar todos

 CREATE TABLE MOVIMENTACAO (
  NUM_LANCAMENTO INTEGER PRIMARY KEY,
  DATA_HORA DATE NOT NULL,
  DEBITO_CREDITO CHAR(1) NOT NULL,
  VALOR NUMBER (16,2)NOT NULL )

 CREATE TABLE SALDO (
  DATA_HORA DATE NOT NULL,
  SALDO NUMBER (16,2)NOT NULL )

*Nada de novo, sistema bancário usa isso a décadas
**Saldo atualizado a cada inclusão/alteração na tabela de movimento (e somente a partir da data afetada pela operação)