*************************************
* PASSAGE DE ORGPRISECHARGE EN EURO *
*************************************

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

W_Fini="FAUX"

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

   READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,W_Cle ELSE STOP
   
   I = 1

   LOOP
   WHILE ENR_ORGPRISECHARGE<26,I> # "" DO
	
	IF ENR_ORGPRISECHARGE<26,(I+1)> = "" AND ENR_ORGPRISECHARGE<26,I>[1,3] = "999" THEN
	END ELSE
	   IF ENR_ORGPRISECHARGE<26,I> # "" THEN
		ENR_ORGPRISECHARGE<26,I> = (ENR_ORGPRISECHARGE<26,I>/100) / EURO
		ENR_ORGPRISECHARGE<26,I> = (ENR_ORGPRISECHARGE<26,I>*100) + 0.5
		ENR_ORGPRISECHARGE<26,I> = INT(ENR_ORGPRISECHARGE<26,I>)
	   END
	END
	I = I + 1
   REPEAT

   I = 1

   LOOP
   WHILE ENR_ORGPRISECHARGE<27,I> # "" DO
	IF ENR_ORGPRISECHARGE<27,(I+1)> = "" AND ENR_ORGPRISECHARGE<27,I>[1,3] = "999" THEN
	END ELSE
  	   IF ENR_ORGPRISECHARGE<27,I> # "" THEN
		ENR_ORGPRISECHARGE<27,I> = (ENR_ORGPRISECHARGE<27,I>/100) / EURO
		ENR_ORGPRISECHARGE<27,I> = (ENR_ORGPRISECHARGE<27,I>*100) + 0.5
		ENR_ORGPRISECHARGE<27,I> = INT(ENR_ORGPRISECHARGE<27,I>)
	   END
	END
	I = I + 1
   REPEAT
   
   I = 1

   LOOP
   WHILE ENR_ORGPRISECHARGE<28,I> # "" DO
	IF ENR_ORGPRISECHARGE<28,(I+1)> = "" AND ENR_ORGPRISECHARGE<28,I>[1,3] = "999" THEN
	END ELSE
	   IF ENR_ORGPRISECHARGE<28,I> # "" THEN
		ENR_ORGPRISECHARGE<28,I> = (ENR_ORGPRISECHARGE<28,I>/100) / EURO
		ENR_ORGPRISECHARGE<28,I> = (ENR_ORGPRISECHARGE<28,I>*100) + 0.5
		ENR_ORGPRISECHARGE<28,I> = INT(ENR_ORGPRISECHARGE<28,I>)
	   END
	END
	I = I + 1
   REPEAT
   
   I = 1

   LOOP
   WHILE ENR_ORGPRISECHARGE<32,I> # "" DO
	IF ENR_ORGPRISECHARGE<32,(I+1)> = "" AND ENR_ORGPRISECHARGE<32,I>[1,3] = "999" THEN
	END ELSE
	   IF ENR_ORGPRISECHARGE<32,I> # "" THEN
		ENR_ORGPRISECHARGE<32,I> = (ENR_ORGPRISECHARGE<32,I>/100) / EURO
		ENR_ORGPRISECHARGE<32,I> = (ENR_ORGPRISECHARGE<32,I>*100) + 0.5
		ENR_ORGPRISECHARGE<32,I> = INT(ENR_ORGPRISECHARGE<32,I>)
	   END
	END
	I = I + 1
   REPEAT

   I = 1

   LOOP
   WHILE ENR_ORGPRISECHARGE<33,I> # "" DO
	IF ENR_ORGPRISECHARGE<33,(I+1)> = "" AND ENR_ORGPRISECHARGE<33,I>[1,3] = "999" THEN
	END ELSE
	   IF ENR_ORGPRISECHARGE<33,I> # "" THEN
		ENR_ORGPRISECHARGE<33,I> = (ENR_ORGPRISECHARGE<33,I>/100) / EURO
		ENR_ORGPRISECHARGE<33,I> = (ENR_ORGPRISECHARGE<33,I>*100) + 0.5
		ENR_ORGPRISECHARGE<33,I> = INT(ENR_ORGPRISECHARGE<33,I>)
	   END
	END
	I = I + 1
   REPEAT

   I = 1

   LOOP
   WHILE ENR_ORGPRISECHARGE<34,I> # "" DO
	IF ENR_ORGPRISECHARGE<34,(I+1)> = "" AND ENR_ORGPRISECHARGE<34,I>[1,3] = "999" THEN
	END ELSE
	   IF ENR_ORGPRISECHARGE<34,I> # "" THEN
		ENR_ORGPRISECHARGE<34,I> = (ENR_ORGPRISECHARGE<34,I>/100) / EURO
		ENR_ORGPRISECHARGE<34,I> = (ENR_ORGPRISECHARGE<34,I>*100) + 0.5
		ENR_ORGPRISECHARGE<34,I> = INT(ENR_ORGPRISECHARGE<34,I>)
	   END
	END
	I = I + 1
   REPEAT

   I = 1

   LOOP
   WHILE ENR_ORGPRISECHARGE<35,I> # "" DO
	IF ENR_ORGPRISECHARGE<35,(I+1)> = "" AND ENR_ORGPRISECHARGE<35,I>[1,3] = "999" THEN
	END ELSE
	   IF ENR_ORGPRISECHARGE<35,I> # "" THEN
		ENR_ORGPRISECHARGE<35,I> = (ENR_ORGPRISECHARGE<35,I>/100) / EURO
		ENR_ORGPRISECHARGE<35,I> = (ENR_ORGPRISECHARGE<35,I>*100) + 0.5
		ENR_ORGPRISECHARGE<35,I> = INT(ENR_ORGPRISECHARGE<35,I>)
	   END
	END
	I = I + 1
   REPEAT
   
   I = 1

   IF ENR_ORGPRISECHARGE<48> = "M" THEN
	LOOP
	WHILE ENR_ORGPRISECHARGE<36,I> # "" DO
	   IF ENR_ORGPRISECHARGE<36,(I+1)> = "" AND ENR_ORGPRISECHARGE<36,I>[1,3] = "999" THEN
	   END ELSE
		IF ENR_ORGPRISECHARGE<36,I> # "" THEN
		   ENR_ORGPRISECHARGE<36,I> = (ENR_ORGPRISECHARGE<36,I>/100) / EURO
		   ENR_ORGPRISECHARGE<36,I> = (ENR_ORGPRISECHARGE<36,I>*100) + 0.5
		   ENR_ORGPRISECHARGE<36,I> = INT(ENR_ORGPRISECHARGE<36,I>)
		END
	   END
	   I = I + 1
	REPEAT
   END

   WRITE ENR_ORGPRISECHARGE ON F.ORGPRISECHARGE,W_Cle
REPEAT

STOP
