*********************************************
* conversion du fichier des immobilisations *
*********************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","IMMO" TO F.IMMO ELSE PRINT "OUVERTURE IMMO" ;* en lecture criture

EXECUTE 'SELECT IMMO'

W_End="FAUX"

LOOP
	READNEXT W_Cle ELSE W_End = "VRAI"
WHILE W_End = "FAUX" DO
	READ ENR_IMMO FROM F.IMMO,W_Cle ELSE ENR_IMMO=""

	IF ENR_IMMO<3> # "" THEN
	   ENR_IMMO<3> = ENR_IMMO<3> / 6.55957
	   ENR_IMMO<3> = INT(ENR_IMMO<3> + (1/2))
	END
	IF ENR_IMMO<9> # "" THEN
	   ENR_IMMO<9> = ENR_IMMO<9> / 6.55957
	   ENR_IMMO<9> = INT(ENR_IMMO<9> + (1/2))
	END
	IF ENR_IMMO<10> # "" THEN
	   ENR_IMMO<10> = ENR_IMMO<10> / 6.55957
	   ENR_IMMO<10> = INT(ENR_IMMO<10> + (1/2))
	END

	WRITE ENR_IMMO ON F.IMMO,W_Cle

REPEAT

STOP
