***********************************************************
* VERIFICATION DES CUMULS PAR RAPPORT AUX VALEURS DE MOIS *
* ALAIN 17/10/2001                                        *
***********************************************************

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

EXECUTE 'SSELECT BALANCEGENE PAR 0 '

W_FINI = "FAUX"	
CUMUL5 = 0
CUMUL6 = 0
*PRINTER ON

LOOP
	READNEXT CLE ELSE W_FINI = "VRAI"
WHILE W_FINI = "FAUX"

	READ ENR_BALANCEGENE FROM F.BALANCEGENE,CLE ELSE ENR_BALANCEGENE = ""

	I = 1

	LOOP
	WHILE ENR_BALANCEGENE<5,I> # ""
		CUMUL5 = CUMUL5 + ENR_BALANCEGENE<5,I>
		I = I + 1
	REPEAT	

	I = 1

	LOOP
	WHILE ENR_BALANCEGENE<6,I> # ""
		CUMUL6  = CUMUL6 + ENR_BALANCEGENE<6,I>
		I = I + 1
	REPEAT

	IF CUMUL5 = "" THEN
		CUMUL5 = 0
	END

	IF CUMUL6 = "" THEN
		CUMUL6 = 0
	END

	IF ENR_BALANCEGENE<1> = "" THEN
		ENR_BALANCEGENE<1> = 0
	END

	IF ENR_BALANCEGENE<2> = "" THEN
		ENR_BALANCEGENE<2> = 0
	END

	IF CUMUL5 <> ENR_BALANCEGENE<1> THEN
		PRINT CLE:' ':ENR_BALANCEGENE<1>:' ':ENR_BALANCEGENE<2>:' ':CUMUL5:' ':CUMUL6
	END

	IF CUMUL6 <> ENR_BALANCEGENE<2> THEN
		PRINT CLE:' ':ENR_BALANCEGENE<1>:' ':ENR_BALANCEGENE<2>:' ':CUMUL5:' ':CUMUL6
	END

	CUMUL5 = 0
	CUMUL6 = 0

REPEAT

STOP
