lparameters tnId, tcFields
if empty(tcFields)
	this.cError = 'не хорошо! не передали список полей!'
	return .f.
endif
lcOldAlias = alias()
lnOldRec = recno()
if alias()<>this.Alias
	select (this.Alias)
endif
* если передали айди, то ищем по ключу,
* нет возвращаем значения той записи, на которой стоим
if !empty(tnId)
	* на взлете нужно индекс сотворить, но возиться в данном примере нет смысла
	locate for (this.KeyFieldList) = tnId
	if !found(this.Alias)
		this.cError = 'нет такого айди!'
		return .f.
	endif
endif
local luReturn
if at(',',tcFields)> 0 
	local lnFields, laFields( 1 )
	luReturn = createobject('empty')
	for lnFileds= 1  to alines( laFields, tcFields,',')
		*... нет времени - дошаманю
	endfor
else
	dimension luReturn( 1 )
	try
		scatter fields (tcFields) to luReturn   &&= curval(tcFields,this.Alias)
		luReturn = luReturn( 1 )
	catch
		luReturn = .f.
		this.cError = 'нет такого поля!'
	endtry
endif
if !empty(lcOldAlias) and alias()<>lcOldAlias
	select (lcOldAlias)
endif
if !empty(lnOldRec) and recno()<>lnOldRec
	locate record lnOldRec
endif
return luReturn