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