Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   77 -> 8.3 OLE (http://forums.kuban.ru/f1040/77_-_8_3_ole-7361442.html)

USSR 03.12.2015 09:32

77 -> 8.3 OLE
 
Такая тему уже была, даже сам участвовал в обсуждении, но там ничем не кончилось, и вот сам столкнулся. Пытаюсь через OLE (v83.application) запихать документ из ТИС (7.7) в БП 3.0 (8.3). Соединение устанавливается (причем через V83.Connector никак не соединяется). документ создается и записывается. Но вот никак не могу присвоить "Истина" свойству Объекта документа:
ОбменДанными.Загрузка.
Пробовал и V83.ЗначениеИзСтрокиВнутр("**""B"",1**") и создавал в БП3.0 константу "Да" со значением "Истина" и присваивал ДокументОбъект.ОбменДанными.Загрузка = V83.Константы.Да;, ничего не выходит. Ругается на несоответствие типов. Причем другим свойствам объъекта, например "СуммаВключаетНДС" благополучно присваивается. Я даже пробовал обмануть через присвоение: ДокументОбъект.ОбменДанными.Загрузка = ДокументОбъект.СуммаВключаетНДС, но безуспешно, все та же ошибка. В чем собака порыта ?

USSR 03.12.2015 12:09

Проблема решена, так как предлагалось на Инфостарте. Ну весьма через Ж... ))

KSeregaNew 04.12.2015 14:45

а тут написать?

USSR 04.12.2015 14:55

(2)вот так работает:
// --------------
Функция Истина()

ЗапросОбъект = V83.NewObject("Запрос");

Текст = "
|ВЫБРАТЬ
| Истина Как Загрузка"; //алиас = имя реквизита

ЗапросОбъект.Текст = Текст;
Результат = ЗапросОбъект.Выполнить();

Выборка = Результат.Выбрать();
Выборка.Следующий();

Возврат Выборка;

КонецФункции //Истина()

Истина = Истина(); V83.ЗаполнитьЗначенияСвойств(ДокументОбъект.ОбменДанными, Истина);

USSR 04.12.2015 15:02

Еще бы решить маленькую заковыку, как по OLE в 7.7 сделать конструкцию, аналогичную этой:
Документы[ВидДокумента].СоздатьДокумент() //это в родной базе 8.3
Через шаблон прокатит ?)


Текущее время: 04:58. Часовой пояс GMT +3.