NexusSmallErp: CommandRungetsedit ...

Glavnaja Stranica | Каталог | Изменения | НовыеКомментарии | Пользователи | Вам запрещён доступРегистрация | Вход:  Пароль:  

CREATE PROCEDURE Command Run_gets_edit_
— Pan Shin
@p1 int, @p2 int, @p3 int
AS
--print 'CommandRun_gets_edit_'


declare @cnt int,@lev int
select @cnt=max(No),@lev=0 from Detailed where u=@@spid and UDN=@p1


update Detailed set String Old?='Новый указатель команды' where UDN=@p1 and u=@@spid and No=0
select @cnt=@cnt+1000
insert into Detailed (No,u,UDN,Lev,Recycable,Acc Mode?,Value Type?,Value Id?,Value Format?, String Value?)
select @cnt,@@spid,@p1,@lev,0, 1,1, 'Name', 'sИмя указателя команды',
select @cnt=@cnt+1000
insert into Detailed (No,u,UDN,Lev,Recycable,Acc Mode?,Value Type?,Value Id?,Value Format?, String Value?)
select @cnt,@@spid,@p1,@lev,0, 1,1, 'No', 'sНомер указателя команды',

select @cnt=@cnt+1000
insert into Detailed (No,u,UDN,Lev,Recycable,Acc Mode?,Value Type?,Value Id?,Value Format?, String Value?)
select @cnt,@@spid,@p1,@lev,0, 1,1, 'PrKey', 'sФайл исполняемой команды', ''


update Detailed set Money Old?=-9.99 where UDN=@p1 and u=@@spid and No=0
GO


 
Файлов нет. [Показать файлы/форму]
Комментариев нет. [Показать комментарии/форму]

Рейтинг@Mail.ru Яндекс цитирования Арбинада - софтотворение и софтостроение