(Resolvido) Criando Fluxo de caixa

[nicolasbraz]

Tenho a tabela de contas a pagar e a de contas a receber ai eu gostaria de fazer um fluxo de caixa.

As tabelas estão assim

CREATE TABLE CONTASPAGAR ( 
    PAGAR_CODIGO          CODIGO NOT NULL /* CODIGO = INTEGER NOT NULL */, 
    PAGAR_DATACONTA       DATA /* DATA = DATE */, 
    PAGAR_REFERENTE       NOME /* NOME = VARCHAR(50) */, 
    PAGAR_FORNECEDORNOME  NOME /* NOME = VARCHAR(50) */, 
    PAGAR_DOCUMENTO       NOME /* NOME = VARCHAR(50) */, 
    PAGAR_DATAVENCIMENTO  DATA /* DATA = DATE */, 
    PAGAR_VALORCONTA      NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    PAGAR_PORTADOR        NOME /* NOME = VARCHAR(50) */, 
    PAGAR_OBSERVACAO      OBSERVACAO /* OBSERVACAO = VARCHAR(220) */, 
    PAGAR_DESCONTO        NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    PAGAR_JUROS           NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    PAGAR_MULTA           NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    PAGAR_DATAPAGAMENTO   DATA /* DATA = DATE */, 
    PAGAR_VALORPAGO       NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    PAGAR_QUITADA         VARCHAR(1) CHARACTER SET NONE, 
    PAGAR_JUROSNUMERO     NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    PAGAR_MULTANUMERO     NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    PAGAR_GERADA          S_OU_N /* S_OU_N = VARCHAR(1) */, 
    PAGAR_QUANTPARCELA    INTEIRO /* INTEIRO = INTEGER */, 
    PAGAR_JUROSMULTA      NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    PAGAR_TOTAL           NUMERICO /* NUMERICO = NUMERIC(8,2) */ 
);

CREATE TABLE CONTASRECEBER ( 
    REC_CODIGO           CODIGO NOT NULL /* CODIGO = INTEGER NOT NULL */, 
    REC_DATACONTA        DATA /* DATA = DATE */, 
    REC_REFERENTE        NOME /* NOME = VARCHAR(50) */, 
    REC_CLIENTENOME      NOME /* NOME = VARCHAR(50) */, 
    REC_DOCUMENTO        NOME /* NOME = VARCHAR(50) */, 
    REC_DATAVENCIMENTO   DATA /* DATA = DATE */, 
    REC_VALORCONTA       NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    REC_PORTADOR         NOME /* NOME = VARCHAR(50) */, 
    REC_FUNCIONARIONOME  NOME /* NOME = VARCHAR(50) */, 
    REC_COMISSAO         NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    REC_COMISSAONUMERO   NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    REC_OBSERVACAO       OBSERVACAO /* OBSERVACAO = VARCHAR(220) */, 
    REC_DESCONTO         NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    REC_DATAPAGAMENTO    DATA /* DATA = DATE */, 
    REC_VALORPAGO        NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    REC_QUITADA          VARCHAR(1) CHARACTER SET NONE, 
    REC_GERADA           S_OU_N /* S_OU_N = VARCHAR(1) */, 
    REC_QUANTPARCELA     INTEIRO /* INTEIRO = INTEGER */, 
    REC_JUROSMULTA       NUMERICO /* NUMERICO = NUMERIC(8,2) */, 
    REC_TOTAL            NUMERICO /* NUMERICO = NUMERIC(8,2) */ 
);

Estou tentando o UNION mas não consigo pelo UNION que eu fiz ele mostra todos resultados em uma linha. Usei este SQL.

select * from CONTASPAGAR, CONTASRECEBER 

where 
(pagar_datavencimento >= :Datainicial and pagar_datavencimento <= :datafinal ) 

UNION ALL 

select * from CONTASPAGAR, CONTASRECEBER

Só que ai ele sai assim ...

http://img186.imageshack.us/i/veja.jpg/

Ele joga uma entrada e uma saida na mesma linha ...

[Jhonas]

Utilize este exemplo:

Sistema de Contas a Pagar e Receber feito em Delphi e codigo aberto

http://www.apostilar.com.br/cliques.php?id...3&subcat=60

abraço

[nicolasbraz]

Obrigado Jonas eu estava tentando fazer o modelo Sintético mas estava com problemas com o UNION então resolvi fazer somente o modelo Analítico.

Obrigado mais uma vez Jonas.

Abraço.