SET DELETED ON
OPEN DATABASE d:\2012\robno\baze\belcar SHARED


USE roba ALIAS roba shared IN 0
USE zalihe ALIAS zalihe shared IN 0

SELECT roba
GOTO top
DO WHILE !EOF()
a1=roba.sifrob
SELECT zalihe
SET ORDER TO tag zalihe
GOTO top
SEEK "01   "+a1
IF FOUND()
	replace zalihe.carinski WITH 1000
ENDIF
SELECT roba	
SKIP
ENDDO
	
