********************************
* PASSAGE DE OPPOSITON EN EURO *
********************************

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

W_Fini="FAUX"

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

   READ ENR_OPPOSITION FROM F.OPPOSITION,W_Cle ELSE STOP
   
   ENR_OPPOSITION<18> = (ENR_OPPOSITION<18>/100) / EURO
   ENR_OPPOSITION<18> = (ENR_OPPOSITION<18> * 100) + 0.5
   ENR_OPPOSITION<18> = INT(ENR_OPPOSITION<18>)

   I = 1

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

   WRITE ENR_OPPOSITION ON F.OPPOSITION,W_Cle
REPEAT

STOP
