OPEN DATABASE d:\belcar\baze\belcar.dbc SHARED
USE d:\belcar\baze\PARSTAV ALIAS PARSTAV shared IN 0
USE d:\belcar\baze\ROBA ALIAS ROBA shared IN 0
SELECT ROBA
SET ORDER TO TAG SIFRA2
SELECT PARSTAV
GOTO TOP
DO WHILE !EOF()
A=PARSTAV.SIFROB
SELECT ROBA
GOTO TOP
SEEK A
MK=ROBA.SIFROB
SELECT PARSTAV
REPLACE PARSTAV.SIFRAR WITH MK
SKIP

ENDDO
RETURN


