SELECT con SUBSTRING en Firebird

[Angel.Matilla]

Tengo este query:

Código SQL [-]
SELECT A.Apellidos, A.Nombre, A.Nif, A.F_nacim, A.Domicilio, A.Cpostal, A.Municipio, A.Provincia, A.Telefono_1, A.Telefono_2, A.Telefono_3, A.C_electronico, 
A.Profesion CodProfesion, A.Sexo, A.Correo, A.Lo1599, A.Situacion, A.Afiliacion, A.Junta, A.N_afiliado, A.F_alta, A.ForPago, A.PerPago, A.Referencia, A.Cuota, 
A.IdCuenta, A.Iban, A.Bic, B.Nombre, B.Pais, C.Nombre, D.Nombre, E.Nombre, F.Nombre, G.Nombre, H.Nombre, H.Bic, I.Nombre, I.Bic
FROM Persona A
LEFT JOIN Bancos H ON SUBSTRING(A.Iban FROM 5 FOR 4) = H.Codigo AND A.IdCuenta = 'A'
LEFT JOIN Bancos I ON SUBSTRING(A.Iban FROM 1 FOR 4) = I.Codigo AND A.IdCuenta = 'B'
LEFT JOIN Poblacion B ON A.CodPrv = B.CodPrv AND A.Municipio = B.Codigo
LEFT JOIN Provincia C ON A.Provincia = C.Codigo
LEFT JOIN Paises D ON B.Pais = D.Codigo
LEFT JOIN Profesion E ON A.CodPrv = E.CodPrv AND A.Profesion = E.Codigo
LEFT JOIN Afiliacion F ON A.CodPrv = F.CodPrv AND A.Afiliacion = F.Codigo
LEFT JOIN Junta G  ON A.CodPrv = G.CodPrv AND A.Junta = G.Codigo

A la hora de tratar de ejecuatrlo, tanto desde programa como con IBManager, me da este error:

Error: "Invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 6, char 43. FROM."

El error hace referencia a la claúsula FROM de los SUBSTRING. He estado comprobando la sintaxis de la instrucción y es correcta y todas las columnas existen en las tablas respectivas.

[Gregorio Cíber]

Esto:
LEFT JOIN Bancos H ON SUBSTRING(A.Iban FROM 5 FOR 4) = H.Codigo AND A.IdCuenta = 'A'

¿No debería ir así?
LEFT JOIN Bancos H ON (SUBSTRING(A.Iban FROM 5 FOR 4) = H.Codigo) AND (A.IdCuenta = 'A')

[Casimiro Notevi]

Código SQL [-]
SELECT SUBSTRING(field FROM 5 FOR 15) AS x FROM table;

[[RONPABLO]]

Hay que tener en cuenta que existe unas UDF que implementan el substring y lo usan de una forma diferente, así que es bueno ver que en los códigos del UDF no se encuentre creado substring, también sría bueno saber que versión de Firebird usa? H.Codigo es un string o un int?
Por último y aunque no creo que afecte mucho podrías cambiar el orden a lo siguiente:

Código SQL [-]
LEFT JOIN Bancos H ON H.Codigo = SUBSTRING(A.Iban FROM 5 FOR 4) AND A.IdCuenta = 'A'
LEFT JOIN Bancos I ON I.Codigo = SUBSTRING(A.Iban FROM 1 FOR 4) AND A.IdCuenta = 'B'

[Angel.Matilla]

Gracias por las respuestas.

Empezado por Gregorio Cíber

¿No debería ir así?
LEFT JOIN Bancos H ON (SUBSTRING(A.Iban FROM 5 FOR 4) = H.Codigo) AND (A.IdCuenta = 'A')

El resultado, en cualquier caso, sería el mismo.

Empezado por Casimiro Notevi

Código SQL [-]SELECT SUBSTRING(field FROM 5 FOR 15) AS x FROM table;

Esto no le he probado, pero no creo que cambie el resultado; curiosamente donde indica el error (line 6, char 43) es donde está la n de Iban.

Empezado por RONPABLO

Hay que tener en cuenta que existe unas UDF que implementan el substring y lo usan de una forma diferente, así que es bueno ver que en los códigos del UDF no se encuentre creado substring, también sría bueno saber que versión de Firebird usa? H.Codigo es un string o un int?

La versión de FB es la 2.5 y... ¡GRACIAS! Acabo de darme cuenta al leer tu mensaje que he cambiado la estructura de la tabla y el código ahora es numérico y antes era varchar.

[Angel.Matilla]

¡Mi gozo en un pozo!

Al margen de que, efectivamente, había renombrado alguna columna y se me había olvidado el problema no era esa. Sigue dándome el mismo error; por si acaso he actualizado a la versión 2.5.4 de Firebird.

Voy más allá: Estoy probando este otro código:

Código SQL [-]
SELECT * FROM Bancos WHERE SUBSTRING(Bic FROM 5 FOR 2) NOT IN (SELECT Codigo FROM Paises)

Las tablas son estas:

Bancos
CREATE TABLE BANCOS (
ENTIDAD VARCHAR(5) CHARACTER SET NONE NOT NULL,
NOMBRE VARCHAR(66) CHARACTER SET NONE,
BIC VARCHAR(12) CHARACTER SET NONE);

Países
CREATE TABLE PAISES (
CODIGO VARCHAR(3) CHARACTER SET NONE NOT NULL,
NOMBRE VARCHAR(51)CHARACTER SET NONE);

En el código BIC las posiciones 5 y 6 del mismo identifican el país y se referencian a la tabla ISO 3166-1 alpha-2 (por ejemplo en Códigos oficialmente asignados).

Hasta donde veo el código es correcto; de hecho en una BB.DD. Paradox funciona sin ningún problema. Sin embargo usando tanto IBManager como IBExpert me da el mismo error:

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

Ya no sé por donde pillarlo y me tiene bloqueada la adaptación de una aplicación desde Paradox a Firebird.

[Angel.Matilla]

Si hace falta y alguien me puede ayudar le mando las tablas implicadas.

[Casimiro Notevi]

Es que por lo visto tiene que ser "select substring" no en un "where".
Puedes crearte un Stored Procedure, algo asi como:

Código SQL [-]
for select substring(bic from 5 to 2) from bancos into :valor do
  select codigo from tbpaises where codigo= :valor
  suspend;
end