SET DELETED ON

CLEAR

OPEN DATABASE \\nedjo\c\2009\baze\belcar SHARED
USE \\nedjo\c\2009\baze\kalkstav ALIAS k2009 shared IN 0

OPEN DATABASE d:\2010\robno\baze\belcar SHARED
USE d:\2010\robno\baze\kalkstav ALIAS kalkstav SHARED IN 0

SELECT kalkstav 
SET ORDER TO tag brdok
GOTO top
DO WHILE !EOF()
IF kalkstav.brdok<>"PS/2010  "
	SKIP
	LOOP
ENDIF
a1=kalkstav.sifrob
a2=kalkstav.ncena
SELECT k2009
SET ORDER TO tag sifrob1
GOTO top
seek a1
IF a2<>k2009.ncena
	?a1,a2,k2009.pcena
ENDIF
SELECT kalkstav
SKIP
ENDDO
RETURN
	
	
