***************************************************
* PROGRAMME DE TRAITEMENT DU REPERTOIRE DES AIDES *
* POUR ACCELERER LE TEMPS DE TRAITEMENT  ...      *
*                                                 *
* Jrme                            MARS 2000     *
*                                                 *
* MODIFIER POUR ACCELERER LA MISE EN FORME        *
*  Cline                           AOUT 2000     *
* MODIF PAR RAPPORT AUX COMMUNES                  *
*  Jrme                           OCTO 2000     *
* MODIFS SUITE AU CHANGEMENT DU MASQUE :          *
*    Changement de la selection                   *
*  Gregory                          SEPT 2002     *
* MODIF EDITION GRAPHIQUE OU PAR LISTE			  *
*  Valentin							AOUT 2007	  *
***************************************************


***************************
* Ouvertures des fichiers *
***************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACTIVITESBISAIDE" TO F.ACTIVITESBISAIDE ELSE PRINT "ACTIVITESBISAIDE"
OPEN "","ACTIVITES" TO F.ACTIVITES ELSE PRINT "ACTIVITES"
OPEN "","TEMPOREPAIDE" TO F.TEMPOREPAIDE ELSE PRINT "TEMPOREPAIDE"
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "CIVILAIDE"
OPEN "","TEMPO" TO F.TEMPO ELSE PRINT "TEMPO" 
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE PRINT "ACTIVITESAIDE"
OPEN "","RESPONSABLE" TO F.RESPONSABLE ELSE PRINT "RESPONSABLE"
OPEN "","ENVIRONAIDE" TO F.ENVIRONAIDE ELSE PRINT "ENVIRONAIDE"
OPEN "","STATAIDE" TO F.STATAIDE ELSE PRINT "STATAIDE"
OPEN "","SECTEUR" TO F.SECTEUR ELSE PRINT "SECTEUR"

******************************
* Recuperation des arguments *
******************************
PROCREAD ARGUMENTS ELSE PRINT "Procread"

W_ASSOC=FIELD(ARGUMENTS,"|",2)
W_CODEACTIVITE=FIELD(ARGUMENTS,"|",3)
W_EDITEXCLU=FIELD(ARGUMENTS,"|",4)
W_TYPESELECTION=FIELD(ARGUMENTS,"|",5)
W_CODESELECTION=FIELD(ARGUMENTS,"|",6)
W_DEBUT=FIELD(ARGUMENTS,"|",7)
W_FIN=FIELD(ARGUMENTS,"|",8)
W_TYPEETAT=FIELD(ARGUMENTS,"|",9)
W_TYPETRI=FIELD(ARGUMENTS,"|",10)
W_USER=FIELD(ARGUMENTS,"|",11)
W_PREST=FIELD(ARGUMENTS,"|",12)
W_MANDAT=FIELD(ARGUMENTS,"|",13)
W_INTER=FIELD(ARGUMENTS,"|",14)
W_SSIAD=FIELD(ARGUMENTS,"|",15)
W_NBRCHX=FIELD(ARGUMENTS,"|",16)

W_Edition=FIELD(ARGUMENTS,"|",17)

W_CODEAIDE=""
ENR_ENVIRONAIDE=""


ENR_GRAPH<1>="Code Aid;Nom;Prnom;Adresse1;Adresse2;Code Postal;Commune;Secteur;Responsable;Tlphone1;Tlphone2;Date de dbut d'activit;Date de fin d'activit;Personne  prvenir;Tlphone personne  prvenir"
ENR_GRAPH2=""
*ENR_GRAPH2<1>="Code Aid;Nom;Prnom;Adresse1;Adresse2;Code Postal;Commune;Secteur;Responsable;Tlphone1;Tlphone2;Date de dbut d'activit;Date de fin d'activit;Personne  prvenir;Tlphone personne  prvenir"
y=2

W_RESULTAT = ""
W_REQUETETRIAIDE = ""

W_TEST=""
W_ACTIVITE=""
W_SELECTDATE=""
L=0
W_ACTIVITEDETAIL="Faux"
W_CHXACTIVITES=""
TABACTIVITES=""
W_TABLEAUACT = ""
W_Trouve = ""
iAct = 0
 

I = 0

*********************
* TRAITEMENT GLOBAL *
*********************
	
	EXECUTE 'VIDER-FICHIER TEMPOREPAIDE'
	W_SELECTION=""
	W_SELECTION2=""


	W_ARRONDISSEMENT=""
	IF W_CODESELECTION[1,5]="PARIS" THEN
		W_CHAINE=FIELD(W_CODESELECTION," ",2)
		IF W_CHAINE #"1ER" THEN
			W_ARRONDISSEMENT=W_CHAINE "L%2"
		END ELSE
			W_ARRONDISSEMENT="01"
		END
		W_ARRONDISSEMENT="[":W_ARRONDISSEMENT
	END

	BEGIN CASE
		CASE W_TYPEETAT MATCHES "A"
			W_SELECTDATE = ' AND AVEC DateDebAct <= "':W_FIN:'" AND AVEC 1 >= "':W_DEBUT:'" OR = ""'
		CASE W_TYPEETAT MATCHES "D"
			W_SELECTDATE = ' AND AVEC DateDebAct >= "':W_DEBUT:'" AND AVEC DateDebAct <= "':W_FIN:'"'
		CASE W_TYPEETAT MATCHES "F"
			W_SELECTDATE = ' AND AVEC 1 >= "':W_DEBUT:'" AND AVEC 1 <= "':W_FIN:'"'
	END CASE

	
	
	* TRI
	IF W_Edition="Graphique" THEN
		W_TRI = ' PAR NomPrenomBisAide PAR CodeAide'
		
		*IF W_TYPETRI="F" THEN
		*	W_TRI= ' PAR-DECR NomPrenomBisAide PAR CodeAide PAR-DECR 1'
		*END
		
	END ELSE
		
		BEGIN CASE
			CASE W_TYPETRI MATCHES "A"
				W_TRI = ' PAR NomPrenomBisAide PAR CodeAide'
			CASE W_TYPETRI MATCHES "D"
				W_TRI = ' PAR-DECR NomPrenomBisAide PAR CodeAide PAR DateDebAct'
			CASE W_TYPETRI MATCHES "F"
				W_TRI = ' PAR-DECR NomPrenomBisAide PAR CodeAide PAR-DECR 1'
		END CASE
		
	END


	IF W_CODEACTIVITE = "" THEN
		*IF W_EDITEXCLU = "Faux" OR W_EDITEXCLU = "False" THEN
			IF W_NBRCHX = "1" THEN
				IF W_PREST = "Vrai" OR W_PREST = "True" THEN
					W_ACTIVITE='AND AVEC TypeActBisAide = "':"P":'"' 
					W_CHXACTIVITES=W_CHXACTIVITES:"P"
				END
				IF W_MANDAT = "Vrai" OR W_MANDAT = "True" THEN
					W_ACTIVITE='AND AVEC TypeActBisAide = "':"M":'"' 
					W_CHXACTIVITES=W_CHXACTIVITES:"M"
				END
				IF W_INTER = "Vrai" OR W_INTER = "True" THEN
					W_ACTIVITE='AND AVEC TypeActBisAide= "':"I":'"' 
					W_CHXACTIVITES=W_CHXACTIVITES:"I"
				END
				IF W_SSIAD = "Vrai" OR W_SSIAD = "True" THEN
					W_ACTIVITE='AND AVEC TypeActBisAide = "':"S":'"' 
					W_CHXACTIVITES=W_CHXACTIVITES:"S"
				END
			END ELSE
				IF W_PREST = "Vrai" OR W_PREST = "True" THEN
					W_ACTIVITE='AND AVEC TypeActBisAide = "':"P":'"' 
					W_CHXACTIVITES=W_CHXACTIVITES:"P"
				END			
				IF W_MANDAT = "Vrai" OR W_MANDAT = "True" THEN
					IF W_ACTIVITE="" THEN
						W_ACTIVITE='AND AVEC TypeActBisAide = "':"M":'"' 
					END ELSE
						W_ACTIVITE=W_ACTIVITE:' OR = "':"M":'"'
					END
					W_CHXACTIVITES=W_CHXACTIVITES:"M"
				END
				IF W_INTER = "Vrai" OR W_INTER = "True" THEN
					IF W_ACTIVITE="" THEN
						W_ACTIVITE='AND AVEC TypeActBisAide = "':"I":'"' 
					END ELSE
						W_ACTIVITE=W_ACTIVITE:' OR = "':"I":'"'
					END
					W_CHXACTIVITES=W_CHXACTIVITES:"I"
				END
				IF W_SSIAD = "Vrai" OR W_SSIAD = "True" THEN
					W_ACTIVITE=W_ACTIVITE:' OR = "':"S":'"'
					W_CHXACTIVITES=W_CHXACTIVITES:"S"
				END		
			END
		*END ELSE	
		*	IF W_PREST = "Vrai" OR W_PREST = "True" THEN
		*		W_ACTIVITE='AND AVEC TypeActBisAide = "':"P":'"' 
		*		W_CHXACTIVITES=W_CHXACTIVITES:"P"
		*	END			
		*	IF W_MANDAT = "Vrai" OR W_MANDAT = "True" THEN
		*		IF W_ACTIVITE="" THEN
		*			W_ACTIVITE='AND AVEC TypeActBisAide = "':"M":'"' 
		*		END ELSE
		*			W_ACTIVITE=W_ACTIVITE:' AND AVEC TypeActBisAide = "':"M":'"'
		*		END
		*		W_CHXACTIVITES=W_CHXACTIVITES:"M"
		*	END
		*	IF W_INTER = "Vrai" OR W_INTER = "True" THEN
		*		IF W_ACTIVITE="" THEN
		*			W_ACTIVITE='AND AVEC TypeActBisAide = "':"I":'"' 
		*		END ELSE
		*			W_ACTIVITE=W_ACTIVITE:' AND AVEC TypeActBisAide = "':"I":'"'
		*		END
		*		W_CHXACTIVITES=W_CHXACTIVITES:"I"
		**	END
		*	IF W_SSIAD = "Vrai" OR W_SSIAD = "True" THEN
		*		W_ACTIVITE=W_ACTIVITE:' AND AVEC TypeActBisAide = "':"S":'"'
		*		W_CHXACTIVITES=W_CHXACTIVITES:"S"
		*	END
		*END
	
		IF W_TYPESELECTION = "R" THEN
			IF W_CODESELECTION # "" THEN
				W_SELECTION =' AND AVEC CodeResponsableBisAide = "':W_CODESELECTION:'"'
			END ELSE
				W_TRI = ' PAR RespBisAide':W_TRI
			END
		END ELSE
			IF W_TYPESELECTION = "S" THEN
				IF W_CODESELECTION # "" THEN
					W_SELECTION =' AND AVEC CodeSecteurBisAide = "':W_CODESELECTION:'"'
				END ELSE
					W_TRI = ' PAR SecteurBisAide':W_TRI
				END
			END ELSE
				IF W_TYPESELECTION = "C" THEN
					IF W_CODESELECTION # "" THEN
						IF W_CODESELECTION[1,5]="PARIS" THEN
							W_SELECTION =' AND AVEC LibCommuneBisAide = "':"PARIS]":'" AND AVEC CodeCommuneBisAide= "':W_ARRONDISSEMENT:'"' 
						END ELSE
							W_SELECTION =' AND AVEC LibCommuneBisAide = "':W_CODESELECTION:'"'
						END				
					END ELSE
						W_TRI = ' PAR LibCommuneBisAide':W_TRI
					END
				END
			END
		END

		EXECUTE 'SSELECT ACTIVITESBISAIDE AVEC CodeActBisAide = ':W_ASSOC:' ':W_SELECTION:'':W_SELECTDATE:'':W_ACTIVITE :W_TRI
*		PRINT 'SSELECT ACTIVITESBISAIDE AVEC CodeActBisAide = ':W_ASSOC:' ':W_SELECTION:'':W_SELECTDATE:'':W_ACTIVITE :W_TRI


	END ELSE
		IF W_PREST = "Vrai" OR W_PREST = "True" THEN
			W_ACTIVITE='AND AVEC TypeActBisAide = "':"P":'"' 
			W_CHXACTIVITES=W_CHXACTIVITES:"P"
		END
		IF W_MANDAT = "Vrai" OR W_MANDAT = "True" THEN
			W_ACTIVITE='AND AVEC TypeActBisAide = "':"M":'"' 
			W_CHXACTIVITES=W_CHXACTIVITES:"M"
		END
		IF W_INTER = "Vrai" OR W_INTER = "True" THEN
			W_ACTIVITE='AND AVEC TypeActBisAide = "':"I":'"' 
			W_CHXACTIVITES=W_CHXACTIVITES:"I"
		END
		IF W_SSIAD = "Vrai" OR W_SSIAD = "True" THEN
			W_ACTIVITE='AND AVEC TypeActBisAide = "':"S":'"' 
			W_CHXACTIVITES=W_CHXACTIVITES:"S"
		END
		W_ACTIVITE=W_CODEACTIVITE
		W_ACTIVITEDETAIL = "Vrai"

		IF W_TYPESELECTION = "R" THEN
			IF W_CODESELECTION # "" THEN
				W_SELECTION2 ='AVEC CodeResponsableBisAide = "':W_CODESELECTION:'"'			
			END ELSE
				W_TRI = ' PAR RespBisAide':W_TRI
			END
		END ELSE
			IF W_TYPESELECTION = "S" THEN
				IF W_CODESELECTION # "" THEN
					W_SELECTION2 ='AVEC CodeSecteurBisAide = "':W_CODESELECTION:'"'
				END ELSE
					W_TRI = ' PAR SecteurBisAide':W_TRI
				END
			END ELSE
				IF W_TYPESELECTION = "C" THEN
					IF W_CODESELECTION # "" THEN
						* RAJOUTER CODE POUR TRAITEMENT PARIS PAR RAPPORT AUX COMMUNES
						IF W_CODESELECTION[1,5]="PARIS" THEN
							W_SELECTION2 =' AVEC LibCommuneBisAide = "':"PARIS]":'" AND AVEC CodeCommuneBisAide' 
						END ELSE
							W_SELECTION2 =' AVEC LibCommuneBisAide = "':W_CODESELECTION:'"'
						END
					END ELSE
						W_TRI = ' PAR LibCommuneBisAide':W_TRI
					END
				END
			END
		END
		IF W_SELECTION2<>"" THEN
			EXECUTE 'SSELECT ACTIVITESBISAIDE ':W_SELECTION2:' AND AVEC CodeActBisAide = "':W_ACTIVITE:'"':W_SELECTDATE :W_TRI
*			PRINT 'SSELECT ACTIVITESBISAIDE ':W_SELECTION2:' AND AVEC CodeActBisAide = ':W_ACTIVITE:'':W_SELECTDATE :W_TRI



		END ELSE
			EXECUTE 'SSELECT ACTIVITESBISAIDE AVEC CodeActBisAide = "':W_ACTIVITE:'"':W_SELECTDATE :W_TRI
*			PRINT 'SSELECT ACTIVITESBISAIDE AVEC CodeActBisAide = "':W_ACTIVITE:'"':W_SELECTDATE :W_TRI


		END
	END

	EXECUTE 'SAUVE-LISTE W_RESULTAT'
	EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE	

	IF MSGCODE<1> # 209 THEN
		SELECT F.ACTIVITESBISAIDE TO W_RESULTAT
		W_AIDEANC=""
		GOSUB 750
	END ELSE
		ENR_TEMPO="RIEN"
		WRITE ENR_TEMPO ON F.TEMPO,"REPERTOIREAIDES":W_USER
	END

STOP

*************************************
* PARCOURS FICHIER TEMPOREPAIDE 	*
*************************************
750
	I=0
	L=0
	ENR_TEMPO=""
	W_FINI="FAUX"
	LOOP
		READNEXT W_CLE FROM W_RESULTAT ELSE W_FINI="VRAI"
		
	WHILE W_FINI="FAUX" DO
		GOSUB 800
	REPEAT

	IF W_EDITEXCLU = "Vrai" OR W_EDITEXCLU = "True" THEN
		IF W_NBRCHX = iAct THEN
			*Ecriture de l'aide
			GOSUB 850
		END ELSE
			W_TABLEAUACT = ""
			iAct=0
		END
	END ELSE
		*Ecriture de l'aide
		GOSUB 850
	END
	
	IF ENR_TEMPO = "" THEN
		ENR_TEMPO = "RIEN"
	END
	
	IF W_Edition="Liste" THEN
		WRITE ENR_TEMPO ON F.TEMPO,"REPERTOIREAIDES":W_USER
	END ELSE
		
		GOSUB 126
		
		W_NomFichier="RepAid-":W_ASSOC[2,3]:"-":OCONV(DATE(),"D4/"):"-1.csv"
		W_NomFichier=CONVERT("/","",W_NomFichier)
		
		x=1
		W_BOOOL="FALSE"
		LOOP
			READ ENR_GRAPH3 FROM F.STATAIDE, W_NomFichier ELSE W_BOOOL="TRUE"
			x=x+1
		WHILE W_BOOOL="FALSE" DO
			W_NomFichier=W_NomFichier[1,21]:x:".csv"
		REPEAT
		
		
		FOR i=1 TO DCOUNT(ENR_GRAPH2,CHAR(254))
			IF ENR_GRAPH2<i,1>="0" THEN
				ENR_GRAPH2=DELETE(ENR_GRAPH2,i)
			END
		NEXT i
		
		WRITE ENR_GRAPH2 ON F.STATAIDE, W_NomFichier
		
		** ecriture du nom du fichier pour que le vb le recupere **
		WRITE W_NomFichier ON F.TEMPO,"REPAIDENOMFICHIER"
		
		
	END
	
RETURN

******************************
*ECRITURE DANS FICHIER TEMPO *
******************************
800
	W_Secteur=""
	TabForme=""
	*I=I+1

	W_CODESELECTION=""
	W_AIDE=W_CLE[1,5]
	W_DATEDEB=W_CLE[12,5]
	
	
	READ ENR_ACTIVITESBISAIDE FROM F.ACTIVITESBISAIDE,W_CLE ELSE PRINT "ACTIVITESBISAIDE"

	*IF W_CODEACTIVITE = "" THEN
		W_CODEACTIVITE = W_CLE[6,6]
	*END

	READ ENR_ACTIVITES FROM F.ACTIVITES,W_CODEACTIVITE ELSE PRINT "ACTIVITES"

	

	IF W_AIDE # W_AIDEANC AND W_AIDEANC # "" THEN
		IF W_EDITEXCLU = "Vrai" OR W_EDITEXCLU = "True" THEN
			IF W_NBRCHX = iAct THEN
				*Ecriture de l'aide
				GOSUB 850
			END ELSE
				W_TABLEAUACT = ""
				iAct=0
			END
		END ELSE
			*Ecriture de l'aide
			GOSUB 850
		END
	END

	iAct=iAct +1
	W_TABLEAUACT<iAct,5>=OCONV(W_CLE[12,5],"D4/") "L#13"
	W_TABLEAUACT<iAct,6>=OCONV(ENR_ACTIVITESBISAIDE<1>,"D4/") "L#13"
	W_TABLEAUACT<iAct,7>=ENR_ACTIVITES<12> "L#3"

	W_AIDEANC = W_AIDE
RETURN

***********************************************************************************************
850


 READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_AIDEANC ELSE PRINT "CIVILAIDE"

	IF W_TYPESELECTION = "R" THEN
		W_CODESELECTION = ENR_CIVILAIDE<39>
	END ELSE
		IF W_TYPESELECTION = "S" THEN
			W_Secteur=ENR_CIVILAIDE<40>
			W_CODESELECTION = W_Secteur[1,3]
		END ELSE
			IF W_TYPESELECTION = "C" THEN
				W_CODESELECTION = ENR_CIVILAIDE<11>:CHAR(253):ENR_CIVILAIDE<40>[1,3]
			END ELSE
				W_CODESELECTION = ""
			END
		END
	END


	GOSUB 900


	iAct= 0 

	W_TABLEAUACT<1,1> = W_AIDEANC "L#6"			
	W_TABLEAUACT<1,2> = ENR_CIVILAIDE<2> : " " : ENR_CIVILAIDE<3> 
	W_TABLEAUACT<1,2>= W_TABLEAUACT<1,2>[1,41] "L#41"

	IF MiseEnFormeAdresse1 # "" THEN
		iAct=iAct + 1 
	   	W_TABLEAUACT<iAct,3> = MiseEnFormeAdresse1 "L#37"
	END				

	IF ENR_CIVILAIDE<9> # "" THEN
		iAct=iAct + 1 
	   	W_TABLEAUACT<iAct,3>=ENR_CIVILAIDE<9> "L#37"
	END
	IF ENR_CIVILAIDE<10> # "" AND ENR_CIVILAIDE<11>  # "" THEN
		iAct=iAct + 1 
	   	W_TABLEAUACT<iAct,3>=(ENR_CIVILAIDE<10> : " " : ENR_CIVILAIDE<11>) "L#37"
	END

	W_TABLEAUACT<1,4> = ENR_CIVILAIDE<14> "L#17"

***********************************
*   tri par ordre alphabtique    *
***********************************
IF W_TYPETRI = "A"  OR W_Edition="Graphique" THEN

	
	FOR j = 1 TO DCOUNT(W_TABLEAUACT,CHAR(254))
	   I=I+1
		********************************************************
		*Pour permettre la mise en forme
		IF W_TABLEAUACT<j,1> = "" THEN
			W_ValCode = SPACE(10)
		END ELSE
			W_ValCode = W_TABLEAUACT<j,1>
		END  

		IF W_TABLEAUACT<j,2> = "" THEN
			W_ValNomPrenom = SPACE(37)
		END ELSE
			W_ValNomPrenom = W_TABLEAUACT<j,2>
		END  

		IF W_TABLEAUACT<j,3> = "" THEN
			W_ValAdresse = SPACE(37)
		END ELSE
			W_ValAdresse = W_TABLEAUACT<j,3> 
		END  

		IF W_TABLEAUACT<j,4> = "" THEN
			W_ValTelephone = SPACE(17)
		END ELSE
			W_ValTelephone = W_TABLEAUACT<j,4> 
		END 

		IF W_TABLEAUACT<j,5> = "" THEN
			W_ValDebut = SPACE(13)
		END ELSE
			W_ValDebut = W_TABLEAUACT<j,5> 
		END 

		IF W_TABLEAUACT<j,6> = "" THEN
			W_ValFin = SPACE(13)
		END ELSE
			W_ValFin = W_TABLEAUACT<j,6> 
		END 
	
		IF W_TABLEAUACT<j,7> = "" THEN
			W_ValType = SPACE(3)
		END ELSE
			W_ValType = W_TABLEAUACT<j,7> 
		END 
		********************************************************

	     	ENR_TEMPO<I,1>= "  " : W_ValCode  : W_ValNomPrenom : W_ValAdresse  : W_ValTelephone : W_ValDebut : W_ValFin : W_ValType 
			ENR_TEMPO<I,2>= W_CODESELECTION
			
			GOSUB 125
			
	NEXT j
END

*******************************************
*    tri par date de dbut d'activit     *
*******************************************
IF W_TYPETRI = "D" AND W_Edition="Liste" THEN
	W_Trouve = "Faux"
 
	IF DCOUNT(ENR_TEMPO,CHAR(254)) = 0 THEN
		I = 1
		W_Trouve = "Vrai"
	END ELSE
	   FOR k = 1 TO DCOUNT(ENR_TEMPO,CHAR(254)) 
		IF ENR_TEMPO<k,1>[3,5] # "     " THEN
		   IF ICONV(ENR_TEMPO<k,1>[104,10],"D4/")>= ICONV(W_TABLEAUACT<1,5>,"D4/") THEN
		      I = k
			W_Trouve = "Vrai"
			EXIT
		   END
		END   
	   NEXT k
	END

	* insert  la fin 
	IF W_Trouve = "Faux" THEN
   	   I = DCOUNT(ENR_TEMPO,CHAR(254)) + 1
	END 

	FOR j = 1 TO DCOUNT(W_TABLEAUACT,CHAR(254))
		********************************************************
		*Pour permettre la mise en forme
		IF W_TABLEAUACT<j,1> = "" THEN
			W_ValCode = SPACE(10)
		END ELSE
			W_ValCode = W_TABLEAUACT<j,1>
		END  

		IF W_TABLEAUACT<j,2> = "" THEN
			W_ValNomPrenom = SPACE(37)
		END ELSE
			W_ValNomPrenom = W_TABLEAUACT<j,2>
		END  

		IF W_TABLEAUACT<j,3> = "" THEN
			W_ValAdresse = SPACE(37)
		END ELSE
			W_ValAdresse = W_TABLEAUACT<j,3> 
		END  

		IF W_TABLEAUACT<j,4> = "" THEN
			W_ValTelephone = SPACE(17)
		END ELSE
			W_ValTelephone = W_TABLEAUACT<j,4> 
		END 

		IF W_TABLEAUACT<j,5> = "" THEN
			W_ValDebut = SPACE(13)
		END ELSE
			W_ValDebut = W_TABLEAUACT<j,5> 
		END 

		IF W_TABLEAUACT<j,6> = "" THEN
			W_ValFin = SPACE(13)
		END ELSE
			W_ValFin = W_TABLEAUACT<j,6> 
		END 
	
		IF W_TABLEAUACT<j,7> = "" THEN
			W_ValType = SPACE(3)
		END ELSE
			W_ValType = W_TABLEAUACT<j,7> 
		END 
		********************************************************

	    	ENR_TEMPO = INSERT(ENR_TEMPO,I; "  " : W_ValCode  : W_ValNomPrenom : W_ValAdresse  : W_ValTelephone : W_ValDebut : W_ValFin : W_ValType)
			ENR_TEMPO = REPLACE(ENR_TEMPO,I,2;W_CODESELECTION)
			I=I+1
			
			
			GOSUB 125
			
	NEXT j
END 

****************************************
*   tri par date de fin d'activit     *
****************************************
IF W_TYPETRI = "F" AND W_Edition="Liste" THEN
	W_Trouve = "Faux"
 
      IF DCOUNT(ENR_TEMPO,CHAR(254)) = 0 THEN
		I = 1
		W_Trouve = "Vrai"
	END ELSE
	   FOR k = 1 TO DCOUNT(ENR_TEMPO,CHAR(254)) 
		IF ENR_TEMPO<k,1>[3,5] # "     " THEN
		   IF ICONV(ENR_TEMPO<k,1>[117,10],"D4/")>= ICONV(W_TABLEAUACT<1,6>,"D4/") THEN
		      I = k
			W_Trouve = "Vrai"
			EXIT
		   END
		END   
	   NEXT k
	END 

	IF W_Trouve = "Faux" THEN
	   I = DCOUNT(ENR_TEMPO,CHAR(254)) + 1 
	END 

	FOR j = 1 TO DCOUNT(W_TABLEAUACT,CHAR(254))
	      ********************************************************
		*Pour permettre la mise en forme
		IF W_TABLEAUACT<j,1> = "" THEN
			W_ValCode = SPACE(10)
		END ELSE
			W_ValCode = W_TABLEAUACT<j,1>
		END  

		IF W_TABLEAUACT<j,2> = "" THEN
			W_ValNomPrenom = SPACE(37)
		END ELSE
			W_ValNomPrenom = W_TABLEAUACT<j,2>
		END  

		IF W_TABLEAUACT<j,3> = "" THEN
			W_ValAdresse = SPACE(37)
		END ELSE
			W_ValAdresse = W_TABLEAUACT<j,3> 
		END  

		IF W_TABLEAUACT<j,4> = "" THEN
			W_ValTelephone = SPACE(17)
		END ELSE
			W_ValTelephone = W_TABLEAUACT<j,4> 
		END 

		IF W_TABLEAUACT<j,5> = "" THEN
			W_ValDebut = SPACE(13)
		END ELSE
			W_ValDebut = W_TABLEAUACT<j,5> 
		END 

		IF W_TABLEAUACT<j,6> = "" THEN
			W_ValFin = SPACE(13)
		END ELSE
			W_ValFin = W_TABLEAUACT<j,6> 
		END 
	
		IF W_TABLEAUACT<j,7> = "" THEN
			W_ValType = SPACE(3)
		END ELSE
			W_ValType = W_TABLEAUACT<j,7> 
		END 
		********************************************************
			
	    	ENR_TEMPO = INSERT(ENR_TEMPO,I; "  " : W_ValCode  : W_ValNomPrenom : W_ValAdresse  : W_ValTelephone : W_ValDebut : W_ValFin : W_ValType)
			ENR_TEMPO = REPLACE(ENR_TEMPO,I,2;W_CODESELECTION)
			I=I+1
			
			
			GOSUB 125
			
	NEXT j
END

	W_TABLEAUACT = ""
	iAct=0
RETURN


**************************************
*** ecriture pour option graphique ***
**************************************
125


IF W_CODEAIDE#W_ValCode AND W_ValCode#SPACE(10) THEN
	ENR_GRAPH<y>=W_ValCode:";":ENR_CIVILAIDE<2>:";":ENR_CIVILAIDE<3>:";":ENR_CIVILAIDE<5>:" ":ENR_CIVILAIDE<6>:" ":ENR_CIVILAIDE<7>:" ":ENR_CIVILAIDE<8>
	ENR_GRAPH<y>=ENR_GRAPH<y>:";":ENR_CIVILAIDE<9>:";":ENR_CIVILAIDE<10>:";":ENR_CIVILAIDE<11>:";"
	
	READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDE<40>[1,3] ELSE ENR_SECTEUR=""
	ENR_GRAPH<y>=ENR_GRAPH<y>:ENR_SECTEUR<1>:";"

	READ ENR_RESPONSABLE FROM F.RESPONSABLE, ENR_CIVILAIDE<39> ELSE ENR_RESPONSABLE=""
	ENR_GRAPH<y>=ENR_GRAPH<y>:ENR_RESPONSABLE<1>:";":ENR_CIVILAIDE<14>:";":ENR_CIVILAIDE<16>:";"

	*READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE, W_ValCode ELSE ENR_ACTIVITESAIDE=""
	ENR_GRAPH<y>=ENR_GRAPH<y>:W_ValDebut:";":W_ValFin:";"
	
	READ ENR_ENVIRONAIDE FROM F.ENVIRONAIDE,W_ValCode[1,5] ELSE ENR_ENVIRONAIDE=""
	ENR_GRAPH<y>=ENR_GRAPH<y>:ENR_ENVIRONAIDE<9>:";":ENR_ENVIRONAIDE<10>
	
	W_CODEAIDE=W_ValCode
	y=y+1
END

RETURN
**************************************

**************************************
***   tri pour l'option graphique  ***
**************************************
126


IF W_TYPETRI = "A" THEN
	ENR_GRAPH2=ENR_GRAPH
END

IF W_TYPETRI = "D" THEN
	

	LOOP
	WHILE ENR_GRAPH<1>#""
		
		min=ICONV(FIELD(ENR_GRAPH<1>,";",12),"D4/")
		
		FOR i=1 TO DCOUNT(ENR_GRAPH,CHAR(254))
			
			IF min>ICONV(FIELD(ENR_GRAPH<i>,";",12),"D4/") THEN
				min=ICONV(FIELD(ENR_GRAPH<i>,";",12),"D4/")
			END
			
		NEXT i
		
		FOR i=1 TO DCOUNT(ENR_GRAPH,CHAR(254))
			
			IF min=ICONV(FIELD(ENR_GRAPH<i>,";",12),"D4/") THEN
				ENR_GRAPH2<-1>=ENR_GRAPH<i>
				ENR_GRAPH=DELETE(ENR_GRAPH,i)
				i=i-1
			END
			
		NEXT i
		
	REPEAT
	
END

	IF W_TYPETRI = "F" THEN
		
		
		
		ENR_GRAPH4=""
		
		FOR i=2 TO DCOUNT(ENR_GRAPH,CHAR(254))
			
			
			
			IF FIELD(ENR_GRAPH<i>,";",13)#SPACE(13) THEN
				
				ENR_GRAPH4<-1>=ENR_GRAPH<i>
				ENR_GRAPH=DELETE(ENR_GRAPH,i)
			END
		NEXT i
		
		
		
		LOOP
		WHILE ENR_GRAPH4#""
			
			max=ICONV(FIELD(ENR_GRAPH4<1>,";",13),"D4/")
			
			
			
			
			FOR i=1 TO DCOUNT(ENR_GRAPH4,CHAR(254))
				
				
				
				IF max<ICONV(FIELD(ENR_GRAPH4<i>,";",13),"D4/") THEN
					max=ICONV(FIELD(ENR_GRAPH4<i>,";",13),"D4/")
				END
				
			NEXT i
			
			
			
			y=DCOUNT(ENR_GRAPH4,CHAR(254))
			FOR i=1 TO DCOUNT(ENR_GRAPH4,CHAR(254))
				
				IF max=ICONV(FIELD(ENR_GRAPH4<i>,";",13),"D4/") THEN
					ENR_GRAPH5<-1>=ENR_GRAPH4<i>
					ENR_GRAPH4=DELETE(ENR_GRAPH4,i)
					i=i-1
				END
				
				IF ENR_GRAPH4<1>="" THEN
					i=y
				END
				
			NEXT i
			
		REPEAT
		
		
		FOR i=1 TO DCOUNT(ENR_GRAPH5,CHAR(254))
			ENR_GRAPH<-1>=ENR_GRAPH5<i>
		NEXT i
		
		ENR_GRAPH2=ENR_GRAPH
	END



RETURN
**************************************

   

***********************
*MISE EN FORME ADRESSE*
***********************
900
	
	MiseEnFormeAdresse1 = ""

    	IF ENR_CIVILAIDE<5> # "" THEN
        	MiseEnFormeAdresse1 = ENR_CIVILAIDE<5>:SPACE(1)
    	END
    
    	IF ENR_CIVILAIDE<6> # "" THEN
        	MiseEnFormeAdresse1 = MiseEnFormeAdresse1:ENR_CIVILAIDE<6>:SPACE(1)
   	END
    
    	IF ENR_CIVILAIDE<7> # "" THEN
        	MiseEnFormeAdresse1 = MiseEnFormeAdresse1:ENR_CIVILAIDE<7>:SPACE(1)
    	END
    
    	IF ENR_CIVILAIDE<8> # "" THEN
        	MiseEnFormeAdresse1 = MiseEnFormeAdresse1:ENR_CIVILAIDE<8>
    	END
RETURN
