how do i open a form to the last record

[eeetee]

wrong forum ...sorry!

ed

[eeetee]

how do i open a form to the last record

hello:

i am attempting to create a new record by entering three fields of data and then opening a form to that record. the data is entering correctly, but i can't quite figure out how the function "form.viewqueried" filter works. right below debug(0) i have been playing with some approaches. the one that is not commented out will indeed select record number 8 and if i change the value to any other number it filters to the correct record. what i need is simply the last record in the table as it is the one i just started.


thank you in advance!!

ed



'debug(1)
tbl2=table.open ("calls")
query.filter=""
query.order=""
qry2=tbl2.query_create()

tbl2.enter_begin() 'table is still open from above
tbl2.cust_id=var->vcustid 'fill in the customer number
tbl2.calldate=date()
tbl2.calltime=time()
tbl2.enter_end(.T.)
tbl2.close()


'debug(0)

filter = "is_recno_in("8")" 'this works but i need the last record

'filter = between_record(endrec,endrec) 'this does not work




'Open the layout_type showing just the records that satisfy the filter
DIM Shared varP_calls as P
DIM layout_name as c
layout_name = "calls"
varP_calls = :Form.viewqueried(layout_name,filter, query.order )

[Al Buchholz]

Re: how do i open a form to the last record

hello:

i am attempting to create a new record by entering three fields of data and then opening a form to that record. the data is entering correctly, but i can't quite figure out how the function "form.viewqueried" filter works. right below debug(0) i have been playing with some approaches. the one that is not commented out will indeed select record number 8 and if i change the value to any other number it filters to the correct record. what i need is simply the last record in the table as it is the one i just started.


thank you in advance!!



'debug(1)
tbl2=table.open ("calls")
query.filter=""
query.order=""
qry2=tbl2.query_create()

tbl2.enter_begin() 'table is still open from above
tbl2.cust_id=var->vcustid 'fill in the customer number
tbl2.calldate=date()
tbl2.calltime=time()
tbl2.enter_end(.T.)
tbl2.close()


'debug(0)

filter = "is_recno_in("8")" 'this works but i need the last record

'filter = between_record(endrec,endrec) 'this does not work




'Open the layout_type showing just the records that satisfy the filter
DIM Shared varP_calls as P
DIM layout_name as c
layout_name = "calls"
varP_calls = :Form.viewqueried(layout_name,filter, query.order )

	.....

		tbl2.enter_begin()												'table is still open from above
				tbl2.cust_id=var->vcustid								'fill in the customer number
				tbl2.calldate=date()
				tbl2.calltime=time()
			tbl2.enter_end(.T.)									
dim vrecno as N
vrecno=recno("calls")							

	tbl2.close()




dim sptr as P

sptr = form.load("Calls")

sptr.Recno_goto(var->vrecno)

sptr.show()

[eeetee]

Re: how do i open a form to the last record

hi al:

thank you very much! this indeed does open the form, but it only shows as a tab at the bottom. is it possible to get the form to show as well

it's been a while!

thanks again!

ed

[Al Buchholz]

Re: how do i open a form to the last record

hi al:

thank you very much! this indeed does open the form, but it only shows as a tab at the bottom. is it possible to get the form to show as well

it's been a while!

thanks again!

ed

The form is probably behind the control panel. Does the form appear if you click on the tab?

add this code after the .show()

sptr.activate()

or

sptr.zorder("top")

[eeetee]

Re: how do i open a form to the last record

hello again:

thank you very much! still trying to dust off the cobwebs here


ed

[MoGrace]

Re: how do i open a form to the last record

Hi Ed,
I made a global udf to do this:

FUNCTION vw_frm AS L(layoutname as C,idx_tag as C = "",lpos as C = "left",tpos as C = "top")
'DESCRIPTION: Open form with optional specified index on last record and set position on screen	
	DIM frm as P
	frm = obj(layoutname)
	IF .not. is_object(frm) THEN
		frm = :form.view(layoutname,"","",lpos,tpos)
	end if	
	if idx_tag <> "" then
		frm.index_set(idx_tag)		
	end if	
	frm.activate()
	frm.fetch_last()
	vw_frm=.t.
END FUNCTION

After you enter your record just add this as the last line to use the default recno() order:

vw_frm("calls")

[Al Buchholz]

Re: how do i open a form to the last record

Hi Ed,
I made a global udf to do this:

FUNCTION vw_frm AS L(layoutname as C,idx_tag as C = "",lpos as C = "left",tpos as C = "top")
'DESCRIPTION: Open form with optional specified index on last record and set position on screen	
	DIM frm as P
	frm = obj(layoutname)
	IF .not. is_object(frm) THEN
		frm = :form.view(layoutname,"","",lpos,tpos)
	end if	
	if idx_tag <> "" then
		frm.index_set(idx_tag)		
	end if	
	frm.activate()
	frm.fetch_last()
	vw_frm=.t.
END FUNCTION

After you enter your record just add this as the last line to use the default recno() order:

vw_frm("calls")

Robin

Nice function.

A minor, but important distinction.

In a multi-user environment, it is possible that another record is entered and now the last record in the table is from userB rather than you (userA).

That's why I pointed directly to the record number that was identified from the add rather than pointing at the last record.

[eeetee]

Re: how do i open a form to the last record

hi robin:

thanks!! I used to be quite involved in a5 back in the 90's so a bit of a re-entry curve.


have a great day!

ed

[MoGrace]

Re: how do i open a form to the last record

Good point Al. For my use, I just use the function to open forms. For Ed's purposes, a parameter could be added - and the others changed.

FUNCTION vw_frm AS L(layoutname as C,idx_tag as C = "",lpos as C = "",tpos as C = "",rec as n = 0)
'DESCRIPTION: Open form with optional specified index on last record and set position on screen	

	DIM frm as P
	frm = obj(layoutname)

	if lpos = "" then
		lpos = "left"
	end if

	if tpos = "" then
		tpos = "top"
	end if

	IF .not. is_object(frm) THEN
		frm = :form.view(layoutname,"","",lpos,tpos)
	end if	

	if idx_tag <> "" then
		frm.index_set(idx_tag)		
	end if	
	frm.activate()

	if rec > 0 then
		frm.Recno_goto(var->rec)
	else
		frm.fetch_last()
	end if
	
	vw_frm=.t.
END FUNCTION

so now the function can be called as:

vw_frm("calls","","","",vrecno)

of if he wants to reorder the parameters (I can't since it would break a lot of scripts...) just make rec the 3rd one then use it with the default position in record number order:

vw_frm("calls","",vrecno)

[Al Buchholz]

Re: how do i open a form to the last record

Good point Al. For my use, I just use the function to open forms. For Ed's purposes, a parameter could be added - and the others changed.

FUNCTION vw_frm AS L(layoutname as C,idx_tag as C = "",lpos as C = "",tpos as C = "",rec as n = 0)
'DESCRIPTION: Open form with optional specified index on last record and set position on screen	

	DIM frm as P
	frm = obj(layoutname)

	if lpos = "" then
		lpos = "left"
	end if

	if tpos = "" then
		tpos = "top"
	end if

	IF .not. is_object(frm) THEN
		frm = :form.view(layoutname,"","",lpos,tpos)
	end if	

	if idx_tag <> "" then
		frm.index_set(idx_tag)		
	end if	
	frm.activate()

	if rec > 0 then
		frm.Recno_goto(var->rec)
	else
		frm.fetch_last()
	end if
	
	vw_frm=.t.
END FUNCTION

so now the function can be called as:

vw_frm("calls","","","",vrecno)

of if he wants to reorder the parameters (I can't since it would break a lot of scripts...) just make rec the 3rd one then use it with the default position in record number order:

vw_frm("calls","",vrecno)

Nicely done!