SET DELETED ON
SET DATE GERMAN
SET CENTURY on
OPEN DATABASE d:\2020\baze\str shared
USE kupdob alias kupdob shared IN 0
USE kalkstav ALIAS kalkstav SHARED IN 0
USE roba ALIAS roba SHARED IN 0
SELECT kalkstav
GOTO top
DO WHILE !EOF()
	a1=kalkstav.sifrob
	a2=ALLTRIM(kalkstav.kupdob)
	IF a2="0008" OR a2="0023
		SELECT roba
		SET ORDER TO tag sifrob
		GOTO top
		SEEK a1
		IF FOUND()
			replace roba.mozerab WITH "N"
		ENDIF
	ENDIF
SELECT kalkstav
SKIP
ENDDO
RETURN
			
		
