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

*******************************************************************
*        		Passage aux 35 heures :			  *
*   Liste des aidants ayant effectu + de 26 heures hebomadaires  *
*   		      en moyenne sur l'annee 2000                 *
*								  *
*******************************************************************

PRINTER ON

EXECUTE 'SELECT FIPAY AVEC  3 = "[0" AND AVEC NON DATE-SORTIE PAR 3 PAR NOM-PRENOM'
EXECUTE 'SAUVE-LISTE W_FIPAY' 
EXECUTE 'LISTE W_FIPAY' RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
	
	SELECT F.FIPAY TO W_FIPAY	

	W_Fini = "Faux"
	W_TamponCodeAnalytique = ""
	W_PREMIEREPAGE = "VRAI"

	LOOP
	
		READNEXT W_CLEPAY FROM W_FIPAY ELSE W_Fini = "Vrai"
		W_CUMULS397 = 0
		W_CUMULSRESTE = 0

	WHILE W_Fini = "Faux"
		
		READ ENR_FIPAY FROM F.FIPAY, W_CLEPAY ELSE ENR_FIPAY = ""
		
		
			FOR W_PERIODE = 1 TO 12	
				W_PERIODE = W_PERIODE"R%4"
				
				READ ENR_CUMULS FROM F.CUMULSBIS, W_CLEPAY:W_PERIODE ELSE ENR_CUMULS = ""
				I=1
				LOOP 
				WHILE ENR_CUMULS<1,I> # ""
					IF ENR_CUMULS<1,I> = 397 THEN
						W_CUMULS397 = W_CUMULS397 + ENR_CUMULS<3,I>
					END ELSE
						IF ENR_CUMULS<1,I> = 227 OR ENR_CUMULS<1,I> = 217 THEN
							W_CUMULSRESTE = W_CUMULSRESTE + ENR_CUMULS<3,I>
						END
					END
					I=I+1
				REPEAT
			NEXT W_PERIODE
	
			* cumuls effectus : dtermination de la duree effective
			* 31/12/00 : 12054
			
			IF (12054 - ENR_FIPAY<14>) / 7 > 45  THEN
				W_NBSEMAINES = 45
			END ELSE
				W_NBSEMAINES = INT((12054 - ENR_FIPAY<14>) / 7)
			END

			W_NBHEURESTOTAL = W_CUMULS397 - W_CUMULSRESTE
			W_NBHEURESHEBDO = INT(W_NBHEURESTOTAL / W_NBSEMAINES)
			
			* listage des aidants concernes :
			* Attention : un saut de page a chaque chgt de code analytique
			IF ENR_FIPAY<3> # W_TamponCodeAnalytique OR W_NbLignes >= 65 THEN
				* saut de page
				IF W_PREMIEREPAGE # "VRAI" THEN
					PAGE
				END ELSE
					W_PREMIEREPAGE = "FAUX"
				END
				PRINT "Salarie                          Code       Date      Nb d'heures"
				PRINT "                              Analytique  d'entree    total  hebdo"
				PRINT ""
				W_NbLignes = 3
				W_TamponCodeAnalytique = ENR_FIPAY<3>
			END
			W_HresTotales = W_NBHEURESTOTAL "R26(#7)"
			W_HresHebdo = W_NBHEURESHEBDO "R26(#6)"  		
			PRINT ENR_FIPAY<1>"L 30":"  ":ENR_FIPAY<3>"R%6":"   ":OCONV(ENR_FIPAY<14>,"D4/"):"   ":W_HresTotales:"    ":W_HresHebdo
			W_NbLignes = W_NbLignes + 1 
			
	REPEAT
END
