просто пример. копирайт - не знаю

Процедура РеквТабличноеПолеПриКонтекстномМеню(ТипРегиона, Колонка, ИДполя)


     Док=ТабличноеПоле.ТекущиеДанные.Получить("Док");
     Список = СоздатьОбъект("СписокЗначений");
     Картинки=СоздатьОбъект("Картинка");
     Картинки.Загрузить(КаталогИБ()+"Иконки меню журнала.bmp");
     Список.ДобавитьЗначение(1,"[icon:1]Новый");
     Список.ДобавитьЗначение(2,"[icon:2]Открыть");
     Список.ДобавитьЗначение(3,"[icon:3]Просмотр");
     Список.ДобавитьЗначение(4,"[icon:4]Копировать");
     Если Док.ПометкаУдаления()=0 Тогда

           Список.ДобавитьЗначение(5,"[icon:5]Пометить на удаление");
     Иначе
           Список.ДобавитьЗначение(5,"[icon:5]Снять пометку удаления");
     КонецЕсли;
      //Разделитель
     Список.ДобавитьЗначение(0,"-");
     // создаем вложенный список
     СписокДоп = СоздатьОбъект("СписокЗначений");
     СписокДоп.ДобавитьЗначение(551,"По Фирме");
     СписокДоп.ДобавитьЗначение(552,"По Контрагенту");
     СписокДоп.ДобавитьЗначение(553,"По Заявителю");

     // добавляем вложенный список
     Список.ДобавитьЗначение(СписокДоп,"[icon:6]Установить фильтр");
     Если рКОнтрагент)<>3 Тогда

           Список.ДобавитьЗначение(6,"[icon:7]Снять все фильтры");
     КонецЕсли;

     Список.ДобавитьЗначение(7,"Запомнить");

     Выб = "";
     Если СервисРасшФормы.ВыбратьЗначение(Список,Выб,"выбор значения",0,2,Картинки) = 1 Тогда
           Если Выб=1 Тогда
                 НовыйДокумент();

           ИначеЕсли Выб=2 Тогда
И так далее

sava
Спасибо!
Протупил.