tkol.readonly=.t.
. txtdetal.readonly=.t.
. txtrab.readonly=.t.
. txtvrem.readonly=.t.
. txtrac.readonly=.t.
. txtdt.readonly=.t.
. txtn.readonly=.t.
. refresh
ELSE ( Заповніть всі поля ... , 0, Внимание !!! )
WITH thisform
. txttn.value=0
. txtn_par.value=0
. txtrabo.value=
. txtraz.value=0
. txtkol.value=0
. txtdetal.value=
. txtrab.value=
. txtvrem.value=0
. txtrac.value=0
. txtdt.value={}
. txtn.value=0
. refresh
Кнопка «Скасувати» (click): thisform
. txttn.value=0
. txtn_par.value=0
. txtrabo.value=
. txtraz.value=0
. txtkol.value=0
. txtdetal.value=
. txtrab.value=
. txtvrem.value=0
. txtrac.value=0
. txtdt.value={}
. txtn.value=0
. txttn.readonly=.t.
. txtn_par.readonly=.t.
. txtrabo.readonly=.t.
. txtraz.readonly=.t.
. txtkol.readonly=.t.
. txtdetal.readonly=.t.
. txtrab.readonly=.t.
. txtvrem.readonly=.t.
. txtrac.readonly=.t.
. txtdt.readonly=.t.
. txtn.readonly=.t.
. refresh
Кнопка «Видалити» (click):
IF MESSAGEBOX ( Ви хочете видалити запис? , 4, Внимание !!! )=6
SELECT table3DELETED () thisform
. grid1.RecordSource=.null.
. grid1.RecordSource= table3
. txttn.value=0
. txtn_par.value=0
. txtrabo.value=
. txtraz.value=0
. txtkol.value=0
. txtdetal.value=
. txtrab.value=
. txtvrem.value=0
. txtrac.value=0
. txtdt.value={}
. txtn.value=0
. txttn.readonly=.t.
. txtn_par.readonly=.t.
. txtrabo.readonly=.t.
. txtraz.readonly=.t.
. txtkol.readonly=.t.
. txtdetal.readonly=.t.
. txtrab.readonly=.t.
. txtvrem.readonly=.t.
. txtrac.readonly=.t.
. txtdt.readonly=.t.
. txtn.readonly=.t.
. refreshthisform.grid1
. coLUMN1.width=100
. coLUMN2.width=100
. coLUMN3.width=100
. coLUMN4.width=100
. coLUMN5.width=100
. coLUMN6.width=100
. coLUMN7.width=100
. coLUMN8.width=100
. coLUMN9.width=100
. coLUMN10.width=100
. coLUMN11.width=100thisform
. grid1.RecordSource=.null.
. grid1.RecordSource= table3
. txttn.value=0
. txtn_par.value=0
. txtrabo.value=
. txtraz.value=0
. txtkol.value=0
. txtdetal.value=
. txtrab.value=
. txtvrem.value=0
. txtrac.value=0
. txtdt.value={}
. txtn.value=0
. txttn.readonly=.t.
. txtn_par.readonly=.t.
. txtrabo.readonly=.t.
. txtraz.readonly=.t.
. txtkol.readonly=.t.
. txtdetal.readonly=.t.
. txtrab.readonly=.t.
. txtvrem.readonly=.t.
. txtrac.readonly=.t.
. txtdt.readonly=.t.
. txtn.readonly=.t.
...
