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'