Como puedo crear una UDF para Firebird????

[AGAG4]

Buen día, alguien me puediera dar algunos tip's de como crear una UDF para firebird, lo que quiero hacer es agregar Ceros a la Izquierda en un campo Varchar ustedes se preguntarán porque no los guardo con ceros, lo que pasa es que el campo es de tipo Integer, quiero agregarles los ceros dentro del where de un Select por ejemplo:

Código SQL [-]
SELECT ....
WHERE
  REFERENCIA = TIPOMOV||FOLIO

En donde deseo la función para agregar ceros en es el campo FOLIO en referencia tiene FX008022 y en el campo TIPOMOV = FX y en el Campo FOLIO = 8022, aqui lo puedo resolver haciendo la inversa

Código SQL [-]
SELECT ....
WHERE
  TIPOMOV = SUBSTRING(REFERENCIA FROM 1 FOR 2) AND
   FOLIO  = CAST( SUBSTRING(REFERENCIA FROM 3 FOR 6) AS INTEGER )

El motivo de que no uso esta última sentencia, es que tengo un Indice por el campo REFERENCIA, lo quiero aprovechar para no crear otro INDICE por los 2 campos (TIPOMOV y FOLIO )

Espero haberme explicado
Agradezco cualquier sugerencia.