[firebase-br] Colocar zero a esquedra do campo

[Sergio Guedes]

Eu tbm prefiro fazer isso na aplicação coloco no db apenas o necessario.

abraços

2009/8/16 Robson Catunda <robson.catunda em gmail.com>

> Vc pode utilizar uma trigger. No caso do exemplo abaixo, estou pegando o
> valor do campo codigo no before insert e acrescentando zeros à esquerda até
> o tamanho máximo de 6 dígitos.
>
> AS
>  declare variable tmp varchar(6);
>  declare variable i integer;
>  declare variable vlrnew integer;
> begin
>  select max(codigo) from teste into :vlrnew;
>  if (:vlrnew is null) then vlrnew = 0;
>  if ((new.codigo is null)or(new.codigo = 0)) then
>    new.codigo = cast((:vlrnew + 1) as varchar(6));
>  tmp = new.codigo;
>  i = 6 - char_length(:tmp);
>  while (:i>0) do
>    begin
>      new.codigo = '0'||new.codigo;
>      i = :i - 1;
>    end
> end
>
> 2009/8/11 Marco Antônio <marco em visao-ol.com.br>
>
> > Boa noite
> > Estou precisando de colocar Zero a esquedra do campo no FB tem como fazer
> > isto.
> > Ex: 50 = 0050
> >
> > Atenciosamente,
> > Marco Antônio
> > ______________________________________________
> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > Para saber como gerenciar/excluir seu cadastro na lista, use:
> > http://www.firebase.com.br/fb/artigo.php?id=1107
> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> >
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
Atenciosamente,
Sergio Guedes - www.activedelphi.com.br
Editor Técnico do Grupo Active Delphi
Colunista do Portal Active Delphi
Moderador do Fórum Active Delphi
Desenvolvedor Delphi, Visual Studio C# da VAP Informática