COMConnector #БСП
&НаСервере
Процедура ЗаполнитьИзЕРПНаСервере()
// Формируем строку подключения
СтрокаПодключения =
"srvr='localhost'; ref='gkErp_30_06_2017'; usr='1c'; pwd='Flvby007';";
ComConnector = ПолучитьCOMОбъектПоВерсииПлатформы();
СообщениеПользователю = Новый СообщениеПользователю;
Попытка
ComConnection = COMConnector.Connect(СтрокаПодключения);
Исключение
СообщениеПользователю.Текст = "Ошибка подключения: " + ОписаниеОшибки();
СообщениеПользователю.Сообщить();
Возврат;
КонецПопытки;
ЗапросЕРП = ComConnection.NewObject("Запрос");
ЗапросЕрп.Текст= "ВЫБРАТЬ первые 100
| Номенклатура.Код КАК Код,
| Номенклатура.Ссылка КАК Ссылка,
| Номенклатура.Артикул КАК Артикул,
| Номенклатура.Наименование КАК Наименование
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.ЭтоГруппа = ЛОЖЬ" ;
ЗапросЕРП.УстановитьПараметр("ГруппаДоступа",ComConnection.Справочники.ГруппыДоступаНоменклатуры.НайтиПоНаименованию("Золото", Истина));
Выборка = ЗапросЕРП.Выполнить().выбрать();
Пока Выборка.следующий() цикл
ГУИД = Выборка.Ссылка.UUID();
СтроковыйГУИД = ComConnection.String(ГУИД);
строкаТЗ=Список.Добавить();
строкаТЗ.GUID=СтроковыйГУИД;
СтрокаТЗ.Наименвоание=Выборка.Наименование;
КонецЦикла;
КонецПроцедуры
Функция ПолучитьCOMОбъектПоВерсииПлатформы() Экспорт
// Определяем имя COM-объекта по версии платформы
ИмяComОбъекта = "";
Инфо = Новый СистемнаяИнформация;
Если СтрНайти(Инфо.ВерсияПриложения, "8.3") > 0 Тогда
ИмяComОбъекта = "V83.COMConnector";
ИначеЕсли СтрНайти(Инфо.ВерсияПриложения, "8.2") > 0 Тогда
ИмяComОбъекта = "V82.COMConnector";
Иначе
ВызватьИсключение "Не удалось определить версию платформы";
КонецЕсли;
// Инициализируем COM-объект и соединение
COMConnector = Новый COMОбъект(ИмяComОбъекта);
Возврат COMConnector;
КонецФункции