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

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","RESSOURCESAIDE" TO F.RESSOURCESAIDE 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 RESSOURCESAIDE'

W_Fini="FAUX"

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

   READ ENR_RESSOURCESAIDE FROM F.RESSOURCESAIDE,W_Cle ELSE STOP
   
   I = 1

   LOOP
   WHILE ENR_RESSOURCESAIDE <5,I> # "" DO
	ENR_RESSOURCESAIDE<5,I> = (ENR_RESSOURCESAIDE<5,I>/100) / EURO
	ENR_RESSOURCESAIDE<5,I> = (ENR_RESSOURCESAIDE<5,I> * 100) + 0.5
	ENR_RESSOURCESAIDE<5,I> = INT(ENR_RESSOURCESAIDE<5,I>)
	I = I + 1
   REPEAT

   IF ENR_RESSOURCESAIDE <6> # "" THEN
	ENR_RESSOURCESAIDE<6> = (ENR_RESSOURCESAIDE<6>/100) / EURO
	ENR_RESSOURCESAIDE<6> = (ENR_RESSOURCESAIDE<6> * 100) + 0.5
	ENR_RESSOURCESAIDE<6> = INT(ENR_RESSOURCESAIDE<6>)
   END

   WRITE ENR_RESSOURCESAIDE ON F.RESSOURCESAIDE,W_Cle
REPEAT

STOP
