* 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
PRINT "RUB 2"
INPUT W_RUB2

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

W_FIN=0
W_TOTAL=0
W_TOTAL2=0
W_DIFFTOTALE = 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 THEN 
			W_TOTAL=W_TOTAL+ENR_HISTORCUMUL<17,I>
			W_T1=ENR_HISTORCUMUL<17,I>
		END
		IF ENR_HISTORCUMUL<15,I>=W_RUB2 THEN
			W_TOTAL2=W_TOTAL2+ENR_HISTORCUMUL<17,I>	
			W_T2=ENR_HISTORCUMUL<17,I>
		END
 
		I=I+1
	REPEAT

	IF 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
		W_DIFFTOTALE = W_DIFFTOTALE + W_T1-W_T2
	END
	 
REPEAT

PRINT " "
PRINT " Total rub ":W_RUB1:" : ":W_TOTAL/100
PRINT " Total rub ":W_RUB2:" : ":W_TOTAL2/100
PRINT "Differences cumulees : ":W_DIFFTOTALE/100

EXECUTE 'COMO OFF'

STOP
