COM соединение в 1С 8.3 (часть 1)
Click to viewОдним из способов перенести данные из одной конфигурации 1С в другую является программное подключение с помощью COM. Многие компании используют несколько различных баз, между которыми должны быть определенные связи и зависимости. Если необходимо не только перенести данные, но и выполнить определенную обработку данных, то COM соединение будет оптимальным механизмом. Умение анализировать данные из другой базы 1С пригодиться любому разработчику.
Подключаемся через COM к базе 1С
Для реализации COM соединения в 1С используется специальный механизм под названием COMConnector. Этот объект устанавливается вместе с платформой и применяется для связи информационных баз. Следует учесть, что для версий 8.2 и 8.3 используются разные по наименованию объекты - «V82.COMConnector» и «V83.COMConnector» соответственно.
Помните, что на время COM соединения к базе тратиться лицензия - не стоит увлекаться одновременным выполнением нескольких подключений. Особенно это важно для организаций, у которых количество лицензий ограничено. Решиться этот вопрос может при помощи регламентных заданий, выполняющихся во время отсутствия активных подключений пользователей к информационной базе.
Чтобы иметь возможность подключиться к другой базе и запросить нужную информацию вы должны знать следующие данные:
- Какого она типа - файловая или клиент-серверная;
- Где она располагается;
- Под каким именем и паролем в нее можно зайти;
- Какие данные вас интересуют.
ПараметрыПодключенияФайловойИБ = "Filе=""Путь_к_базе""; Usr=""Имя_пользователя"";Pwd=""Пароль""";
ПараметрыПодключенияКлиентСервернойИБ = "Srvr=""Имя_Сервера""; Ref=""Имя_базы""; Usr=""Имя_пользователя""; Pwd=""Пароль""";
Функция подключения проста и не должна вызвать вопросов, если все параметры указаны верно. Для ускорения отладки и анализа возможных ошибок лучше заключить подключение в конструкцию «Попытка». Возвращать функция будет значение типа «COM объект», с которым и предстоит работать, получая нужные данные.
&НаСервере
Функция ПодключитьсяКбазе() экспорт
ПараметрыПодключенияИБ = "Filе=""Е:\базы 1с\ЕRР""; Usr=""Администратор"";Pwd=""1""";
V83COMCon= Новый СОMОбъект("V83.COMConnector");
Попытка
Возврат V83COMCon.Connect(ПараметрыПодключенияИБ);
Исключение
Сообщить(ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;
КонецФункции
Через COM соединение вы можете не только выбирать данные, но и добавлять их в базу, к которой подключаетесь. Помните, что передавать через COM объект мы можем 4 примитивных типа данных. Другие типы придется задавать с помощью встроенных в платформу функций поиска. Учтите, что глобальные функции платформы вызываются тоже через COM-соединение.
Получаем данные из базы 1С
После того как получили нужный объект, необходимо прочитать данные из другой базы. Для этого мы применяем запрос через COM соединение в 1С 8.3 с помощью полученного значения типа «COM объект» из функции. Важно сначала подключиться к базе, а затем уже выполнять запрос. Выполнение происходит через метод NewObject с указанием в качестве параметра типа объекта в строковом виде - «Запрос».
&НаСервере
Процедура ТестСОMНаСервере()
Соединение = ПодключитьсяКбазе();
Если ТипЗнч(Соединение) <> Тип("Неопределено") Тогда
ЗапросБПЗО = Соединение.NewObject("Запрос");
ЗапросБПЗО.Текст = "ВЫБРАТЬ первые 15
| СправочникПольз.Наименование КАК Наименование
|ИЗ
| Справочник.пользователи КАК СправочникПольз";
Выборка = ЗапросБПЗО.Выполнить().выбрать();
Пока Выборка.следующий() цикл
Сообщить(Выборка.Номер);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
К примеру, чтобы получить информацию о пользователях определенного подразделения, зададим условие в запрос через параметры. Один параметр будет простого типа - строка, а подразделение - ссылкой элемента справочника «Структура предприятия». Результат запроса является таблицей с перечисленными полями того типа, какого они существуют в базе, к которой произошло COM соединение. Если необходимо их преобразовать в другие типы - воспользуйтесь стандартными функциями платформы:
- Строка();
- Число();
- Дата().
ЗапросБПЗО = Соединение.NewObject("Запрос");
ЗапросБПЗО.Текст = "ВЫБРАТЬ первые 15
| СправочникПольз.Наименование КАК Наименование
|ИЗ
| Справочник.Пользователи КАК СправочникПольз
I ГДЕ
| СправочникПольз.Подразделение = &НужноеПодразделение
| И СправочникПольз.Наименование подобно ""%"" + &НужноеИмя+ ""%""";
ЗапросБПЗО.УстановитьПараметр("НужноеПодразделение",Соединение.Справочники.СтруктураПредприятия.НайтиПоКоду("00-000023"));
ЗапросБПЗО.УстановитьПараметр("НужноеИмя","Екатерина");
Выборка = ЗапросБПЗО.Выполнить().выбрать();
Пока Выборка.следующий() цикл
Сообщить(Выборка.Наименование);
КонецЦикла;
Если нужно передать в базу массив для отбора по нескольким параметрам, например, подразделениям, тоже используется команда NewObject. Аналогично можно передавать список или таблицу значений, заполняя их элементами другой базы через соединение. Для поиска вам доступны все существующие методы объектов и механизмов платформы.
ЗапросБПЗО = Соединение.NewObject.("Запрос");
ЗапросБПЗО.Текст = "ВЫБРАТЬ первые 15
| СправочникПольз.Наименование КАК Наименование
| ИЗ
| Справочник.Пользователи КАК СправочникПольз
I ГДЕ
| СправочникПольз.Подразделение В (&НужноеПодразделение)
| И СправочникПольз.Наименование подобно ""%"" + &НужноеИмя+ ""%""";
МассивПодразделений = Соединение.NewObject("Массив");
МассивПодразделений.Добавить(Соединение.Справочники.СтруктураПредприятия.НайтиПоКоду("00-000023"));
МассивПодразделений.Добавить(Соединение.Справочники.СтруктураПредприятия.НайтиПоКоду("00-000038"));
МассивПодразделений.Добавить(Соединение.Справочники.СтруктураПредприятия.НайтиПоКоду("00-000046"));
ЗапросБПЗО.УстановитьПараметр("НужноеПодразделение", МассивПодразделений);
ЗапросБПЗО.УстановитьПараметр("НужноеИмя","Екатерина");
Выборка = ЗапросБПЗО.Выполнить().выбрать();
Пока Выборка.следующий() цикл
Сообщить(Выборка.Наименование);
КонецЦикла;
При переносе документов или элементов справочников всегда возникает вопрос о контроле переноса определенного объекта. С помощью COM соединений можно решить подобные проблемы через уникальный идентификатор. Нужно найти объект в подключаемой базе по идентификатору из текущей ИБ с помощью функции «ПолучитьСсылку», используя идентификатор в виде строки. Если такового не нашлось, вы можете создать его с помощью COM соединения.
СтрИдент = Строка(Справочники.Пользователи.НайтиПоКоду("00-0000313").УникальныйИдентификатор());
Если НЕ ЗначениеЗаполнено(Соединение.Справочники.Пользователи.ПолучитьСсылку(Соединение.NewObject("УникальныйИдентификатор", СтрИдент))) тогда
НовыйПользователь = Соединение.Справочники.Пользователи.СоздатьЭлемент();
НовыйПользователь.Наименование = Справочники.Пользователи.НайтиПоКоду("00-0000313").Наименование;
НовыйПользователь.ФизическоеЛицо = Справочники.Пользователи.НайтиПоКоду("00-0000313").ФизическоеЛицо;
НовыйПользователь.Записать();
КонецЕсли;
Также COM соединение имеет право использовать процедуры и функции из общих модулей 1С с включенным свойством «Внешнее соединение». Кроме этого условия, вызываемая функция или процедура должна быть экспортная и не включать интерактивные действия, выполняемые на сервере. В противоположном случае вы увидите ошибку о недопустимости операции.
Рис.1 Внешнее соединение
Соединение.<ИмяОбщегоМодуля>.<ВызовПроцедуры>;
ПеременнаяИзФункции = Соединение.<ИмяОбщегоМодуля>.<ВызовФункции>;
Как из одной базы 1С:Предприятие 8.0 перенести остатки товаров в другую базу, используя COM-соединение.
Запрос = Новый Запрос;
Запрос.Текст= "ВЫБРАТЬ
| ОстаткиТоваровОрганизацийОстатки.Организация КАК Организация,
| ОстаткиТоваровОрганизацийОстатки.Номенклатура,
| ОстаткиТоваровОрганизацийОстатки.ГТДОрганизации,
| ОстаткиТоваровОрганизацийОстатки.СтранаПроисхождения,
| ОстаткиТоваровОрганизацийОстатки.Комиссионер,
| ОстаткиТоваровОрганизацийОстатки.КоличествоОстаток
|ИЗ
| РегистрНакопления.ОстаткиТоваровОрганизаций.Остатки(&ДатаПереноса, )
| КАК ОстаткиТоваровОрганизацийОстатки
|ИТОГИ ПО
| Организация";
Запрос.УстановитьПараметр("ДатаПереноса", ДатаПереноса);
V8 = Новый COMОбъект("V8.ComConnector");
Попытка
Открытие = V8.Connect("File=""" + Путь + """;Usr=""Usr1"";");
Исключение
Предупреждение("База данных не открыта!!!");
Возврат;
КонецПопытки;
Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
МенеджерДокумента = Открытие.Документы.ОприходованиеТоваров;
МенеджерНоменклатуры = Открытие.Справочники.Номенклатура;
МенеджерОрганизаций = Открытие.Справочники.Организации;
// Менеджеры остальных справочников:
Пока Выборка.Следующий() Цикл
Документ = МенеджерДокумента.СоздатьДокумент();
Код = Выборка.Организация.Код;
Организация = МенеджерОрганизаций.НайтиПоКоду(Код);
Если Организация.Пустая() Тогда
Организация = МенеджерОрганизаций.СоздатьЭлемент();
Организация.Код = Код;
// Остальные реквизиты:
Организация.Записать();
КонецЕсли;
// Обработка остальных реквизитов, справочников:
ВыборкаПодчиненная = Выборка.Выбрать();
Пока ВыборкаПодчиненная.Следующий() Цикл
// Поиск/перенос данных справочников
// заполнение табличной части документа
КонецЦикла;
Документ.Записать(РежимЗаписиДокумента.Проведение);
КонецЦикла;
Пример обращения к программе 1С:Предприятие 8.0 из модуля MS Excel через COM-соединение
Sub load()
Dim cntr As Object
Dim trade As Object
Dim Элемент As Object
Dim СправочникКонтрагентов As Object
Dim ГруппаКонтрагентов As Object
Set cntr = CreateObject("V8.COMConnector")
Set trade = cntr.Connect("File=""C:\DemoTrd4"";Usr=""Федоров (администратор)"";")
Set СправочникКонтрагентов = trade.Справочники.Контрагенты
Set ГруппаКонтрагентов = СправочникКонтрагентов.СоздатьГруппу()
ГруппаКонтрагентов.Наименование = "***** Экспорт из Excel ******"
ГруппаКонтрагентов.Записать
N = 11 'Количество строк в списке поставщиков
For Count = 3 To N
Set Элемент = СправочникКонтрагентов.СоздатьЭлемент()
Элемент.Код = Application.Cells(Count, 1).Value
Элемент.Наименование = Application.Cells(Count, 2).Value
Элемент.ИНН = Application.Cells(Count, 3).Value
Элемент.НаименованиеПолное = Application.Cells(Count, 4).Value
Элемент.Родитель = ГруппаКонтрагентов.Ссылка
Элемент.Записать
Next Count
End Sub
COM соединение в 1С 8.3 (часть 2)
Смотрите также:
Электронный учебник по программированию в 1С
Рекомендации по изучению программирования 1С с нуля
Игра "Кто хочет стать миллионером?" с вопросами на определенную тематику (язык программирования JavaScript, английские, немецкие, французские, испанские, португальские, нидерландские, итальянские слова, электробезопасность, промышленная безопасность, бокс и т.п.), написанная на 1С
Программирование в 1С 8.3 с нуля - краткий самоучитель
Комплексная подготовка программистов 1С:Предприятие 8.2
Сайты с уроками программирования и со справочниками
Youtube-каналы с уроками программирования
Сайты для обучения программированию
Лекции и уроки