select sm1

scan

   select nal1

   append blank

   replace nal1.kod_tov with sm1.kodmv,nal1.kol_vo_n with sm1.kol_o,nal1.cena_z with sm1.cena

   select sm1

endscan

if !used('pres1')

   use pres1 in 0

endif

select pres1

scan

   kkk=pres1.kodmv

   c1=cena

   c2=cena1

   c3=t_nac

   select nal1

   locate for(nal1.kod_tov=kkk).and.(nal1.cena_z=c1)

   if found()

      *append blank

      *replace nal1.kod_tov with sm1.kodmv,nal1.kol_vo_n with sm1.kol_o,nal1.cena_z with sm1.cena

      replace nal1.cena with c2,nal1.nac_f with c3

   endif  

   select pres1

endscan

if !used('spr_post1')

   use spr_post1 in 0

endif

select spr_post1

scan

   select spr_post

   append blank

   replace spr_post.kod_post with val(spr_post1.kod),spr_post.name_post with spr_post1.name

   select spr_post1

endscan

if !used('spr_ras1')