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. EndIfWhat i cannot explain is that on my PC everything run ok.