NexusSmallErp : Command Runreadedit

CREATE PROCEDURE Command Run_read_edit_
— Pan Shin

@p1 int, @p2 int, @p3 int

AS
--print 'CommandRun_read_edit_'

declare

@No varchar(128),
@Name varchar(128),
@Pr Key? varchar(255),
@str varchar(128),
@special int

- from Docs

select @Name=Name, @No=No from Docs where UDN=@p1
select @Pr Key? = (select Pr Key? from TCT_CommandRun where UDN = @p1)

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Имя указателя командл', @Name

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, 0,1, 'No', 'sНомер указателя командл', @No

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Файл исполняемой командл', @Pr Key?

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

NexusSmallErp: CommandRunreadedit ...