> >*!* BEGIN TRANSACTION >*!* IF TABLEUPDATE(.T.,.T.,"EM") AND iif(thisform.mopcao=1,TABLEUPDATE(.T.,.T.,"VI"),.t.) >*!* END TRANSACTION >*!* FLUSH >*!* ELSE >*!* ROLLBACK >*!* =TABLEREVERT(.T.,"EM") >*!* if thisform.mopcao=1 >*!* =TABLEREVERT(.T.,"VI") >*!* endif > >>