Fluxo de Caixa Urgente

Prezados colegas, venho mais uma vez aqui no forum solicitar a ajuda de vocês. Eu estou desenvolvendo uma aplicação de controle de projetos e preciso de um fluxo de caixa do jeito que esta na imagem abaixo, alguem pode me ajudar, pois não sei como faço:
[img]http://arquivo.devmedia.com.br/forum/imagem/194427-20140318-161448.png[/img]

O Programa é em Delphi 7 e utilizo o Firebird-2.1.3.18185_0_Win32

Minhas tabelas para contas a pagar e a receber são:

Contas a Pagar:
TABLE CPAGAR (
CP_ID INTEGER NOT NULL,
FO_ID INTEGER NOT NULL,
E_ID INTEGER NOT NULL,
CC_ID INTEGER NOT NULL,
B_ID INTEGER,
CL_ID SMALLINT NOT NULL,
CP_NF VARCHAR(15),
CP_TITULO VARCHAR(15) NOT NULL,
CP_DATA DATE,
CP_VENC DATE,
CP_TPAG VARCHAR(20),
CP_JUROS NUMERIC(12,2),
CP_PAGO NUMERIC(12,2),
CP_REST NUMERIC(12,2),
CP_TOTAL NUMERIC(12,2)
);

Contas a Receber:
TABLE CRECEBER (
CR_ID INTEGER NOT NULL,
CLI_ID INTEGER NOT NULL,
E_ID INTEGER NOT NULL,
CC_ID INTEGER NOT NULL,
CL_ID SMALLINT NOT NULL,
CR_NF VARCHAR(15) NOT NULL,
CR_TITULO VARCHAR(15) NOT NULL,
CR_TPAG VARCHAR(20),
CR_DATA DATE NOT NULL,
CR_VENC DATE NOT NULL,
CR_PAGO NUMERIC(12,2),
CR_REST NUMERIC(12,2),
CR_TOTAL NUMERIC(12,2)
);

para contas a pagas e recebidas é so colocar o 'S' na frente de cada palavra que representa a tabela Ex: 'CR' é 'CRS' e 'CP' é 'CPS'