**************************************************************
*	TRAITEMENT POUR CALCULER LE NBRE D'INTERVENTIONS AINSI	 *
*		QUE LE TOTAL D'HEURES POUR UNE PERIODE DONNEE		 *
* ---------------------------------------------------------- *
* Valentin										 le 27/09/07 *
**************************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","TPSTEMPO" TO F.TEMPO ELSE PRINT "ERREUR OUVERTURE TEMPO"

*PROCREAD PARAMETRES ELSE STOP
*DATEDEB = FIELD(PARAMETRES,"|",2)
*DATEFIN = FIELD(PARAMETRES,"|",3)
*W_ASSO = FIELD(PARAMETRES,"|",4)


LOOP
	PRINT "SAISIR LA DATE DE DEBUT (JJ/MM/AAAA) "
	INPUT DATEDEB
WHILE LEN(DATEDEB)#10
	PRINT "LE FORMAT N'EST PAS CORRECT"
REPEAT

LOOP
	PRINT "SAISIR LA DATE DE FIN (JJ/MM/AAAA) "
	INPUT DATEFIN
WHILE LEN(DATEFIN)#10
	PRINT "LE FORMAT N'EST PAS CORRECT"
REPEAT

DATEDEB=ICONV(DATEDEB,"D4/")
DATEFIN=ICONV(DATEFIN,"D4/")


EXECUTE 'AFFICHEPLANNING |INDICINTERV||PM|':DATEDEB:'|':DATEFIN:'||||E'

w_cumulinterv=0
*w_cumulheure=0
w_cumulheure2=0
w_cumulintervM=0
w_cumulheure2M=0
*DEBUG

PRINT "TRAITEMENT DE CALCUL DU NBRE D'INTERVENTIONS ET DU NBRE D'HEURES"

**On lit le fichier gnr par le pr afficheplanning
READ ENR_TEMPO FROM F.TEMPO,"AFFICHEPLANNINGINDICINTERV" THEN

	FOR i=1 TO DCOUNT(ENR_TEMPO,CHAR(254))
		FOR y=1 TO DCOUNT(ENR_TEMPO<i,1>,CHAR(252))
			
			IF ENR_TEMPO<i,1,y>[1,7]="IntervP" THEN
				w_cumulinterv=w_cumulinterv+1
				w_cumulheure2=w_cumulheure2+ENR_TEMPO<i,5,y>
			END
			IF ENR_TEMPO<i,1,y>[1,7]="IntervM" THEN
				w_cumulintervM=w_cumulintervM+1
				w_cumulheure2M=w_cumulheure2M+ENR_TEMPO<i,5,y>
			END			
		NEXT y
	NEXT i
	
END


PRINT "Nombre d'interventions Prestataire= ":w_cumulinterv
PRINT "Nombre d'heures traitees Prestataire= ":w_cumulheure2/100

PRINT "Nombre d'interventions Mandataire= ":w_cumulintervM
PRINT "Nombre d'heures traitees Mandataire= ":w_cumulheure2M/100

STOP