Entre firebird, MySql y postgrest????

[ASAPLTDA]

En la base de datos

Código SQL [-]
Declare function get_nombre cliente
(in nocliente %clientes.nocliente,
out( nombre_cliente %clientes.nombrecliente)
as
begin
  select nombrecliente from clientes into :nombrecliente);
end

en delphi por Ejemplo
select nopedido,codigocliente,get_nombre_cliente(codigocliente), from pedidos_header

Permite desplegar el nombre del cliente facilmente