SET DELETED ON
USE d:\2010\robno\baze\kalkstav ALIAS kalkstav IN 0
USE d:\cene ALIAS cene IN 0
SELECT kalkstav
GOTO top
DO WHILE !EOF()
a1=kalkstav.sifrob
SELECT cene
SET ORDER TO tag sifra
GOTO top
SEEK a1
IF FOUND()
	a2=cene.cena
	SELECT kalkstav
	IF a2<>0
		replace kalkstav.pcena WITH a2
		?a1
	ENDIF
ENDIF
SELECT kalkstav
SKIP
ENDDO
			
RETURN
			