Previous Value

[davej]

When I click the 'View/Change' button on a menu, a form opens and displays various data elements from a record in a table. The user might make one or more changes and then realize he is in the wrong record. At this point he would click the 'Cancel Data Entry' button on the form. The button OnPush code is:

:frmMember.cancel(.f.)
parentform.close()

The problem is that the data that was just entered IS saved, which I do not want. For instance, the user might change Joe Smith's street address when he meant to change Jim Smith's street address. As it presently stands, the user would have to reenter (if he could remember) the original address. I would much prefer if there was a better way.

Any ideas?

Dave

[Keith Hubert]

Re: Previous Value

Hi Dave,

Have you got the form to auto save when the form is closed?

[Stan Mathews]

Re: Previous Value

Would it make sense to have a View button instead of View/Change. Then on the opened form have a Change button which they had to push to begin making changes? The form would be restricted until the button was pushed.

[davej]

Re: Previous Value

Keith - No (not that I'm aware of).

Stan - good thought except that it seems that what you are suggesting is effectively what I'm doing now. The user could just as easily click two buttons (versus the one I presently have) and still get partway through making changes before he realized he was on the wrong record. What I need is a way to revert to the previous values before the form closes.

[Stan Mathews]

Re: Previous Value

You'd have to store each field's initial value with <FIELD>.INITIAL_VALUE_GET() or get the whole record with alltext_initial(). Then you could restore all values if they wanted to abort the change.

[Stan Mathews]

Re: Previous Value

Try this for your cancel changes button script.

dim field_list as C
field_list = parentform.Child_Enum("F=field")
for each foo in field_list
	evaluate_template(foo.value+".value = parentform.child("+quote(foo.value)+").field_get().initial_value_get()")
next

[Keith Hubert]

Re: Previous Value

Hi Dave,

Please see screen shot from Close, from Action Scripting.

Un-check that and Alpha will ask for confirmation to save record if it has not been done so.

[davej]

Re: Previous Value

Keith,

What you're suggesting generates parentform.close(.f.). I tested it on the Gender field. The value is set to 'Male', I opened the form with the View/Edit button and changed gender to 'Female'. I clicked the Cancel Data Entry button which executes:

:frmMember.cancel(.f.)
parentform.close(.f.)

When I open the table in browse mode, gender is 'Female'.

Dave

[davej]

Re: Previous Value

Solved the problem! Maybe not the best way, but it works.

On the Gender selection button OnPush event, I placed

dim global vctemp_sex as c
t = table.current()
vctemp_sex = t.sex

which sets a character variable (vctemp_sex) to the current value of the table field sex.

On the Cancel Data Entry button OnPush event, I placed

t = table.current()
t.change_begin()
t.sex = temp_sex
t.change_end()
parentform.Resynch()
parentform.close()

which sets a pointer (t) to the current table, initiates a change operation on the current table, sets the table field 'sex' back to the value of vctemp_sex. Then I end the change operation, resynch and close the form.

I just have to add this code throughout the form and I'll have what I need.

Now, if the user starts changing table data on the form and clicks Cancel Data Entry, all the values will revert to their previous values.

Thought I'd explain what I did, in case anyone else faces the same 'challenge'.

Dave

[Al Buchholz]

Re: Previous Value

Dave

Does this work?

parentform.cancel()
parentform.Close()