bizisoft @ Сегодня, 0:19
,
Доброе утро! Все можно делать, по крайней мере у меня в 1С8: УТП получалось. Вот пример создания контрагентов. Подключение по ОЛЕ к 1С:7.7
Процедура ЗагрузитьКонтрагента()
СпрОЛЕ = V77.CreateObject("Справочник.Контрагенты");
СпрОЛЕ.ВыбратьЭлементы();
Пока СпрОЛЕ.ПолучитьЭлемент()=1 Цикл
Если СпрОле.ЭтоГруппа() Тогда
Группа = Справочники.Номенклатура.СоздатьГруппу();
Группа.Код = СпрОле.Код;
Группа.Наименование = СпрОле.Наименование;
Группа.Записать();
КонецЕсли;
ЭлементПоиска = Справочники.Контрагенты.НайтиПоКоду(СпрОЛЕ.Код);
Если ЭлементПоиска.Пустая() Тогда
НовыйЭлемент = Справочники.Контрагенты.СоздатьЭлемент();
//НовыйЭлемент.Родитель = Группа.Ссылка;
//НовыйЭлемент.НоменклатурнаяГруппа = СпрОЛЕ.Наименование;
НовыйЭлемент.Код = СпрОЛЕ.Код;
сообщить(СпрОЛЕ.Код);
НовыйЭлемент.Наименование = СпрОЛЕ.Наименование;
НовыйЭлемент.НаименованиеПолное = СпрОЛЕ.ПолнНаименование;
НовыйЭлемент.Записать();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
denis84 @ Сегодня, 8:21
,
Вот пример по ТМЦ:
СпрОЛЕ = V77.CreateObject("Справочник.ТМЦ");
СпрОЛЕ.ВыбратьЭлементы();
Пока СпрОЛЕ.ПолучитьЭлемент()=1 Цикл
Если СпрОле.ЭтоГруппа() Тогда
Группа = Справочники.Номенклатура.НайтиПоКоду(СпрОЛЕ.Код);
Если Группа.Пустая() Тогда
Группа = Справочники.Номенклатура.СоздатьГруппу();
Группа.Код = СпрОле.Код;
Группа.Наименование = СпрОле.Наименование;
Группа.Записать();
КонецЕсли;
КонецЕсли;
ЭлементПоиска = Справочники.Номенклатура.НайтиПоКоду(СпрОЛЕ.Код);
Если ЭлементПоиска.Пустая() Тогда
НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
НовыйЭлемент.Родитель = Группа.Ссылка;
НовыйЭлемент.НоменклатурнаяГруппа = СпрОЛЕ.Наименование;
НовыйЭлемент.Код = СпрОЛЕ.Код;
сообщить(СпрОЛЕ.Код);
НовыйЭлемент.Наименование = СпрОЛЕ.Наименование;
НовыйЭлемент.НаименованиеПолное = СпрОЛЕ.ПолнНаименование;
НовыйЭлемент.Записать();
КонецЕсли;
КонецЦикла;