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

EXECUTE 'SELECT HISTORCUMUL AVEC PeriodeHistCum = "2010"'

EXECUTE 'COMO ON TAXESAL'


* LECTURE TRANCHE TAXE SUR SALAIRE TRANCHE 1
READ ENR_TRANCHE FROM F.TRANCHE,"019" ELSE 
	PRINT "PB LECTURE TRANCHE TAXE SALAIRE 1"
	STOP
END

W_PLANCHER=ENR_TRANCHE<4>
W_PLAFOND=ENR_TRANCHE<5>

* PARCOURS HISTORCUMUL POUR CONTROLER TAXE SUR SALAIRE TR 1 + 2 // HISTORCUMUL
W_FIN=0
J=0
W_TOTAL1=0
W_TOTAL2=0

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

	READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,CLE ELSE ENR_HISTORCUMUL=""
	
	W_TAXETOT=0
	W_TAXE1=0
	W_TAXE11=0
	W_TAXE2=0
	W_TAXE22=0
	
	I=1
	LOOP	
		UNTIL ENR_HISTORCUMUL<15,I>="" DO

		IF ENR_HISTORCUMUL<15,I>="053" THEN W_TAXETOT=ENR_HISTORCUMUL<16,I>
		IF ENR_HISTORCUMUL<15,I>="054" THEN W_TAXE1=ENR_HISTORCUMUL<17,I>
		IF ENR_HISTORCUMUL<15,I>="055" THEN W_TAXE2=ENR_HISTORCUMUL<17,I>

		I=I+1

	REPEAT

	* CONTROLE MONTANT TAXE 1 ET TAXE 2
	IF W_TAXE2 # 0 AND W_TAXE2 # "" THEN 
		W_TAXE22=W_TAXETOT-W_PLAFOND
		W_TAXE11=W_PLAFOND-W_PLANCHER
	END ELSE
		IF W_TAXE1 # 0 AND W_TAXE1 # "" THEN
			W_TAXE22=0
			W_TAXE11=W_TAXETOT-W_PLANCHER
		END
	END

	IF W_TAXE1 # W_TAXE11 OR W_TAXE2 # W_TAXE22 THEN
		PRINT "ERREUR TAXE SALAIRE SUR HISTORCUMUL :":CLE
		PRINT "TAXE 1 = ":W_TAXE1:" AU LIEU DE ":W_TAXE11:" SOIT UNE DIFF DE ":W_TAXE1-W_TAXE11
		PRINT "TAXE 2 = ":W_TAXE2:" AU LIEU DE ":W_TAXE22:" SOIT UNE DIFF DE ":W_TAXE2-W_TAXE22
		PRINT " ***************************************************"
		W_TOTAL1=W_TOTAL1+(W_TAXE1-W_TAXE11)
		W_TOTAL2=W_TOTAL2+(W_TAXE2-W_TAXE22)

		J=J+1
	END
REPEAT

PRINT "NOMBRE D'ERREURS = ":J
PRINT "ERREUR TRANCHE 1 = ":W_TOTAL1
PRINT "ERREUR TRANCHE 2 = ":W_TOTAL2
EXECUTE 'COMO OFF'