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

EXECUTE 'SELECT ACCORD AVEC 1 = "146" AND AVEC 6 >= "13697"'

W_FIN=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	READ ENR_ACCORD FROM F.ACCORD,CLE THEN

		IF ENR_ACCORD<11,1>#"13697" THEN
			ENR_ACCORD=INSERT(ENR_ACCORD,10,1;ENR_ACCORD<10,1>)
			ENR_ACCORD=INSERT(ENR_ACCORD,11,1;"136972")
			ENR_ACCORD=INSERT(ENR_ACCORD,12,1;ENR_ACCORD<12,1>)
			ENR_ACCORD=INSERT(ENR_ACCORD,13,1;INT((1668*ENR_ACCORD<10,1>)/10000+1/2))
		END
		
		WRITE ENR_ACCORD ON F.ACCORD,CLE
	END
REPEAT
