-- тестовая таблица
CREATE TABLE [dbo].[test_table] (
	[id] [int] IDENTITY ( 1 ,  1 ) NOT NULL PRIMARY KEY, -- ключ
	[data] [varchar] ( 50 ) NOT NULL , -- какие-то данные, для примера один столбец
	[spid] [smallint] NULL -- идентификатор процесса либо NULL
) ON [PRIMARY]
GO
-- Выборка из таблицы, столбец readonly в фоксе будет логического типа
CREATE PROCEDURE select_test_table 
@id int
AS
SET NOCOUNT ON
DECLARE @spid smallint
SELECT @spid = spid FROM test_table WHERE id = @id
IF @spid IS NULL 
OR NOT EXISTS(SELECT * FROM master.dbo.sysprocesses WHERE spid = @spid)
	UPDATE test_table SET spid = @@spid
	WHERE id = @id 
SELECT data, 
CAST(CASE WHEN spid = @@spid THEN  0  ELSE  1  END AS bit) AS readonly
FROM test_table WHERE id = @id
GO
-- обновление данных и сброс идентификатора процесса в NULL
-- "чужие" данные обновлять нельзя
CREATE PROCEDURE update_test_table
@id int,
@data as varchar ( 50 )
AS
SET NOCOUNT ON
DECLARE @spid smallint
SELECT @spid = spid FROM test_table WHERE id = @id
IF @spid = @@spid 
	UPDATE test_table SET data = @data, spid = NULL
	WHERE id = @id
GO
-- INSERT, просто INSERT
CREATE PROCEDURE insert_test_table 
@data as varchar( 50 )
AS
SET NOCOUNT ON
INSERT INTO test_table (data) VALUES (@data)
GO
-- удаление данных 
-- "чужие" данные удалять нельзя
CREATE PROCEDURE delete_test_table
@id as int
AS
SET NOCOUNT ON
DECLARE @spid smallint
SELECT @spid = spid FROM test_table WHERE id = @id
IF @spid IS NULL 
OR NOT EXISTS(SELECT * FROM master.dbo.sysprocesses WHERE spid = @spid)
	DELETE FROM test_table WHERE id = @id
GO
-- сброс идентификатора процесса в NULL
-- например, по кнопке "отмена"
CREATE PROCEDURE free_test_table
@id int
AS
SET NOCOUNT ON
DECLARE @spid smallint
SELECT @spid = spid FROM test_table WHERE id = @id
IF @spid = @@spid 
	UPDATE test_table SET spid = NULL
	WHERE id = @id
GO

EXEC insert_test_table '11111'
GO
EXEC insert_test_table '22222'
GO
EXEC insert_test_table '33333'
GO
EXEC select_test_table  3 
GO
SELECT * FROM test_table
GO

EXEC select_test_table  3 
GO
EXEC update_test_table  3 , '44444'
GO
EXEC select_test_table  3 
GO
EXEC free_test_table  3 
GO
SELECT * FROM test_table
GO

p=SQLEXEC(nConnect,"EXEC GetTVTimeStamp 'tstView1'","MyCursor")

CREATE PROCEDURE test_proc 
	@p1 int , 
	@p2 int OUTPUT
AS
	DECLARE @p int
	SET @p = @p2 + @p1
	SET @p2 = @p2 * @p1
RETURN @p
GO

p1 =  2 
p2 =  3 
?SQLEXEC( 1 , "declare @return int exec @return=test_proc ?p1, ?@p2 select @return as value", "return")
? p1
? p2
? return.value

CREATE PROCEDURE test_proc2 
	@p1 int, 
	@p2 int OUTPUT, 
	@return int OUTPUT
AS
	EXEC @return = test_proc @p1, @p2 OUTPUT
GO

?SQLEXEC(nConnect, "exec test_proc2 ?p1, ?@p2, ?@pp")

p=SQLEXEC(nConnect,"EXEC ?@pp=GetTVTimeStamp 'tstView1'")

declare @P1 int
set @P1= 0 
exec sp_executesql N'EXEC @P1 OUTPUT =GetTVTimeStamp ''tstView1''', N'@P1 int OUTPUT', @P1 output
select @P1

-- тестовая таблица
CREATE TABLE [dbo].[test_table] (
	[id] [int] IDENTITY ( 1 ,  1 ) NOT NULL PRIMARY KEY, -- ключ
	[data] [varchar] ( 50 ) NOT NULL , -- какие-то данные, для примера один столбец
	[spid] [smallint] NULL, -- идентификатор процесса либо NULL
	[login_time] [datetime ] NULL -- время старта процесса на сервере
) ON [PRIMARY]
GO
-- Выборка из таблицы, столбец readonly в фоксе будет логического типа
CREATE PROCEDURE select_test_table 
@id int
AS
SET NOCOUNT ON
DECLARE @spid smallint
DECLARE @login_time datetime
DECLARE @this_login_time datetime
SELECT @spid = spid, @login_time = login_time FROM test_table WHERE id = @id
SELECT @this_login_time = login_time FROM master.dbo.sysprocesses WHERE spid = @@spid
IF @spid IS NULL OR NOT EXISTS
(SELECT * FROM master.dbo.sysprocesses WHERE spid = @spid AND login_time = @login_time)
	UPDATE test_table SET spid = @@spid, login_time = @this_login_time
	WHERE id = @id 
SELECT data, 
CAST(CASE WHEN spid = @@spid THEN  0  ELSE  1  END AS bit) AS readonly
FROM test_table WHERE id = @id
GO