String Col,SortOrder
integer li_ret
Col=Upper(Trim(dwo.Name))
if Upper(right(Col, 2 ))='_T'then
	if SCol=Col then
		if SOrder=' A' then 
			SortOrder=' D'
		else
			SortOrder=' A'
		end if
	else
		SortOrder=' A'
	end if
	Modify(dwo.Name+".Border='5'")
	
	if Upper(right(Col, 2 ))='_T'then
		this.SetSort(left(Col,len(col)- 2 )+SortOrder)
	end if
	this.Sort()
	Modify(dwo.name+".Border='6'")
	SOrder=SortOrder
	SCol=Col
else	
if row <=  0   then return

end if