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

ENR_AIDESARCHIVEFACT=""
ENR_ARCHIVEFACT=""
W_Req=""

PRINT "Mois a verifier (1 pour janvier, 2 pour fevrier, ..., 12 pour decembre) ?"
INPUT W_Mois
IF W_Mois < "1" OR W_Mois > "12" THEN STOP

EXECUTE 'SELECT AIDESARCHIVEFACT AVEC 0 ="[2011"'
EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE 'LISTE W_Req' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.AIDESARCHIVEFACT TO W_Req

	W_Fin = "F"
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fin = "O"
	WHILE W_Fin = "F"
		READ ENR_AIDESARCHIVEFACT FROM F.AIDESARCHIVEFACT, W_Cle THEN
			I=0
			LOOP
				I=I+1
			WHILE ENR_AIDESARCHIVEFACT<W_Mois,I><>"" DO
				READ ENR_ARCHIVEFACT FROM F.ARCHIVEFACT, ENR_AIDESARCHIVEFACT<W_Mois,I> ELSE ENR_ARCHIVEFACT="RIEN"
				IF ENR_ARCHIVEFACT="RIEN" THEN
					ENR_AIDESARCHIVEFACT=DELETE(ENR_AIDESARCHIVEFACT,W_Mois,I)
					I=I-1
				END
			REPEAT
			WRITE ENR_AIDESARCHIVEFACT ON F.AIDESARCHIVEFACT, W_Cle
		END
	REPEAT
END

STOP
	