Odd behaviour in Record evernt

[David]

I have this code in an OnSaveRecord event. I have a set, 1 to many. The header is for name, date, id number. I'm using this code to number the records in the embedded browse 1 thru 200.
After entering about 150 records or so, and then create a new record at the parent level, the browse starts flashing and then A5 is locked up and I have to use Task Manager to shut A5 down.

Date Created: 18-Oct-2005 01:05:31 PM
'Last Updated: 18-Oct-2005 01:05:31 PM
'Created By  : David
'Updated By  : David
''XBasic dim head as p
dim items as p
dim line_no as n

line_no=0
on error goto not_in_set
head=table.get("header")
on error goto 0

items=table.get("qty")
items.fetch_first()
while .not. items.fetch_eof() 
line_no=line_no+1
items.change_begin() 
items.line_no=padl(ltrim(str(line_no,3,0)),3,"0") 
items.change_end(.t.)
items.fetch_next() 
end while
parentform.resynch()
end

not_in_set:
on error goto 0
end

When I go to field rules to Events tab, the code changes from Qty->Line_no field to Qty->Id field. There are no field rules for Qty->Id field. But I will delete out of the events tab of the Qty->Id field and put it back in Qty->Line_no field, but didn't stay.
Now since I have been working on this, when I try to enter data in the browse I get a error message "extra charactors at end of expression" The attached db was not getting this message when I attached it. I have encountered this problem since, while trying to fix.

It seemed to be working fine until I changed the code, where 3 is now, it had 2 originaly. My numbers would go to 99 only. I changed that thinking it would use 3 digits instead of 2. And it did.

items.line_no=padl(ltrim(str(line_no,3,0)),3,"0")

Thanks for your help.

[Stan Mathews]

As far as the part about

When I go to field rules to Events tab, the code changes from Qty->Line_no field to Qty->Id field. There are no field rules for Qty->Id field. But I will delete out of the events tab of the Qty->Id field and put it back in Qty->Line_no field, but didn't stay.

The code is not on a field event. It is on a record event. Record events are tied to the record, not an individual field. If you edit the field rules, select the event tab, record events .... you can change to any field you want, the rule is the same.

[David]

Thanks, that makes sense. So that is probably not the problem.

Now after creating the record, if I don't use the browse, and click next record, it works fine. If I enter data in the browse and click next record, it seems to be in a loop within the browse, the scroll bar jumps up and down.
What I called flashing in an earilier post and will not stop until I Ctrl, Alt, Delete and end task. If I close the form and not go to next record it works fine. Is there something in the code that is causing the loop and not going to the next record?

[David]

I got this code form Dr Peter Wayne's web site and I see that it is in the help file under Numbering Child Records. Is it possible that the

parentform.resynch()

be different since my child table is a child table of another child table. The code is in the records events in the Qty.tbl
I don't know, I'm just guessing.

[Tom Cone Jr]

David, I'm not familiar with the example code you're working from, but I'd be very wary of using "parentform.resynch()" in an OnSaveRecord script. Parentform is a relative object name that has meaning only in the context of a form. The form is parent to the button object, for example. Alpha may be confused about what "Parentform" means since it's running in a script that is not tied to an object in a form.

Suggest you might try establishing a pointer to the form differently:

if is_object("myform") then
myform.resynch()
end if

-- tom

[David]

Thanks Tom I changed what you recomended and I still get the same loop.
On the 'parentform.resynch() I put a apostrophe in front. Does that disable or should I delete?

'Date Created: 18-Oct-2005 01:05:31 PM
'Last Updated: 18-Oct-2005 01:05:31 PM
'Created By  : David
'Updated By  : David
''XBasic
dim head as p
dim items as p
dim line_no as n

line_no=0
on error goto not_in_set
head=table.get("time_qty")
on error goto 0

items=table.get("qty")
items.fetch_first()
while .not. items.fetch_eof() 
line_no=line_no+1
items.change_begin() 
items.line_no=padl(ltrim(str(line_no,3,0)),3,"0") 
items.change_end(.t.)
items.fetch_next() 
end while
'parentform.resynch()
if is_object("labor_form") then 
labor_form.resynch()
end if 

end

not_in_set:
on error goto 0
end

[David]

In an earlier post I have a picture of my set structure.
I have deleted the link of the child table named Qty_Molds.
That has fixed the loop problem. Now I would like to be able to add this link back to make it work. I don't need the numbering in this table, but would like to keep it linked to the Time_Qty.tbl
Any Ideas?

[David]

It works just fine with Ver 7, but when I try to do this in Ver 6, it goes into the loop.
So why won't it work in ver 6?