ALTER PROCEDURE [справочник_обновление].[хп_ПроверкаУсловий]
	@TableName				VARCHAR(100)
	,@AutoIDFieldValue		VARCHAR(100)
	,@ОбратнаяСвязь			VARCHAR(1000) OUT
	,@CanEdit				BIT = 1 OUT -- по умаолчанию можно редактировать
	,@EditOfHours			SMALLINT = 24 -- кол. часов на редактирование 	
AS
BEGIN
	SET NOCOUNT ON;

	SET @ОбратнаяСвязь = ''
	
	DECLARE
		@SCHEMA					VARCHAR(100) 
		,@TableNameOnly			VARCHAR(100) 
		,@AutoIDField			VARCHAR(100) 

	-- надо найти автоинкрементное поле
	SET @CanEdit = 1
	
	SELECT @AutoIDField = c.name
	FROM sys.columns c
	WHERE c.object_id = OBJECT_ID (@TableName, 'U')
		AND c.is_identity = 1
	
	-- нахожу дату последнего редактирования записи
	DECLARE
		@TempTable TABLE (ид int, DateTimeStamp DATETIME, HostName VARCHAR(100), UserLogin VARCHAR(100), Op INTEGER)
	DECLARE
		@ДатаТекущая DATETIME = GETDATE()
		,@ДатаСоздания DATETIME = NULL
		,@ПрошлоВремениСмоментаРедактирования INT
	
	INSERT @TempTable
		EXECUTE лог.хп_ЛогИзмененийТаблицы @TableName, '1', @AutoIDField, @AutoIDFieldValue
		
	SELECT TOP 1
		@ДатаСоздания = DateTimeStamp
		FROM @TempTable
		WHERE 
			ид = @AutoIDFieldValue -- навсякий случай поидее из процедуры только с этитим ид
			AND Op = 2 -- вставка
		ORDER BY DateTimeStamp DESC
	
	SET @ПрошлоВремениСмоментаРедактирования  = DATEDIFF(hour, @ДатаСоздания, @ДатаТекущая)
	
	IF (@ПрошлоВремениСмоментаРедактирования > @EditOfHours) OR (@ДатаСоздания IS NULL)
		BEGIN
		--SET @ВсеИД = 0
		SET @ОбратнаяСвязь = 'С момента создания данных прошло более ' + CAST(@EditOfHours AS VARCHAR(3)) + ' часов.'
			+ CHAR(13) + 'Сохранятся только те данные, которые ранее по тем или иным причинам не были введены !!!'
			+ CHAR(13) + 'Удаление ЗАПРЕЩЕНО !!!'
			
		SET @CanEdit = 0
		END
			
END

ALTER PROCEDURE [лог].[хп_ЛогИзмененийТаблицы]
  @ТаблИмя        VARCHAR(100)
  ,@ВозвратитьПоля VARCHAR(250) = NULL --через пробел указать порядковый номер полей кот. необходимо возвратить в логируемой таблице
  ,@ПолеИмя        VARCHAR(100) = NULL -- по которому идет поиск
  ,@ПолеЗначение   VARCHAR(500) = NULL -- искомое значение поля
WITH EXECUTE AS SELF -- здесь используется динамический запрос
-- и чтоб он работал под пользователем делаю выполнение в другом контексте
AS
BEGIN
  SET NOCOUNT ON;

  DECLARE @СообщениеОбОшибке VARCHAR(MAX),
          @СтепеньОшибки     TINYINT     = 16,
          @SQL               NVARCHAR(MAX),
          @Схема             VARCHAR(1000),
          @СхемаТабл         VARCHAR(25) = substring(@ТаблИмя, 1, charindex('.', @ТаблИмя) - 1),
          @ТаблИмяБС         VARCHAR(100),
          @ПолеТип           VARCHAR(25)

  SET @ТаблИмяБС = right(@ТаблИмя, len(@ТаблИмя) - len(@СхемаТабл) - 1)

  -- проверит существование таблицы
  IF OBJECT_ID (@ТаблИмя, N'U') IS NULL
  BEGIN
    SET @СообщениеОбОшибке = 'Для выборки лога таблицы указана не существующая таблица = "' + @ТаблИмяБС/*@ТаблИмя*/ + '" !!!'
    RAISERROR (@СообщениеОбОшибке, @СтепеньОшибки, 1)
    RETURN
  END

  -- для распарсинга xml надо знать тип полей и плюс добавляю служебные кто и когда делал изменение	
  SET @Схема = '(' +
  -- усли @ВозвратитьПоля NULL то надо возвратить все поля поэтому и 2 запроса с WHERE IN и без него
  CASE
    WHEN @ВозвратитьПоля IS NULL THEN
      (SELECT c.COLUMN_NAME + ' ' + c.DATA_TYPE + isnull('(' + cast(c.CHARACTER_MAXIMUM_LENGTH AS VARCHAR(10)) + ')', '') + ', '
       FROM
         INFORMATION_SCHEMA.COLUMNS c
       WHERE
         TABLE_NAME = @ТаблИмяБС
         AND TABLE_SCHEMA = @СхемаТабл
       -- ======================================================================================
       --AND c.ORDINAL_POSITION IN (SELECT NUMBER FROM dbo.iter_intlist_to_table(@ВозвратитьПоля))
       FOR XML
         PATH (''))
    ELSE
      (SELECT c.COLUMN_NAME + ' ' + c.DATA_TYPE + isnull('(' + cast(c.CHARACTER_MAXIMUM_LENGTH AS VARCHAR(10)) + ')', '') + ', '
       FROM
         INFORMATION_SCHEMA.COLUMNS c
       WHERE
         TABLE_NAME = @ТаблИмяБС
         AND TABLE_SCHEMA = @СхемаТабл
         AND c.ORDINAL_POSITION IN (SELECT NUMBER
                                    FROM
                                      dbo.iter_intlist_to_table(@ВозвратитьПоля))
       FOR XML
         PATH (''))
  END + ' DateTimeStamp DateTime, HostName VARCHAR(100), UserLogin VARCHAR(100), Op TINYINT)'

  -- надо узнать тип поля по которому ведется пойск
  SELECT @ПолеТип = c.DATA_TYPE + isnull('(' + cast(c.CHARACTER_MAXIMUM_LENGTH AS VARCHAR(10)) + ')', '')
  FROM
    INFORMATION_SCHEMA.COLUMNS c
  WHERE
    TABLE_NAME = @ТаблИмяБС
    AND TABLE_SCHEMA = @СхемаТабл
    AND COLUMN_NAME = @ПолеИмя

  -- проверка правильно ли указано поле если указано
  IF (@ПолеИмя IS NOT NULL) AND (@ПолеТип IS NULL)
  BEGIN
    SET @СообщениеОбОшибке = 'В параметре процедуры указано несуществующее поле - "' + @ПолеИмя + '" таблицы - "' + @ТаблИмя + '"!!!'
    RAISERROR (@СообщениеОбОшибке, @СтепеньОшибки, 1)
    RETURN
  END

  SET @SQL = '
		DECLARE 
			@docHandle int, @xmlDocument NVARCHAR(MAX)
		SET @xmlDocument =
		(SELECT (dt.FieldValues).query(N''/Rec'')
		  FROM [лог].[tb_secDataTrail] dt
		  WHERE 
			dt.TableName = ''' + @ТаблИмя + '''' + isnull('AND dt.FieldValues.value(''(/Rec/@' + @ПолеИмя + ')[1]'',''' + @ПолеТип + ''') = CAST (''' + @ПолеЗначение + ''' AS ' + @ПолеТип + ')', '') + ' for xml path(''''))
	
	SET @xmlDocument = ''<FieldValues>'' + @xmlDocument + ''</FieldValues>''
	
	EXEC sp_xml_preparedocument @docHandle OUTPUT, @xmlDocument
	
	SELECT * FROM OPENXML(@docHandle, N''/FieldValues/Rec'') WITH ' + @Схема /*@ТаблИмя*/ + '
	
	EXEC sp_xml_removedocument @docHandle'
	
	-- заметил что тип varchar(max) определяется как varchar(-1) перед исполнением этого запроса надо это исправить
	SET @SQL = REPLACE(@SQL, 'varchar(-1)', 'varchar(MAX)')
	
  EXEC (@SQL)
END

ALTER PROCEDURE [справочник_обновление].[хп_ПроверкаУсловий]
(
      @TableName SYSNAME
    , @AutoIDFieldValue VARCHAR(100)
    , @ОбратнаяСвязь VARCHAR(1000) OUT
    , @CanEdit BIT = 1 OUT
    , @EditOfHours SMALLINT = 24
)
AS BEGIN

    SET NOCOUNT ON;

    SELECT @ОбратнаяСвязь = ''
         , @CanEdit = 1

    DECLARE @AutoIDField SYSNAME = (
            SELECT c.name
            FROM sys.columns c
            WHERE c.[object_id] = OBJECT_ID(@TableName, 'U')
                AND c.is_identity = 1
        )

    DECLARE @TempTable TABLE (
        ид INT,
        DateTimeStamp DATETIME,
        HostName VARCHAR(100),
        UserLogin VARCHAR(100),
        Op INTEGER
    )

    DECLARE @ДатаСоздания DATETIME = NULL

    INSERT @TempTable
    EXEC лог.хп_ЛогИзмененийТаблицы @TableName, '1', @AutoIDField, @AutoIDFieldValue

    SELECT TOP (1) @ДатаСоздания = DateTimeStamp
    FROM @TempTable
    WHERE ид = @AutoIDFieldValue
        AND Op = 2
    ORDER BY DateTimeStamp DESC

    IF DATEDIFF(HOUR, @ДатаСоздания, GETDATE()) > @EditOfHours OR @ДатаСоздания IS NULL
    BEGIN

        SELECT @CanEdit = 0
            ,  @ОбратнаяСвязь = N'С момента создания данных прошло более ' + CAST(@EditOfHours AS VARCHAR(3)) + N' часов.'
                + CHAR(13) + N'Сохранятся только те данные, которые ранее по тем или иным причинам не были введены !!!'
                + CHAR(13) + N'Удаление ЗАПРЕЩЕНО !!!'

    END

END

ALTER PROCEDURE [лог].[хп_ЛогИзмененийТаблицы]
(
      @ТаблИмя SYSNAME
    , @ВозвратитьПоля VARCHAR(250) = NULL
    , @ПолеИмя SYSNAME = NULL
    , @ПолеЗначение VARCHAR(500) = NULL
)
WITH RECOMPILE
AS BEGIN

    SET NOCOUNT ON;

    DECLARE @СообщениеОбОшибке VARCHAR(MAX),
            @SQL NVARCHAR(MAX),
            @Схема VARCHAR(1000),
            @ПолеТип VARCHAR(25),
            @object_id INT = OBJECT_ID(@ТаблИмя, 'U')

    IF @object_id IS NULL
    BEGIN
        SET @СообщениеОбОшибке = 'Для выборки лога таблицы указана не существующая таблица = "' + PARSENAME(@ТаблИмя, 1) + '" !!!'
        RAISERROR (@СообщениеОбОшибке, 16, 1)
        RETURN
    END

    SELECT @ПолеТип = TYPE_NAME(c.system_type_id) + ISNULL('(' + CAST(c.max_length AS VARCHAR(10)) + ')', '')
    FROM sys.columns c
    WHERE c.[object_id] = @object_id
        AND c.name = @ПолеИмя

    IF @ПолеИмя IS NOT NULL AND @ПолеТип IS NULL
    BEGIN
        SET @СообщениеОбОшибке = 'В параметре процедуры указано несуществующее поле - "' + @ПолеИмя + '" таблицы - "' + @ТаблИмя + '"!!!'
        RAISERROR (@СообщениеОбОшибке, 16, 1)
        RETURN
    END

    DECLARE @ids TABLE (id INT PRIMARY KEY)
    IF @ВозвратитьПоля IS NOT NULL
        INSERT INTO @ids
        SELECT number
        FROM dbo.iter_intlist_to_table(@ВозвратитьПоля)

    SELECT @Схема = '(' +
        (SELECT c.name + ' ' + TYPE_NAME(c.system_type_id) + ISNULL('(' + CAST(c.max_length AS VARCHAR(10)) + ')', '') + ', '
        FROM sys.columns c
        WHERE c.[object_id] = @object_id
            AND (
                    @ВозвратитьПоля IS NULL
                OR
                    c.column_id IN (SELECT * FROM @ids)
            )
        FOR XML PATH ('')) + ' DateTimeStamp DateTime, HostName VARCHAR(100), UserLogin VARCHAR(100), Op TINYINT)'

    SET @SQL = '
        DECLARE @docHandle int, @xmlDocument NVARCHAR(MAX)
        SET @xmlDocument =
        (
            SELECT (dt.FieldValues).query(N''/Rec'')
            FROM [лог].[tb_secDataTrail] dt
            WHERE dt.TableName = ''' + @ТаблИмя + '''' + ISNULL('AND dt.FieldValues.value(''(/Rec/@' + @ПолеИмя + ')[1]'',''' + @ПолеТип + ''') = CAST (''' + @ПолеЗначение + ''' AS ' + @ПолеТип + ')', '') + '
            for xml path('''')
        )

    SET @xmlDocument = ''<FieldValues>'' + @xmlDocument + ''</FieldValues>''

    EXEC sp_xml_preparedocument @docHandle OUTPUT, @xmlDocument
    SELECT *
    FROM OPENXML(@docHandle, N''/FieldValues/Rec'') WITH ' + @Схема /*@ТаблИмя*/ + '
    EXEC sp_xml_removedocument @docHandle'

    SET @SQL = REPLACE(@SQL, 'varchar(-1)', 'varchar(MAX)')
    EXEC (@SQL)

END