* MOULINETTE DE MAJ ATT 11 12 13 DE ACCORD

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

EXECUTE 'SELECT ACCORD AVEC 1="047" OR="124"'
W_FINI="FAUX"

LOOP

   	READNEXT W_CLE ELSE W_FINI="VRAI"

WHILE W_FINI="FAUX" DO

	READ ENR_ACCORD FROM F.ACCORD,W_CLE THEN

		I=1
		LOOP
   		WHILE ENR_ACCORD<10,I>="" DO
			I=I+1
		REPEAT

		ENR_ACCORD<11>="11963"
		ENR_ACCORD<12>=""
		ENR_ACCORD<13>=INT((7920*ENR_ACCORD<10,I>)/10000)
		WRITE ENR_ACCORD ON F.ACCORD,W_CLE
	END
REPEAT
STOP

