*********************************************************
* MOULINETTE POUR LE PASSAGE A L'EURO DU FICHIER ACCORD *
*********************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACCORD" TO F.ACCORD ELSE STOP ;* en lecture criture
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP ;* en lecture criture
OPEN "","CONSTANTESPAIE" TO F.CONSTANTESPAIE ELSE STOP ;* en lecture criture

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

   EURO = ENR_CONSTANTESPAIE<7> / 100000
   DATEURO = ENR_CONSTANTESPAIE<9>

   EXECUTE 'SSELECT ACCORD AVEC 6 >= "':DATEURO:'" PAR 1' 

   W_End="FAUX"

   LOOP
	READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
     READ ENR_ACCORD FROM F.ACCORD ,W_Cle ELSE W_End = "VRAI"
	
     READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE ,ENR_ACCORD<1> THEN
	
 	 IF ENR_ORGPRISECHARGE<24> = "M" THEN
	    ENR_ACCORD<9> = INT(ENR_ACCORD<9> / EURO + 1/2)
	 END

         IF ENR_ACCORD<11,1> >= DATEURO THEN
            IF ENR_ACCORD<12,2> # "" THEN
               ENR_ACCORD<12,2> = INT(ENR_ACCORD<12,2> / EURO + 1/2)
            END
            IF ENR_ACCORD<13,2> # "" THEN
               ENR_ACCORD<13,2> = INT(ENR_ACCORD<13,2> / EURO + 1/2)
            END
         END
         IF ENR_ACCORD<12,1> # "" THEN
            ENR_ACCORD<12,1> = INT(ENR_ACCORD<12,1> / EURO + 1/2)
         END
         ENR_ACCORD<13,1> = INT(ENR_ACCORD<13,1> / EURO + 1/2)
		

	IF (ENR_ORGPRISECHARGE<19> = "1" AND ENR_ORGPRISECHARGE<24> = "M") OR (ENR_ORGPRISECHARGE<19> = "3" AND ENR_ORGPRISECHARGE<24> = "M") THEN

	   I = 1

	   LOOP
	   WHILE ENR_ACCORD<15,I> # "" DO
		IF ENR_ACCORD<15,I> # "" THEN
               ENR_ACCORD<15,I> = INT(ENR_ACCORD<15,I> / EURO + 1/2)
               ENR_ACCORD<17,I> = INT(ENR_ACCORD<17,I> / EURO + 1/2)
		END
		I = I + 1
	   REPEAT

	END

	WRITE ENR_ACCORD ON F.ACCORD,W_Cle
     END
   REPEAT
   
STOP
