-- Panshin, 2003.08.19
declare @ufRoot int, @Class varchar(24), @Human Name varchar(128), @Com Root int, @Class UDN int
select @Class = 'First'
select @Human Name = 'Первый класс'
if not exists (select * from Class where Name=@Class)
begin exec Obj Create Class @Class, @Human Name, 'AutoDoc', 0, 0, 0, 0, 0, 0 end
select @Com Root = (select UDN from Roots where Root Name='Seller')
if not exists (select * from Roots where Root Name='First') begin
exec Doc Create Enlisted @Com Root, 'Первый класс', 'Enlisted', @ufRoot output
insert into Roots (UDN, Root Name, Comment) values (@ufRoot, 'First', 'Первый класс')
select @Class UDN = UDN from Docs where No=@Class and Class='Class'
delete from Folder Class where UDN=@Class UDN
insert into Folder Class (UDN,Folder,Class) select @Class UDN,@ufRoot,@Class
end
GO
exec Ins Privilege 'edit_First','Редактирование Первый класс','Первый класс'
exec Ins Privilege 'view_First','Просмотр Первый класс','Первый класс'
exec Ins Privilege 'First_PRE','Шаг назад... Первый класс','Первый класс'
exec Ins Privilege 'First_POST','Шаг вперед... Первый класс','Первый класс'
GO
if exists (select * from sysobjects where xtype='U' and name='TFirst') drop table TFirst
CREATE TABLE TFirst(
UDN int NOT NULL primary key,
num int NULL,
status int NULL,
substatus int NULL,
comment varchar (128) NULL,
f_one int,
f_two int,
f_three int,
eend int
)
GO
declare @udn int
exec Doc Create Numerator 'Нумератор Первый класс', 'First','First',@udn
GO