***************************
* LISTE DES AIDANTS ACTIF *
* ALAIN 18/10/2002        *
***************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","AIDANTSECTEURANALBUDGET" TO F.AIDANTSECTEURANALBUDGET ELSE STOP

W_RESULTAT = ""
W_RESULTAT2 = ""

EXECUTE 'SSELECT AIDANTSECTEURANALBUDGET = "[001"'

EXECUTE 'SAUVE-LISTE W_RESULTAT'
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE
	

IF MSGCODE<1> # 209 THEN 

	W_FINI = "FAUX"

	SELECT F.AIDANTSECTEURANALBUDGET TO W_RESULTAT

	LOOP
		READNEXT CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
	WHILE W_FINI = "FAUX"
*		IF CLE[6,3] # "001" THEN
			READ ENR_AIDANTSECTEURANALBUDGET FROM F.AIDANTSECTEURANALBUDGET,CLE THEN 
				CLEBIS=CLE[1,8]:"2008"
				WRITE ENR_AIDANTSECTEURANALBUDGET ON F.AIDANTSECTEURANALBUDGET, CLEBIS
			END
*		END

	REPEAT
END
STOP
