Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: OLE перенос справочника с группами
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
alexkhua
Помогите пожалуйста, переношу из 1с 77 в 1с 8.2 справочники. Как понять , что в 1с 7.7 является группой элементов?
Процедура ЗагрузитьНоменклатуру()
    
СпрОЛЕ = V7.CreateObject("Справочник.Номенклатура");
СпрОЛЕ.ВыбратьЭлементы();

Пока СпрОЛЕ.ПолучитьЭлемент()=1 Цикл
    
    ЭлементПоиска = Справочники.Номенклатура.НайтиПоКоду(СпрОЛЕ.Код);
    Если ЭлементПоиска.Пустая() Тогда
        
    НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
    //НовыйЭлемент.НоменклатурнаяГруппа = СпрОЛЕ.Наименование;
    НовыйЭлемент.Код = СпрОЛЕ.Код;
    НовыйЭлемент.Наименование = СпрОЛЕ.Наименование;
    НовыйЭлемент.НаименованиеПолное = СпрОЛЕ.ПолнНаименование;
    НовыйЭлемент.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар");
    НовыйЭлемент.БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(СпрОЛЕ.БазоваяЕдиница.Наименование);
    НовыйЭлемент.Родитель = Справочники.Номенклатура.НайтиПоНаименованию(СпрОЛЕ.Наименование); //НУЖЕН ИМЕННО РОДИТЕЛЬ!!!
    НовыйЭлемент.Записать();
    КонецЕсли
КонецЦикла;

    
    
КонецПроцедуры
Acid
Если СпрОЛЕ.ЭтоГруппа()=1 Тогда


НовыйЭлемент.Родитель = Справочники.Номенклатура.Родитель;
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.