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

CLIENTS_CHECK_ENTERPRISE

Описание

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

Определение

CREATE TRIGGER CLIENTS_CHECK_ENTERPRISE FOR CLIENTS
ACTIVE AFTER INSERT OR UPDATE POSITION 0
AS
declare variable ACount Integer;
begin
  select count(clients.clientid) from clients where clients.isenterprise = 1
  into :ACount;
  if (ACount > 1) then exception client_enterprise_exist;
end