Приклад коду, як створити COM з'єднання в 1с.
Створення підключення до бази 1C за COM.
Насамперед необхідно створити підключення до бази 1С 8.3, розглянемо функцію, яка поверне підключення по кому-об'єкт до іншої бази.
Приклад файлового режиму 1С:Функция ПолучитьПодключениеКФайловойБД()
Параметры = "File=""C:\1CBase""";Usr=""login"";Pwd=""password"";";
V82COMConnector= Новый COMОбъект("V82.COMConnector");
Попытка
Возврат V82COMConnector.Connect(Параметры);
Исключение
Предупреждение ("Ошибка подключения!");
Возврат Неопределено;
КонецПопытки;
КонецФункции;
Функція для клієнт-серверного режиму підключення:Функция ПолучитьПодключениеКСервернойБД()
Параметры = "Srvr=""server"";Ref=""BaseName"";Usr=""login"";Pwd=""password"";";
V82COMConnector= Новый COMОбъект("V82.COMConnector");
Попытка
Base1С = V82COMConnector.Connect(Параметры);
Исключение
Предупреждение ("Ошибка подключения!");
КонецПопытки;
КонецФункции;
Знайти документ 1С по COM:Соединение = ПолучитьПодключениеКСервернойБД();
СсылкаНаОбъект = Соединение.Документы.РеализацияТоваровУслуг.НайтиПоКоду("1234");
Если Не ЗначениеЗаполнено(СсылкаНаОбъект) Тогда
Сообщить("Не найден документ!");
Возврат;
КонецЕсли;
СтатусДокумента = СсылкаНаОбъект.Статус;
Если ДокументОбъект.Статус <> СтатусДокумента Тогда
ДокументОбъект.Статус = СтатусДокумента;
ДокументОбъект.Записать();
КонецЕсли;
2023-06-26
