[slayer23232]

Доброго времени суток. Платформа 7,7 ред 9,2

кусок кода в котором идет отбор по коду (строка 3 НайтиПоКоду("4"))

Процедура ПоКнопкеSP2()
    СпрТов = СоздатьОбъект("Справочник.Номенклатура");
    Если СпрТов.НайтиПоКоду("4") = 1 Тогда 
        ГруппаФильтр = СпрТов.ТекущийЭлемент();
    КонецЕсли;
    ТаблицаНоменклатуры.ВыбратьСтроки();
    К= ТаблицаНоменклатуры.КоличествоСтрок();
       Пока К>0 Цикл
            ТаблицаНоменклатуры.ПолучитьСтрокуПоНомеру(К);
                 Если ТаблицаНоменклатуры.Номенклатура.ПринадлежитГруппе(ГруппаФильтр) <> 1 Тогда
                     ТаблицаНоменклатуры.УдалитьСтроку();
                  КонецЕсли;
            К=К-1;
       КонецЦикла;
КонецПроцедуры

Возможно ли сделать перечисление (несколько кодов)??? и как это сделать???
Заранее благодарен.

[Ardi]

1. Попробовать засунуть в ГруппаФильтр список значений.
2. Написать свою функцию и заменить ею строку " Если ТаблицаНоменклатуры.Номенклатура.ПринадлежитГруппе(ГруппаФильтр) <> 1 Тогда". В функции несколько раз вызывать "ПринадлежитГруппе(ГруппаФильтр)"
3. Переписать всю процедуру на использование "ПолныйКод()"

ПолныйКод()
Синтаксис:
ПолныйКод()
Назначение:
Возвращает строку, содержащую полный код выбранного элемента справочника со всеми вышестоящими уровнями, разделенными символом /.

Сообщение отредактировал Ardi - 10.09.11, 22:39