&& Быстрый поиск по полю FIO таблицы ASR

private m.QuickFind
m.QuickFind = ''
do QuickFindKey

BROWSE

m.QuickFind = ''
do QuickFindKeyClear


procedure QuickFind
parameters m.LastKey
if m.LastKey = 127 && BackSpace
m.QuickFind = Left(m.QuickFind, Len(m.QuickFind) - 1)
else
if Len(m.QuickFind) < FSize('FIO')
m.QuickFind = Upper(m.QuickFind + Chr(m.LastKey))
endif
endif
wait m.QuickFind window nowait at 20, 42
if !Empty(m.QuickFind)
= Seek(m.QuickFind, 'ASR', 2)
endif
return


procedure QuickFindKey
on key label Del m.QuickFind = ''
on key label BackSpace do QuickFind with LastKey()
on key label А do QuickFind with LastKey()
on key label Б do QuickFind with LastKey()
...
on key label Z do QuickFind with LastKey()
return

procedure QuickFindKeyClear
wait clear
on key label Del
on key label BackSpace
on key label А
on key label Б
...
on key label Z
return