Re: [firebase-br] Função para completar com zeros um valor via Stored Procedure....

[Kléber Caneva]

Você pode usar uma UDF, mas se não quiser usar uma UDF tente o codigo 
abaixo:

        vNUMERO = CAST( CAST( :vNUMERO as INTEGER ) as CHAR(13) );
        While (substring ( :vNUMERO from 13 for 1 ) = '') do
          begin
            vNUMERO = '0' || vNUMERO ;
          end
        vNUMERO = Substring ( :vNUMERO from 1 for 13 );

[]´s

Kléber Caneva




----- Original Message ----- 
From: "Rubens J Rodrigues" <rubens.rodrigues em abrevo.com.br>
To: "FireBase" <Lista em firebase.com.br>; <firebase-br em grupos.com.br>; "Delphi 
Programadores" <DELPHI_SOPROGRAMADORES em br.egroups.com>; 
<delphi_linhadecodigo em yahoogrupos.com.br>; "Delphi Total" 
<delphi-Total em br.egroups.com>
Sent: Monday, December 26, 2005 11:14 AM
Subject: [firebase-br] Função para completar com zeros um valor via Stored 
Procedure....


Colegas,

Tenho um campo Codigo varchar(13), e preciso criar uma função dentro de
uma procedure que complete este campo zeros a esquerda, por exemplo:
* ----> Codigo 13 então ficaria 0000000000013.

*Alguém pode me ajudar?

Delphi 6 e Firebird 1.5


-- 
-----------------------------------------
Rubens J Rodrigues
-----------------------------------------

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa

E-mail classificado pelo Identificador de Spam Inteligente Terra.
Para alterar a categoria classificada, visite
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=kdcc&_l=1,1135602835.374132.17784.malavi.terra.com.br,4072,Des15,Des15

Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 23/12/2005 / Versão: 
4.4.00/4658
Proteja o seu e-mail Terra: http://mail.terra.com.br/