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 

Como faço para enxugar esta SP?

 
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 Nov 05, 2009 12:24 pm    Assunto: Como faço para enxugar esta SP? Responder com Citação

Uso firebird 2.0, e quero saber um modo de enxugar esta SP, creio de que tem um modo mais prático

Código:

    if      (ufi =  0) then ufe=''AC'';
    else if ufi =  1) then ufe=''AL'';
.....
.....
   
    execsql;

_________________
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


Editado pela última vez por adriano_servitec em Qui Nov 05, 2009 5:59 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
afarias
Aprendiz
Aprendiz


Registrado: Domingo, 25 de Outubro de 2009
Mensagens: 197
Localização: Recife, PE

MensagemEnviada: Qui Nov 05, 2009 12:34 pm    Assunto: Responder com Citação

bom, não tem muito o q fazer mas com CASE já ajuda:

CASE ufinteiro
WHEN 0 then ufextenso='AC'
WHEN 1 then ufextenso='AL'
WHEN 2 then ufextenso='AM'
...
END

mas particularmente eu nunca teria algo assim num sistema. eu criaria uma tabela UFS ou ESTADOS com os campos id, sigla e preencheria os respectivos valores.

dai,

select sigla from estados where = 0

até para JOINS isto seria melhor!

T+
_________________
Acompanhe: SUPORTE, A SÉRIE:
http://andre.openintelligence.com.br/

Orkut: http://www.orkut.com.br/Main#Community?rl=cpn&cmm=96459906
Twitter: http://twitter.com/Andre_Suporte
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
adriano_servitec
Colaborador
Colaborador


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

MensagemEnviada: Qui Nov 05, 2009 12:42 pm    Assunto: Responder com Citação

Obrigado amigo, vou ver o que posso fazer aqui.

Sobre criar uma tabela de UFs, não posso mudar o que ja está pronto amigo. Mais valeu pela dica mesmo assim.
_________________
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
afarias
Aprendiz
Aprendiz


Registrado: Domingo, 25 de Outubro de 2009
Mensagens: 197
Localização: Recife, PE

MensagemEnviada: Qui Nov 05, 2009 12:49 pm    Assunto: Responder com Citação

|Sobre criar uma tabela de UFs, não posso mudar o que ja está pronto amigo

Na verdade vc pode sim.


Criar uma tabela não tem nenhuma influencia negativa nos sistemas existentes. E seu procedimento poderia ter simplesmente o código:

Código:

create or alter procedure ufextenso (ufinteiro integer)
returns (ufextenso varchar (2)) as
begin
  SELECT sigla FROM estados
  WHERE id=:ufinteiro
  INTO :ufextenso;
end
^



T+
_________________
Acompanhe: SUPORTE, A SÉRIE:
http://andre.openintelligence.com.br/

Orkut: http://www.orkut.com.br/Main#Community?rl=cpn&cmm=96459906
Twitter: http://twitter.com/Andre_Suporte
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
adriano_servitec
Colaborador
Colaborador


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

MensagemEnviada: Qui Nov 05, 2009 12:54 pm    Assunto: Responder com Citação

Vou ver com o pessoal sobe isso então.
_________________
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