USE d:\2020\str4\baze\zagkalk alias zagkalk in 0
USE d:\2020\str4\baze\kupdob alias kupdob in 0
SELECT zagkalk
goto top
do while !eof()
if empty(zagkalk.pdv)
	a1=zagkalk.kupdob
	select kupdob
	set order tag kupdob
	goto top
	seek a1
	if found()
	select zagkalk
	replace zagkalk.pdv with kupdob.pdv
	endif
?a1
endif
select zagkalk
skip
enddo

