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

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

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

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

= SETFLDSTATE('cust_id', 1) && Change the field status

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

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