Change records in child table in set

[David Boomer]

I have a form based on a set with 6 tables. I want to change the values in a field of a child table (1:many with topparent). I want to change the values of this field in all records.
The child table is displayed in Browse3 on the form that is active.
'consultordcpo' is the name of the child table.
so...
I created the following code:

'Date Created: 26-Aug-2011 10:49:31 AM
'Last Updated: 26-Aug-2011 11:41:23 AM
'Created By : David
'Updated By : David
'Create a new variable called 'TmpRankOnOrder' and set its value to '1
dim cpotbl As P
dim Shared TmpRankOnOrder AS N

TmpRankOnOrder = 1

'Activate object 'BROWSE3:Rankonorder' in current form.
topparent:BROWSE3:Rankonorder.activate()

'get a pointer to the consultordcpo.dbf table... the one that Browse3 is based on
cpotbl = table.get("consultordcpo")

'go to 1st record
cpotbl.fetch_first()
cpotbl.change_begin()
cpotbl.Rankonorder = TmpRankOnOrder
cpotbl.change_end(.t.)

cpotbl.fetch_next()

while .NOT. cpotbl.fetch_eof()
TmpRankOnOrder = TmpRankOnOrder + 1
cpotbl.change_begin()
cpotbl.Rankonorder = TmpRankOnOrder
cpotbl.change_end(.t.)
cpotbl.fetch_next()
end while



'Refresh data in current form at parent level.
'Can only resynch data in View mode, so save record first to be sure that layout is in View mode.
topparent.Commit()
topparent.Resynch()
topparent.Refresh_Layout()

'Disallow editing of records in current form at parent level.
topparent.allow_change(.f.)

end
++++++++++++++++++++++++++++++++++

The code seems to change the values correctly... BUT I have to push the button for each individual record in the child table ie in the browse.

The while loop does not seem to be functioning...

What am i doing wrong?

[Tom Cone Jr]

Re: Change records in child table in set

Hi, David.

When you say...

I want to change the values of this field in all records

Do you mean all records in the child table, or only those records in the child that are related to the current parent table record?

[David Boomer]

Re: Change records in child table in set

Hi Tom..

just the records in the child table that are related to the current parent record.

[Mike Wilson]

Re: Change records in child table in set

I'll have to judge if there is needed a restrict at the end. The script doesn't change that and since it is performed at the table level, that command will not effect whether this script can change the field values.

'Create a new variable called 'TmpRankOnOrder' and set its value to '1
	dim Shared TmpRankOnOrder AS N
	TmpRankOnOrder = 1

'Activate object 'BROWSE3:Rankonorder' in current form.
	topparent:BROWSE3:Rankonorder.activate()

'get a pointer to the consultordcpo.dbf table... the one that Browse3 is based on
	dim cpotbl as P
	cpotbl = table.get("consultordcpo")

'go to 1st record
	cpotbl.fetch_first()
	while .NOT. cpotbl.fetch_eof()
		cpotbl.change_begin()
		cpotbl.Rankonorder = TmpRankOnOrder
		cpotbl.change_end(.t.)
		
		TmpRankOnOrder = TmpRankOnOrder + 1
	cpotbl.fetch_next()
	end while

'Refresh data in current form at parent level.
'Can only resynch data in View mode, so save record first to be sure that layout is in View mode.
	topparent.Commit()
	topparent.Resynch()
	topparent.Refresh_Layout()

'Disallow editing of records in current form at parent level.
	topparent.allow_change(.f.)			

end

[David Boomer]

Re: Change records in child table in set

Thanks Mike... code results in same as mine above... one record is renumbered at a time.

[Tom Cone Jr]

Re: Change records in child table in set

I think this is a case where your script should be using the

<tbl>.get_cursor()

Method

From Alphapedia:

The primary motivation for this method is to allow you to use Xbasic to get a pointer to the table that an Embedded Browse is based on, and then to safely loop over the records in that table and manipulate the data in that table. If your Xbasic loop used the table pointer itself, rather than a cursor, your script may not work reliably. This is because you have no control over events that cause the Browse to repaint, and when the Browse repaints, it might move the record pointer.

[David Boomer]

Re: Change records in child table in set

That works!!!

Thanks again Tom!

Here is the code that works:

'Date Created: 26-Aug-2011 03:52:46 PM
'Last Updated: 26-Aug-2011 03:53:18 PM
'Created By : David
'Updated By : David
'This script renumbers the RankOnOrder field in records from the consultordcpo table

dim tbl as p
dim t as p
dim RankCount As N

RankCount = 0

'get a pointer to the SAME table instance that the embedded browse is based on.


tbl = Browse3.table_get()

'Get a cursor on the table instance
t = tbl.get_cursor()

t.fetch_first()
while .not. t.fetch_eof()
RankCount = RankCount + 1
t.change_begin()
t.rankonorder = RankCount
t.change_end(.t.)
t.fetch_next()
end while

end