set reprocess to automatic public gnError m.gnError = 0 on error m.gnError = error() begin transaction insert into stafile (...) values (...) if m.gnError = 0 ; then end transaction else rollback endifThe form that excecutes that code has BufferMode set to 0.
set reprocess to automatic public gnError m.gnError = 0 on error m.gnError = error() use aprdb!stafile in 0 order sta_id begin transaction if rlock("0",'stafile') ; then insert into stafile (...) values (...) unlock record 0 in stafile endif if m.gnError = 0 ; then end transaction else rollback endifThe users are still losing data and they are really getting fed up with it.
"Do not let any unwholesome talk come out of your mouths,
but only what is helpful for building others up according to their needs,
that it may benefit those who listen."
- Ephesians 4:29-30 NIV
Dare to Question -- Care to Answer
Time is like water in a sponge, as long as you are willing you can always squeeze some.
--Lu Xun, Father of Modern Chinese Literature