lparameters tcNewVal
THIS.CONTROLSOURCE = tcNewVal
if !empty(tcNewVal)
	local laAliasFldName( 1 ), lnAtrControlSource
	* раскинем источник на алиаз и имя поля
	lnAtrControlSource = alines(laAliasFldName,this.ControlSource,'.')
	if lnAtrControlSource= 2  and !empty(laAliasFldName( 1 )) and !empty(laAliasFldName( 2 ))
		* запомним имя курсора и поля
		if lower(laAliasFldName( 1 ))<>'thisform' and used(laAliasFldName( 1 )) 
			store alltrim(laAliasFldName( 1 )) to this.cAlias
			store alltrim(laAliasFldName( 2 )) to this.cField
		else 
			store '' to this.cAlias, this.cField
		endif
	else 
		store '' to this.cAlias, this.cField
	endif
else
	if !empty(this.cAlias) or !empty(this.cField)
		store '' to this.cAlias, this.cField
	endif
endif
return .t.