set exclussive off
set deleted on
set date german
set century on
use y:\2019\baze\zagrac alias zagrac in 0
use y:\2019\baze\racstav alias racstav in 0
use y:\2019\baze\virman alias virman in 0
select virman
set order to tag kupdob
goto top
do while !eof()
if alltrim(virman.kupdob)<>"0449"
	skip
	loop
endif
if month(virman.datum)<>12
	skip
	loop
endif
	a1=virman.brdok
	select zagrac
	set order to tag brdok
	goto top
	seek a1
	if found()
		a2=zagrac.datum
		select virman
	**	replace virman.datum with a2
	?brdok,virman.datum, zagrac.datum
	endif
select virman
skip
enddo
return

