Добавить

Начало

go top

ifsubstr(kod_avt,2,1)<>”1”

skip

endif

_screen.ActiveForm.Refresh()

thisform.method_avt

Конец

go bottom

if substr(kod_avt,2,1)<>””

skip-1 &&либо go bottom

endif

_screen.ActiveForm.Refresh()

thisform.method_avt

Вперёд

if.not.eof() &&if!EOF()

SKIP

ENDIF

_screen.ActiveForm.Refresh()

thisform.method_avt

Назад

if.not.bof()

skip-1

endif

_screen.ActiveForm.Refresh()

thisform.method_avt

Добавить

PUBLIC lflotm&& Флаг отмены действия ("Добавть" или "Изменить")

append blank

go bottom

thisform.txtKod_avt.ReadOnly=.F. &&Доступна для ввода значение поля Kod_avt

thisform.txtFio.ReadOnly=.F. &&Доступна для ввода значение поля Fio

thisform.txtMest_roz.ReadOnly=.F. &&Доступна для ввода значение поля Mest_roz

thisform.txtData_roz.ReadOnly=.F. &&Доступна для ввода значение поля Data_roz

thisform.txtData_smrt.ReadOnly=.F. &&Доступна для ввода значение поля Data_smrt

thisform.txtBiograf.ReadOnly=.F. &&Доступна для ввода значение поля Biograf

thisform.txtKod_avt.setfocus&& Получение фокуса полем Kod_avt

thisform.command8.Visible =.T.

thisform.command9.Visible =.T.

thisform.method_avt&&Переходнаметодmethod_avt

_screen.ActiveForm.Refresh()

thisform.command6.click &&Вызовкодакнопки "Изменить"

lflotm = "Добавть"

Дата добавления: 2015-08-17