Eliminating 6240 Errors (Lock Retry Timeout)

To eliminate 6240 Errors (Lock Retry Timout), add the following code (changing the TApolloTable object name where applicable) to the BeforeEdit event of each table in your multi-user applications:

if ApTbl.Locked( ApTbl.RecNo ) then

begin

SysUtils.Abort;

ShowMessage( 'Record is locked by another user. Please try again later.' );

end;