Com соединение и значение перечисления
По теме из базы знаний
- Облегчение совместной жизни с COM соединением. Выполнение произвольного кода в подключенной базе.
- Взаимодействие между базами 1С через COM
- Универсальный отчет для сравнения записей регистров накопления между базами по COM-соединению, для обычных форм
- Особенности работы с COM-соединением
- Простой отчет СКД с дополнительным набором данных, получаемых по com соединению из другой базы
Найденные решения
Вот так решил. Спасибо за помощь
V8 = Новый COMобъект("V83.ComConnector");
СтрокаСоединения = "File = '" +ВремПуть+"'; Usr = '" + ВремПольз+"'; Pwd = '"+ВремПароль+"'";
Попытка
БазаУТ = V8.Connect(СтрокаСоединения);
БазаОткрыта = Истина
Исключение
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось подключиться к базе" + ОписаниеОшибки();
Сообщение.Сообщить();
КонецПопытки;
// Товары
Если ДокУТ.Товары.Количество() > 0 Тогда
Для Каждого СтрокаУТ Из ДокУТ.Товары Цикл
НовСтрока = ДокБП.Товары.Добавить();
НовСтрока.Номенклатура = ВернутьНоменклатуру(СтрокаУТ.Номенклатура);
НовСтрока.Количество = СтрокаУТ.Количество;
НовСтрока.Цена = СтрокаУТ.Цена;
НовСтрока.Сумма = СтрокаУТ.Сумма;
ЭлементПеречисления = СтрокаУТ.СтавкаНДС;
СтрокаЭлементПеречисления = ЭлементПеречисления.Метаданные().Имя;
СтрокаЭлементПеречисления = БазаУТ.XMLСтрока(ЭлементПеречисления);
НовСтрока.СтавкаНДС = Перечисления.СтавкиНДС[СтрокаЭлементПеречисления];
НовСтрока.СуммаНДС = СтрокаУТ.СуммаНДС;
КонецЦикла;
КонецЕсли;
ПоказатьОстальные ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Вот так решил. Спасибо за помощь
V8 = Новый COMобъект("V83.ComConnector");
СтрокаСоединения = "File = '" +ВремПуть+"'; Usr = '" + ВремПольз+"'; Pwd = '"+ВремПароль+"'";
Попытка
БазаУТ = V8.Connect(СтрокаСоединения);
БазаОткрыта = Истина
Исключение
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось подключиться к базе" + ОписаниеОшибки();
Сообщение.Сообщить();
КонецПопытки;
// Товары
Если ДокУТ.Товары.Количество() > 0 Тогда
Для Каждого СтрокаУТ Из ДокУТ.Товары Цикл
НовСтрока = ДокБП.Товары.Добавить();
НовСтрока.Номенклатура = ВернутьНоменклатуру(СтрокаУТ.Номенклатура);
НовСтрока.Количество = СтрокаУТ.Количество;
НовСтрока.Цена = СтрокаУТ.Цена;
НовСтрока.Сумма = СтрокаУТ.Сумма;
ЭлементПеречисления = СтрокаУТ.СтавкаНДС;
СтрокаЭлементПеречисления = ЭлементПеречисления.Метаданные().Имя;
СтрокаЭлементПеречисления = БазаУТ.XMLСтрока(ЭлементПеречисления);
НовСтрока.СтавкаНДС = Перечисления.СтавкиНДС[СтрокаЭлементПеречисления];
НовСтрока.СуммаНДС = СтрокаУТ.СуммаНДС;
КонецЦикла;
КонецЕсли;
Показать
Вакансии
Аналитик 1С / Бизнес-аналитик
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)