sele  0 
use tables again alias tables
sele  0 
use gruppa again alias gruppa
zap
sele  0 
use marka_01 again alias marka_01
index on kodg+kodpg+kodm to mar_01_kod
use marka_01 index mar_01_kod
***brow norm
go top
do while .not.eof()
   zex_=zex                          - переменные из раб.табл
   kodg_=kodg
   kodpg_=kodpg
   kodm_=kodm
   namegk_=namegk
   namegp_=namegp
   mrn='0001'
   basa='GRUPPA'
   do form_rn with mrn,basa    - тут создается уник ключь типа  0001  -  0009  - 000а и т.д. и запоминается в таблице где они храняться, чтоб повторений не было
   sele gruppa                      - таблица в базе
   append blank                    - тут не пашет
   repl rn_gr  with mrn           - первичный ключ, отношения (RRR)
   repl zex    with zex_          - просто данные
   repl kodg   with kodg_
   repl namegk with namegk_
   repl namegp with namegp_
   sele marka_01
   do while .not.eof() .and.zex_=zex .and.kodg_=kodg
      skip
   enddo
enddo