>If !CursorGetProp("Buffering",'artmag') = 5 > =MessageBox("warning message") > Return >EndIf > >Begin Transaction >llokSave =.f. > >if tableupdate(1,.f.,'artmag') > if tableupdate(1,.f.,'e_artmag') > llOkSave = .t. > EndIf >EndIf >If llOkSave > End Transaction >Else > RollBack > =TableRevert(.t.,'artmag') > =TableRevert(.t.,'e_artmag') > Return .f. >EndIf >>