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

[Renato Santos]

Create procedure SP_Cliente
  returns
  (
  REG Char(6)
  )
  as begin
  REG=retzero(GN_Cliente,1),6);
  suspend;
  end
  

"Edvaldo (BOL)" <evgomes em bol.com.br> escreveu:
  Faça um while ..

Enquanto o tamanho for menor que o desejado vc vai concatenando...

----- Original Message ----- 
From: "Rubens J Rodrigues" 
To: "FireBase" 
; ; "Delphi
Programadores" ;
; "Delphi Total"

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


______________________________________________
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
  


		
---------------------------------
 Yahoo! doce lar. Faça do Yahoo! sua homepage.