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

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

READ ENR_CONSTANTESPAIE FROM F.CONSTANTESPAIE ,"1" ELSE STOP

EURO = ENR_CONSTANTESPAIE<7> / 100000

EXECUTE 'SELECT COTISANAIDE AVEC 1 = "2001]"'

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> # "" DO
	IF ENR_COTISANAIDE<1,I> > 200100 THEN
		ENR_COTISANAIDE <2,I> = (ENR_COTISANAIDE <2,I>/100) / EURO
		ENR_COTISANAIDE<2,I> = (ENR_COTISANAIDE <2,I> * 100) + 0.5
		ENR_COTISANAIDE<2,I> = INT(ENR_COTISANAIDE <2,I>)
	END
	I = I + 1
   REPEAT

   WRITE ENR_COTISANAIDE ON F.COTISANAIDE,W_Cle
REPEAT

STOP
