[firebase-br] Fw: lista
Luciano
luciano em praticsistemas.com.br
Ter Mar 29 17:04:11 -03 2005
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
Mais detalhes sobre a lista de discussão lista