CREATE GENERATOR GENHISTRY;
CREATE GENERATOR GENMOVING;

CREATE TABLE HISTRIES(
  H_ID Integer NOT NULL,
  H_NUMBER Varchar(255) NOT NULL,
  H_YEAR Integer NOT NULL,
  H_BARCODE Varchar(100),
  PRIMARY KEY (H_ID));

CREATE TABLE MOVINGS(
  M_ID Integer NOT NULL,
  M_HISTRY Integer NOT NULL,
  M_DATE Date NOT NULL,
  M_SUM Smallint DEFAULT 1,
  M_COMMENT Blob sub_type 1,
  PRIMARY KEY (M_ID));

SET TERM ^ ;

CREATE TRIGGER DELHISTRY FOR HISTRIES
ACTIVE BEFORE DELETE POSITION 0
AS BEGIN
 DELETE FROM MOVINGS WHERE M_HISTRY=OLD.H_ID; 
END^

CREATE TRIGGER NEWHISTRY FOR HISTRIES 
ACTIVE BEFORE INSERT POSITION 0
AS BEGIN 
 NEW.H_ID=GEN_ID(GENHISTRY,1);
 INSERT INTO MOVINGS(M_HISTRY ,M_DATE, M_SUM, M_COMMENT)
 VALUES(NEW.H_ID, CAST('NOW' AS DATE), 1, 'Первичное поступление'); 
END^

CREATE TRIGGER NEWMOVING FOR MOVINGS 
ACTIVE BEFORE INSERT POSITION 0
AS BEGIN 
 NEW.M_ID=GEN_ID(GENMOVING,1);
END^

SET TERM ; ^

GRANT REFERENCES, SELECT ON CFG TO  ARCHIVE;
GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON HISTRIES TO  ARCHIVE;
GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE
 ON MOVINGS TO  ARCHIVE;