Необходимо вытащить из COM объекта таблицу значений
По теме из базы знаний
- Миллионы строк в таблицах 1С? Быстрая реструктуризация - не проблема!
- Ловля блокировок на связке "Microsoft SQL server - 1С"
- Обработка для адаптивного переноса данных между базами через XML
- Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов
- Что такое ОСень? Или как лучшие практики из мира Java прижились в экосистеме OneScript
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
(6) mentozavr, может это поможет:
Соеденитель = Новый COMobject("V81.COMConnector");
Соединение = Соеденитель.Connect("Srvr=poligon:1641;Ref=test;Usr=12345;Pwd=12345");
Запрос = Соединение.NewObject("Запрос");
Запрос.УстановитьПараметр("ПометкаУдаления", Истина);
Запрос.УстановитьПараметр("ЭтоГруппа", Истина);
Запрос.Текст = " ВЫБРАТЬ
|Номенклатура.Ссылка Как Ссылка,
|Номенклатура.Наименование как наименованиеРарус,
|Номенклатура.Код как КодРарус,
|Номенклатура.Артикул как Артикул,
|Номенклатура.НаименованиеПолное как НаименованиеПолное,
|Номенклатура.БазоваяЕдиницаИзмерения как ЕдИзмерения,
|Номенклатура.СтранаПроисхождения как Производитель,
|Номенклатура.ЭтоГруппа,
|Номенклатура.ПометкаУдаления,
|Номенклатура.СтавкаНДС как СтавкаНДС
|ИЗ
|Справочник.Номенклатура КАК Номенклатура
|ГДЕ
|Номенклатура.ПометкаУдаления <> &ПометкаУдаления
|И Номенклатура.ЭтоГруппа <> &ЭтоГруппа";
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Стр = ИзРарус.Добавить();
стр.КодРарус = Выборка.КодРарус;
стр.НоменклатураРарус = Выборка.НаименованиеРарус;
стр.НаименованиеПолное = Выборка.НаименованиеПолное;
Стр.Артикул = Выборка.Артикул;
стр.ГуидРарус = Соединение.String(выборка.ссылка.УникальныйИдентификатор());
стр.ЕдИзмерения = Выборка.ЕдИзмерения.Наименование;
стр.Производитель = Выборка.Производитель.Наименование;
Стр.СтавкаНДС = Выборка.СтавкаНДС.Наименование;
КонецЦикла;
Соединение = Неопределено;
Показать
Вот как это решается - вытаскиваем Таблицу значений из обертки Com-объета
СтрокаРезультат = ВнешняяБД.ValueToStringInternal(Запрос.Выполнить().Выгрузить());
ТабВнешняя = ЗначениеИзСтрокиВнутр(СтрокаРезультат);
СтрокаРезультат = ВнешняяБД.ValueToStringInternal(Запрос.Выполнить().Выгрузить());
ТабВнешняя = ЗначениеИзСтрокиВнутр(СтрокаРезультат);
stepan-kenshin; MrEvilSkotch; Nikola_N; user1447578; Prad2002; yaroslav.artem; elena_veza; pstrig; Любоч; PetrovskiyComp; Barmolei; dsident; mikl79; Rus1k; user1147184; RIS2020; CnupT; Andrei_Ivanov; yuvd; user640247; 1Cynep4eJIoBek; Zhilyakovdr; plotnikov1c; Enyel; Ermigen; Euroset1; stepan_boroda; Grivba; redtram; MihailP; stragner2; wau8824ru; bimy22; Кадош; 1c-kt; XSATANA; shard; ark.zv; vatkir; chanzer; svilsa; Misanets; Batman; jills2001; demkonst; Tolpinski;
+46
–
Ответить