SET DELETED ON
USE gknjiga ALIAS gknjiga IN 0
USE konplan ALIAS konplan IN 0

USE d:\jugotrade2014\konta ALIAS konta IN 0	

SELECT konta
GOTO top
DO WHILE !EOF()
a1=konta.stari
a2=konta.novi
SELECT gknjiga
GOTO top
DO WHILE !EOF()
a3=gknjiga.konto
IF a1<>a3
	SKIP
	LOOP
ELSE
	replace gknjiga.konto WITH a2
	*?a1,a2
ENDIF
SKIP
ENDDO
SELECT konta
SKIP
ENDDO
		
SELECT konta
GOTO top
DO WHILE !EOF()
a1=konta.stari
a2=konta.novi
SELECT konplan
GOTO top
DO WHILE !EOF()
a3=konplan.konto
IF a1<>a3
	SKIP
	LOOP
ELSE
	replace konplan.konto WITH a2
*	?a1,a2
ENDIF
SKIP
ENDDO
SELECT konta
SKIP
ENDDO

