if exists (select * from sysobjects where id = object_id(N'[dbo].[DOC_EDITING_STATUS]') and OBJECTPROPERTY(id, N'IsUserTable') =  1 )
drop table [dbo].[DOC_EDITING_STATUS]
GO

CREATE TABLE [dbo].[DOC_EDITING_STATUS] (
	[docid] [nvarchar] ( 10 ) NOT NULL ,
	[spid] [smallint] NOT NULL ,
	[hostname] [nchar] ( 128 ) NOT NULL ,
	[hostprocess] [nchar] ( 8 ) NOT NULL ,
	[loginame] [nchar] ( 128 ) NOT NULL ,
	[login_time] [datetime] NOT NULL 
)
GO

CREATE PROCEDURE dbo.OPEN_DOC_STATUS_SP
	@docid nvarchar( 10 ), 
	@action tinyint,
	@hostname varchar( 128 ) out,
             @loginame varchar( 128 ) out

 --Процедура отслеживания документов, открытых в режиме редактирования
 
 -- Входные параметры:
 
 --  @docid - идентификатор документа
 
 --  @action - 1-документ открывается; 2- документ закрывается, 3 - документ удаляется
 
 -- Выходные параметры:
 
 --   RETURN -1 Уже открыт, 0 Еще не открыт
 
 --  @hostname - рабочая станция
 
 --  @loginame - имя пользователя
 

AS
  SET NOCOUNT ON
  -- Попытка открытия записи. Если она открыта, то возвращаем -1 и станцию с пользователем
 
  IF @action =  1  BEGIN
    IF EXISTS(SELECT DOC_EDITING_STATUS.*
              FROM DOC_EDITING_STATUS
                   INNER JOIN master..sysprocesses sysproc ON
                   DOC_EDITING_STATUS.spid = sysproc.spid AND
                   DOC_EDITING_STATUS.hostname = sysproc.hostname AND
                   DOC_EDITING_STATUS.hostprocess = sysproc.hostprocess AND
                   DOC_EDITING_STATUS.loginame = sysproc.loginame AND
                   DOC_EDITING_STATUS.login_time = sysproc.login_time
              WHERE DOC_EDITING_STATUS.docid = @docid) BEGIN
	      SELECT 
		@hostname = DOC_EDITING_STATUS.hostname, 
		@loginame = DOC_EDITING_STATUS.loginame
	      FROM DOC_EDITING_STATUS
	      WHERE docid = @docid
	      RETURN(- 1 )   -- запись занята
 
	END
    ELSE BEGIN  -- Открываем запись и вносим данные о ее открытии в табл. DOC_EDITING_STATUS
 
      DELETE DOC_EDITING_STATUS
      WHERE docid = @docid
      INSERT INTO DOC_EDITING_STATUS(docid, spid, hostname, hostprocess, loginame, login_time)
      SELECT @docid,
             sysproc.spid,
             sysproc.hostname,
             sysproc.hostprocess,
             sysproc.loginame,
             sysproc.login_time
      FROM master..sysprocesses sysproc
      WHERE sysproc.spid = @@spid
      RETURN( 0 )   -- запись свободна для открытия и открывается. данные сохраняются в табл DOC_EDITING_STATUS
 
    END
  END

 -- запись очищается только тем процессом который ее открыл
 
  IF @action =  2  BEGIN  -- Закрытие записи и удаление информации о ней
 
    DELETE DOC_EDITING_STATUS
    WHERE docid = @docid AND
          spid = @@spid
    RETURN( 0 )
  END

 --  -- Попытка удаления записи. Если она открыта, то возвращаем -1 и станцию с пользователем
 
  IF @action =  3  BEGIN
    IF EXISTS(SELECT DOC_EDITING_STATUS.*
              FROM DOC_EDITING_STATUS
                   INNER JOIN master..sysprocesses sysproc ON
                   DOC_EDITING_STATUS.spid = sysproc.spid AND
                   DOC_EDITING_STATUS.hostname = sysproc.hostname AND
                   DOC_EDITING_STATUS.hostprocess = sysproc.hostprocess AND
                   DOC_EDITING_STATUS.loginame = sysproc.loginame AND
                   DOC_EDITING_STATUS.login_time = sysproc.login_time
              WHERE DOC_EDITING_STATUS.docid = @docid) BEGIN
	      SELECT 
		@hostname = DOC_EDITING_STATUS.hostname,
             		@loginame = DOC_EDITING_STATUS.loginame
       	     FROM DOC_EDITING_STATUS
      	     WHERE docid = @docid
      	     RETURN(- 1 )  -- запись занята
 
    	END
    ELSE BEGIN
      DELETE DOC_EDITING_STATUS
      WHERE docid = @docid AND
          spid = @@spid
      RETURN( 0 )
    END
  END
  
  SET NOCOUNT OFF
RETURN( 0 )

procedure TForm1.acPropertiesExecute(Sender: TObject);
var
  S, Str: String;
  ADOStoredProc: TADOStoredProc;
begin
  if DBGridEh1.DataSource = nil then Exit;
{Определение номера документа и проверка статуса доступности заявления}
  S:=  {ТВОЙ УНИКАЛЬНЫЙ ИДЕНТИФИКАТОР ЗАПИСИ (надо поймать самому)};

{Проверка, открыта ли запись другим пользователем. Процедура выполняется на сервере
возвращает - 1 , если запись редактируется, станцию и  редактирующего юзера}
  ADOStoredProc:= TADOStoredProc.Create(nil);
  try
    ADOStoredProc.Connection := SQL.SQL_Data;
    ADOStoredProc.ProcedureName := 'OPEN_DOC_STATUS_SP';
    ADOStoredProc.Parameters.Refresh;
    ADOStoredProc.Parameters[ 1 ].Value := S;
    ADOStoredProc.Parameters[ 2 ].Value :=  1 ; // Документ открывается
    ADOStoredProc.Parameters[ 3 ].Value := ''; // рабочая станция
    ADOStoredProc.Parameters[ 4 ].Value := ''; // пользователь
    ADOStoredProc.ExecProc;
    if ADOStoredProc.Parameters[ 0 ].Value = - 1  then begin  //Запись УЖЕ открыта
      Str:='Заявление: ' + # 9  + S + # 10  +
        'Запись открыта пользователем ' + QuotedStr(UpperCase(ADOStoredProc.Parameters[ 4 ].Value)) +
        ' на рабочей станции ' + QuotedStr(ADOStoredProc.Parameters[ 3 ].Value) + # 10  +
        'в режиме редактирования.' + # 10  +
        'Открыть запись только для чтения?';
      if Application.MessageBox (PChar(Str), 'Предупреждение',
        MB_YESNO + MB_ICONWARNING) = IDYES then begin
...
...
...
      end;
    end
    else begin
       Str:= 'Заявление No.' + S + ' открывается Вами в режиме редактирования' + # 10  +
        'и будет недоступно другим пользователям системы.';
      Application.MessageBox (PChar(Str), 'Предупреждение', MB_OK	+ MB_ICONWARNING);
      // открытие формы заполнения Заявления в режиме редактирования
...
...
...
    end;
    ADOStoredProc.Free;
  except
      ShowMessage('ERROR! Can not save recod about opening document');
  end;
end;

procedure TFMigratioCGRP.CloseFDocument(RequestCtrlNum: string);
var
  ADOStoredProc: TADOStoredProc;
begin
// Разблокировка записи, открытой для редактирования
  ADOStoredProc:= TADOStoredProc.Create(nil);
  try
    ADOStoredProc.Connection := SQL.SQL_Data;
    ADOStoredProc.ProcedureName := 'OPEN_DOC_STATUS_SP';
    ADOStoredProc.Parameters.Refresh;
    ADOStoredProc.Parameters[ 1 ].Value := RequestCtrlNum;
    ADOStoredProc.Parameters[ 2 ].Value :=  2 ; // Документ закрывается
    ADOStoredProc.Parameters[ 3 ].Value := ''; // рабочая станция
    ADOStoredProc.Parameters[ 4 ].Value := ''; // пользователь
    ADOStoredProc.ExecProc;
  except
    ShowMessage('ERROR! Can not save record about free document.');
  end;
  ADOStoredProc.Free;
end;