"localhost:/firebird/data/ILICHEVSK2.FDB". Триггеры

IT_SETLABQUALITYID

Описание

(Нет описания для триггера IT_SETLABQUALITYID)

Определение

CREATE TRIGGER IT_SETLABQUALITYID FOR IT
ACTIVE BEFORE INSERT OR UPDATE POSITION 0
as
declare variable SETTESTQUALITY integer;

begin
  select coalesce(STORAGE.SETTESTQUALITY,0)
    from STORAGE
    where (STORAGE.STORAGEID = new.STORAGEID)
  into :SETTESTQUALITY;

  if ((SETTESTQUALITY = 0) and (new.OPERATIONID = 70)) then
    new.LABQUALITYID = new.SAMPLERQUALITYID;
end