find last record in embedded browse

[danh]

I need to find the last record in an embedded browse and open a form with that record displayed. I am able to get everything to work, except it will not go to the last record, instead it goes to whatever record is selected in the browse. I want to go to the last record regardless of which one is selected. Here is the code:

'Get pointer to child table in the set
child_tbl = table.get("activity")

'Try to move to the first record
child_tbl.fetch_first()

'If there are no records, add one.
if child_tbl.fetch_EOF()

'code for opening the form to add record

else
child_tbl.fetch_last()
dim vrecno as N
vrecno = child_tbl.recno() '< This is picking up the selected record
in the browse instead of the last record?

dim fptr as P
fptr = form.load("QuickCheckInOut","dialog")
fptr.Recno_goto(vrecno)

fptr.show()

fptr.Close()
end if

The problem is it will go to the record selected in the browse and not only to the last record.

Any help? Thanks, Dan

[G Gabriel]

Re: find last record in embedded browse

here is a 50 cents script that should do the job:
parentform:browse1.fetch_last()

make that 25 cents.

[danh]

Re: find last record in embedded browse

That did the trick!

But I have a question. Why would "child_tbl.fetch_last()" not work just the same?

Thanks, Dan

[G Gabriel]

Re: find last record in embedded browse

Why would "child_tbl.fetch_last()" not work just the same?

Who said it didn't?
It did, only in the "outer space". It is pointing to the last record, but doing so "behind the scene". For you to see it, you need to resynch the form (doesn't always work) so the pointer at the form and the pointer at the table co-incide.

[Tom Cone Jr]

Re: find last record in embedded browse

Dan, check the value in vrecno by writing it to the trace window or a msg box. It's possible the value is being assigned before the last record has been fully fetched. The script will not wait for the fetch to be concluded before moving on to the next statement in the script. Unless wrapped in a UDF statements that involve disk or network activity do not pause the script. Windows is a multi-tasking environment.

Later on...

The following script works fine in a button on the Invoice form in AlphaSports, once you create a new form based on the Invoice_items table and name it Inv_items. However, the list of linked child table records is small and the disk activity is local. If I were pulling this over a network or if the list of linked child table records was large I would not be surprised to see the error you're getting.

'Date Created: 16-Feb-2008 07:12:00 AM
'Last Updated: 16-Feb-2008 07:12:41 AM
'Created By  : Tom Cone Jr
'Updated By  : Tom Cone Jr
child_tbl = table.get("invoice_items")

'Try to move to the first record
child_tbl.fetch_first()

'If there are no records, add one.
if child_tbl.fetch_EOF()

'code for opening the form to add record

else
child_tbl.fetch_last()
dim vrecno as N
vrecno = child_tbl.recno() '< This is picking up the selected record
							'in the browse instead of the last record?

dim fptr as P
fptr = form.load("Inv_items","dialog")
fptr.Recno_goto(vrecno)

fptr.show()

fptr.Close()
end if

[danh]

Re: find last record in embedded browse

Maybe I need to ask it this way, what is the correct way to find the last record in the child table associated with the currently selected parent record? I don't want the form to change focus, just "behind the scenes" pick the last record and reference a field in that record.

Thanks, Dan

[G Gabriel]

Re: find last record in embedded browse

The "last" record is a product of what index or filter/order you use and varies accordingly.

t=table.current(2)  2: assuming it's the first child
[COLOR="Blue"]t.index_primary_put("index_name") applicable index if 
needed and/or if differet from the linking field filter/order. Since you are 
looking for the last child associated with the parent, you do not need to 
put any index here, skip this line.[/COLOR]
t.fetch_last()

That's it.

[Doug Page]

Re: find last record in embedded browse

Dan,

To try to simplify this in words...

1. You open a table and ALL the records are there in the order that they were entered.

2. You want them to be in an order so you apply an index to the table so that all the records are in a desirable order.

3. IMPORTANT - You only want to consider a certain 'SET' of the records so you apply a filter. At this point you can ONLY see these records and not all the records that are in the table. So now what Gabe has suggested, t.fetch_last(), will now go and get the last record of this set.

HTH

[danh]

Re: find last record in embedded browse

It seems the "child_tbl.fetch_EOF()" function was messing me up. With some outside help, this is the updated code: note the label to keep from putting the same code in twice (If the book has not ever been checked out, or if it's been checked back in).

'Get pointer to primary table
dim tbl as P
tbl = table.current()
'Get pointer to child table in the set
dim child_tbl as P
child_tbl = table.get("activity") 'Would table.current(2) work the same?
'Try to move to the last record
child_tbl.fetch_last()
dim vrecno as N
vrecno = child_tbl.recno()

'If there are records, check to see if the book has been checked in...
if .not. child_tbl.fetch_EOF() then
if child_tbl.indate = {} then
dim fptr as P
fptr = form.load("QuickCheckInOut","dialog")
fptr.Recno_goto(vrecno)
'fptr.restrict_navigation = .T.
fptr.show()

fptr.Close()
else 'Otherwise, check it out again.
goto AddNew
end if

else 'If there are no records, add one (check book out).
AddNew:
dim fptr as P
dim pvBookID as N
pvBookID = tbl.BookID
fptr = form.load("QuickCheckInOut","dialog")
fptr.restrict_enter = .F.
fptr.new_record()
fptr.restrict_enter = .T.
'fptr.restrict_navigate = .T.
fptr:Bookid.value = pvBookID
fptr.show()

fptr.Close()
end if

parentform.resynch()
parentform.browse2.activate()
parentform.browse2.resynch()

anybody see any problem with this?

Thanks, Dan