Where is the property found for click column title sort?

[MoGrace]

I want to find out which column the user clicked to sort the browse for the child in a set based form. Anyone know where this can be found? I tried browse1.order_get() but it doesn't work for the child when in a set - is there another way to find out the current sort order for that table? I also tried vsort = topparent:tables:pay_reg.order_expression in the IW, but get nothing when the sort is changed.

I know the old way was to use hot spots/buttons instead of column titles, but surely this "new" feature can be read somewhere!

Thanks

[Ray in Capetown]

Re: Where is the property found for click column title sort?

Up to V10 it was selectable in
Column, title click behaviour on the browse tab of the browse properties window

Has that changed?

Added
Oops - you asked about detecting the current order.
I'll have a look as well.

[MoGrace]

Re: Where is the property found for click column title sort?

Hi Ray,
Actually there is probably a better way to go about this. I am trying to get a range of records selected in a browse and use that to filter the table so I can change a field in each of those records. I have the table initially in recno() order but this could be changed with a column title click before the user selects the records. But that shouldn't matter since my list will only have the records selected anyway. But now how do I filter the table so just those records can be fetched?

Intial Order (recno() preferred):
rng = browse1.selected_records()

?rng
= 4830
4831
4832
4833
4834
4835

User changes the order:
rng = browse1.selected_records()

?rng
= 4862
4787
4858
4861
4859
4864

I tried a filter with "recno() = rng" but testing in the interactive it returned .f. ; also I tried is_recno_in(rng) and it also returned .f.
I'm a bit weak on list processing functions...

[Ray in Capetown]

Re: Where is the property found for click column title sort?

So you want to loop through checking for record numbers in the string. Use this

?alltrim(str(recno(),12,0))$rng
= .T.
Added: you will need to qualify recno() to make sure it is the child table record.

[Ray in Capetown]

Re: Where is the property found for click column title sort?

if there is a possibilty that you check record number 13 and 513 is one of the selected numbers then that would return .T.
Please use this instead to be 100% sure. (I use ptr. to represent the browse object or child table pointer whichever you use)

rn2=","+strtran(rng,crlf(),",")
while ...
  if (","+alltrim(str(recno(),12,0))+",") $ (","+rn2+",")
    'make the changes to record
  end if
  [I]ptr[/I].fetch_next()
end while

[MoGrace]

Re: Where is the property found for click column title sort?

Here is what I came up with & a screenshot of the form - no query needed!

FUNCTION Add_Chk_nos AS C (begno = "" AS C )
	'Pay_Reg->CHECKNO Numbering script
	'gets range of records selected in browse for numbering
	'the temp_pr table is initially alphabetically ordered by FILECODE
	'when it is appended to this table
		
	on error goto ERRMSG2
	DIM tbl as P 
	tbl = table.get("pay_reg")
	on error goto 0
	
	DIM begno as C
	DIM endno as C
	dim rng as C = "0"
	dim LC as N
	dim t1 as n
	dim t2 as n
	dim commit_flag as L 
	
	rng = browse1.selected_records()
'	note as user selects the rows the last record becomes the first in the rng list
	rng = sortsubstr(rng,crlf())
'	trace.WriteLn("Records Selected: "+rng)
	if begno = "" then
		begno = ui_get_text("Add Check Numbers","First Check No.","")
	end if
'	LC = line_count(rng)-1
'	endno = ltrim(str(val(begno)+LC))
'	trace.WriteLn("Add Check Nos: "+alltrim(begno)+" to "+alltrim(endno))
	dim qrec as n
	t1 = toseconds(time())
	tbl.batch_begin()
		FOR EACH foo in rng
			qrec = val(foo.value)
			tbl.fetch_goto(qrec)
			commit_flag = .t.
			on error goto ERRMSG
			tbl.change_begin()		
				tbl.checkno = begno
			tbl.change_end(commit_flag)
			if commit_flag then
				tln("Checkno Added",alltrim(begno))
			end if
			begno = increment_value(begno)
		NEXT	
	tbl.batch_end()
	t2 = toseconds(time())
	tln("Time elapsed",t2-t1)
	ENDIT:
	'topparent.show_all()
	browse1.fetch_first()
	Add_Chk_nos = rng
	END
	'
	ERRMSG: 
	commit_flag=.f.
	script_play("ERRMSG")
	on error goto 0
	RESUME NEXT
	'
	ERRMSG2: 
	ui_msg_box("Script Error","The PAY_REG table is not active",16)
	end
END FUNCTION

Notice that the first 2 records in the browse are not part of the series for the current week's checks. That is because they are void entries for stop payments on lost checks. Previously I was just sorting the records and numbering them all together. But then when multiple checks or voids or replacement checks were introduced, I needed a way to select just a subset for numbering. By resorting the selection list (rng) I will not have the random sort I was hoping for, but so far it works pretty much as expected. If the selected records stayed in the order as they are highlighted - it would be perfect!

[Ray in Capetown]

Re: Where is the property found for click column title sort?

Can't say I see an improvement.
The first method could achieve exactly that, I like that one for simplicity.

[MoGrace]

Re: Where is the property found for click column title sort?

To be honest Ray I didn't get the purpose of adding the "," at first. I will give it another go - concise code is ALWAYS better!