OPEN DATABASE d:\zoovet\baze\str
USE roba ALIAS roba IN 0

USE d:\a\pro ALIAS pro IN 0
SELECT pro
GOTO top
DO WHILE !EOF()
a1=pro.sifrob
SELECT roba
set ORDER to tag sifrob
GOTO top
SEEK a1
IF !FOUND()
	SELECT pro
	SCATTER memvar
	SELECT roba
	=CURSORSETPROP("AutoIncError", .f.,"pro")
	APPEND BLANK
	GATHER memvar
ENDIF
SELECT pro
SKIP
ENDDO
	