* Данный пример иллюстрирует процесс добавления записи в таблицу
* Открывается таблица customer, и команда SCATTER создает массив
* gaCustArray, содержащий пустой элемент для каждого поля в таблице.
* Цикл FOR ... ENDFOR отображает каждое поле на экране. Команда READ
* активизирует команды @ ... GET.

* Если редактирование не будет прекращено клавишей Esc, команда
* APPEND FROM ARRAY присоединит к таблице новую запись. После этого
* данные из массива переменных памяти gaCustArray заменят
* содержимое каждого поля.

SET TALK OFF

CLEAR

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE customer && Open customer table

SCATTER TO gaCustArray BLANK && Create a blank array

FOR gnCount = 1 TO ALEN(gaCustArray) && Number of rows in array

@ gnCount, 2 SAY FIELD(gnCount) ;

GET gaCustArray(gnCount) && Display fields and get info

ENDFOR

READ

IF READKEY( ) != 12 && If ESC isn't pressed

APPEND FROM ARRAY gaCustArray && Append a record, fill from array

GOTO BOTTOM

BROWSE

DELETE

PACK

ENDIF

USE

CLEAR