[ОТВЕТИТЬ]
Опции темы
19.11.2014 08:37  
Dim
в первых версиях СМ, где внедрили алкодекларацию, был скрипт , который заполнял классификатор. Сейчас такого скрипта нет. Кто поделится правильно заполненным классификатором?
 
19.11.2014 08:38  
Dim
файлом почтовой выгрузки, если не трудно
 
19.11.2014 08:56  
Dim
че-то думаю не покатит почтой чужой файл принять...
 
19.11.2014 08:59  
baggio
Цитата:
-- Создание доп. характеристики контрагента "Тип закупок от поставщика"

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;
то что было в ранних версиях
 
"Спасибо" baggio от:
19.11.2014 09:00  
Mtirt
У тебя классификатор совсем пустой?
 
19.11.2014 09:13  
Dim
абсолютно
 
19.11.2014 09:16  
Dim
baggio, у тебя старый классификатор (
 
19.11.2014 09:19  
baggio
Цитата:
Сообщение от Dim
baggio, у тебя старый классификатор (
ты просил что шло раньше ... что смогла :)
 
19.11.2014 09:27  
Dim
а свежего классификатора нет ни у кого?
 
19.11.2014 09:36  
OlegON
его же выгрузить можно, напиши скрипт, какой запустить, кто-нибудь да не поленится сделать...
 
 


Опции темы



Часовой пояс GMT +3, время: 11:24.

Все в прочитанное - Календарь - RSS - - Карта - Вверх 👫 Яндекс.Метрика
Форум сделан на основе vBulletin®
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd. Перевод: zCarot и OlegON
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.