EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","STATACTAIDE" TO F.STATACTAIDE ELSE STOP
OPEN "","ACTIVITES" TO F.ACTIVITES 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 STATACTAIDE AVEC EntiteAct = "':W_CodeAsso:'" AND AVEC 0 = "[':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_STATACTAIDE FROM F.STATACTAIDE, CLE THEN
	ENR_BIS = ""
	W_IndBis = 1
	i = 0
	LOOP
	i = i + 1
	WHILE ENR_STATACTAIDE<1,i> # ""
	    READ ENR_ACTIVITES FROM F.ACTIVITES, ENR_STATACTAIDE<1,i> ELSE ENR_ACTIVITES = ""
	    IF ENR_ACTIVITES<12> # W_TypeAct THEN
		ENR_BIS<1,W_IndBis> = ENR_STATACTAIDE<1,i>
		ENR_BIS<2,W_IndBis> = ENR_STATACTAIDE<2,i>
		W_IndBis = W_IndBis + 1
	    END
	REPEAT
	IF ENR_BIS # "" THEN
		WRITE ENR_BIS ON F.STATACTAIDE, CLE
	END ELSE
		DELETE F.STATACTAIDE, CLE
	END
   END
REPEAT
