Subselect illegal in this context.

[[eduarcol]]

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:

SQL error code = -206.
Subselect illegal in this context.

Lo compilo con ibExpert y Firebird 2.0

[afxe]

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í:

 
AS
   DECLARE VARIABLE Valor FLOAT;
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        
         select avg(costonuevo) from historicocostos           
            where codigoproducto = New.codigo          
            into :Valor;         
         New.CostoPromedio = Valor;      
       end      
     else      
       begin         
         New.costopromedio = New.costounitario;      
       end   
    endend

Saludos

[[eduarcol]]

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

Muchas gracias

[rastafarey]

Y no seri amejor asi.

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

Bueno digo.

[[eduarcol]]

Empezado por rastafarey

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...