Уведомления
Очистить все

1С Как создать элемент справочника в нужной группе?

1 Записи
1 Пользователи
0 Likes
235 Просмотры
158-150 Okolokompa Форум
(@mitozzz)
Trusted Member
Присоединился: 4 года назад
Записи: 32
Создатель темы  
КодГруппы = "330100"; 
ПоискПоПолномуКоду = Ложь; 

// значение по умолчанию 
Группа = Справочники.Номенклатура.НайтиПоКоду(КодГруппы, ПоискПоПолномуКоду); 

Если Группа.Пустая() Тогда
 
Группа = Справочники.Номенклатура.СоздатьГруппу(); 
Группа.Код = КодГруппы; 
Группа.Наименование = "Загруженные"; 
Группа.Записать();
 
ИначеЕсли Не Группа.ЭтоГруппа Тогда 

Сообщить("Найден элемент справочника с указанным кодом!"); 

// Предусмотреть прерывание алгоритма. 
КонецЕсли; 

Спр = Справочники.Номенклатура.СоздатьЭлемент(); 
Спр.Наименование = "Программно созданный"; 

// Реквизиты заполняются в соответствии с задачей. 
Спр.Родитель = Группа.Ссылка; 
Спр.Записать();

Группа = Справочники.Номенклатура.Загруженные;

КодЭлемента = "330100"; 
ПоискПоПолномуКоду = Ложь; 

//Значение по умолчанию 

Родитель = Справочники.Номенклатура.НайтиПоКоду(КодЭлемента, ПоискПоПолномуКоду); 

Если Родитель.Пустая() Тогда 
Родитель = Справочники.Номенклатура.СоздатьЭлемент(); 
Родитель.Код = КодЭлемента; 
Родитель.Наименование = "Загруженные"; 
Родитель.Записать(); 
КонецЕсли; 

Спр = Справочники.Номенклатура.СоздатьЭлемент(); 
Спр.Наименование = "Программно созданный"; 

// Реквизиты заполняются в соответствии с задачей. 
Спр.Родитель = Родитель.Ссылка; 

Спр.Записать();

   
Цитата
Поделиться: