 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
 Enviada: Ter Dez 10, 2013 9:48 am Assunto: consulta para fluxo de caixa. RESOLVIDO |
 |
|
Estou com um problema na minha consulta de fluxo!
Eu preciso do código da tabela de contas a pagar e contas a receber só que usando o comando union all ele traz para mim o campo código com o nome do código do contas a receber e quando eu preciso fazer uma consulta trazendo somente as contas à pagar ele me retorna um erro.
Consulta de todos.
| Código: | S := TStringList.Create;
S.Clear;
S.Add(' select receber.contasreceberid,receber.tipodocumentosID, receber.tipopagamentosID, receber.quitada, ');
S.Add(' receber.datapagamento, receber.datavencimento,receber.referente, receber.contasid, receber.total, ');
S.Add(' cast ( ''R'' as char(1)) TIPO from contasreceber receber ');
S.Add(' join contas on (contas.contasid = receber.contasid) ');
S.Add(' where ' + datareceber + ' between :data1 and :data2 and receber.quitada like :quitadareceber ');
S.Add(' and descricao like :recebercontas and receber.referente like :receberreferente ');
S.Add(' union all ');
S.Add(' select pagar.contaspagarid, pagar.tipodocumentosID, pagar.tipopagamentosid, pagar.quitada, ');
S.Add(' pagar.datapagamento, pagar.datavencimento, pagar.referente, pagar.contasid, pagar.total, ');
S.Add(' cast (''P'' as char(1)) TIPO from contaspagar pagar ');
S.Add(' join contas on (contas.contasid = pagar.contasid) ');
S.Add(' where ' + datapagar + ' between :data1 and :data2 and pagar.quitada like :quitadapagar ');
S.Add(' and descricao like :pagarcontas and pagar.referente like :pagarreferente ');
S.Add(' order by 3 '); |
Consulta somente dos à pagar.
| Código: | S := TStringList.Create;
S.Clear;
S.Add(' select pagar.contaspagarid, pagar.tipodocumentosID, pagar.tipopagamentosid, pagar.quitada, ');
S.Add(' pagar.datapagamento, pagar.datavencimento, pagar.referente, pagar.contasid, pagar.total, ');
S.Add(' cast (''P'' as char(1)) TIPO from contaspagar pagar ');
S.Add(' join contas on (contas.contasid = pagar.contasid) ');
S.Add(' where ' + datapagar + ' between :data1 and :data2 and pagar.quitada like :quitadapagar ');
S.Add(' and descricao like :pagarcontas and pagar.referente like :pagarreferente ');
S.Add(' order by pagar.datavencimento ');
|
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64.
Editado pela última vez por oneshotbr em Ter Dez 10, 2013 1:53 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
|
| Voltar ao Topo |
|
|
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
| Enviada: Ter Dez 10, 2013 1:49 pm Assunto: |
|
|
Deu certo Imex, muito obrigado.
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
