* REGROUPE 2 RUBRIQUES DE CHARGES DANS HISTORCUMUL

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

PRINT "Annee (AAAA)"
INPUT W_An
PRINT "Entit juridique"
INPUT W_Assoc
PRINT "1ere rubrique"
INPUT W_RUB1
PRINT "2eme rubrique  regrouper"
INPUT W_RUB2

EXECUTE 'SELECT HISTORCUMUL AVEC 0 = "[':W_An:W_Assoc:'"'

W_FIN=0

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

	READ ENR_HISTORCUMUL FROM F.HISTOR,CLE ELSE ENR_HISTORCUMUL=""
	I=1
	W_Ind=0

	LOOP
	UNTIL ENR_HISTORCUMUL<15,I>=W_RUB1 OR ENR_HISTORCUMUL<15,I>="" DO
		I=I+1
	REPEAT

	IF ENR_HISTORCUMUL<15,I>=W_RUB1 THEN 
		W_Ind=I
	END

	I=1
	LOOP
	UNTIL ENR_HISTORCUMUL<15,I>=W_RUB2 OR ENR_HISTORCUMUL<15,I>="" DO
		I=I+1
	REPEAT
	IF ENR_HISTORCUMUL<15,I>=W_RUB2 AND W_Ind # 0 THEN 
		ENR_HISTORCUMUL<16,I>=ENR_HISTORCUMUL<16,I>+ENR_HISTORCUMUL<16,W_Ind>
		ENR_HISTORCUMUL<17,I>=ENR_HISTORCUMUL<17,I>+ENR_HISTORCUMUL<17,W_Ind>
		ENR_HISTORCUMUL<18,I>=ENR_HISTORCUMUL<18,I>+ENR_HISTORCUMUL<18,W_Ind>
		ENR_HISTORCUMUL<19,I>=ENR_HISTORCUMUL<19,I>+ENR_HISTORCUMUL<19,W_Ind>

   		ENR_HISTORCUMUL=DELETE(ENR_HISTORCUMUL,15,W_Ind)
   		ENR_HISTORCUMUL=DELETE(ENR_HISTORCUMUL,16,W_Ind)
   		ENR_HISTORCUMUL=DELETE(ENR_HISTORCUMUL,17,W_Ind)
   		ENR_HISTORCUMUL=DELETE(ENR_HISTORCUMUL,18,W_Ind)
   		ENR_HISTORCUMUL=DELETE(ENR_HISTORCUMUL,19,W_Ind)

  		WRITE ENR_HISTORCUMUL ON F.HISTOR,CLE
	END


REPEAT

STOP
