Tenho a seguinte relação entre 3 tabelas:
'SELECT contareceber.codcontareceber, contareceber.codorganizacao,
contareceber.dtdocumento, contareceber.dtvencimento,
contareceber.valortotalbruto, contareceber.valortotalrecebido,
contareceber.dtcancelamento, contareceberquitacao.dtquitacao
FROM contareceber
LEFT JOIN contareceberquitacaoitem ON
contareceberquitacaoitem.codcontareceber = contareceber.codcontareceber
LEFT JOIN contareceberquitacao ON
contareceberquitacao.codcontareceberquitacao =
contareceberquitacaoitem.codcontareceberquitacao
WHERE contareceber.dtdocumento>='+ValToSQL(::oDataInicial:Value)+' and
contareceber.dtdocumento<='+ValToSQL(::oDataFinal:Value)+'
ORDER BY contareceber.codorganizacao'
Sendo essa ::oDataInicial:Value e ::oDataFinal:Value são os valores de data que o usuario vai digitar no meu programa, fiz apenas um programa para executar esse SELECT e me trazer as informações que eu preciso em uma tabela temporária.
Depois que eu tenho essas informações eu preciso de entregar os seguintes dados: (seja por meio de um outro comando SQL ou qualquer outra forma.)
- TITULOS
- TITULOS PAGOS
TITULOS EM ABERTO
PAGOS EM DIA
- PAGOS EM ATÉ 30 DIAS
- PAGOS ENTRE 30 E 60 DIAS
- PAGOS ENTRE 60 e 90 DIAS
- PAGOS ENTRE 90 E 120 DIAS
- PAGOS ENTRE 120 E 180 DIAS
- PAGOS COM MAIS DE 180 DIAS
O temporario é criado desta forma:
DBCreate('TEMPORARIO.DBF',{{'CODRECEB' ,'C',12,0},; //codigo do contas a receber
{'CODORG' ,'C', 3,0},; //codigo da empresa
{'DTDOC' ,'D', 8,0},; //data de emissao
{'DTVENC' ,'D', 8,0},; //data de vencimento
{'VLRTOT' ,'N',10,2},; //valor total bruto
{'VLRTREC' ,'N',12,2},; //valor total recebido
{'DTCANC' ,'D', 8,0},; //data cancelamento
{'DTQUIT' ,'D', 8,0},; //data quitação
{'PRAZO' ,'N',10,0},; //prazo em dias para quitar
{'DIASATEPAG' ,'N',10,0},; //qtd de dias até pagar
{'EXCEDENTE' ,'N',10,0}}) //quantos dias passou do prazo
Eu tenho essas informações para comparar e trazer os resultados das datas. Sobre as tabelas que eu estou buscando, elas tem esta estrutura:
CREATE TABLE CONTARECEBER (
CODCONTARECEBER VARCHAR(12) NOT NULL COLLATE WIN_PTBR,
CODORGANIZACAO VARCHAR(3) COLLATE WIN_PTBR,
STTIPOCONTARECEBER VARCHAR(1) COLLATE WIN_PTBR,
DTDOCUMENTO DATE,
DTVENCIMENTO DATE,
SEQUENCIALPARCELA INTEGER,
STMANUALSISTEMA VARCHAR(1) COLLATE WIN_PTBR,
NUMERODOCUMENTO VARCHAR(20) COLLATE WIN_PTBR,
VALORTOTALBRUTO NUMERIC(10,2),
VALORTOTALJUROS NUMERIC(8,2),
VALORTOTALDESCONTO NUMERIC(8,2),
VALORTOTALRECEBIDO NUMERIC(12,2),
OBSERVACAO VARCHAR(50) COLLATE WIN_PTBR,
CODVENDA VARCHAR(15) COLLATE WIN_PTBR,
CODCLIENTE VARCHAR(10) COLLATE WIN_PTBR,
CPFCNPJ VARCHAR(14) COLLATE WIN_PTBR,
CODCHEQUE VARCHAR(10) COLLATE WIN_PTBR,
CODCONVENIO VARCHAR(8) COLLATE WIN_PTBR,
CODCARTAO VARCHAR(6) COLLATE WIN_PTBR,
NUMEROTEF VARCHAR(20) COLLATE WIN_PTBR,
CODUSUARIO VARCHAR(8) COLLATE WIN_PTBR,
ST_EXPORT VARCHAR(1) COLLATE WIN_PTBR,
DTULTIMAATUALIZACAO DATE,
HRULTIMAATUALIZACAO TIME,
STCANCELADA VARCHAR(1) COLLATE WIN_PTBR,
CODUSUARIOCANCELAMENTO VARCHAR(8) COLLATE WIN_PTBR,
DTCANCELAMENTO DATE,
HRCANCELAMENTO TIME,
STVENDAFINANCIADA VARCHAR(1) COLLATE WIN_PTBR,
CODFORMAPAGTO VARCHAR(2) COLLATE WIN_PTBR,
OBSDEVOLUCAOPRODUTO BLOB SUB_TYPE 1 SEGMENT SIZE 80,
ORGORIGEMATUALIZACAO VARCHAR(3) COLLATE WIN_PTBR,
ID_REP_ORIGEM BIGINT
);
CREATE TABLE CONTARECEBERQUITACAOITEM (
CODCONTARECEBERQUITACAO VARCHAR(12) NOT NULL COLLATE WIN_PTBR,
CODCONTARECEBER VARCHAR(12) NOT NULL COLLATE WIN_PTBR,
VALORJUROS NUMERIC(8,2),
VALORRECEBIDO NUMERIC(8,2),
VALORDESCONTO NUMERIC(8,2),
ST_EXPORT VARCHAR(1) COLLATE WIN_PTBR,
DTULTIMAATUALIZACAO DATE,
HRULTIMAATUALIZACAO TIME,
ORGORIGEMATUALIZACAO VARCHAR(3) COLLATE WIN_PTBR,
ID_REP_ORIGEM BIGINT
);
CREATE TABLE CONTARECEBERQUITACAO (
CODCONTARECEBERQUITACAO VARCHAR(12) NOT NULL COLLATE WIN_PTBR,
CODUSUARIO VARCHAR(8) COLLATE WIN_PTBR,
CODORGANIZACAO VARCHAR(3) COLLATE WIN_PTBR,
STTIPOQUITACAO VARCHAR(1) COLLATE WIN_PTBR,
STFORMAPAGTO VARCHAR(1) COLLATE WIN_PTBR,
CODFUNCIONARIO VARCHAR(7) COLLATE WIN_PTBR,
CODCLIENTE VARCHAR(10) COLLATE WIN_PTBR,
CODCONVENIO VARCHAR(8) COLLATE WIN_PTBR,
CODCARTAO VARCHAR(6) COLLATE WIN_PTBR,
DTQUITACAO DATE,
HRQUITACAO TIME,
STCOBRARJUROS VARCHAR(1) COLLATE WIN_PTBR,
PERCJUROS NUMERIC(5,2),
PERCMULTA NUMERIC(5,2),
STACERTOAUTOMATICO VARCHAR(1) COLLATE WIN_PTBR,
STATUALIZARPRECOATUAL VARCHAR(1) COLLATE WIN_PTBR,
VALORTOTAL NUMERIC(10,2),
VALORDESCONTO NUMERIC(10,2),
VALORTOTALJUROS NUMERIC(10,2),
STCANCELADA VARCHAR(1) COLLATE WIN_PTBR,
DTCANCELAMENTO DATE,
HRCANCELAMENTO TIME,
CODUSUARIOCANCELAMENTO VARCHAR(8) COLLATE WIN_PTBR,
CODLANCAMENTOCONTAFINANCEIRA VARCHAR(10) COLLATE WIN_PTBR,
ST_EXPORT VARCHAR(1) COLLATE WIN_PTBR,
DTULTIMAATUALIZACAO DATE,
HRULTIMAATUALIZACAO TIME,
STCHEQUETERCEIROS VARCHAR(1) COLLATE WIN_PTBR,
OBSCANCELAMENTO BLOB SUB_TYPE 1 SEGMENT SIZE 80,
NR_ACERTO VARCHAR(8) COLLATE WIN_PTBR,
CODECF VARCHAR(8) COLLATE WIN_PTBR,
NUMEROCOO VARCHAR(6) COLLATE WIN_PTBR,
NUMEROGNF VARCHAR(6) COLLATE WIN_PTBR,
CODSESSAOECFTEF VARCHAR(15) COLLATE WIN_PTBR,
STCUPOMECFCANCELADO VARCHAR(1) COLLATE WIN_PTBR,
ORGORIGEMATUALIZACAO VARCHAR(3) COLLATE WIN_PTBR,
ID_REP_ORIGEM BIGINT
);