7.7 Группа или Элемент

Добрый день!
Как проверить. Выбрали ли группу справочника или элемент?

Код:

ВыбранныйЭлемент.ЭтоГруппа() = 1 // группа
ВыбранныйЭлемент.ЭтоГруппа() = 0 // элемент

А как вообще запретить выбор элемента?

Т.е. хотите чтобы пользователи могли выбирать только группу?
Где выбирается? Подробнее распишите задачу.

В ТЧ документа должна выбираться только группа справочника.

Один из вариантов:

Код:

Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога, ФлагСтандОбр)
Если ИдентЭлемДиалога = "РеквизитТЧ" Тогда
ФлагСтандОбр = 0;
Спр = СоздатьОбъект("Справочник.ГруппыИЭлементы");
Если Спр.Выбрать("Выберите группу", "") = 1 Тогда
ТекЭлемент = Спр.ТекущийЭлемент();
Если ТекЭлемент.ЭтоГруппа() = 1 Тогда
РеквизитТЧ = ТекЭлемент;
Иначе
Сообщить("Выберите группу", "!");
КонецЕсли;
КонецЕсли;
КонецПроцедуры

Код:

Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога, ФлагСтандОбр)
Если ИдентЭлемДиалога = "СпецификацияИзделия" Тогда
ФлагСтандОбр = 0;
Спр = СоздатьОбъект("Справочник.СпецификацияНоменклатуры");
Если Спр.Выбрать("Выберите группу", "") = 1 Тогда
ТекЭлемент = Спр.ТекущийЭлемент();
Если ТекЭлемент.ЭтоГруппа() = 1 Тогда
СпецификацияИзделия = ТекЭлемент;
Иначе
Сообщить("Выберите группу", "!");
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры

Почему группу нельзя выбрать?

В модуле или в процедуре "ПриОткрытии" строчка нужна:

Код:

Форма.СпецификацияИзделия.ВыборГруппы(1);

Есть такая строчка.

Код:

Перем ОбщКолВо,ИдентЭлемДиалога,ФлагСтандОбр;
Процедура ПриОткрытии()
ПриЗаписиПерепроводить(1);
Форма.СпецификацияИзделия.ВыборГруппы(1); 

СписокСчетов.ДобавитьЗначение("","<...>");
СписокСчетов.ДобавитьЗначение(СчетПоКоду("131"), "(1310) Сырье и материалы");
СписокСчетов.ДобавитьЗначение(СчетПоКоду("132"), "(1320) Готовая продукция");
СписокСчетов.ТекущаяСтрока(СписокСчетов.НайтиЗначение(Счет));
КонецПроцедуры

Процедура ПриВыбореСчета()
Счет = СписокСчетов.ПолучитьЗначение(СписокСчетов.ТекущаяСтрока()); 
КонецПроцедуры

Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога, ФлагСтандОбр)
Если ИдентЭлемДиалога = "СпецификацияИзделия" Тогда
ФлагСтандОбр = 0;
Спр = СоздатьОбъект("Справочник.СпецификацияНоменклатуры");
Если Спр.Выбрать("СпецификацияИзделия", "") = 1 Тогда
ТекЭлемент = Спр.ТекущийЭлемент();
Если ТекЭлемент.ЭтоГруппа() = 1 Тогда
СпецификацияИзделия = ТекЭлемент;
Иначе
Сообщить("Выберите группу", "!");
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры

Процедура ВыборкаНоменклатуры()
ОбщКоличество=0;
Спр = СоздатьОбъект("Справочник.СпецификацияНоменклатуры");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Спр.ИспользоватьРодителя(СпецификацияИзделия);
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
ОбщКолВо=ОбщКолВо+Спр.Количество*Количество;
Сообщить(""+Спр.Материал+"Кол-Во"+Спр.Количество*Количество);
КонецЦикла;
КонецЦикла;  
КонецПроцедуры

Забыл, что

Код:

ФлагСтандОбр = 0;

Надо так в "ПриНачалеВыбораЗначения":

Код:

Спр = СоздатьОбъект("Справочник.СпецификацияНоменклатуры");
Спр.ВыборГруппы(1);

имхо

Код:

            Если ТекЭлемент.ЭтоГруппа() = 1 Тогда
СпецификацияИзделия = ТекЭлемент;
Иначе
СпецификацияИзделия = ТекЭлемент.Родитель;
КонецЕсли;

Проверку на отсутствие родителя только делать надо. Кто-нибудь умудрится "засунуть" элемент в "корень" справочника.