Войти

Login to your account

Username *
Password *
Remember Me
// Создает внешнее соединение к серверу 1С:Предприятия
//
// Параметры:
//  ИмяСервера  -  имя сервера - SRV-1C
//  ИмяБазы  -  имя базы - AccountingDemo
//  ИмяПользователя  -  имя пользователя - ИвановИИ
//  Пароль  -  пароль пользователя - qwerty123
//
// Возвращаемое значение:
//   ComОбъект - внешнее соединение
//
Функция СоздатьВнешнееСоединение(ИмяСервера, ИмяБазы, ИмяПользователя, Пароль) Экспорт
	
	СтрокаПодключения = "";
	СтрокаПодключения = СтрокаПодключения + "Srvr=""" 	+ ИмяСервера 		+ """;";
	СтрокаПодключения = СтрокаПодключения + "Ref=""" 	+ ИмяБазы 			+ """;";
	СтрокаПодключения = СтрокаПодключения + "Usr=""" 	+ ИмяПользователя 	+ """;";
	СтрокаПодключения = СтрокаПодключения + "Pwd=""" 	+ Пароль 			+ """;";
	
	COMОбъект = Новый COMObject("V83.COMConnector"); // для 8.2: "V82.COMConnector"
	
	ВнешнееСоединение = Неопределено;
	Попытка
		ВнешнееСоединение = COMОбъект.Connect(СтрокаПодключения)
	Исключение
		ОписаниеОшибки = ОписаниеОшибки();
		ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки,, "Внешнее соединение установить не удалось!");
		
		Сообщение = Новый СообщениеПользователю();
    	Сообщение.Текст = НСтр("ru = 'Внешнее соединение установить не удалось!"
     	+ "; en = 'COM connection is not avaliable!' ")
     	+ Символы.ПС + ОписаниеОшибки;
    	Сообщение.Сообщить();

		ВнешнееСоединение = Неопределено;
	КонецПопытки;	
	
	Возврат ВнешнееСоединение;
	
КонецФункции