Creating Multiple Records

[Sean Tucker]

Hello All,

Working on a puzzler. In an effort to speed up data entry in a browse, the data entry person could select one office for all the offices. Instead in entering each office manually they would just select one office titled �All Offices�. I would then run a script (after data entry is complete) that would convert the one office into entries for all the offices. The only thing that would be different in each record is the actual office id (child) number the date and the main id (parent) number would be the same. (In my real world application there are more fields) Below is the main concept I have been working on in XBasic, I didn�t test this code just typed cleaner code for forum. For the most part it works. If there is only one "All Office� record it works great. It deletes the �All Office� record and creates 12 new ones with the proper data in the fields, but if there is more than one �All Office� record it only copies and deletes the first one. Any ideas?

Thanks in Advance!
Sean

�Variables
Dim next_numb as n
Dim next_date as d
Dim tbl_main as p
Dim tbl_index as p

�Open table, set index,number of records, go to first record
�Table where the browse records are stored
tbl_main = table.open(�Main�)
tbl_index = tbl_main.index_primary_put("ID")
num = tbl_index.records_get()
tbl_main.fetch_first()

i = 1
while i 1 �ID number for all offices
next_office = tbl_office.office_id
tbl_main.enter_begin()
tbl_main.office = next_office
tbl_main.numb = next_numb
tbl_main.date = next_date
tbl_main.enter_end(.T.)
end if
j=j+1
tbl_office.fetch_next()
end while
tbl_office.close()
end if
i=i+1
tbl_main.fetch_next()
end while
tbl_main.close()

[Peter.Wayne]

RE: Creating Multiple Records

one problem you have is that after you delete a record, the table pointer for
tbl_main doesn't know what tbl_main.fetch_next() is pointing to. to compound matters, you do an entry into the table with the tbl_main pointer, and so the fetch_next() is probably pointing to the end of the table.

a better approach might be this:

�Variables
Dim next_numb as n
Dim next_date as d
Dim tbl_main as p
Dim tbl_index as p
dim tbl_office as p
dim next_office as n
dim office_index as p
dim tbl2 as p

tbl_office = table.open("office") � Various offices
office_index = tbl_office.index_primary_put("office_id")
office_num = office_index.records_get()

�Open table, set query for all_records

tbl_main = table.open(�Main�)

query.filter="office_id=1"
query.options="M"
query.order=""
tbl_index = tbl_main.query_create()
num = tbl_index.records_get()
tbl_main.fetch_first()

' open a second pointer used for entries
tbl2=table.open("Main")

while .not. tbl_main.fetch_eof() �loop until end records
next_numb = tbl_main.numb
next_date = tbl_main.date

tbl_office.fetch_first()
j = 1
while j 1 �ID number for all offices
next_office = tbl_office.office_id
tbl2.enter_begin()
tbl2.office = next_office
tbl2.numb = next_numb
tbl2.date = next_date
tbl2.enter_end(.T.)
end if
j=j+1
tbl_office.fetch_next()
end while

tbl_main.fetch_next()
end while
tbl2.close()
tbl_office.close()

' now, delete the records in the query
tbl_main.delete_range()
tbl_main.close()

[Sean Tucker]

RE: Creating Multiple Records

Peter,

Thanks it works great! I did rerun the query before the delete_range, other wise it would delete all the new records.

Sean