[frudolph]

Podrías probar algo así:

--> select SUBSTRING(EXTRACT(YEAR FROM FECHA) FROM 3 FOR 2) * 10000 + numero

Te aconsejaría que revises la sintaxis de la cláusula SUBSTRING de Firebird, ya que la he puesto de memoria.