SET DATE GERMAN
SET CENTURY on

OPEN DATABASE d:\zoovet\baze\str
USE roba ALIAS roba IN 0
USE racstav ALIAS racstav IN 0

SELECT racstav
GOTO top
DO WHILE !EOF()
IF racstav.datum>CTOD("25.12.2011")
	a1=racstav.sifrob
	mpce=0
	SELECT roba
	SET ORDER TO tag sifrob
	GOTO top
	SEEK a1
	IF FOUND()
		mpce=roba.procen
		SELECT racstav
		replace racstav.dobcena WITH mpce
	ENDIF
SELECT racstav
ENDIF
SKIP
ENDDO
		