update child records

[geoff m]

I have an order entry form with an embedded browse of child records. When a condition changes, I wish to change one of the fields (columns) for every child record in the browse (resetting to a default value created at the initial entry). I cannot find a command to accomplish this and I feel as though I must be missing it somewhere. I reviewed past message posts and found one message which appears similar to my needs:

Msg ID: 39150
Subject: RE: Update records
Author: Al Buchholz
Date: 08-12-2003 12:49 PM
File: Test01.zip (26,216 bytes)

The problem is I am using the home edition which will not allow me to review the data created by the professional edition.

Any help appreciated.

[forskare]

RE: update child records

Yup, now that you've identified the problem, you've discovered a good reason to order the full version.

kenn

[Pat Bremkamp]

RE: update child records

Geoff,

This is a little different situation, but it should give you some ideas. In this case, if there are backorders on an order, the script creates a new header record, then creates detail records for each line that has backorders. This demonstrates use of open_session() and table.current(2). In your case, you would use target.change_begin() instead of target.enter_begin().

Dim shared vOrderId as C
dim vMsg as C
dim vAnsr as N
Dim target as P
Dim source as P
Dim vOrderID as C
if Parentform:TotalBackOrd.value"0
vMsg="There are backorders on this order."+chr(13)
vMsg=vMsg+"Do you want to convert them to a new order?"
vAnsr=ui_msg_box("BACK ORDERS",vMsg,UI_YES_NO)
end if

if vAnsr=UI_YES_SELECTED
target=table.current(1)
s=set.open_session("orders.set")
source=s.ordrheader
vOrderID=target.order_id
source.index_primary_put("order_id")
source.fetch_find(vOrderID)
target.enter_begin()
target.record_clone(source)
target.backorder=.t.
target.fromorder=vOrderID
target.enter_end(.t.)
target=table.current(2)
source=s.ordrdetail
source.fetch_first()
while .not.source.fetch_EOF()
if source.qty_backord"0
target.enter_begin()
target.item_desc=source.item_desc
target.order_id=source.order_id
target.comp_id=source.comp_id
target.product_id=source.product_id
target.qty_ordered=source.qty_backord
target.qty_delivered=0
target.list_price=source.list_price
target.discount=source.discount
target.consigned=source.consigned
target.comments=source.comments
target.enter_end(.t.)
end if
source.fetch_next()
end while
s.close()
end if

Happy programming.
Pat

[Tom Cone Jr]

RE: update child records

Geoff,

The attached zip file contains a version of the sample
database you found in the earlier thread. I've
created it using the Home Edition, so you should be
able to work with it just fine.

Unzip the attachment to an empty folder.

When the database is opened you'll find one form.

The OnDepart event on the DESC field calls a Saved
Update operation depending on the value of the DESC field
at the time. This op changes the values in a single
field in all linked child table records.

This sounds like just what you need to see, if you
prefer using a saved update op to do the child table
updates.

-- tom