LOCAL c_Text, l_Return

IF thisform.l_Change
	thisform.l_Change = .f.
	c_Text = UPPER(ALLTRIM(this.Value))
	IF LEN(c_Text) >  0 
*+
* Выбрать в курсор записи из таблицы - справочника, удовлетворяющие условию
*+
		SELECT * FROM MyTable WHERE UPPER(MyTable.name) = c_Text ORDER BY name INTO CURSOR t_temp
		IF _TALLY >  0 					&& Если выбрана одна или несколько записей
			IF _TALLY =  1 				&& Если выбрана одна запись
				l_Return = .t.			&& то устанавливаем флаг
			ELSE 						&& Если выбрано более одной записи...
*+
* Если в курсор выбрано более одной записи, то выводим на экран модальную форму, предоставляющую
* возможность выбора одной записи из нескольких. В случае выбора форма возвращает .t.
* (команда RETURN в методе UNLOAD формы)
*+
				DO FORM ChoiceName TO l_Return
			ENDIF 	
*+
* Если в курсор считана одна запись или в форме ChoiceName выбрана какая-то запись из нескольких
* (т.е. l_Return = .T.), то используем это значение.
*+
			this.value = t_temp.name	&& Заменить значение поля на взятое из справочника
		ENDIF 
		USE IN t_temp					&& Закрываем курсор
	ENDIF 
ENDIF