Corretta renum_key

git-svn-id: svn://10.65.10.50/trunk@5111 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-08-27 13:25:51 +00:00
parent 3e54971b14
commit 80329ce260

View File

@ -38,11 +38,12 @@ void TRecord_array::set_key(TRectype* r)
const RecDes* recd = r->rec_des(); // Descrizione del record della testata
const KeyDes& kd = recd->Ky[0]; // Elenco dei campi della chiave 1
// Copia tutti i campi chiave, tranne l'ultimo, in tutti i records
TString val;
for (int i = kd.NkFields-2; i >= 0; i--)
{
const int nf = kd.FieldSeq[i] % MaxFields;
const RecFieldDes& rf = recd->Fd[nf];
const TString& val = r->get(rf.Name);
val = r->get(rf.Name);
renum_key(rf.Name, val);
}
}