CREATE TABLE [dbo].[monitor](
	[ID_MONITOR] [int] IDENTITY(1,1) NOT NULL,
	[ID_USER] [int] NULL,
	[hostname] [varchar](128) NULL,
	[login_time] [datetime] NULL,
	[exit_time] [datetime] NULL,
	[isfail] [smallint] NOT NULL,
	[ismark] [smallint] NOT NULL,
	[app] [varchar](128) NULL,
	[ver] [varchar](20) NULL,
	[spid] [smallint] NULL,
 CONSTRAINT [PK_MONITOR] PRIMARY KEY CLUSTERED 
(
	[ID_MONITOR] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO

-- Проверка, и если верно, выдача всех реквизитов 
ALTER PROCEDURE [dbo].[knaSvcAccess]
	@UserID		int,               
	@Pass		varchar(20),
	@Ver		varchar(20),
	@AppCaption	varchar(128)
AS
BEGIN
	DECLARE 
		@LTimes		datetime,
		@spid		smallint,	
		@User		varchar(30),
		@PasTmp		varchar(20)
	
	if exists(SELECT * FROM svcUsers WHERE UserID=@UserID and Pass=@Pass)
	-- Значит можно входить
	begin		
		--Регистрируем в мониторе
		--Время входа
		SELECT  @LTimes=sysproc.login_time
			FROM master..sysprocesses sysproc
			WHERE sysproc.spid=@@spid

		INSERT INTO dbo.Monitor(id_user,hostname,app,ver,spid,login_time) 
			values (@UserID, host_name(),@AppCaption,@VER,@@SPID,@LTimes)
		SELECT SCOPE_IDENTITY() AS id_Monitor,
			RoleID,UserID, txt 
		FROM svcUsers WHERE UserID=@UserID
	end 
	else
		return -1
END

ALTER PROCEDURE [dbo].[aiLog]
	@ACTION		int,
	@TXT		varchar(1024)=null,
	@IDREC		int=NULL,
	@IDRECOLD	int=NULL
AS
BEGIN
	SET NOCOUNT ON;
	declare 
		@ID_MONITOR	int,
		@LTimes		datetime


	select @LTimes=login_time from sys.sysprocesses  where spid = @@spid 
	
	select @ID_MONITOR=ID_MONITOR from dbo.monitor where spid=@@SPID and ismark=0 and login_time = @LTimes
	if @ID_MONITOR is null
	begin
		INSERT INTO dbo.monitor(hostname,login_time,app,spid) 
			values (host_name(),getdate(),app_name(),@@SPID)
		set @ID_MONITOR=SCOPE_IDENTITY()
	end 	
--это не важно в данном случае
	INSERT INTO dbo.logdb 
		(id_monitor,id_action,txt,dat,idrec,idrecold)
	VALUES (@ID_MONITOR,@ACTION,@TXT,getdate(),@IDREC,@IDRECOLD)
--	
END