. 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
. 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=100
Кнопка «Змінити» (click): MESSAGEBOX ( Ви хочете змінити запис? , 4, Увага ... )=6
SELECT table3=tn_par1=n_par=rab=detal=raz=tn=rabo=rac=kol=dt=vrem.txttn.Value=tn1.txtn_par.Value=n_par1.txtrab.Value=rab1.txtdetal.Value=detal1.txtraz.Value=raz1.txtn.Value=n1.txtrabo.Value=rabo1.txtrac.Value=rac1.txtkol.Value=kol1.txtdt.Value=dt1.txtvrem.Value=vrem1thisform
. txttn.readonly=.f.
. txtn_par.readonly=.f.
. txtrabo.readonly=.f.
. txtraz.readonly=.f.
. txtkol.readonly=.f.
. txtdetal.readonly=.f.
. txtrab.readonly=.f.
. txtvrem.readonly=.f.
. txtrac.readonly=.f.
. txtdt.readonly=.f.
. txtn.readonly=.f.
. refresh.Refresh
Кнопка «Застосувати» (click): EMPTY (thisform.txtn.Value) =. t. AND thisform.txtn.ReadOnly=.T.
MESSAGEBOX ( Немає об'єкта для збереження ... Натисніть змінити !!! , 0, УВАГА !!! ) MESSAGEBOX ( Ви хочете застосувати зміни? , 4, Увага ... )=6
SELECT table3n WITH thisform.txtn.Value, tn WITH thisform.txttn.Value,; WITH thisform.txtrabo.Value, raz WITH thisform.txtraz.Value,; WITH thisform.txtkol.Value, detal WITH thisform.txtdetal.Value,; WITH thisform.txtrab.Value, vrem WITH thisform.txtvrem.Value, rac WITH thisform.txtrac.Value, dt WITH thisform.txtdt.Value, n_par WITH thisform.txtn_par.Valuethisform
. 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
. txttn.value=0
. txtn_par.value=0
. txtrabo.value=
. txtraz.value=0
. txtkol.value=0
. txtdetal.v...
