Control form's data entry/edit programmatically

[Peter.Greulich]

Re: Control form's data entry/edit programmatically

Very cool, Stan. Had to change it slightly:

f = form.load("tasks")
dim browse_list as C
browse_list = f.Child_Enum("f=browse")
f.restrict_change = .T.
f.restrict_enter = .T.
f.restrict_delete = .T.
for each brws in browse_list
eval("f."+brws+".disable()")
next
f.Show()
f.activate()

[Peter.Greulich]

Re: Control form's data entry/edit programmatically

Actually, I'll do this instead:

*FOR_EACH( brws, eval("f."+brws+".disable()"), browse_list )

Thanks again!

[martinwcole]

Re: Control form's data entry/edit programmatically

if is_object("xxxxx")
:xxxxx.restrict_change=.t.
end if
will work ONLY if it is open
should work

[Peter.Greulich]

Re: Control form's data entry/edit programmatically

Yup. The problem was in Alpha Sports as explained somewhere above.

[G Gabriel]

Re: Control form's data entry/edit programmatically

f=OBJ("Edit_Customer_Info")
f.restrict_change = .t.

This won't work not here nor in the IW.
For this to work, the form has to have focus.
obj() gives focus to a form that is already loaded.
You need to load the form first, give it focus, then do the rest.

[Ray in Capetown]

Re: Control form's data entry/edit programmatically

f.restrict_change works here . V10. (in IW)
After setting it to .t. you must start and cancel an edit for it to kick in, it seems. But not consistent.

[Ronald Anusiewicz]

Re: Control form's data entry/edit programmatically

Peter,

I just went through a similar issue where I have a form based on a simple set. I'm using one field of the parent as a control for the entire form and/or for two browses.

With regards to the browse, if the control field contains any value, then I prevent entering a new record in the browse. I do this through the browse table's field rules. The following code is in the Record Events, CanEnterRecord.

dim tbl as P
tbl = table.get("po_hdr")

if tbl.status <> "" then
    cancel(.t.)
end if

For the entire form, in the form's CanChange event I have:

if parentform:Status.value = "Posted" then
	cancel(.t.)
end if

Initially I went down the road using code like "restrict_change = .t." and I had unpredictable mixed results. Especially with the browses. After many hours and many tries, I ended up using the field rule approach and the results for now are solid.