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

EXECUTE 'SELECT FACTURAIDE AVEC 0 = "[P201008]"'

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

	ENR_ELTSFACTAIDE=""
	READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE,CLE[1,5] THEN
		ENR_ELTSFACTAIDE<24,1>="201008"
		WRITE ENR_ELTSFACTAIDE ON F.ELTSFACTAIDE,CLE[1,5]
	END

REPEAT
