Patch level : 10.0 504

Files correlati     :  tc0.exe tc1.exe lv0.exe tutti i programmi che editano tabelle di modulo
Ricompilazione Demo : [ ]
Commento    le chiavi ora possono arrivare a 255 caratteri


git-svn-id: svn://10.65.10.50/trunk@19587 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-11-08 22:17:25 +00:00
parent d0433bde47
commit a8a516e528

View File

@ -541,7 +541,7 @@ HIDDEN int __build_key(const RecDes& recd, int numkey, const RecType recin, cha
off = rf.RecOff + kd.FromCh[i];
len = kd.ToCh[i] - kd.FromCh[i] + 1;
}
if ((l + len) > 80)
if ((l + len) > 255)
{
key[0] = '\0';
return(_iskeylenerr);
@ -896,7 +896,7 @@ int TBaseisamfile::skip(TRecnotype nrec, word lockop)
while (_lasterr ==_islocked)
{
const RecDes& r = prefix().get_recdes(num());
TString key(128);
TString256 key;
__build_key(r, _curr_key, curr().string(), key.get_buffer(), TRUE);
message_box("Codice %s in uso da parte\ndi un altro utente.\nSkipping", (const char*)key);
_lasterr = cisread(fhnd, getkey(), curr(),_iscurr + lockop, _recno);
@ -3325,7 +3325,7 @@ TObject* TRectype::dup() const
const char* TRectype::build_key(int num) const
{
TString& tmp = get_tmp_string(128);
TString& tmp = get_tmp_string(256);
__build_key(rec_des(), num, string(), tmp.get_buffer(), TRUE);
return tmp;
}