SELECT 1
USE c:\gestiune.vfp\data\003\arti.dbf EXCLUSIVE
SET ORDER TO cod_mag
SELECT 2
USE c:\gest_imp\001\arti.dbf ALIAS artis EXCLUSIVE
SET RELATION TO code+magazie INTO arti
SCAN all
	IF EOF("arti")
	  SCATTER memvar
	  SELECT arti
	  APPEND blank
	  GATHER memvar
	 ELSE
	  WAIT WINDOW "Codul"+artis.code+"este dublu"
	ENDIF 
	SELECT artis   
ENDSCAN
