[Kipow]

Empezado por 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

Código SQL [-]
create procedure get_nombre_cliente (nocliente dominio_cliente)
returns (nombrecliente dominio_nombre_cliente)
as
begin
  select nombrecliente
  from clientes
  into :nombrecliente;
  suspend;
end

en delphi

Código Delphi [-]
select nopedido,codigocliente,get_nombre_cliente(codigocliente), from pedidos_header