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

* NB : PAS DE NOTION DE TYPE D'ACTIVITE !!!!

PRINT "Periode (AAAAMM) ?"
INPUT PERIODE

PRINT "Code association ?"
INPUT W_CodeAsso

EXECUTE 'SELECT COTISANAIDE AVEC 0 = "[':W_CodeAsso:'" AND AVEC 1 = "[':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_COTISANAIDE FROM F.COTISANAIDE,CLE THEN

		I=1
		LOOP	
			UNTIL ENR_COTISANAIDE<1,I>=PERIODE OR ENR_COTISANAIDE<1,I>="" DO
			I=I+1
		REPEAT
		IF ENR_COTISANAIDE<1,I>=PERIODE THEN
			ENR_COTISANAIDE=DELETE(ENR_COTISANAIDE,1,I)
			ENR_COTISANAIDE=DELETE(ENR_COTISANAIDE,2,I)
		END

		WRITE ENR_COTISANAIDE ON F.COTISANAIDE,CLE

	END
REPEAT
STOP
