Trigger varios consecutivos

[seara2005]

Hola a todos,

Utilizo Delphi 2007, Firebird 2.1, Para diseño y pruebas en la base de Datos IBExpert.

Mi problema es el siguiente:
Tengo Una tabla de correspondencia:
Corresp con los Campos
Usuario= Varchar(3)
Consec= Integer
Descrip= Varchar(50)

La idea es que se debe llevar un consecutivo por cada usuario, por lo que el campo Consecutivo puede tener un valor repetido, pero el índice Usuario+Consecutivo si es único

He preparado el siguiente trigger

Código SQL [-]
CREATE trigger corresp_ai0 for corresp
active before insert position 0
AS
begin
  New.Consec = (Select Max(Consec)+1 from Corresp
                       Where Usuario=Old.Usuario);
end

Me da el siguiente error

Column does not belong to referenced table.
Dynamic SQL Error.
SQL error code = -206.
Subselect illegal in this context.