**********************************************************************************************************************************
* REMPLIR LE FICHIER ANNOTFACT POUR TOUTES LES PERS AYANT UNE ACTIVITE OUVERTE AU 01/06/02
**********************************************************************************************************************************

*OUVERTURE DE FICHIERS
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE STOP
OPEN "","ANNOTFACT" TO F.ANNOTFACT ELSE STOP

*INITIALISATION DES VARIABLES
W_RequeteAct=""
W_PHRASE=""
W_PHRASE1=""
W_CodAsso=""
W_TypAct=""
W_Count=""
ENR_ANNOTFACT=""
ENR_ACTIVITES=""
ENR_ACTIVITESAIDE=""

*PRINTER ON

*EXECUTION DE LA REQUETE
EXECUTE 'SSELECT ACTIVITESAIDE AVEC FinActiviteAide >= "01/06/02" OR = ""'
EXECUTE 'SAUVE-LISTE W_RequeteAct'
EXECUTE "LISTE W_RequeteAct" RETURNING MSGCODE

IF MSGCODE<1>#209 THEN
	*SELECTION DE LA REQUETE
	SELECT F.ACTIVITESAIDE TO W_RequeteAct

	i=0
	W_FINI="FAUX"

	LOOP
		READNEXT W_Cle FROM W_RequeteAct ELSE W_FINI="VRAI"
	WHILE W_FINI="FAUX" DO
		READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_Cle ELSE ENR_ACTIVITESAIDE= ""

		IF ENR_ACTIVITESAIDE<1> # "" THEN

			W_Count=DCOUNT(ENR_ACTIVITESAIDE<1>,CHAR(253))
			FOR i=1 TO W_Count
				IF ENR_ACTIVITESAIDE<3,i> >= "01/06/02" THEN
					READ ENR_ACTIVITES FROM F.ACTIVITES,ENR_ACTIVITESAIDE<1,i> ELSE ENR_ACTIVITE=""
					W_TypAct=ENR_ACTIVITES<12>
					W_CodAsso=ENR_ACTIVITESAIDE<1,i>[1,3]
					W_PHRASE="A compter du 1er juillet 2002, les bureaux seront ouverts du lundi au "
					W_PHRASE1="vendredi de 8h  17h sans interruption."
					ENR_ANNOTFACT<1>=W_PHRASE
					ENR_ANNOTFACT<2>=W_PHRASE1	
					ENR_ANNOTFACT<4>="12692"
					WRITE ENR_ANNOTFACT ON F.ANNOTFACT,W_Cle[1,5]:W_CodAsso:W_TypAct
				END ELSE
					IF ENR_ACTIVITESAIDE<3,i> = "" THEN
						READ ENR_ACTIVITES FROM F.ACTIVITES,ENR_ACTIVITESAIDE<1,i> ELSE ENR_ACTIVITE=""
						W_TypAct=ENR_ACTIVITES<12>
						W_CodAsso=ENR_ACTIVITESAIDE<1,i>[1,3]
						W_PHRASE="A compter du 1er juillet 2002, les bureaux seront ouverts du lundi au "
						W_PHRASE1="vendredi de 8h  17h sans interruption."
						ENR_ANNOTFACT<1>=W_PHRASE
						ENR_ANNOTFACT<2>=W_PHRASE1	
						ENR_ANNOTFACT<4>="12692"
						WRITE ENR_ANNOTFACT ON F.ANNOTFACT,W_Cle[1,5]:W_CodAsso:W_TypAct
					END
				END
			NEXT i	
		END
	REPEAT

END


STOP
