[firebase-br] O que está errado nessa Procedure

[Renan Rogowski Pozzo]

Declara as variáveis "Aux" e "Str" como varchar(255).

Abraço,
Renan Rogowski Pozzo

2013/8/2 Luciano franca <luapfirebird em yahoo.com.br>

> create or alter procedure Proc_RemoveChar(
>     Texto varchar(255))
> returns (
>     Resultado varchar(255))
> as
> declare variable I Integer;
> declare variable Aux Char(255);
> declare variable Str Char(255);
> begin
>
>  Resultado = '';
>  Str = '';
>  I = 1;
>
>  While ( i <= char_length(:Texto) ) do begin
>   Aux = Trim (substring(:Texto from i for 1));
>    if (Aux in ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9')) then
>      Str = :Str || :Aux;
>
>    i = i + 1;
>   End
>
>  Resultado = :Str;
>  suspend;
>
> end
> ______________________________________________
> 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
>