EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILMANDAT" TO F.DETAILMANDAT ELSE STOP
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "", "STATACTAIDE" TO F.STATACTAIDE ELSE STOP
OPEN "", "RUBSAISIE" TO F.RUBSAISIE ELSE STOP
OPEN "", "FACTURAIDE" TO F.FACTURAIDE ELSE STOP
*******************************************************************
*	cOMPARAISON DES FRAIS DE GESTION AVEC STATS ACTIVITE MANDATAIRE
*	ATTENTION : valable uniquement si l'asso calcule ses fraisde gestion en fonction des hres travailles !
PRINT "Asso ?"
INPUT Asso
PRINT "Periode (AAAAMM) ?"
INPUT Periode
EXECUTE 'SELECT ACTIVITES = "':Asso:']" AVEC 12 = "M"'
W_Fin = "F"
TabActRef = ""
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
TabActRef<-1> = W_Cle
REPEAT
GOSUB 200
PRINT OCONV(W_Total,"MR2"):" heures rintgres en stat."
PRINT OCONV(W_TotalFact,"MR2"):" heures factures."
STOP
200
W_TotalFact = 0
EXECUTE 'SELECT FACTURAIDE AVEC @ID = "[':Asso:'M':Periode:']" PAR-DECR @ID'
	W_TamponCle = ""
	W_Fini = "Faux"
	LOOP
		READNEXT W_Cle ELSE W_Fini = "Vrai"
	WHILE W_Fini = "Faux"
		IF W_Cle[1,25] # W_TamponCle THEN
			W_MontantFact= 0
		* on ne traite pas 2 fois une facture modifiee...
			READ ENR_FACTURAIDE FROM F.FACTURAIDE, W_Cle ELSE STOP
			W_Count = DCOUNT(ENR_FACTURAIDE<2>, CHAR(253))
			FOR i = 1 TO W_Count
				W_Libelle = ENR_FACTURAIDE<2,i>
				IF W_Libelle[1,16] = "FRAIS DE GESTION" THEN
					W_TotalFact = W_TotalFact + ENR_FACTURAIDE<3,i>
					W_MontantFact = W_MontantFact + ENR_FACTURAIDE<3,i>
				END
			NEXT i
			W_TamponCle = W_Cle[1,25]
			READ ENR_STATACTAIDE FROM F.STATACTAIDE, W_Cle[1,5]:Asso:Periode ELSE ENR_STATACTAIDE = ""
			i=0
			W_MontantStat = 0
			LOOP
			i=i+1
			WHILE ENR_STATACTAIDE<1,i> # ""
			   IF INDEX(TabActRef,ENR_STATACTAIDE<1,i>,1) # 0 THEN
				W_MontantStat = W_MontantStat + ENR_STATACTAIDE<2,i>
			   END	
			REPEAT
			W_Total = W_Total + W_MontantStat
			IF W_MontantStat # W_MontantFact THEN
				PRINT W_Cle[1,5]:" - Stat : ":OCONV(W_MontantStat,"MR2"):" - Fact : ":OCONV(W_MontantFact,"MR2")
			END
		END
	REPEAT
RETURN

