>I think I would go with implementing TABLEREVERT
>or you could go explicit with OLDVAL() directly.

This prompted my brain. I think the problem is the code for the "Cancel" button is

IF ToCancel()
	IF TXNLEVEL() <> 0
	   ROLLBACK
	   TABLEREVERT(.T., 'vorders')
	   TABLEREVERT(.T., 'vitems')
	ENDIF
	ThisForm.Release()
ENDIF

Uf I change it to

IF ToCancel()
	IF TXNLEVEL() <> 0
	    ROLLBACK
	ENDIF 
	TABLEREVERT(.T., 'vorders')
	TABLEREVERT(.T., 'vitems')
	ThisForm.Release()
ENDIF

It appears to work. Does this seen reasobable?