Remplazar un caracter en Firebird 1.5

[Casimiro Noteví]

Código SQL [-]
update tbClientes a
set a.nombre='0'|| (select SUBSTRING(b.nombre from 2 for char_length(a.nombre)) from tbClientes b where a.id=b.ID)

[ciudad54]

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 2, char 67.
char_length.

[Casimiro Noteví]

Quizás la versión 1.5 todavía no tenía esa función, pero puede que tengas length(loquesea), no lo recuerdo de memoria, echa un vistazo al manual

[ecfisa]

Hola.

Así es, en la versión 1.5 aún no existe esa función. Pero podes arreglarte de este modo:

Código SQL [-]
SET TERM ^ ;

CREATE OR ALTER PROCEDURE LEN_STR (
    PARAMSTR VARCHAR(255))
RETURNS (
    RESULT INTEGER)
AS
DECLARE VARIABLE AUX VARCHAR(255);
BEGIN
  AUX = '';
  RESULT = 0;
  WHILE (NOT PARAMSTR LIKE AUX) DO
  BEGIN
    AUX = AUX || '_';
    RESULT = RESULT + 1;
  END
  SUSPEND;
END^

SET TERM ; ^

Y luego podes usar la sentencia que te indicó Casimiro con un pequeño cambio:

Código SQL [-]
UPDATE TABLA T
  SET T.CAMPO = '0' || SUBSTRING( CAMPO FROM 2 FOR (SELECT RESULT FROM LEN_STR(CAMPO))-1 )

Saludos