Agregar ceros al pincipio de folio

[[FGarcia]]

Nuevamente por aqui!

Ok, ya cheque lo de la udf LPAD y RPAD ya la declare en mi BD (uso IBExpert) ahora bien aun no me queda claro como integro mi trigger con esta udf pues el trigger me genera un entero y udf me devuelve una cadena. Supongo que debe hacerse una conversion como en delphi StrtoInt. Disculpen la necedad pero realmente no entiendo.

Código SQL [-]
//Trigger para generar un numero de codigo 
AS
begin
  if (new.codigo is null ) then
    new.codigo = gen_id (cod_pro_gen, 1);
end
 
//UDF LPAD: Alarga una cadena en la cantidad de digitos solicitados con 
//el caracter solicitado
//LPad(Cadena, Digitos, Caracter)
DECLARE EXTERNAL FUNCTION LPAD
    CSTRING(255) NULL,
    INTEGER,
    CSTRING(1) NULL
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'ib_udf_lpad' MODULE_NAME 'ib_udf'