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

* Перед изменением поля cust_id выдается функция GETFLDSTATE( ),
* которая отображает значение (1), соответствующее
* немодифицированному состоянию поля. Затем поле cust_id
* модифицируется по команде REPLACE и вновь выдается функция
* GETFLDSTATE( ), отображая значение (2), соответствующее
* модифицированному состоянию поля cust_id. Функция TABLEREVERT( )
* возвращает таблицу в исходное состояние, а затем опять выдается
* функция GETFLDSTATE( ), которая отображает значение (1),
* соответствующее первоначальному состоянию поля cust_id.

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

? GETFLDSTATE('cust_id') && Displays 1, not modified

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

? GETFLDSTATE('cust_id') && Returns 2, field modified

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

? GETFLDSTATE('cust_id') && Displays 1, not modified