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

W_Annee = 0
LOOP
PRINT "Saisissez l'anne sur laquelle vous voulez le nombre d'heures par activit (AAAA)"
INPUT W_Annee
WHILE W_Annee < 2000 OR W_Annee > 2020
REPEAT

W_DateFinAn = ICONV("31/12/":W_Annee,"D4/")
W_DateDebAn = ICONV("01/01/":W_Annee,"D4/")

EXECUTE 'SELECT CONTRAT AVEC 65 # "O" AND AVEC 7 <= "':W_DateFinAn:'" AND AVEC 8 >= "':W_DateDebAn:'" OR = "" PAR LibSecteurEmployeur PAR @ID'
W_Fin = "F"
W_TamponSect = ""
W_TamponAidant = ""
W_Nb=0
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
 	  READ ENR_CIVILAIDE FROM F.CIVILAIDE, ENR_CONTRAT<3> THEN
	    IF ENR_CIVILAIDE<40>[1,3] # W_TamponSect THEN
		  IF W_TamponSect # "" THEN
			GOSUB 100			
		  END
		  W_TamponSect = ENR_CIVILAIDE<40>[1,3]
		  W_TamponAidant = ""
		  W_Nb=0
	    END
	  END
	  IF W_TamponAidant # W_Cle[1,5] THEN
		W_Nb = W_Nb + 1
		W_TamponAidant = W_Cle[1,5]
	  END
	END
REPEAT
GOSUB 100
STOP

100
******************************
*   
READ ENR_SECTEUR FROM F.SECTEUR, W_TamponSect ELSE ENR_SECTEUR<1> = "Non renseigne"
PRINT W_TamponSect:" ":ENR_SECTEUR<1>"L 50":" : ":W_Nb"R 4"		
RETURN
