OPEN "","FACTURORG" TO F.FACTURORG ELSE STOP
OPEN "","HRESHISTOR" TO F.HRESHISTOR ELSE STOP

W_RequeteMoul=""

PRINT "Code Organisme du conseil gnral :":
INPUT W_CodOrg

PRINT "Priode :":
INPUT W_Periode

W_NbHeure=0
W_TabSalarie=""
W_NbSalarie=0
W_NbAide=0

EXECUTE 'SELECT FACTURORG AVEC 0 ="':W_CodOrg:']" AND AVEC PeriodeFacturOrg = "':W_Periode:'"'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
	SELECT F.FACTURORG TO W_RequeteMoul

	W_Fini="FAUX"
	LOOP
		READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
	WHILE W_Fini="FAUX" DO
		READ ENR_FACTURORG FROM F.FACTURORG,W_Cle THEN
			* on part du principe que 'lon a un seul FACTURORG par aid car on est sur un mois et on ne prend pas les heures en attente
			W_NbAide=W_NbAide+1
			W_NbHeure=W_NbHeure+ENR_FACTURORG<1>+ENR_FACTURORG<5>
			W_CodeAide=W_Cle[5,5]
			* entit en dur
			READ ENR_HRESHISTOR FROM F.HRESHISTOR,W_CodeAide:"001":W_Periode THEN
				FOR i=1 TO DCOUNT(ENR_HRESHISTOR,CHAR(253))
					IF INDEX(W_TabSalarie,ENR_HRESHISTOR<1,i>,1) = 0 THEN
						W_TabSalarie<-1>=ENR_HRESHISTOR<1,i>
					END
				NEXT i
			END
		END
	  
	REPEAT

	W_NbSalarie=DCOUNT(W_TabSalarie,CHAR(254))
	
END

PRINT "Nb Heure CG : ":W_NbHeure/100
PRINT "Nb Salari CG :":W_NbSalarie
PRINT "Nb Aid CG :":W_NbAide

EXECUTE 'EFFACER-LISTE W_RequeteMoul'

STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON