Código: Def Var c-nao-desfaz As Char No-undo. Def Var c-sim-desfaz As Char. Def Var i-erro As Int No-undo. Assign c-nao-desfaz = 'Fabio' c-sim-desfaz = 'Fabio'. Do Transaction : Assign c-nao-desfaz = 'Fabio Dantas' c-sim-desfaz = 'Fabio Dantas'. Undo, Leave. End. Message c-nao-desfaz Skip c-sim-desfaz View-as Alert-box Info Buttons Ok.