OPEN DATABASE c:\2013\baze\str
USE roba ALIAS r2013 IN 0

OPEN DATABASE c:\2014\baze\str
USE roba ALIAS r2014 IN 0

SET DELETED ON
SELECT r2014
GOTO top
DO WHILE !EOF()
a1=r2014.sifrob
SELECT r2013
SET ORDER TO tag sifrob
GOTO top
SEEK a1
IF FOUND()
	IF r2013.tarifa="08"
		SELECT r2014
		replace r2014.tarifa WITH "10"
		?a1
	ELSE
		SELECT r2014
		replace r2014.tarifa with "20"
	ENDIF
ENDIF
SELECT r2014
SKIP
ENDDO
			