EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DETAILPREST" TO F.DETAILPREST ELSE STOP
OPEN "", "DETAILMANDAT" TO F.DETAILMANDAT ELSE STOP
OPEN "", "CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP

W_TypeAct = ""
LOOP
PRINT "Type d'activit (P/M) ?"
INPUT W_TypeAct
W_TypeAct = TRIM(W_TypeAct)
IF W_TypeAct = "" THEN
PRINT "Abandon."
STOP
END
IF W_TypeAct = "m" THEN
	 W_TypeAct = "M" 
END
IF W_TypeAct = "p" THEN
	 W_TypeAct = "P" 
END

WHILE W_TypeAct # "M" AND W_TypeAct # "P" 
REPEAT


W_Mois = ""
W_An = ""
LOOP
PRINT "Periode (AAAAMM) ?"
INPUT W_Periode
IF W_Periode = "" THEN
	PRINT "Traitement abandonn."	
	STOP
END
IF LEN(W_Periode) = 6 AND NUM(W_Periode) THEN 
   W_Mois = W_Periode[5,2]
   W_An = W_Periode[1,4]
   IF W_Mois < 1 OR W_Mois > 12 THEN
	W_Mois = ""
   END
   IF W_An < 2006 OR W_An > 2050 THEN
	W_An = ""
   END
END ELSE
	PRINT "Mauvaise longueur."
END
WHILE W_Mois = "" OR W_An = ""
REPEAT


IF W_TypeAct = "P" THEN
	EXECUTE 'SELECT DETAILPREST AVEC PeriodeDetailPrest = "':W_Periode:'" AND AVEC 5 = "840" PAR NomPrenomAidantDetailPrest'
	W_Att = 5
	
END ELSE
	EXECUTE 'SELECT DETAILMANDAT AVEC PeriodeDetailMandat = "':W_Periode:'" AND AVEC 1 = "840" PAR NomPrenomAidantMandat PAR NomPrenomAideMandat'	
	W_Att = 1
	
END

W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	W_Passe = "V"
	IF W_TypeAct = "P" THEN
		READ ENR FROM F.DETAILPREST, W_Cle ELSE W_Passe = "F"
	END ELSE
		READ ENR FROM F.DETAILMANDAT, W_Cle ELSE W_Passe = "F"
	END
IF W_Passe = "V" THEN
  READ ENR_CONTRAT FROM F.CONTRAT, W_Cle[1,8] THEN
   READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_Cle[1,5] THEN
	i = 0
	LOOP
	i = i + 1
	WHILE ENR<W_Att,i> # "840" AND ENR<W_Att,i> # ""
	REPEAT
	IF ENR<W_Att,i> = "840" THEN
		W_Hres = ENR<W_Att+1,i>/100"R2 7"
	END ELSE
		W_Hres = 0"R2 7"
	END		
	IF W_TypeAct = "M" THEN
		READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle ELSE ENR_CIVILAIDE = ""
		PRINT W_Cle[1,5]:" ":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:" - ":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>:"  : ":W_Hres
	END ELSE
		PRINT W_Cle[1,5]:" ":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>:"  : ":W_Hres
	END
   END
  END
END
REPEAT



STOP
