Correzione alla TBaseisamfile::rewrite(): effettua le letture

con chiave 1 e poi ripristina la chiave corrente; corrisponde
alla correzione MI6162.


git-svn-id: svn://10.65.10.50/trunk@4245 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-04-01 13:51:50 +00:00
parent e02420409f
commit 1ba0cde0c3

View File

@ -1051,7 +1051,10 @@ int TBaseisamfile::rewrite(TDate& atdate)
NOT_OPEN();
TRectype save_rec(curr());
const int cur_key = getkey();
setkey(1);
_lasterr = cisread(_isamfile, save_rec, _isequal + _nolock); // Si Posiziona per sicurezza...
setkey(cur_key);
if (_lasterr == NOERR)
{
const int len = DB_reclen(_isamfile->fhnd);
@ -1081,7 +1084,10 @@ int TBaseisamfile::rewrite(const TRectype& rec, TDate& atdate)
NOT_OPEN();
TRectype save_rec(rec);
const int cur_key = getkey();
setkey(1);
_lasterr = cisread(_isamfile, save_rec, _isequal + _nolock); // Si Posiziona per sicurezza...
setkey(cur_key);
if (_lasterr == NOERR)
{
const int len = DB_reclen(_isamfile->fhnd);