EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "FACTURAIDETRIM" TO F.FACTURAIDETRIM ELSE STOP


EXECUTE 'SELECT FACTURAIDETRIM'
EXECUTE 'SAUVE-LISTE W_ReqConvFactAideTrim'
EXECUTE 'LISTE W_ReqConvFactAideTrim' RETURNING MSGCODE

IF MSGCODE # 209 THEN
SELECT F.FACTURAIDETRIM TO W_ReqConvFactAideTrim

W_Fin = "F"

LOOP
	READNEXT W_Cle FROM W_ReqConvFactAideTrim  ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_FACTURAIDETRIM FROM F.FACTURAIDETRIM,W_Cle ELSE ENR_FACTURAIDETRIM = ""
	i = 0
	LOOP
		i = i +1
	WHILE ENR_FACTURAIDETRIM<5,i> # ""
		IF ENR_FACTURAIDETRIM<4,i> # "" THEN
		    ENR_FACTURAIDETRIM<4,i> = INT(ENR_FACTURAIDETRIM<4,i> / 6.55957 + 1/2)
		    ENR_FACTURAIDETRIM<5,i> = INT(ENR_FACTURAIDETRIM<4,i> * ENR_FACTURAIDETRIM<3,i> / 100 + 1/2)
		END ELSE
		    ENR_FACTURAIDETRIM<5,i> = INT(ENR_FACTURAIDETRIM<5,i> / 6.55957 + 1/2)		
		END
	REPEAT
	WRITE ENR_FACTURAIDETRIM ON F.FACTURAIDETRIM, W_Cle
REPEAT

END
STOP
