OPEN DATABASE \\athlon64\d\belcar\baze\belcar SHARED
USE \\athlon64\d\belcar\baze\zagfak ALIAS zagfak SHARED IN 0
USE \\athlon64\d\belcar\baze\uplate ALIAS uplate SHARED IN 0
SELECT uplate
GOTO top
DO WHILE !EOF()
IF uplate.euro=0
	SELECT zagfak
	SET ORDER TO tag datum
	GOTO top
	SEEK uplate.datum
	IF zagfak.euro<>0
		meur=zagfak.euro
	SELECT uplate	
		replace uplate.euro WITH meur
	ENDIF
ENDIF
SELECT uplate
SKIP
ENDDO
RETURN
