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

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

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'

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

Código SQL [-]
SELECT *
FROM BANCOS
WHERE SUBSTRING(BIC FROM 5 FOR 2) NOT IN (SELECT CODIGO FROM PAISES)

Código Delphi [-]
SELECT b.* FROM Bancos b WHERE exists (SELECT p.Codigo FROM Paises p where p.codigo = SUBSTRING(b.Bic FROM 5 FOR 2))

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

Código SQL [-]
SELECT *
FROM BANCOS
WHERE SUBSTRING(BIC FROM 5 FOR 3) NOT IN (SELECT CODIGO FROM PAISES)