Subselect illegal in this context.
 

Estoy haciendo un trigger para que me actualize el costo promedio del producto al momento de actualizar un registro.

Este es el trigger

Código Delphi [-]
AS
begin
   if (New.costounitario <> Old.costounitario) then
   begin
      Insert Into Historicocostos (codigo, codigoproducto, costoanterior, costonuevo, fechacambio, UsuarioCambio) values (Coalesce((Select Max(Codigo) from HistoricoCostos where codigoproducto = new.codigo), 0) + 1, new.codigo, Old.costounitario, New.costounitario, current_date, New.UsuarioModificado);
      New.ultimocosto = Old.costounitario;
      if (New.costopromedio <> 0) then
      begin
         New.CostoPromedio = (select avg(costonuevo) from historicocostos where codigoproducto = New.codigo);
      end
      else
      begin
         New.costopromedio = New.costounitario;
      end
   end
end

pero al compilar me da este error:

Lo compilo con ibExpert y Firebird 2.0

Quizás peque de ignorante.
 

Quizás peque de ignorante, pero creo que un Select no devuelver un valor, ni se puede evaluar como un resultado. Yo lo haría así:


Saludos

pues aparentemente asi si funciona, pero no sabia que no se podia tomar el valor desde el select.

Muchas gracias ;)

resp
 

Y no seri amejor asi.

Código SQL [-]
...
select avg(costonuevo) from historicocostos where codigoproducto = new.codigo into New.CostoPromedio;
...

Bueno digo.

lo acabo de probar y funciona perfectamente...