Fetching in an Embedded Browse

[DORaymond]

I have the need to do the following:

Open a form with an embedded browse, scroll to a specific record in that browse, close the form and then re-open the form with the browse showing the previously selected record. Could I capture the record number of the browse and then fetch to that record when I open the form? What would the code look like if I did this with a button?

Thank, Don

[martinwcole]

Re: Fetching in an Embedded Browse

this example presumes you are working on a table or set called customers, where the parent table is named customers
the key field in customers is custno, for a character based customer number

in an autoexec script dim 2 global variables
dim global rnum as n
dim global lastcust as c

1. FORM BASED ON A SET: if the "browse" is based on the parent table, and each record has a unique key field, like say 'custno', and the parent table has a simple index based on that field

----- when you close that form, say var->lastcustno=parentform:custno.value
----- when you open the form, at the oninit event for the form put
if var->lastcust > ""
parentform.index_set("custno")
parentform.find(var->lastcust)
var->lastcust=""
end if

2. FORM BASED ON A TABLE: same as above

optionally you could use the variable rnum to store the record number and say
---at close
t=table.current()
var->rnum=t.recno()
---at oninit
if rnum > 0
parentform.index_set("")
parentform.find(var->rnum)
rnum=0
end if

you could also save these as "super variables saved in the registry of the local workstation" and set them when the app opens

[DORaymond]

Re: Fetching in an Embedded Browse

Martin - I was not clear on my needs. My form is based on a one to many set and has an embedded browse for the child records. The form has a base query that is set by a variable so that when I open the form there is only one parent record showing and all the related children in the browse. I want to scroll down to a particular child record in the embedded browse and then be able to close the form, re-open it (it will open to the same parent record) but have the embedded browse fetch to the the record I was on when I closed the form.

Thanks,Don

[MoGrace]

Re: Fetching in an Embedded Browse

Hi Don,
To see this work, place a key field from your browse record outside the browse on the form. Dim a global variable and place it on the form. In a double click event for the browse set the variable to the value of the form field. The variable will now be set to that value even if you close the form.

This is the script for a button to locate the record in the browse when you reopen to the SAME parent record:

In this example I am using a set to show employee loan transactions so my key field is LT_ID and the variable is GET_LTID

 
dim global get_ltid as c
dim chld as p
dim n as n = 0
dim rec as n = 0
chld = browse1.table_get()
chld.order("LT_ID")
chld.fetch_first()
while .not. chld.fetch_eof()
 if chld.lt_id = get_ltid then
     n = n+1
     rec = chld.recno()
 end if
 chld.fetch_next()
end while
if n <> 0 then
 chld.fetch_goto(rec)
end if
browse1.resynch()

My normal doubleclick event for the browse opens up the loan transaction record for editing - so I don't have to close the parent form. You didn't mention why you need to close and reopen the form, but zoom_to_record() accomplished what I needed. The key field from the child table needn't appear in the browse itself. And you can hide the field from displaying on the form by making it look invisible or by placing it on a conditional object page that never shows.

I displayed the fields in design mode just for the snapshot.