Галактика в вопросах и ответах

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

//Группы форматов
Alter Dictionary ;
drop table ppgrformat;
create table D_USER.ppgrformat "Группы форматов"
with table_Code = 32500 with replace
with tableOptions header, journal
(
name : string "Наименование группы"
)
with index
(
ppgrformat01 = name
);

UPDATE x$files WHERE xf$code = 32500 SET xf$checksum = 0;

//Таблица связи ppkatstan и katmc
Alter Dictionary ;
drop table ppkatstanmc;
create table D_USER.ppkatstanmc "Таблица связи ppkatstan и katmc"
with table_Code = 32501 with replace
with tableOptions header, journal
(
cmc : ref(table katmc) "Ссылка на katmc.nrec МЦ"
)
with index
(
ppkatstanmc01 = cmc
);

UPDATE x$files WHERE xf$code = 32501 SET xf$checksum = 0

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

Alter Dictionary;

create table D_USER.ppgrformat "Группы форматов"
.....
create table D_USER.ppgrformat "Группы форматов"
.....

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

//Группы форматов
Alter Dictionary ;
drop table ppgrformat;
create table D_USER.ppgrformat "Группы форматов"
with table_Code = 32500 with replace
with tableOptions header, journal
(
name : string[50] "Наименование группы"
)
with index
(
ppgrformat01 = name
);

UPDATE x$files WHERE xf$code = 32500 SET xf$checksum = 0;

//Таблица связи ppkatstan и katmc
//Alter Dictionary ;
drop table ppkatstanmc;
create table D_USER.ppkatstanmc "Таблица связи ppkatstan и katmc"
with table_Code = 32501 with replace
with tableOptions header, journal
(
cmc : ref(table katmc) "Ссылка на katmc.nrec МЦ"
)
with index
(
ppkatstanmc01 = cmc
);

UPDATE x$files WHERE xf$code = 32501 SET xf$checksum = 0;

alter table ppkatstanmc
foreign key ppkatstanmc01
references katsopr
primary key KATSOPR01;

//Формальные МЦ
//Alter Dictionary ;
drop table ppkatstan;
create table D_USER.ppkatstan "Формальные МЦ"
with table_Code = 32502 with replace
with tableOptions header, journal
(
cmc : ref(table katmc) "Ссылка на katmc.nrec",
name : string[200] "Название МЦ",
isarch :word "Признак архива-1 / 0 - нет",
cppkatstanmc : ref(table ppkatstanmc) "Ссылка на ppkatstanmc.nrec",
cppgrformat : ref(table ppgrformat) "Ссылка на ppgrformat.nrec"
)
with index
(
ppkatstanmc01 = cmc,
ppkatstanmc02 =name+isarch,
ppkatstanmc03 =cppkatstanmc,
ppkatstanmc04 = cppgrformat
);

UPDATE x$files WHERE xf$code = 32502 SET xf$checksum = 0;

alter table ppkatstan
foreign key ppkatstanmc01
references katmc
primary key KATMC01;

alter table ppkatstan
foreign key ppkatstanmc03
references ppkatstanmc
primary key ppkatstanmcid;


alter table ppkatstan
foreign key ppkatstanmc04
references ppgrformat
primary key ppgrformatid;

//Статусы
//Alter Dictionary;
drop table ppstatus;
create table D_USER.ppstatus "Статусы"
with table_Code = 32503 with replace
with tableOptions header, journal
(
name : string[50] "Наименование статуса",
cppstatus : ref(table ppstatus) "Ссылка на ppstatus.nrec до",
cppstatus2 : ref(table ppstatus) "Ссылка на ppstatus.nrec после"
)
with index
(
ppstatus01 = name,
ppstatus02 =cppstatus,
ppstatus03 =cppstatus2
);

UPDATE x$files WHERE xf$code = 32503 SET xf$checksum = 0;

alter table ppstatus
foreign key ppstatus02
references ppstatus
primary key ppstatusid;

alter table ppstatus
foreign key ppstatus03
references ppstatus
primary key ppstatusid;

//Линии
//Alter Dictionary ;
drop table ppline;
create table D_USER.ppline "Линии"
with table_Code = 32504 with replace
with tableOptions header, journal
(
name : string[200] "Наименование линии",
cpodr : ref(table katpodr) "Ссылка на katpodr.nrec"
)
with index
(
ppline01 = name,
ppline02 =cpodr
);

UPDATE x$files WHERE xf$code = 32504 SET xf$checksum = 0;

alter table ppline
foreign key ppline02
references katpodr
primary key KATPODR01;


//Шапка плана
//Alter Dictionary ;
drop table pptitle;
create table D_USER.pptitle "Шапка плана"
with table_Code = 32505 with replace
with tableOptions header, journal
(
cpodr : ref(table katpodr) "Ссылка на katpodr.nrec",
pdate : date "Дата создания плана",
pbdate: date "Начальная дата",
pedate: date "Конечная дата",
cppstatus: ref(table ppstatus) "Ссылка на ppstatus.nrec",
cppline: ref(table ppline) "Ссылка на ppline.nrec",
cpptitle: ref(table pptitle) "Ссылка на pptitle.nrec"
)
with index
(
pptitle01 =cpodr,
pptitle02 =pdate,
pptitle03 =pbdate+pedate,
pptitle04 =cppstatus,
pptitle05 =cppline,
pptitle06 =cpptitle
);

UPDATE x$files WHERE xf$code = 32505 SET xf$checksum = 0;

alter table pptitle
foreign key pptitle01
references katpodr
primary key KATPODR01;

alter table pptitle
foreign key pptitle04
references ppstatus
primary key ppstatusid;

alter table pptitle
foreign key pptitle05
references ppline
primary key pplineid;

alter table pptitle
foreign key pptitle06
references pptitle
primary key pptitleid;

//Спецификация плана
//Alter Dictionary ;
//drop table ppspec;
create table D_USER.ppspec "Спецификация плана"
with table_Code = 32506 with replace
with tableOptions header, journal
(
cpptitle : ref(table pptitle) "Ссылка на pptitle.nrec",
npp: word "Номер плана",
cppkatstan: ref(table ppkatstan) "Ссылка на ppkatstan.nrec",
cotped:  ref(table katotped) "Ссылка на katotped.nrec",
percfs: double "Процент первого сорта,%",
tlost : double "Технические потери,%",
fdec: double "Первая декада",
sdec: double "Вторая декада",
tdec: double "Третья декада"
)
with index
(
ppspec01 =cpptitle,
ppspec02 =npp,
ppspec03 =cppkatstan,
ppspec04 =cotped,
ppspec05 =percfs+tlost,
ppspec06 =fdec+sdec+tdec
);

UPDATE x$files WHERE xf$code = 32506 SET xf$checksum = 0;

alter table ppspec
foreign key ppspec01
references pptitle
primary key pptitleid;

alter table ppspec
foreign key ppspec03
references ppkatstan
primary key ppkatstanid;

alter table ppspec
foreign key ppspec04
references katotped
primary key KATOTPED01;

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

create table D_USER.ppspec "Спецификация производственного плана"
with table_Code = 28001 with replace
with tableOptions header, journal
(
//cpptitle : ref(table pptitle) "Ссылка на pptitle.nrec",
cpptitle(pptitle) : comp "Ссылка на pptitle.nrec",
npp: word "Номер плана",
//cppkatstan: ref(table ppkatstan) "Ссылка на ppkatstan.nrec",
cppkatstan(ppkatstan): comp "Ссылка на ppkatstan.nrec",
//cotped:  ref(table katotped) "Ссылка на katotped.nrec",
cotped(katotped):comp "Ссылка на katotped.nrec",
percfs: double "Процент первого сорта,%",
tlost : double "Технические потери,%",
fdec: double "Первая декада",
sdec: double "Вторая декада",
tdec: double "Третья декада"
)
with index
(
ppspec01 =cpptitle,
ppspec02 =npp,
ppspec03 =cppkatstan,
ppspec04 =cotped,
ppspec05 =percfs+tlost,
ppspec06 =fdec+sdec+tdec
);

UPDATE x$files WHERE xf$code = 28001 SET xf$checksum = 0;

alter table ppspec
foreign key ppspec01
references pptitle
primary key pptitleid;

alter table ppspec
foreign key ppspec03
references ppkatstan
primary key ppkatstanid;

alter table ppspec
foreign key ppspec04
references katotped
primary key KATOTPED01;