ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Construir um SQL ou SP. de contas com saldos anter e atuais

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Banco de Dados
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qui Jan 18, 2007 3:26 pm    Assunto: Construir um SQL ou SP. de contas com saldos anter e atuais Responder com Citação

Olah pessoal, bom minha duvida eh o seguinte

Tenho duas tabelas uma chamada debito e outra credito
a estrutura de cada uma eh assim

Tabela Debito
sequencia, (I) fk
ano, (v) 4
data, date
conta_d (v) 15
valor (n) 15,2
DC (v) 1

e a tabela Credito
sequencia, (I) fk
ano, (v) 4
data, date
conta_C (v) 15
valor (n) 15,2
DC (v) 1

as duas recebem o mesmo dados iguais referente a tabela mestre(Movimento).

Tipo assim
Debito
Sequencia|ano--------|data---------------|conta_D---|valor
1----------2006--------31/01/2006--------151----------60,00
2----------2006--------28/02/2006---------25----------30,00

Credito
Sequencia|ano--------|data---------------|conta_C---|valor
1----------2006--------31/01/2006-------- 6----------60,00
2----------2006--------28/02/2006--------- 6----------30,00

Ai quero ver se eh possivel criar uma query(SQL) ou Stored Procedure das duas tabelas puchando os saldos cfe. a conta que eu digitar num edit


Nao sei como montar com as duas tabelas
tipo sair assim:

se eu digitar a conta 6 por exemplo (essa conta pode estar tanto no campo conta_d como conta_c Aqui que me enrrosquei)

ai jogar os saldos numa tabela
data---------|conta------|saldo anterior|debito-----|credito----|saldo atual
31/01/06-------6---------------0,00--------0,00--------90,00--------90,00

e assim por diante
Nao tenho a minima ideia como fazer.

No aguardo
Grato a todos
Adriano.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
thomazs
Moderador
Moderador


Registrado: Segunda-Feira, 1 de Março de 2004
Mensagens: 2835

MensagemEnviada: Qui Jan 18, 2007 6:29 pm    Assunto: Responder com Citação

Um exemplo de SP seria:

Código:
set term ^ ;
create procedure sp_saldoconta( conta integer )
returns ( saldo numeric(15,2) )
declare variable credito numeric(15,2);
declare variable debito numeric(15,2);
begin
  select coalesce( sum( valor ) , 0 ) from Credito
  where conta_c = :conta into :credito;

  select coalesce( sum( valor ) , 0 ) from Debito
  where conta_d = :conta into :debito;
 
  saldo = credito - debito;
  suspend;
end
^
set term ; ^

_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qui Jan 18, 2007 9:48 pm    Assunto: Responder com Citação

thomazs escreveu:
Um exemplo de SP seria:

Código:
set term ^ ;
create procedure sp_saldoconta( conta integer )
returns ( saldo numeric(15,2) )
declare variable credito numeric(15,2);
declare variable debito numeric(15,2);
begin
  select coalesce( sum( valor ) , 0 ) from Credito
  where conta_c = :conta into :credito;

  select coalesce( sum( valor ) , 0 ) from Debito
  where conta_d = :conta into :debito;
 
  saldo = credito - debito;
  suspend;
end
^
set term ; ^
Olah Thomazs, muito obrigado pela ajuda amigo.

Valeu pela dica.

Very Happy
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Banco de Dados Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB