Нетрика_ИЭМК_01

execute procedure meta_create_generator('REPL$RIR_SPB_CHANGELOG_GEN');

create table RIR_SPB_CHANGELOG
(
  ID TBIGIDENT not null,
  ACDID TBIGIDENT,
  STATUS TICODE,
  CREATEDATE TDATE,
  MODIFYDATE TDATE,
  REPL$ID REPL$BIGIDENT,
  REPL$GRPID REPL$IDENT,
  constraint PK_RIR_SPB_CHANGELOG primary key (ID)
);

create unique index REPL$RIR_SPB_CHANGELOG_IDX on RIR_SPB_CHANGELOG(REPL$ID, REPL$GRPID);
create index RIR_SPB_CHANGELOG_STATUS on RIR_SPB_CHANGELOG(STATUS);

create or alter trigger REPL$RIR_SPB_CHANGELOG_BI for RIR_SPB_CHANGELOG
active before insert position 0
AS
BEGIN
  IF (EXISTS(SELECT * FROM REPL$GETACCESS WHERE REPL$ACCESS = 'REPL')) THEN
  BEGIN
    IF (NEW.REPL$ID IS NULL) THEN
      NEW.REPL$ID = GEN_ID(REPL$RIR_SPB_CHANGELOG_GEN,1);

    IF (NEW.REPL$GRPID IS NULL) THEN
      SELECT REPL$GRPID FROM REPL$GETGRPID INTO NEW.REPL$GRPID;
  END
END;

create table RIR_SPB_EMD_ARC
(
  EMDID TBIGIDENT not null,
  PROTOCOLID TBIGIDENT not null,
  LOCALUID TTEXT64,
  PCODE TBIGCODE,
  MID TBIGCODE,
  ORGSIGNATURE TBLOB,
  STATUS TBIGCODE,
  ERRORS TTEXT1024,
  EXTID TTEXT255,
  DOCNUM TTEXT64,
  REGDATE TDATE,
  REGWARNINGS TTEXT1024,
  DISDATE TDATEONLY,
  MTYPE TICODE,
  REPL$ID REPL$BIGIDENT,
  REPL$GRPID REPL$IDENT,
  SENDDATE TDATE,
  MSGID TTEXT64,
  DOCTYPE TICODE,
  RESPONSEDATEDATE TDATE,
  ASYNCRESPONSEDATE TDATE,
  VER_NO TICODE,
  DOCVERSION TICODE,
  CREATEDATE TDATE,
  MODIFYDATE TDATE,
  MO_OID TTEXT255,
  DOCREQUESTCOUNT TICODE,
  FILIAL TICODE,
  ADDITIONALEXTID TTEXT255,
  REQUESTTEXT TBLOB,
  REQUESTSIGN TBLOB,
  constraint PK_RIR_SPB_EMD_ARC primary key (EMDID)
);

create unique index REPL$RIR_SPB_EMD_ARC_IDX on RIR_SPB_EMD_ARC(REPL$ID, REPL$GRPID);
create unique index RIR_SPB_EMD_ARC_KEY on RIR_SPB_EMD_ARC(PROTOCOLID, VER_NO, DOCTYPE);
create unique index RIR_SPB_EMD_ARC_LOCALUID on RIR_SPB_EMD_ARC(LOCALUID);
create index RIR_SPB_EMD_ARC_MSGID on RIR_SPB_EMD_ARC(MSGID);
create index RIR_SPB_EMD_ARC_STATUS on RIR_SPB_EMD_ARC(STATUS);

execute procedure meta_create_generator('REPL$RIR_SPB_iemk_ARC_GEN');
execute procedure meta_create_generator('RIR_SPB_iemk_ARC_gen');

create table RIR_SPB_IEMK_ARC
(
  RIEMKID TBIGIDENT not null,
  ACDID TBIGIDENT not null,
  PCODE TBIGCODE,
  FILIAL TICODE,
  RIR_GUID TTEXT255,
  OPENSTATUS TBIGCODE,
  OPENDATE TDATE,
  OPENSENDDATE TDATE,
  OPENRESPONSEDATE TDATE,
  OPENERRORS TTEXT1024,
  OPENMSGID TTEXT64,
  CLOSESTATUS TBIGCODE,
  CLOSEDATE TDATE,
  CLOSESENDDATE TDATE,
  CLOSERESPONSEDATE TDATE,
  CLOSEERRORS TTEXT1024,
  CLOSEMSGID TTEXT64,
  UPDATESTATUS TBIGCODE,
  UPDATEDATE TDATE,
  UPDATESENDDATE TDATE,
  UPDATERESPONSEDATE TDATE,
  UPDATEERRORS TTEXT1024,
  UPDATEMSGID TTEXT64,
  EXTID TTEXT255,
  REPL$ID REPL$BIGIDENT,
  REPL$GRPID REPL$IDENT,
  CREATEDATE TDATE,
  MODIFYDATE TDATE,
  constraint PK_RIR_SPB_IEMK_ARC primary key (RIEMKID)
);

create unique index REPL$RIR_SPB_IEMK_ARC_IDX on RIR_SPB_IEMK_ARC(REPL$ID, REPL$GRPID);
create index RIR_SPB_IEMK_ARC_CLOSESTATUS on RIR_SPB_IEMK_ARC(CLOSESTATUS);
create unique index RIR_SPB_IEMK_ARC_KEY on RIR_SPB_IEMK_ARC(ACDID);
create index RIR_SPB_IEMK_ARC_OPENSTATUS on RIR_SPB_IEMK_ARC(OPENSTATUS);
create index RIR_SPB_IEMK_ARC_UPDATESTATUS on RIR_SPB_IEMK_ARC(UPDATESTATUS);

create or alter trigger REPL$RIR_SPB_IEMK_ARC_BI for RIR_SPB_IEMK_ARC
active before insert position 0
AS
BEGIN
  IF (EXISTS(SELECT * FROM REPL$GETACCESS WHERE REPL$ACCESS = 'REPL')) THEN
  BEGIN
    IF (NEW.REPL$ID IS NULL) THEN
      NEW.REPL$ID = GEN_ID(REPL$RIR_SPB_iemk_ARC_GEN,1);

    IF (NEW.REPL$GRPID IS NULL) THEN
      SELECT REPL$GRPID FROM REPL$GETGRPID INTO NEW.REPL$GRPID;
  END
END;

create or alter trigger RIR_SPB_IEMK_ARC_BI for RIR_SPB_IEMK_ARC
active before insert position 0
AS
BEGIN
  IF (EXISTS(SELECT * FROM REPL$GETACCESS WHERE REPL$ACCESS = 'REPL')) THEN
  BEGIN
   if (new.RIEMKID is null) then new.RIEMKID=gen_id(RIR_SPB_iemk_ARC_gen,1);
  END
END;

create table RIR_SPB_REFDET_ARC
(
  REFDETID TBIGIDENT not null,
  CTDID TBIGIDENT not null,
  PCODE TBIGCODE,
  STATUS TBIGCODE,
  ERRORS TTEXT1024,
  DOCTYPE TICODE,
  EXTID TTEXT255,
  MSGID TTEXT64,
  SENDDATE TDATE,
  RESPONSEDATEDATE TDATE,
  CREATEDATE TDATE,
  MODIFYDATE TDATE,
  MO_OID TTEXT255,
  FILIAL TICODE,
  REPL$ID REPL$BIGIDENT,
  REPL$GRPID REPL$IDENT,
  constraint PK_RIR_SPB_REFDET_ARC primary key (REFDETID)
);

create unique index REPL$RIR_SPB_REFDET_ARC_IDX on RIR_SPB_REFDET_ARC(REPL$ID, REPL$GRPID);
create unique index RIR_SPB_REFDET_ARC_KEY on RIR_SPB_REFDET_ARC(CTDID);
create index RIR_SPB_REFDET_ARC_STATUS on RIR_SPB_REFDET_ARC(STATUS);

sql