USE d:\europa2008\fin\baze\konplan ALIAS konplan IN 0
USE d:\sasa\kupci ALIAS kupci IN 0
SELECT kupci
SET ORDER TO SIFRA1   && SIFRA1
GOTO top

SELECT konplan
GOTO top
DO WHILE !EOF()
IF konplan.konto="2020 " .or. konplan.konto="4330 " .or. konplan.konto="1500 " .or. konplan.konto="4300 "
	a=SUBSTR(konplan.analitika,1,4)
	SELECT kupci
	GOTO top
	SEEK a
	IF FOUND()
		a1=kupci.ulica
		a2=kupci.mesto
		a3=kupci.pbroj
		a4=kupci.ziro
		SELECT konplan
		replace konplan.adresa 	WITH a1
		replace konplan.mesto	WITH a2
		replace konplan.ptt     WITH a3
		replace konplan.ziro	WITH a4
	ENDIF
ENDIF
SELECT konplan
SKIP
ENDDO
