EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "", "SECTEUR" TO F.SECTEUR ELSE STOP

PRINT "Liste des aidants sans bulletins" 
PRINT " "

W_PerDeb = ""
LOOP
WHILE W_PerDeb = ""
PRINT "Priode de dbut (AAAAMM) ?"
INPUT W_PerDeb
IF TRIM(W_PerDeb) = "" THEN
   PRINT "Traitement abandonn."
   STOP
END
W_Annee = W_PerDeb[1,4]
W_Mois = W_PerDeb[5,2]
IF W_PerDeb # W_Annee:W_Mois OR ICONV("01/":W_Mois:"/":W_Annee,"D4/") = "" THEN
   PRINT "Erreur dans la saisie de la priode."
   W_PerDeb = ""
END
REPEAT

W_PerFin = ""
LOOP
WHILE W_PerFin = ""
PRINT "Priode de dbut (AAAAMM) ?"
INPUT W_PerFin
IF TRIM(W_PerFin) = "" THEN
   PRINT "Traitement abandonn."
   STOP
END
W_Annee = W_PerFin[1,4]
W_Mois = W_PerFin[5,2]
IF W_PerFin # W_Annee:W_Mois OR ICONV("01/":W_Mois:"/":W_Annee,"D4/") = "" THEN
   PRINT "Erreur dans la saisie de la priode."
   W_PerFin = ""
END
REPEAT

EXECUTE 'SELECT CIVILAIDANT AVEC 36 = "" PAR NomSecteur PAR 2 PAR 3'
EXECUTE 'SAUVE-LISTE W_ReqAidantsSansHeures'
EXECUTE 'LISTE W_ReqAidantsSansHeures' RETURNING MSGCODE
IF MSGCODE<1> # "209" THEN
   SELECT F.CIVILAIDANT TO W_ReqAidantsSansHeures
   PRINTER ON
   W_Fin = "F"
   W_Secteur = ""
   LOOP
	READNEXT W_Cle FROM W_ReqAidantsSansHeures ELSE W_Fin = "V"
   WHILE W_Fin = "F"
	EXECUTE 'SELECT DETAILCALCUL = "':W_Cle:']" AVEC PeriodeDetailCalcul >= "':W_PerDeb:'" AND AVEC PeriodeDetailCalcul <= "':W_PerFin:'"' 
	READNEXT W_CleDetail THEN
		W_Fin = "F"
	END ELSE
		GOSUB 100
		W_Fin = "V"
	END
	LOOP WHILE W_Fin = "F"
		READNEXT W_CleDetail ELSE W_Fin = "V"
	REPEAT
   REPEAT
END
STOP

100 ********************************
* Impression aidant 
READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_Cle THEN
	IF ENR_CIVILAIDANT<31> # W_Secteur THEN
	   W_Secteur = ENR_CIVILAIDANT<31>
	   READ ENR_SECTEUR FROM F.SECTEUR, W_Secteur ELSE
	   	ENR_SECTEUR = ""
	   END
	END ELSE
	IF ENR_CIVILAIDANT<31> = "" THEN
		ENR_SECTEUR = ""
	END
	END
	PRINT W_Cle:" ":(ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>)[1,51]"L 52":ENR_SECTEUR<1>
END ELSE
	* rien
END
RETURN
