| 
			
				|  | ActiveDelphi .: O site do programador Delphi! :.
 
 |  
 
	
		| Exibir mensagem anterior :: Exibir próxima mensagem |  
		| Autor | Mensagem |  
		| adriano_servitec Colaborador
 
  
 
 Registrado: Sexta-Feira, 30 de Janeiro de 2004
 Mensagens: 17618
 
 
 | 
			
				|  Enviada: Qui Jan 18, 2007 3:26 pm    Assunto: Construir um SQL ou SP. de contas com saldos anter e atuais |   |  
				| 
 |  
				| 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 |  |  
		|  |  
		| thomazs Moderador
 
  
  
 Registrado: Segunda-Feira, 1 de Março de 2004
 Mensagens: 2835
 
 
 | 
			
				|  Enviada: Qui Jan 18, 2007 6:29 pm    Assunto: |   |  
				| 
 |  
				| 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 |  |  
		|  |  
		| adriano_servitec Colaborador
 
  
 
 Registrado: Sexta-Feira, 30 de Janeiro de 2004
 Mensagens: 17618
 
 
 | 
			
				|  Enviada: Qui Jan 18, 2007 9:48 pm    Assunto: |   |  
				| 
 |  
				| Olah Thomazs, muito obrigado pela ajuda amigo. 	  | 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 ; ^
 
 | 
 | 
 
 Valeu pela dica.
 
 
  _________________
 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 |  |  
		|  |  
		|  |  
  
	| 
 
 | Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido
 Editar Mensagens: Proibido.
 Excluir Mensagens: Proibido.
 Votar em Enquetes: Proibido.
 
 |  |