PUBLIC gsCasesNumbersFilter

IF NOT EMPTY(this.DisplayValue)
   * запомнить в глобальной переменной набранную юзером часть и по ней потом фильтр
   gsCasesNumbersFilter = ALLTRIM(this.DisplayValue)
   * выбрать базу комбы
   SELECT (SUBSTR(this.RowSource, 1 ,AT('.',this.RowSource)))
   * установить фильтр по набранной юзером части (надо чтоб SET EXACT OFF)
   SET FILTER TO CaseNumber = m.gsCasesNumbersFilter
   * стать на первую запись что удовлетворяет фильтру
   GO TOP
   * преполагаемая часть вводимого значения справа, что будет выделена
   lcSelectedEnd = RTRIM(SUBSTR(CaseNumber,LEN(m.gsCasesNumbersFilter)+ 1 ))
   * если таковая есть
   IF NOT EMPTY(m.lcSelectedEnd)
      * в комбо внести полное предполагаемое значение
      this.DisplayValue = m.gsCasesNumbersFilter + m.lcSelectedEnd
      * стать в конец строки
      KEYBOARD '{END}'
      * и начать выделение справа налево до последнего введеного юзером символа
      FOR m.lnI = LEN(m.lcSelectedEnd) TO  1  STEP - 1 
         KEYBOARD '{SHIFT+LEFTARROW}'
      ENDFOR
   ELSE
      * если нечего предположить - снять фильтр
      SET FILTER TO 
   ENDIF   
ELSE
   * если в комбо пусто - снять фильтр
   SELECT (SUBSTR(this.RowSource, 1 ,AT('.',this.RowSource)))
   SET FILTER TO
ENDIF

RELEASE gsCasesNumbersFilter

this.DisplayValue = ALLTRIM(this.DisplayValue)
this.InteractiveChange