Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> OLE перенос справочника с группами          
alexkhua Подменю пользователя
сообщение 02.09.13, 14:50
Сообщение #1

Завсегдатай
****
Группа: Пользователи
Сообщений: 181
Спасибо сказали: 2 раз
Рейтинг: 0

Помогите пожалуйста, переношу из 1с 77 в 1с 8.2 справочники. Как понять , что в 1с 7.7 является группой элементов?
Процедура ЗагрузитьНоменклатуру()
    
СпрОЛЕ = V7.CreateObject("Справочник.Номенклатура");
СпрОЛЕ.ВыбратьЭлементы();

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

    
    
КонецПроцедуры

Acid Подменю пользователя
сообщение 02.09.13, 15:15
Сообщение #2

Про1С-ник
Иконка группы
За заслуги на форуме в 2010 году
Группа: Местный
Сообщений: 2104
Из: Занзибар
Спасибо сказали: 379 раз
Рейтинг: 0

Если СпрОЛЕ.ЭтоГруппа()=1 Тогда


НовыйЭлемент.Родитель = Справочники.Номенклатура.Родитель;


Signature

Документируйте Код! мать вашу...


Спасибо сказали: alexkhua,

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 15.06.25, 17:16
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!