EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "VOC" TO F.VOC ELSE STOP

EXECUTE 'SELECT VOC AVEC F1 = "F" PAR @ID'
EXECUTE 'SAUVE-LISTE W_FICHIERS'
EXECUTE 'LISTE W_FICHIERS' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN


	SELECT F.VOC TO W_FICHIERS

	EXECUTE 'COMO ON W_VerifIntegr.txt'

	W_FinVoc = "F"
	LOOP
		READNEXT W_CleFic FROM W_FICHIERS ELSE W_FinVoc = "V"
	WHILE W_FinVoc = "F"

		OPEN "",W_CleFic TO F.FICHIER THEN

			GOSUB 100

		END

	REPEAT


	EXECUTE 'COMO OFF'
END
STOP

100
EXECUTE 'SELECT ':W_CleFic:' PAR @ID'
W_Fin = "F"
W_ClePrec = ""
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	IF W_Cle = W_ClePrec THEN
		PRINT "Fichier ":W_CleFic:" - Cl ":W_Cle
	END
	W_ClePrec = W_Cle
REPEAT
RETURN

