http://sfsys.ru/index.php?action=history&feed=atom&title=%D0%A1%D1%82%D1%83%D0%B4%D0%B8%D1%8F%2FOnAfterFilterChange 2026-04-04T13:26:50Z Revision history for this page on the wiki MediaWiki 1.31.1 http://sfsys.ru/index.php?title=%D0%A1%D1%82%D1%83%D0%B4%D0%B8%D1%8F/OnAfterFilterChange&diff=3214&oldid=prev 2021-02-07T06:55:33Z

<p>1 revision imported</p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr class="diff-title" lang="en"> <td colspan="1" style="background-color: #fff; color: #222; text-align: center;">← Older revision</td> <td colspan="1" style="background-color: #fff; color: #222; text-align: center;">Revision as of 06:55, 7 February 2021</td> </tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div> </td></tr></table>

Admin http://sfsys.ru/index.php?title=%D0%A1%D1%82%D1%83%D0%B4%D0%B8%D1%8F/OnAfterFilterChange&diff=3213&oldid=prev 2020-08-27T08:58:10Z

<p></p> <p><b>New page</b></p><div>{{infobox function<br /> |name=OnAfterFilterChange<br /> |element=Таблица значений<br /> |caption=Визуальные события<br /> |eventtype=Прерывающее<br /> |status=2}}<br /> {{HeadLinks|<br /> * [[Main_Page|Начальная страница]]<br /> * [[Студия/Редактор форм|Редактор форм]]<br /> * [[Студия/Визуальные события|Визуальные события]]}}<br /> Событие, возникающее после изменения быстрого фильтра в столбике таблицы. Событие будет вызываться только для таблиц, не связанных с базами данных, с установленной опцией ''IfQFiltersAlwaysAllowed''. Событие может обновить таблицу в соответствии с визуальными фильтрами, наложенными пользователем.<br /> <br /> == Примеры ==<br /> &lt;pre&gt;<br /> //Пример обработчика OnAfterFilterChange<br /> <br /> //Функция программного наложения визуальных фильтров<br /> Function _НаложитьФильтр(ВТаб,ИзТаб)<br /> For i:=1 To ВТаб.SizeC() Do<br /> пИмя:=ВТаб.Column(i).Name;<br /> j:=ИзТаб.GetColumnIndex(пИмя);<br /> If j=0 Then<br /> Continue;<br /> EndIf;<br /> //Получить визуальный фильтр<br /> Стр:=Uppercase(ВТаб.Column(i).Filter);<br /> If Стр=&quot;&quot; then<br /> Continue;<br /> EndIf;<br /> Стр2:=Uppercase(ИзТаб.Get(ИзТаб.CurLine,j));<br /> //Если значение текущей строки не подходит под фильтр, вернуть ноль<br /> If pos(Стр,Стр2)=0 Then<br /> Exit 0;<br /> EndIf;<br /> EndDo;<br /> Exit 1;<br /> EndFunction<br /> <br /> <br /> оТекущееЗадание:=Form.оТекущееЗадание.Value;<br /> <br /> //Удалить все строки<br /> оТекущееЗадание.ClearLines();<br /> <br /> //Заданы визуальные фильтры?<br /> флФильтры:=0;<br /> For i:=1 To Таб.SizeC() Do<br /> If Таб.Column(i).Filter&lt;&gt;&quot;&quot; then<br /> флФильтры:=1;<br /> Break;<br /> EndIf;<br /> EndDo;<br /> <br /> //Получить таблицу, которая должна быть сортирована и загружена в оТекущееЗадание<br /> Таб:=ТабПолнТС.Таб;<br /> If Form.оТекущееЗадание.SortString&lt;&gt;&quot;&quot; then<br /> Таб.Sort(Form.оТекущееЗадание.SortString);<br /> EndIf;<br /> <br /> //Заполнить таблицу результата из таблицы Таб<br /> Таб.Select();<br /> While Таб.Next() Do<br /> If флФильтры then<br /> If not _НаложитьФильтр(оТекущееЗадание,Таб) Then<br /> Continue;<br /> EndIf;<br /> EndIf;<br /> оТекущееЗадание.AddLine(&quot;Документ,Зона,Масса,Адрес,ДатаДоставки,ВремяДоставки,Комментарий,Контрагент&quot;,Таб.Документ,Таб.Зона,Таб.Масса,Таб.Адрес,<br /> Таб.ДатаДоставки,Таб.ВремяДоставки,Таб.Комментарий,Таб.Контрагент);<br /> EndDo; <br /> &lt;/pre&gt;</div>

Admin