Помогите, пожалуйста, с такой проблемой. В чём тут может быть дело?
Есть временная таблица. После вставки записи в эту таблицу пытаюсь получить первую запись, и getFirst возвращает ошибку.
Код: Выделить всё
table struct Tables (
cLsch : comp,
Month : word,
Year : word
)
;
...
Tables.cLsch := workingTable.cLschet;
Tables.Month := workingTable.MesN;
Tables.Year := workingTable.YearN;
message((insert current Tables), cmOk);
message ((getFirst Tables), cmOk);
Вообще я этот пример несколько упростил. На самом деле у меня такой код:
Код: Выделить всё
function collect(var workingTable: Type$LsTab; subject: comp; periodBeginning: date): integer;
{
clearBuffer(#Tables);
Tables.cLsch := workingTable.cLschet;
Tables.Month := workingTable.MesN;
Tables.Year := workingTable.YearN;
insert current Tables;
}
procedure proc;
{
delete all Tables;
mCount := bDate;
while (mCount <= eDate) {
bindEvent(collect, WTLF.collectTable);
WTLF.refreshTableListExt(0, cPodr, mCount, validator);
unBindEvent(collect, WTLF.collectTable);
mCount := add_months(mCount, 1);
}
_loop Tables {
//....
}
}