Непонятное поведение ADODB в 1С 8.0
Есть необходимость записи данных в произвольную базу на MS SQL 2005 Standard.
Запись реализуется с помощью хранимых процедур.

Пример хранимой процедуры:
CREATE PROCEDURE TestProc
@ID Int OUTPUT,
@F1 NChar(10)
AS
BEGIN
INSERT INTO TestTable (F1)
VALUES (@F1)
SET @ID = SCOPE_IDENTITY()
END
GO

То есть, эта процедура добавляет запись в таблицу, пишет переданное значение в поле F1 и позвращает значение Identity параметром @ID.
Процедура рабочая. Работает и в QueryAnalyser, и в Delphi (TADOCommand). Identity возвращается нормально.

Теперь код в 1С 8.0

Процедура ТестСКЛ()
Перем пСтрСоед;
Перем пСоед;
Перем пКом;
Перем пРС;
Перем пИД;

пСтрСоед = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DocExchange1C;Data Source=SRV01";
пСоед = Новый COMОбъект("ADODB.Connection");
пСоед.Provider = "SQLOLEDB";
пСоед.ConnectionTimeout = 15;
пСоед.CommandTimeOut= 30;
пСоед.ConnectionString = пСтрСоед;
пСоед.Open();

пКом = Новый COMОбъект("ADODB.Command");
пКом.ActiveConnection = пСоед;
пКом.CommandType = 4;
пКом.CommandText = "TestProc";
пКом.Parameters("@F1").Value = "qqq";
пРС = пКом.Execute();
пИД = пКом.Parameters("@ID").Value;
Предупреждение(пИД);
пСоед.Close();
КонецПроцедуры

Код отрабатывает без ошибок, запись в базу добавляется, но выходной параметр процедуры @ID равен Null (видно по отладчику).
Опыты показали, что выходной параметр все- таки возвращается в 1С, если в тексте нет конструкций INSERT, UPDATE или DELETE, или если он присваивается до них.
То есть, если

CREATE PROCEDURE TestProc
@ID Int OUTPUT,
@F1 NChar(10)
AS
BEGIN
SET @ID = 111
END
GO

Или

CREATE PROCEDURE TestProc
@ID Int OUTPUT,
@F1 NChar(10)
AS
BEGIN
SET @ID = 111
INSERT INTO TestTable (F1)
VALUES (@F1)
END
GO

Тогда выходной параметр @ID будет возвращен в 1С со значением 111.

Создается такое впечатление, что ADODB.Connection, будучи использован в 1С, игнорирует выходные параметры процедуры, если их присвоение производится после INSERT (UPDATE,DELETE)
Кстати, если в процедуре после INSERT (UPDATE, DELETE) производится SELECT, то рекордсет в таких случаях всегда возвращается в 1С пустой.

Вопрос: Как побороть такую глюку?

Уже догадался :0)

CREATE PROCEDURE TestProc
@ID Int OUTPUT,
@F1 NChar(10)
AS
BEGIN
INSERT INTO TestTable (F1)
VALUES (@F1)
SET NOCOUNT ON
SET @ID = SCOPE_IDENTITY()
END
GO

Так параметры нормально возвращаются.
Важно ставить этот SET до возврата параметра, но после инсерта, иначе, как показывает эксперимент, RecordsAffected неверный будет

Или так
CREATE PROCEDURE TestProc
@ID Int OUTPUT,
@RecordsAffected Int OUTPUT,
@F1 NChar(10)
AS
BEGIN
SET NOCOUNT ON
INSERT INTO TestTable (F1)
VALUES (@F1)
SET @ID = SCOPE_IDENTITY()
SET @RecordsAffected = @@ROWCOUNT
END
GO

Еще вопрос.
Дельфийный TADOCommand, без указания SEN NOCOUNT ON, тем не менее, нормально интерпретирует выходные параметры.
Как бы ADODB.Command в 1С также подкрутить?
Смотрел исходники TADOCommand, ничего такого не нашел...