[firebase-br] Fw: lista

[Luciano]

Experimente esta procedure que recebe um inteiro e devolve um varchar

================================================
CREATE PROCEDURE INTZERO(
    WINT INTEGER,
    WTAM INTEGER)
RETURNS (
    R_INTZERO VARCHAR(36))
AS
begin
if (:wint is null) then
 select r_replicate from replicate(:wtam, ' ') into r_IntZero;
else
 select r_Sright from S_Right('000000000000000000' || cast(:wint as
varchar(18)), :wtam) into :r_intzero;

suspend;
end
===============================================================
Auxiliada por.....
CREATE PROCEDURE S_RIGHT(
    WVAR VARCHAR(255),
    WQTD INTEGER)
RETURNS (
    R_SRIGHT VARCHAR(255))
AS
DECLARE VARIABLE K INTEGER;
begin
if (:wvar is not null) then begin
 select r_Len from Len(:wvar) into :k;

 if (:wqtd >= :k) then
  r_sright = :wvar;
 else
  select r_Copy from Copy(:wvar, ((:k - :wqtd) + 1), :wqtd) into :r_sright;
end

suspend;
end
===========================================
E ainda auxiliada por....
CREATE PROCEDURE REPLICATE(
    WQTD INTEGER,
    WVAR VARCHAR(255))
RETURNS (
    R_REPLICATE VARCHAR(255))
AS
begin
r_replicate = '';

while (:wqtd > 0) do begin
 r_replicate = r_replicate || :wvar;
 wqtd = :wqtd - 1;
end

suspend;
end
=========================================

Boa Sorte

Luciano C dos Santos

----- Original Message ----- 
From: "Rones Mendonca" <RONESMENDONCA em NETSITE.COM.BR>
To: "FireBase" <lista em firebase.com.br>
Sent: Tuesday, March 29, 2005 3:15 PM
Subject: [firebase-br] Fw: lista





Boa tarde a todos..


Tenho um campo integer, tem como repassar para este campo os zeros a
esquerda.

Exemplo: digitamos 33, resulta no campo "033" em um campo inteiro., ou tem
que ter um campo diferente para poder repassar os zeros a esquerda.

Desculpe a pergunta, mas estou começando agora.


Abraços


Rones Mendonça
RonesMendonca em netsite.com.br


______________________________________________
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://search.gmane.org/search.php?group=rebase