[firebase-br] Retirar pontos de um campo

Fernando Correa fjcnando em ig.com.br
Sex Ago 30 09:52:54 -03 2013


Saudações.

Faça a declaração:

DECLARE EXTERNAL FUNCTION NEWLIMPASTRING
    CSTRING(254),
    INTEGER
RETURNS CSTRING(254)
ENTRY_POINT 'New_LimpaString' MODULE_NAME 'NewIBLib.dll';


Depois pode usa-la para limpar:

SELECT FIRST 1 NEWLIMPASTRING(EST_ADICIONAIS,3) AS SO_NUMERO
FROM EST_ADICIONAIS

o 3, tira os pontos, o 1 tira letras, o 2 tira números, faça o teste.


Abraço.

Fernando Correa




2013/8/29 Denis Dias <denisdias em sociativa.com.br>

> Olá Pessoal,
>
> Estou utilizando a sentença abaixo para retornar somente os números de um
> campo (NCM) de uma tabela (Est_adicionais), preciso implementá-la agora
> para atualizar (Update) o campo com o retorno da consulta, mas estou
> encontrando dificuldades, alguém pode me ajudar?
> *Obs: utilizo o Firebird 2.0.3 e o IBmanager para executar a sentença.*
>
> SELECT
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM  1 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM  1 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM  2 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM  2 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM  3 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM  3 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM  4 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM  4 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM  5 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM  5 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM  6 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM  6 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM  7 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM  7 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM  8 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM  8 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM  9 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM  9 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM 10 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM 10 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM 11 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM 11 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM 12 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM 12 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM 13 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM 13 FOR 1) ELSE '' END ||
>    CASE WHEN SUBSTRING(EST_ADICIONAIS.ncm FROM 14 FOR 1) IN
> ('0','1','2','3','4','5','6','7','8','9') THEN SUBSTRING(EST_ADICIONAIS.ncm
> FROM 14 FOR 1) ELSE '' END
>
>    AS SO_NUMERO
>   FROM EST_ADICIONAIS
>
> OBS: Já utilizei no Ibexpert e no IBmanager a senteça
> *Update Est_Adicionais Set NCM = Replace(NCM,'.','')*
>
> *mas me retornou a mensagem: *
> An error was found in the application program input parameters for the SQL
> statement.
> Dynamic SQL Error.
> SQL error code = -804.
> Function unknown.
> REPLACE
> ______________________________________________
> 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
>



-- 
Atenciosamente
Fernando Correa



Mais detalhes sobre a lista de discussão lista