Child Record for Each Parent Record

[Herbert]

I have an application with a parent table and several child tables, all one-to-many. I am trying to figure out the best way to set up the application so that a user can enter -- at the same time -- the same record in one particular child table for most of the records in the parent table. The parent records in question would have a simple filter (whether a logical field is .t.). Each record in the child table would have the same data in three fields (one date and two character fields). Any scripts need to be created through action scripting.

Can someone help or point me in the right direction or thread(s)? Thanks.

[Keith Hubert]

RE: Child Record for Each Parent Record

Herbert,

Use field Rules. When a new record is entered the fields would be filled with the default values.

RegardsKeith HubertGuild MemberLondon.KHDB Management Systems

[Tom Cone Jr]

RE: Child Record for Each Parent Record

Herbert,

In pseudo code this would mean:

a) getting the field values from the user, perhaps storing them in variables.

b) opening the set

c) running a query to display only those records you want for which you want to create new child table records

d) fetching through the parent table one record at a time

e) as each new record is fetched enter a new record in the child table, supplying field values from the variables

f) continue until there are no more records in the parent table to fetch

I don't know if this can be one entirely within Action Scripting.

-- tom

[Herbert]

RE: Child Record for Each Parent Record

Tom,

Thanks for the response. Unfortunately, I know very little about Xbasic and have been working exclusively with Action Scripting.

I've tried creating a script (using Action Scripting, of course) for a button on a pre-existing form that is based on the set, with an embedded browse on the form based on the child table. So far, the steps on script is as follows: (1) Run a saved query; (2) Using an XDialog box, prompts the user for information and stores it in three variables; (3) Enter new record in embedded browse; (4) Set value in fields with the data in the variables; (5) Save Record; (6) Next record. But after this I basically got stuck -- I am not sure how to make it continually enter a child record for each parent record in the query. I was thinking about perhaps putting some sort of condition in the last couple of steps to have the script continue entering new records until there's a child record for each parent, but really have no idea what kind of condition to set or whether it is even possible.

I've also thought about having a script that would first run some saved operations. The first operation would copy the ID numbers (the linking field) that I need from the parent table to a new table. The next operation would be appending this new table to the child table. Then I could have the script enter the data from variables in each record where there is an ID# but no data in the other fields.

Even if I knew exactly how to implement these two ideas, neither seems ideal (particularly the second one). Any ideas? I am assuming it would be easier in Xbasic.

[Herbert]

RE: Child Record for Each Parent Record

Tom,

Thanks for the response. Unfortunately, I know very little about Xbasic and have been working exclusively with Action Scripting.

I've tried creating a script (using Action Scripting, of course) for a button on a pre-existing form that is based on the set, with an embedded browse on the form based on the child table. So far, the steps on script is as follows: (1) Run a saved query; (2) Using an XDialog box, prompts the user for information and stores it in three variables; (3) Enter new record in embedded browse; (4) Set value in fields with the data in the variables; (5) Save Record; (6) Next record. But after this I basically got stuck -- I am not sure how to make it continually enter a child record for each parent record in the query. I was thinking about perhaps putting some sort of condition in the last couple of steps to have the script continue entering new records until there's a child record for each parent, but really have no idea what kind of condition to set or whether it is even possible.

I've also thought about having a script that would first run some saved operations. The first operation would copy the ID numbers (the linking field) that I need from the parent table to a new table. The next operation would be appending this new table to the child table. Then I could have the script enter the data from variables in each record where there is an ID# but no data in the other fields.

Even if I knew exactly how to implement these two ideas, neither seems ideal (particularly the second one). Any ideas? I am assuming it would be easier in Xbasic.

[Herbert]

RE: Child Record for Each Parent Record

I found a script in the code archive and modified it for my needs as best as I could. This is what I have:

t=table.current(1)
c=table.current(2)
query.description="Solicit_Query"
query.order=""
query.filter="Solicit = .t."
query.option="M"
idx=t.query_create()
t.fetch_first(1)

while .not. t.fetch_eof()
c.fetch_first()
while .not. c.fetch_eof()
c.enter_begin()
c.actdate=v_Actdate
c.sp01sol=v_ActSol
c.acttype="Spring Appeal Letter"
c.enter_end(.t.)
c.fetch_next()
end while
t.fetch_next(1)
end while

idx.drop()
ui_msg_box("Activities Log","Done",UI_INFORMATION_SYMBOL)
end

I have a button on a form that, when pressed, prompts the user for two variables using an Xdialog box, then runs the above script.

When I tested the script, I get the error message "idx=t.query_create field does not exist." Would this be referring to the query.filter part? The field Solicit is a logical field and maybe I don't have the right language in for the filter?

On a more general note, was this what you were talking about?