EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "", "ACTIVITES" TO F.ACTIVITES ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "CONTRAT" TO F.CONTRAT 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

GOSUB 100


EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul = "':W_Annee:']" AND AVEC ConvColContratDetailCalcul = "02" PAR NomSectDetailCalcul PAR ActSaisieHHCal'

PRINTER ON 
PRINT "         Nombre d'heures par secteur et par activite"
PRINT " "

W_TabAct = ""

W_Fin = "F"
W_TamponSecteur = ""
W_TotalHeuresGene = 0
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle THEN
	  READ ENR_CONTRAT FROM F.CONTRAT,W_Cle[1,8] THEN
	    READ ENR_CIVILAIDE FROM F.CIVILAIDE, ENR_CONTRAT<3> THEN
		IF ENR_CIVILAIDE<40>[1,3] # W_TamponSecteur THEN
			IF W_TamponSecteur # "" THEN
				GOSUB 200
			END
			W_TamponSecteur = ENR_CIVILAIDE<40>[1,3]
		END
	    END	
	  END
	  W_COUNT = DCOUNT(ENR_DETAILCALCUL<24,CHAR(253))
	  FOR i = 1 TO W_COUNT
		IF ENR_DETAILCALCUL<26,i> # "" THEN
			W_TabAct<ENR_DETAILCALCUL<26,i>> = INT(W_TabAct<ENR_DETAILCALCUL<26,i>>) + ENR_DETAILCALCUL<25,i>
		END ELSE
			W_TabAct<999> = INT(W_TabAct<999>) + ENR_DETAILCALCUL<25,i>
		END
	  NEXT i
	END
REPEAT

GOSUB 200
PRINT " "
PRINT "Nombre d'heures total sur l'annee (tous secteurs confondus) ":W_TotalHeuresGene/100"R2""R 10"
STOP


100
*********
* Remplissage Tableau W_Activite
EXECUTE 'SELECT ACTIVITES PAR @ID'
W_Fin = "F"
W_Activite = ""
W_NbAct = 0
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_ACTIVITES FROM F.ACTIVITES, W_Cle THEN
		W_NbAct = W_NbAct + 1
		W_Activite<W_NbAct,1> = W_Cle
		W_Activite<W_NbAct,2> = ENR_ACTIVITES<1>[1,50]"L 50"
	END
REPEAT
W_NbAct = W_NbAct + 1
W_Activite<W_NbAct,1> = 999
W_Activite<W_NbAct,2> = "Activite non renseignee""L 50"
RETURN

200
************
* Impression secteur
READ ENR_SECTEUR FROM F.SECTEUR, W_TamponSecteur ELSE ENR_SECTEUR<1> = "Non renseigne"
W_TotalHeuresSecteur = 0
PRINT " "
PRINT "Secteur : ":ENR_SECTEUR<1>
PRINT " "
FOR i = 1 TO W_NbAct
W_TotalHeuresSecteur = W_TotalHeuresSecteur + INT(W_TabAct<W_Activite<i,1>>)
W_TabAct<W_Activite<i,1>> = W_TabAct<W_Activite<i,1>>/100
W_TabAct<W_Activite<i,1>> = W_TabAct<W_Activite<i,1>>"R2"
W_TabAct<W_Activite<i,1>> = W_TabAct<W_Activite<i,1>>"R 12"
PRINT W_Activite<i,2>:" : ":W_TabAct<W_Activite<i,1>>
NEXT i 
W_TotalHeuresGene = W_TotalHeuresGene + W_TotalHeuresSecteur
W_TotalHeuresSecteur = W_TotalHeuresSecteur/100
W_TotalHeuresSecteur = W_TotalHeuresSecteur"R2"
W_TotalHeuresSecteur = W_TotalHeuresSecteur"R 12"
PRINT " "
PRINT "Nombre total d'heures effectuees sur le secteur    : ":W_TotalHeuresSecteur
PRINT " "
W_TabAct = ""
RETURN
