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

PRINT "Periode (AAAAMM) ?"
INPUT PERIODE

IF PERIODE = "" THEN STOP

PRINT "Code association ?"
INPUT W_CodeAsso

IF W_CodeAsso = "" THEN STOP

PRINT "Type d'activite ?"
INPUT W_TypeAct

IF W_TypeAct = "" THEN STOP

IF W_TypeAct = "m" THEN W_TypeAct = "M"
IF W_TypeAct = "p" THEN W_TypeAct = "P"

EXECUTE 'SELECT FACTURAIDE AVEC CodeEntiteFact = "':W_CodeAsso:'" AND AVEC PeriodeCleFactAide = "':PERIODE:'" AND AVEC ActiviteFact = "':W_TypeAct:'" AND AVEC NumFactFactAide > "0000111204"'

PRINT "CONTINUE ??"
INPUT W_REPONSE

IF W_REPONSE = "N" OR W_REPONSE = "n" THEN STOP

W_FIN=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	DELETE F.FACTURAIDE,CLE
	DELETE F.ARCHIVEFACT,CLE[1,25]

	READ ENR_AIDESARCHIVEFACT FROM F.AIDESARCHIVEFACT,CLE[1,5]:PERIODE[1,4] ELSE ENR_AIDESARCHIVEFACT=""
	I=1
	LOOP
		UNTIL ENR_AIDESARCHIVEFACT<PERIODE[5,2],I>=CLE[1,25] OR ENR_AIDESARCHIVEFACT<PERIODE[5,2],I>="" DO
		I=I+1
	REPEAT
	IF ENR_AIDESARCHIVEFACT<PERIODE[5,2],I>=CLE[1,25] THEN ENR_AIDESARCHIVEFACT=DELETE(ENR_AIDESARCHIVEFACT,PERIODE[5,2],I)
	IF ENR_AIDESARCHIVEFACT<>"" THEN
		WRITE ENR_AIDESARCHIVEFACT ON F.AIDESARCHIVEFACT,CLE[1,5]:PERIODE[1,4]
	END
	ENR_ELTSFACTAIDE=""
	READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE,CLE[1,5] ELSE ENR_ELTSFACTAIDE=""
	IF ENR_ELTSFACTAIDE<24,W_CodeAsso>=PERIODE THEN
		ENR_ELTSFACTAIDE<24,W_CodeAsso>=""
		WRITE ENR_ELTSFACTAIDE ON F.ELTSFACTAIDE,CLE
	END
REPEAT
