EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE 
PRINT "Ouverture fichier CivilAidant"
STOP
END

LOOP
PRINT "Mois  considrer (AAAAMM)"
INPUT W_Mois
W_DateDeb = "01/":W_Mois[5,2]:"/":W_Mois[1,4]
W_DateDeb  = ICONV(W_DateDeb,"D4/")
WHILE INT(W_DateDeb) < 10000 AND INT(W_DateDeb) > 99999
PRINT "Mois non reconnu !"
REPEAT

W_MoisTemp = W_Mois[5,2] + 1
W_MoisTemp = W_MoisTemp"R%2"
W_DateFin = "01/":W_MoisTemp:"/":W_Mois[1,4]
W_DateFin = ICONV(W_DateFin,"D4/")

W_NbDispo = 0
W_NbPersMois = 0
W_NbPersFinMois = 0

EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul = "':W_Mois:'"'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
   READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_Cle[1,5] THEN
	W_NbPersMois = W_NbPersMois + 1
	IF ENR_CIVILAIDANT<36> = "" OR INT(ENR_CIVILAIDANT<36>) >= INT(W_DateFin) THEN
	  W_NbPersFinMois = W_NbPersFinMois + 1 
	END
	
   END
REPEAT

OPEN "", "FACTURAIDE" TO F.FACTURAIDE ELSE 
PRINT "Erreur ouverture Facturaide"
END

EXECUTE 'SELECT FACTURAIDE AVEC @ID = "[I':W_Mois:']"'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
   READ ENR_FACTURAIDE FROM F.FACTURAIDE, W_Cle THEN
	W_TabAidant = ""
	W_NbDispo = W_NbDispo + 1
	i = 0
	LOOP
	i = i + 1
	WHILE ENR_FACTURAIDE<10,i> # ""
	   W_NbDispo = W_NbDispo + 1
	REPEAT
   END
REPEAT

PRINT "Nombre de personnes mises a disposition actives en fin de mois : ":W_NbPersFinMois
PRINT " "
PRINT "Nombre de personnes mises a disposition au cours du mois : ":W_NbPersMois
PRINT " "
PRINT "Nombre de contrats de mise a disposition au cours du mois : ":W_NbDispo
STOP




