**************************
* Indicateur SAD aids  *
* 						*
* Priscilla + Vanessa + Didier : 10/04/08  *
**************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

***********************************************************

OPEN "", "ACTIVITESBISAIDE" TO F.ACTIVITESBISAIDE ELSE STOP
OPEN "", "ACTIVITES" TO F.ACTIVITES ELSE STOP
OPEN "", "ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
OPEN "", "ABSENCESAIDE" TO F.ABSENCESAIDE ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "SECTEUR" TO F.SECTEUR ELSE STOP
OPEN "", "COMMUNES" TO F.COMMUNES ELSE STOP
OPEN "", "RESPONSABLE" TO F.RESPONSABLE ELSE STOP
OPEN "", "TABLES" TO F.TABLES ELSE STOP
OPEN "", "TEMPO" TO F.TEMPO ELSE STOP

*********************************************************
* Recuperation des arguments
PROCREAD ARGUMENTS ELSE PRINT "RECUP ARGUMENTS"
W_CodAssoc=FIELD(ARGUMENTS,"|",2)
W_TypeAct=FIELD(ARGUMENTS,"|",3)
W_Service=FIELD(ARGUMENTS,"|",4)
W_Tri=FIELD(ARGUMENTS,"|",5)
W_Selection=FIELD(ARGUMENTS,"|",6)
W_DateDeb=FIELD(ARGUMENTS,"|",7)
W_DateFin=FIELD(ARGUMENTS,"|",8)
W_Indicateur=FIELD(ARGUMENTS,"|",9)
W_TypeSorti=FIELD(ARGUMENTS,"|",10)
W_User=FIELD(ARGUMENTS,"|",11)

***********************************************
W_DateArretExt=OCONV(W_DateFin,"D4/")
W_AnneeArret=W_DateArretExt[7,4]
W_MoisArret=W_DateArretExt[4,2]
W_JourArret=W_DateArretExt[1,2]

W_ListeReq=""
ENR_TEMPO=""
W_CodeLibTri=""
W_LibTri=""
W_LigneTab=0
W_AncCodeLibTri=""
W_TabStat=""
W_AncCodeRupture=""
W_Heures=0
W_TABENTSOR=""

BEGIN CASE
 CASE W_Indicateur="1"
	W_LibFic="Indic1"
 CASE W_Indicateur="2"
	W_LibFic="Indic2"
 CASE W_Indicateur="3"
	W_LibFic="Indic3"
	W_TABACTIVITE=""
	EXECUTE 'SELECT ACTIVITES AVEC 0 = "':W_CodAssoc:']" AND AVEC 12 = "':W_TypeAct:'"'
	W_FINACT="NON"
	IAct=1
	LOOP
		READNEXT W_CLEACT ELSE W_FINACT="OUI"
		UNTIL W_FINACT="OUI" DO
			W_TABACTIVITE<1,IAct>=W_CLEACT
			IAct=IAct+1
	REPEAT
 CASE 1
        NULL
END CASE

* Requete
GOSUB 10

W_CleTempo=W_LibFic:W_User

IF MSGCODE<1>#209 THEN

    SELECT F.ACTIVITESBISAIDE TO W_ListeReq
	
    * Traitement slection
    GOSUB 20
END ELSE
   ENR_TEMPO<1>="VIDE"
   WRITE ENR_TEMPO ON F.TEMPO,W_CleTempo
   STOP
END

IF W_Indicateur=2 THEN
	W_TotalPourc=0
	W_PlusGrand=0
	W_Ind=""
	W_Passe="FAUX"
	W_Compte=DCOUNT(W_TabStat,CHAR(254))
	FOR i= 1 TO W_Compte
		IF W_TabStat<i,1>[1,5]="Respo" OR W_TabStat<i,1>[1,5]="Commu" OR W_TabStat<i,1>[1,5]="Secte" OR W_TabStat<i,1>[1,5]="Dpar" OR W_TabStat<i,1>[1,5]="Total" THEN
			IF W_Passe="VRAI" THEN
				W_Diff=100-W_TotalPourc
				IF W_Diff # 0 THEN
					W_TabStat<W_Ind,3>=W_TabStat<W_Ind,3>+W_Diff
				END
			END
			W_TabStat=DELETE(W_TabStat,i,4)
			W_TotalPourc=0
			W_PlusGrand=0
			W_Ind=""
			W_Passe="FAUX"			
		END ELSE
			W_TabStat<i,3>=INT(W_TabStat<i,2>*10000/W_TabStat<i,4>+1/2)
			W_TabStat<i,3>=W_TabStat<i,3>/100
			IF W_TabStat<i,3> > W_PlusGrand THEN
				W_PlusGrand=W_TabStat<i,3>
				W_Ind=i
			END
			W_TotalPourc=W_TotalPourc+W_TabStat<i,3>
			W_TabStat=DELETE(W_TabStat,i,4)
			W_Passe="VRAI"
		END
	NEXT i
	
END

IF W_TypeSorti = "S" THEN
   WRITE W_TabStat ON F.TEMPO,W_CleTempo
END ELSE
	* Gestion graphique
	
	GOSUB 70
	W_TabStat=CONVERT(CHAR(253),";",W_TabStat)
	W_TabStat=CONVERT(CHAR(254),CHAR(13):CHAR(10),W_TabStat)
	
	OPEN "", "STATAIDE" TO F.STAT ELSE STOP
	ENR_TEMPO<1>="STATAIDE"
	
	W_DateGene=OCONV(DATE(),"D4/")
	W_DateGene=W_DateGene[1,2]:W_DateGene[4,2]:W_DateGene[7,4]
	
	NoOrdre=1
	W_LibFic=W_LibFic:"-":W_CodAssoc:"-":W_DateGene:"-"
	W_IndiceLibFic=W_LibFic:NoOrdre:".csv"
	
	LOOP
		READ ENR_STAT FROM F.STAT,W_IndiceLibFic ELSE ENR_STAT=""
	WHILE ENR_STAT<1,1>#"" DO
		NoOrdre=NoOrdre+1
		W_IndiceLibFic=W_LibFic:NoOrdre:".csv"
	REPEAT
	
	WRITE W_TabStat ON F.STAT,W_IndiceLibFic
	ENR_TEMPO<2>=W_IndiceLibFic
	
	WRITE ENR_TEMPO ON F.TEMPO,W_CleTempo
	
END

STOP

*********************************************************************************
* Requete
10

	W_Requete = 'SSELECT ACTIVITESBISAIDE AVEC CodeAssocBisAide = "':W_CodAssoc:'" AND AVEC TypeActBisAide = "':W_TypeAct:'"'
	IF W_Service # "" THEN
		W_Requete = W_Requete:' AND AVEC ServiceAide = "':W_Service:'"'	
	END
	IF W_Indicateur = 1 THEN
		W_Requete = W_Requete:' AND AVEC NaisAide # ""'
	END
	IF W_Selection # "" THEN        
		BEGIN CASE
			CASE W_Tri="R"
				W_Requete = W_Requete:' AND AVEC CodeResponsableBisAide = "':W_Selection:'"'
			CASE W_Tri="S"
				W_Requete = W_Requete:' AND AVEC CodeSecteurBisAide = "':W_Selection:'"'
			CASE W_Tri="C"
				W_Requete = W_Requete:' AND AVEC CommuneBisAide = "':W_Selection:'"'
			CASE W_Tri="D"
				W_Requete = W_Requete:' AND AVEC CodPosAide = "':W_Selection:']"'
		END CASE
	END
	
	W_Requete = W_Requete:' AND AVEC DateDebAct <= "':W_DateFin:'" AND AVEC 1 => "':W_DateDeb:'" OR = ""'
	
	BEGIN CASE
		CASE W_Tri="R"
			W_Requete = W_Requete:' PAR RespBisAide'
		CASE W_Tri="S"
			W_Requete = W_Requete:' PAR SecteurBisAide'
		CASE W_Tri="C"
			W_Requete = W_Requete:' PAR CommuneBisAide'
		CASE W_Tri="D"
			W_Requete = W_Requete:' PAR CodPosAide'
	END CASE
	W_Requete = W_Requete:' PAR CodeAide PAR DateDebAct'        
	
EXECUTE W_Requete
EXECUTE 'SAUVE-LISTE W_ListeReq'
EXECUTE "LISTE W_ListeReq" RETURNING MSGCODE

RETURN

***********************************************************************************
* Traitement de la slection
20

	IF W_Indicateur=1 THEN
		READ ENR_TABLES FROM F.TABLES,"AGEAIDE" ELSE STOP
	END
	IF W_Indicateur=2 THEN
		READ ENR_TABLES FROM F.TABLES,"CONDITIONVIE" ELSE STOP
	END
	
	W_Fini="FAUX"
	LOOP
		READNEXT W_CleReq FROM W_ListeReq ELSE W_Fini="VRAI"
	WHILE W_Fini="FAUX" DO

		W_CodeRupture=W_CleReq[1,5]
		IF W_CodeRupture # W_AncCodeRupture THEN
			READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_CodeRupture ELSE STOP
			W_CodeActBisAide=W_CleReq
			READ ENR_ACTIVITEBISAIDE FROM F.ACTIVITESBISAIDE,W_CodeActBisAide ELSE STOP
			BEGIN CASE
				CASE W_Tri="R"
					W_CodeLibTri=ENR_CIVILAIDE<39>
					READ ENR_RESPONSABLE FROM F.RESPONSABLE,W_CodeLibTri ELSE STOP
					W_LibTri=ENR_RESPONSABLE<1>
				CASE W_Tri="S"
					W_CodeLibTri=ENR_CIVILAIDE<40>
					W_CodeLibTri=W_CodeLibTri[1,3]
					READ ENR_SECTEUR FROM F.SECTEUR,W_CodeLibTri ELSE STOP
					W_LibTri=ENR_SECTEUR<1>
				CASE W_Tri="C"
					W_CodeLibTri=ENR_CIVILAIDE<11>
					W_LibTri=W_CodeLibTri
				CASE W_Tri="D"
					W_CodeLibTri=ENR_CIVILAIDE<10>[1,2]
					W_LibTri=W_CodeLibTri
				CASE W_Tri="T"
					W_CodeLibTri="T"
					W_LibTri="Totalit"
			END CASE
			W_Sexe=ENR_CIVILAIDE<17>
			W_ConditionVie=ENR_CIVILAIDE<52>
			IF W_CodeLibTri # W_AncCodeLibTri THEN
				* Ecriture du critre de tri dans le tableau ( ex : Secteur)
				BEGIN CASE
					CASE W_Tri="R"
						W_LigneTab=W_LigneTab+1
						W_TabStat<W_LigneTab,1>="Responsable"
						W_TabStat<W_LigneTab,2>=W_CodeLibTri
						W_TabStat<W_LigneTab,3>=W_LibTri
					CASE W_Tri="S"
						W_LigneTab=W_LigneTab+1	
						W_TabStat<W_LigneTab,1>="Secteur"
						W_TabStat<W_LigneTab,2>=W_CodeLibTri
						W_TabStat<W_LigneTab,3>=W_LibTri
					CASE W_Tri="C"
						W_LigneTab=W_LigneTab+1
						W_TabStat<W_LigneTab,1>="Commune"
						W_TabStat<W_LigneTab,2>=W_CodeLibTri
					CASE W_Tri="D"
						W_LigneTab=W_LigneTab+1
						W_TabStat<W_LigneTab,1>="Dpartement"
						W_TabStat<W_LigneTab,2>=W_CodeLibTri
				END CASE
				W_SauveLigne=W_LigneTab
				IF W_Indicateur=1 THEN
					W_Virgule1=ENR_TABLES<1,6>
					W_PlaceVir1=INDEX(W_Virgule1,"N",1)
					IF W_PlaceVir1 # 0 THEN
						W_Virgule1="MR":W_Virgule1[W_PlaceVir1+1,1]:","
					END ELSE
						W_Virgule1=""
					END
					W_Virgule2=ENR_TABLES<1,7>
					W_PlaceVir2=INDEX(W_Virgule2,"N",1)
					IF W_PlaceVir2 # 0 THEN
						W_Virgule2="MR":W_Virgule2[W_PlaceVir2+1,1]:","
					END ELSE
						W_Virgule2=""
					END
					W_NbEltsTables=DCOUNT(ENR_TABLES<3>,CHAR(253))
					FOR iTab=1 TO W_NbEltsTables
						W_TabStat<W_LigneTab+iTab,1>="De ":ENR_TABLES<3,iTab> W_Virgule1:"  ":ENR_TABLES<4,iTab> W_Virgule2
						W_TabStat<W_LigneTab+iTab,2>=0
						W_TabStat<W_LigneTab+iTab,3>=0
						W_TabStat<W_LigneTab+iTab,4>=0
					NEXT iTab
			    	W_LigneTab=W_LigneTab+iTab
					W_TabStat<W_LigneTab,1>="Total"
					W_TabStat<W_LigneTab,2>=0
					W_TabStat<W_LigneTab,3>=0
					W_TabStat<W_LigneTab,4>=0
				END
				IF W_Indicateur=2 THEN
					W_NbEltsTables=DCOUNT(ENR_TABLES<3>,CHAR(253))
					FOR iTab=1 TO W_NbEltsTables
						W_TabStat<W_LigneTab+iTab,1>=ENR_TABLES<3,iTab>
						W_TabStat<W_LigneTab+iTab,2>=0
						W_TabStat<W_LigneTab+iTab,3>=0
						W_TabStat<W_LigneTab+iTab,4>=0
					NEXT iTab
			    	W_LigneTab=W_LigneTab+iTab
					W_TabStat<W_LigneTab,1>="Total"
					W_TabStat<W_LigneTab,2>=0
					W_TabStat<W_LigneTab,3>=0
					W_TabStat<W_LigneTab,4>=0
				END
				IF W_Indicateur=3 THEN
			    	W_LigneTab=W_LigneTab+1
					W_TabStat<W_LigneTab,1>="Total"
					W_TabStat<W_LigneTab,2>=0
					W_TabStat<W_LigneTab,3>=0
				END
			END
			IF W_Indicateur=1 THEN
				W_DateStat=OCONV(ENR_CIVILAIDE<20>,"D4/")
				* Calcul les annes d'anciennet ou d'age
				GOSUB 30
				iTab=W_NbEltsTables
				LOOP
				WHILE ENR_TABLES<3,iTab> > W_Valeur AND iTab # 0 DO
					iTab=iTab-1
				REPEAT
				IF iTab # 0 THEN
					IF W_Sexe="M" THEN
						W_TabStat<W_SauveLigne+iTab,2>=W_TabStat<W_SauveLigne+iTab,2>+1
						W_TabStat<W_LigneTab,2>=W_TabStat<W_LigneTab,2>+1
					END ELSE
						W_TabStat<W_SauveLigne+iTab,3>=W_TabStat<W_SauveLigne+iTab,3>+1
						W_TabStat<W_LigneTab,3>=W_TabStat<W_LigneTab,3>+1
					END
					W_TabStat<W_SauveLigne+iTab,4>=W_TabStat<W_SauveLigne+iTab,4>+1
					* Gestion du total en bout de tableau
					W_TabStat<W_LigneTab,4>=W_TabStat<W_LigneTab,4>+1
				END
			END
			IF W_Indicateur=2 THEN
				iTab=W_NbEltsTables
				LOOP
				UNTIL ENR_TABLES<2,iTab> = W_ConditionVie OR iTab = 0 DO
					iTab=iTab-1
				REPEAT
				IF iTab # 0 THEN
					W_TabStat<W_SauveLigne+iTab,2>=W_TabStat<W_SauveLigne+iTab,2>+1
					W_TabStat<W_LigneTab,2>=W_TabStat<W_LigneTab,2>+1
					FOR D=1 TO W_NbEltsTables
						W_TabStat<W_SauveLigne+D,4>=W_TabStat<W_SauveLigne+D,4>+1
					NEXT D
					W_TabStat<W_LigneTab,4>=W_TabStat<W_LigneTab,4>+1
				END
			END
			IF W_Indicateur=3 THEN
				W_TABENTSOR=""
				READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_CodeRupture ELSE ENR_ACTIVITESAIDE=""
				D=1
				LOOP
				UNTIL ENR_ACTIVITESAIDE<1,D>="" DO
					IF ENR_ACTIVITESAIDE<3,D>="" THEN ENR_ACTIVITESAIDE<3,D>=W_DateFin+1
					IF INDEX(W_TABACTIVITE,ENR_ACTIVITESAIDE<1,D>,1)<>0 AND ENR_ACTIVITESAIDE<2,D>#"" AND ENR_ACTIVITESAIDE<2,D><W_DateFin THEN
						E=1
						W_FINPARCOURS="NON"
						LOOP
						UNTIL W_FINPARCOURS="OUI" OR W_TABENTSOR<1,E>="" DO
							IF W_TABENTSOR<1,E>>ENR_ACTIVITESAIDE<3,D> THEN
								IF ENR_ACTIVITESAIDE<3,D>>=W_DateDeb THEN
									W_TABENTSOR=INSERT(W_TABENTSOR,1,E;ENR_ACTIVITESAIDE<2,D>)
									W_TABENTSOR=INSERT(W_TABENTSOR,2,E;ENR_ACTIVITESAIDE<3,D>)
									W_FINPARCOURS="OUI" 
								END
							END ELSE
								IF W_TABENTSOR<2,E>>ENR_ACTIVITESAIDE<3,D> THEN
									W_TABENTSOR<1,E>=ENR_ACTIVITESAIDE<2,D>
									W_FINPARCOURS="OUI"
								END ELSE
									IF ENR_ACTIVITESAIDE<2,D>>W_TABENTSOR<2,E> THEN
										W_TABENTSOR=INSERT(W_TABENTSOR,1,E+1;ENR_ACTIVITESAIDE<2,D>)
										W_TABENTSOR=INSERT(W_TABENTSOR,2,E+1;ENR_ACTIVITESAIDE<3,D>)
										W_FINPARCOURS="OUI" 
									END ELSE
										IF ENR_ACTIVITESAIDE<2,D><W_TABENTSOR<1,E> THEN W_TABENTSOR<1,E>=ENR_ACTIVITESAIDE<2,D>
										W_TABENTSOR<2,E>=ENR_ACTIVITESAIDE<3,D>
										W_FINPARCOURS="OUI"
									END
								END
							END
							E=E+1
						REPEAT
						IF W_FINPARCOURS="NON" AND W_TABENTSOR<1,E>="" THEN
							IF ENR_ACTIVITESAIDE<3,D>>=W_DateDeb THEN
								W_TABENTSOR<1,E>=ENR_ACTIVITESAIDE<2,D>
								W_TABENTSOR<2,E>=ENR_ACTIVITESAIDE<3,D>
							END
						END
					END
					D=D+1
				REPEAT
				
				READ ENR_ABSENCESAIDE FROM F.ABSENCESAIDE,W_CodeRupture ELSE ENR_ABSENCESAIDE=""
				D=1
				LOOP
				UNTIL ENR_ABSENCESAIDE<1,D>="" DO
					E=1
					W_FINPARCOURS="NON"
					LOOP
					UNTIL W_FINPARCOURS="OUI" OR W_TABENTSOR<1,E>="" DO
						IF ENR_ABSENCESAIDE<1,D><=W_TABENTSOR<1,E> AND ENR_ABSENCESAIDE<2,D>>=W_TABENTSOR<2,E> THEN
							W_TABENTSOR=DELETE(W_TABENTSOR,1,E)
							W_TABENTSOR=DELETE(W_TABENTSOR,2,E)
							W_FINPARCOURS="OUI"
						END ELSE
							IF ENR_ABSENCESAIDE<1,D><=W_TABENTSOR<1,E> AND ENR_ABSENCESAIDE<2,D>>=W_TABENTSOR<1,E> THEN
								W_TABENTSOR<1,E>=ENR_ABSENCESAIDE<2,D>+1
								W_FINPARCOURS="OUI"
							END ELSE
								IF ENR_ABSENCESAIDE<1,D><=W_TABENTSOR<2,E> AND ENR_ABSENCESAIDE<2,D>>=W_TABENTSOR<2,E> THEN	
									W_TABENTSOR<2,E>=ENR_ABSENCESAIDE<1,D>-1
									W_FINPARCOURS="OUI"
								END ELSE
									IF ENR_ABSENCESAIDE<1,D>>W_TABENTSOR<1,E> AND ENR_ABSENCESAIDE<2,D><W_TABENTSOR<2,E> THEN	
										W_TABENTSOR=INSERT(W_TABENTSOR,1,E+1;ENR_ABSENCESAIDE<2,D>+1)
										W_TABENTSOR=INSERT(W_TABENTSOR,2,E+1;W_TABENTSOR<2,E>)
										W_TABENTSOR<2,E>=ENR_ABSENCESAIDE<1,D>-1
										W_FINPARCOURS="OUI"
									END
								END
							END
						END
						E=E+1
					REPEAT
					D=D+1
				REPEAT
				D=1
				W_FINPARCOURS="NON"
				
				LOOP
					IF W_TABENTSOR<1,D>="" THEN W_FINPARCOURS="OUI"
				UNTIL W_FINPARCOURS="OUI" DO
					IF W_TABENTSOR<2,D> < W_DateFin AND W_TABENTSOR<2,D> > W_DateDeb THEN
						W_TabStat<W_LigneTab,2>=W_TabStat<W_LigneTab,2>+1
						W_TabStat<W_LigneTab,3>=W_TabStat<W_LigneTab,3>+W_TABENTSOR<2,D>-W_TABENTSOR<1,D>+1
					END
					D=D+1
				REPEAT
			END
		END
		W_AncCodeLibTri=W_CodeLibTri
		W_AncCodeRupture=W_CodeRupture
	REPEAT
	
RETURN

********************************************************
* Calcul les annes d'anciennet ou d'age
30

	W_AnneeFaite=W_AnneeArret-W_DateStat[7,4]
	W_MoisFait=W_MoisArret-W_DateStat[4,2]
	W_JourFait=W_JourArret-W_DateStat[1,2]
	
	IF W_JourFait<0 THEN
		W_MoisFait=W_MoisFait-1
	END
	
	IF W_MoisFait<0 THEN
		W_AnneeFaite=W_AnneeFaite-1
		W_MoisFait=12+W_MoisFait
	END
	
	W_Valeur=W_AnneeFaite
	
RETURN

******************************************************************************
* MISE EN FORME FICHIER GRAPHIQUE

70

	W_Compte=DCOUNT(W_TabStat,CHAR(254))
	W_Sauve=""
	FOR i= 1 TO W_Compte
		IF W_TabStat<i,1>[1,5]="Respo" OR W_TabStat<i,1>[1,5]="Commu" OR W_TabStat<i,1>[1,5]="Secte" OR W_TabStat<i,1>[1,5]="Dpar" THEN
			IF W_TabStat<i,3> # "" THEN
				W_Sauve=W_TabStat<i,3>
			END ELSE
				W_Sauve=W_TabStat<i,2>
			END
		END ELSE
			W_TabStat=DELETE(W_TabStat,i,4)
			IF W_Sauve # "" THEN
		      	W_TabStat=INSERT(W_TabStat,i,1;W_Sauve)
			END
			
		END
		
	NEXT i
	
	IF W_Indicateur#3 THEN
		FOR i= W_Compte TO 1 STEP -1
			IF W_TabStat<i,1>[1,5]="Respo" OR W_TabStat<i,1>[1,5]="Commu" OR W_TabStat<i,1>[1,5]="Secte" OR W_TabStat<i,1>[1,5]="Dpar" OR W_TabStat<i,2>[1,5]="Total" OR W_TabStat<i,1>[1,5]="Total" THEN
				W_TabStat=DELETE(W_TabStat,i)
			END
		NEXT i
	END ELSE
		FOR i= W_Compte TO 1 STEP -1
			IF W_TabStat<i,1>[1,5]="Respo" OR W_TabStat<i,1>[1,5]="Commu" OR W_TabStat<i,1>[1,5]="Secte" OR W_TabStat<i,1>[1,5]="Dpar" THEN
				W_TabStat=DELETE(W_TabStat,i)
			END ELSE
				IF W_TabStat<i,2>[1,5]="Total" THEN
					W_TabStat=DELETE(W_TabStat,i,2)
				END ELSE
					IF W_TabStat<i,1>[1,5]="Total" THEN
						W_TabStat=DELETE(W_TabStat,i,1)					
					END
				END
			END
		NEXT i
		
	END
	
	IF W_Indicateur=1 THEN
		BEGIN CASE
			CASE W_Tri="R"
				W_Temp="Responsable;Tranche;Homme;Femme"
		        CASE W_Tri="S"
				W_Temp="Secteur;Tranche;Homme;Femme"
			CASE W_Tri="C"
				W_Temp="Commune;Tranche;Homme;Femme"
			CASE W_Tri="D"
				W_Temp="Dpartement;Tranche;Homme;Femme"
			CASE W_Tri="T"
				W_Temp="Tranche;Homme;Femme"
		END CASE
	END
	IF W_Indicateur=2 THEN
		BEGIN CASE
			CASE W_Tri="R"
				W_Temp="Responsable;Condition;Nb personnes"
		        CASE W_Tri="S"
				W_Temp="Secteur;Condition;Nb personnes"
			CASE W_Tri="C"
				W_Temp="Commune;Condition;Nb personnes"
			CASE W_Tri="D"
				W_Temp="Dpartement;Condition;Nb personnes"
			CASE W_Tri="T"
				W_Temp="Condition;Nb personnes;%"
		END CASE
		FOR i= 1 TO W_Compte		
			IF W_TabStat<i,4> # "" THEN
				W_TabStat=DELETE(W_TabStat,i,4)	
			END
		NEXT i
		i=0
	END
	IF W_Indicateur=3 THEN
		BEGIN CASE
			CASE W_Tri="R"
				W_Temp="Responsable;Nb sorties;Dure prise en charge"
			CASE W_Tri="S"
				W_Temp="Secteur;Nb sorties;Dure prise en charge"
			CASE W_Tri="C"
				W_Temp="Commune;Nb sorties;Dure prise en charge"
			CASE W_Tri="D"
				W_Temp="Dpartement;Nb sorties;Dure prise en charge"
			CASE W_Tri="T"
				W_Temp="Nb sorties;Dure prise en charge"
		END CASE
	END
	W_TabStat=INSERT(W_TabStat,i;W_Temp)
	
RETURN