iBase.ru Forum

Код: Выделить всё

CREATE TABLE DOC_HISTORY (
    CUSTOMER_ID    INTEGER NOT NULL,
    DOC_ID         INTEGER NOT NULL,
    DOC_TYP        INTEGER NOT NULL,
    DOC_DATE       DATE NOT NULL,
    REAL_DOC_DATE  DATE NOT NULL,
    DOC_NOTE       VARCHAR(255),
    ACTUALITY      SMALLINT DEFAULT 1 NOT NULL,
    TABLE_NAME     VARCHAR(32) NOT NULL,
    CHANGER_NAME   VARCHAR(50) NOT NULL
);

ALTER TABLE DOC_HISTORY ADD CONSTRAINT PK_DOCHIS_CUSIDDOCID PRIMARY KEY (CUSTOMER_ID, DOC_ID);

Код: Выделить всё

CREATE TABLE LTR_HISTORY (
    REC_NO        INTEGER NOT NULL,
    CUSTOMER_ID   INTEGER NOT NULL,
    DOC_ID        INTEGER NOT NULL,
    INP_NUM       VARCHAR(12) NOT NULL,
    INP_DATE      DATE NOT NULL,
    OUT_NUM       VARCHAR(12),
    OUT_DATE      DATE,
    RESP_FACE     VARCHAR(50),
    NUM_DEV_WORK  VARCHAR(25),
    PRIM          VARCHAR(255)
);


ALTER TABLE LTR_HISTORY ADD CONSTRAINT FK_LTRHIS_CUSTIDDOCID FOREIGN KEY (CUSTOMER_ID, DOC_ID) REFERENCES DOC_HISTORY (CUSTOMER_ID, DOC_ID) ON DELETE CASCADE;

Код: Выделить всё

CREATE TRIGGER CHILD_AD FOR CHILD ACTIVE AFTER DELETE POSITION 0 
as 
  declare variable FK_Cnt integer; 
begin 
  select count(*) from parent where id=old.parentid into :FK_Cnt; 
  if (FK_Cnt = 0) then 
    -- Это каскадное удаление 
  else 
    -- Удаление вручную 
end