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

EXECUTE "COMO ON LENSMANDAT.TXT"

W_Sauve = ""
W_Aide=""
W_Cumul=0
W_Req=""
W_Contrat=""
EXECUTE 'SELECT DETAILCALCUL AVEC ConvColContratDetailCalcul = "02" AND AVEC PeriodeDetailCalcul >= "200201" AND AVEC PeriodeDetailCalcul <= "200211" PAR CodeAidantDetailCalcul PAR CodeAideDetailCalcul'
EXECUTE 'SAUVE-LISTE W_Req'
EXECUTE 'LISTE W_Req' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN

	SELECT F.DETAILCALCUL TO W_Req
	
	W_Fin = "F"
	LOOP
		READNEXT W_Cle FROM W_Req ELSE W_Fin = "V"
	WHILE W_Fin = "F" DO
		READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle THEN
		READ ENR_CONTRAT FROM F.CONTRAT,W_Cle[1,8] ELSE ENR_CONTRAT =""

			IF W_Sauve="" THEN
				W_Sauve=W_Cle[1,5]
				W_Aide=ENR_CONTRAT<3>
  			END
			IF W_Sauve # W_Cle[1,5] OR W_Aide # ENR_CONTRAT<3> THEN

				READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_Sauve:"2002":W_Aide ELSE ENR_HISTORCUMUL =""

				IF INT(W_Cumul) # INT(ENR_HISTORCUMUL<6>) THEN
					PRINT W_Sauve:" ":W_Aide
					PRINT "Cumul BS    : ":W_Cumul
					PRINT "HistorCumul : ":ENR_HISTORCUMUL<6>
					PRINT " "
				END

				W_Sauve=W_Cle[1,5]
				W_Aide=ENR_CONTRAT<3>
				W_Cumul=0

   		    		W_Cumul=W_Cumul+ENR_DETAILCALCUL<15>

			END ELSE

				W_Cumul=W_Cumul+ENR_DETAILCALCUL<15>

			END

		END
	REPEAT

	READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_Sauve:"2002":W_Aide ELSE ENR_HISTORCUMUL =""

	IF INT(W_Cumul) # INT(ENR_HISTORCUMUL<6>) THEN
		PRINT W_Sauve:" ":W_Aide
		PRINT "Cumul BS    : ":W_Cumul
		PRINT "HistorCumul : ":ENR_HISTORCUMUL<6>
		PRINT " "
	END

END

EXECUTE "COMO OFF"

STOP
