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

EXECUTE 'SELECT GRILLESCC AVEC 0 >= "[100" AND AVEC CcuConvColCc = "VRAI"'

W_FIN = "FAUX"
W_Cle = ""

LOOP
	READNEXT W_Cle ELSE W_FIN = "VRAI"
WHILE W_FIN = "FAUX"
	READ ENR_GRILLESCC FROM F.GRILLESCC, W_Cle THEN
		BEGIN CASE
			CASE W_Cle[5,1]=0
				ENR_GRILLESCC<7>="A"
			CASE W_Cle[5,1]=1
				ENR_GRILLESCC<7>="B"
			CASE W_Cle[5,1]=2
				ENR_GRILLESCC<7>="C"
			CASE W_Cle[5,1]=3
				ENR_GRILLESCC<7>="D"
			CASE W_Cle[5,1]=4
				ENR_GRILLESCC<7>="E"
			CASE W_Cle[5,1]=5
				ENR_GRILLESCC<7>="F"
			CASE W_Cle[5,1]=6
				ENR_GRILLESCC<7>="G"
			CASE W_Cle[5,1]=7
				ENR_GRILLESCC<7>="H"
			CASE W_Cle[5,1]=8
				ENR_GRILLESCC<7>="I"
		END CASE
		WRITE ENR_GRILLESCC ON F.GRILLESCC,W_Cle
	END
REPEAT
STOP
