align="justify">. 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
. 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=100
ENDWITH
Кнопка «Змінити» (click): MESSAGEBOX ( Ви хочете змінити запис? , 4, Увага ... )=6
SELECT table2=tn=cex=rab=pr=raz=n=dt=rabo=ed=kol.txttn.Value=tn1.txtcex.Value=cex1.txtrab.Value=rab1.txtpr.Value=pr1.txtraz.Value=raz1.txtn.Value=n1.txtdt.Value=dt1.txtrabo.Value=rabo1.txted.Value=ed1.txtkol.Value=kol1thisform
. txttn.readonly=.f.
. txtcex.readonly=.f.
. txtrab.readonly=.f.
. txtpr.readonly=.f.
. txtraz.readonly=.f.
. txtn.readonly=.f.
. txtdt.readonly=.f.
. txtrabo.readonly=.f.
. txted.readonly=.f.
. txtkol.readonly=.f.
. refresh.Refresh
Кнопка «Застосувати» (click): EMPTY (thisform.txtn.Value) =. t. AND thisform.txtn.ReadOnly=.T.
MESSAGEBOX ( Немає об'єкта для збереження ... Натисніть змінити !!! , 0, УВАГА !!! ) MESSAGEBOX ( Ви хочете застосувати зміни? , 4, Увага ... )=6
SELECT table2n WITH thisform.txtn.Value, tn WITH thisform.txttn.Value,; WITH thisform.txtcex.Value, rab WITH thisform.txtrab.Value,; WITH thisform.txtpr.Value, raz WITH thisform.txtraz.Value,; WITH thisform.txtdt.Value, rabo WITH thisform.txtrabo.Value, ed WITH thisform.txted.Value, kol WITH thisform.txtkol.Valuethisform
. 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
. 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.readon...