[color=#009900]Ищу документ по номеру и дате, если нахожу, возвращаю его идентификатор в том виде, как он хранится в SQL[/color]

[code]Функция ПроверитьДокументНаУникальность(Дата,Номер)
     
     Перем GUID;
     
     ТекстЗапроса ="
     |exec sp_executesql N'SELECT
     |_Document3247_Q_000_T_001._IDRRef AS f_1
     |FROM
     |_Document3247 _Document3247_Q_000_T_001 WITH(NOLOCK)
     |WHERE
     |_Document3247_Q_000_T_001._Number = @P1 AND _Document3247_Q_000_T_001._Date_Time = @P2',
     |N'@P1 nvarchar(10),@P2 datetime',
     |N'"+Номер+"',
     |'"+Дата+"'
     |";
     
     Cmd.CommandText =ТекстЗапроса;
     
     RS= Cmd.Execute();
     
     Если Rs.EOF() = 0 Тогда
           COMSafeArray = Rs.Fields(0).Value;
           GUID = ПолучитьGUIDизCOMSafeArray(COMSafeArray);
           GUID = ПолучитьGUIDПоУникальномуИдентификатору(GUID);
     КонецЕсли;
     
     Возврат GUID;
     
КонецФункции[/code]

[color=#009900]ну, создание соединения стандартное:[/color]

[code]Процедура УстановитьСоединение()
     
     Сервер           = "...";
     База           = "...";
     Пользователь = "...";
     Пароль           = "...";
     
     ADO = Новый COMОбъект("ADODB.Connection");
     
     СтрокаСоединения = ""+
     "DRIVER=SQL Server;"+
     "SERVER="+СокрЛП(Сервер)+";"+
     "DATABASE="+СокрЛП(База)+";"+
     "UID="+СокрЛП(Пользователь)+";"+
     "Password="+СокрЛП(Пароль)+";"+
     "WSID="+СокрЛП(ИмяКомпьютера())+"_"+СокрЛП(ИмяПользователя())+";"+
     "APP=Microsoft Open Database Connectivity;"+
     "Description=For 1C;";  
     
     Состояние("Инициализация ADO компоненты");
     
     Попытка
           ADO.Open(СтрокаСоединения);
           cmd = Новый COMObject("ADODB.Command");
           cmd.ActiveConnection = ADO;
           cmd.CommandTimeout = 7000;
     Исключение  
           Сообщить(ОписаниеОшибки());
           Предупреждение("Невозможно установить Соединение!
           ");  
           ADO = 0;
           Возврат;
     КонецПопытки;
     
КонецПроцедуры[/code]