Cancel Change not working

[Jwemmy]

Hi - I would appreciate some advice on a problem I have in trapping and managing record changes.

My form (Items_Form - see attached) is laid out with a Browse that is read-only, and a matching form that can be edited.

I've allocated a script to the CanSave event (also attached) which reacts as expected initialy, in that when the record contents are amended, a dialog box is called asking the user to confirm their intentions. However, on pressing the Cancel button, the user's changes are posted to the table regardless.

Am I using the wrong event ? Any advice gratefully received.

Regards, Jem

[Mike Wilson]

Re: Cancel Change not working

Jen,
I have never been able to get the cancel to halt an already initiated commit sequence. So placing a cancel into the cansave where the commit has already begun, hasn't worked for me. So, the easiest route to take is to call a script directly from a save button to do what you want. Your code you posted comes out of action scripting. This one removes all the extra coding that action scripting contains and incorporates the commit and cancel action in the script.

' check to see it in change mode
   dim vmode as C
   vmode=topparent.mode_get()

' display confirmation dialog
	dim vReply as N
	IF vmode="change"
		vReply=ui_msg_box("Confirmation","Are you sure you wish to save these changes?",49)
			'msgbox(str(vreply))
		if vReply=1
			topparent.commit()
		else if vreply=2
			topparent.cancel()
		end if
			
	ELSE IF vmode="enter"
		topparent.commit()
	END IF

[Jwemmy]

Re: Cancel Change not working

Hi Mike,

As always, simple is best !

Not only does your code snippet work perfectly, it's also much easier to understand than the operations / script version.

My learning curve with Alpha 5 is very steep (near vertical !), but after only a few weeks, I'm already producing apps to rival the Clarion stuff I used to write some years ago. It's an interesting and rewarding journey.

I'd just like to say a big thank-you to you and the other senior Alpha developers out there, for taking the time to give us newbies the benefit of your experience and knowledge. A word of two from those who know, can save countless hours of frustration for someone starting out.

Cheers Jem