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...