rab.value=
. txtpr.value=
. txtraz.value=0
. txtn.value=0
. txtrabo.value=
. txted.value=
. txtkol.value=0
. txtdt.value={}
. txttn.readonly=.t.
. txtcex.readonly=.t.
. txtrab.readonly=.t.
. txtpr.readonly=.t.
. txtraz.readonly=.t.
. txtn.readonly=.t.
. txtrabo.readonly=.t.
. txted.readonly=.t.
. txtkol.readonly=.t.
. txtdt.readonly=.t.
. refresh
ELSE ( Заповніть всі поля ... , 0, Внимание !!! )
WITH thisform
. txttn.value=0
. txtcex.value=0
. txtrab.value=
. txtpr.value=
. txtraz.value=0
. txtn.value=0
. txtrabo.value=
. txted.value=
. txtkol.value=0
. txtdt.value={}
. refresh
Кнопка «Скасувати» (click): thisform
. txttn.value=0
. txtcex.value=0
. txtrab.value=
. txtpr.value=
. txtraz.value=0
. txtn.value=0
. txtdt.value={}
. txtrabo.value=
. txted.value=
. txtkol.value=0
. txttn.readonly=.t.
. txtcex.readonly=.t.
. txtrab.readonly=.t.
. txtpr.readonly=.t.
. txtraz.readonly=.t.
. txtn.readonly=.t.
. txtdt.readonly=.t.
. txtrabo.readonly=.t.
. txted.readonly=.t.
. txtkol.readonly=.t.
. refresh
Кнопка «Видалити» (click):
IF MESSAGEBOX ( Ви хочете видалити запис? , 4, Внимание !!! )=6
SELECT table2DELETED () thisform
. grid1.RecordSource=.null.
. grid1.RecordSource= table2
. txttn.value=0
. txtcex.value=0
. txtrab.value=
. txtpr.value=
. txtraz.value=0
. txtn.value=0
. txtdt.value={}
. txtrabo.value=
. txted.value=
. txtkol.value=0
. txttn.readonly=.t.
. txtcex.readonly=.t.
. txtrab.readonly=.t.
. txtpr.readonly=.t.
. txtraz.readonly=.t.
. txtn.readonly=.t.
. txtdt.readonly=.t.
. txtrabo.readonly=.t.
. txted.readonly=.t.
. txtkol.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=100thisform
. grid1.RecordSource=.null.
. grid1.RecordSource= table2
. txttn.value=0
. txtcex.value=0
. txtrab.value=
. txtpr.value=
. txtraz.value=0
. txtn.value=0
. txtdt.value={}
. txtrabo.value=
. txted.value=
. txtkol.value=0
. txttn.readonly=.t.
. txtcex.readonly=.t.
. txtrab.readonly=.t.
. txtpr.readonly=.t.
. txtraz.readonly=.t.
. txtn.readonly=.t.
. txtdt.readonly=.t.
. txtrabo.readonly=.t.
. txted.readonly=.t.
