////////////////////////////////////////////////////////////////////////
//						
//     Создал новое событие :  ue_dddwfind(dwobject, string)     которое находится на dw_1
//						
//    Описание  :  быстрый поиск по dddw, дописывает в конец слова, то что находит в dddw списке.
// 		Вызов этого EVENT ue_dddwfind() происходит из EVENT editchanged() например так:
/*
                          string               ls_pole
                          ls_pole              = dwo.Name
                          choose case ls_pole
                          case 'city' /*  'city' название поля DataWindow у которое есть выпадающий список - dddw */
                          if Len (data) >  0  then
                                   EVENT POST ue_dddwfind(dwo, data)
                          end if
                          END CHOOSE
*/		
//						
//     История :   25 . 09 . 2009  - Андрей, создание
//					
//   Аргументы :	adwo      - dwobject 
//		as_data  - string (строка только что введенных данных)
//						
//  Возвращает :  (None)
//						
//////////////////////////////////////////////////////////////////////////

integer                  li_lentext   
long                      ll_findrow   
string                    ls_dddw_column   
string                    ls_foundtext   
string                    ls_searchtext   
DataWindowChild     ldddw_child

If   IsNull(adwo)   or   Not   IsValid(adwo)   Then   Return   
 
ls_searchtext   	=   as_data   
li_lentext   		=   Len   (ls_searchtext) 

/* Проверки нужно ли вообще что то искать */
If  (li_lentext   <   Len(is_textprev) and li_lentext >  1 )   or   &   
	(Lower   (ls_searchtext)   =   Lower   (is_textprev))   Then   
	is_textprev   =   ''   
	Return     
End   If   

is_textprev   =   ls_searchtext   

/* Непосредственно сам поиск по dddw */
if GetChild (adwo.Name, ldddw_child) =  1  then 
		ls_dddw_column   =   adwo.dddw.displaycolumn   /* название отображаемой в dddw */
		/* Собираем строку поиска столько символом сколько у нас введено */
		ls_searchtext   =   "lower (left ("   +   ls_dddw_column   +   ",   "   +  &
		String (li_lentext) + "))  =  '"   +   Lower   (ls_searchtext)   +   "'"   

		/* Поиск по dddw */
		ll_findrow   =   ldddw_child.Find   (ls_searchtext,    1 ,   ldddw_child.rowcount() )   

		/* Устанавливаем найденное значение */
		if   ll_findrow  >   0   then  ls_foundtext = ldddw_child.GetItemString ( ll_findrow, ls_dddw_column)
		if   ll_findrow  >   0   then  SetText   (ls_foundtext)   
		
		/* если значение найдено, то подсвечиваем недописанный текст иначе ставим курсор в конец строки */
		if   li_lentext   =   len(ls_foundtext)   THEN   	
				SelectText   (Len   (ls_foundtext) +  1 ,    0 )   	
		else  
				SelectText   (li_lentext   +    1 ,   Len   (ls_foundtext))   
		end if
end if