EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE STOP
OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP 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 = "P" OR W_TypeAct = "p" THEN
 EXECUTE 'SELECT ELTSFACTAIDE AVEC 24 = "':PERIODE:'"'

 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

	READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE,CLE 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
END ELSE
 IF W_TypeAct = "M" OR W_TypeAct = "m" THEN
  EXECUTE 'SELECT ELTSPARTEMP AVEC 16 = "':PERIODE:'"'

  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

	READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP,CLE ELSE ENR_ELTSPARTEMP=""
	IF ENR_ELTSPARTEMP<16>=PERIODE THEN
		ENR_ELTSPARTEMP<16>=""
		WRITE ENR_ELTSPARTEMP ON F.ELTSPARTEMP,CLE
	END
  REPEAT
 END
END
