>>>Dmitry,
>>>
>>>Perhaps this function may be of help.
>>>
>>>Pass
>>>- nothing for current workarea
>>>- an alias name
>>>- a workarea
>>>
>>>
>>>UPDATE
>>>
>>>

>>>function	GetTableName(wa)
>>>	wa = evl( m.wa, select(0) )
>>>	
>>>	do case
>>>	case !used(m.wa)
>>>		return '???'
>>>		
>>>	case !empty(cursorgetprop('DataBase', m.wa))
>>>		return proper(cursorgetprop('SourceName', m.wa))
>>>	
>>>	otherwise
>>>		return Proper(juststem(dbf(m.wa)))
>>>	
>>>	endcase
>>>endfunc
>>>

>>
>>The error handling here is missing.
>
>
>So ?

So the code produced an error if you pass "Test" and don't have an alias test opened. BTW, I meant the code before your update.

With the latest update it should work OK.