ОбработкаПодбора Нужно добавть условие ТиС для Украины 7.7

"В элементе справочника номенклатуры добавил список кросс кодов<br>Ниже приведенная процедура обрабатывает список категорий товаров<br>можно ли в нее вписать условие из какого справочника она была вызвана, кросскодов или категорий?<br><br><br>Процедура ОбработкаПодбора(Элемент, КонтекстФормы) // Предопределенная процедура<br> Перем КатегорииТоваров, КатегорияТоваровДляПоиска;<br><br> КатегорияТоваровДляПоиска = СоздатьОбъект("Справочник.КатегорииТоваров");<br> КатегорияТоваровДляПоиска.ИспользоватьВладельца(ТекущийЭлемент());<br> <br> КатегорияТоваровДляПоиска.ВыбратьЭлементы();<br> Пока КатегорияТоваровДляПоиска.ПолучитьЭлемент()=1 Цикл<br> Если КатегорияТоваровДляПоиска.Категория = Элемент Тогда<br> Если КатегорияТоваровДляПоиска.ПометкаУдаления()=0 Тогда<br> // товар уже принадлежит категории<br> // ничего не делать<br> Возврат;<br> Иначе<br> // снимем пометку удаления <br> КатегорияТоваровДляПоиска.СнятьПометкуУдаления();<br> КатегорииТоваров = КатегорияТоваровДляПоиска.ТекущийЭлемент();<br> Прервать;<br> КонецЕсли;<br> КонецЕсли;<br> КонецЦикла;<br> <br> Если ПустоеЗначение(КатегорииТоваров)=1 Тогда<br> // если не нашли категорию с пометкой удаления,<br> // то создаем новый элемент<br> КатегорииТоваров = СоздатьОбъект("Справочник.КатегорииТоваров");<br> КатегорииТоваров.ИспользоватьВладельца(ТекущийЭлемент());<br> КатегорииТоваров.Новый();<br> КатегорииТоваров.Категория = Элемент;<br> Попытка<br> КатегорииТоваров.Записать();<br> Исключение<br> Предупреждение(ОписаниеОшибки());<br> Возврат;<br> КонецПопытки;<br> КонецЕсли;<br><br> // добавляем в список категорий<br> СписокКатегорий.ДобавитьЗначение(КатегорииТоваров.ТекущийЭлемент(),<br>                                КатегорииТоваров.Категория.Наименование);<br> СписокКатегорий.ТекущаяСтрока(СписокКатегорий.РазмерСписка()); <br><br> Форма.кУдалитьКатегорию.Доступность(1);<br>КонецПроцедуры // ОбработкаПодбора<br><br>"

"Возможно, что достаточно проверять:<br><br>Если Элемент.Вид()="Категории" Тогда<br> ...//стандартный код от 1С<br>ИначеЕсли Элемент.Вид()="КроссКоды" Тогда<br> ...//ваша доработка<br>КонецЕсли;<br>"