МиСПрИС_Задание2_3_Петрова_Романова_Заболотников_9373
.pdf--Удаление параметра
CREATE OR REPLACE function delete_param (
PIdToDelete integer) RETURNS VOID
as $$ begin
if(select count(*) from parameters where PIdToDelete = id_param) is not null then
DELETE FROM parameters WHERE PIdToDelete = id_param;
else
raise exception 'parameter with this id does not exist. DB wasnt updated.';
end if;
end $$ LANGUAGE plpgsql;
-- Добавление элементов в таблицу class_param
CREATE OR REPLACE function add_class_param (iIdCl int, iIdParam int, max_value int default null, min_value int default null) RETURNS VOID as $$
declare flag int default 0; begin
select id_pair from class_param where iIdCl = id_class and iIdParam = id_param into flag;
if flag is not null then
raise exception 'Pair with this ids already exists';
else
INSERT INTO class_param(id_class, id_param, max_value, min_value) VALUES ($1,$2,$3,$4);
end if;
end $$ LANGUAGE plpgsql;
--Удаление параметра
CREATE OR REPLACE function delete_class_param (
IdToDelete integer) RETURNS VOID
as $$ begin
if(select id_pair from class_param where IdToDelete = id_pair) is not null then
DELETE FROM class_param WHERE IdToDelete = id_pair;
31
else
raise exception 'Pair with this id does not exist. DB wasnt
updated.'; end if;
end $$ LANGUAGE plpgsql;
-- Добавление элементов в таблицу typeprod_param
CREATE OR REPLACE function add_typeprod_param (iIdProd int, iIdParam int, maxVal int default null, minVal int default null) RETURNS VOID as $$
declare flag int default 0; declare clMaxVal int default 0; declare classProd int default 0; declare clMinVal int default 0; begin
if (select id_variation from product where id_product = iIdProd) = 2 then --Если продукт является типовы, то для него можно добавить параметр
select id_pair from typeprod_param where iIdProd = id_prod and iIdParam = id_param into flag;
if (select id_paramtype from parameters where iIdParam = id_param) = 1 then --Если численный параметр
if flag is not null then
raise exception 'Pair with this ids already
exists';
else
select id_class from product where id_product = iIdProd into classProd; --узнаем класс продукта для ограничений параметрра
select max_value from class_param where classProd = id_class and iIdParam = id_param into clMaxVal; --Определяем макс знаения по классу
select min_value from class_param where classProd = id_class and iIdParam = id_param into clMinVal; --Определяем мин знаения по классу
if(clMaxVal<maxval or clMinVal>minval) --Проверка введённых значений по ограниччению класса
32
then
raise exception 'Max and min values are not correct! Look at table class_param.';
else
INSERT INTO typeprod_param (id_prod, id_param, max_val, min_val) VALUES ($1,$2,$3,$4);
if (select id_pair from prod_param where id_prod = iIdProd and id_param = iIdParam) is null then --Если этого параметра ещё нет
insert into prod_param (id_prod,id_param,id_enum_value,value)values($1,$2,null,null);
end if; end if;
end if;
else
if flag is not null then
raise exception 'Pair with this ids already
exists';
else
INSERT INTO typeprod_param(id_prod, id_param, max_val, min_val) VALUES ($1,$2,null,null); --Границы для перечисления не вставляются
if (select id_pair from prod_param where id_prod = iIdProd and id_param = iIdParam) is null then
insert into prod_param (id_prod,id_param,id_enum_value,value)values($1,$2,null,null);
end if;
end if; end if;
else
raise exception 'This produuct is not TypeProduct!'; end if;
end $$ LANGUAGE plpgsql;
--Удаление параметра
CREATE OR REPLACE function delete_typeprod_param (
IdToDelete integer) RETURNS VOID
as $$
33
begin
if(select count(*) from typeprod_param where IdToDelete = id_pair) is not null then
DELETE FROM typeprod_param WHERE IdToDelete = id_pair;
else
raise exception 'Pair with this id does not exist. DB wasnt
updated.'; end if;
end $$ LANGUAGE plpgsql;
-- Добавление элементов в таблицу prod_param
CREATE OR REPLACE function add_prod_param (iIdProd int, iIdParam int, val double precision, iIdEnumVal int) RETURNS table(ORES integer)
as $$
/*функция: Добавление элементов в таблицу prod_param
вход: iIdProd - ид. продукта iIdParam - ид параметра val - значение численное
iIdEnumVal - ид. значения перечисления выход: 1 - БД обновлена, 0 - Ошибка
эффекты: 1. Проверяет подходит ли под ограничения val в таблицах typeprod_param и class_param
2. Проверяет правильность перечисления через соответсвие таблицы параметров
3.Проверяет существование такой же пары параметр-продукт
4.Также запрос с несуществующим значчением перечисления
не пройдет
5. Пропустит параметр с нулевыми значениями
*/
declare flag int default 0; declare vEnumPar int default 0; declare vValEnum int default 0; declare varProd int default 0; declare paramType int default 0; declare classProd int default 0;
declare MinVal double precision default 0; declare MaxVal double precision default 0;
34
declare vTypeProd int default 0; begin
select id_pair from prod_param where iIdProd = id_prod and iIdParam = id_param into flag;
if flag is not null then
raise notice 'Pair with this ids already exists'; oRes = 0;
return;
else
if (select id_paramType from parameters where id_param = iIdParam limit 1) = 1 then --если параметр является ччисленным
select id_variation from product where id_product = iIdProd into varProd; --узнаем тип продукта для ограничений параметрра
select id_class from product where id_product = iIdProd into classProd; --узнаем класс продукта для ограничений параметрра
--(если это типовой продукт или вариант конфигуации
--, то typeProd = 2 или 3)
if (varProd != 2 and varProd != 3) then
select max_value from class_param where classProd = id_class and iIdParam = id_param into MaxVal; --Определяем макс знаения по классу
select min_value from class_param where classProd = id_class and iIdParam = id_param into MinVal; --Определяем мин знаения по классу
else
if (varProd = 2) then --Если изделие является типовым, то рассматриваем его ограничения в таблице typeprod_param и class_param
if (select id_pair from typeprod_param where iIdProd = id_prod and iIdParam = id_param) is not null then
select max_val from typeprod_param where iIdProd = id_prod and iIdParam = id_param into MaxVal; --
Определяем макс знаения по типпу
select min_val from typeprod_param where iIdProd = id_prod and iIdParam = id_param into MinVal; --
Определяем мин знаения по типу
35
else
select max_value from class_param where classProd = id_class and iIdParam = id_param into MaxVal; --
Определяем макс знаения по классу
select min_value from class_param where classProd = id_class and iIdParam = id_param into MinVal; --
Определяем мин знаения по классу end if;
end if;
if (varProd = 3) then --Если изделие не является типовым, то рассматриваем ограничения в таблице typeprod_param и class_param для его типового продукта
select id_type_prod from product where iIdProd = id_product into vTypeProd;
if (select id_pair from typeprod_param where vTypeProd = id_prod and iIdParam = id_param) is not null then
select max_val from typeprod_param where vTypeProd = id_prod and iIdParam = id_param into MaxVal; --
Определяем макс знаения по типпу
select min_val from typeprod_param where vTypeProd = id_prod and iIdParam = id_param into MinVal; --
Определяем мин знаения по типу else
select max_value from class_param where classProd = id_class and iIdParam = id_param into MaxVal; --
Определяем макс знаения по классу
select min_value from class_param where classProd = id_class and iIdParam = id_param into MinVal; --
Определяем мин знаения по классу end if;
end if; end if;
if((MaxVal>=val and MinVal<=val) or (val is null)) --
Проверка введённых значений по ограниччению класса then
INSERT INTO prod_param(id_prod, id_param, id_enum_value, value) VALUES (iIdProd,iIdParam,null,val);
36
oRes = 1; return;
else
raise notice 'Max (%) and min(%) vffalues (%) are not correct! Look at table class_param.',MaxVal, MinVal,val;
oRes = 0; return;
end if;
else --если параметр - перечисление
select id_enum from enum_value where iIdEnumVal = id_value into vValEnum; --найдем значение перечисления для вставляемого значения
select id_enum from parameters where id_param = iIdParam into vEnumPar; --найдем значение перечисления для параметра
if(vValEnum = vEnumPar or iIdEnumVal is null) then INSERT INTO prod_param(id_prod, id_param,
id_enum_value, value) VALUES (iIdProd,iIdParam,iIdEnumVal,NULL); oRes = 1;
return;
else
raise exception 'id_enum_value is not correct! Please, look at table parameters.';
oRes = 0; return;
end if;
end if;
end if;
end $$ LANGUAGE plpgsql;
-- Обновление значений prod_param
CREATE OR REPLACE function update_prod_param (iIdProd int, iIdParam int, val double precision, iIdEnumVal int) RETURNS table(ORES integer) as $$
/*функция: Добавление элементов в таблицу prod_param
вход: iIdProd - ид. продукта
37
iIdParam - ид параметра val - значение численное
iIdEnumVal - ид. значения перечисления выход: 1 - БД обновлена, 0 - Ошибка
эффекты: 1. Проверяет подходит ли под ограничения val в таблицах typeprod_param и class_param
2. Проверяет правильность перечисления через соответсвие таблицы параметров
3.Проверяет существование такой же пары параметр-продукт
4.Также запрос с несуществующим значчением перечисления
не пройдет
5. Пропустит параметр с нулевыми значениями
*/
declare flag int default 0; declare tr1 int;
declare tr2 int;
declare vEnumPar int default 0; declare vValEnum int default 0; declare varProd int default 0; declare paramType int default 0; declare classProd int default 0;
declare MinVal double precision default 0; declare MaxVal double precision default 0; declare vTypeProd int default 0;
begin
select id_pair from prod_param where iIdProd = id_prod and iIdParam = id_param into flag;
if flag is null then
raise exception 'Pair with this ids does not exist'; oRes = 0;
return;
else
select id_variation from product where id_product = iIdProd into varProd; --узнаем тип продукта для ограничений параметрра
select id_type_prod from product where iIdProd = id_product into vTypeProd;
--Если это ваиация прродукта и передан типовой параметр, то обновляем значение, иначче - нет
38
if (select id_pair from typeprod_param where id_prod = vTypeProd and id_param = iIdParam) is not null or varProd != 3 then
if (select id_paramType from parameters where id_param = iIdParam limit 1) = 1 then --если параметр является ччисленным
select id_class from product where id_product = iIdProd into classProd; --узнаем класс продукта для ограничений параметрра
--(если это типовой продукт или вариант
конфигуации
--, то typeProd = 2 или 3)
if (varProd != 2 and varProd != 3) then
select max_value from class_param where classProd = id_class and iIdParam = id_param into MaxVal; --Определяем макс знаения по классу
select min_value from class_param where classProd = id_class and iIdParam = id_param into MinVal; --Определяем мин знаения по классу
else
if (varProd = 2) then --Если изделие является типовым, то рассматриваем его ограничения в таблице typeprod_param и class_param
if (select id_pair from typeprod_param where iIdProd = id_prod and iIdParam = id_param) is not null then
select max_val from typeprod_param where iIdProd = id_prod and iIdParam = id_param into MaxVal; --Определяем макс знаения по типпу
select min_val from typeprod_param where iIdProd = id_prod and iIdParam = id_param into MinVal; --Определяем мин знаения по типу
else
select max_value from class_param where classProd = id_class and iIdParam = id_param into MaxVal; --
Определяем макс знаения по классу
select min_value from class_param where classProd = id_class and iIdParam = id_param into MinVal; --
Определяем мин знаения по классу
39
end if;
end if;
if (varProd = 3) then --Если изделие не является типовым, то рассматриваем ограничения в таблице typeprod_param и class_param для его типового продукта
if (select id_pair from typeprod_param where vTypeProd = id_prod and iIdParam = id_param) is not null then
select max_val from typeprod_param where vTypeProd = id_prod and iIdParam = id_param into MaxVal; --Определяем макс знаения по типпу
select min_val from typeprod_param where vTypeProd = id_prod and iIdParam = id_param into MinVal; --Определяем мин знаения по типу
else
select max_value from class_param where classProd = id_class and iIdParam = id_param into MaxVal; --
Определяем макс знаения по классу
select min_value from class_param where classProd = id_class and iIdParam = id_param into MinVal; --
Определяем мин знаения по классу
end if; end if;
end if;
if((MaxVal>=val and MinVal<=val) or (val is null)) --Проверка введённых значений по ограниччению класса
then
update prod_param set value = val where iIdProd = id_prod and iIdParam = id_param; --Обновим значение в записи
oRes = 1; return;
else
raise exception 'Max (%) and min(%) values
(%) are not correct! Look at table class_param.',MaxVal, MinVal,val; oRes = 0;
return; end if;
40