tkr.value=0
. txtnr.value=0
. txtgn.value=
. txtgb.value=
. txtdt.value={}
. txtpr.readonly=.t.
. txtad.readonly=.t.
. txtt.readonly=.t.
. txtinn.readonly=.t.
. txtrs.readonly=.t.
. txtkr.readonly=.t.
. txtnr.readonly=.t.
. txtgn.readonly=.t.
. txtgb.readonly=.t.
. txtdt.readonly=.t.
. refresh
ELSE ( Заповніть всі поля ... , 0, Внимание !!! )
WITH thisform
. txtpr.value=
. txtad.value=
. txtt.value=0
. txtinn.value=0
. txtrs.value=0
. txtkr.value=0
. txtnr.value=0
. txtgn.value=
. txtgb.value=
. txtdt.value={}
. refresh
ENDIF
Кнопка «Видалити» (click): MESSAGEBOX ( Ви хочете видалити запис? , 4, Внимание !!! )=6
SELECT table1DELETED () thisform
. grid1.RecordSource=.null.
. grid1.RecordSource= table1
. txtpr.value=
. txtad.value=
. txtt.value=0
. txtinn.value=0
. txtrs.value=0
. txtkr.value=0
. txtnr.value=0
. txtgn.value=
. txtgb.value=
. txtdt.value={}
. txtpr.readonly=.t.
. txtad.readonly=.t.
. txtt.readonly=.t.
. txtinn.readonly=.t.
. txtrs.readonly=.t.
. txtkr.readonly=.t.
. txtnr.readonly=.t.
. txtgn.readonly=.t.
. txtgb.readonly=.t.
. txtdt.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= table1
. txtpr.value=
. txtad.value=
. txtt.value=0
. txtinn.value=0
. txtrs.value=0
. txtkr.value=0
. txtnr.value=0
. txtgn.value=
. txtgb.value=
. txtdt.value={}
. txtpr.readonly=.t.
. txtad.readonly=.t.
. txtt.readonly=.t.
. txtinn.readonly=.t.
. txtrs.readonly=.t.
. txtkr.readonly=.t.
. txtnr.readonly=.t.
. txtgn.readonly=.t.
. txtgb.readonly=.t.
. txtdt.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
. txtpr.value=
. txtad.value=
. txtt.value=0
. txtinn.value=0
. txtrs.value=0
. txtkr.value=0
. txtnr.value=0
. txtgn.value=
. txtgb.value=
. txtdt.value={}
. txtpr.readonly=.t.
. txtad.readonly=.t.
. txtt.readonly=.t.
. txtinn.rea...
