Imbedded Browse issue

[DaveM]

On a set, Imbedded browse is on a child table. The browse has fields from 4 associated tables.
Button to add a record has topparent:Browse1.new_record()
This works great for the first record.
On the second record, it errors out with "Enter must begin first"
. It does the same if attempted without the button.
The form is modal and have changed to modeless.
Saving the record, resynch, etc does not help.

Sad part is this was working a few months back.

Any ideas could be helpful. I have spent 2.5 work days on this one probably simple issue.

windows10 and win7, alpha 12.4.2 - 3670 - 4684 but went back several updates and it did not change.

[MoGrace]

Re: Imbedded Browse issue

Are you checking the mode before you add the new record? ie, saving it first? Are the 4 fields from linked tables 1:1? Just curious it probably doesn't matter.

What I do is create the new linking record and add a value to a field then save, so after that the record is put in edit mode.

You can put something in a name field like "<Add new customer>" so the display lets the user know which record to edit.

I have had this happen too but can't recall what caused it...

Recently I have become fond of tbl.enter_record() and tbl.change_record() - very simple and easy to use.

Try this for your button:

if parent.mode_get() <> "VIEW" then
parent.commit()
end if

dim r as p
dim tbl as p
tbl = table.current(2)  
r.yourfieldname = "<Add New Customer>"
tbl.enter_record(r)

browse1.fetch_first()  'or topparent.resynch() or browse1.refresh() or some combination...

Using this will allow auto increment and other field rules to work too.

[DaveM]

Re: Imbedded Browse issue

Records are not entered here on table level.
It is a simple - new record in the imbedded browse
the only table that is of concern is a one to many child
After the 1 record is entered, it is saved - next try errors
The child in the browse is connected with 1 field. one to many from parent.
There are as many as 10 child records, avg about 4

I may have to go to a table level entry. Pretty easy to do. Was just trying to avoid and use a simple method.

This main has about 125,000 records and the child has well over 450,000 records at this point.

It is disgusting because when it was designed, it worked fine and I have not been able to determine what happened.

set is
main -1 X m child - -1 X 1 3 Gchildren

On mode? I have found no built in method to check mode on a browse
parentform:browse1.??? for mode?

[DaveM]

Re: Imbedded Browse issue

Went ahead and did the at table level. I needed it ready to go in the morning.
It turned out nicer and faster anyhow.

was able to wipe more code than I had to write and that is always a good thing.

'for those that wish to see

'Get variables I need
DIM SHARED vargetclientid AS c
vargetclientid = parentform:Clientid.value
DIM SHARED vargetfile_num AS c
vargetfile_num = parentform:File_num.value
DIM SHARED vargetid_num AS n
vargetid_num = parentform:Id_num.value

'Create an XDialog dialog box to prompt Type
DIM SHARED varthetype as C
DIM SHARED varC_result as C
varthetype = ""
auto_list_varthetype = table.external_record_content_get("type","Type","type","nodisplay <> .t.")

temp_count = w_count(auto_list_varthetype,crlf())
DELETE a_varthetype
DIM a_varthetype[temp_count] as c
a_varthetype.initialize(auto_list_varthetype)
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Select Type",<<%dlg%
{region}
Choose the type of Inspection:| [.80,40varthetype^#a_varthetype];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%)

'Code to create the record and add the cost of the entry
dim bill as p
dim fil as c = alltrim(var->vargetclientid) + alltrim(var->varthetype)
bill = table.open("billtoclient",FILE_RW_SHARED)
bill.index_primary_put("Clienttype")
bill.fetch_find(fil)
thecost = bill.clientcost
bill.close()

dim tbl1 as P
tbl1 = table.open("inspections",FILE_RW_SHARED)
tbl1.enter_begin()

tbl1.type = var->varthetype
tbl1.id_num = var->vargetid_num
tbl1.clientid = var->vargetclientid
tbl1.file_num = var->vargetfile_num
tbl1.gs_pr = var->thecost

tbl1.enter_end()
tbl1.close()