У справочника есть табличная честь.
Она выведена на форму. Есть реквизит актуальность типа булево.
Как по кнопке задать отображение актуальных и не актуальных строк
в этой табличной части?

(0) ПКМ- установить отбор.

как это сделать программно?

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    Для каждого Стр Из Объект.Алгоритмы Цикл
        Если  Стр.Актуальность = Истина Тогда
            Стр.Видимость = Ложь;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

(1) по правой кнопке мыши нет установить отбор

возможно как то это сделать программно?

Табличная часть наверняка как динамический список выведена на форму. Распилите запрос этому списку.

(5) сам создал табличную часть у справочника и вывел на форму

так тоже не получается

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    Для каждого Стр Из Объект.Алгоритмы Цикл
        Если  Стр.Актуальность = Ложь Тогда
            Элементы.Алгоритмы.ТекущаяСтрока.Видимость = Ложь;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры
// <-

(6) И вряд ли получится. Попробуйте сделать это через настройку динамического списка. Настройка происходит через запрос, т.е. вам нужно только в запросе прописать условие вроде
ГДЕ
   ТабличнаяЧасть.Актуальность = &ПараметрОтбора

Сам же параметр передавать через элемент управления на форме, сделать галочку, например.

(7) Галочка есть в табличной части, поле актуальность
А как сделать через настройку этого списка? я его нигде не нащел.

(7) то есть на форме будет не таблица????

(7) туда же нужно и вводить данные и выводить

как же это сделать? задача проще некуда
отображать в таблице строки с полем активность = истина
и не отображать строки с полем активность = ложь
или отображать те и те
как это сделать?????
динамический список только для вывода же?????
мне нужно и для отображения и для ввода данных в табличную часть

(11) УФ?

(12) да.
как на счет такого?

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