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

* Выводится значение поля cust_id, затем оно изменяется с помощью
* REPLACE. Выводиться новое значение поля cust_id. Затем используется
* функция TABLEREVERT( ) для возвращения таблицы в исходное
* состояние. (Функция TABLEUPDATE( ) может выполняться вместо
* совершения изменений). Выводиться исходное значение поля 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

? 'Original cust_id value: '

?? cust_id && Displays current cust_id value

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

? 'New cust_id value: '

?? cust_id && Displays new cust_id value

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

? 'Reverted cust_id value: '

?? cust_id && Displays reverted cust_id value