Цитата: -- Создание доп. характеристики контрагента "Тип закупок от поставщика"
declare
sPropID SAClientPropDef.ID%type := 'Alco.SuppliersType';
iPos integer;
begin
select max(Position) into iPos from SAClientPropDef;
insert into SAClientPropDef(ID, Name, DataType, LimitChoice, Position)
select sPropID,'Тип закупок от поставщика',0,'1',iPos+1 from dual
where not exists (select 1 from SAClientPropDef where ID=sPropID);
insert into SAClientPropDefVal(ID,ValID,ValData)
select sPropID,0,'Производитель' from dual
where not exists (select 1 from SAClientPropDefVal where ID=sPropID and ValID=0);
insert into SAClientPropDefVal(ID,ValID,ValData)
select sPropID,1,'Оптовый поставщик' from dual
where not exists (select 1 from SAClientPropDefVal where ID=sPropID and ValID=1);
insert into SAClientPropDefVal(ID,ValID,ValData)
select sPropID,2,'Импорт' from dual
where not exists (select 1 from SAClientPropDefVal where ID=sPropID and ValID=2);
end;
/
-- Создание доп. характеристики контрагента, связанных с лицензией
declare
sPropID SAClientPropDef.ID%type;
iPos integer;
begin
select max(Position) into iPos from SAClientPropDef;
sPropID := 'Alco.LicSeriesNumber';
iPos := iPos + 1;
insert into SAClientPropDef(ID, Name, DataType, Position)
select sPropID,'Серия и номер лицензии',0,iPos from dual
where not exists (select 1 from SAClientPropDef where ID=sPropID);
sPropID := 'Alco.LicBeginDate';
iPos := iPos + 1;
insert into SAClientPropDef(ID, Name, DataType,Position)
select sPropID,'Дата выдачи лицензии',0,iPos from dual
where not exists (select 1 from SAClientPropDef where ID=sPropID);
sPropID := 'Alco.LicEndDate';
iPos := iPos + 1;
insert into SAClientPropDef(ID, Name, DataType, Position)
select sPropID,'Дата окончания лицензии',0,iPos from dual
where not exists (select 1 from SAClientPropDef where ID=sPropID);
sPropID := 'Alco.LicFrom';
iPos := iPos + 1;
insert into SAClientPropDef(ID, Name, DataType, Position)
select sPropID,'Кем выдана лицензия',0,iPos from dual
where not exists (select 1 from SAClientPropDef where ID=sPropID);
end;
/
commit;
-- Создание классификатора алкогольной продукции
create or replace procedure SMLoadSpirit
is
vID SASpiritCode.ID%type;
vPosition SASpiritCode.Position%type := 1;
procedure AddRow(pCode SASpiritCode.Code%type,
pTitle in SASpiritCode.Title%type)
is
i pls_integer;
begin
select count(*) into i from SASpiritCode where Code = pCode;
if i = 0 then
insert into SASpiritCode(ID,Code,Title,Position)
values (vID,pCode,pTitle,vPosition);
vID := vID + 1;
else
update SASpiritCode set Title = pTitle, Position=vPosition
where Code = pCode;
end if;
vPosition := vPosition + 1;
exception when DUP_VAL_ON_INDEX
then
raise_application_error(-20100, 'В классификаторе уже имеется группа с названием: '||pTitle);
end;
begin
select nvl(max(ID),0)+1 into vID from SASpiritCode;
update SASpiritCode set Position=null;
AddRow('010','Спирт-сырец этиловый из пищевого сырья');
AddRow('020','Спирт этиловый ректификованный из пищевого сырья');
AddRow('025','Спирт этиловый ректификованный из непищевого растительного сырья');
AddRow('030','Спирт этиловый из ЭАФ');
AddRow('040','Спирт этиловый синтетический');
AddRow('050','Спирт этиловый абсолютированный');
AddRow('060','Другие спирты (за исключением денатурированных)');
AddRow('070','Спирт этиловый денатурированный из пищевого сырья');
AddRow('080','Спирт этиловый денатурированный из непищевого сырья');
AddRow('090','Фракция головная этилового спирта');
AddRow('140','Спирт этиловый питьевой');
AddRow('200','Водка');
AddRow('211','Ликероводочные изделия с содержанием этилового спирта до 25% включительно');
AddRow('212','Ликероводочные изделия с содержанием этилового спирта свыше 25%');
AddRow('230','Коньяки,реализуемые в бутылках');
AddRow('231','Коньяки обработанные, предназначенные для отгрузки с целью розлива на других предприятиях или промпереработки');
AddRow('241','Напитки коньячные, бренди с содержанием этилового спирта до 25% включительно');
AddRow('242','Напитки коньячные, бренди с содержанием этилового спирта свыше 25%');
AddRow('250','Напитки винные с содержанием этилового спирта до 25% включительно');
AddRow('251','Напитки винные с содержанием этилового спирта свыше 25%');
AddRow('260','Слабоалкогольная продукция');
AddRow('270','Другие спиртные напитки с содержанием этилового спирта до 25% включительно');
AddRow('280','Другие спиртные напитки с содержанием этилового спирта свыше 25%');
AddRow('400','Вина натуральные');
AddRow('410','Вина (за исключением натуральных, игристых и шампанских)');
AddRow('420','Вина плодовые');
AddRow('440','Вина игристые');
AddRow('450','Вина шампанские');
AddRow('460','Другие вина');
AddRow('320','Виноматериалы');
AddRow('330','Соки спиртованные');
AddRow('331','Соки сброженно-спиртованные');
AddRow('340','Дистилляты');
AddRow('300','Коньячные спирты');
AddRow('310','Кальвадосные спирты');
AddRow('350','Другая спиртосодержащая пищевая продукция');
AddRow('481','Парфюмерно-косметическая продукция');
AddRow('482','Товары бытовой химии');
AddRow('483','Спиртосодержащие растворы');
AddRow('484','Другая спиртосодержащая непищевая продукция');
AddRow('500','Пиво с содержанием объемной доли этилового спирта свыше 0,5 % и до 8,6% включительно ');
AddRow('510','Пиво с содержанием объемной доли этилового спирта свыше 8,6%');
AddRow('520','Напитки, изготавливаемые на основе пива');
update SASpiritCode set IsBeer = '1'
where Code in ('500','510','520');
commit;
end;
/
exec SMLoadSpirit;
drop procedure SMLoadSpirit;