bir= 1 
SELECT  5 
APPEND BLANK
REPLACE mushteri_k WITH thisform.text2.Value,  zeng_eden WITH thisform.text13.Value, mushteri_a WITH thisform.text5.Value,;
mushteri_u WITH thisform.text6.Value, mushteri_z WITH  thisform.combo8.Value, qaime_n WITH  thisform.text3.Value, telefon with thisform.text4.Value,;
sif_kod WITH thisform.text34.Value, dx WITH "D", qebul_ed WITH thisform.text20.Value,  catdirilma WITH thisform.text21.Value,;
alan_a WITH thisform.text8.Value,  alan_u WITH thisform.text9.Value, alan_t WITH thisform.text1.Value, alan_r WITH thisform.combo6.Value, alan_z WITH thisform.combo4.Value,;
kod_qeyd WITH val(thisform.combo5.Value), qeyd WITH thisform.text7.value, say_mektub WITH thisform.text12.value, zerf_qiy WITH thisform.text10.value, baqlamalar WITH thisform.text14.value,;
um_ceki WITH thisform.text15.value, xidm_novu WITH thisform.combo1.value, qiymet WITH thisform.text22.value, el_xid_n WITH thisform.text23.value,  daxtel WITH thisform.text27.value;
xus_qiy WITH thisform.text17.value, guzeshtm WITH thisform.text77.value, guzeshtf WITH thisform.text18.value, cemi WITH  thisform.text24.value, edv WITH thisform.text25.value, yekun WITH thisform.text26.value,;
icinde WITH  thisform.text19.value, kuryer_adq WITH thisform.text11.Value, kuryer_adc WITH thisform.text16.Value
REPLACE kuryer_kq WITH  VAL(thisform.combo2.value), kuryer_kc WITH VAL(thisform.combo2.value)
REPLACE BANK_AD WITH BANK_AD1, BANK_KOD WITH BANK_KOD1, BANK_VOEN WITH BANK_VOEN1, HES_HESABI WITH HES_HESABI1, MUX_HESABI WITH MUX_HESABI1, swift WITH swift1, voen WITH voen1

IF IMTINA="Imtina".or.qaime_n= 0 
 REPLACE cemi WITH  0 , yekun WITH  0 
endif 
bbaxish1= 0 
thisform.release()
do form baxish

replace  ttt  with ppp ;
         ,  kkk with ggggggg ;
         ,  ....

REPLACE  mushteri_k WITH thisform.text2.Value, ;
                zeng_eden WITH thisform.text13.Value,;
                mushteri_a WITH thisform.text5.Value,;

REPLACE BANK_AD WITH BANK_AD1, ;
               BANK_KOD WITH BANK_KOD1,;
               BANK_VOEN WITH BANK_VOEN1,;
               HES_HESABI WITH HES_HESABI1, ;
               MUX_HESABI WITH MUX_HESABI1,;
               swift WITH swift1,;
               voen WITH voen1

IF TYPE('baza.mushteri_k')<>TYPE('thisform.text27.Value').or.TYPE('baza.zeng_eden')<> TYPE('thisform.text13.Value').or.TYPE('baza.mushteri_a')<>TYPE('thisform.text5.Value')
	MESSAGEbox('Пользователь - ты был не прав!')
	thisform.text27.SetFocus()
else
	SELECT  5 
               REPLACE .............
                              .............
	do form baxish
endif

m_k1=thisform.text2.Value
z_e1=thisform.text13.Value
m_a1=thisform.text5.Value
if varty(m_k1) <> "N".or.varty(z_e1)<>"C".or.varty(m_a1)="C"
	MESSAGEbox('Пользователь - ты был не прав!')
	thisform.text27.SetFocus()
else
	SELECT  5 
               REPLACE .............
                              .............
	do form baxish
endif

TABLEUPDATE(.T.,.T.,"baza")