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

OPEN "","ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE STOP
OPEN "","RIBAIDANT" TO F.RIBAIDANT ELSE STOP

* FICHIER AIDANT
READ ENR_FUSIONRIBAIDANT FROM F.FUSION,"RIBAIDANT" ELSE ENR_FUSIONRIBAIDANT=""

I=1
LOOP
	UNTIL ENR_FUSIONRIBAIDANT<I>="" DO

	IF ENR_FUSIONRIBAIDANT<I,6>#"" THEN
		READ ENR_RIBAIDANT FROM F.RIBAIDANT,ENR_FUSIONRIBAIDANT<I,1> ELSE ENR_RIBAIDANT=""
			ENR_RIBAIDANT<3>=ENR_FUSIONRIBAIDANT<I,6>
			ENR_RIBAIDANT<4>=ENR_FUSIONRIBAIDANT<I,7>
			ENR_RIBAIDANT<5>=ENR_FUSIONRIBAIDANT<I,8>
			ENR_RIBAIDANT<6>=ENR_FUSIONRIBAIDANT<I,9>
		WRITE ENR_RIBAIDANT ON F.RIBAIDANT,ENR_FUSIONRIBAIDANT<I,1>
	END
		
	I=I+1
REPEAT

* FICHIER AIDE
READ ENR_FUSIONRIBAIDE FROM F.FUSION,"RIBAIDE" ELSE ENR_FUSIONRIBAIDE=""

I=1
LOOP
	UNTIL ENR_FUSIONRIBAIDE<I>="" DO

	IF ENR_FUSIONRIBAIDE<I,6>#"" THEN
		READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE,ENR_FUSIONRIBAIDE<I,1> ELSE ENR_ELTSFACTAIDE=""
			ENR_ELTSFACTAIDE<18>=ENR_FUSIONRIBAIDE<I,6>
			ENR_ELTSFACTAIDE<19>=ENR_FUSIONRIBAIDE<I,7>
			ENR_ELTSFACTAIDE<20>=ENR_FUSIONRIBAIDE<I,8>
			ENR_ELTSFACTAIDE<21>=ENR_FUSIONRIBAIDE<I,9>
		WRITE ENR_ELTSFACTAIDE ON F.ELTSFACTAIDE,ENR_FUSIONRIBAIDE<I,1>
	END
		
	I=I+1
REPEAT

