********************************
* PASSAGE DE COMPLFACT EN EURO *
********************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","COMPLFACT" TO F.COMPLFACT 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 COMPLFACT'

W_Fini="FAUX"

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

   READ ENR_COMPLFACT FROM F.COMPLFACT,W_Cle ELSE STOP
   
   I = 1

   LOOP
   WHILE ENR_COMPLFACT<4,I> # "" DO
	IF ENR_COMPLFACT<3,I> # "" THEN
	   ENR_COMPLFACT<3,I> = (ENR_COMPLFACT<3,I>/100) / EURO
	   IF ENR_COMPLFACT<3,I> >= 0 THEN
		ENR_COMPLFACT<3,I> = (ENR_COMPLFACT<3,I>*100) + 0.5
	   END ELSE
		ENR_COMPLFACT<3,I> = (ENR_COMPLFACT<3,I>*100) - 0.5
	   END
	   ENR_COMPLFACT<3,I> = INT(ENR_COMPLFACT<3,I>)
	   ENR_COMPLFACT<4,I> = ((ENR_COMPLFACT<2,I>/100) * (ENR_COMPLFACT<3,I>/100))*100
	END ELSE
	   ENR_COMPLFACT<4,I> = (ENR_COMPLFACT<4,I>/100) / EURO
	   IF ENR_COMPLFACT<4,I> >= 0 THEN
		ENR_COMPLFACT<4,I> = (ENR_COMPLFACT<4,I>*100) + 0.5
	   END ELSE
		ENR_COMPLFACT<4,I> = (ENR_COMPLFACT<4,I>*100) - 0.5
	   END
	   ENR_COMPLFACT<4,I> = INT(ENR_COMPLFACT<4,I>)
	END
	I = I + 1
   REPEAT

   WRITE ENR_COMPLFACT ON F.COMPLFACT,W_Cle
REPEAT

STOP
