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

"В элементе справочника номенклатуры добавил список кросс кодов
Ниже приведенная процедура обрабатывает список категорий товаров
можно ли в нее вписать условие из какого справочника она была вызвана, кросскодов или категорий?


Процедура ОбработкаПодбора(Элемент, КонтекстФормы) // Предопределенная процедура
Перем КатегорииТоваров, КатегорияТоваровДляПоиска;

КатегорияТоваровДляПоиска = СоздатьОбъект("Справочник.КатегорииТоваров");
КатегорияТоваровДляПоиска.ИспользоватьВладельца(ТекущийЭлемент());

КатегорияТоваровДляПоиска.ВыбратьЭлементы();
Пока КатегорияТоваровДляПоиска.ПолучитьЭлемент()=1 Цикл
   Если КатегорияТоваровДляПоиска.Категория = Элемент Тогда
Если  КатегорияТоваровДляПоиска.ПометкаУдаления()=0 Тогда
// товар уже принадлежит категории
// ничего не делать
Возврат;
Иначе
// снимем пометку удаления
КатегорияТоваровДляПоиска.СнятьПометкуУдаления();
КатегорииТоваров = КатегорияТоваровДляПоиска.ТекущийЭлемент();
Прервать;
КонецЕсли;
   КонецЕсли;
КонецЦикла;

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

// добавляем в список категорий
СписокКатегорий.ДобавитьЗначение(КатегорииТоваров.ТекущийЭлемент(),
                                КатегорииТоваров.Категория.Наименование);
СписокКатегорий.ТекущаяСтрока(СписокКатегорий.РазмерСписка());

Форма.кУдалитьКатегорию.Доступность(1);
КонецПроцедуры // ОбработкаПодбора

"

"Возможно, что достаточно проверять:

Если Элемент.Вид()="Категории" Тогда
  ...//стандартный код от 1С
ИначеЕсли Элемент.Вид()="КроссКоды" Тогда
  ...//ваша доработка
КонецЕсли;
"