*************************************
* PASSAGE DE RESSOURCESAIDE EN EURO *
*************************************

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

EXECUTE 'SELECT COTISANAIDE'

W_Fini="FAUX"

LOOP
   READNEXT W_Cle ELSE W_Fini="VRAI"
WHILE W_Fini="FAUX" DO

   READ ENR_COTISANAIDE FROM F.COTISANAIDE,W_Cle ELSE STOP
   
   I = 1

   LOOP
   WHILE ENR_COTISANAIDE<1,I>[1,4] # "" DO
	IF ENR_COTISANAIDE<1,I>[1,4] = "2001" THEN 
		IF ENR_COTISANAIDE<2,I> = 20120 THEN
			ENR_COTISANAIDE<2,I> = 7000
		END
	END
	I = I + 1
   REPEAT

   WRITE ENR_COTISANAIDE ON F.COTISANAIDE,W_Cle

REPEAT

STOP
