** COMPARE LA LIGNE 805 HRES DIFF DU BS
** AVEC LE SUIVI DE CONTRAT


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

PRINT "PERIODE A VERIFIER (AAAAMM)"
INPUT W_PERIODE

EXECUTE 'SELECT CONTRAT AVEC 1 = "01" AND AVEC 68 = "1" AND AVEC 65 # "O" AND AVEC 76 = "':W_PERIODE:'"'

W_FIN=0
W_DIFF=0
W_DIFFCUMUL=0

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

	READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT=""
	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE:W_PERIODE ELSE ENR_DETAILCALCUL=""

	* RECHERCHE RUB 805
	I=1	
	LOOP
		UNTIL ENR_DETAILCALCUL<2,I>="805" OR ENR_DETAILCALCUL<2,I>="" DO
		I=I+1
	REPEAT

	* RECHERCHE DIFF DANS CONTRAT 
	J=1
	LOOP
		UNTIL ENR_CONTRAT<76,J>=W_PERIODE OR ENR_CONTRAT<76,J>=""
		J=J+1
	REPEAT

	IF ENR_CONTRAT<76,J>=W_PERIODE OR ENR_DETAILCALCUL<2,I>="805" THEN
		IF -ENR_DETAILCALCUL<3,I>#ENR_CONTRAT<80,J> THEN
			W_DIFF=-ENR_DETAILCALCUL<3,I>-ENR_CONTRAT<80,J>
			W_DIFFCUMUL=W_DIFFCUMUL+W_DIFF
			PRINT "ERREUR SUR LA CLE ":CLE:" DIFF = ":W_DIFF:" DERN BULL = ":ENR_CONTRAT<58>
		END
	END
REPEAT

PRINT "CUMUL = ":W_DIFFCUMUL
