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

EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul = "200610" AND AVEC TypeActivite = "P" AND AVEC 8 = "037"'

W_FIN = 0

EXECUTE 'COMO ON TESTRUB'

LOOP
	READNEXT CLE ELSE W_FIN = 1
	UNTIL W_FIN = 1

	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE ENR_DETAILCALCUL = ""

	I = 0
	BASEREGUL = 0
MONTREGUL = 0
	LOOP
		I=I+1
	WHILE ENR_DETAILCALCUL<8,I> # "" 
		IF ENR_DETAILCALCUL<8,I> = "037" THEN
			BASEREGUL = ENR_DETAILCALCUL<9,I>
			MONTREGUL = INT((ENR_DETAILCALCUL<9,I>*(1/1000))+(1/2))
			IF MONTREGUL # ENR_DETAILCALCUL<14,I> THEN
				PRINT CLE:' CHG BUL : ':ENR_DETAILCALCUL<14,I> :' MONT REEL : ':MONTREGUL
			END
		END

	REPEAT

REPEAT

EXECUTE 'COMO OFF'

STOP
