set defa to k:\
   sele  3 
   use ab_qaz 
   set inde to p1  
   GO TOP
   a_kod1= 0 
   a_ad1="                             "
   q_kod1= 0 
   q_ad1="                             "
   p_kod1= 0 
   q_qym1= 0 
   Q_SAY1= 0 
   I_KOD1= 0 
   @  33 , 60  SAY " KOD: " GET  a_kod1
   READ
   IF READ()= 12  .OR.READ()= 268 
       DEACTI WIND A3
       EXIT
   ENDIF   
     seek a_kod1
      deac wind a3
    if .not. found()
          @  20 , 5  SAY "net takoy "
          read
          DEACTI WIND A3
         GO TOP
         do imt
     endif
   STORE a_KOD TO a_kod1
   STORE a_ad TO  a_ad1
   STORE p_ad TO  p_ad1
   STORE I_KOD TO  I_KOD1
   store kim to kim1
   tarix22=tarix2
   store kim_kod1 to kim_kod
   STORE p_KOD TO p_kod1
   STORE p_ad TO  p_ad1
use c:\sh\muqav4 excl
dele all
pack
appe from  ab_qaz for a_kod=a_kod1
brow fiel sai,q_ad,a_kod,q_kod,p_kod
use qzt
repl all fl1 with  0 
set filt to kat#' '.or.q_is#' '
go top
brow fiel fl1,q_ad
set filt to fl1<> 0 
erase qzt1.dbf
copy to qzt1.dbf
set filt to
use  c:\sh\muqav4
appe from  qzt1
repl all sai with fl1 for a_kod= 0 
repl all a_kod with a_kod1,fl1 with sai
use ab_qaz
dele all for a_kod=a_kod1
appe from c:\sh\muqav4
repl all  i_kod with i_kod1,a_ad with a_ad1,p_kod with p_kod1,p_ad with p_ad1,kim with kim1,kim_kod1 with kim_kod, tarix2 with tarix22, sai with fl1 for a_kod=a_kod1
    clos all
    clea

select <fields of qzt>,  0  as fl1 from qzt where kat#' '.or.q_is#' ' into cursor tempcurs nofilter readwrite

insert into ab_qaz select * from c:\sh\muqav4

select * from firstcurs union all select * from secondcurs into dbf c:\sh\muqav4

 1 .Из AB_QAZ.DBF все записи удовлотворяющий условия (for a_kod=a_kod1) копировать (потом удалить) в MUQAV4.DBF