* COMPARE 2 RUBRIQUES DE CHARGES ENTRE ELLES DANS HISTORCUMUL
* ET AFFICHE LES DIFFERENCES


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

**EXECUTE 'COMO ON CompRubHistCum.txt'

PRINT "Annee (AAAA)"
INPUT W_An
PRINT "Entit juridique"
INPUT W_Assoc
PRINT "RUB 1"
INPUT W_RUB1
INPUT W_RUB2
INPUT W_RUB3
INPUT W_RUB4
INPUT W_RUB5

PRINT "RUB 2"

INPUT W_RUB11
INPUT W_RUB12
INPUT W_RUB13
INPUT W_RUB14
INPUT W_RUB15

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

W_FIN=0
W_TOTAL=0
W_TOTAL2=0

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

	W_T1=0
	W_T2=0

	READ ENR_HISTORCUMUL FROM F.HISTOR,CLE ELSE ENR_HISTORCUMUL=""
	I=1
	LOOP
		UNTIL ENR_HISTORCUMUL<15,I>="" DO
	
		IF ENR_HISTORCUMUL<15,I>=W_RUB1 OR ENR_HISTORCUMUL<15,I>=W_RUB2 OR ENR_HISTORCUMUL<15,I>=W_RUB3 OR ENR_HISTORCUMUL<15,I>=W_RUB4 OR ENR_HISTORCUMUL<15,I>=W_RUB5 THEN
			W_TOTAL=W_TOTAL+ENR_HISTORCUMUL<17,I>
			W_T1=W_T1+ENR_HISTORCUMUL<17,I>
		END
		IF ENR_HISTORCUMUL<15,I>=W_RUB11 OR ENR_HISTORCUMUL<15,I>=W_RUB12 OR ENR_HISTORCUMUL<15,I>=W_RUB13 OR ENR_HISTORCUMUL<15,I>=W_RUB14 OR ENR_HISTORCUMUL<15,I>=W_RUB15 THEN
			W_TOTAL2=W_TOTAL2+ENR_HISTORCUMUL<17,I>	
			W_T2=W_T2+ENR_HISTORCUMUL<17,I>		
		END
 
		I=I+1
	REPEAT

	IF W_T1 # 0 AND W_T2 # 0 AND INT(W_T1)#INT(W_T2) THEN 
		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE[1,5] ELSE ENR_CIVILAIDANT=""
		PRINT CLE[1,5]:" ":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
		PRINT "RUB  : ":W_RUB1:" ":W_T1/100
		PRINT "RUB  : ":W_RUB2:" ":W_T2/100
		PRINT "DIFF : ":(W_T1-W_T2)/100
		DEBUG
	END

REPEAT

PRINT W_TOTAL
PRINT W_TOTAL2
**EXECUTE 'COMO OFF'

STOP
