yCode=27
IF MESSAGEBOX ( Ви хочете вийти? , 4, Увага )=6
thisform.Release.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=.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
Кнопка «Зберегти» (click): SAFETY OFFthisform.txttn.ReadOnly=.T.
MESSAGEBOX ( Натисніть кнопку Нова ... , 0, Внимание !!! )
thisform.RefreshEMPTY (thisform.txtn.Value) =. f. AND EMPTY (thisform.txttn.Value) =. F. AND EMPTY (thisform.txtn_par.Value) =. F. AND EMPTY (thisform.txtrabo.Value) =. F. AND EMPTY (thisform.txtraz.Value) =. F. AND EMPTY (thisform.txtkol.Value) =. F. AND EMPTY (thisform.txtdetal.Value) =. F.AND EMPTY (thisform.txtrab.Value) =. F.AND EMPTY (thisform.txtvrem.Value) =. F. AND EMPTY (thisform.txtrac.Value) =. F. AND EMPTY (thisform.txtdt.Value) =. F.table3on tn TO table3.idxSEEK (thisform.txttn.Value)
IF MESSAGEBOX ( Запис існує. Замінити? , 4, Внимание !!! )=6
REPLACE n 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.Value.Refreshthisform
. 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.value=
. txtrab.value=
. txtvrem.value=0
. txtrac.value=0
. txtdt.value={}
.txtn.value=0.Refresh=thisform.txttn.Value_par1=thisform.txtn_par.Value=thisform.txtrab.Value=thisform.txtdetal.Value=thisform.txtraz.Value=thisform.txtn.Value=thisform.txtrabo.Value=thisform.txtrac.Value=thisform.txtkol.Value=thisform.txtdt.Value=thisform.txtvrem.ValueINTO table3 (tn, n_par, rab, detal, raz, n, rabo, rac, kol, dt, vrem) VALUES (tn1, n_par1, rab1, detal1, raz1, n1, rabo1, rac1, kol1, dt1, vrem1) 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.
. tx...
