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

EXECUTE 'SSELECT HISTORCUMUL AVEC @ID = "[2001001"'

PRINTER ON

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

	W_009=0
	W_010=0

	READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,CLE ELSE ENR_HISTORCUMUL=""
	I=1
	LOOP
		UNTIL ENR_HISTORCUMUL<15,I>="" DO

		IF ENR_HISTORCUMUL<15,I>="009" THEN W_009=ENR_HISTORCUMUL<17,I>
**		IF ENR_HISTORCUMUL<15,I>="010" THEN W_010=ENR_HISTORCUMUL<17,I>

		I=I+1
	REPEAT	

	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE[1,5] ELSE ENR_CIVILAIDANT=""
	
	IF W_009#0 THEN PRINT ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:" ----> ":W_009

**	IF W_009#W_010 THEN
**		IF W_009#0 AND W_010#0 THEN 
**			PRINT CLE:" / ":W_009:" ---- ":W_010:" DIFF = ":W_009-W_010
**			W_T9=W_T9+W_009
**			W_T10=W_T10+W_010
**		END
**	END

REPEAT

PRINTER OFF
