Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
функцлогпрог / Diplom / Листинги.doc
Скачиваний:
18
Добавлен:
02.04.2015
Размер:
121.34 Кб
Скачать

Initrans 2

MAXTRANS 255

TABLESPACE users

STORAGE (

Initial 65536

NEXT

PCTINCREASE

MINEXTENTS 1

MAXEXTENTS 2147483645

FREELIST GROUPS 0

FREELISTS 0

)

/

-- Constraints for STKNORMSOFF

ALTER TABLE sysadm.stknormsoff

ADD CONSTRAINT norm_pk PRIMARY KEY (codnormo)

/

ALTER TABLE sysadm.stknormsoff

ADD CONSTRAINT n_fk FOREIGN KEY (codgd)

REFERENCES sysadm.gdsandsrv(codgdsrv)

/

ALTER TABLE sysadm.stknormsoff

ADD CONSTRAINT nm_fk FOREIGN KEY (codmsm)

REFERENCES sysadm.msmnames(codmsm)

/

ALTER TABLE sysadm.stknormsoff

ADD CHECK ("CODNORMO" IS NOT NULL)

/

ALTER TABLE sysadm.stknormsoff

ADD CHECK ("NMNORMO" IS NOT NULL)

/

-- Table STKNORMSOFFSTRUCT

CREATE TABLE sysadm.stknormsoffstruct

(

codnormo NUMBER(*,0) NOT NULL,

codgd NUMBER(*,0) NOT NULL,

qtybsmsm FLOAT NOT NULL,

percentout FLOAT,

codgdparent NUMBER(*,0)

)

PCTFREE 10

PCTUSED

Initrans 1

MAXTRANS 255

TABLESPACE users

STORAGE (

Initial 65536

NEXT

PCTINCREASE

MINEXTENTS 1

MAXEXTENTS 2147483645

FREELIST GROUPS 0

FREELISTS 0

)

/

-- Comments for STKNORMSOFFSTRUCT

COMMENT ON TABLE sysadm.stknormsoffstruct IS 'Состав рецептур'

/

-- Column Comments for STKNORMSOFFSTRUCT

COMMENT ON COLUMN sysadm.stknormsoffstruct.codgd IS 'Код сырья/материала'

/

COMMENT ON COLUMN sysadm.stknormsoffstruct.codgdparent IS 'Код ГП'

/

COMMENT ON COLUMN sysadm.stknormsoffstruct.codnormo IS 'Код рецептуры'

/

COMMENT ON COLUMN sysadm.stknormsoffstruct.percentout IS 'Процент выхода'

/

COMMENT ON COLUMN sysadm.stknormsoffstruct.qtybsmsm IS 'Количество'

/

-- Indexes for STKNORMSOFFSTRUCT

CREATE UNIQUE INDEX sysadm.nrm_pk

ON sysadm.stknormsoffstruct

( codnormo,

codgd )

PCTFREE 10

Initrans 2

MAXTRANS 255

TABLESPACE users

STORAGE (

Initial 65536

NEXT

PCTINCREASE

MINEXTENTS 1

MAXEXTENTS 2147483645

FREELIST GROUPS 0

FREELISTS 0

)

/

-- Constraints for STKNORMSOFFSTRUCT

ALTER TABLE sysadm.stknormsoffstruct

ADD CONSTRAINT nrm_pk PRIMARY KEY (codnormo,codgd)

/

ALTER TABLE sysadm.stknormsoffstruct

ADD CONSTRAINT codn_fk FOREIGN KEY (codnormo)

REFERENCES sysadm.stknormsoff(codnormo)

/

ALTER TABLE sysadm.stknormsoffstruct

ADD CONSTRAINT nrm_fk FOREIGN KEY (codgd)

REFERENCES sysadm.gdsandsrv1(codgdsrv)

/

ALTER TABLE sysadm.stknormsoffstruct

ADD CHECK ("CODNORMO" IS NOT NULL)

/

ALTER TABLE sysadm.stknormsoffstruct

ADD CHECK ("CODGD" IS NOT NULL)

/

ALTER TABLE sysadm.stknormsoffstruct

ADD CHECK ("QTYBSMSM" IS NOT NULL)

/

-- View RECEPTURE

CREATE OR REPLACE VIEW sysadm.recepture (

cod_gp,

nmgdsrv,

codnormo,

nmnormo,

srok_n,

srok_k,

codgd,

nm_rm,

kolvorm,

codei,

ei,

percentout,

z,

stiom )

AS

select a.codgd"COD_GP", --код ГП

b.nmgdsrv,--Наим ГП

a.codnormo,--Код нормы(рецептуры)

a.nmnormo,--Наме нормы

a.datebegin"Srok_n",--Начало действия нормы

a.dateend"Srok_k",--Конец действия нормы

c.codgd ,--Код расходного материала

d.nmgdsrv "NM_RM",--Наименование расходного материала

c.qtybsmsm "KOLVORM",--Количество расходного материала на 100 кг ГП

d.codmsmbs"CODEI", --код еи

d.nmmsmbs"EI",--наме еи

c.percentout,--%выхода

round(pp.prcmaincur,2) "z",--zena

round((pp.prcmaincur*c.qtybsmsm)/100,2) "stiom"

from stknormsoff a, --таблица с наименованями норм

gdsandsrv b,--справочник готовой продукции

stknormsoffstruct c,-- кол-во по нормам

gdsandsrv d,--справочник расходных материалов

price pp

where a.codgd=b.codgdsrv(+) --соединяет наименования норм со справочником ГП

and c.codgd=d.codgdsrv(+) -- код расходных материалов со справочником РМ

and a.codnormo=c.codnormo(+) -- соединяе головы норм и тела

and pp.codgdsrv(+)=d.codgdsrv

--and a.dateend(+)>=sysdate --срок годности рецептуры

/

-- View GDSANDSRVP

CREATE OR REPLACE VIEW sysadm.gdsandsrvp (

codgdsrv,

nmgdsrv,

codmsmbs,

nmmsmbs,

articul,

codgr,

prcmaincur )

AS

select a.* ,b.prcmaincur from gdsandsrv a,price b where a.codgdsrv=b.codgdsrv(+)

/

-- Sequence GODGD

-- Please Note: The 'Start With' value is taken directly

-- from the 'Last Value' field

CREATE SEQUENCE sysadm.godgd

INCREMENT BY 1

START WITH 0

MINVALUE 0

MAXVALUE 9999999999999999999999999999

NOCYCLE

NOORDER

CACHE 20

/

-- Please Note: The 'Start With' value is taken directly

-- from the 'Last Value' field

CREATE SEQUENCE sysadm.sqcod

INCREMENT BY 1

START WITH 1

MINVALUE 1

MAXVALUE 99999999999999999999

NOCYCLE

NOORDER

CACHE 20

/

-- Sequence SQSTKDOCS

-- Please Note: The 'Start With' value is taken directly

-- from the 'Last Value' field

CREATE SEQUENCE sysadm.sqstkdocs

INCREMENT BY 1

START WITH 1

MINVALUE 1

MAXVALUE 9999999999999

NOCYCLE

NOORDER

CACHE 20

/

23

Соседние файлы в папке Diplom