SUBROUTINE INTEGRESOLEM(RETURNVAL,PARAMETRES,W_Sortie)

***********************************************************
* SUBROUTINE APPELE PAR LE PROGRAMME BASCULEPAIEPLG       *
* BASCULEMENT DE LA PAIE A PARTIR D'UN FICHIER DE 	  *
* TELEGESTION   					  *
* VANESSA                                                 *
* MARS 2004                                               *
***********************************************************

**************************************
* Ouvertures des fichiers            *
**************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "ACTIVITES" TO F.ACTIVITES ELSE RETURN
OPEN "", "ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE RETURN
OPEN "", "CIVILAIDANT" TO F.CIVILAIDANT ELSE RETURN
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE RETURN
OPEN "", "FUSION" TO F.FUSION ELSE RETURN
OPEN "", "PAQUES" TO F.PAQUES ELSE RETURN
OPEN "", "SECTEUR" TO F.SECTEUR ELSE RETURN
OPEN "", "TELEGESTION" TO F.TELEGESTION ELSE RETURN
OPEN "", "TLGACTIVITES" TO F.TLGACTIVITES ELSE RETURN
OPEN "", "TPSPARAMBASCUL" TO F.TPSPARAMBASCUL ELSE RETURN
OPEN "", "TEMPO" TO F.TEMPO ELSE RETURN
OPEN "", "RUBSAISIE" TO F.RUBSAISIE ELSE RETURN
OPEN "", "DOMITIME" TO F.DOMITIME ELSE RETURN
OPEN "", "TLGPOINTAGE" TO F.TLGPOINTAGE ELSE RETURN
OPEN "", "TLGPARAM" TO F.TLGPARAM ELSE RETURN
OPEN "", "DOMITIMEPARAMINTGR" TO F.DOMIPARAMINTGR ELSE RETURN
OPEN "", "DOMITIMEDROITS" TO F.DOMIDROITS ELSE RETURN
OPEN "", "TLGMOI" TO F.TLGMOI ELSE RETURN
OPEN "", "COMPLFACT" TO F.COMPLFACT ELSE RETURN

**************************************
* Dclaration des variables          *
**************************************

W_RubSai = ""

W_Service=""
W_Ind=1
ENR_TELEGESTION=""
W_CleTlg=""
W_Requete=""
W_Sortie=""
ENR_TEMPO=""
W_Indice=1
W_PremiereLigne=1
ENR_DOMITIME=""
ENR_TLGPARAM=""
ENR_DOMIPARAMINTGR=""
ENR_DOMIDROITS=""
ENR_RUBSAISIE=""
ENR_COMPLFACT=""
W_RequeteDomi=""
**************************************
* Recup des paramtres               *
**************************************
User=PARAMETRES<1>
Asso=PARAMETRES<2>
TypeAct=PARAMETRES<3>
Periode=PARAMETRES<4>
Tri=PARAMETRES<5>
Selection=PARAMETRES<6>
BasculMOD=PARAMETRES<7>
BasculMOI=PARAMETRES<8>
AnnuleBS=PARAMETRES<9>
SaisieJour=PARAMETRES<10>
NomFichierTlg=PARAMETRES<11>
SystemeTlg=PARAMETRES<12>

*User = FIELD(PARAMETRES,"|",1)
*Asso = FIELD(PARAMETRES,"|",2)
*TypeAct = FIELD(PARAMETRES,"|",3)
*Periode = FIELD(PARAMETRES,"|",4)
*Tri = FIELD(PARAMETRES,"|",5)
*Selection = FIELD(PARAMETRES,"|",6)
*BasculMOD = FIELD(PARAMETRES,"|",7)
*BasculMOI = FIELD(PARAMETRES,"|",8)
*AnnuleBS = FIELD(PARAMETRES,"|",9)
*SaisieJour = FIELD(PARAMETRES,"|",10)
*NomFichierTlg = FIELD(PARAMETRES,"|",11)

DELETE F.TEMPO,"ERREURINTEGRESOLEM"

IF SystemeTlg="06" THEN
	IF LEN(NomFichierTlg)="6" THEN
		W_DateDebPer=ICONV("01/":NomFichierTlg[5,2]:"/":NomFichierTlg[1,4], "D4/")
		W_DateFinPer=NomFichierTlg[5,2]+1

		IF LEN(W_DateFinPer)=1 THEN
			W_DateFinPer="01/0":W_DateFinPer:"/":NomFichierTlg[1,4]
		END ELSE
			IF W_DateFinPer="13" THEN
				W_DateFinPer=NomFichierTlg[1,4]+1
				W_DateFinPer="01/01/":W_DateFinPer
			END ELSE	
				W_DateFinPer="01/":W_DateFinPer:"/":NomFichierTlg[1,4]
			END
		END		

		W_DateFinPer=ICONV(W_DateFinPer, "D4/")
		W_DateFinPer=W_DateFinPer-1
	END ELSE
		W_DateDebPer=ICONV(NomFichierTlg[1,10], "D4/")
		W_DateFinPer=ICONV(NomFichierTlg[12,10], "D4/")
	END
	
	W_Select='SSELECT TLGPOINTAGE AVEC 3 >= "':W_DateDebPer:'" AND AVEC 3 <= "':W_DateFinPer:'" AND AVEC TypeActivite = "':TypeAct:'"'
	IF Tri="S" THEN
		W_Select=W_Select:' AND AVEC CodeSecteurAide = "':Selection:'"'
	END
	IF Tri="C" THEN
		W_Select=W_Select:' AND AVEC CommuneAide = "':Selection:'"'
	END
	W_Select=W_Select:'	PAR @ID'
	
	EXECUTE W_Select
	EXECUTE 'SAUVE-LISTE W_RequeteDomi'
	EXECUTE "LISTE W_RequeteDomi" RETURNING MSGCODE

	IF MSGCODE<1> # 209 THEN
		SELECT F.TLGPOINTAGE TO W_RequeteDomi

		W_IndDomi=0
		W_FINI = "FAUX"
		LOOP
			READNEXT CLETLGPOINTAGE FROM W_RequeteDomi ELSE W_FINI = "VRAI"
		WHILE W_FINI = "FAUX" DO
			READ ENR_TLGPOINTAGE FROM F.TLGPOINTAGE,CLETLGPOINTAGE  THEN
				READ ENR_ACTIVITES FROM F.ACTIVITES, ENR_TLGPOINTAGE<5> ELSE ENR_ACTIVITES=""
				IF ENR_ACTIVITES<12>=TypeAct AND ENR_TLGPOINTAGE<5>[1,3]=Asso THEN
				
					READ ENR_TLGPARAM FROM F.TLGPARAM, ENR_ACTIVITES<12> ELSE ENR_TLGPARAM=""
					
					* On calcule les heures arrondies pour les enregistrer dans
					* le fichier des pointages, mais dans le fichier gnr, on met
					* les heures normales.
					
					W_HeureDeb=CLETLGPOINTAGE[19,5]
					W_HeureFin=ENR_TLGPOINTAGE<4>[1,5]
					
					* Calcul de l'arrondi de l'heure de dbut
					IF ENR_TLGPOINTAGE<7>="" THEN
						IF ENR_TLGPARAM<1,1><>"" AND ENR_TLGPARAM<1,1><>"0" THEN
							IF ENR_TLGPARAM<1,2>="S" THEN
								W_Minutes=W_HeureDeb[4,2]
								W_Heures=W_HeureDeb[1,2]
								W_Minutes=W_Minutes+ENR_TLGPARAM<1,1>
								IF W_Minutes>59 THEN
									W_Minutes=W_Minutes-60
									IF LEN(W_Minutes)=1 THEN
										W_Minutes="0":W_Minutes
									END
									W_Heures=W_Heures+1
									IF W_Heures="24" THEN W_Heures="00"
								END ELSE
									IF LEN(W_Minutes)=1 THEN
										W_Minutes="0":W_Minutes
									END
								END
								IF LEN(W_Heures)=1 THEN
									W_Heures="0":W_Heures
								END							
								W_HeureDeb=W_Heures:":":W_Minutes
								ENR_TLGPOINTAGE<7>=W_HeureDeb
							END ELSE
								W_Minutes=W_HeureDeb[4,2]
								W_Heures=W_HeureDeb[1,2]
								W_Minutes=W_Minutes-ENR_TLGPARAM<1,1>
								IF W_Minutes<0 THEN
									W_Minutes=60+W_Minutes
									W_Heures=W_Heures-1
									IF W_Heures=-1 THEN W_Heures="23"							
								END
								IF LEN(W_Minutes)=1 THEN
									W_Minutes="0":W_Minutes
								END
								IF LEN(W_Heures)=1 THEN
									W_Heures="0":W_Heures
								END
								W_HeureDeb=W_Heures:":":W_Minutes
								ENR_TLGPOINTAGE<7>=W_HeureDeb					
							END
						END
					END ELSE
						W_HeureDeb=ENR_TLGPOINTAGE<7>
					END
					
					* Calcul de l'arrondi de l'heure de fin
					IF ENR_TLGPOINTAGE<8>="" THEN
						IF ENR_TLGPARAM<2,1><>"" AND ENR_TLGPARAM<2,1><>"0" THEN
							IF ENR_TLGPARAM<2,2>="S" THEN
								W_Minutes=W_HeureFin[4,2]
								W_Heures=W_HeureFin[1,2]
								W_Minutes=W_Minutes+ENR_TLGPARAM<2,1>
								IF W_Minutes>59 THEN
									W_Minutes=W_Minutes-60
									IF LEN(W_Minutes)=1 THEN
										W_Minutes="0":W_Minutes
									END
									W_Heures=W_Heures+1
									IF W_Heures="24" THEN W_Heures="00"
								END ELSE
									IF LEN(W_Minutes)=1 THEN
										W_Minutes="0":W_Minutes
									END							
								END
								IF LEN(W_Heures)=1 THEN
									W_Heures="0":W_Heures
								END						
								W_HeureFin=W_Heures:":":W_Minutes
								ENR_TLGPOINTAGE<8>=W_HeureFin
							END ELSE
								W_Minutes=W_HeureFin[4,2]
								W_Heures=W_HeureFin[1,2]
								W_Minutes=W_Minutes-ENR_TLGPARAM<2,1>
								IF W_Minutes<0 THEN
									W_Minutes=60+W_Minutes
									W_Heures=W_Heures-1
									IF W_Heures=-1 THEN W_Heures="23"
								END
								IF LEN(W_Minutes)=1 THEN
									W_Minutes="0":W_Minutes
								END						
								IF LEN(W_Heures)=1 THEN
									W_Heures="0":W_Heures
								END							
								W_HeureFin=W_Heures:":":W_Minutes
								ENR_TLGPOINTAGE<8>=W_HeureFin					
							END
						END
					END ELSE
						W_HeureFin=ENR_TLGPOINTAGE<8>
					END
					
					* Calcul de l'arrondi de la dure
					W_DureeInterv=0
					W_HreDeb=W_HeureDeb[1,2]
					W_MinDeb=W_HeureDeb[4,2]
					W_HreFin=W_HeureFin[1,2]
					W_MinFin=W_HeureFin[4,2]
					W_Minutes=0
					W_Heures=0
					IF W_HeureDeb<=W_HeureFin THEN
						W_Minutes=60-W_MinDeb
						W_Heures=W_HreDeb+1
						W_Heures=W_HreFin-W_Heures
						W_Heures=W_Heures*60
						W_Minutes=W_Minutes+W_Heures+W_MinFin
					END ELSE
						W_Minutes=(W_HreFin*60)+W_MinFin
						W_Minutes=W_Minutes+(60-W_MinDeb)
						W_Heures=W_HreDeb+1
						W_Heures=W_HreFin-W_Heures
						W_Heures=W_Heures*60
						W_Minutes=W_Minutes+W_Heures
					END
					
					* On traite ici les MOI qui sont en fait des MOD (minutes complmentaires).
					* On ajoute donc les minutes  la dure dj calcule.
					* L'arrondi se calcule aprs.
					READ ENR_TLGMOI FROM F.TLGMOI, CLETLGPOINTAGE THEN
						L=0
						LOOP
							L=L+1
						WHILE ENR_TLGMOI<1,L>#"" DO
							READ ENR_RUBSAISIE FROM F.RUBSAISIE, ENR_TLGMOI<3,L> THEN
								IF ENR_RUBSAISIE<2>="3" THEN
									W_Minutes=W_Minutes+ENR_TLGMOI<2,L>
									ENR_TLGMOI=DELETE(ENR_TLGMOI,1,L)
									ENR_TLGMOI=DELETE(ENR_TLGMOI,2,L)
									ENR_TLGMOI=DELETE(ENR_TLGMOI,3,L)
									L=L-1
								END
							END
						REPEAT
					END ELSE
						ENR_TLGMOI=""
					END
					
					W_DureeInterv=W_Minutes
					IF ENR_TLGPARAM<3,1><>"" THEN
						IF ENR_TLGPARAM<3,2>="M" THEN
							W_DureeInterv=INT((W_DureeInterv/ENR_TLGPARAM<3,1>)+(1/2))
							W_DureeInterv=W_DureeInterv*ENR_TLGPARAM<3,1>
						END ELSE
							W_DureeInterv=INT(W_DureeInterv/ENR_TLGPARAM<3,1>)
							W_DureeInterv=W_DureeInterv*ENR_TLGPARAM<3,1>
							IF ENR_TLGPARAM<3,2>="S" THEN
								W_DureeInterv=W_DureeInterv+ENR_TLGPARAM<3,1>
							END
						END
					END
					ENR_TLGPOINTAGE<9>=W_DureeInterv

					* Renseignement des donnes dans le tableau
					W_IndDomi=W_IndDomi+1					
					ENR_DOMITIME<W_IndDomi>=CLETLGPOINTAGE[3,5]:";":CLETLGPOINTAGE[9,5]
					ENR_DOMITIME<W_IndDomi>=ENR_DOMITIME<W_IndDomi>:";":OCONV(CLETLGPOINTAGE[14,5],"D4/"):" ":CLETLGPOINTAGE[19,5]
					ENR_DOMITIME<W_IndDomi>=ENR_DOMITIME<W_IndDomi>:";":OCONV(ENR_TLGPOINTAGE<3>,"D4/"):" ":ENR_TLGPOINTAGE<4>[1,5]
					ENR_DOMITIME<W_IndDomi>=ENR_DOMITIME<W_IndDomi>:";":ENR_TLGPOINTAGE<5>[1,3]	
					ENR_DOMITIME<W_IndDomi>=ENR_DOMITIME<W_IndDomi>:";":ENR_ACTIVITES<12>
					ENR_DOMITIME<W_IndDomi>=ENR_DOMITIME<W_IndDomi>:";":ENR_TLGPOINTAGE<5>
					ENR_DOMITIME<W_IndDomi>=ENR_DOMITIME<W_IndDomi>:";":W_DureeInterv<1>
					ENR_DOMITIME<W_IndDomi>=ENR_DOMITIME<W_IndDomi>:";;;;"
					
					ENR_DOMITIME<W_IndDomi>=ENR_DOMITIME<W_IndDomi>:ENR_TLGMOI<1>:";":ENR_TLGMOI<2>:";":ENR_TLGMOI<3>
				END
			END
			* On crit TLGPOINTAGE car il peut potentiellement avoir de nouvelles donnes : les arrondis
			WRITE ENR_TLGPOINTAGE TO F.TLGPOINTAGE, CLETLGPOINTAGE	
		REPEAT
		* Ecriture du fichier de fusion
		IF LEN(NomFichierTlg)>"6" THEN
			NomFichierTlg=NomFichierTlg [7,4]:NomFichierTlg [4,2]
		END
		EXECUTE 'DELETE DOMITIME ':NomFichierTlg
		
		WRITE ENR_DOMITIME ON F.DOMITIME, NomFichierTlg
	END
	
	OPEN "", "DOMITIME" TO F.FUSION ELSE RETURN
END ELSE
	IF INDEX(NomFichierTlg,"\",1) <> 0 THEN

		W_Long=LEN(NomFichierTlg)
		i=W_Long
		LOOP
		WHILE NomFichierTlg[i,1] # "\" AND i # 0 DO
			i=i-1
		REPEAT

		W_CheminFichier=NomFichierTlg[1,i-1]
		NomFichierTlg=NomFichierTlg[i+1,99]

		*chemin donc faire un synonyme
		OPEN "", "VOC" TO F.VOC ELSE RETURN
		READ ENR_VOC FROM F.FUSION,"FUSIONTLG" THEN
			* dj existant 
			ENR_VOC<2>=W_CheminFichier
		END ELSE
			ENR_VOC=""
			ENR_VOC<1>="DIR"
			ENR_VOC<2>=W_CheminFichier
			ENR_VOC<3>="D_FUSION"
		END
		WRITE ENR_VOC ON F.VOC,"FUSIONTLG"
		OPEN "", "FUSIONTLG" TO F.FUSION ELSE RETURN
		
	END ELSE
		OPEN "", "FUSION" TO F.FUSION ELSE RETURN
	END
END

READ ENR_FUSION FROM F.FUSION,NomFichierTlg THEN

	IF SystemeTlg="02" THEN
		W_PremiereLigne=4
	END ELSE
		IF SystemeTlg="01" THEN
			W_PremiereLigne=2 
		END ELSE
			IF SystemeTlg = "03" THEN
			*	IF OCONV(TRIM(FIELD(ENR_FUSION<1>,";",1))[1,4],"MCU") = "CODE" THEN
					W_PremiereLigne=2 
			*	END
			END
		END
	END
	
	IF Periode = "" THEN

		TrtVerif = "V"
		W_DateDeb = PARAMETRES<13>
		W_DateFin = PARAMETRES<14>
		
		Periode = OCONV(W_DateFin,"D4/")[7,4]:OCONV(W_DateFin,"D4/")[4,2]

	END ELSE
	
		TrtVerif = "F"

		GOSUB 99
		
		W_Mois=Periode[5,2]
		W_An=Periode[1,4]
		W_DateDeb=ICONV("01/":W_Mois:"/":W_An,"D4/")
		W_Mois=W_Mois+1
		IF W_Mois=13 THEN
			W_Mois="01"
			W_An=W_An+1
		END
		W_DateFin=ICONV("01/":W_Mois:"/":W_An,"D4/")-1

	END
	
	W_NbJour=W_DateFin-W_DateDeb+1

*	IF SystemeTlg <> "02" AND SystemeTlg <> "05" THEN
	READ ENR_TLGACTIVITES FROM F.TLGACTIVITES,Asso ELSE ENR_TLGACTIVITES= ""
	IF ENR_TLGACTIVITES<3,1> <> "" THEN
		FOR W_Ind=1 TO DCOUNT(ENR_TLGACTIVITES<3>,CHAR(253))
			READ ENR_ACTIVITES FROM F.ACTIVITES,ENR_TLGACTIVITES<3,W_Ind> ELSE ENR_ACTIVITES=""

			W_Service<1,W_Ind>=ENR_TLGACTIVITES<2,W_Ind>

			W_Service<1,W_Ind>=OCONV(W_Service<1,W_Ind>,"MCU")
			W_Service<2,W_Ind>=ENR_TLGACTIVITES<3,W_Ind>
			W_Service<3,W_Ind>=ENR_ACTIVITES<12>
			W_Service<4,W_Ind>=ENR_TLGACTIVITES<4,W_Ind>
			
		NEXT  W_Ind

	END ELSE
		* Domatel et FXD prend nos activites
		EXECUTE 'SELECT ACTIVITES PAR 0'
		EXECUTE 'SAUVE-LISTE W_Requete'
		EXECUTE "LISTE W_Requete" RETURNING MSGCODE

		IF MSGCODE<1> # 209 THEN
			SELECT F.ACTIVITES TO W_Requete

			W_FINI = "FAUX"
			LOOP
				READNEXT W_CLE FROM W_Requete ELSE W_FINI = "VRAI"
			WHILE W_FINI = "FAUX" DO
				READ ENR_ACTIVITES FROM F.ACTIVITES,W_CLE ELSE ENR_ACTIVITES=""

				W_Service<1,W_Ind>=W_CLE
				W_Service<2,W_Ind>=W_CLE
				W_Service<3,W_Ind>=ENR_ACTIVITES<12>
				IF SystemeTlg="06" THEN
					READ ENR_DOMIPARAMINTGR FROM F.DOMIPARAMINTGR,Asso ELSE ENR_DOMIPARAMINTGR=""
					W_Trouve="NON"
					K=0	
					LOOP
						K=K+1
					WHILE ENR_DOMIPARAMINTGR<1,K>#"" DO
						IF ENR_DOMIPARAMINTGR<1,K>=W_CLE THEN
							W_Service<4,W_Ind>=ENR_DOMIPARAMINTGR<2,K>
							W_Trouve="OUI"
						END
					REPEAT
					IF W_Trouve="NON" THEN W_Service<4,W_Ind>="019"
				END ELSE
					READ ENR_TPSPARAMBASCUL FROM F.TPSPARAMBASCUL,Asso ELSE ENR_TPSPARAMBASCUL=""
					IF ENR_ACTIVITES<12>="P" THEN
						IF ENR_TPSPARAMBASCUL<10,1> = "" THEN ENR_TPSPARAMBASCUL<10,1> ="019"
						W_Service<4,W_Ind>=ENR_TPSPARAMBASCUL<10,1>
					END ELSE
						* mandataire
						IF ENR_TPSPARAMBASCUL<10,2> = "" THEN ENR_TPSPARAMBASCUL<10,2> ="019"
						W_Service<4,W_Ind>=ENR_TPSPARAMBASCUL<10,2>
					END
				END
					
   				W_Ind=W_Ind+1
			REPEAT

		END

	END

	EXECUTE 'VIDER-FICHIER TELEGESTION'

	* remplit fichier TELEGESTION
	W_Count=DCOUNT(ENR_FUSION,CHAR(254))
	
	IF SystemeTlg="02" THEN

		W_Count=W_Count-4

	END

	W_Traitement50 = "Remplissage"

	FOR i=W_PremiereLigne TO W_Count
		W_Temp=ENR_FUSION<i>
	
		GOSUB 50
		IF SystemeTlg="04" THEN
			IF W_Temp[412,1]=1 THEN
				GOSUB 40
			END
		END ELSE
			GOSUB 40
		END
	NEXT i

	W_Traitement50 = "Recuperation"
*AVEC 0 = "00557]" AND 	
	IF TrtVerif = "V" THEN
		W_Temp='SELECT TELEGESTION AVEC DateInterv <= "':W_DateFin:'" AND >= "':W_DateDeb:'" AND AVEC TypeAct = "':TypeAct:'"'
	END ELSE
		W_Temp='SELECT TELEGESTION AVEC Periode = "':Periode:'" AND AVEC TypeAct = "':TypeAct:'"'
	END
	IF Tri="S" THEN
		IF Selection # "" THEN
			W_Temp=W_Temp:' AND AVEC Secteur = "':Selection:'"'
		END ELSE
			W_Temp=W_Temp:' PAR LibSecteur'
		END
	END
	IF Tri="C" THEN
		IF Selection # "" THEN
			W_Temp=W_Temp:' AND AVEC Commune = "':Selection:'"'
		END ELSE
			W_Temp=W_Temp:' PAR Commune'
		END
	END
	W_Temp=W_Temp:' PAR CodeAidant PAR DateHeure' 

	EXECUTE W_Temp
	EXECUTE 'SAUVE-LISTE W_ReqTel'
	EXECUTE "LISTE W_ReqTel" RETURNING MSGCODE

	W_Sauve=""

	IF MSGCODE<1>=209 THEN
		RETURN
	END ELSE
		SELECT F.TELEGESTION TO W_Requete		
		
		W_FINI = "FAUX"
		W_Ligne=1

		LOOP
			READNEXT W_CLE FROM W_Requete ELSE W_FINI = "VRAI"
		WHILE W_FINI = "FAUX" DO
			READ ENR_TELEGESTION FROM F.TELEGESTION,W_CLE ELSE ENR_TELEGESTION=""
			
			IF W_Sauve # W_CLE[1,5] THEN
				IF W_Sauve # "" THEN
					W_Ligne=W_Ligne+W_NbJour+2
				END

				READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_CLE[1,5] ELSE ENR_CIVILAIDANT=""

 				IF ENR_CIVILAIDANT="" THEN
					ENR_TEMPO<W_Indice,1>=W_CLE[1,5]
					ENR_TEMPO<W_Indice,5>="Code aidant inexistant"
					W_Indice=W_Indice+1
				END

				IF Tri="" OR Tri="S" THEN
					READ ENR_SECTEUR FROM F.SECTEUR,ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR=""
					W_Lib=ENR_SECTEUR<1>
				END ELSE
					W_Lib=ENR_CIVILAIDANT<11>
				END
				W_Sortie<W_Ligne>="#Interv":W_CLE[1,5]:W_Lib

				W_Sauve=W_CLE[1,5]

				**********************************************************
				* Calcul du temps de trajet (au 27/01/05, uniquement ASSAD Lille Code Telegestion "05"
				W_DernJourTrajet = ""
				W_DernHreTrajet = ""
				W_CumulTpsTrajet = 0
				W_EcartTrajet = 15
				**********************************************************

			END

			W_Temp=ENR_TELEGESTION<1>

			GOSUB 50

			* positionnement sur l'activit - service
			j=1
			LOOP    
			UNTIL TRIMB(W_Act) = W_Service<1,j> OR W_Service<1,j> = "" DO
      				j=j+1
			REPEAT
			
			GOSUB 10
			
			IF W_Erreur="FAUX" THEN
				*Intgration de la ligne de la tlgestion

				* Traitement de la MOD

				W_Jour=ICONV(W_CLE[17,2]:"/":W_CLE[15,2]:"/":W_CLE[11,4],"D4/") - W_DateDeb + 1
				W_LigneTemp=W_Ligne+W_Jour

				W_Countsv=DCOUNT(W_Sortie<W_LigneTemp,1>,CHAR(252))
				W_Countsv=W_Countsv+1

				W_Sortie<W_LigneTemp,1,W_Countsv>="Interv":W_CLE[23,1]

				W_Sortie<W_LigneTemp,2,W_Countsv>=W_HreDebutInterv
				W_Sortie<W_LigneTemp,3,W_Countsv>=W_HreFinInterv

				W_Sortie<W_LigneTemp,4,W_Countsv>=W_CLE[1,10]:"00000":W_Service<2,j>:"X":W_HreDebutInterv

				IF W_Act[1,4]="NUIT" AND SystemeTlg="04" THEN
					IF W_Compteur="00010" THEN
						W_Sortie<W_LigneTemp,5,W_Countsv>="500"
					END
					IF W_Compteur="00020" THEN
						W_Sortie<W_LigneTemp,5,W_Countsv>="600"
					END
					IF W_Compteur="00030" THEN
						W_Sortie<W_LigneTemp,5,W_Countsv>="900"
					END
					W_Jour=W_DebutInterv[7,2]:"/":W_DebutInterv[5,2]:"/":W_DebutInterv[1,4]
					W_Jour=ICONV(W_Jour,"D4/")
					W_Day = OCONV(W_Jour,"DWA")
					IF W_Day = "Saturday" OR W_Day = "Sunday" THEN
						W_Sortie<W_LigneTemp,6,W_Countsv>="056"
					END ELSE
						GOSUB 20
						IF W_JF="VRAI" THEN
							W_Sortie<W_LigneTemp,6,W_Countsv>="056"
						END ELSE
							W_Sortie<W_LigneTemp,6,W_Countsv>="053"
						END
					END
				END ELSE

					IF W_NbreHre # "0000" AND W_NbreHre # "    " THEN
						W_Sortie<W_LigneTemp,5,W_Countsv>=W_NbreHre
					END ELSE
						W_Sortie<W_LigneTemp,5,W_Countsv>=W_NbreHreDim
					END

					W_IndiceMOD=W_Countsv
					
					*Rubrique de saisie
					IF SystemeTlg="05" OR W_RubSai <> "" THEN
						*Spcficique Lille Assad + JVS
						W_Sortie<W_LigneTemp,6,W_Countsv>=W_RubSai
					END ELSE
				*		IF SystemeTlg="04" THEN
							W_Sortie<W_LigneTemp,6,W_Countsv>=W_Service<4,j>
				*		END ELSE
				*			W_Sortie<W_LigneTemp,6,W_Countsv>=""
				*		END
					END
					
				END

				W_Sortie<W_LigneTemp,7,W_Countsv>=W_Service<2,j>
				
				* PARCOURS DES COMPTEURS SOLEM SI MOI A INTEGRER
	
				IF SystemeTlg="04" THEN
					* SOLEM
					FOR iCpt04 = 1 TO 4

						W_PosDebCpt=iCpt04*23-23
						IF iCpt04 <> 1 THEN
							W_TypeCompteur=W_CompteursSolem[W_PosDebCpt+1,2]
						END ELSE
							W_TypeCompteur=W_CompteursSolem[W_PosDebCpt,2]
						END
						W_CodeExportCompteur=TRIMB(W_CompteursSolem[W_PosDebCpt+3,16])
						W_ValeurCompteur=W_CompteursSolem[W_PosDebCpt+19,5]
				
						IF W_TypeCompteur <> "00" AND W_ValeurCompteur <> "00000" THEN
							W_Trouve="FAUX"
							W_ValeurCompteurExport=""
							W_CodeRubCompteur=""
							FOR iCpt=1 TO DCOUNT(ENR_TLGACTIVITES<5>,CHAR(253))
								IF OCONV(TRIMB(W_CodeExportCompteur),"MCU") = OCONV(ENR_TLGACTIVITES<5,iCpt>,"MCU") THEN
									W_ValeurCompteurExport=ENR_TLGACTIVITES<6,iCpt>
									W_CodeRubCompteur=ENR_TLGACTIVITES<7,iCpt>
									W_Trouve="VRAI"
									EXIT
								END
							NEXT iCpt
													
							IF W_Trouve="FAUX" THEN
								IF BasculMOI="1" THEN
									IF W_Act[1,4] # "NUIT" THEN
										ENR_TEMPO<W_Indice,1>=W_Aidant
										READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Aidant ELSE ENR_CIVILAIDANT=""
										ENR_TEMPO<W_Indice,2>=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
										ENR_TEMPO<W_Indice,3>=W_Aide
										READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Aide ELSE ENR_CIVILAIDE=""
										ENR_TEMPO<W_Indice,4>=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
										IF W_CodeExportCompteur="" THEN
											ENR_TEMPO<W_Indice,5>="Activit non renseigne dans le systme de tlgestion"
										END ELSE
											ENR_TEMPO<W_Indice,5>=W_CodeExportCompteur:" : Compteur Solem non paramtr dans INFOLOGIS"
										END
										W_Indice=W_Indice+1
									END
								END
							END ELSE
								IF W_ValeurCompteurExport = "" THEN
									IF W_CodeRubCompteur = "" THEN
										* Ajout de la valeur  la MOD

										* Valeur du compteur
										BEGIN CASE
											CASE W_TypeCompteur="03"
												* heure-minute  tranformer en heure-centieme
												W_Hre=W_ValeurCompteur[1,3]
												W_Min=W_ValeurCompteur[4,2]
												W_Min = INT(W_Min / 60 * 100 + 1/2)"R%2"
												W_ValeurCompteur = W_Hre:W_Min
												W_ValeurCompteur=INT(W_ValeurCompteur)				

												W_Sortie<W_LigneTemp,5,W_IndiceMOD>= W_Sortie<W_LigneTemp,5,W_IndiceMOD> + W_ValeurCompteur
											CASE 1
												* on prend la valeur en l'tat car 2 dcimales (type 01 et 10)
												W_Sortie<W_LigneTemp,5,W_IndiceMOD>= W_Sortie<W_LigneTemp,5,W_IndiceMOD> + W_ValeurCompteur						
										END CASE
																			
									END ELSE
										* Cration de la MOI
									  IF BasculMOI="1" THEN
										* position dj rcupre MOD			
										*W_Jour=ICONV(W_CLE[17,2]:"/":W_CLE[15,2]:"/":W_CLE[11,4],"D4/") - W_DateDeb + 1
										*W_LigneTemp=W_Ligne+W_Jour

										W_Countsv=DCOUNT(W_Sortie<W_LigneTemp,1>,CHAR(252))
										W_Countsv=W_Countsv+1

										W_Sortie<W_LigneTemp,1,W_Countsv>="MOI"
										W_Sortie<W_LigneTemp,2,W_Countsv>=""
										W_Sortie<W_LigneTemp,3,W_Countsv>=""			
										W_Jour=W_DebutInterv[7,2]:"/":W_DebutInterv[5,2]:"/":W_DebutInterv[1,4]
										W_Jour=ICONV(W_Jour,"D4/")
										W_Sortie<W_LigneTemp,4,W_Countsv>=W_CLE[1,5]:W_Jour:W_CLE[19,4]:W_Service<3,j>:W_Aide
										
										* Valeur du compteur
										BEGIN CASE
											CASE W_TypeCompteur="03"
												* heure-minute  tranformer en heure-centieme
												W_Hre=W_ValeurCompteur[1,3]
												W_Min=W_ValeurCompteur[4,2]
												W_Min = INT(W_Min / 60 * 100 + 1/2)"R%2"
												W_ValeurCompteur = W_Hre:W_Min
												W_ValeurCompteur=INT(W_ValeurCompteur)				
												
												W_Sortie<W_LigneTemp,5,W_Countsv>= W_ValeurCompteur
											CASE 1
												* on prend la valeur en l'tat car 2 dcimales (type 01 et 10)
												W_Sortie<W_LigneTemp,5,W_Countsv>= W_ValeurCompteur						
										END CASE
												
										* Rubrique de saisie
										W_Sortie<W_LigneTemp,6,W_Countsv>=W_CodeRubCompteur
										
										* Code Activit infologis
										W_Sortie<W_LigneTemp,7,W_Countsv>=W_Service<2,j>
									  END
									END
								END
							END
						END		

					NEXT iCpt04
				END ELSE
					IF SystemeTlg="06" AND BasculMOI="1" THEN
						i=0
						LOOP
							i=i+1
						WHILE W_TabRubMOI<1,i>#"" DO
							Trt=""
							READ ENR_DOMIPARAMINTGR FROM F.DOMIPARAMINTGR, Asso THEN
								W_MOITrouve="NON"
								W_Sortir="NON"
								J=0
								LOOP
									J=J+1
								WHILE ENR_DOMIPARAMINTGR<6,J>#"" AND W_Sortir="NON" DO
									IF ENR_DOMIPARAMINTGR<4,J>=W_TabRubMOI<1,i> AND (ENR_DOMIPARAMINTGR<5,J>=W_TabRubMOI<2,i> OR ENR_DOMIPARAMINTGR<5,J>="") THEN
										iCpt=J
										W_MOITrouve="OUI"
										W_Sortir="OUI"
									END
								REPEAT
								
								IF W_MOITrouve="OUI" THEN
									W_DomiDroitsTrouve="NON"
									READ ENR_DOMIDROITS FROM F.DOMIDROITS, W_Aidant:W_Aide THEN
										W_DomiDroitsTrouve="OUI"
									END ELSE
										READ ENR_DOMIDROITS FROM F.DOMIDROITS, W_Aidant:Asso THEN					
											W_DomiDroitsTrouve="OUI"
										END
									END
									
									IF W_DomiDroitsTrouve="OUI" THEN
										W_MOIBloquee="NON"
										W_MOITrouveDroits="NON"
										W_NbMV=DCOUNT(ENR_DOMIDROITS<1>, CHAR(253))
										K=0
										W_SaveK=0
										LOOP	
											K=K+1
										WHILE K<=W_NbMV DO
											IF ENR_DOMIDROITS<2,K>=W_TabRubMOI<1,i> AND (ENR_DOMIDROITS<3,K>=W_TabRubMOI<2,i> OR ENR_DOMIDROITS<3,K>="") THEN
												W_MOITrouveDroits="OUI"
												W_SaveK=K
												iCpt=K
												IF ENR_DOMIDROITS<7,K>="O" THEN
													W_MOIBloquee="OUI"
												END
											END
										REPEAT
										
										IF W_MOIBloquee="NON" THEN
											IF W_MOITrouveDroits="OUI" THEN
												Trt="1"
											END ELSE
												Trt="2"
											END
										END ELSE
											ENR_TEMPO<W_Indice,1>=W_Aidant
											ENR_TEMPO<W_Indice,2>=""
											ENR_TEMPO<W_Indice,3>=W_Aide
											ENR_TEMPO<W_Indice,4>=""								
											ENR_TEMPO<W_Indice,5>=W_TabRubMOI:' - Rubrique bloque pour le couple'
											W_Indice=W_Indice+1
											W_Erreur="VRAI"
											*PRINT "RUBRIQUE NON PARAMETREE POUR LE COUPLE"
										END
									END ELSE
										Trt="2"
									END
								END ELSE
									ENR_TEMPO<W_Indice,1>=W_Aidant
									ENR_TEMPO<W_Indice,2>=""
									ENR_TEMPO<W_Indice,3>=W_Aide
									ENR_TEMPO<W_Indice,4>=""								
									ENR_TEMPO<W_Indice,5>=W_TabRubMOI:' - Rubrique non paramtre pour le couple'
									W_Indice=W_Indice+1
									W_Erreur="VRAI"									
									*PRINT "RUBRIQUE NON PARAMETREE SOUS INFOLOGIS"
								END
							END ELSE
								ENR_TEMPO<W_Indice,1>=W_Aidant
								ENR_TEMPO<W_Indice,2>=""
								ENR_TEMPO<W_Indice,3>=W_Aide
								ENR_TEMPO<W_Indice,4>=""								
								ENR_TEMPO<W_Indice,5>=W_TabRubMOI:' - Rubrique non paramtre'
								W_Indice=W_Indice+1
								W_Erreur="VRAI"								
								*PRINT "RUBRIQUE NON PARAMETREE SOUS INFOLOGIS"
							END
							
							IF Trt#"" THEN
								W_Countsv=DCOUNT(W_Sortie<W_LigneTemp,1>,CHAR(252))
								W_Countsv=W_Countsv+1

								W_Sortie<W_LigneTemp,1,W_Countsv>="MOI"
								W_Sortie<W_LigneTemp,2,W_Countsv>=""
								W_Sortie<W_LigneTemp,3,W_Countsv>=""			
								W_Jour=W_DebutInterv[7,2]:"/":W_DebutInterv[5,2]:"/":W_DebutInterv[1,4]
								W_Jour=ICONV(W_Jour,"D4/")
								W_Sortie<W_LigneTemp,4,W_Countsv>=W_CLE[1,5]:W_Jour:W_CLE[19,4]:W_Service<3,j>:W_Aide

								W_Sortie<W_LigneTemp,5,W_Countsv>= W_TabRubMOI<2,i>
											
								* Rubrique de saisie
								W_LibComplFact=""
								W_ValComplFact=""
								IF Trt="1" THEN
									W_Sortie<W_LigneTemp,6,W_Countsv>=ENR_DOMIDROITS<4,iCpt>
									W_LibComplFact=ENR_DOMIDROITS<5,iCpt>
									W_ValComplFact=ENR_DOMIDROITS<6,iCpt>
								END ELSE
									W_Sortie<W_LigneTemp,6,W_Countsv>=ENR_DOMIPARAMINTGR<6,iCpt>
									W_LibComplFact=ENR_DOMIPARAMINTGR<7,iCpt>
									W_ValComplFact=ENR_DOMIPARAMINTGR<8,iCpt>									
								END
								
								IF W_LibComplFact<>"" THEN
									READ ENR_COMPLFACT FROM F.COMPLFACT, W_Aide:Asso:TypeAct THEN
										W_MVLib=0
										W_FINCOMPLFACT="FAUX"
										LOOP
											W_MVLib=W_MVLib+1
										WHILE ENR_COMPLFACT<1,W_MVLib>#"" AND W_FINCOMPLFACT="FAUX" DO
											IF ENR_COMPLFACT<1,W_MVLib>=W_LibComplFact THEN
												W_MVLib=W_MVLib-1
												W_FINCOMPLFACT="VRAI"
											END
										REPEAT
										ENR_COMPLFACT<1,W_MVLib>=W_LibComplFact
										IF W_ValComplFact<>"" THEN
											ENR_COMPLFACT<3,W_MVLib>=W_ValComplFact
										END ELSE
											READ ENR_RUBSAISIE FROM F.RUBSAISIE, W_TabRubMOI<1,i> THEN
												IF ENR_RUBSAISIE<9><>"" THEN
													ENR_COMPLFACT<3,W_MVLib>=ENR_RUBSAISIE<9>
												END ELSE
													ENR_COMPLFACT<3,W_MVLib>="0"
												END
											END ELSE
												ENR_COMPLFACT<3,W_MVLib>="0"
											END
										END
									END
								END
								
								* Code Activit infologis
								W_Sortie<W_LigneTemp,7,W_Countsv>=W_Service<2,j>
							END
						REPEAT
					END ELSE
						IF BasculMOI="1" THEN			
							* GESTION DES KM
							IF W_Km <> "" AND W_Km <> 0 THEN
								READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_CLE[1,5] ELSE ENR_CIVILAIDANT = ""
								W_MoyenLoc=ENR_CIVILAIDANT<34>
								W_Trouve="FAUX"
								FOR iCpt=1 TO DCOUNT(ENR_TLGACTIVITES<8>,CHAR(253))
									IF W_MoyenLoc = ENR_TLGACTIVITES<8,iCpt> THEN
										W_Trouve="VRAI"
										EXIT
									END
								NEXT iCpt
								
								IF W_Trouve="VRAI" THEN
									W_Countsv=DCOUNT(W_Sortie<W_LigneTemp,1>,CHAR(252))
									W_Countsv=W_Countsv+1

									W_Sortie<W_LigneTemp,1,W_Countsv>="MOI"
									W_Sortie<W_LigneTemp,2,W_Countsv>=""
									W_Sortie<W_LigneTemp,3,W_Countsv>=""			
									W_Jour=W_DebutInterv[7,2]:"/":W_DebutInterv[5,2]:"/":W_DebutInterv[1,4]
									W_Jour=ICONV(W_Jour,"D4/")
									W_Sortie<W_LigneTemp,4,W_Countsv>=W_CLE[1,5]:W_Jour:W_CLE[19,4]:W_Service<3,j>:W_Aide

									W_Sortie<W_LigneTemp,5,W_Countsv>= W_Km						
												
									* Rubrique de saisie
									W_Sortie<W_LigneTemp,6,W_Countsv>=ENR_TLGACTIVITES<9,iCpt>
									
									* Code Activit infologis
									W_Sortie<W_LigneTemp,7,W_Countsv>=W_Service<2,j>	
								END ELSE
									* moyen de locomotion non paramtr donc pas d'intgration de km
								END
							END
						END
					END
				END

			END
		REPEAT
		
		
		W_Ligne=W_Ligne+W_NbJour+1
		W_Sortie<W_Ligne>=""
		W_Ligne=W_Ligne+1
		W_Sortie<W_Ligne>="#FIN"

	END

	IF ENR_TEMPO # "" THEN
   		WRITE ENR_TEMPO ON F.TEMPO,"ERREURINTEGRESOLEM"
	END

END ELSE

	W_Sortie="Erreur"
	ENR_TEMPO = ""
	ENR_TEMPO<1> = NomFichierTlg
	ENR_TEMPO<2> = PARAMETRES
	WRITE ENR_TEMPO ON F.TEMPO,"ERREURINTEGRESOLEM"

END

RETURN

*********************************************************************************************************************
* gestion des erreurs
10

	W_Erreur="FAUX"

	READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Aide ELSE ENR_CIVILAIDE=""

	IF ENR_CIVILAIDE="" THEN
	   IF W_RubSai = "" OR ENR_RUBSAISIE<2> = "3" OR ENR_RUBSAISIE<2> = "4" THEN
		ENR_TEMPO<W_Indice,1>=W_CLE[1,5]
		ENR_TEMPO<W_Indice,2>=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
		ENR_TEMPO<W_Indice,3>=W_Aide
		ENR_TEMPO<W_Indice,5>="Code aid inexistant"
		W_Indice=W_Indice+1
		W_Erreur="VRAI"
	   END
	END ELSE
	 	READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,W_Aide ELSE ENR_ACTIVITESAIDE=""
	 	W_Count=DCOUNT(ENR_ACTIVITESAIDE<1>,CHAR(253))
		k=1
		LOOP
		UNTIL (ENR_ACTIVITESAIDE<1,k> = W_Service<2,j> AND (INT(ENR_ACTIVITESAIDE<2,k>) <= INT(W_DateFin) OR ENR_ACTIVITESAIDE<2,k>="") AND (INT(ENR_ACTIVITESAIDE<3,k>) >= INT(W_DateDeb) OR ENR_ACTIVITESAIDE<3,k>="")) OR ENR_ACTIVITESAIDE<1,k>="" DO
      			k=k+1
		REPEAT
		IF W_Temp[45,4]="SADS" AND TRIMB(W_Act)="FORMATION" THEN
			W_Erreur="FAUX"
		END ELSE
			IF ENR_ACTIVITESAIDE<1,k>="" THEN
				ENR_TEMPO<W_Indice,1>=W_CLE[1,5]
				ENR_TEMPO<W_Indice,2>=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
				ENR_TEMPO<W_Indice,3>=W_Aide
				ENR_TEMPO<W_Indice,4>=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
				ENR_TEMPO<W_Indice,5>=W_Service<1,j>:" : Activit inconnue pour l'aid"
				W_Indice=W_Indice+1
				W_Erreur="VRAI"
			END
		END
	END

	W_DebInterv=W_DebutInterv[7,2]:"/":W_DebutInterv[5,2]:"/":W_DebutInterv[1,4]
	W_DebInterv=ICONV(W_DebInterv,"D4/")

	W_FinInterv=W_EndInterv[7,2]:"/":W_EndInterv[5,2]:"/":W_EndInterv[1,4]
	W_FinInterv=ICONV(W_FinInterv,"D4/")

	IF INT(W_DebInterv) < INT(W_DateDeb) OR INT(W_DebInterv) > INT(W_DateFin) THEN
		ENR_TEMPO<W_Indice,1>=W_CLE[1,5]
		ENR_TEMPO<W_Indice,2>=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
		ENR_TEMPO<W_Indice,3>=W_Aide
		ENR_TEMPO<W_Indice,4>=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
		ENR_TEMPO<W_Indice,5>=OCONV(W_DebInterv,"D4/"):" : Dbut d'intervention errone"
		W_Indice=W_Indice+1
		W_Erreur="VRAI"
	END

	IF INT(W_FinInterv) < INT(W_DateDeb) OR INT(W_FinInterv) > INT(W_DateFin) THEN
		ENR_TEMPO<W_Indice,1>=W_CLE[1,5]
		ENR_TEMPO<W_Indice,2>=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
		ENR_TEMPO<W_Indice,3>=W_Aide
		ENR_TEMPO<W_Indice,4>=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
		ENR_TEMPO<W_Indice,5>=OCONV(W_FinInterv,"D4/"):" : Fin d'intervention errone"
		W_Indice=W_Indice+1
		W_Erreur="VRAI"
	END

* A revoir
	IF SystemeTlg="04" THEN
**************************************************
* CODE DU SERVICE A MODIFIER ET METTRE EN DUR

		IF W_DebutInterv # W_EndInterv AND W_Act[1,4]="NUIT" THEN
			IF W_Compteur # "00010" AND W_Compteur # "00020" AND W_Compteur # "00030" THEN
				ENR_TEMPO<W_Indice,1>=W_CLE[1,5]
				ENR_TEMPO<W_Indice,2>=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
				ENR_TEMPO<W_Indice,3>=W_Aide
				ENR_TEMPO<W_Indice,4>=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
				ENR_TEMPO<W_Indice,5>=INT(W_Compteur):" : Compteur erron"
				W_Indice=W_Indice+1
				W_Erreur="VRAI"
			END
		END
	END

RETURN

*******************************************************************************
* Recherche jours fris
20	
*******************************************************************************
	W_JF = "FAUX"
	W_AnneeFerie = Periode[1,4]
	READ ENR_PAQUES FROM F.PAQUES, W_AnneeFerie THEN
		ENR_PAQUES<2> = ICONV(ENR_PAQUES<1>[1,2]:"/":ENR_PAQUES<1>[3,2]:"/":W_AnneeFerie,"D4/")
	END

	W_JourClairFerie = W_DebutInterv[7,2]:"/":W_DebutInterv[5,2]:"/":W_DebutInterv[1,4]
	W_JourFerie = ICONV(W_JourClairFerie,"D4/")

	W_Param20=W_JourClairFerie:"|":Asso
  	CALL DIMJF(RETURNVAL,W_Param20,Ferie20)

  	IF Ferie20[1,5] = "FERIE" THEN
		W_JF = "VRAI"
  	END	
	
*   	BEGIN CASE
*		CASE W_JourClairFerie[1,5] = "01/01" OR W_JourClairFerie[1,5] = "31/12"
*			W_JF = "VRAI"
*		CASE W_JourClairFerie[1,5] = "01/05" OR W_JourClairFerie[1,5] = "30/04"
*			W_JF = "VRAI"
*		CASE W_JourClairFerie[1,5] = "08/05" OR W_JourClairFerie[1,5] = "07/05"
*			W_JF = "VRAI"
*		CASE W_JourClairFerie[1,5] = "14/07" OR W_JourClairFerie[1,5] = "13/07"
*			W_JF = "VRAI"
*		CASE W_JourClairFerie[1,5] = "15/08" OR W_JourClairFerie[1,5] = "14/08"
*			W_JF = "VRAI"
*		CASE W_JourClairFerie[1,5] = "01/11" OR W_JourClairFerie[1,5] = "31/10"
*			W_JF = "VRAI"
*		CASE W_JourClairFerie[1,5] = "11/11" OR W_JourClairFerie[1,5] = "10/11"
*			W_JF = "VRAI"
*		CASE W_JourClairFerie[1,5] = "25/12" OR W_JourClairFerie[1,5] = "24/12"
*			W_JF = "VRAI"
*		CASE W_JourFerie = ENR_PAQUES<2> + 1 
*			W_JF = "VRAI"
*		CASE W_JourFerie = ENR_PAQUES<2> + 39 
*			W_JF = "VRAI"
*		CASE W_JourFerie = ENR_PAQUES<2> + 39 + 11 
* On ne considre plus le lundi de pentecote comme un jour fri.
*			W_JF = "VRAI"
*	END CASE
RETURN

*******************************************************************************
* REMPLISSAGE FICHIER TELEGESTION 
40
* A revoir
*IF W_TypeSaisie <> 3 THEN
	* badge solem + autre systme de tlgestion
	j=1
	LOOP    
	UNTIL TRIMB(W_Act) = W_Service<1,j> OR W_Service<1,j> = "" DO
      		j=j+1
	REPEAT

	
	IF (W_Service<3,j>=TypeAct) OR (W_Temp[45,4]="SADS" AND TRIMB(W_Act)="FORMATION") THEN

		W_CleTlg=W_Aidant:W_Aide:W_DateDebutInterv

*		IF W_Temp[45,4]="SADS" AND TRIMB(W_Act)="FORMATION" THEN
*			W_CleTlg=W_CleTlg:"P"
*		END ELSE
			W_CleTlg=W_CleTlg:W_Service<3,j>
*		END

		ENR_TELEGESTION<1>=W_Temp
		
		WRITE ENR_TELEGESTION ON F.TELEGESTION,W_CleTlg

	END ELSE

		IF W_Service<1,j> = "" THEN
			ENR_TEMPO<W_Indice,1>=W_Aidant
			READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Aidant ELSE ENR_CIVILAIDANT=""
			ENR_TEMPO<W_Indice,2>=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
			ENR_TEMPO<W_Indice,3>=W_Aide
			READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Aide ELSE ENR_CIVILAIDE=""
			ENR_TEMPO<W_Indice,4>=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
			IF TRIMB(W_Act)="" THEN
				ENR_TEMPO<W_Indice,5>="Activit non renseigne dans le systme de tlgestion"
			END ELSE
				ENR_TEMPO<W_Indice,5>=TRIMB(W_Act):" : Activit errone"
			END
			W_Indice=W_Indice+1
*		END ELSE
*			ENR_TEMPO<W_Indice,1>=W_Aidant
*			ENR_TEMPO<W_Indice,2>=W_DateDebutInterv
*			ENR_TEMPO<W_Indice,3>=W_Aide
*			ENR_TEMPO<W_Indice,4>=W_Aide
*			ENR_TEMPO<W_Indice,5>="no sait"
*			W_Indice=W_Indice+1
		END

	END
*END ELSE
*	* UNIQUEMENT POUR SOLEM : intervention non badge MOI --> type Perso
*	W_Trouve="FAUX"
*	FOR iCpt=1 TO DCOUNT(ENR_TLGACTIVITES<5>,CHAR(253))
*		IF OCONV(TRIMB(W_Act),"MCU") = OCONV(ENR_TLGACTIVITES<5,iCpt>,"MCU") THEN
*			W_Trouve="VRAI"
*			EXIT
*		END
*	NEXT iCpt
*	IF W_Trouve="FAUX" THEN
*			ENR_TEMPO<W_Indice,1>=W_Aidant
*			READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Aidant ELSE ENR_CIVILAIDANT=""
*			ENR_TEMPO<W_Indice,2>=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
*			ENR_TEMPO<W_Indice,3>=W_Aide
*			READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Aide ELSE ENR_CIVILAIDE=""
*			ENR_TEMPO<W_Indice,4>=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
*			IF TRIMB(W_Act)="" THEN
*				ENR_TEMPO<W_Indice,5>="Activit non renseigne dans le systme de tlgestion"
*			END ELSE
*				ENR_TEMPO<W_Indice,5>=TRIMB(W_Act):" : Code export compteur non paramtr"
*			END
*			W_Indice=W_Indice+1
*	END ELSE
*	* uniquement en prestataire
*		W_CleTlg=W_Aidant:W_Aide:W_DateDebutInterv:"P"
*
*		ENR_TELEGESTION<1>=W_Temp
*		
*		WRITE ENR_TELEGESTION ON F.TELEGESTION,W_CleTlg	
*	END
*END

RETURN

*******************************************************************************
* DEFINITION DES VARIABLES
50
	W_CompteursSolem=""
	W_Km=""
	W_HreDebutInterv=""
	W_HreFinInterv=""	
	
   	BEGIN CASE
		* DOMIPHONE
		CASE SystemeTlg="01"
			W_Act=FIELD(W_Temp,";",6):FIELD(W_Temp,";",7)
			W_Aidant=FIELD(W_Temp,";",1) "R%5"
			W_Aide=FIELD(W_Temp,";",2) "R%5"

			W_JourDeb=FIELD(W_Temp,";",3)[1,2]
			W_MoisDeb=FIELD(W_Temp,";",3)[4,2]
			W_AnDeb=FIELD(W_Temp,";",3)[7,4]
			W_HreDeb=FIELD(W_Temp,";",3)[12,2]
			W_MinDeb=FIELD(W_Temp,";",3)[15,2]

			W_JourFin=FIELD(W_Temp,";",4)[1,2]
			W_MoisFin=FIELD(W_Temp,";",4)[4,2]
			W_AnFin=FIELD(W_Temp,";",4)[7,4]
			W_HreFin=FIELD(W_Temp,";",4)[12,2]
			W_MinFin=FIELD(W_Temp,";",4)[15,2]

			W_DateDebutInterv=W_AnDeb:W_MoisDeb:W_JourDeb:W_HreDeb:W_MinDeb
			W_DebutInterv=W_AnDeb:W_MoisDeb:W_JourDeb
			W_EndInterv=W_AnFin:W_MoisFin:W_JourFin
			
			* Minutes complmentaires dj intgres dans le compteur
			W_NbreHre=INT(FIELD(W_Temp,";",8)* 100/60 + (1/2)) 
			W_NbreHreDim=0
			W_InclureTpsTrajet = "N"
			W_RubSai = ""
			
			* chiffre entier --> * 100 pour mettre en dcimale
			W_Km = FIELD(W_Temp,";",10) * 100
			
			W_TypeSaisie=""
			
		* DOMATEL
		CASE SystemeTlg="02"
			W_Act=FIELD(W_Temp,CHAR(9),2)
			W_Aidant=FIELD(W_Temp,CHAR(9),3)
			W_Aide=FIELD(W_Temp,CHAR(9),4)
			W_DateDebutInterv=FIELD(W_Temp,CHAR(9),7):FIELD(W_Temp,CHAR(9),8) "R%4"
			W_DebutInterv=FIELD(W_Temp,CHAR(9),7)
			W_EndInterv=FIELD(W_Temp,CHAR(9),9)

			IF LEN(FIELD(W_Temp,CHAR(9),8))=4 THEN
				W_HreDebutInterv=FIELD(W_Temp,CHAR(9),8)[1,2]
				W_MinDebutInterv=FIELD(W_Temp,CHAR(9),8)[3,2]
			END ELSE
				W_HreDebutInterv=FIELD(W_Temp,CHAR(9),8)[1,1]
				W_MinDebutInterv=FIELD(W_Temp,CHAR(9),8)[2,2]
			END
			W_DebutEnMin=(W_HreDebutInterv*60)+W_MinDebutInterv
			W_MinCentieme=INT((W_MinDebutInterv*10/6)+(1/2)) "R%2"
			W_HreDebutInterv=W_HreDebutInterv:W_MinCentieme

			IF LEN(FIELD(W_Temp,CHAR(9),10))=4 THEN
				W_HreFinInterv=FIELD(W_Temp,CHAR(9),10)[1,2]
				W_MinFinInterv=FIELD(W_Temp,CHAR(9),10)[3,2]
			END ELSE
				W_HreFinInterv=FIELD(W_Temp,CHAR(9),10)[1,1]
				W_MinFinInterv=FIELD(W_Temp,CHAR(9),10)[2,2]
			END
			W_FinEnMin=(W_HreFinInterv*60)+W_MinFinInterv
			W_MinCentieme=INT((W_MinFinInterv*10/6)+(1/2)) "R%2"
			W_HreFinInterv=W_HreFinInterv:W_MinCentieme

			W_NbreHre=0
			W_NbreHreDim=0
			IF W_DebutInterv[1,8]=W_EndInterv[1,8] THEN
				*W_NbreHre=INT(W_HreFinInterv)-INT(W_HreDebutInterv)
				W_NbreHre=W_FinEnMin-W_DebutEnMin
			END ELSE
				*W_NbreHre=(2400-INT(W_HreDebutInterv))+W_HreFinInterv
				W_NbreHre=(1440-W_DebutEnMin)+W_FinEnMin
			END
			W_NbreHre=INT((W_NbreHre * 10 / 6)+1/2)
			
			* Intervention + minutes complmentaires
			IF FIELD(W_Temp,CHAR(9),11) # "" THEN
				W_MinComp=FIELD(W_Temp,CHAR(9),11)
				W_MinComp=INT(((W_MinComp / 60) * 100) + (1/2))
				W_NbreHre=W_NbreHre+W_MinComp
			END

			* chiffre entier --> * 100 pour mettre en dcimale
			W_Km = FIELD(W_Temp,CHAR(9),12) * 100
			
			W_InclureTpsTrajet = "N"
			W_RubSai = ""
			
			W_TypeSaisie=""
			
		* SOFTIME (DIRINFO)
		CASE SystemeTlg="03"
			W_Act=FIELD(W_Temp,";",7)
			W_Aidant=FIELD(W_Temp,";",1)
			W_Aide=FIELD(W_Temp,";",2)
			W_DebutInterv=FIELD(W_Temp,";",3)
			W_DebutInterv=W_DebutInterv[5,4]:W_DebutInterv[3,2]:W_DebutInterv[1,2]
			W_DateDebutInterv=W_DebutInterv:FIELD(W_Temp,";",4)
			W_EndInterv=FIELD(W_Temp,";",5)
			W_EndInterv=W_EndInterv[5,4]:W_EndInterv[3,2]:W_EndInterv[1,2]
			W_NbreHre=INT(FIELD(W_Temp,";",8)* 100/60 + (1/2))

			* Minutes supplmentaires
			IF FIELD(W_Temp,";",9) <> "" AND FIELD(W_Temp,";",9) <> "" THEN
				W_MinutesSupp = INT(FIELD(W_Temp,";",9)* 100/60 + (1/2))
			END ELSE
				W_MinutesSupp=0
			END
			
			* Intervention + minute supplmentaire
			W_NbreHre=W_NbreHre + W_MinutesSupp
			
			W_HreDeb=FIELD(W_Temp,";",4)[1,2]
			W_MinDeb=FIELD(W_Temp,";",4)[3,2]
			W_MinDeb = INT(W_MinDeb / 60 * 100 + 1/2)"R%2"
			W_HreFin=FIELD(W_Temp,";",6)[1,2]
			W_MinFin=FIELD(W_Temp,";",6)[3,2]
			W_MinFin = INT(W_MinFin / 60 * 100 + 1/2)"R%2"

			W_HreDebutInterv=W_HreDeb:W_MinDeb
			W_HreFinInterv=W_HreFin:W_MinFin

			W_NbreHreDim=0
			W_InclureTpsTrajet = "N"
			W_RubSai = ""
			
			* chiffre entier --> * 100 pour mettre en dcimale
			W_Km = FIELD(W_Temp,";",10) * 100
			
			W_TypeSaisie=""
			
		* SOLEM
		CASE SystemeTlg="04"
			W_Act=W_Temp[268,16]
			W_Act=OCONV(W_Act,"MCU")
			W_Aidant=W_Temp[29,5]
			W_Aide=W_Temp[77,5]
			W_DateDebutInterv=W_Temp[286,12]
			W_DebutInterv=W_Temp[286,8]
			W_EndInterv=W_Temp[300,8]
			W_NbreHre=W_Temp[312,4]
			W_NbreHreDim=W_Temp[316,4]
			W_Compteur=W_Temp[384,5]
			W_InclureTpsTrajet = "N"
			W_RubSai = ""

			W_HreDeb=W_Temp[294,2]
			W_MinDeb=W_Temp[296,2]
			W_MinDeb = INT(W_MinDeb / 60 * 100 + 1/2)"R%2"
			W_HreFin=W_Temp[308,2]
			W_MinFin=W_Temp[310,2]
			W_MinFin = INT(W_MinFin / 60 * 100 + 1/2)"R%2"

			W_HreDebutInterv=W_HreDeb:W_MinDeb
			W_HreFinInterv=W_HreFin:W_MinFin
			
			W_TypeSaisie=W_Temp[109,1]
			
			W_CompteursSolem=W_Temp[320,92]
*************************************************************
** SPECIF CHATEAUDUN
*************************************************************
*			W_ValeurKm=""
*			W_RubSaiKm=""
*			W_ValeurCourse=""
*			W_ValeurForm=""
*			W_RubSaiForm=""
*
*			IF W_Temp[45,4]="SADS" THEN
*				W_ValeurKm = INT(W_Temp[338,5])
*				IF W_ValeurKm=0 THEN
*					W_ValeurKm=""
*				END ELSE
*					IF TRIMB(OCONV(W_Temp[322,16],"MCU"))="AUTOMOBILE" THEN
*						W_RubSaiKm = "012"
*					END ELSE
*						IF TRIMB(OCONV(W_Temp[322,16],"MCU"))="CYCLOMOTEUR" THEN
*							W_RubSaiKm = "053"
*						END
*					END
*				END
*
*				IF TRIMB(OCONV(W_Temp[345,16],"MCU"))="COURSE" THEN
*					W_Hre=W_Temp[361,3]
*					W_Min=W_Temp[364,2]
*					W_Min = INT(W_Min / 60 * 100 + 1/2)"R%2"
*					W_ValeurCourse = W_Hre:W_Min
*					IF W_ValeurCourse="00000" THEN
*						W_ValeurCourse=""
*					END ELSE
*						W_ValeurCourse=INT(W_ValeurCourse)				
*					END
*				END
	
*				IF TRIMB(W_Act)="FORMATION" THEN
*					W_Hre=W_Temp[338,3]
*					W_Min=W_Temp[341,2]
*					W_Min = INT(W_Min / 60 * 100 + 1/2)"R%2"
*					W_ValeurForm = W_Hre:W_Min
*					W_RubSaiForm = "022"
*					IF W_ValeurForm="00000" THEN
*						W_ValeurForm=""
*					END ELSE
*						W_ValeurForm=INT(W_ValeurForm)
*					END
*				END
*			END

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


*************************************************************
** SPECIF CHARTRES
*************************************************************
*			W_ValeurKm=""
*			W_RubSaiKm=""
*			W_ValeurTps=""
*			W_RubSaiTps=""
*
*			IF W_Temp[45,6]="CODAPA" THEN
*				IF W_Act[1,7]#"COURSES" THEN
*					* tps trajet
*					W_ValeurTps = INT(W_Temp[338,5])
*					IF W_ValeurTps=0 THEN
*						W_ValeurTps=""
*					END ELSE
*						W_Hre=W_Temp[338,3]
*						W_Min=W_Temp[341,2]
*						W_Min = INT(W_Min / 60 * 100 + 1/2)"R%2"
*						W_ValeurTps = W_Hre:W_Min
*						W_RubSaiTps = "071"
*						W_ValeurTps=INT(W_ValeurTps)				
*					END
*
*					W_ValeurKm = INT(W_Temp[361,5])
*					IF W_ValeurKm=0 THEN
*						W_ValeurKm=""
*					END ELSE
*						W_RubSaiKm = "029"
*
*					END
*				END ELSE
*
*					W_Act="PRESTATAIRE"
*
*					W_ValeurKm = INT(W_Temp[338,5])
*					IF W_ValeurKm=0 THEN
*						W_ValeurKm=""
*					END ELSE
*						W_RubSaiKm = "029"
*
*					END
*
*				END
*			END
*
*************************************************************
		* LILLE ASSAD
		CASE SystemeTlg="05" OR SystemeTlg="06"
			W_Act=FIELD(W_Temp,";",7)
			W_Aidant=FIELD(W_Temp,";",1)
			W_Aide=FIELD(W_Temp,";",2)

			W_JourDeb=FIELD(W_Temp,";",3)[1,2]
			W_MoisDeb=FIELD(W_Temp,";",3)[4,2]
			W_AnDeb=FIELD(W_Temp,";",3)[7,4]
			W_HreDeb=FIELD(W_Temp,";",3)[12,2]
			W_MinDeb=FIELD(W_Temp,";",3)[15,2]
			W_HeureDeb=FIELD(W_Temp,";",3)[12,8]
			
			W_JourFin=FIELD(W_Temp,";",4)[1,2]
			W_MoisFin=FIELD(W_Temp,";",4)[4,2]
			W_AnFin=FIELD(W_Temp,";",4)[7,4]
			W_HreFin=FIELD(W_Temp,";",4)[12,2]
			W_MinFin=FIELD(W_Temp,";",4)[15,2]

			W_RubSai = FIELD(W_Temp,";",11)
			READ ENR_RUBSAISIE FROM F.RUBSAISIE, W_RubSai ELSE
				ENR_RUBSAISIE = "" 
				W_RubSai = ""
			END

			W_TypeSaisie=""
			
			IF W_Aide = "" THEN
				W_Aide = "00000"
			END

			IF W_JourDeb = "" THEN
				W_JourDeb = W_JourDefaut
				W_MoisDeb = Periode[5,2]
				W_AnDeb = Periode[1,4]
				W_HreDeb = "23"
				W_MinDeb = "58"
				W_HreFin = "23"
				W_MinFin = "59"
				W_JourFin = W_JourDeb
				W_MoisFin = W_MoisDeb
				W_AnFin = W_AnDeb
				W_Err = "V"
				
				j=1
				LOOP    
				UNTIL TRIMB(W_Act) = W_Service<1,j> OR W_Service<1,j> = "" DO
      					j=j+1
				REPEAT

				LOOP
				WHILE W_Err = "V" AND W_Traitement50 = "Remplissage"

				  READ ENR_TELEGESTION FROM F.TELEGESTION, W_Aidant:W_Aide:W_AnDeb:W_MoisDeb:W_JourDeb:W_HreDeb:W_MinDeb:W_Service<3,j> THEN
					IF W_RubSai = FIELD(ENR_TELEGESTION<1>,";",11) THEN
						* On cumule les valeurs  associer  la rubrique...
						W_Temp = W_Temp[1,INDEX(W_Temp,";",7)]:FIELD(ENR_TELEGESTION<1>,";",8)+FIELD(ENR_TELEGESTION<1>,";",9)+FIELD(W_Temp,";",8):W_Temp[INDEX(W_Temp,";",8),LEN(W_Temp)-INDEX(W_Temp,";",8)+1]
						W_Err = "F"
					END ELSE
						W_MinDeb = W_MinDeb - 1
						W_MinFin = W_MinFin - 1
					END
				  END ELSE
					W_Err = "F"
				  END
				REPEAT
				W_Temp = W_Temp:";N"
			END ELSE
				W_Temp = W_Temp:";"
			END

			W_DateDebutInterv=W_AnDeb:W_MoisDeb:W_JourDeb:W_HreDeb:W_MinDeb
			W_DebutInterv=W_AnDeb:W_MoisDeb:W_JourDeb
			W_EndInterv=W_AnFin:W_MoisFin:W_JourFin
			
			* Intervention + Minutes complmentaires
			W_NbreHre=INT((FIELD(W_Temp,";",8) + FIELD(W_Temp,";",9))* 100/60 + (1/2))

			W_NbreHreDim=0

			W_InclureTpsTrajet = FIELD(W_Temp,";",12)
			
			IF SystemeTlg="06" THEN
				W_TabRubMOI=""
				W_TabRubMOI<1>=FIELD(W_Temp,";",12)
				W_TabRubMOI<2>=FIELD(W_Temp,";",13)
				W_TabRubMOI<3>=FIELD(W_Temp,";",14)
				
				FOR ITabRub=1 TO DCOUNT(W_TabRubMOI<2>,CHAR(253))
					W_TabRubMOI<2,ITabRub>=W_TabRubMOI<2,ITabRub>*100
				NEXT ITabRub
			END
	END CASE
RETURN

99 **********************************************************************************
*	Intgration des lignes sans jour : dtermination des jours par dfaut		*
*************************************************************************************

	W_AnneeFerie = Periode[1,4]
	READ ENR_PAQUES FROM F.PAQUES, W_AnneeFerie THEN
		ENR_PAQUES<2> = ICONV(ENR_PAQUES<1>[1,2]:"/":ENR_PAQUES<1>[3,2]:"/":W_AnneeFerie,"D4/")
	END

	W_JourClairFerie = "01/":Periode[5,2]:"/":Periode[1,4]
	W_JourFerie = ICONV(W_JourClairFerie,"D4/") + 32
	W_JourClairFerie = "01/":OCONV(W_JourFerie,"D4/")[4,7]
	W_JourFerie = ICONV(W_JourClairFerie,"D4/")

	W_JF = "VRAI"

	LOOP
		
	WHILE W_JF = "VRAI"
	   W_JourFerie = ICONV(W_JourClairFerie,"D4/")-1
	   W_JourClairFerie = OCONV(W_JourFerie,"D4/")
   	   BEGIN CASE
		CASE W_JourClairFerie[1,5] = "01/01"
			W_JF = "VRAI"
		CASE W_JourClairFerie[1,5] = "01/05"
			W_JF = "VRAI"
		CASE W_JourClairFerie[1,5] = "08/05"
			W_JF = "VRAI"
		CASE W_JourClairFerie[1,5] = "14/07"
			W_JF = "VRAI"
		CASE W_JourClairFerie[1,5] = "15/08"
			W_JF = "VRAI"
		CASE W_JourClairFerie[1,5] = "01/11"
			W_JF = "VRAI"
		CASE W_JourClairFerie[1,5] = "11/11"
			W_JF = "VRAI"
		CASE W_JourClairFerie[1,5] = "25/12"
			W_JF = "VRAI"
		CASE W_JourFerie = ENR_PAQUES<2> + 1
			W_JF = "VRAI"
		CASE W_JourFerie = ENR_PAQUES<2> + 39
			W_JF = "VRAI"
		CASE W_JourFerie = ENR_PAQUES<2> + 39 + 11
*	On ne considre plus le lundi de pentecote comme unn jour fri
*	Sera probablement  revoir (paramtre ?)
*			W_JF = "VRAI"
			W_JF = "FAUX"
		CASE 1
			W_JF = "FAUX"
	   END CASE
	REPEAT 

	W_JourDefaut = W_JourClairFerie[1,2]

RETURN
