* Cледующий пример демонстрирует, как можно с помощью функции
* GETNEXTMODIFIED( ) определить, какие записи в таблице были изменены.
* Значение MULTILOCKS устанавливается равным ON, что необходимо для
* режима буферизации таблицы. Открывается таблица customer в базе
* данных testdata, и функция CURSORSETPROP( ) устанавливает в качестве
* режима буферизации мягкую буферизацию таблицы (5).

* Выдается команда SKIP, перемещающая указатель записи ко второй
* записи, и поле cust_id модифицируется с помощью команды REPLACE.
* Функция GETNEXTMODIFIED(0) выводит на экран номер следующей
* модифицированной записи (2, вторая запись), считая от начала таблицы.
* Функция TABLEREVERT( ) возвращает таблицу в первоначальное
* состояние, после чего вновь выдается функция GETNEXTMODIFIED(0),
* которая отображает номер следующей модифицированной записи (0, то
* есть ни одна запись не модифицирована).

CLOSE DATABASES

SET MULTILOCKS ON && Must be on for table buffering

SET PATH TO (HOME( ) + 'samples\data\') && Sets path to database

OPEN DATABASE testdata && Open testdata database

USE Customer && Open customer table

= CURSORSETPROP('Buffering', 5, 'customer') && Enable table buffering

CLEAR

SKIP && Move record pointer to the second record

REPLACE cust_id WITH '***' && Changes field contents

? GETNEXTMODIFIED(0) && Returns 2, second record was modified

= TABLEREVERT(.T.) && Discard all table changes

? GETNEXTMODIFIED(0) && Returns 0, no records modified