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