PUBLIC zona_es
IF thisform.combo6.Value="BBBB"
IF thisform.combo8.Value>thisform.combo4.Value
	zona_es=thisform.COMBO8.Value
ELSE
	zona_es=thisform.combo4.Value	
ENDIF
zona1=zona_es

IF thisform.combo1.VALUE="adsff                  "
   IF zona1= 1 
      thisform.text21.Value=DATETIME()+ 3600 
   ENDIF
   IF zona1= 2 
      thisform.text21.Value=DATETIME()+ 3600 * 2 
   ENDIF
   IF zona1= 3 
      thisform.text21.Value=DATETIME()+ 3600 * 3 
   ENDIF
   IF zona1= 4 
      thisform.text21.Value=DATETIME()+ 3600 * 4 
   ENDIF
   thisform.text21.Refresh()
ENDIF

kq1=thisform.text15.Value
zerf_q1=thisform.text10.Value
xidm_n1=thisform.combo1.Value
guzeshtf1= thisform.text18.value

IF VAL(thisform.text14.Text)> 0 
   mekt_say1= 1 
ELSE
   mekt_say1=thisform.text12.Value
   mekt_say1= 1 
endi   

SELECT normativ
do case
case (kq1 <=  1 )
	FieldName = "kq0_1"
case (kq1 >  1  and kq1 <= 10 )
	FieldName = "kq1_10"
case (kq1 >  10  and kq1 <= 20 )
	FieldName = "kq10_20"
case (kq1 >  20  and kq1 <= 40 )
	FieldName = "kq20_40"
otherwise
	FieldName = "kq40_cox"
endcase
select evaluate(FieldName) as qiym from normativ where zona = zona1.and.xidm_n=xidm_n1 INTO TABLE price
USE price 
qiym1=qiym
SELECT baza
REPLACE qiymet WITH qiym1
thisform.text22.Refresh()
guz1=qiymet*guzeshtf1
guz2= Int(guz1* 100 )/ 100 
REPLACE guzeshtm WITH guz2
thisform.text77.Refresh()
cemi1=qiym1+zerf_q1-guzeshtm  && 1 *qiym1
REPLACE cemi WITH cemi1
REPLACE yekun WITH cemi+el_xid_n
thisform.text20.Value=DATETIME()
thisform.text26.Refresh()
thisform.text20.refresh()
thisform.text21.refresh()
t20=thisform.text20.Value
t21=thisform.text21.Value
REPLACE catdirilma WITH t21, qebul_ed WITH t20
thisform.text20.refresh()
thisform.text21.refresh()
thisform.text18.Refresh()
thisform.text24.Refresh()
thisform.text22.Refresh()
thisform.text77.Refresh()

endif