GoncharovNN
6/28/2019 - 2:37 AM

COMConnector #БСП

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;
    
КонецФункции