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.

if !empty(this.ControlSource)
    this.controlsource_assign(this.ControlSource)
endif