SET DELETED ON

OPEN DATABASE d:\zoovet\baze\str

USE kalkstav ALIAS kalkstav IN 0
USE roba ALIAS roba IN 0

SELECT roba
GOTO top
DO WHILE !EOF()
replace stampa WITH SPACE(1)
SKIP
ENDDO

SELECT kalkstav
GOTO top
DO WHILE !EOF()
IF brdok<>"000014"
	SKIP
	LOOP
ENDIF
a1=kalkstav.sifrob
SELECT roba
SET ORDER TO tag sifrob
GOTO top
SEEK a1
IF FOUND()
	replace roba.stampa WITH "*"
ENDIF
SELECT kalkstav
SKIP
ENDDO

SELECT roba
COPY TO d:\a\ro.dbf FOR stampa="*"

SELECT roba
replace ALL stampa WITH SPACE(1)
RETURN
		