SET DELETED ON
OPEN DATABASE z:\ro2009\baze\belcar SHARED

USE zalihe ALIAS zalihe shared IN 0
USE roba ALIAS roba shared IN 0
USE magacin ALIAS magacin SHARED IN 0

SELECT roba
GOTO top
DO WHILE !EOF()
a1=roba.sifrob

SELECT magacin
GOTO top
DO WHILE !EOF()
b=magacin.magacin
SELECT zalihe
APPEND BLANK
replace zalihe.sifra WITH a1
replace zalihe.magacin WITH b
SELECT magacin
SKIP
ENDDO

SELECT roba
SKIP
ENDDO
RETURN
