Очистить текущую запись

[stix]

Нужно сбросить значения полей текущей записи логической таблицы в значения по умолчанию. Вот такой пример не работает. Запись сохраняет свое прежнее значение. Что делаю не так?

Код: Выделить всё

table struct Sample
{
   .... // many fields
}

...
if (getFirst Sample where((...)) = tsOk)
{
   ClearAdvRecord(Sample.Buffer); // don't work
   
   update current Sample;
}

придумал вот такой костыль, но уж больно некрасиво:

Код: Выделить всё

var emptyRec : record as table Sample;
Sample.Buffer := emptyRec; // ok

update current  Sample;

[Gera]

Используйте так:

Код: Выделить всё

ClearBuffer(#Sample);