* COMPTE LE NBRE DE BENEFICIAIRE MANDAT + PREST AYANT DES HRES (019 OU 018) SUR UNE PERIODE
* 

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

PRINTER ON

PRINT "                         STATISTIQUES PAR TRANCHES D'HEURE SUR DECEMBRE 2001        "
PRINT ""
******************************************************************
*COMPTE LES EMPLOYEURS SUR L'ANNEE
******************************************************************

* MANDATAIRE

EXECUTE 'SELECT DETAILCALCUL AVEC @ID = "[200112" AND AVEC ConvColContratDetailCalcul = "02" PAR CodeAidantDetailCalcul'
W_FINI="FAUX"

W_CODE=""
W_ANCIENCODE=""
W_HRESPAYEES=0
W_TOTM75=0
W_TOT85=0
W_TOT120=0
W_TOT151=0
W_TOTP151=0

LOOP
   READNEXT W_CLE ELSE W_FINI="VRAI"
WHILE W_FINI="FAUX" DO

    	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_CLE ELSE ENR_DETAILCALCUL= ""
	W_CODE = W_CLE[1,5]

	IF W_CODE # W_ANCIENCODE THEN
		IF W_ANCIENCODE # "" THEN
			IF W_HRESPAYEES > "15101" THEN
				W_TOTP151 = W_TOTP151 + 1
			END ELSE
				IF W_HRESPAYEES > "11999" THEN
					W_TOT151 = W_TOT151 + 1
				END ELSE
					IF W_HRESPAYEES > "8599" THEN
						W_TOT120 = W_TOT120 + 1
					END ELSE
						IF W_HRESPAYEES > "7500" THEN
							W_TOT85 = W_TOT85 + 1
						END ELSE
							W_TOTM75 = W_TOTM75 + 1
						END
					END
				END
			END
		END
		W_ANCIENCODE = W_CODE
		W_HRESPAYEES = 0
	END

	W_HRESPAYEES=W_HRESPAYEES+ENR_DETAILCALCUL<6>

REPEAT

IF W_HRESPAYEES > "15101" THEN
	W_TOTP151 = W_TOTP151 + 1
END ELSE
	IF W_HRESPAYEES > "11999" THEN
		W_TOT151 = W_TOT151 + 1
	END ELSE
		IF W_HRESPAYEES > "8599" THEN
			W_TOT120 = W_TOT120 + 1
		END ELSE
			IF W_HRESPAYEES > "7500" THEN
				W_TOT85 = W_TOT85 + 1
			END ELSE
				W_TOTM75 = W_TOTM75 + 1
			END
		END
	END
END


PRINT "NOMBRE DE SALARIES MANDATAIRE AYANT FAIT MOINS DE 75 HEURES : ":W_TOTM75
PRINT "NOMBRE DE SALARIES MANDATAIRE AYANT FAIT ENTRE 75 ET 85 HEURES: ":W_TOT85
PRINT "NOMBRE DE SALARIES MANDATAIRE AYANT FAIT ENTRE 85 ET 120 HEURES: ":W_TOT120
PRINT "NOMBRE DE SALARIES MANDATAIRE AYANT FAIT ENTRE 120 ET 151 HEURES: ":W_TOT151
PRINT "NOMBRE DE SALARIES MANDATAIRE AYANT FAIT PLUS DE 151 HEURES : ":W_TOTP151

STOP



